//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 9;27;14;53;;;;;;
:SKEL
COMANDO ANTES  DBGOTO( RECC() )
COMANDO ANTES  M_NUMERO = NUMERO + 1
COMANDO ANTES  M_DATAEMI = DATE()
COMANDO DEPOIS x_nil = reglock()
COMANDO DEPOIS X_NIL = PUT_VAR("TIPO",W_TIPORC)
COMANDO DEPOIS x_nil = gera_rldep(m_numero)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 3;Numero..:;N; 6;NUMERO;999999;
 1; 3; 3;Emissao.:;D; 8;DATAEMI;
