//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
//1; 2;12;21;73;Recebimentos em Cheques;;;;;
1; 4;12;21;73;Recebimentos em Cheques;;;;pos_lan(4);
:SKEL
VARIAVEL m_cmc7 = spac(34)
VARIAVEL z_enters = chr(13)+chr(13)+chr(13)+chr(13)
VARIAVEL Z_BlkOptico={|x|m_banco_cli:=Val(substr(x,2,3)),m_banco:=m_banco_cli,m_Agencia:=substr(x,5,4),m_nCheque:=val(substr(x,14,6)),m_Ccorrente:=Substr(x,25,8),__Keyboard(z_enters),.t.}
VARIAVEL Z_Blkcpf={|x|if(empty(m_cr_cgc).and.!empty(sccrcli->cr_cgc),__KeyBoard(chr(13)),.t.),if(empty(m_cr_cgc),m_cr_cgc:=sccrcli->cr_cgc,.t.),.t.}
VARIAVEL Z_BlkNome={|x|if(empty(m_cr_nome).and.!empty(sccrcli->cr_nome),__KeyBoard(chr(13)),.t.),if(empty(m_cr_nome),m_cr_nome:=sccrcli->cr_nome,.t.),.t.}
VARIAVEL Z_BlkPict={|| if(M_tipoCGC="F","999.999.999-99","99.999.999/9999-99") }
VARIAVEL m_cpfcli = spac(18)
VARIAVEL M_tipoCGC = "F"
COMANDO ANTES ABRA_ARQ("SCCRCLI")
COMANDO ANTES DbSelectArea("CT_MOV")
//COMANDO ANTES ABRA_ARQ("CT_EMITC")
//COMANDO DEPOIS CT_EMITC->(DbCloseArea())
COMANDO ANTES m_data       = if(x_operacao=1,s_datual,m_data)
COMANDO ANTES m_bomparadia = if(x_operacao=1,s_datual,m_bomparadia)
COMANDO ANTES m_SitCheque  = if(x_operacao=1,"R",m_SitCheque)
COMANDO ANTES m_DC         = if(x_operacao=1,"C",m_DC)
COMANDO ANTES m_OBS        = if(x_operacao=1,"Ch Recebido",m_OBS)
COMANDO DEPOIS Reglock()
COMANDO DEPOIS Put_var("TL","4")
COMANDO DEPOIS Put_var("DC",m_dc)
COMANDO DEPOIS Put_var("SitCheque",m_SitCheque)
COMANDO DEPOIS SCCRCLI->(DbCloseArea())
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
// 1; 1; 3;Tipo de Pessoa:;P;1;M_tipoCGC;!;.t.;;;;N;; 0; 0;;;
// 1; 1; 3;Documento.....:;C;10;DOC;@S10;.f.;;;;N;; 0; 0;;;
 1; 2; 3;Data Movimento:;D; 8;DATA;;;;;;N;; 0; 0;;;

// 1; 3; 3;Cliente.......:;N; 5;cli_forn;99999;;m_cli_forn=0.or.PSQ_BROW;SCCRCLI;PSCCRCLI;N;N;03;30;CR_NOME;@S30;
// 1; 3; 3;CPF/CGC Client:;P;18;m_cpfcli;(eval(z_BlkPict,m_tipoCGC));;if(m_tipoCGC="F",cpf_ok(m_cpfcli),cgc_ok(m_cpfcli)).and.PSQ_BROW;SCCRCLI;PSCCRCLI;N;S;03;38;CR_NOME;@S22;
 1; 3; 3;Cliente.......:;N; 5;cli_forn;99999;;m_cli_forn=0.or.PSQ_BROW;SCCRCLI;PSCCRCLI;N;N;03;30;CR_NOME;@S30;
 1; 4; 3;CPF Emitente..:;C;18;Cr_Cgc;@S18;eval(Z_BlkCpf,m_cr_cgc).and..f.;;;;N;; 0; 0;;;
 1; 5; 3;Nome Emitente.:;C;30;Cr_Nome;@S35;eval(Z_BlkNome,m_Cr_Nome).and..f.;;;;N;; 0; 0;;;

 1; 7; 3;Valor.........:;N;10;VALOR;9999999.99;;lastkey()=5.or.m_valor>0;;;N;; 0; 0;;;
 1; 8; 3;Bom Para Dia..:;D; 8;Bomparadia;99.99.99;;;;;N;; 0; 0;;;

 1;10; 3;Leitura CMC7..:;P;34;m_cmc7;@s34;;lastkey()=5.or.eval(Z_BlkOptico,m_cmc7);;;N;; 0; 0;;;

// 1; 4;33;Data de Depos.:;D; 8;DataDeposI;99.99.99;x_operacao<>1;;;;N;; 0; 0;;;

// 1;12; 3;Banco ........:;N; 3;BANCO_CLI;999;;PSQ_BROW;CT_BANCO;PCTBANCX;N;S; 7;30;NOME;@S30;
 1;12; 3;Banco ........:;N; 3;BANCO_CLI;999;;
 1;13; 3;No do Cheque..:;N; 6;NCHEQUE;999999;;lastkey()=5.or.m_ncheque>0;;;N;; 0; 0;;;
 1;14; 3;Agencia.......:;C; 4;Agencia;9999;;
 1;15; 3;Conta Corrente:;C; 8;CCorrente;99999999;;

 1;16; 3;Comentario....:;C;30;DESCRICAO;@S30;;!Empty(m_descricao);;;N;; 0; 0;;;
// 1;18; 3;Situacao......:;C;30;Obs;@S30;x_operacao<>1;;;;N;; 0; 0;;;

