VB_KITS;Kits Disponiveis;sys_tbbrow; 6; 5;18;76;x;;
:SKEL
COMANDO ANTES Z_NIL = DbSetFilter( _CreateBlock("FTOTPROD>0"), "FTOTPROD>0")
:TBMT
 13;PrdKits(Codigo,,.t.);Enter-Seleciona ;
 32;PrdKits(Codigo,D_ob,,"VB_KITPS");Barra-Exibe ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
:TBFI
Codigo;codigo;C;@s13; 13;;
Vd;CR_ZONA;C;xx;  2;;
Descricao;CR_NOME;C;@S35; 35;;
Prods;FTOTPROD;N;9999;  5;;