PT_IPRO2;Subitens do Bem Patrimonial;sys_tbbrow; 4;0;20;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)

COMANDO ANTES Z_NIL = DbSetFilter( _CreateBlock(".not.empty(PT_SUBITEM)"), ".not.empty(PT_SUBITEM)")
COMANDO ANTES Z_NIL = DbGoTop(0)

 //22;tb_insert(D_OB);Ins-Inclui ;
 //65;tb_update(D_OB);A-Altera ;
:TBMT
 13;doget(D_ob);Enter-Edita ;
 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 ;
  7;tb_del(D_ob);DEL-DELeta ;
:TBFI
Tomb;pdic6;N;999999; 6;;
Setor;PT_Depto;C;@!15; 15;;
Marca;Pref;C;@S15;10;;
Modelo;pmarcamode;C;@S15;10;;
Descricao;PDESC;C;@S35;22;;
Grupo;Ptipo;C;@s10;10;;
Fabr;Pprincforn;N;99999;  5;;
RefPat;preffab;C;@s13; 13;;
ItemBase;PT_SUBITEM;C;xxxxxx;  6;;
Forn;PT_FORN;N;99999;  5;;
Acesso;Pcod;N;999999; 6;;
Cod;Pcod;N;999999;6;;
