INDEX TEMPDV01 STR(CP_DIVISAO,3)+STR(CP_COD_FOR,4)+DTOS(CP_DT_EMIS)
OUTROARQ SCCPFOR
*- OUTROARQ CP_DIVIS

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

T10,10,20,70,Parametros
T2,2,Fornecedor:......:,3,z_Forn,999
T3,2,Divisao a Incluir:,2,z_divisao,99
T4,2,Divisao a Excluir:,2,z_divexcl,99
T5,2,Emissao Inicial..:,8,z_de,99.99.99
T6,2,Emissao Final....:,8,z_ate,99.99.99

FILTRO LEFT(CP_NUM_PED,2)="CF".and.CP_DT_EMIS>=Z_DE.AND.CP_DT_EMIS<=Z_ATE.AND.(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

C[empresa]
C[sistema]
CRelacao de Contas Emitidas, com Emissoes de [z_de] a [z_ate]
C*** Divisao:[z_divisao 99] Fornecedor:[z_forn 999]    Div.a Excluir:[z_divexcl 99]
C==========================================================================================================================
CEmissao          Valor Fornecedor     Codf  Div.Despesa        Obs                           Dt_Lqd    Dt_Venc     Val_Lqd
C==========================================================================================================================
D[cp_dt_emis] [cp_valor @E 9999,999.99] [sccpfor->cp_fantasi][CP_COD_FOR 999] [cp_divisao 99].[z_strdiv @S15] [cp_desc] [cp_dt_lqd] [cp_dt_venc] [cp_val_lqd @e 9999,999.99]
ULTPAG
ULTPAG *** Valor_Emissoes:[z_totdup 9999,999.99]   Valor_Liquidado:[z_totlqd 9999,999.99]   Lancamentos:[z_ndup 9999]

INCLUDE cpfx01.lst
