VARIAVEL zDtRef = Date()
VARIAVEL zAaMm = Substr(Dtos(s_datual),3,4)
VARIAVEL zFilePis = ''
VARIAVEL Z_OBS = SPAC(60)
VARIAVEL zFgExemplo = 'N'
VARIAVEL zValProd = 0
VARIAVEL zValGlobalNeutra = 0
VARIAVEL LST_TP = 58
VARIAVEL zAaMm_sTR = ""
VARIAVEL Z_TITULO = ""
variavel sPrtLineLen = 80
*
T10,10,18,60,Parametros
T2,2,Totais vendidos da Lista Neutra,
T4,2,Data de Referencia....:,10,zDtRef,99.99.9999
T5,2,Imprimo Exemplificacao?,1,zFgExemplo,!
T6,2,Observacao ...........:,60,z_obs,@s30

COMANDO ANTES DbGoBottom()
COMANDO DEPOIS zAaMm = SubStr( Dtos(zDtRef), 3, 4)
COMANDO DEPOIS Z_MESES = {"JANEIRO","FEVEREIRO","MARCO","ABRIL","MAIO","JUNHO","JULHO","AGOSTO","SETEMBRO","OUTUBRO","NOVEMBRO","DEZEMBRO"}
COMANDO DEPOIS zAaMm_STR = Z_MESES[Month(zDtRef)]+" de "+Str(Year(zDtRef),4)
COMANDO DEPOIS Z_OBS = PADC(ALLTRIM(if(zFgExemplo='S','LISTA EXEMPLIFICADA','')+Z_OBS),80)
COMANDO DEPOIS Z_TITULO = PADC(ALLTRIM("Produtos da Lista Neutra Vendidos em "+zAaMm_STR),80)
comando DEPOIS zFilePis = 'pisc'+zAaMm
COMANDO DEPOIS znil = if( !xFile(r_siga+'efs\'+zFilePis+'.dbf'), vb_pisc(1,zAaMm), '')
COMANDO DEPOIS znil = Abra("0NOIDX",r_siga+"efs\",zFilePis,"PISC")
COMANDO DEPOIS zFilePis = 'mem:'+zFilePis
COMANDO DEPOIS znil = __dbCopy(zFilePis)
COMANDO DEPOIS znil = pisc->(DbCloseArea())

ARQUIVO (zFilePis) (zFilePis) pcod
OUTROARQ SE_PROD SEIP_C PCOD
comando antes zNil = DbCreateIndex(zFilePis, "pcod")

FILTRO  if(zFgExemplo='S',Mvalor,mValCup)>0 .AND. .NOT.PNEGPOS$"+-"

C[EMPRESA]
C[SISTEMA] $ pag [pag 999]
C[z_titulo]
C[Z_OBS]
C[repl("-",80)]
CCodigo   Produto $ Valor
C[Repl("=",80)]

COMANDO DURANTE zPcod = PCOD
COMANDO DURANTE se_prod->(DbSeek(zPcod))
COMANDO DURANTE zPdesc = if( se_prod->(found()), se_prod->pdesc, Pad('* Produto sem Cadastro/Cancelado *',len(se_prod->pdesc)) )
COMANDO DURANTE zValProd = if(zFgExemplo='S',Mvalor,mValCup)
COMANDO DURANTE zValGlobalNeutra = zValGlobalNeutra + zValProd

D[zPcod 999999] [se_prod->pdesc] [mdata] $ [zValProd @E 9999,999.99]

ULTPAG[REPL("-",80)]
ULTPAG
ULTPAG ** Valor Total Vendido de Produtos da Lista Neutra: [zValGlobalNeutra @E 999,999,999.99]

ARQUIVO HELP
COMANDO ANTES DbGoBottom()
COMANDO DEPOIS DbDrop( zFilePis )
