//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 3; 0;23;79;Cadastro de Cheque Devolvido;;;;;
:SKEL
VARIAVEL m_cpfcli=spac(18)
COMANDO ANTES z_nil = abra_arq("sccrcli")
COMANDO ANTES z_nil = DbSelectArea("ct_mov")
COMANDO ANTES Z_BlkNome={|x|Sccrcli->(DbGoto(x)),m_cpfcli:=sccrcli->cr_cgc,.t.}
COMANDO ANTES z_nil = 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;.f.;;;;;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;@s18;;
 1; 4; 3;CPF Emitente..:;C;18;Cr_Cgc;@S18;;;
 1; 5; 3;Nome Emitente.:;C;30;Cr_Nome;@S35;;;;

 1; 7; 3;Valor.........:;N;10;VALOR;9999999.99;;;
 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;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;;;
