//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 8;9;16;76;Produto e Quantidade a Imprimir;;;;;
:SKEL
comando depois znil = (RegLock(), _FIELD->pvluvenda:=se_prod->pvluvenda, _FIELD->pdataalter:=se_prod->pdataalter, _FIELD->pepreco:=se_prod->pepreco, _FIELD->peatual:=se_prod->peatual)
:TFIE
 1; 1; 2;Pistole o Cod. de Barras ou Cod.Reduzido e indique a Quantidade.;
 1; 2; 2;Tecle ESC para encerrar a digitacao e imprimir as etiquetas.    ;
 1; 4; 2;Cod.Rdz / Cod.Barras:;N;14;PCOD;99999999999999;;se_prod->(OrdSetFocus(3),if(DbSeek(m_pcod),(m_pcod:=se_prod->pcod,.t.),if((OrdSetFocus(1),DbSeek(m_pcod)),.t.,psq_brow())));se_prod;pseprod;N;S;;
 1; 5; 23;;C;35;Pdesc;@S35;(m_pdesc:=se_prod->pdesc, RefreshGetList(),.f.);;
 1; 7; 2;Etiquetas a Imprimir:;N; 8;mQuant;99999999;(m_mQuant:=1,RefreshGetList());m_mquant>0;;