Resultado Da Analise Arquivo Remessa Banco Do Brasil

Danilo · 8 Janeiro, 2013

Pessoal do BB me retornaram apontando os seguintes erros:

ANÁLISE DO ARQUIVO REMESSA
---------------------------------------

Recebemos via e-mail, para análise, arquivo teste: 04012013625.REM - Padrão CNAB240 - e identificamos as seguintes ocorrências:

HEADER DE ARQUIVO
Pos. 033 a 052 - Código Convênio - Informar: 002389732001417019 (foi informado:002298477001417000)

HEADER DE LOTE
Pos. 034 a 053 - Código Convênio - Informar: 002389732001417019 (foi informado:002298477001417000)

SEGMENTO P
Pos. 038 a 057 - Nosso-número - O nosso-número deverá ser gerado no seguinte formato:
CCCCCCCNNNNNNNNNN , onde:
CCCCCCC - número do convênio: 2389732
NNNNNNNNNN - número seqüencial atribuído pela Empresa (10 dígitos);
(foi informado:22984770000000000 em todos os títulos)

ANÁLISE DOS BOLETOS
----------------------------

Recebemos através de e-mail, para análise, boletos de cobrança tendo sido verificadas as seguintes ocorrências:

LINHA DIGITÁVEL / CÓDIGO DE BARRAS
Corrigir o NOSSO-NÚMERO informado na linha digitável/código de barras, conforme abaixo:

FORMATO DO CÓDIGO DE BARRAS PARA CONVÊNIOS ACIMA DE 1.000.000
Posição Conteúdo
01 a 03 Código do Banco na Câmara de Compensação
04 a 04 Código da Moeda
05 a 05 DV do Código de Barras
06 a 09 Fator de Vencimento
10 a 19 Valor
20 a 25 Zeros
26 a 42 NOSSO-NUMERO. Utilizar o seguinte padrão:
CCCCCCCNNNNNNNNNN , onde:
CCCCCCC - número do convênio: 2389732 (foi informado:2298477)
NNNNNNNNNN - número seqüencial atribuído pela Empresa;
43 a 44 Carteira

Campo: NOSSO-NÚMERO
Gerar o nosso-número conforme padrão abaixo:
CCCCCCCNNNNNNNNNN , onde:
CCCCCCC - número do convênio: 2389732 (foi informado:2298477)
NNNNNNNNNN - número seqüencial atribuído pela Empresa;

Alguem ja passou por isso ? será q eu e estou informando algo errado ou o componente que nao gerou corretamente ?

Juliana Tamizou · 9 Janeiro, 2013

Bom dia.

Como está configurado seu componente e quais as informações passadas para os titulos(carteira e nosso número) ?

Att.

Danilo · 9 Janeiro, 2013

Ola Juliana,

class procedure TldiBoletos.ConfiguraACBR(pACBrBoleto : TACBrBoleto; pCDS : TClientDataSet);
var
 Caminho : String;
 i, Rand : Integer;
