INDEX    Sccrdup StrZero(Cr_Cod_Cli,5)+Dtos(Cr_Dt_Emis)
OUTROARQ Sccrcli
OUTROARQ lojas lojas cr_local
OUTROARQ (Sf_Fat) (Sf_Fat-".p") FNUMPED

VARIAVEL LST_TP    = 999
VARIAVEL Z_PARCELA = 0
VARIAVEL Z_DUPL    = 0
VARIAVEL Z_CLI     = 0

COMANDO ANTES sccrcli->( DbGoto( z_cli ))
COMANDO ANTES sf_fat->( DbSeek( z_dupl ))
COMANDO ANTES z_valtot = sf_Fat->fval
COMANDO ANTES sccrdup->( DbSeek( strzero(z_Cli,5) ))
*---
*--- A linha seguinte controla o tamanho da pagina, com relacao aos saltos
*--- COMANDO ANTES DevOut( chr(27)+"C"+chr(18) )
*--- A linha seguinte elimina os espacos entre uma linha e outra
*--- COMANDO ANTES DevOut( Chr(27)+"0" )
*--- A linha seguinte evita o eject
*--- COMANDO ANTES SetPos(prow(),pcol())
COMANDO ANTES DevOut( chr(15) )
*---
COMANDO DURANTE z_parcela = z_parcela + 1
COMANDO DURANTE lojas->( DbSeek(sccrdup->cr_local) )

REPITA ENQUANTO z_cli = cr_cod_cli
FILTRO z_dupl = val(left(cr_num_ped,6))

T10,30,16,70,Cliente e Duplicata
T2,2,Cliente...:,5,z_cli,99999
T3,2,Carne.....:,6,z_dupl,999999

D[lojas->cr_nome]   [cr_dt_venc]
D[lojas->cr_nome]   [cr_num_ped]
D[z_valtot 999,999.99] Carne [z_parcela 99] [cr_valor 999,999.99]
D[sccrcli->cr_nome @S30]
D[sccrcli->cr_rua @S30]
D[cr_dt_emis]
D** OBS
D** OBS
D** OBS
D
D
D