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

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