begin
  Randomize;
  Rand := Random(999);

  Caminho := ExtractFilePath(Application.ExeName);

  pACBrBoleto.Banco.TipoCobranca    := cobBancoDoBrasil;
  pACBrBoleto.Cedente.Agencia       := FCDS_Configuracao_Cobranca.FieldByName('AGENCIA').AsString;
  pACBrBoleto.Cedente.AgenciaDigito := FCDS_Configuracao_Cobranca.FieldByName('AGENCIA_DIGITO').AsString;
  pACBrBoleto.Cedente.Bairro        := FCDS_Configuracao_Cobranca.FieldByName('BAIRRO').AsString;
  pACBrBoleto.Cedente.CaracTitulo   := tcSimples;
  pACBrBoleto.Cedente.CEP           := FCDS_Configuracao_Cobranca.FieldByName('CEP').AsString;
  pACBrBoleto.Cedente.Cidade        := FCDS_Configuracao_Cobranca.FieldByName('CIDADE').AsString;
  pACBrBoleto.Cedente.CNPJCPF       := FCDS_Configuracao_Cobranca.FieldByName('CNPJ').AsString;
  pACBrBoleto.Cedente.CodigoCedente := FCDS_Configuracao_Cobranca.FieldByName('CODIGO_CEDENTE').AsString;
  //pACBrBoleto.Cedente.CodigoTransmissao := FCDS_Configuracao_Cobranca.FieldByName('CONVENIO').AsString;
  pACBrBoleto.Cedente.Complemento := FCDS_Configuracao_Cobranca.FieldByName('COMPLEMENTO').AsString;
  pACBrBoleto.Cedente.Conta       := FCDS_Configuracao_Cobranca.FieldByName('CONTA').AsString;
  pACBrBoleto.Cedente.ContaDigito := FCDS_Configuracao_Cobranca.FieldByName('CONTA_DIGITO').AsString;
  pACBrBoleto.Cedente.Convenio    := FCDS_Configuracao_Cobranca.FieldByName('CONVENIO').AsString;
  pACBrBoleto.Cedente.Logradouro  := FCDS_Configuracao_Cobranca.FieldByName('ENDERECO').AsString;
  pACBrBoleto.Cedente.Modalidade  := 'DM';
  pACBrBoleto.Cedente.Nome        := FCDS_Configuracao_Cobranca.FieldByName('CEDENTE').AsString;
  pACBrBoleto.Cedente.NumeroRes   := FCDS_Configuracao_Cobranca.FieldByName('NUMERO').AsString;
  pACBrBoleto.Cedente.ResponEmissao := tbCliEmite;
  pACBrBoleto.Cedente.TipoInscricao := pJuridica;
  pACBrBoleto.Cedente.UF            := FCDS_Configuracao_Cobranca.FieldByName('UF').AsString;

  pACBrBoleto.DataArquivo       := Now;
  //pACBrBoleto.DataCreditoLanc   :=
  pACBrBoleto.DirArqRemessa     := Caminho + '\Boletos\001\Rem\';
  pACBrBoleto.DirArqRetorno     := Caminho + '\Boletos\001\Ret\';
  pACBrBoleto.ImprimirMensagemPadrao := True;
  pACBrBoleto.LayoutRemessa     := c240;
  pACBrBoleto.LeCedenteRetorno  := True;
  pACBrBoleto.NomeArqRemessa    := redat(DateToStr(now)) + IntToStr(Rand) + '.REM';
 
 end;

 =============================================================
 Criando os Titulos
 
   for I := 0 to Lista_Titulos.Count - 1 do
   begin
    Parcela_Temp := Lista_Titulos.Items[i];

    {$Region 'Cria Objetos'}
     Titulo := FDataModule.ACBrBoleto.CriarTituloNaLista;
     with Titulo do
      begin
       LocalPagamento  := 'Pagar preferêncialmente nas agências do Bando do Brasil';

     {$Region 'Carrega Cliente'}
       FCDS_Cliente   :=  TldiUtils.Retorna_CDS_Com_Dados(' cliente where id = ' + '"'+IntToStr(Parcela_Temp.Id_Cliente)+'"', retCDSCliente);
     {$EndRegion 'Carrega Cliente'}

      if pInstrucao = tiAlterarVencimento  then Vencimento      := StrToDate(pNovoValor) else Vencimento      := Parcela_Temp.DataVencimento; //FCDS_Parcelas.FieldByName('DATA_VENCIMENTO').AsDateTime;
      if pInstrucao = tiGerar_Boleto       then DataDocumento   := Date                  else DataDocumento   := Parcela_Temp.DataEmissao; //FCDS_Parcelas.FieldByName('DATA_EMISSAO').AsDateTime;
      if pInstrucao = tiConcederAbatimento then ValorAbatimento := StrToCurr(pNovoValor) else ValorAbatimento := 0;

        NumeroDocumento   := Parcela_Temp.NumeroDocumento; //FCDS_Parcelas.FieldByName('NUMERO_DOCUMENTO').AsString;
        EspecieDoc        := 'DM';
        Aceite            := atSim;
        DataProcessamento := Date;
        Carteira          := FCDS_Configuracao_Cobranca.FieldByName('CARTEIRA').AsString; // no caso é 17

        NossoNumero       :=  Parcela_Temp.NossoNumero; //sequencial q é incrementado 10 digitos

        ValorDocumento    := Parcela_Temp.ValorParcela; //FCDS_Parcelas.FieldByName('VALOR_PARCELA').AsFloat;
        Sacado.NomeSacado := FCDS_Cliente.FieldByName('NOME').AsString;

      if FCDS_Cliente.FieldByName('FLAG_FISICA').AsString = 'Y' then Sacado.Pessoa := pFisica else Sacado.Pessoa:= pJuridica;

        Sacado.CNPJCPF    := FCDS_Cliente.FieldByName('CPF_CNPJ').AsString;
        Sacado.Logradouro := FCDS_Cliente.FieldByName('ENDERECO').AsString;
        Sacado.Numero     := FCDS_Cliente.FieldByName('NUMERO').AsString;
        Sacado.Bairro     := FCDS_Cliente.FieldByName('BAIRRO').AsString;
        Sacado.Cidade     := FCDS_Cliente.FieldByName('CIDADE').AsString;
        Sacado.UF         := FCDS_Cliente.FieldByName('UF').AsString;
        Sacado.CEP        := FCDS_Cliente.FieldByName('CEP').AsString;

        Titulo.Mensagem.Text := 'Titulo sujeito a prpotesto, depósito em conta não liquida este título - Cobrar juros definido pelo banco';

        SeuNumero         := Parcela_Temp.NumeroDocumento; //FCDS_Parcelas.FieldByName('NUMERO_DOCUMENTO').AsString;

       {Dependendo da Instrucao passada por parametro ele gera acao}
       if pInstrucao = tiRegistrar          then Titulo.OcorrenciaOriginal.Tipo := toRemessaRegistrar;
       if pInstrucao = tiBaixar             then Titulo.OcorrenciaOriginal.Tipo := toRemessaBaixar;
       if pInstrucao = tiConcederAbatimento then Titulo.OcorrenciaOriginal.Tipo := toRemessaConcederAbatimento;
       if pInstrucao = tiAlterarVencimento  then Titulo.OcorrenciaOriginal.Tipo := toRemessaAlterarVencimento;

        {$Region 'Preenche Lista'}
        ParcelaReceber                     := TFinParcelaReceberVO.Create;
        ParcelaReceber.Id                  := Parcela_Temp.Id;                  //FCDS_Parcelas.FieldByName('ID').AsInteger;
        ParcelaReceber.Id_Status           := Parcela_Temp.Id_Status;           //FCDS_Parcelas.FieldByName('ID_STATUS').AsInteger;
        ParcelaReceber.IdLancamentoReceber := Parcela_Temp.IdLancamentoReceber; //FCDS_Parcelas.FieldByName('ID_LANCAMENTO_RECEBER').AsInteger;
        ParcelaReceber.NumeroParcela       := Parcela_Temp.NumeroParcela;       //FCDS_Parcelas.FieldByName('NUMERO_PARCELA').AsString;
        ParcelaReceber.DataEmissao         := Parcela_Temp.DataEmissao;         //FCDS_Parcelas.FieldByName('DATA_EMISSAO').AsDateTime;
        ParcelaReceber.DataVencimento      := Parcela_Temp.DataVencimento;      //FCDS_Parcelas.FieldByName('DATA_VENCIMENTO').AsDateTime;
        ParcelaReceber.TaxaJuro            := Parcela_Temp.TaxaJuro;            //FCDS_Parcelas.FieldByName('TAXA_JURO').AsFloat;
        ParcelaReceber.TaxaDesconto        := Parcela_Temp.TaxaDesconto;        //FCDS_Parcelas.FieldByName('TAXA_DESCONTO').AsFloat;
        ParcelaReceber.VlrJuros            := Parcela_Temp.VlrJuros;            //FCDS_Parcelas.FieldByName('VLR_JUROS').AsFloat;
        ParcelaReceber.VlrDesconto         := Parcela_Temp.VlrDesconto;         //FCDS_Parcelas.FieldByName('VLR_DESCONTO').AsFloat;
        ParcelaReceber.ValorParcela        := Parcela_Temp.ValorParcela;        //FCDS_Parcelas.FieldByName('VALOR_PARCELA').AsFloat;
        ParcelaReceber.VlrCorrigido        := Parcela_Temp.VlrCorrigido;        //FCDS_Parcelas.FieldByName('VLR_CORRIGIDO').AsFloat;
        // Parcela_Temp.FlagBoleto;          //FCDS_Parcelas.FieldByName('FLAG_BOLETO').AsString;

       if pInstrucao = tiRegistrar    then ParcelaReceber.Flag_Ja_Remessa  := 'Y' else Parcela_Temp.Flag_Ja_Remessa    := Parcela_Temp.Flag_Ja_Remessa;
       if pInstrucao = tiGerar_Boleto then ParcelaReceber.Flag_Ja_Impresso := 'Y' else ParcelaReceber.Flag_Ja_Impresso := Parcela_Temp.Flag_Ja_Impresso;

        ParcelaReceber.Flag_Cartao         := 'N';
        ParcelaReceber.NossoNumero         := NossoNumero;
        ParcelaReceber.NumeroDocumento     := Parcela_Temp.NumeroDocumento;   //FCDS_Parcelas.FieldByName('NUMERO_DOCUMENTO').AsString;
        ParcelaReceber.Saldo_Recebimento   := Parcela_Temp.Saldo_Recebimento; //FCDS_Parcelas.FieldByName('SALDO_REBECIMENTO').AsFloat;
        ParcelaReceber.Obs                 := Parcela_Temp.Obs;               //FCDS_Parcelas.FieldByName('OBS').AsString;
        Lista_Parc_Rec.Add(ParcelaReceber);
        {$EndRegion 'Preenche Lista'}
     end;
    {$EndRegion 'Cria Objetos'}

    end;
	
