Pesquisar na Comunidade
Showing results for tags 'digitocodigocedente'.
Encontrado 1 registro
-
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.
