//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 8; 7;17;72;Nomes Genericos;;;;;
:SKEL
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"se_prod","Se_prod","seip_c","pcod","seip_n","pdesc")
COMANDO DEPOIS Z_NIL = Se_Prod->(DbCloseArea())
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 3;Codigo...:;N; 5;PCOD;99999;;psq_brow;se_prod;PSEPROD;N;S; 2;25;PDESC;@S35;
 1; 4; 3;Marca....:;C;30;MARCA;@S!30;If(Empty(M_marca),M_marca:=Se_prod->Pdesc,m_marca)<>"";;;;N;; 0; 0;;;
 1; 5; 3;Generico.:;C;25;GENERICO;@S!25;;;;;N;; 0; 0;;;
 1; 6; 3;Portaria.:;C; 2;PORTARIA;!!;;;;;N;; 0; 0;;;
 1; 7; 3;DCB......:;C; 2;DCB;@S10;;;;;N;; 0; 0;;;