===================================================
	
	depois da primeira analise do pessoal do banco, eu alterei a linha 
	
	    >>>>>>>> era   padR(Convenio, 9, '0') + '0014'  eu coloquei padR(Convenio, 8, '0') + '0014' pra ver, 
=================================================
 Dai eles retornaram outra analise que aparentemente diminuiu os erros
		
		OCORRÊNCIAS:

REGISTRO HEADER DE ARQUIVO:

Posições 033 a 052 = 002389732001417019 e demais espaços em branco
Posições 053 a 058 = 048658
Posições 059 a 071 = 52000
Posições 072 a 072 = Espaço em branco.
Posições 073 a 102 = Nome da empresa

REGISTRO HEADER DE LOTE:

Posições 034 a 053 = 002389732001417019 e demais espaços em branco
Posições 054 a 059 = 048658
Posições 060 a 072 = 52000
Posições 073 a 073 = Espaço em branco.
Posições 074 a 103 = Nome da empresa


REGISTRO SEGMENTO P:

Posição 109 a 109: foi Informada opção “A”. Apenas um esclarecimento: A grande maioria das empresas informa “N” mas é a empresa quem define.  Se colocar “A” ( aceite ) significa que o sacado reconhece a existência da dívida e o cartório só efetua protesto mediante autorização do sacado. Se colocar “N” (Não aceite), não é necessário a autorização do sacado para protestar o título. Caso mude para N, favor colocar o mesmo no boleto.

