SCCRCLI;Clientes Com Debitos Pendentes;sys_tbbrow; 8;0;20;79;clitv;;eval(z_blockPpo);
:SKEL
VARIAVEL Z_BlockDta = {|x_cli| sd_clicb->(dbseek(x_cli)), sd_clicb->z_mais_ant }

VARIAVEL Z_NIL=DbClearIndex()
VARIAVEL Z_XTELA = SAVESCREEN(0,25,5,79)

VARIAVEL z_blockPpo = "sd_clicb->(DbSeek(Sccrcli->(Recn()))),"
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 + '"("+Str(Sccrcli->z_anc,4)+" pagas com "+str(Sccrcli->z_pmvv,7,2)+" dias )" ),'
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,"SD_CLICB", "SD_CLICB", "SD_CLICB", "CR_COD_CLI")
COMANDO ANTES Z_NIL = DbSelectArea("SCCRCLI")
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;Cr_Abc+" "+Cr_nome;C;@s35; 31;;
Fone;Cr_fone;C;@s10; 10;;
Debito;cr_cota;N;999999;6;;
Mais Ant;Dma_Str( eval(Z_BlockDta,recn()) );C;@s9;9;N;
Ult Compra;tv_desd(recno());C;@s9;9;N;
Cli Desd;cr_dt_desd;D;;8;;
Cod;rec_del();C;X99999;6;;
Bairro;Cr_bairro;C;@s14; 14;;
T;cr_tip_cli;C;9;  1;;
O;cr_tip_DES;N;9;  1;;
Rua;Cr_rua;C;@s35; 35;;
Ponto Ref;Cr_PONTORE;C;@s30; 30;;
Contato;Cr_contato;C;@s15; 15;;
CGC/CPF;Cr_cgc;C;@s18; 18;;
Cidade;Cr_cidade;C;@s20; 25;;
CEP;Cr_CEP;C;@s9;  9;;
UF;Cr_UF;C;xx;  2;;
