VARIAVEL Z_MOVE = ""
VARIAVEL Z_FAT = ""
VARIAVEL Z_LISTA = "N"
VARIAVEL Z_FILTRO = "F"
VARIAVEL Z_VALPROD = 0
VARIAVEL Z_VALCUST = 0
VARIAVEL T_VALCUST = 0
VARIAVEL Z_VALTOT = 0
VARIAVEL Z_UNIDS = 0
VARIAVEL Z_VALDESC = 0
VARIAVEL Z_TOTDESC = 0
VARIAVEL Z_totUNI = 0
VARIAVEL Z_LUCRO = 0
VARIAVEL T_LUCRO = 0

VARIAVEL DTA1 = S_DATUAL
VARIAVEL DTA2 = S_DATUAL
*
T5,10,11,60,Parametros
T2,2,Produtos Vendidos,
T3,2,Data Inicial....:,8,dta1,
T4,2,Data Final......:,8,dta2,

COMANDO ANTES DbGoBottom()
COMANDO DEPOIS Z_MOVE = SE_MOV
COMANDO DEPOIS Z_FAT = SF_FAT

ARQUIVO SE_PROD SEIP_N PDESC
OUTROARQ (Z_FAT) z_Fat+".p" fnumped
OUTROARQ (z_MOVE) z_MOVE+".C" PCOD
OUTROARQ SCCPFOR

*FILTRO Z_FAT->FDATAEMI>=DTA1.AND.Z_FAT->FDATAEMI<=DTA2

COMANDO DURANTE Z_PCOD = PCOD

C
C[&M_DEZCOND]
C[EMPRESA]                 Emitida em [s_datual] as [time()]     Pag [pag 999]
CProdutos Vendidos no Periodo de [dta1]  ate [dta2].
C[repl("=",105)]
C  Cod Produto                          Quant  Val.Prod  Val.Desc Vl.Liquid Val.Custo Val.Lucro     %Lucro
C[Repl("-",105)]

SUBLIST Z_MOVE
COMANDO ANTES DbSeek(Z_PCOD)
REPITA ENQUANTO Z_PCOD=Pcod
FILTRO MFGES="S".and.mtipoven$"123456Z".and.fnumped<>0
FILTRO mdata>=dta1.and.mdata<=dta2
COMANDO ANTES Z_VALPROD = 0
COMANDO ANTES Z_VALCUST = 0
COMANDO ANTES Z_UNIDS = 0
COMANDO ANTES Z_VALDESC = 0
COMANDO ANTES Z_LUCRO = 0

COMANDO DURANTE Z_PED = FNUMPED
COMANDO DURANTE Z_DATAEMI = mdata
COMANDO DURANTE Z_FAT->(DBSEEK(z_ped))
COMANDO DURANTE Z_UNIDS   = Z_UNIDS   + Mquant
COMANDO DURANTE Z_totUNI  = Z_totUNI   + Mquant
COMANDO DURANTE Z_VALPROD = Z_VALPROD + Mvalor
COMANDO DURANTE Z_VALCUST = Z_VALCUST + Mvalor3
COMANDO DURANTE Z_VALTOT  = Z_VALTOT  + Mvalor
COMANDO DURANTE T_VALCUST = T_VALCUST + Mvalor3
COMANDO DURANTE Z_VALDESC = MDESCONTO*MVALOR/100
COMANDO DURANTE Z_TOTDESC = Z_TOTDESC + (MDESCONTO*MVALOR/100)
COMANDO DURANTE Z_LUCRO = IF(((Z_VALPROD-Z_VALDESC-Z_VALCUST)/Z_VALCUST*100)>0,(Z_VALPROD-Z_VALDESC-Z_VALCUST)/Z_VALCUST*100,0)
COMANDO DURANTE T_LUCRO = IF(((z_valtot-Z_TOTDESC-T_VALCUST)/T_VALCUST*100)>0,(z_valtot-Z_TOTDESC-T_VALCUST)/T_VALCUST*100,0)

FILTROIMP Z_UNIDS>0
ULTPAG[Z_PCOD 99999] [se_prod->pdesc @S30] [Z_UNIDS @e 999,999] [Z_VALPROD @e 99,999.99] [Z_VALDESC @e 99,999.99] [Z_VALPROD-Z_VALDESC @e 99,999.99] [Z_VALCUST @e 99,999.99] [Z_VALPROD-Z_VALDESC-Z_VALCUST @e 99,999.99] [Z_LUCRO @e 99,999.99]%
FIM SUBLIST
ULTPAG[REPL("-",105)]
ULTPAG        Total dos Produtos Vendidos: [Z_totUNI @e 999,999] [z_valtot @e 99,999.99] [Z_TOTDESC @e 99,999.99] [z_valtot-Z_TOTDESC @e 99,999.99] [T_VALCUST @e 99,999.99] [Z_VALtot-Z_TOTDESC-t_VALCUST @e 99,999.99] [T_LUCRO @e 99,999.99]%
ULTPAG