Aguardaremos retorno de suas providências dentro de 10 dias corridos. Ao término deste prazo, encerraremos esta ocorrência, implicando em abertura  de novo chamado por essa empresa junto ao Suporte Técnico, no caso de envio de novo arquivo.

Juliana Tamizou · 10 Janeiro, 2013

Boa noite.

Para facilitar os testes informe os valores passados ao componente, exemplo Convênio = 1234567, etc...

Att.

Danilo · 10 Janeiro, 2013

Bom dia Juliana,

por meio de debug eu fui pegando os valores passados, esses são os da configuração do componente ACBrBoleto:

codigocedente = 18878868

conta = 000000005200

digito conta = 0

convenio = 2389732

são passados exatamente como acima para o componente.

=====================================================

Esses são os dados na montagem do titulo, tbm os peguei via debug...

carteira = 17

nosso numero = 113

======================================================

segue link dos prints das imagens do objeto Lista de titulos pelo debug / inspect

https://skydrive.live.com/redir?resid=C73FDE481FFE8006!35330&authkey=!AOK5NWIsfm4aH-Y

Obrigado,

Juliana Tamizou · 11 Janeiro, 2013

Boa tarde Danilo.

Efetuei um teste através do aplicativo demo do ACBrBoleto e todas as informações estão idênticas a orientação do banco.

Você está com seu svn atualizado?

Att.

Danilo · 11 Janeiro, 2013

Boa tarde Juliana,

Eu desinstalei e exclui as bpls e dcps, atualizei os fontes e instalei novamente o componente, entao gerei novamente os arquivos para eles analisarem e me retornaram esse resultado:

================================================================================

OCORRÊNCIAS:

REGISTRO HEADER DE ARQUIVO:

Posições 033 a 052 = 002389732001417019 e demais espaços em branco

REGISTRO HEADER DE LOTE:

Posições 034 a 053 = 002389732001417019 e demais espaços em branco

REGISTRO SEGMENTO P:

Posição 109 a 109: foi Informada opção “A” e no Boleto no campo aceite informado “S”. Apenas um esclarecimento: A grande maioria das empresas informa “N” mas é a empresa quem define. Se colocar “A” ( aceite ) significa que o sacado reconhece a existência da dívida e o cartório só efetua protesto mediante autorização do sacado. Se colocar “N” (Não aceite), não é necessário a autorização do sacado para protestar o título. Caso mude para N, favor colocar o mesmo no boleto.

Aguardaremos retorno de suas providências dentro de 07 dias corridos. Ao término deste prazo, encerraremos esta ocorrência, implicando em abertura de novo chamado por essa empresa junto ao Suporte Técnico, no caso de envio de novo arquivo.

Equipe de Testes de Leiaute

Banco do Brasil S.A.

CSO Belo Horizonte MG

OCORRÊNCIAS:

============================================================================

pelo visto, problema é apenas 1 espaço em branco sobrando, fiz uma alteração aqui, analisando pelo notepad++ e se der certo eu posto o resultado dizendo onde alterei, de qualquer forma eu posto o resultado q estou aguardando da ultima analise.

