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 = "S"
VARIAVEL Z_VALTOT = 0
*
T10,10,18,60,Parametros
T2,2,Ano e Mes ......:,4,z_aamm,9999
T4,2,Lista PIS/COFINS:,1,Z_LISTA,!
T4,25,N Neutra   ,
T5,25,+ Positiva ,
T6,25,- Negativa ,

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

ARQUIVO (Z_FAT)
OUTROARQ (z_MOVE) z_MOVE+".p" fnumped
OUTROARQ SCCPFOR
OUTROARQ SE_PROD SEIP_C PCOD

* FILTRO FG_FAT=Z_FILTRO

COMANDO DURANTE Z_PED = FNUMPED
COMANDO DURANTE Z_DATAEMI = FDATAEMI
COMANDO DURANTE Z_FHORA = FHORA

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

SUBLIST Z_MOVE

COMANDO ANTES DbSeek(Z_PED)
REPITA ENQUANTO FNUMPED=Z_PED
FILTRO MDATA=Z_DATAEMI.AND.MFGES="S".and.mtipoven$"123456Z".and.fnumped<>0.and.mfnum>=0

COMANDO DURANTE Z_PCOD = PCOD
COMANDO DURANTE SE_PROD->(DbSeek(z_pcod))
* COMANDO DURANTE Z_FgOk = if(Se_Prod->PNegPos$"+-" ,"S","N")
COMANDO DURANTE Z_FgOk = (Se_Prod->PNegPos=z_lista)
COMANDO DURANTE Z_VALTOT = Z_VALTOT + If(Z_FgOk,Mvalor,0)

FILTROIMP Z_FgOk
D[se_prod->pdesc] [mdata] [z_fhora @s5] [mquant @e 999,999] [mvalor @e 999,999.99] [z_valtot @E 9999,999.99]
*- D[se_prod->pdesc] [strzero(day(mdata),2)] [z_fhora @s5] [mquant 99999] [mvalor @e 999,999.99] [z_valtot @E 9999,999.99]

FIM SUBLIST

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