//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 8;15;17;68;;;;;;
:SKEL
COMANDO ANTES M_PCOD = se_prod->PCOD
COMANDO ANTES M_MDATA = S_DATUAL
COMANDO ANTES M_MFGES = "E"
//COMANDO ANTES Z_AREAOLD = SELECT()
//COMANDO ANTES Z_NIL = DBSELECTAREA("SE_LOTES")
COMANDO DEPOIS Z_NIL = REGLOCK()
COMANDO DEPOIS Z_NIL = PUT_VAR("RESTO",m_mquant)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 4;Produto....:;N; 4;PCOD;9999;;PSQ_BROW;SE_PROD;PSEPROD;N;; 0; 0;;;
 1; 3; 4;Data Acerto:;D; 8;MDATA;;.F.;;;;N;; 0; 0;;;
 1; 4; 4;Lote.......:;C;10;PLOTE;@!10;;!Empty(M_PLOTE);;;N;; 0; 0;;;
 1; 5; 4;Unidades...:;N; 6;MQUANT;999999;;;;;N;; 0; 0;;;
 1; 6; 4;Vencimento.:;D; 8;DATA_VENC;;;;;;N;; 0; 0;;;