Grato,

Danilo

Editado 11 Janeiro, 2013 por Danilo

Juliana Tamizou · 14 Janeiro, 2013

Bom dia Danilo.

Comparando seu primeiro post ao último cheguei a conclusão que o header de arquivo e o header de lote estão corretos...

Quanto ao aceite você informou ao componente a propriedade Aceite como Sim? para deixar como Não, basta setar essa propriedade corretamente em cada titulo.

Att.

Danilo · 22 Janeiro, 2013

Informamos que o arquivo encaminhado para análise encontra-se dentro dos padrões estabelecidos, no que se refere à estrutura e ao posicionamento dos campos.

Salientamos que a conferência é feita por amostragem e que são de responsabilidade do cliente:

- Não alterar os dados fixos conferidos (ex.: prefixo do BB, número de convênio, da carteira/ variação, CNPJ/Agência/Conta da sua empresa, versão de leiaute, dentre outros, inclusive aqueles cujos normativos da FEBRABAN informem que tenham de ser preenchidos com brancos ou zeros );

- A informação correta de dados variáveis ( ex.: nomes, endereços, CPFs/CNPJs, câmara de compensação, prefixos de agências/DV, números de contas, valores, somatórios, datas, dentre outros);

- A informação correta de dados estruturais ( ex.: tipo de registro, numeração seqüencial de registros e de lotes, etc).

A critério da empresa poderá ser transmitida remessa para teste, através do Gerenciador Financeiro ( Transferência de Arquivos/Remessa ), bastando que seja informado “TS” nas posições 52 e 53 do Header de Lote. Após o processamento, o Banco disponibilizará arquivo-retorno, para tratamento pelo seu programa próprio.

Quando o arquivo for transmitido definitivamente para produção, as colunas 52 e 53 do Header de Lote deverão ser alteradas para brancos.

As boletas não apresentaram inconsistências no que se refere a layout, código de barras e linha digitável;

estão aprovadas para distribuição aos sacados.

Salientamos que a informação correta dos dados impressos é de responsabilidade do cliente.

Obs.: As informações referentes a juros/multa/protesto devem ser compatíveis com as informações do arquivo-remessa.

Obs.: Solicitar ao Gerente de Contas BB, o cadastramento de juros e multas que estão mencionadas nas boletas.

Consideramos o teste finalizado.

Equipe de Testes de Layout

Banco do Brasil

CSO Belo Horizonte MG

================================================================================================================================================================

Deu Certo após eu atualizar os fontes.

> Uma Observação... eu tbm estava informando a VARIAÇÃO DE CARTEIRA errada, eu informava null, mas o correto no meu caso era 019

Editado 22 Janeiro, 2013 por Danilo

ernestosoft · 21 Março, 2013

Em que local vc informou a Variação da carteira???

Pois, estou passando:

Carteira := bQuery.FieldByName('Carteira').AsString; //que é igual a "17019"

Mais, ele só ler 17 e iguinora o 019, dai na geração de remessa no local que deveria aparecer 17019, aparece 17000.

Pode me ajudar!!!

Desde já agradeço!

Danilo · 21 Março, 2013

Em que local vc informou a Variação da carteira???

Pois, estou passando:

Carteira := bQuery.FieldByName('Carteira').AsString; //que é igual a "17019"

Mais, ele só ler 17 e iguinora o 019, dai na geração de remessa no local que deveria aparecer 17019, aparece 17000.

Pode me ajudar!!!

Desde já agradeço!

na propriedade >> EspecieMod

na carteira := '17'

na EspecieMod := '019'

ernestosoft · 22 Março, 2013

na propriedade >> EspecieMod

na carteira := '17'

na EspecieMod := '019'

Danilo, Ogrigado pela dica!

Depois de muito trabalho para reinstalar o acbr

Coloquei em EspecieMod :='019', mais quando gero a remessa a onde de veria 001478549001417019, fica 001478549001417000

ele não coloca o 019 no lugar dos 000.

VC tem alguma dica!!!!

Editado 24 Março, 2013 por ernestosoft

Juliana Tamizou · 22 Março, 2013

Bom dia.

A variação deve ser informada na propriedade Modalidade do componente ACBrBoleto.

Att.

Danilo · 22 Março, 2013

Danilo, Ogrigado pela dica!

Depois de muito trabalho para reistalar o acbr

Coloquei em EspecieMod :='019', mais quando gero a remessa a onde de veria 001478549001417019, fica 001478549001417000

ele não coloca o 019 no lugar dos 000.

VC tem alguma dica!!!!

estranho,

