Pesquisar na Comunidade

Agora temos o implementado o ATHENA Banco Fomento Mercantil. Ele utiliza layout CNAB 444 foi criado tendo como base o padrao CNAB400 do Banco Bradesco. Sendo assim em nossos componentes está listada como AthenaBradesco. Agradecimento ao autor da colaboração @Marcos Lenharo Na rotina deste banco foi inclusa o campo de Chave da Nota Fiscal Eletrônica ao final da linha de cada Registro. Sendo assim é obrigatório informar a chave da nota em cada boleto. Exemplo para incluir os dados da nota no boleto: *Em breve as documentações sobre o novo banco serão atualizadas (ACBrLibBoleto, ACBrMonitorPlus)*

Prezados, bom dia! Gostaria de saber se há no ACBr, rotinas para a geração do Arquivo Remessa e leitura do Arquivo Retorno para Débitos Automáticos, no meu caso atual, para o banco Santander. Segue manual: DEBITO-AUTOMATICO-V05-06052008.pdf Poderiam me dar um Apoio?

Fala galera! Efetuamos a troca de nosso banco para o Sicoob e, durante a implementação, constatamos alguns problemas no envio do arquivo remessa. Com base nisto, verificamos o manual de integração CNAB 240 (não testamos o CNAB 400) e, analisando linha por linha, encontramos algumas divergências e assim, com a devida correção no arquivo, o mesmo passou a ser validado com sucesso (se não me falhe a memória, creio que foi alterado umas 2 a 3 linhas apenas). De todo modo, se alguém estiver tendo problemas com a integração do Sicoob, segue abaixo o arquivo com a correção que fizemos. Esperamos ter ajudado. ACBrBancoBancoob.pas

Oi gente, gostaria de tirar uma duvida no banco itau para a remessa cnab240 na transação não se pode informar os campos: Código do Desconto, Data do Desconto, Desconto1 e nem o valor da IOF. Isso estaria certo assim ou somente não foi implementado a busca desse valor pelos parâmetros do ACBrBoleto ?

Oi pessoal, estive verificando o arquivo de remessa gerado no Sicredi pelo acbrBoleto e verifiquei que no segmento "Q", ao invés de utilizar a UF do sacado estava utilizando uma property do TACBrBoleto chamada UF, então fiz uma alteração para que busque a UF do sacado do titulo, sei que pode ser pouca coisa mas acredito que ajude. Caso encontrem algo errado ou eu esteja fazendo confusão me avisem sou ainda iniciante no Delphi. Abaixo estarei postando as imagens da alteração e o arquivo alterado para testes. Pegando UF errado Alteração para buscar do sacado do titulo Arquivo para testes : Sicredi.rar Aguardando retorno... Desde já agradeço a sua atenção.

Bom Dia, Por favor, o componente ACBrBoleto esta atualizado para a versão 101 do arquivo CNAB da Caixa Economica (https://www.caixa.gov.br/Downloads/cobranca-caixa/Manual_Leiaute_CNAB240_SIGCB.pdf) ? Procurei no forum mas não encontrei. A informação da versão, para o arquivo de 240 posições, fica no registro Header nas posições 164-166 e deve conter 101, atualmente na versão que uso do componente esta sendo gravado 050. Grato Delfino Manual_Leiaute_CNAB240_SIGCB.pdf

Como envio remessa e leio retorno utilizando o padrão CNAB 400 da Caixa Econômica Federal? Estive observando o código fonte e não encontrei nada sobre esse layout.

Juliana, Enfrentei um caso novo nessa unit essa semana. Tenho um cliente pessoa física. E para pessoa física usa o cpf no arquivo retorno. Por esse motivo emitia erro de CNPJ inválido. Tive que realizar alteração no metodo: procedure TACBrBancoob.LerRetorno400(ARetorno: TStringList); rCNPJCPF := trim( Copy(ARetorno[1],4,14)) ; with ACBrBanco.ACBrBoleto do begin Cedente.Nome := rCedente; case StrToIntDef(Copy(ARetorno[1],2,2),0) of 1: begin Cedente.TipoInscricao:= pFisica; rCNPJCPF := copy(rCNPJCPF,length(rCNPJCPF) - 10,length(rCNPJCPF)); end; else Cedente.TipoInscricao:= pJuridica; end; Cedente.CNPJCPF := rCNPJCPF; ACBrBanco.ACBrBoleto.ListadeBoletos.Clear; end; Exemplo de preenchimento: //Configurar banco ACBrBoleto1.Banco.Numero := DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger; // DADOS DO BANCO with ACBrBoleto1.Banco do begin Digito := 0;//StrtoIntDef(0, 0); Nome := DMEmpresa.ClientDataSet2NOME_CONTA.AsString; Numero := DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger; case DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger of 237 : TipoCobranca := cobBradesco; 1 : TipoCobranca := cobBancoDoBrasil; 341 : TipoCobranca := cobItau; 748 : TipoCobranca := cobSicred; 104 : TipoCobranca := cobCaixaEconomica; 756 : TipoCobranca := cobBancoob; 33,53,008 : TipoCobranca := cobSantander; 21 : TipoCobranca := cobBanestes; else TipoCobranca := cobNenhum; end; end; with ACBrBoleto1.Cedente do begin Nome := DMEmpresa.ClientDataSet1EMPRESA.AsString; Agencia := DMEmpresa.ClientDataSet2AGENC_BANCO.AsString; AgenciaDigito := DMEmpresa.ClientDataSet2DIGITO_AGENC_BANCO.AsString; CodigoCedente := DMEmpresa.ClientDataSet2COD_CEDENTE.AsString; Conta := DMEmpresa.ClientDataSet2NUM_CONTA_BANCO.AsString; ContaDigito := DMEmpresa.ClientDataSet2DIGITO_CONTA_BANCO.AsString; if ( isCPF(tiraMask(DMEmpresa.ClientDataSet1CNPJ.AsString)) ) then TipoInscricao := pFisica else TipoInscricao := pJuridica; CNPJCPF := tiraMask(DMEmpresa.ClientDataSet1CNPJ.AsString); if ( Length(DMEmpresa.ClientDataSet2MODALIDADE.AsString) > 0) then Modalidade := DMEmpresa.ClientDataSet2MODALIDADE.AsString; if ( Length(DMEmpresa.ClientDataSet2CONVENIO.AsString) > 0) then Convenio := DMEmpresa.ClientDataSet2CONVENIO.AsString; end; ACBrBoleto1.DirArqRetorno := ExtractFilePath(txtNomeArquivoRetorno.Text) ; ACBrBoleto1.NomeArqRetorno := ExtractFileName(txtNomeArquivoRetorno.Text) ; ACBrBoleto1.LerRetorno; ACBrBancoob-03-09-2013.rar