SCCRCLI;Clientes Com Debitos Pendentes;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_NIL=DbClearIndex()
VARIAVEL Z_XTELA = SAVESCREEN(0,25,5,79)

*VARIAVEL z_blockPpo = "sd_clicb->(DbSeek(Sccrcli->(Recn()))),"
VARIAVEL z_blockPpo = "Z_COR:=SetColor('B/W')"
*VARIAVEL z_blockPpo = 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(sd_clicb->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(sd_clicb->z_nc,4)+" abertas ha "+str(sd_clicb->z_pmvv1,7,2)+" dias )  (Desde:"+Dtoc(sd_clicb->z_mais_ant)+")"),'
*VARIAVEL z_blockPpo = z_blockPpo + 'DevPos(2,27),DevOut("("+Str(sd_clicb->z_anc,4)+" pagas com  "+str(sd_clicb->z_pmvv,7,2)+" dias )"),'
*VARIAVEL z_blockPpo = z_blockPpo + 'DevPos(3,27),DevOut("Contactado em "+Dtoc(sd_clicb->cr_dt_cont)+", Carta "+sd_clicb->cr_tip_car+" em "+Dtoc(sd_clicb->cr_dt_cart)),'
*VARIAVEL z_blockPpo = z_blockPpo + 'DevPos(4,27),DevOut(sd_clicb->cr_obs1),'
*VARIAVEL z_blockPpo = z_blockPpo + "SetColor(Z_COR)"
VARIAVEL z_blockPpo = _CreateBlock( z_blockPpo )

*COMANDO ANTES Z_FGCRIA = !file(R_SIGA-"ntx\$CLICB"-ORDBAGEXT()).or.SIMNAO(24,0,"Reclassifico Cadastro de Devedores ?  ","Sim ","Nao ",1,0)
COMANDO ANTES Z_NIL = ABRA("0RO",R_Siga,"Sccrcli", "Sccrcli")
COMANDO ANTES Z_NIL = DbSelectArea("SD_CLICB")
*COMANDO ANTES Z_NIL = if(Z_FGCRIA,Mensagem("Aguarde...Classificando Clientes Com Debitos..."),.f.)
*COMANDO ANTES Z_NIL = if(Z_FGCRIA,ordCondSet( 'cr_situaca="B".OR. sd_clicb->(DbSeek(Sccrcli->(Recn())))', _CreateBlock('cr_situaca="B".OR. sd_clicb->(DbSeek(Sccrcli->(Recn())))'),,,,, RECNO()),.f.)
*COMANDO ANTES Z_NIL = if(Z_FGCRIA,ordCreate("ntx\$CLICB",,"cr_nome", _CreateBlock('cr_nome')) , DbSetIndex(r_siga-"ntx\$clicb") )
*COMANDO ANTES Z_NIL = DbSetFilter( _CreateBlock("cr_cota>0"), "cr_cota>0")
*COMANDO ANTES Z_NIL = DbGoTop()
*COMANDO DEPOIS Z_NIL= DbClearIndex()
*COMANDO DEPOIS Z_NIL = SD_CLICB->( DbCloseArea() )
*- COMANDO DEPOIS Z_NIL = FERASE(R_SIGA-"ntx\$CLICB"-ORDBAGEXT())

COMANDO DEPOIS Z_NIL = RESTSCREEN(0,25,5,79,Z_XTELA)
:TBMT
 -7;Relat( "vb_r5(.f.,"+str(recno(),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
* Nome;eval(Z_BlockDta,cr_cod_cli);C;@s35; 31;;
Lembrete;Cr_Obs2;C;@s40;40;S;
Debito;Str(z_abertas,6)+" ("+str(z_anc,4)+")";N;999999;6;;
Mais Ant;Dma_Str( z_mais_ant );C;@s9;9;N;
DtContato;Cr_dt_pcon;D;;8;;
Fone;Sccrcli->Cr_fone;C;@s10; 10;;
Cli Desd;sccrcli->cr_dt_desd;D;;8;;
Cod;Sccrcli->(rec_del());C;X99999;6;;
