INDEX TEMP0001 bomparadia
OUTROARQ sccrcli
VARIAVEL Z_CLI     = 1
VARIAVEL z_abertas = 0
VARIAVEL Z_NCHQ    = 0
VARIAVEL z_przmed  = 0
VARIAVEL z_sv      = 0
VARIAVEL z_sp      = 0
VARIAVEL z_taxa    = 6
VARIAVEL Z_JUROS   = 0
VARIAVEL Z_DATABASE = DATE()

COMANDO ANTES SCCRCLI->( DBGOTO(Z_CLI) )
COMANDO ANTES Z_TAXA = Z_TAXA / 100
COMANDO DURANTE z_abertas = z_abertas + valor
COMANDO DURANTE z_nchq    = z_nchq + 1
COMANDO DURANTE z_sp      = z_sp     + valor * (bomparadia-z_database)
COMANDO DEPOIS  z_przmed  = iif(z_abertas>0, z_sp/z_abertas, 0)
COMANDO DURANTE z_JUROS   = z_JUROS  + valor * (bomparadia-z_database) * Z_TAXA / 30
COMANDO DURANTE z_JUR = valor * (bomparadia-s_datual) * Z_TAXA / 30
COMANDO DURANTE Z_JUR = IF(Z_JUR>0,Z_JUR,0)

T10,10,20,70,Cliente
T2,5,Codigo do Cliente.:,4,z_cli,9999
T3,5,Taxa de Juros.....:,4,z_taxa,99.9
T4,5,Data de Referencia:,8,z_database,99.99.99

C
CRelacao de Cheques 001                               em [date()]
CCliente: 0850 - Farmacias Dia e Noite                   
C[repl("-",132)]
C NumChq  DataRec  BomPara               Valor     Juros    Observacoes
C[REPL("=",132)]
D [ncheque 999999] [data] [bomparadia] [bomparadia-z_database 999] dias  [valor @E 99,999.99]  [Z_jur @E 9,999.99] [descricao] [doc]
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]
