//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 7; 7;17;76;Produto e Quantidade a Imprimir;;;;;
:SKEL
variavel bValidNewPrc:={||se_prod->(if(m_pvluvenda>=pvluven3,.t.,(Alert("O preco de venda ("+lTrim(Str(m_pvluvenda,10,2))+") nao deve ser inferior ao de compra ("+lTrim(Str(pvluven3,10,2))+")"),.f.)))}
comando depois znil = (RegLock(), _FIELD->pepreco:=se_prod->pepreco, _FIELD->peatual:=se_prod->peatual, _FIELD->mQuant:=se_prod->peatual, _FIELD->pvluven3:=se_prod->pvluven3)
//comando depois znil = (hReg:=Scatter(), Abra_arq("se_prlog"), hReg["USUARIO"]:=sys_usuario, AppendBlank(), Gather(@hReg), _FIELD->DATAALTER:=s_datual, _FIELD->HORAALTER:=TIME(), DbCloseArea(), DbSelectArea("etq_prod"))
comando depois znil = (hReg:=Scatter(), Abra_arq("se_prlog"), hReg["USUARIO"]:=sys_usuario, AppendBlank(), Gather(@hReg), DbCloseArea(), DbSelectArea("etq_prod"))
comando depois znil = se_prod->(RegLock(), _FIELD->pDataAlter:=s_dAtual, _FIELD->pVluVenda:=m_pvluvenda, DbCommit(), DbUnlock())
:TFIE
 1; 1; 2;Pistole o Cod. de Barras ou Cod.Reduzido para alteracao do preco.;
 1; 2; 2;Tecle ESC para encerrar as alteracoes 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; 2;Descricao :;C;35;Pdesc;@S35;(m_pdesc:=se_prod->pdesc, RefreshGetList(),.f.);;
 1; 7; 2;Preco Atual:;N;12;pVluOrig;99999999.99;(m_pVluOrig:=se_prod->pVluVenda,m_pDataAlter:=se_prod->pDataAlter,RefreshGetList(),.f.);;;
 1; 7;35;Data Alter:;D;10;pDataAlter;99.99.9999;.f.;;;
 1; 8; 2;Novo  Preco:;N;12;pVluVenda;99999999.99;;m_pvluvenda>0.and.eVal(bValidNewPrc);;