SCCRCLI;Clientes/Empresas Conveniadas;sys_tbbrow; 3; 0;23;79;clientes;;
//WINDOWS 1;1;278;75;Tecle Esc para Retornar;0;0;0;0;S;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL zBlkDel = {||m_fcli:=Recno(),wcAbertas:=0,dup_mais_ant(@m_fcli,@wcAbertas),if(wcAbertas>0,Alert("O Cliente NAO PODE SER CANCELADO pois possui debitos em aberto!"),SccrCli->(Tb_Del(W_dOb))) }
:TBMT
 22;tb_insert(D_OB);Ins-Inclui ;
 65;tb_update(D_OB);A-Altera ;
  7;Eval(zBlkDel);Del-Exclui ;
 13;doget(D_ob);Enter-Edita ;
 32;tb_cons();Barra-Exibe ;
 73;lst_alias(D_OB);I-Imprime ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 76;tb_locate(D_oB);L-Busca_Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 79;tb_index(D_OB);O-Ordena ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;
:TBFI
CGC/CPF;Cr_cgc;C;@s18;18;N;
Nome;Cr_nome;C;@s20;20;N;
CEP;Cr_CEP;C;@s9;9;N;
IBGE;Cr_ibge;N;99999999;8;S;
UF;Cr_UF;C;xx;2;S;
Cidade;Cr_cidade;C;@s20;15;S;
Cod;rec_del();C;99999x;6;N;
Bairro;Cr_bairro;C;@s12;12;S;
Ult Comp;tv_desd(recno());C;@s9;9;;
Rua;Cr_rua;C;@s25;20;N;
T;cr_tip_cli;C;9;1;N;
Vd;CR_ZONA;C;99;2;N;
Fone;Cr_fone;C;@s14;14;N;
Contato;Cr_contato;C;@s15;15;N;
Fantasia;Cr_fantasi;C;@s30;30;N;
