//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 7;08;17;75;;;;;;
:SKEL
VARIAVEL zzOper = if( type("zzOper")="U", "VENDAS", zzOper)
VARIAVEL m_PCOD = if(x_operacao=1, zzPcod, m_PCOD)
VARIAVEL m_PLOTE = if(x_operacao=1, zzPlote, m_PLOTE)
VARIAVEL ZDTVENC = SubStr(Dtoc( if(x_operacao=1,zzData_Venc,data_venc) ),4)
VARIAVEL zObsVenc = "Este produto nao esta sujeito a controle especial, e por isso seus lotes nao aparecerao no inventario sngpc! O Lote sera usado apenas para controle de vencimento!"
VARIAVEL zbPdatabal = {||m_Pdatabal:=if(day(m_Pdatabal)=0,date(),m_Pdatabal),.t.}
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Codigo do Produto...:;N; 6;PCOD;999999;;psq_brow().and.se_prod->(m_pdesc:=pdesc,m_Pregms:=se_prod->pregms,if(empty(pFgControl),Alert(zObsVenc,,"B/W"),),RefreshGetlist());SE_PROD;PSIPROD;N;S;;;
 1; 3; 2;Descricao do Produto:;C;35;PDESC;@S35;.f.;;;
 1; 4; 2;Lote Cadastrado.....:;C;10;PLOTE;@!10;;;;;N;; 0; 0;;;
 1; 5; 2;Saldo no Inventario.:;N; 6;peatbal;999999;;m_peatbal>0;;;N;; 0; 0;;;
 1; 6; 2;Data do Inventario..:;D;10;pdatabal;99.99.9999;eval(zbPdatabal);;;;N;; 0; 0;;;
 1; 7; 2;Registro no M.Saude.:;P;17;m_Pregms;9.9999.9999.999-9;;;;
 1; 8; 2;Data de Vencimento..:;P; 7;ZDTVENC;99.9999;;;;;N;; 0; 0;;;