//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6;05;20;75;Confira a entrada de Produto Psico;;;;;
:SKEL
VARIAVEL z_blkPregMs=_CreateBlock("M_PREGMS:=se_prod->pregms,.f.")
VARIAVEL z_blkForn=_CreateBlock("m_CP_CGC:=sccpfor->cp_cgc,.f.")

VARIAVEL z_blPdesc = {|nPcod| se_prod->(DbSeek(nPcod)), m_pdesc:=se_prod->pdesc, .f.}

COMANDO ANTES zsele = Select()
//COMANDO ANTES znil = if(select("SE_PROD")=0,ABRA_ARQ("SE_PROD"),"")
COMANDO ANTES znil = if(select("SCCPFOR")=0,ABRA_ARQ("SCCPFOR"),"")
COMANDO ANTES DBSELECTarea(zsele)
COMANDO ANTES M_CR_CGC = EMP_CGC
COMANDO ANTES M_TIPOOPER = "1"
COMANDO ANTES M_PFDATAEMI = IF(X_OPERACAO=1.AND.DAY(M_PFDATAEMI)=0,DATE(),M_PFDATAEMI)
COMANDO ANTES M_PFDATACHE = IF(X_OPERACAO=1.AND.DAY(M_PFDATACHE)=0,DATE(),M_PFDATACHE)

//COMANDO SAIDA ZNIL = IF(SELECT("SE_PROD")>0,SE_PROD->(dBCLOSEAREA()),"")
COMANDO SAIDA ZNIL = IF(SELECT("SCCPFOR")>0,SCCPFOR->(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;Descricao do Produto.:;C;35;PDESC;@S35;eval(z_blPdesc,m_pcod);;;
 1; 4; 2;Codigo do Fornecedor.:;N; 4;PFFOR;9999;;PSQ_BROW;SCCPFOR;PSCCPFOR;N;N; 4;35;CP_NOME;@S30;
 1; 5; 2;CNPJ do Fornecedor...:;C;18;CP_CGC;@S18;eval(z_blkForn);;;;N;; 0; 0;;;
 1; 6; 2;Numero da Nota Fiscal:;N; 7;PFNUM;9999999;;m_pfnum>0;;;N;; 0; 0;;;
 1; 7; 2;Numero de Registro MS:;C;17;PREGMS;9.9999.9999.999-9;eval(z_blkPregMs);;;;N;; 0; 0;;;
 1; 8; 2;Data de emissao da NF:;D; 8;PFDATAEMI;;;;;;N;; 0; 0;;;
 1; 9; 2;Data de chegada da NF:;D; 8;PFDATACHE;;;;;;N;; 0; 0;;;
 1;10; 2;Tipo de Operacao.....:;C; 1;TIPOOPER;!;.F.;;;;N;; 0; 0;;;
 1;11; 2;CNPJ do Adquirente...:;C;18;CR_CGC;@S18;.f.;;;;N;; 0; 0;;;
 1;12; 2;Quantidade Entrada...:;N; 6;MQUANT;999999;;m_mquant>0;;;N;; 0; 0;;;
 1;13; 2;Numero do Lote.......:;C;10;PLOTE;@!10;;.not.empty(m_PLOTE);;;N;; 0; 0;;;