VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2)
VARIAVEL Z_MOVE = ""
VARIAVEL Z_FAT = ""
VARIAVEL Z_LISTA = "N"
VARIAVEL Z_FILTRO = "F"
VARIAVEL Z_VALPROD = 0
VARIAVEL Z_VALTOT = 0
VARIAVEL Z_UNIDS = 0
VARIAVEL Z_FGOK = .T.
VARIAVEL DTA1 = S_DATUAL
VARIAVEL DTA2 = S_DATUAL
*
T5,10,18,60,Parametros
T2,2,Totais vendidos da Lista Neutra,
T4,2,Ano e Mes ......:,4,z_aamm,9999
T5,2,Selecao ........:,1,z_filtro,!
T6,2,Data Inicial....:,8,dta1,
T7,2,Data Final......:,8,dta2,


COMANDO ANTES DbGoBottom()
COMANDO DEPOIS Z_MOVE = "MOVE"+Z_AAMM
COMANDO DEPOIS Z_FAT = "FAT"+Z_AAMM

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

COMANDO DURANTE Z_PCOD = PCOD

C[SISTEMA]                              pag [pag 999]
CProdutos da Lista Neutra Vendidos no mes [z_aamm], Emitida em [s_datual] as [time()]
C[repl("-",80)]
C      Produto                            Data    Quant      Valor   Acumulado
C[Repl("=",80)]

SUBLIST Z_MOVE
COMANDO ANTES DbSeek(Z_PCOD)
REPITA ENQUANTO Z_PCOD=Pcod
FILTRO MFGES="S".and.mtipoven$"123456Z".and.fnumped<>0
FILTRO day(mdata) >= day (dta1) .and. day(mdata) <= day( dta2 ) .and. month(mdata) >= month(dta1) .and. month(mdata) <= month(dta2)
COMANDO ANTES Z_VALPROD = 0
COMANDO ANTES Z_UNIDS = 0
COMANDO DURANTE Z_PED = FNUMPED
COMANDO DURANTE Z_DATAEMI = mdata
COMANDO DURANTE Z_FAT->(DBSEEK(z_ped))
COMANDO DURANTE Z_FgOk = (z_fat->FG_FAT=Z_FILTRO.or.z_filtro=" ").and.Z_DATAEMI=z_fat->fdataemi
COMANDO DURANTE Z_UNIDS   = Z_UNIDS   + If(Z_FgOk,Mquant,0)
COMANDO DURANTE Z_VALPROD = Z_VALPROD + If(Z_FgOk,Mvalor,0)
COMANDO DURANTE Z_VALTOT  = Z_VALTOT  + If(Z_FgOk,Mvalor,0)

FILTROIMP Z_FgOk.AND.Z_UNIDS>0
ULTPAG[Z_PCOD 99999] [se_prod->pdesc] [mdata]  [Z_UNIDS @e 999,999] [Z_VALPROD @e 999,999.99] [z_valtot @E 9999,999.99]
FIM SUBLIST

ULTPAG
ULTPAG ** Valor Total Vendido: [z_valtot @E 999,999,999.99]
