INCLUDE SI_RESUL.LST 
 
ARQUIVO CP_DIVIS 
VARIAVEL Z_TOTEMIS = 0 
VARIAVEL Z_TPAGAS = 0 
VARIAVEL Z_TVENCIDAS = 0 
VARIAVEL Z_TAVENCER = 0 
COMANDO DURANTE Z_EMIS = FR( "DD"+STRZERO(RECNO(),3)+"002" ) 
COMANDO DURANTE Z_PAGAS = FR( "DD"+STRZERO(RECN(),3)+"005" ) 
COMANDO DURANTE Z_VENCIDAS = FR( "DD"+sTRZERO(recn(),3)+"003") 
COMANDO DURANTE Z_AVENCER = FR( "DD"+STRZERO(RECN(),3)+"004") 
COMANDO DURANTE Z_TOTEMIS = Z_TOTEMIS + Z_EMIS 
COMANDO DURANTE Z_TPAGAS = Z_TPAGAS + z_PAGAS 
COMANDO DURANTE Z_TVENCIDAS = Z_TVENCIDAS + Z_vencidas 
COMANDO DURANTE Z_TAVENCER = Z_TAVENCER + Z_AVENCER 
C 
C    Divisao de Pagamentos              Emissoes        Pagas  A_Vencer  Vencidas 
C[Repl("-",80)] 
FILTROIMP Z_EMIS+Z_PAGAS+Z_VENCIDAS+Z_AVENCER>0 
D[RECN() 999] [DESC] [z_emis @e 99999,999.99] [z_pagas @E 99999,999.99] [z_avencer @E 99999,999] [z_vencidas @E 99999,999] 
FILTROIMP Z_TOTEMIS>0 
ULTPAG 
FILTROIMP Z_TOTEMIS+Z_TPAGAS+Z_TVENCIDAS+Z_TAVENCER>0 
ULTPAG *** Total das Emissoes:           [Z_totemis @e 99999,999.99] [z_tpagas @E 99999,999.99] [z_tavencer @E 99999,999] [z_tvencidas @E 99999,999] 
 