//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 9;17;17;67;Modelo do Bem;;;;;
:SKEL
COMANDO ANTES M_pref = w_chave
COMANDO DEPOIS REGLOCK()
COMANDO DEPOIS PUT_VAR("pt_marca",M_PREF)
COMANDO DEPOIS DBCOMMITALL()
COMANDO DEPOIS DBUNLOCK()
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 3; 4;Marca.:;P;15;m_pref;@!15;empty(m_pref);;;;N;; 0; 0;;;
 1; 5; 4;Modelo:;C;15;pt_modelo;@!15;;;;;N;; 0; 0;;;

