OUTROARQ SCCRCLI
OUTROARQ sccrdup sccrdup strzero(cr_cod_cli,5)+dtos(cr_dt_emis)

VARIAVEL LST_TP = 62
VARIAVEL Z_UN = 0
VARIAVEL Z_UN1 = 0
VARIAVEL Z_DIAS = 0

VARIAVEL z_selauto="S"
VARIAVEL Z_TIPO  = " "
T8,5,16,78,Parametros
T2,2,Seleciona automaticamente o tipo de carta...................?,1,z_selauto,!
T3,2,Imprime apenas o modelo seguinte (sem reprogramar novo tipo):,1,z_tipo,9,z_selauto<>"S";
T5,2,Clientes com Compras com mais de quantos dias de atraso.....?,3,z_dias,999,;z_dias>0;

FILTRO Z_TIPO=" " .OR. CR_TIP_CART=Z_TIPO
FILTRO geracarta( sd_clicb->cr_cod_cli , "M", z_dias )

COMANDO DURANTE Sccrcli->(DbGoto(Sd_Clicb->Cr_cod_Cli))
COMANDO DURANTE Z_UN = Z_UN + 1
COMANDO DURANTE Z_UN1 = Z_UN1 + Z_ABERTAS

CRela‡Æo de Clientes com Cartas de Cobran‡a para Hoje, emitida em [s_datual] as [time()]hs       Pag[pag 999]
C*** Selecionados Clientes com titulos com atrasos a partir de [z_dias 999] dias
C===================================================================================================================================
CNome do Cliente                        Abertas Quant    Desde Tip DtUlti     Rua                                   Bairro
C===================================================================================================================================
*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXXXX   XXXXXXXXXXXX   XXX
D[Sccrcli->cr_nome @s35] [z_abertas 999,999.99] ([Z_NC 999]) [z_mais_ant] [cr_tip_car] [cr_dt_cart] [sccrcli->cr_Rua] [SccrCli->Cr_Bairro]
ULTPAG
ULTPAG===================================================================================================================================
ULTPAG Total de Clientes ====> [z_un 9999]        Total em Dinheiro =====> [z_un1 @E 999,999,999.99]
ULTPAG===================================================================================================================================
ULTPAG
