OUTROARQ SCCPFOR 
OUTROARQ CP_DIVIS 

VARIAVEL Z_TIPOLST = if( type("Z_TIPOLST")="U", "EMISSOES", Z_TIPOLST)
VARIAVEL Z_DIVISAO = 0 
VARIAVEL Z_DIVEXCL = 0 
VARIAVEL Z_fORN = 0 
VARIAVEL Z_DE = ctod( "01"+substr(dtoc(S_DATUAL),3) ) 
VARIAVEL Z_ATE = S_DATUAL 
VARIAVEL Z_TOTDUP = 0 
VARIAVEL Z_TOTLQD = 0 
VARIAVEL Z_NDUP = 0 
VARIAVEL Z_JUROS = 0 
VARIAVEL Z_dESCONTOS = 0 
VARIAVEL Z_ABERTAS = 0 
 
*T10,10,20,70,("Contas "+Z_TIPOLST) 
T10,10,20,70,"Contas " 
T2,2,Fornecedor:......:,6,z_Forn,99999 
T3,2,Divisao a Incluir:,2,z_divisao,999 
T4,2,Divisao a Excluir:,2,z_divexcl,999 
T5,2,Data Inicial.....:,8,z_de,99.99.99 
T6,2,Data Final.......:,8,z_ate,99.99.99 
 
FILTRO (z_divisao=0.or.z_divisao=cp_divisao).and.(z_forn=0.or.z_forn=CP_COD_FOR).and.(z_divexcl=0.or.cp_divisao<>z_divexcl) 
 
COMANDO DURANTE SCCPFOR->( DBGOTO( SCCPPED->CP_COD_FOR) ) 
COMANDO DURANTE CP_dIVIS->( DbGoto( SCCPPED->CP_DIVISAO) ) 
COMANDO DURANTE Z_STRDIV = LEFT(CP_DIVIS->Desc,1)+SUBSTR(LOWER(CP_DIVIS->DESC),2) 
COMANDO DURANTE Z_NDUP = Z_NDUP + 1 
COMANDO DURANTE Z_TOTDUP = Z_TOTDUP + CP_VALOR 
COMANDO DURANTE Z_TOTLQD = Z_TOTLQD + CP_VAL_LQD 
COMANDO DURANTE Z_ABERTAS = Z_ABERTAS + IF( DAY(CP_DT_LQD)=0, CP_VALOR-CP_VAL_LQD,0) 
COMANDO DURANTE Z_JURO   = IF(CP_VAL_LQD>CP_VALOR,CP_vAL_LQD-CP_VALOR,0) 
COMANDO DURANTE Z_DESCNT = IF(CP_VALOR>CP_VAL_LQD,CP_VALOR-CP_VAL_LQD,0) 
COMANDO DURANTE Z_STRJD = IF(Z_JURO>0,str(z_juro,8,2)+"j",if(z_descnt>0,str(z_descnt,8,2)+"d",spac(9))) 
COMANDO DURANTE Z_JUROS = Z_JUROS + Z_JURO 
COMANDO DURANTE Z_PERC = IF(Z_JURO+Z_DESCONTOS>0.and.cp_valor>0,ABS(CP_VALOR-CP_VAL_LQD)/CP_VALOR*100,0) 
COMANDO DURANTE Z_DESCONTOS = Z_DESCONTOS + Z_DESCNT 
 
C[empresa] 
C[sistema] 
CRelacao de Contas com [Z_TIPOLST] de [z_de] a [z_ate] 
C*** Divisao:[z_divisao 99] Fornecedor:[z_forn 999]    Div.a Excluir:[z_divexcl 99] 
C======================================================================================================================= 
 
FILTROIMP Z_TIPOLST="EMISSOES" 
CEmissao          Valor Fornecedor     Codf  Div.Despesa        Obs                           Dt_Lqd    Dt_Venc     Val_Lqd 
FILTROIMP Z_TIPOLST="LIQUIDACOES" 
CDv Obs                          Dt Lqd         Val_Liqd Jur/Desc % Div.Despesa        Fornecedor      Dt_Emis   Dt_Venc    Val_Emis 
FILTROIMP Z_TIPOLST="VENCIMENTOS" 
CDt_Venc  Obs          Valor   Div.Despesa              Fornecedor      Dt_emis    Dt_Lqd     Val_Lqd Cx
 
C======================================================================================================================= 
 
FILTROIMP Z_TIPOLST="EMISSOES" 
D[cp_dt_emis] [cp_desc] [cp_valor @E 9999,999.99] [sccpfor->cp_fantasi][CP_COD_FOR 999] [cp_divisao 99].[z_strdiv @S09][recn() 99999] [cp_dt_lqd] [cp_dt_venc] [cp_val_lqd @e 9999,999.99] 
FILTROIMP Z_TIPOLST="LIQUIDACOES" 
D[cp_divisao 99] [cp_desc] [cp_dt_lqd] [cp_val_lqd @E 9999,999.99] [z_strjd] [Z_PERC 99.99]% [sccpfor->cp_fantasi] [cp_dt_emis] [cp_dt_venc] [cp_valor @e 9999,999.99] [si_caixa 99]
FILTROIMP Z_TIPOLST="VENCIMENTOS" 
D[cp_dt_Venc] [cp_valor @E 9999,999.99] [cp_divisao 99].[z_strdiv @S15] [cp_desc] [sccpfor->cp_fantasi] [cp_dt_emis] [cp_dt_LQD] [cp_val_lqd @e 9999,999.99] 
 
ULTPAG 
 
FILTROIMP Z_TIPOLST="EMISSOES" 
ULTPAG *** Valor_Emissoes:[z_totdup 9999,999.99]   Valor_Liquidado:[z_totlqd 9999,999.99]   Lancamentos:[z_ndup 9999] 
FILTROIMP Z_TIPOLST="LIQUIDACOES" 
ULTPAG *** Val_Liquid:[z_totlqd 9999,999.99]   Juros:[z_juros 9999,999.99] Descontos:[z_descontos 9999,999.99]   Lancamentos:[z_ndup 9999] 
FILTROIMP Z_TIPOLST="VENCIMENTOS" 
ULTPAG ** Vencimentos:[z_totdup 9999,999]   Val_Abertas:[z_abertas 9999,999]  Liquidacoes:[z_totlqd 9999,999.99]    Lancamentos:[Z_NDUP 9999] 
 
