INDEX TEMP0001 datapdepos
VARIAVEL     z_abertas = 0
VARIAVEL     Z_NCHQ = 0
VARIAVEL LST_TP = 55
VARIAVEL z_desc45 = 0
VARIAVEL z_desc30 = 0
VARIAVEL z_przmed = 0
VARIAVEL z_sv = 0
VARIAVEL z_sp = 0
VARIAVEL z_taxa   = 3/100
VARIAVEL Z_JUROS = 0
VARIAVEL z_tx45   = z_taxa / 45
VARIAVEL z_tx30   = z_taxa / 30
#OMANDO ANTES DBGOTO( 25000 )
COMANDO DURANTE z_abertas = z_abertas + valor
COMANDO DURANTE z_nchq    = z_nchq + 1
COMANDO DURANTE z_desc45  = z_desc45 + valor * (datapdepos-s_datual) * z_tx45
COMANDO DURANTE z_desc30  = z_desc30 + valor * (datapdepos-s_datual) * z_tx30
COMANDO DURANTE z_sp      = z_sp     + valor * (datapdepos-s_datual)
COMANDO DEPOIS  z_przmed  = iif(z_abertas>0, z_sp/z_abertas, 0)
*COMANDO DEPOIS  z_descpm  = z_descpm + z_przmed*z_abertas*z_tx45 
COMANDO DURANTE z_JUROS   = z_JUROS  + valor * (datapdepos-s_datual) * Z_TAXA / 30
COMANDO DURANTE z_JUR   = valor * (datapdepos-s_datual) * Z_TAXA / 30
* FILTRO SITCHEQUE="T"
C
C H.A.BRITO COMERCIO S/A
C BR 230  KM 13  ESTRADA DE CABEDELO
C Insc Est: 16.078.348-8    C.G.C: 09.135.625/0001-35
C
C RELACAO DE CHEQUES TROCADOS P/ A DROGARIA ENCRUZILHADA LTDA
C
C Bco         NumChq     BomPara                 Valor    
C
D [banco 999]         [NUMEROCH 999999]    [DATAPDEPOS] [datapdepos-s_datual 999] dias   [valor @E 9999,999.99]  [Z_jur @E 9,999.99]
ULTPAG 
ULTPAG Numero de Cheques...........:      [z_nchq 999999]
ULTPAG Valor Total dos Cheques ....: [z_abertas @E 9999,999.99]
*LTPAG Desconto com Taxa de 45 dias: [z_desc45 @E 9999,999.99]        Valor a Receber: [z_abertas-z_desc45 @E 9999,999.99]
*LTPAG Desconto com Taxa de 30 dias: [z_desc30 @E 9999,999.99]        Valor a Receber: [z_abertas-z_desc30 @E 9999,999.99]
ULTPAG Prazo Medio ................:      [z_przmed @E 999.99] dias
ULTPAG Total dos Juros ............: [z_juros @E 9999,999.99]
ULTPAG Valor Liquido ..............: [z_abertas-z_juros @E 9999,999.99]
