Pesquisar na Comunidade
Showing results for tags 'CodigoCedente'.
Encontrado 3 registros
-
ACBRMONITORPLUS-BOLETO gravação do código e convenio do cedente
um tópico no fórum postou Jose Marcelo Pereira Dúvidas gerais
Bom dia, notei um problema na utilização do ACBRMonitorplus e gostaria de saber como proceder para solucionar estou enviando os arquivos em anexo notem que o convenio é 2790120 porém o mesmo não é alterado na configuração do ACBR e o boleto é impresso com o convenio antigo, 2bolconfig000010.txt -
Pessoal, Parabéns pelo Projeto!!! 1) Atualizei o meu ACBR e percebi que a Unit ACBrCaixaEconomica.pas foi renomeada para ACBrCaixa, é isso mesmo ? 2) Outro detalhe é que pra homologação que fiz anteriormente na linha 134 que era: Num := ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente; coloquei: Num := copy( ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente, 1, 6 ); // Mudei é necessário isso mesmo ou apenas informar o código cedente com algum tamanho fixo ? Vi a juliana no posta do link a seguir informando 9 posições. Link-> Segue em anexo a Unit antiga que tinha. Desde já agradeço pela atenção. Pelo que procurei não encontrei essa dúvida em outros tópicos. ACBrCaixaEconomica.pas
-
Bom dia pessoal, estou começando a fazer boletos dos principais bancos para homologação. Observei que os Código Cedentes mudam de acordo com cada banco, cada banco trata de um jeito. Então eu gostaria de compartilhar com vocês esta parte do meu código para saber a opinião de vocês e como cada pessoa trata isso, pois no meu código abaixo eu acho que ainda não vai encaixar em todas as ocorrências que viram daqui pra frente. case ACBrBoleto.Banco.Numero of 1: begin (* Banco do Brasil *) ACBrBoleto.Cedente.CodigoCedente := FormatFloat('00000000000',StrToInt(ACBrBoleto.Cedente.Conta))+'-'+ACBrBoleto.Cedente.ContaDigito; ACBrBoleto.Cedente.Modalidade := qBanco.FieldByName('VARIACAO').Text; end; 33: begin (* Santander *) ACBrBoleto.Cedente.CodigoCedente := sContaComDigito; ACBrBoleto.Cedente.Modalidade := qBanco.FieldByName('CARTEIRA').Text; end; 104: begin (* Caixa Sicob *) ACBrBoleto.Cedente.CodigoCedente := ACBrBoleto.Cedente.Agencia+'870'+ACBrBoleto.Cedente.Convenio; end; 237: begin (* Bradesco *) ACBrBoleto.Cedente.CodigoCedente := FormatFloat('0000000',StrToInt(ACBrBoleto.Cedente.Conta))+'-'+ACBrBoleto.Cedente.ContaDigito; end; 341: begin (* Itau *) ACBrBoleto.Cedente.CodigoCedente := qBanco.FieldByName('CONTA').Text; end; end; (* Cedente.DigitoCodigoCedente := ''; *) No código acima não coloco nada no DigitoCodigoCedente e não sei pra que serve.
