VB_KITP;Itens do Kit;sys_tbbrow; 6; 5;18;76;padrao;;
:SKEL
VARIAVEL zbPdesc={|nPcod|se_prod->(dbseek(nPcod)),Str(nPcod,6)+" "+se_prod->pdesc }
VARIAVEL zFgProdClosed = (Select("SE_PROD")=0)
VARIAVEL zNil = if(zFgProdClosed,Abra("0NOIDX",r_siga,se_prod,"Se_prod",seip_c,"pcod",seip_n,"pdesc"),"")
COMANDO SAIDA zNil = if(zFgProdClosed,SE_PROD->(DbCloseArea()),"")
:TBMT
 22;tb_insert(D_OB);Ins-Inclui ;
  7;tb_del(D_ob);DEL-DELeta ;
 65;tb_update(D_OB);A-Altera ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
Produto;eval(zbPdesc,pcod);C;@s35;35;N;
Quant;Mquant;N;999999;6;S;
PrVenda;PvluVenda;N;9999999.99;10;S;
Cod.Kit;Codigo;C;@s13; 13;;