INCLUDE SI_RESUL.LST 
 
COMANDO DEPOIS Z_EMISREC = FR("CR_006") 
COMANDO DEPOIS Z_EMISPAG = FR("CP_006") 
COMANDO DEPOIS Z_DIF = if(Z_EMISREC-Z_EMISPAG>0," ++Positiva"," --Negativa") 
COMANDO DEPOIS Z_EMIPAG01 = FR("DD001002") 
COMANDO DEPOIS Z_EMIOUTRPAG = Z_EMISPAG - Z_EMIPAG01 
ULTPAG 
ULTPAG Emissoes no Contas a Receber......: [z_emisrec @E 999,999,999.99] 
ULTPAG Emissoes no Contas a Pagar........: [z_emispag @E 999,999,999.99] 
ULTPAG => Diferenca Operacional..........: [z_emisrec-z_emispag @E 999,999,999.99]  [Z_DIF] 
ULTPAG    >> Emissoes a Pag de Prod:[Z_EMIPAG01 @E 99999,999] 
ULTPAG    >> Outras Emissoes a Pag.:[Z_EMIOUTRPAG @E 99999,999] 
* 
COMANDO DEPOIS Z_RECEBIDAS = FR("CR_003") 
COMANDO DEPOIS Z_PAGAS = FR("CP_003") 
COMANDO DEPOIS Z_DIF = if(Z_RECEBIDAS-Z_PAGAS>0," ++Positiva"," --Negativa") 
COMANDO DEPOIS Z_PAG01 = FR("DD001005") 
COMANDO DEPOIS Z_OUTRPAG = Z_PAGAS - Z_PAG01 
ULTPAG 
ULTPAG Valor Total Recebido no Mes.......: [z_Recebidas @E 999,999,999.99] 
ULTPAG Valor Total Pago no Mes...........: [z_pagAs @E 999,999,999.99] 
ULTPAG => Diferenca Operacional Realizada: [z_Recebidas-z_pagAs @E 999,999,999.99]  [Z_DIF] 
ULTPAG    >> Pagamentos de Produtos:[z_pag01 @E 99999,999] 
ULTPAG    >> Outros Pagamentos.....:[Z_OUTRPAG @E 99999,999] 
 
*COMANDO DEPOIS Z_APAGAR = FR("CP_004")+FR("CP_005") 
*COMANDO DEPOIS Z_ARECEBER = FR("CR_004")+FR("CR_005") 
*ULTPAG Valor das Contas a Pagar..........: [Z_APAGAR @E 999,999,999.99] 
*ULTPAG Valor das Contas a Receber........: [Z_ARECEBER @E 999,999,999.99] 
 
*COMANDO DEPOIS Z_ESTINISDPE = FR("SDPE001") 
*COMANDO DEPOIS Z_ESTFINSDPE = FR("SDPE002") 
*ULTPAG 
*ULTPAG Valor do Estoque Inicial.............: [z_estinisdpe @E 999,999,999.99] 
*ULTPAG Valor do Estoque Final...............: [z_estfinsdpe @E 999,999,999.99] 
 
* xEXECUTE SI_RES01 