SCCRCLI;Clientes em Cobranca Juridica;sys_tbbrow; 8;0;20;79;clitv;;eval(z_blockPpo);
:SKEL
VARIAVEL Z_BlockDta = {|x_cli| sccrcli->(DbGoto(x_cli)),sccrcli->Cr_Abc+" "+sccrcli->Cr_nome}

VARIAVEL z_xtela = SAVESCREEN(0,25,5,79)
VARIAVEL z_blockPpo = "Z_COR:=SetColor('B/W'),"
VARIAVEL z_blockPpo = z_blockPpo + "Scroll(0,25,5,79,0),DispBox(0,25,5,79),"
VARIAVEL z_blockPpo = z_blockPpo + 'DevPos(0,27),DevOut("R$ "+Padr(Ltrim(Str(z_abertas,10,2)),10)+" (Cli "+Str(Sccrcli->(Recn()),4)+") "+Alltrim(Left(Sccrcli->Cr_Nome,26))),'
VARIAVEL z_blockPpo = z_blockPpo + 'DevPos(1,27),DevOut("("+Str(z_nc,4)+" abertas ha "+str(z_pmvv1,7,2)+" dias )  (Desde:"+Dtoc(z_mais_ant)+")"),'
VARIAVEL z_blockPpo = z_blockPpo + 'DevPos(2,27),DevOut("("+Str(z_anc,4)+" pagas com  "+str(z_pmvv,7,2)+" dias )"),'
VARIAVEL z_blockPpo = z_blockPpo + 'DevPos(3,27),DevOut("Contactado em "+Dtoc(cr_dt_cont)+", Carta "+cr_tip_car+" em "+Dtoc(cr_dt_cart)),'
VARIAVEL z_blockPpo = z_blockPpo + 'DevPos(4,27),DevOut(cr_obs1),'
VARIAVEL z_blockPpo = z_blockPpo + "SetColor(Z_COR)"
VARIAVEL z_blockPpo = _CreateBlock( z_blockPpo )

COMANDO ANTES z_nil = ABRA("0",R_Siga,"Sccrcli", "Sccrcli")
COMANDO ANTES z_nil = DbSelectArea("SD_CLICB")
COMANDO ANTES z_nil = DbSetFilter( _CreateBlock('cr_situaca="B".and.(day(cr_dt_pcon)=0.or.cr_dt_pcon<=s_datual)'), 'cr_situaca="B".and.(day(cr_dt_pcon)=0.or.cr_dt_pcon<=s_datual)')
COMANDO ANTES z_nil = DbGoTop()
COMANDO ANTES z_nil = If(cr_dtproc=s_datual,"",Mensagem("Preparando agenda de cobranca para o dia..."))
COMANDO ANTES z_nil = If(cr_dtproc=s_datual,"",DBEval( _CreateBlock('_FIELD->cr_dtproc:=s_datual,_FIELD->Cr_SitTmp:=" "'),,,,,.F.))
COMANDO ANTES z_nil = Agc_ordem()
COMANDO ANTES z_nil = DbGoTop()
COMANDO DEPOIS z_nil = Sccrcli->( DbCloseArea() )
COMANDO DEPOIS z_nil = RESTSCREEN(0,25,5,79,z_xtela)

:TBMT
 13;agc_dirigida(D_oB,cr_cod_cli);Enter-Inicia_Cobranca ;
 -7;Relat( "vb_r5(.f.,"+str(cr_cod_cli,5)+")",,"SemDbCloseall" );F8-Extrato de Produtos;
 81;vb_quit_dupl(D_oB,.t.,.t.);Q-Prejuizo ;
 69;vb_dup_cli();E-Extrato ;
 79;tb_index(D_oB);O-Ordena ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 76;tb_locate(D_OB);L-Localiza ;
 65;tb_update(D_OB);A-Altera;
:TBFI
S;CR_SITTmp;C;!;1;S;
* Nome;eval(Z_BlockDta,cr_cod_cli);C;@s15;15;N;
Debito;Str(z_abertas,6)+" ("+str(z_nc,4)+")";C;@s13;13;N;
Mais Ant;Dma_Str(z_mais_ant);C;@s9;9;N;
DtContat;Cr_dt_cont;D;;8;N;
DtCarta;CR_DT_CART;D;;8;N;
m;CR_TIP_CAR;C;9;2;S;
ProxCont;Cr_dt_pcon;D;;8;S;
ProxCart;CR_DT_Pcar;D;;8;S;
Resumo do Contato;CR_OBS1;C;@S50; 50;S;
Fone;Sccrcli->Cr_fone;C;@s10; 10;N;
Cod;Cr_Cod_Cli;C;999999;6;N;
Cli Desd;sccrcli->cr_dt_desd;D;;8;N;
InicioCob;CR_DT_DESD;D;;9;N;
UltProc;CR_DT_ULTI;D;;  8;;
