//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 9;15;15;66;Motivo de Entrega Especial;;;;;
:SKEL
COMANDO DEPOIS zdif = ( codigo<>recno() .and. .not. eof() )
COMANDO DEPOIS znil = if(zdif, reglock(), "")
COMANDO DEPOIS znil = if(zdif, put_var("codigo",recno()), "")
COMANDO DEPOIS znil = if(zdif, dbcommit(), "")
COMANDO DEPOIS znil = if(zdif, dbunlock(), "")
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 3;Codigo:;N; 2;CODIGO;99;;;;;N;; 0; 0;;;
 1; 4; 3;Motivo:;C;35;DESC;@S35;;;;;N;; 0; 0;;;
