//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 3; 0;23;79;Cadastro de Cheque Devolvido;;;;;
: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_BlkCpfMem={|x|if(m_cli_forn>0.and.empty(m_cpfcli),__KeyBoard(chr(13)),.t.),if(m_cli_forn>0.and.empty(m_cpfcli),m_cpfcli:=sccrcli->cr_cgc,.t.),.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_BlkRefresh = {|x|if(x=0,__KeyBoard(chr(5)+chr(5)+chr(13)+chr(13)),.t.),if(x=0,m_cli_forn:=sccrcli->(recno()),.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_chd")
COMANDO SAIDA SCCRCLI->(DbCloseArea())
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib

 1; 1; 3;Data Movimento:;D; 8;DATA;;;;;;N;; 0; 0;;;
 1; 2; 3;Codigo Cliente:;N; 6;cli_forn;999999;;lastkey()=5.or.m_cli_forn=0.or.PSQ_BROW;SCCRCLI;PSCCRCLI;N;N;02;40;CR_NOME;@S30; 
 1; 3; 3;CPNF/CPF Cli..:;P;18;m_cpfcli;(eval(z_BlkPict,m_tipoCGC));eval(Z_BlkCpfMem);lastkey()=5.or.if(m_tipoCGC="F",cpf_ok(m_cpfcli),cgc_ok(m_cpfcli)).and.PSQ_BROW;SCCRCLI;PSCCRCLI;N;S;03;40;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;eval(Z_BlkRefresh,m_cli_forn);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; 9; 3;Data Devolucao:;D; 8;DATADEV;;;;;;N;; 0; 0;;;
 1;10; 3;Motivo Devol. :;N; 2;cod_mdevol;99;;lastkey()=5.or.PSQ_BROW;mot_devo;pmotdevo;N;S;10;40;des_mdevol;@S30;
 1; 7;40;Loja da Venda:;N;2;floja;99;
 1; 8;40;Assessoria...:;N;2;Ass_Cobr;99;;;;;N;; 0; 0;;;

 1;11; 3;Comentario ...:;C;30;DESCRICAO;@S30;;;;;N;; 0; 0;;;

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

 1;15; 3;Banco ........:;N; 3;BANCO_CLI;999;;
 1;16; 3;Agencia.......:;N; 3;Agencia;9999;; 
 1;17; 3;Conta Corrente:;N; 3;CCorrente;99999999;;
 1;18; 3;No do Cheque..:;N; 6;NCHEQUE;999999;;lastkey()=5.or.m_ncheque>0;;;N;; 0; 0;;;
