VARIAVEL LST_TP    = 60
VARIAVEL Z_NCHQ    = 0
VARIAVEL z_totch   = 0
VARIAVEL z_sp      = 0
VARIAVEL z_przmed  = 0
VARIAVEL Z_JUROS   = 0
VARIAVEL Z_TAXA    = 3
VARIAVEL Z_DATAini = DATE()
VARIAVEL z_datafim = DATE()
VARIAVEL Z_REGINI  = RECC()-1000

T10,10,20,70,Parametros
T2,10,Data de Devolucao Inicial:,8,z_dataini,99.99.9999
T3,10,Data de Devolucao Final..:,8,z_datafim,99.99.9999
T5,10,Registro Inicial.........:,6,z_regini,999999

COMANDO ANTES __SetCentury("on")
COMANDO ANTES DBGOTO(Z_regini)
FILTRO sitcheque="D".and.DATAdev>=Z_DATAINI.And.DATAdev<=z_datafim

COMANDO DURANTE Z_ACESSO = RECNO()
COMANDO DURANTE z_nchq   = z_nchq + 1
COMANDO DURANTE z_totch  = z_totch   + valor
COMANDO DURANTE z_prazo  = BOMPARADIA-z_datafim
COMANDO DURANTE z_sp     = z_sp + valor * (BOMPARADIA-z_datafim)
COMANDO DURANTE z_JUR    = valor * z_prazo * z_taxa / 30 / 100
COMANDO DURANTE Z_JUR    = IF(Z_JUR<0,0,Z_JUR)
COMANDO DURANTE z_JUROS  = z_JUROS + Z_JUR

ARQTMP CHQ_DIGI [data] [z_Acesso 999999] [CR_CGC @s18] [CR_NOME @S35] [BANCO_Cli] [nCHEQUE 999999] [valor @e 999,999.99]  [bomparadia] [z_prazo 9999] [datadev] [datadeposi]

COMANDO DEPOIS  z_przmed = iif(z_totch>0, z_sp/z_totch, 0)

