CT_CHDV2;Cheques DEVOLVIDOS;skip_blk(x); 6;0;20;79;ct_cred;;
:SKEL
VARIAVEL m_cadastro = "CT_CRED"
VARIAVEL w_mensagem = "Sem Lancamentos de Recebimentos em Cheques"
VARIAVEL w_chave = "4"
VARIAVEL w_block = {|| w_chave <> "4" }
VARIAVEL w_colsep = " "+chr(179)
// 32;tb_cons();Barra-Exibe ;
:TBMT
 13;doget(D_ob);Enter-Edita ;
 32;getscreen(5);Barra-Exibe ;
 80;tb_pesq(d_ob);P-Pesquisa ;
 84;tb_locate(D_OB);T-Trecho ;
 79;tb_index(d_ob);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
CPF_Emit;CR_CGC;C;@s14;14;N;
CodCli;Cli_forn;N;999999;6;N;
Sit;SitCheque;C;;1;S;
Valor;VALOR;N;999999.99;9;N;
Cheque;NCHEQUE;N;999999;6;N;
Nome_Emit;Cr_Nome;C;@s26;22;N;
Lj;Floja;N;99;2;N;
ac;Ass_Cobr;N;99;2;S;
Data Rec;DATA;D;;8;S;
DataDEV;DataDev;D;;8;N;
Bom Para;BOMPARADIA;D;99.99.9999;10;S;
Acesso;rec_del();C;999999X;6;N;
Data Lqd;DataDeposI;D;;8;N;
Banco;BANCO;N;999;3;N;
Doc;DOC;C;@s10;10;N;
Comentario;DESCRICAO;C;@s30;30;N;
Obs;OBS;C;@s30;30;N;
BanCli;BANCO_cli;N;999;3;N;
AgCli;Agencia;C;9999;4;N;
CC_Cli;CCorrente;C;@s8;8;N;
