//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 5;0;20;79;Liquidacao de Duplicata;;;;;
:SKEL
COMANDO ANTES M_CR_NUM_PED = LEFT(CR_NUM_PED,7)+"CX"
COMANDO ANTES M_CR_DATA = if(day(cr_data)=0,DATE(),m_cr_data)
COMANDO ANTES M_CR_HORA = if(empty(cr_hora),time(),m_cr_hora)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Titulo......:;C; 9;CR_NUM_PED;@S9;.f.;psq_brow;sccrdup;psccrdup;S;S; 0; 0;;;
 1; 2;38;Cliente:;N; 5;CR_COD_CLI;99999;.f.;lastkey()=5.or.psq_brow;sccrcli;psccrcli;N;N; 2;54;cr_nome;@s25;
 1; 4; 2;Data Emissao:;D; 8;CR_DT_EMIS;;.f.;;;;N;; 0; 0;;;
 1; 4;38;Vendedor:;C; 2;CR_ZONA;xx;.f.;lastkey()=5.or.psq_brow;sf_vend;psfvend;N;N; 4;54;nome;@s20;
 1; 5; 2;Data Vencto.:;D; 8;CR_DT_VENC;;.f.;;;;N;; 0; 0;;;
 1; 5;38;Situacao:;C; 1;CR_SITUAC;x;.f.;lastkey()=5.or.psq_brow;si_sitdp;psisitdp;N;N; 5;54;cr_situaca;@s20;
 1; 6; 2;Valor.......:;N;10;CR_VALOR;9999999.99;.f.;;;;N;; 0; 0;;;
 1; 8; 2;Comentario..:;C;15;CR_OBS;@S15;;;;;N;; 0; 0;;;
 1;10; 2;Valor Adiant:;N;10;CR_VAL_LQD;9999999.99;;;;;N;; 0; 0;;;
 1;12; 2;Numero Doc/Cheque:;N; 6;CR_NUM_DOC;999999;;;;;N;; 0; 0;;;
 1;12;38;Data Adiant..:;D; 8;CR_DATA;;.f.;;;;N;; 0; 0;;;
 1;13; 2;Data Doc/Cheque..:;D; 8;CR_DT_DOC;;;;;;N;; 0; 0;;;
 1;13;38;Hora Adiant..:;C; 8;CR_HORA;@S8;.f.;;;;N;; 0; 0;;;
