//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 5; 0;20;79;Cadastro de Recebimento Antigos;;;;;
:SKEL
COMANDO ANTES zCxOpen = vb_caixa('CaixaAberto?')
COMANDO ANTES znil = mensagem(if(.not.zcxopen, "Cancelando Operacao",""),1)
COMANDO ANTES znil = if(.not.zCxOpen, __KeyBoard(chr(27)), '')
COMANDO ANTES m_si_numfech = if(type('s_cx_numfech')<>'U',s_cx_numfech,0)

COMANDO ANTES M_CR_NUM_PED = "CV"+right(dtos(s_datual),6)
*COMANDO ANTES M_CR_LOCAL  = 6
COMANDO ANTES m_CR_ZONA = "CV"
COMANDO ANTES M_CR_SITUAC = "1"
COMANDO ANTES M_CR_DATA = S_DATUAL
COMANDO ANTES M_CR_HORA = TIME()
COMANDO ANTES M_CR_DT_EMIS = S_DATUAL
COMANDO ANTES M_CR_DT_VENC = S_DATUAL + 30
//COMANDO ANTES M_CR_DT_LQD  = S_DATUAL
COMANDO ANTES M_SI_CAIXA   = S_VB_NCAIX
COMANDO ANTES M_CR_OBS = "Debitos Antigos"
COMANDO ANTES M_CR_tip_dup = "CV"


// lastkey()=5.or.psq_brow;sf_vend;psfvend;N;N; 4;54;nome;@s20;
// 1; 6;38;Portador:;C; 2;CR_LOCAL;xx;;lastkey()=5.or.psq_brow;si_banco;psibanco;N;N; 6;54;banco;@s20;
// 1; 9; 2;Data Liquid.:;D; 8;CR_DT_LQD;;valtype(m_cr_Dt_lqd:=m_cr_dt_venc)="D";;;;N;; 0; 0;;;
// 1;10; 2;Valor Liquid:;N;10;CR_VAL_LQD;9999999.99;valtype(m_cr_val_lqd:=m_cr_valor)="N";;;;N;; 0; 0;;;
// 1; 5;38;Situacao:;C; 1;CR_SITUAC;x;;lastkey()=5.or.psq_brow;si_sitdp;psisitdp;N;N; 5;54;cr_situaca;@s20;


: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;;lastkey()=5.or.psq_brow;sccrcli;psccrcli;N;N; 2;54;cr_nome;@s25;
 1; 3; 2;Forma Pagto.:;C; 2;CR_tip_dup;!!;Mensagem("So aceita contas em CV");m_cr_tip_dup$"CV";;;N;; 0; 0;;;
 1; 4; 2;Data Emissao:;D; 8;CR_DT_EMIS;;mensagem("").and..f.;;;;N;; 0; 0;;;
 1; 4;38;Recebed.:;C; 2;CR_ZONA;xx;.f.;
 1; 5; 2;Data Vencto.:;D; 8;CR_DT_VENC;;.f.;;;;N;; 0; 0;;;
 1; 6; 2;Valor.......:;N;10;CR_VALOR;9999999.99;;;;;N;; 0; 0;;;
 1; 8; 2;Comentario..:;C;15;CR_OBS;@S15;;;;;N;; 0; 0;;;
 1; 8;38;Caixa.....:;N;2;si_caixa;99;.f.;;;;N;; 0; 0;;;
 1; 9;38;Fechamento:;N; 6;si_numfech;999999;.f.;;;;;N;; 0; 0;;;
 1;12; 2;Numero Doc/Cheque:;N; 6;CR_NUM_DOC;999999;;;;;N;; 0; 0;;;
 1;12;38;Data Gravacao:;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 Gravacao:;C; 8;CR_HORA;@S8;.f.;;;;N;; 0; 0;;;
