Ir para conteúdo
  • Cadastre-se

Pesquisar na Comunidade

Showing results for tags 'agencia'.

  • Search By Tags

    Digite tags separadas por vírgulas
  • Search By Author

Tipo de Conteúdo


Fóruns

  • Fórum Aberto - ACBr
    • Notícias do ACBr
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrDFe
    • Dúvidas sobre TEF
    • Dúvidas sobre PIX
    • ACBrMonitor PLUS
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
  • ACBr Pro
    • Dúvidas gerais
    • Duvidas Privadas
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • Boteco do ACBr
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Banco de Dados
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categorias

  • ACBr Pro
    • ACBrLib - PRO
    • ACBrMonitorPLUS - PRO
    • Utilitários - PRO
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
    • ACBrLib Android - Pro
  • Download Livre
    • ACBrLib - DEMO
    • ACBrMonitorPLUS - DEMO
    • Demos / Testes / Utilitários
    • Apresentações - Palestras
    • ACBrLib Android - Demo

Calendários

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Calendário da Comunidade
  • ACBr Papo Pro
  • Feriados Nacionais

Find results in...

Find results that contain...


Data de Criação

  • Início

    End


Data de Atualização

  • Início

    End


Filter by number of...

Data de Registro

  • Início

    End


Grupo


Website URL

Encontrado 5 registros

  1. Bom dia @Juliana Tamizou! Conforme orientação no tópico antigo, sugestão para remover o dígito da agência do banco Santander da montagem do campo "Agência / Código Beneficiário". Sim, o arquivo anexado está atualizado. ACBrBancoSantander.pas
  2. Boa tarde, Hoje ao tentar ler um retorno da Caixa Federal, obtive o seguinte erro: Agencia\Conta do arquivo inválido Verifiquei o arquivo ACBrBancoCaixa.pas e pude ver que a variável rAgencia pega o número da agência do arquivo, com 5 dígitos. Porém, no ACBrBoleto.pas, o tamanho máximo de agência está limitado a 4. Isso ocasiona o erro, pois nessa caso, a agência é 04025 e o componente lê 4025. Tem como mudar ou é um bug mesmo ? Abaixo os códigos: constructor TACBrBancoClass.create(AOwner: TACBrBanco); begin inherited create; fpAOwner := AOwner; fpDigito := 0; fpNome := 'Não definido'; fpNumero := 0; fpTamanhoMaximoNossoNum := 10; fpTamanhoAgencia := 4; fpTamanhoConta := 10; fpCodigosMoraAceitos := '12'; fpCodigosGeracaoAceitos := '0123456789'; fpModulo := TACBrCalcDigito.Create; fpOrientacoesBanco := TStringList.Create; end; if (not LeCedenteRetorno) and ((rAgencia <> OnlyNumber(Cedente.Agencia)) or (rConta+rDigitoConta <> OnlyNumber(Cedente.CodigoCedente))) then raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido'));
  3. Boa tarde. Ao fazer a impressão do boleto do Banrisul, notei um problema de duplicidade na Agência no campo Agência/Beneficiário. Analisando os códigos fontes percebi na função: function TACBrBanrisul.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): string; begin Result := copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 1, 4)+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,1,6) + '.' + copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,7,1) + '.' + copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,8,2); end; me retorna a concatenação da agência e o número da conta, até aqui tudo bem, mas no arquivo BoletoFatura.fr3 na procedure: procedure MDOnBeforePrint(Sender: TfrxComponent); begin if Trim(<Banco."DirLogo">) <> '' then begin Logo_1.Picture.LoadFromFile(<Banco."DirLogo"> + '\' + <Banco."Numero"> + '.bmp'); Logo_2.Picture.Assign(Logo_1.Picture); end; if <Banco."Numero"> = '104' then begin CedenteAgencia.Text := <Titulo."CodCedente">; CedenteAgencia2.Text := <Titulo."CodCedente">; end else begin CedenteAgencia.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">; CedenteAgencia2.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">; end; end; Temos a concatenação da agência e do cedente novamente, assim duplicando na hora da impressão.
  4. JoaoGabriel

    Acbr Boleto Itau

    Estou com problemas ao gerar arquivo de remessa para boleto do banco Itaú , verifiquei que as informações sobre a agencia estão sendo enviadas faltando 01 digito e que a informação sobre conta esta sendo enviado zerado. Aparentemente o PDF está sendo gerado corretamente. Os dados são: Agencia = 3068 DV=3 Conta = 12040 DV 5 Cód Cedente = 341 Alguém poderia me auxiliar o que pode estar ocorrendo o erro? Em anexo, o arquivo PDF e a remessa gerada. 001.rar
  5. 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.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.