VARIAVEL Z_AAMM = Substr(Dtoc(s_datual),4)
VARIAVEL Z_PISC = ""
VARIAVEL Z_LISTA = "N"
VARIAVEL Z_OBS = SPAC(60)
VARIAVEL Z_FILTRO = "F"
VARIAVEL Z_VALTOT = 0
VARIAVEL Z_VALLST = 0
VARIAVEL LST_TP = 58
VARIAVEL Z_AAMM_sTR = ""
VARIAVEL Z_TITULO = ""
*
T10,10,18,60,Parametros
T2,2,Totais vendidos da Lista Neutra,
T4,2,Mes e Ano ......:,7,z_aamm,99.9999
T5,2,Observacao .....:,60,z_obs,@s30

COMANDO ANTES DbGoBottom()
COMANDO DEPOIS Z_MESES = {"JANEIRO","FEVEREIRO","MARCO","ABRIL","MAIO","JUNHO","JULHO","AGOSTO","SETEMBRO","OUTUBRO","NOVEMBRO","DEZEMBRO"}
COMANDO DEPOIS Z_AAMM_STR = Z_MESES[VAL( LEFT(Z_AAMM,2)) ]+" de "+RIGHT(Z_AAMM,4)
COMANDO DEPOIS Z_OBS = PADC(ALLTRIM(Z_OBS),80)
COMANDO DEPOIS Z_TITULO = PADC(ALLTRIM("Produtos da Lista Neutra Vendidos no mes de "+z_aamm_STR),80)
*-
COMANDO DEPOIS Z_AAMM = RIGHT(Z_AAMM,2)+LEFT(Z_AAMM,2)
COMANDO DEPOIS Z_PISC = "PISC"+Z_AAMM
COMANDO DEPOIS FERASE(R_SIGA+"NTX\"+Z_PISC+ORDBAGEXT())


ARQUIVO SE_PROD SEIP_N PDESC
OUTROARQ (Z_PISC) Z_PISC PCOD

C[EMPRESA]
C[SISTEMA]                                                      pag [pag 999]
C[z_titulo]
C[Z_OBS]
* , Emitida em [s_datual] as [time()]
C[repl("-",80)]
CCodigo   Produto                                              Valor
C[Repl("=",80)]

COMANDO DURANTE Z_PCOD = PCOD

SUBLIST Z_PISC
COMANDO ANTES DBSEEK(Z_PCOD)
REPITA ENQUANTO PCOD=Z_PCOD
FILTRO  MVALcup>0 .AND. .NOT.PNEGPOS$"+-"
COMANDO ANTES   Z_VALTOT = 0
COMANDO DURANTE Z_VALTOT = Z_VALTOT + Mvalcup
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[REPL("-",80)]
ULTPAG
ULTPAG ** Valor Total Vendido de Produtos da Lista Neutra: [Z_ValLst @E 999,999,999.99]
