VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2)
VARIAVEL Z_LISTA = "N"
VARIAVEL Z_FILTRO = "F"
VARIAVEL Z_VALTOT = 0
*
T10,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,!

COMANDO ANTES DbGoBottom()
COMANDO DEPOIS SetAliasAaMm(Z_AAMM)

ARQUIVO (wSf_Fat)
OUTROARQ (wSe_Mov) wSe_Mov_p fnumped
OUTROARQ SCCPFOR
OUTROARQ SE_PROD SEIP_C PCOD

FILTRO FG_FAT<>"C".and.fg_lib<>"C".and. SubStr(Dtos(fDataEmi),3,4)=Z_AAMM.and.fval>0
FILTRO (FG_FAT=Z_FILTRO.or.z_filtro=" ") 

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

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

SUBLIST wSe_Mov
   COMANDO ANTES DbSeek(Z_PED)
   REPITA ENQUANTO FNUMPED=Z_PED
   FILTRO MDATA=Z_DATAEMI.AND.MFGES="S".and.mtipoven$"123456Z".and.fnumped=z_ped.and.mcodforc=zCli

   COMANDO DURANTE Z_PCOD = PCOD
   COMANDO DURANTE SE_PROD->(DbSeek(z_pcod))
   COMANDO DURANTE Z_FgOk = !Se_Prod->PNegPos$"+-"
   COMANDO DURANTE Z_VALTOT = Z_VALTOT + If(Z_FgOk,Mvalor,0)

   FILTROIMP Z_FgOk
   D[se_prod->pdesc @s30] [mdata] [z_fhora @s5] [mquant @e 999,999] [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]