pq no meu ta ok, inclusive foi homologado pelo pessoal da analise do banco, eu informo na propriedade 'EspecieMod := '019''...

ernestosoft · 24 Março, 2013

Juliana! Sua resposta foi perfeita, resolveu meu problema.

Danilo, não sei porque no meu exemplo não estar funcionando! Testei do seu
jeito, mais o da Juliana foi o que deu certo no meu caso.

Outra...

Tenho outras alterações no arquivo de remessa, mais não sei como identificar
qual a propriedade que tenho quer modificar para resolver o problema.

Estou na tentativa e erro, isso leva muito tempo.

Tens alguma dica???

E obrigado pela atenção!

Editado 24 Março, 2013 por ernestosoft

Juliana Tamizou · 25 Março, 2013

Bom dia.

Que bom que a Modalidade resolveu, para que possamos ajudar com a questões da remessa, cite aqui quais são os problemas encontrados, observe a necessidade de abrir um novo tópico para seu problema.

Att.

Danilo · 25 Março, 2013

Juliana! Sua resposta foi perfeita, resolveu meu problema.

Danilo, não sei porque no meu exemplo não estar funcionando! Testei do seu

jeito, mais o da Juliana foi o que deu certo no meu caso.

Outra...

Tenho outras alterações no arquivo de remessa, mais não sei como identificar

qual a propriedade que tenho quer modificar para resolver o problema.

Estou na tentativa e erro, isso leva muito tempo.

Tens alguma dica???

E obrigado pela atenção!

Me desculpe Ernesto,

Foi pura falta de atenção a minha, sorte que a Juliana observou bem, no meu metodo para configurar o ACBrBoleto eu estava fazendo corretamento

 pACBrBoleto.Cedente.Modalidade  := FCDS_Configuracao_Cobranca.FieldByName('VARIACAO').AsString;

mas tbm na hora de criar o titulo na lista estava passado de forma errada, e quando respondi sua pergunta, olhe apenas no metodo que cria o titulo na lista que nele eu colocava a variação na propriedade ('EspecieMod'), e isso está errado, ai deveria ser 'EspecieMod:= 'R$' imagino... graças ao seu questionamento acabei por corrigindo uma falha no meu codigo tbm, mas mesmo com essa falha, como no ACBRBoleto eu passada a variação na propriedade "Modalidade" corretamento '019', foi homologado pelo pessoal do banco... ou seja, a propriedade ''EspecieMod' tem pouca relavancia.

Editado 25 Março, 2013 por Danilo

ernestosoft · 26 Março, 2013

Danilo!

Mais no seu código acima, vc fez da seguinte maneira:

pACBrBoleto.Cedente.Modalidade := 'DM';

Mais tudo bem! O importante que o problema foi resolvido.

Juliana!

O banco me deu essas informações...

┌──────────────────────────────────────────────────────────────────┐
│ ►eader de Lote ►Lote 0001 │
└──────────────────────────────────────────────────────────────────┘

Posições 012 a 013: Preencher com brancos

┌──────────────────────────────────────────────────────────────────┐
│ ►Segmento P ►Lote 0001 │
└──────────────────────────────────────────────────────────────────┘

Posições 106 a 106: Preencher com branco
Posições 107 a 108: Para carteira 17, modalidade simples, preencher com '01',
'02', '04', '06', '07', '12', '17', '19', '26', '27', '28' ou '29'

┌──────────────────────────────────────────────────────────────────┐
│ ►Segmento R ►Lote 0001
│
└──────────────────────────────────────────────────────────────────┘

Posições 208 a 210: Campo não tratado, preencher com zeros
Posições 211 a 215: Campo não tratado, preencher com zeros
Posições 217 a 228: Campo não tratado, preencher com zeros
Posições 231 a 231: Campo não tratado, preencher com zeros
++++++++++++++++++++++++++++++++++++++++++++++++

A dificuldade e que eu não consigo identificar, qual o
campo que eu devo modificar no ACBR para realizar as alterações solicitadas
pelo banco.

Como não sou eu que gero o arquivo, mais o ACBR, fico tentando encontrar o campo na tentativa erro!!

Alguém tem ideias???

Editado 26 Março, 2013 por ernestosoft

Danilo · 26 Março, 2013

Danilo!

Mais no seu código acima, vc fez da seguinte maneira:

pACBrBoleto.Cedente.Modalidade := 'DM';

Mais tudo bem! O importante que o problema foi resolvido.

Juliana!

O banco me deu essas informações...

┌──────────────────────────────────────────────────────────────────┐

│      ►eader de Lote                  ►Lote 0001               │

└──────────────────────────────────────────────────────────────────┘

