PT_QPROD;Subitem de SubItem de Bem Patrimonial;skip_blk(x);4;16;16;77;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL z_arr_nulo = {}
VARIAVEL zSelBens = Select()

VARIAVEL w_mensagem = "Sem mais SubItens do SubItem"
VARIAVEL w_chave = wItem
VARIAVEL w_block = {|| w_chave <> PT_SUBITEM }
COMANDO ANTES zFgIncluir = ( .not.dbseek(w_chave) )
COMANDO ANTES znil = if( zFgIncluir, tb_insert(w_dOB) , "")
COMANDO ANTES znil = if( zFgIncluir.and..not.dbseek(w_chave), __KeyBoard(Chr(27)) , "") 

COMANDO DEPOIS wItem   = wItemOrig
COMANDO DEPOIS w_mensagem = "Sem mais SubItens"
COMANDO DEPOIS w_chave = wItem
COMANDO DEPOIS w_block = {|| w_chave <> PT_SUBITEM }
//Depto;PT_DEPTO;C;@S15;10;;
//13;eval(zBlkSubitem);Enter-Subitens ;
:TBMT
 22;tb_insert(D_OB);Ins-Inclui ;
 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
Grupo;Ptipo;C;@s10;10;;
Marca;Pref;C;@S15;10;;
Modelo;pmarcamode;C;@S15;10;;
Descricao;PDESC;C;@S35;20;;
Forn;PT_FORN;N;99999;  5;;
Fabr;Pprincforn;N;99999;  5;;
RefPat;preffab;C;@s13; 13;;
ItemBase;PT_SUBITEM;C;xxxxxx;  6;;
Acesso;Pcod;N;999999; 6;;



