PT_IPROD;Subitens do Bem Patrimonial;skip_blk(x);17;18;23;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL z_pt_grupo =  pt_prod->pt_grupo
VARIAVEL z_arr_nulo = {}

VARIAVEL zxvar = 'dbUseArea(.t.,,"pt_kits",,,.F.) ,'
VARIAVEL zxvar = zxvar+'__dbCopy( (r_siga+"tmp\pt_kits"), z_arr_nulo, _CreateBlock("z_pt_grupo=pt_grupo"),,,,.F.,) ,'
VARIAVEL zxvar = zxvar+'dbUseArea(.F.,,(r_siga+"tmp\pt_kits"),,,.F.) ,'
VARIAVEL zxvar = zxvar+'DBEval( _CreateBlock("_FIELD->pt_subitem := z_ptsubitem"),,,,,.F.) ,'
VARIAVEL zxvar = zxvar+'dbCloseArea(), dbSelectArea("pt_bens"), z_fglock:=flock() ,'
VARIAVEL zxvar = zxvar+'if(z_fglock,__dbApp( (r_siga+"tmp\pt_kits"),z_arr_nulo,,,,, .F.,),"") ,'
VARIAVEL zxvar = zxvar+'DbCommitAll(),DbUnlock()'
VARIAVEL zBlkAppModel = _CreateBlock( zxvar )

VARIAVEL w_mensagem = "Sem mais SubItens"
VARIAVEL w_chave = wPTSUBITEM
VARIAVEL w_block = {|| w_chave <> PT_SUBITEM }
COMANDO ANTES dbClearFilter()
COMANDO ANTES z_fg_exist=dbSeek(w_chave)
COMANDO ANTES z_nil = if(!z_fg_exist, eval(zBlkAppModel) , "")
COMANDO DEPOIS DbSkip(0)
COMANDO DEPOIS DbSetFilter( _CreateBlock("empty(PT_SUBITEM)"), "empty(PT_SUBITEM)")
COMANDO DEPOIS DbSkip(0)
COMANDO DEPOIS DbCommitAll()
: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
Grupo;PT_GRUPO;C;@s10;10;;
Marca;PT_MARCA;C;@S15;10;;
Modelo;PT_MODELO;C;@S15;10;;
Descricao;PT_DESC;C;@S35;20;;
Forn;PT_FORN;N;99999;  5;;
Fabr;PT_Fabr;N;99999;  5;;
Depto;PT_DEPTO;C;@S15;10;;
CdItem;PT_ITEM;C;@S6;  6;;
SubIt;PT_SUBITEM;C;xxxx;  4;;