Posições 012 a 013: Preencher com brancos

┌──────────────────────────────────────────────────────────────────┐

│      ►Segmento P                      ►Lote 0001               │

└──────────────────────────────────────────────────────────────────┘

Posições 106 a 106: Preencher com branco

Posições 107 a 108: Para carteira 17, modalidade simples, preencher com '01',

'02', '04', '06', '07', '12', '17', '19', '26', '27', '28' ou '29'

┌──────────────────────────────────────────────────────────────────┐

│      ►Segmento R                      ►Lote 0001

│

└──────────────────────────────────────────────────────────────────┘

Posições 208 a 210: Campo não tratado, preencher com zeros

Posições 211 a 215: Campo não tratado, preencher com zeros

Posições 217 a 228: Campo não tratado, preencher com zeros

Posições 231 a 231: Campo não tratado, preencher com zeros

++++++++++++++++++++++++++++++++++++++++++++++++

A dificuldade e que eu não consigo identificar, qual o

campo que eu devo modificar no ACBR para realizar as alterações solicitadas

pelo banco.

Como não sou eu que gero o arquivo, mais o ACBR, fico tentando encontrar o campo na tentativa erro!!

Alguém tem ideias???

isso mesmo Ernesto,

foi na tentativa e erro, foram varios arquivos enviados para analise até que chegasse ao padrao correto e eles aprovassem, segue abaixo parte do codigo que eu uso para configurar o componente ACBrBoleto atualmente e deu certo..., esse que vc citou foi um antigo que foi reprovado, como vc pode ver o post é antigo.

class procedure TldiBoletos.ConfiguraACBR(pACBrBoleto : TACBrBoleto; pCDS : TClientDataSet);
var
 Caminho : String;
 i, Rand : Integer;
begin
  Randomize;
  Rand := Random(999);

  Caminho := ExtractFilePath(Application.ExeName);

  pACBrBoleto.Banco.TipoCobranca    := cobBancoDoBrasil;
  pACBrBoleto.Cedente.Agencia       := FCDS_Configuracao_Cobranca.FieldByName('AGENCIA').AsString;
  pACBrBoleto.Cedente.AgenciaDigito := FCDS_Configuracao_Cobranca.FieldByName('AGENCIA_DIGITO').AsString;
  pACBrBoleto.Cedente.Bairro        := FCDS_Configuracao_Cobranca.FieldByName('BAIRRO').AsString;
  pACBrBoleto.Cedente.CaracTitulo   := tcSimples;
  pACBrBoleto.Cedente.CEP           := FCDS_Configuracao_Cobranca.FieldByName('CEP').AsString;
  pACBrBoleto.Cedente.Cidade        := FCDS_Configuracao_Cobranca.FieldByName('CIDADE').AsString;
  pACBrBoleto.Cedente.CNPJCPF       := FCDS_Configuracao_Cobranca.FieldByName('CNPJ').AsString;
  pACBrBoleto.Cedente.CodigoCedente := FCDS_Configuracao_Cobranca.FieldByName('CODIGO_CEDENTE').AsString;
  pACBrBoleto.Cedente.Complemento := FCDS_Configuracao_Cobranca.FieldByName('COMPLEMENTO').AsString;
  pACBrBoleto.Cedente.Conta       := FCDS_Configuracao_Cobranca.FieldByName('CONTA').AsString;
  pACBrBoleto.Cedente.ContaDigito := FCDS_Configuracao_Cobranca.FieldByName('CONTA_DIGITO').AsString;
  pACBrBoleto.Cedente.Convenio    := FCDS_Configuracao_Cobranca.FieldByName('CONVENIO').AsString;
  pACBrBoleto.Cedente.Modalidade  := FCDS_Configuracao_Cobranca.FieldByName('VARIACAO').AsString;
  pACBrBoleto.Cedente.Logradouro  := FCDS_Configuracao_Cobranca.FieldByName('ENDERECO').AsString;
  pACBrBoleto.Cedente.Nome        := FCDS_Configuracao_Cobranca.FieldByName('CEDENTE').AsString;
  pACBrBoleto.Cedente.NumeroRes   := FCDS_Configuracao_Cobranca.FieldByName('NUMERO').AsString;
  pACBrBoleto.Cedente.ResponEmissao := tbCliEmite;
  pACBrBoleto.Cedente.TipoInscricao := pJuridica;
  pACBrBoleto.Cedente.UF            := FCDS_Configuracao_Cobranca.FieldByName('UF').AsString;
  pACBrBoleto.DataArquivo           := Now;
  //pACBrBoleto.DataCreditoLanc   :=
  pACBrBoleto.DirArqRemessa         := Caminho + '\Boletos\001\Rem\';
  //pACBrBoleto.DirArqRetorno         := Caminho + '\Boletos\001\Ret\';
  pACBrBoleto.ImprimirMensagemPadrao := True;
  pACBrBoleto.LayoutRemessa         := c240;
  pACBrBoleto.NomeArqRemessa        := redat(DateToStr(now)) + IntToStr(Rand) + '.REM';

