ALIAS SE_MOVNF
OUTROARQ SE_PROD SEIP_C PCOD
VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2)
VARIAVEL Z_LISTA = "N"
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

FILTRO SubStr(Dtos(Mdata),3,4) = z_aamm .and. val(fnumcoo)>=0 .and. MFGES="S"

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

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] [fnumcoo] [mquant @e 999,999] [mvalor @e 999,999.99] [z_valtot @E 9999,999.99]
   
ULTPAG
ULTPAG ** Valor Total Vendido de Produtos da Lista NEUTRA: [z_valtot @E 999,999,999.99]
