VB_PCOMP;Compradores de Psicotropicos;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
COMANDO ANTES DBSEEK("A")
:TBMT
 22;tb_insert(D_OB,"VB_PCOMP1");Ins-Inclui ;
 -1;tb_insert(D_OB);F2-Inclui_Ficha ;
 65;tb_update(D_OB);A-Altera ;
  7;tb_del(D_ob);DEL-DELeta ;
 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
Comprador;COMPRADOR;C;@S30; 30;;
Reg.Identidade;CR_RG;C;@S16; 16;;
id;TIPOID;N;99;  2;;
OrgaoExp;ORGAOEXPED;C;@S7;  8;;
UfDoc;UFEXPED;C;xx;  5;;
CodCli;CR_COD_CLI;N;999999;  6;;
Rua;CR_RUA;C;@S30; 30;;
Bairro;CR_BAIRRO;C;@S20; 20;;
Cidade;CR_CIDADE;C;@S20; 20;;