//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 7; 0;18;79;Avaria/Perda;;;;;
:SKEL
VARIAVEL z_blkPregMs=_CreateBlock("M_PREGMS:=se_prod->pregms,.f.")

VARIAVEL zMots = 'Motivo Invalido!;Informe um dos seguintes:;1-Furto/Roubo;2-Avaria;3-Vencimento;4-Apreensao/Recolhimento VISA;'
VARIAVEL z_blMotivos=_CreateBlock("zOk:=(str(m_MOTIVOPERD,1)$'/1/2/3/4/'),zNil:=if(zOk,'',Alert(zMots,,'R/W')),zOk")
VARIAVEL M_Mdata = IF(X_OPERACAO=1.AND.DAY(M_Mdata)=0,DATE(),M_Mdata)

COMANDO ANTES zsele = Select()
COMANDO ANTES znil = if(select("SE_PROD")=0,ABRA_ARQ("SE_PROD"),"")
COMANDO ANTES DBSELECTarea(zsele)

COMANDO SAIDA ZNIL = IF(SELECT("SE_PROD")>0,SE_PROD->(dBCLOSEAREA()),"")
: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;se_prod;PSEPROD;N;S; 0; 0;;;
 1; 3; 2;Numero de Registro MS:;C;17;PREGMS;9.9999.9999.999-9;eval(z_blkPregMs);;;;N;; 0; 0;;;

 1; 5; 2;Motivo da Perda......:;N;1;MOTIVOPERD;9;;eval(z_blMotivos);;;N;; 0; 0;;;

 1; 7; 2;Data da Ocorrencia...:;D; 8;Mdata;;;;;;N;; 0; 0;;;
 1; 8; 2;Quantidade Transfer..:;N; 6;MQUANT;999999;;m_mquant>0;;;N;; 0; 0;;;
 1; 9; 2;Numero do Lote Transf:;C;10;PLOTE;@!10;;.not.empty(m_PLOTE);;;N;; 0; 0;;;