CT_CRED;Cheques Recebidos;sys_tbbrow; 6; 3;20;78;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 <> tl }
// 32;psq_chq(d_ob);Barra-Psq_Cheque ;
:TBMT
 13;Ct_cred(2,"",D_oB);Enter-Altera ;
 32;Gera_RlDep(,"MARCA_DEVOLUCAO_CHEQUE");Barra-Marca_Devolucao ;
 73;ImprimeCheque(Valor);I-Imprime_Cheque ;
 65;doget(D_ob);A-Edita ;
  7;tb_del(D_oB);Del-Apaga ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_OB);T-Trecho ;
 79;tb_index(d_ob);O-Ordena ;
:TBFI
Nome_Emit;Cr_Nome;C;@s20;20;S;
Cheque;NCHEQUE;N;999999;6;S;
Data Rec;DATA;D;;8;N;
Bom Para;BOMPARADIA;D;;8;S;
Valor;VALOR;N;99999.99;9;S;
Sit;SitCheque;C;;1;S;
DataDep;DataDeposI;D;;8;S;
Banco;BANCO_cli;N;999;3;S;
CPF_Emit;Cr_CGC;C;@s18;18;S;
Doc;DOC;C;@s10;10;S;
Cli;Cli_forn;N;99999;5;N;
Comentario;DESCRICAO;C;@s30;30;S;
Obs;OBS;C;@s30;30;S;
Cr_Num_Doc;cr_num_doc;C;@s14;14;N;
CodFor;PfFor;N;999999;6;N;
Acesso;rec_del();C;999999X;6;N;
