OUTROARQ    SCCRCLI
VARIAVEL    z_totch   = 0
VARIAVEL    LST_TP = 60
VARIAVEL    Z_NCHQ = 0
VARIAVEL    Z_DATAdev = date()
VARIAVEL    Z_REGINI  = 1

T10,10,14,60,Parametros
T2,2,Data da Devolucao:,8,z_datadev,99.99.99
T3,2,Acesso Inicial...:,6,z_regini,999999

FILTRO TL="4" .and. sitcheque="X" .and. datadeposi=z_datadev

COMANDO ANTES   DbGoto( z_regini )
COMANDO DURANTE sccrcli->( DbGoto( ct_mov->cli_forn ) )
COMANDO DURANTE z_totch = z_totch + valor
COMANDO DURANTE Z_NCHQ  = Z_NCHQ  + 1

C[EMPRESA]
C[SISTEMA]
C[chr(15)]Relacao de Cheques Devolvidos na data [z_datadev], emitida em [date()], as [time()]                             Pag [Pag 9999]
C[Repl("-",132)]
CCheque  Bco  BomPara   DataDev       Valor  Cliente                                  Observacao
*999999  999  dd.mm.aa  dd.mm.aa 999,999.99  9999-xxxxxxxxxxxxxxxxxxxxxxxxxyyyyyzzzzz xxxxxXXXXXxxxxxXXXXXxxxxx
C[Repl("-",132)]
D[NCHEQUE 999999]  [banco_CLI 999]  [bomparadia]  [DATADEPOSi] [valor @e 999,999.99]  [cli_forn 9999]-[sccrcli->cr_nome @s35] [obs @s30]
ULTPAG
ULTPAG            Numero de Cheques....................: [z_nchq 999999]
ULTPAG            Valor Total .........................: [z_totch @E 9999,999.99]
