//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 2; 2;22;73;Clientes/Empresas Conveniadas;;;;recno_cli("DEPOIS");
:SKEL
variavel m_cr_cep = if(!"-"$m_cr_cep, left(m_cr_cep,5)+"-"+SubStr(m_cr_cep,6,3), m_cr_cep)
COMANDO ANTES M_cr_cod_cli = if(x_operacao=1, reccount()+1, M_cr_cod_cli)
COMANDO 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)
COMANDO ANTES zfglimite = .F.
COMANDO ANTES m_cr_tip_des = if(m_cr_tip_des=0,2,m_cr_tip_des)
// 1; 6;28;Bairro:;C;20;Cr_bairro;@!S20;;psq_brow;vb_bairr;pvbbairr;N;S;;;;; 
: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;22;Nome:;C;30;Cr_nome;@!30;;;;;N;; 0; 0;;;
 1; 4; 2;Rua.....:;C;35;Cr_rua;@!S35;;;;;N;; 0; 0;;;
 1; 4;54;Numero:;C;6;Cr_NUMRUA;@s6;;;;;N;; 0; 0;;;  
 1; 5; 2;PontoRef:;C;50;Cr_pontore;@!50;;;;;N;; 0; 0;;;
 
 1; 6; 2;CEP.....:;C; 9;Cr_cEP;99999-999;;CepCli();;;N;; 0; 0;;;
 1; 6;28;Bairro:;C;20;Cr_bairro;@!S20;empty(m_cr_cep);;;; 
 1; 6;62;UF:;C; 2;Cr_UF;!!;empty(m_cr_cep);listbox 3,8,wUfs;;;
 
 1; 7; 2;Cidade..:;C;25;Cr_cidade;@!S25;empty(m_cr_cep);ChecaCidadeIbge(m_cr_Uf,m_Cr_cidade);;;
 
 1; 7;52;CodIBGE:;N;7;Cr_ibge;9999999;;ChecaCidadeIbge(,,m_cr_ibge);;;;;

 1; 9; 2;Fone....:;C;15;Cr_fone;@s15;;;;;N;; 0; 0;;;
 1; 9;35;Contato:;C;15;Cr_contato;@s15;;;;;N;; 0; 0;;;

 1;10; 2;CGC/CPF :;C;18;Cr_cgc;@s18;;alltrim(m_cr_cgc)="".or.cpf_ok(m_cr_cgc).or.cgc_ok(m_cr_cgc);;;N;; 0; 0;;;
 1;10;35;InscEst:;C;20;Cr_insc_es;@s20;;;;;N;; 0; 0;;;
 
 1;12; 2;Email...:;C;56;Cr_email;@s56;;;;;N;; 0; 0;;;
 1;14; 2;Lim Credito:;N;10;Cr_limite;99999.99;zfglimite;;;;N;; 0; 0;;;
 1;14;38;Atraso Permitido em Dias:;N;2;cr_limpra;999;zfglimite;;
 1;15; 2;Responsavel:;P; 3;m_cr_cobrador;999;;psq_brow;vb_cobra;pvbcobra;N;N;15;21;nome;@s12;
 1;15;38;Data de Aniversario:;D; 8;Cr_dt_ani;99.99.99;;;;;;N;; 0; 0;;;
 1;16; 2;Tp Cliente.:;C; 1;Cr_tip_cli;9;;;;;N;; 0; 0;;;
 1;16;38;Observacoes:;M;10;CR_OBS;9Memo];;Editor(@m_cr_obs,"",5,40,20,75);;;N;;0;0;;;
 1;17; 2;Sit.Credito:;C; 1;Cr_situaca;!;;;;;N;; 0; 0;;;
 1;17;38;Opcao de Venda.:;N; 2;Cr_tip_des;99;;psq_brow;vb_conv;pvbconv;N;N; 0; 0;;;