//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 08;10;15;70;Datas de Vencimentos de Produtos;;;;;
:SKEL
VARIAVEL z_var="m_PDESC:=se_prod->pdesc,.f."
VARIAVEL z_blkdesc=_CreateBlock(z_var)
COMANDO ANTES abra_arq("SE_PROD")
COMANDO ANTES DbSelectArea("VB_VENCP")
COMANDO SAIDA 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....:;N; 6;PCOD;999999;;psq_brow;se_prod;PSEPROD;N;S; 0; 0;;;
 1; 3; 2;Descricao.:;C;30;PDESC;@S30;eval(z_blkdesc);;;;N;; 0; 0;;;
 1; 4; 2;Vencimento:;D; 8;PDATAVENC;;;day(m_PDATAVENC)>0;;;N;; 0; 0;;;
 1; 5; 2;Quantidade:;N; 4;MQUANT;9999;;;;;N;; 0; 0;;;
