//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 5; 0;20;79;Troca de Valores / Cortesia a Clientes;;;;;
:SKEL
VARIAVEL zBlDoc = _CreateBlock("m_CR_NUM_DOC:=if(m_cr_tip_dup='CT',m_BANCO,m_CR_NUM_DOC),m_cr_tip_dup<>'CT'")
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 = "CX"+right(dtos(s_datual),6)
*COMANDO ANTES M_CR_LOCAL  = 6
COMANDO ANTES m_CR_ZONA = "CX"
COMANDO ANTES M_CR_SITUAC = "1"
COMANDO ANTES m_CR_OBS = "Troca Cortesia"
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
COMANDO ANTES M_CR_DT_LQD  = S_DATUAL
COMANDO ANTES M_SI_CAIXA   = S_VB_NCAIX
COMANDO ANTES M_CR_LOCAL   = "TC"
COMANDO ANTES M_CR_SITUAC  = "T"
COMANDO DEPOIS INIT_VARS(2,"M_")
COMANDO DEPOIS APPENDBLANK()
COMANDO DEPOIS TROCA("M_")
COMANDO DEPOIS REGLOCK()
COMANDO DEPOIS put_var("cr_valor",0-cr_valor)
COMANDO DEPOIS put_var("cr_val_lqd",0-cr_val_lqd)
COMANDO DEPOIS put_var("cr_tip_dup","ES")
COMANDO DEPOIS DbCommitAll()
COMANDO DEPOIS DbUnlock()
// lastkey()=5.or.psq_brow;sf_vend;psfvend;N;N; 4;54;nome;@s20;
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2;52;Titulo..:;C; 9;CR_NUM_PED;@S9;.f.;psq_brow;sccrdup;psccrdup;S;S; 0; 0;;;
 1; 3;52;Dt Troca:;D; 8;CR_DATA;;.f.;;;;N;; 0; 0;;;
 1; 4;52;Hr Troca:;C; 8;CR_HORA;@S8;.f.;;;;N;; 0; 0;;;
 1; 5;52;Recebed.:;C; 2;CR_ZONA;xx;.f.;
 1; 6;52;Caixa...:;N;2;si_caixa;99;.f.;;;;N;; 0; 0;;;
 1; 7;52;Fech.Cxa:;N; 6;si_numfech;999999;.f.;;;;;N;; 0; 0;;;
 1; 8;52;Portador:;C; 2;CR_LOCAL;xx;.f.;lastkey()=5.or.psq_brow;si_banco;psibanco;N;N; 6;54;banco;@s20;
 1; 9;52;Situacao:;C; 1;CR_SITUAC;x;.f.;lastkey()=5.or.psq_brow;si_sitdp;psisitdp;N;N; 5;54;cr_situaca;@s20;
 
 1; 2; 2;Cliente:;N; 5;CR_COD_CLI;99999;;lastkey()=5.or.psq_brow;sccrcli;psccrcli;N;N; 2;24;cr_nome;@s25;
 1; 3; 2;Emissao:;D; 8;CR_DT_EMIS;;.f.;;;;N;; 0; 0;;;
 1; 4; 2;Vencto.:;D; 8;CR_DT_VENC;;valtype(m_cr_Dt_venc:=m_cr_dt_emis)="D";;;;N;; 0; 0;;;
 1; 5; 2;Valor..:;N;10;CR_VALOR;9999999.99;;m_CR_VALOR>0;;;N;; 0; 0;;;
 1; 6; 2;Obs....:;C;15;CR_OBS;@S15;;;;;N;; 0; 0;;;
 1; 7; 2;Dt Lqd.:;D; 8;CR_DT_LQD;;valtype(m_cr_Dt_lqd:=m_cr_dt_venc)="D";;;;N;; 0; 0;;;
 1; 8; 2;Val Lqd:;N;10;CR_VAL_LQD;9999999.99;valtype(m_cr_val_lqd:=m_cr_valor)="N";;;;N;; 0; 0;;;

 1;10; 2;Tipo de Recebimento:;C; 2;CR_tip_dup;!!;Mensagem("Informe /CH/CT/CV/CA/DB/");m_cr_tip_dup$"/CH/CT/CA/DB/CV/";;;N;; 0; 0;;;
 1;11; 2;Numero Banco/Cartao:;N; 3;BANCO;999;;m_BANCO>0;;;N;; 0; 0;;;
 1;12; 2;Numero Cheque/Doc..:;N; 6;CR_NUM_DOC;999999;eval(zBlDoc);M_CR_NUM_DOC>0;;;N;; 0; 0;;;
 1;13; 2;Data Cheque/Doc....:;D; 8;CR_DT_DOC;;;m_CR_DT_DOC>=m_cr_dt_emis;;;N;; 0; 0;;;
