INDEX SCCRRC2 str(numerorc,6)
VARIAVEL LST_TP = 55
VARIAVEL z_abertas = 0
VARIAVEL Z_NCHQ = 0
VARIAVEL z_datarec = S_DATUAL
VARIAVEL z_przmed = 0
VARIAVEL z_sv = 0
VARIAVEL z_sp = 0
VARIAVEL z_taxa   = 3/100
VARIAVEL z_juros  = 0
COMANDO ANTES   DbSeek( Str(284,6) )
COMANDO DURANTE z_abertas = z_abertas + valor
COMANDO DURANTE z_nchq    = z_nchq + 1
COMANDO DURANTE z_prazo   = datadep-z_datarec
COMANDO DURANTE z_taxa = 3.15/100
COMANDO DURANTE z_taxa = if( z_prazo>=32.and.z_prazo<=35 , z_faixa5, z_taxa )
COMANDO DURANTE z_taxa = if( z_prazo>=30.and.z_prazo<=31 , z_faixa4, z_taxa )
COMANDO DURANTE z_taxa = if( z_prazo>=22.and.z_prazo<=29 , z_faixa3, z_taxa )
COMANDO DURANTE z_taxa = if( z_prazo>=15.and.z_prazo<=21 , z_faixa2, z_taxa )
COMANDO DURANTE z_taxa = if( z_prazo>=7 .and.z_prazo<=14 , z_faixa1, z_taxa )
COMANDO DURANTE z_sp   = z_sp + valor * (datadep-z_datarec)
COMANDO DEPOIS  z_przmed = iif(z_abertas>0, z_sp/z_abertas, 0)
COMANDO DURANTE z_cheque = strzero( val(documento) ,6)
COMANDO DURANTE z_JUROS = z_JUROS  + valor * z_prazo * z_taxa / 30
COMANDO DURANTE z_JUR   = valor * z_prazo * z_taxa / 30
COMANDO DURANTE Z_JUR   = IF(Z_JUR<0,0,Z_JUR)

REPITA ENQUANTO NUMERORC=284
FILTRO TIPOLAN="C"

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 PARA TROCAS
C
C Bco  NumChq   BomPara                     Valor       Juros
C
D [banco 999]  [Z_CHEQUE 999999]  [DATADEP]  [z_prazo 999] dias     [valor @E 9999,999.99]    [Z_jur @E 9,999.99] [Z_TAXA*100 9.99%]
ULTPAG
ULTPAG Numero de Cheques...........:      [z_nchq 999999]
ULTPAG Valor Total dos Cheques ....: [z_abertas @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]
