etq_prod_precos_e_saldos;Indique Produtos p/ Gerar ETQ;sys_tbbrow; 5;10;20;70;padrao;;
:SKEL
VARIAVEL zbPdesc = {|nPcod|se_prod->(dbseek(nPcod),pdesc )}
VARIAVEL zNil = if(RecCount()=0, MyKeyb(Chr(22)),)
VARIAVEL zbAddPrd = {||if( tb_insert(d_ob), (se_prod->(OrdSetFocus(1)), if(sguiMode,d_ob:Refresh(),D_oB:refreshall()), MyKeyb(Chr(22))), NIL) }
VARIAVEL zbAlteraPreco = {||if( tb_insert(d_ob), (se_prod->(OrdSetFocus(1)), if(sguiMode,d_ob:Refresh(),D_oB:refreshall()), MyKeyb(Chr(22))), NIL) }
:TBMT
 22;eVal(zbAddPrd);Ins-Indica_Produto ;
 43;eVal(zbAlterPreco);+-Preco_Produto ;
  7;tb_del(D_ob);DEL-DELeta ;
 73;eVal(wbPrtEtq);I-Imprime ;
 79;tb_index(D_OB);O-Ordena ;
 87;eVal(wbSetTemplateWord);W-Redefine_ModeloWord ;
 82;eVal(wbEditTemplateWord);M-Modifica_ModeloWord ;
:TBFI
Prod;PCOD;N;99999;6;N;
Apresentacao;eval(zbPdesc,pcod);C;@s30;30;N;
Quant;mquant;N;999999;6;N;
Estoq;Se_prod->peatual;N;999999;6;N;
PrVenda;Se_prod->pvluvenda;N;9999.99;7;N;