Editado 26 Março, 2013 por Danilo

Danilo · 26 Março, 2013

Ernesto,

quando eu abri esse topico, eu pensava que o problema estava nos fontos, inclusive fiz alteraçoes e que acabavam por ajustar uma coisa, mas atrapalhavam outra, por fim notei que eu estava informando as propriedades erradas, dai eu baixei esse arquivo no site da febraban pra entender de fato o layout dos arquivos, rem/ret padrao cnab 240... segue o link:

http://skydrive.live.com/redir?resid=C73FDE481FFE8006!36575&authkey=!AOgweqlPytr2yoc

quando percebi isso atualizei os fontes e os deixei inalterados, e fui antes de enviar para analise eu mesmo fazendo uma "pré análise" usando o notepad++ (pode ser o bloco de notas tbm, normalmente), usei como referencia esse manual da FEBRABAN, só assim consegui homologar, ainda assim deixei passar algumas coisas que foi o caso da propriedade Titulo.EspecieMod onde eu estava informando a variacao 019, sorte que isso nao implicou no resultado positivo da homologação. Não sei se vc ja estudou o manual da febraban, se ainda não, de uma olhada que vai te ajudar muito... no meu caso o manual e o notepad++ fez milagre.. rsrs..

rluizf · 7 Agosto, 2013

Bom dia Danilo.

Estou passando pelos seguintes erros ao validar o arquivo de remessa:

====================================================================================================
Header de Lote                   > Lote 0001
----------------------------------------------------------------------------------------------------

Posições 012 a 013: Preencher com brancos

====================================================================================================
Segmento P                       > Lote 0001
----------------------------------------------------------------------------------------------------

Posições 106 a 106: Preencher com branco

====================================================================================================
Segmento R                       > Lote 0001
----------------------------------------------------------------------------------------------------

Posições 208 a 210: Campo não tratado, preencher com zeros
Posições 211 a 215: Campo não tratado, preencher com zeros
Posições 217 a 228: Campo não tratado, preencher com zeros
Posições 231 a 231: Campo não tratado, preencher com zeros

----------------------------------------------------------------------------------------------

O AcbrBoleto está atualizado no svn, especialmente o ACBrBancoBrasil.pas, conforme o leiaute da fenabram 240 ?

Devo corrigir nos próprios fontes do AcbrBoleto ou existe uma versão mais atualizada que corrige esses problemas?

Agradeço desde já.

Ricardo Luiz.

designerba · 3 Junho, 2015

Bom dia

Alguém ja passou pelo erro CADASTRO PARA REMESSA COM FORMATO CNAAB240(C617-000) remesa para banco do brasil? e se poderia me dar uma dica

Grato

Designerba

Juliana Tamizou · 5 Junho, 2015

Boa noite.

Este seria uma das variações devido ao tamanho do convênio ou um outro manual completamente diferente?

Att.

Cris Mx · 22 Dezembro, 2020

Recebi esse retorno do banco ao enviar minha remessa

> Header de Lote < Lote 0001 >
--------------------------------------------------------------------

Posições 012 a 013: Preencher obrigatoriamente com espaços em branco.

Alguém pode me ajudar?
https://www.bb.com.br/docs/pub/emp/empl/dwn/CbrVer04BB.pdf

CbrVer04BB.pdf

Editado 22 Dezembro, 2020 por Cris Mx

Cris Mx · 5 Janeiro, 2021

Documentação Agosto/2020 informa também : Posições 012 a 013: Preencher obrigatoriamente com espaços em branco.
https://www.bb.com.br/docs/pub/emp/empl/dwn/CNAB240SegPQRSTY.pdf?pk_vid=e4070d16874fcd151609875614f673e7

Entrar

Sobre nós...

Resultado Da Analise Arquivo Remessa Banco Do Brasil

Recommended Posts

Danilo

Juliana Tamizou

Danilo

Juliana Tamizou

Danilo

Juliana Tamizou

Danilo

Juliana Tamizou

Danilo

ernestosoft

Danilo

ernestosoft

Juliana Tamizou

Danilo

ernestosoft

Juliana Tamizou

Danilo

ernestosoft

Danilo

Danilo

rluizf

designerba

Juliana Tamizou

Cris Mx

Cris Mx

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante