PT_IBENS;Subitens do Bem Patrimonial;skip_blk(x); 2;18;21;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL z_pt_grupo =  pt_bens->pt_grupo
VARIAVEL z_arr_nulo = {}
VARIAVEL zBlkSubitem = _CreateBlock( "wPTSUBITEM:=Pt_Item,z_recn:=recn(),DbSetOrder(3),Brow_Db('PT_IBENS',.t.),DbSetOrder(3),dbgoto(z_recn),__Keyboard(chr(27))" )
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()
// 13;doget(D_ob);Enter-Edita ;
// 32;tb_cons();Barra-Exibe ;
: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;;
Cod.Tomb;PT_tombame;N;9999999999999;13;;
SubIt;PT_SUBITEM;C;xxxx;  4;;
CodContabil;CT_CONTA;N;99999;11;;
AQ_DATA;AQ_DATA;D;;  8;;
AQ_NF;AQ_NF;N;999999;  6;;
AQ_VALOR;AQ_VALOR;N;9999999.99; 12;;
AQ_XVALOR;AQ_XVALOR;N;9999999.99; 12;;
AQ_FAP;AQ_FAP;N;9999999.99; 12;;
DP_DTINI;DP_DTINI;D;;  8;;
DP_DTFIM;DP_DTFIM;D;;  8;;
DP_TAXA;DP_TAXA;N;999.99;  8;;
DP_COEF;DP_COEF;N;999.99;  8;;
BX_DATA;BX_DATA;D;;  8;;
BX_TIPO;BX_TIPO;C;@S15; 15;;
BX_VALOR;BX_VALOR;N;9999999.99; 12;;
BX_XVALOR;BX_XVALOR;N;9999999.99; 12;;
BX_FAP;BX_FAP;N;9999999.99; 12;;
RS_VALOR;RS_VALOR;N;9999999.99; 12;;
RS_XVALOR;RS_XVALOR;N;9999999.99; 12;;
RS_FAP;RS_FAP;N;9999999.99; 12;;
LP_VALOR;LP_VALOR;N;9999999.99; 12;;
LP_XVALOR;LP_XVALOR;N;9999999.99; 12;;
LP_FAP;LP_FAP;N;9999999.99; 12;;
