//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 2; 2;23;73;Clientes/Empresas Conveniadas;;;;;
:SKEL
*VARIAVEL Z_BlockDta = {|x_cli| sd_clicb->(dbseek(x_cli)), sd_clicb->z_mais_ant }
*
*VARIAVEL Z_NIL=DBCLEARIND()
*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= DBCLEARIND()
*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)
*
*OMANDO ANTES m_cr_cobrador = val(cr_zona)
*COMANDO DEPOIS m_cr_zona = strzero(m_cr_cobrador,2)
*COMANDO DEPOIS z_nil = RegLock()
*COMANDO DEPOIS z_nil = PUT_VAR("cr_zona",m_cr_zona)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Codigo.:;N; 5;Cr_cod_cli;99999;recno_cli("ANTES").and..f.;;;;N;; 0; 0;;;
 1; 2;20;Nome.:;C;30;Cr_nome;@s30;;;;;N;; 0; 0;;;
 1; 4; 2;Rua....:;C;35;Cr_rua;@s35;;;;;N;; 0; 0;;;
 1; 5; 2;Bairro.:;C;20;Cr_bairro;@s20;;;;;N;; 0; 0;;;
 1; 5;35;CGC/CPF:;C;18;Cr_cgc;@s18;;;;;N;; 0; 0;;;
 1; 6; 2;Cidade.:;C;20;Cr_cidade;@s20;;;;;N;; 0; 0;;;
 1; 6;35;CEP....:;C; 9;Cr_cEP;99999-999;;;;;N;; 0; 0;;;
 1; 7; 2;Fone...:;C;15;Cr_fone;@s15;;;;;N;; 0; 0;;;
 1; 7;35;UF.....:;C; 2;Cr_UF;!!;;;;;N;; 0; 0;;;
 1; 9; 2;Contato....:;C;15;Cr_contato;@s15;;;;;N;; 0; 0;;;
 1; 9;35;Obs....:;M;10;CR_OBS;9Memo];;Editor(@m_cr_obs,"",5,40,20,75);;;N;;0;0;;;
 1;10; 2;Ponto Ref..:;C;40;Cr_pontore;@s40;;;;;N;; 0; 0;;;
 1;11; 2;Lim Credito:;N;10;Cr_limite;99999.99;;;;;N;; 0; 0;;;
 1;11;30;Atraso Permitido em Dias:;N;2;cr_limpra;999;;;
 1;13; 2;Responsavel:;P; 3;m_cr_cobrador;999;;psq_brow;vb_cobra;pvbcobra;N;N;13;21;nome;@s12;
 1;13;35;Dt Aniver.;D; 8;Cr_dt_ani;99.99.99;;;;;;N;; 0; 0;;;
 1;14; 2;Tp Cliente.:;C; 1;Cr_tip_cli;9;;;;;N;; 0; 0;;;
 1;14;35;Opcao de Venda.:;N; 2;Cr_tip_des;99;;psq_brow;vb_conv;vb_conv;N;N; 0; 0;;;
 1;16; 2;OuroCard:;C;20;CR_CART1;;;;;;N;; 0; 0;;;
 1;16;35;Credcard:;C;20;CR_CART2;;;;;;N;; 0; 0;;;
 1;17; 2;Dinners.:;C;20;CR_CART3;;;;;;N;; 0; 0;;;
 1;17;35;HiperCar:;C;20;CR_CART4;;;;;;N;; 0; 0;;;
 1;18; 2;Visa....:;C;20;CR_CART5;;;;;;N;; 0; 0;;;
 1;18;35;VisaElet:;C;20;CR_CART6;;;;;;N;; 0; 0;;;
 1;19; 2;Redeshop:;C;20;CR_CART5;;;;;;N;; 0; 0;;;
 1;19;35;A.Expres:;C;20;CR_CART6;;;;;;N;; 0; 0;;;
