PT_PROD;Bens Patrimoniais;sys_tbbrow; 4;10;20;79;padrao;;
: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)
:TBMT
 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 ;
:TBFI
CdItem;Preffab;C;@S13;13;;
Grupo;PTipo;C;@s10;10;;
Marca;Pref;C;@S15;10;;
Descricao;PDESC;C;@S35;20;;
Fabr;Pprincforn;N;99999;  5;;
Cod;Pcod;N;9999;4;;
