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

ARQUIVO (Z_PISC)
OUTROARQ SE_PROD SEIP_C PCOD
VARIAVEL Z_BLOCK = _CREATEBLOCK("Se_Prod->(DbSeek(Z_Pisc->Pcod)),Se_Prod->Pdesc+STR(PCOD,6)")
COMANDO ANTES FERASE(R_SIGA+"NTX\"+Z_PISC+ORDBAGEXT())
COMANDO ANTES Z_SELECT = SELECT("Z_PISC")
COMANDO ANTES Abra(Z_SELECT, R_siga, z_pisc, "z_pisc", z_pisc, "Eval(z_block)" )

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

COMANDO DURANTE Z_PCOD = PCOD

SUBLIST Z_PISC

REPITA ENQUANTO PCOD=Z_PCOD
FILTRO  MVALOR>0 .AND. .NOT.PNEGPOS$"+-"
COMANDO ANTES   Z_VALTOT = 0
COMANDO DURANTE Z_VALTOT = Z_VALTOT + Mvalor
COMANDO DEPOIS DBSKIP(-1)
COMANDO DEPOIS  SE_PROD->(DbSeek(z_pcod))
COMANDO DEPOIS  Z_VALLST = Z_VALLST + Z_VALTOT

FILTROIMP Z_VALTOT>0
ULTPAG[Z_PCOD 999999] [se_prod->pdesc]                  [z_valtot @E 9999,999.99]

FIM SUBLIST

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