SCCPFOR;Cadastro de Fornecedores;sys_tbbrow; 8; 0;18;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
:TBMT
 22;tb_insert(D_OB);Ins-Inclui ;
 65;tb_update(D_OB);A-Altera ;
 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;CP_cgc;C;@s18;18;N;
Nome;CP_nome;C;@s20;20;N;
CEP;CP_CEP;C;@s9;9;N;
IBGE;CP_ibge;N;99999999;8;S;
UF;CP_UF;C;xx;2;S;
Cidade;CP_cidade;C;@s20;15;S;
Fone;CP_FONE;C;@s13; 13;;
Fantasia;CP_FANTASI;C;@s15; 15;;
Contato;CP_CONTATO;C;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx; 60;;
Rua;CP_RUA;C;@s35; 35;;
Bairro;CP_BAIRRO;C;xxxxxxxxxxxxxxxxxxxx; 20;;
%ICMs;CP_Taxaicm;N;99.99;5;;
Telex;CP_TELEX;C;xxxxxxxx;  8;;
FAX;CP_FAX;C;xxxxxxxxxxxxx; 13;;
Insc Est;CP_INSC_ES;C;xxxxxxxxxxxxxxxxxxxx; 20;;
Cod;Rec_Del();P;X99999;  6;N;
