PT_PROD;Bens Cadastrados;sys_tbbrow; 3; 5;10;79;psq_brow;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL zBlkSubitem = _CreateBlock( "wPTSUBITEM:=Pt_Item,z_recn:=recn(),zidxord:=indexord(),DbSetOrder(3),Brow_Db('PT_IPROD',.t.),DbSetOrder(zidxord),dbgoto(z_recn)" )
COMANDO ANTES Z_NIL = DbSetFilter( _CreateBlock("empty(PT_SUBITEM)"), "empty(PT_SUBITEM)")
COMANDO ANTES Z_NIL = DbSkip(0)
// 13;eval(zBlkSubitem);Enter-Subitens ;
// 32;doget(D_ob);Barra-Edita ;
//  7;tb_del(D_ob);DEL-DELeta ;
// 65;tb_update(D_OB);A-Altera ;
// 22;tb_insert(D_OB);Ins-Inclui ;
// 80;tb_pesq(D_OB);P-Pesquisa ;
// 79;tb_index(D_OB);O-Ordena ;
// 73;lst_alias(D_OB);I-Imprime ;
// 70;tb_filter(d_ob);F-Filtra ;
//:TBMT
:TBFI
Grupo;PT_GRUPO;C;@s10;10;;
Marca;PT_MARCA;C;@S15;10;;
Descricao;PT_DESC;C;@S35;20;;
CdItem;PT_ITEM;C;@S13;13;;
Fabr;PT_Fabr;N;99999;  5;;




:TBMT
 13;ret_pcod();Enter-Aceita Produto;
 80;psq_prod("P",D_oB);P-Psq_Cod_Nome;
 63;tv_interroga();?-Indicacoes;
 22;tb_insert(D_OB);Ins-Inclui ;
 65;tb_update(D_OB);A-Altera ;
 67;tb_locate(D_OB);C-Continua_Busca ;
 84;tb_locate(D_OB);T-Busca_Trecho ;
 76;tb_locate(D_OB);L-Busca_Iniciais ;
:TBFI
RefFab;PrefFab;C;@s10;10;S;
Descricao;PDESC;C;@s26; 26;;
Cor;pcor;C;@s12;12;;
Cod;PCOD;N;99999; 5;;
Cod Barra;Pdic6;N;9999999999999;13;;
CodF;PcProdForn;N;999999;6;;
Fab;PprincForn;N;9999;4;;
DataCad;Pdatachega;D;;8;;
Grade;Pgrade;C;@s6;6;S;
