Remessa Bradesco e Impressão Boleto erro ACBR

[medreis]

Estou homologando os arquivos para o Banco Bradesco,  porem o ACBR esta com algumas inconsistências, já vi alguns topicos mas sem resposta, por parte da Equipe.

 

No Layout remessa :

- Posição 27 a 46 - Gravar código da empresa: 4036101, completar com zeros a esquerda. Essa informação é para o arquivo de REMESSA

 

Na geração do Arquivo ACBR esta sendo utilizado o CodigoCedente

 

 

procedure TACBrBancoBradesco.GerarRegistroHeader400(NumeroRemessa : Integer; ARemessa:TStringList);
var
  wLinha: String;
begin
   with ACBrBanco.ACBrBoleto.Cedente do
   begin
      wLinha:= '0'                                             + // ID do Registro
               '1'                                             + // ID do Arquivo( 1 - Remessa)
               'REMESSA'                                       + // Literal de Remessa
               '01'                                            + // Código do Tipo de Serviço
               padL( 'COBRANCA', 15 )                          + // Descrição do tipo de serviço
               padR( CodigoCedente, 20, '0')                   + // Codigo da Empresa no Banco
               padL( Nome, 30)                                 + // Nome da Empresa
               IntToStr( Numero )+ padL('BRADESCO', 15)        + // Código e Nome do Banco(237 - Bradesco)
               FormatDateTime('ddmmyy',Now)  + Space(08)+'MX'  + // Data de geração do arquivo + brancos
               IntToStrZero(NumeroRemessa,7) + Space(277)      + // Nr. Sequencial de Remessa + brancos
               IntToStrZero(1,6);                                // Nr. Sequencial de Remessa + brancos + Contador
 

 

 

Mais existe função( veja abaixo ) que monta o código do cedente com a agencia + digito e conta + digito.

 

Veja que no próprio comentário acima esta "CÓDIGO DA EMPRESA NO BANCO"  - 027 a 046 Código da Empresa 020 Será fornecido pelo Bradesco, quando do Cadastramento Vide Obs. Pág. 16  

 

 

function TACBrBancoBradesco.MontarCampoCodigoCedente (
   const ACBrTitulo: TACBrTitulo ) : String;
begin
   Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+
             ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+
             ACBrTitulo.ACBrBoleto.Cedente.Conta+'-'+
             ACBrTitulo.ACBrBoleto.Cedente.ContaDigito;
end;

 

 

Porem nos arquivos de BOLETOS FASREPORT,  para a impressão do Boleto   no campo AGENCIA/CODIGO DO BENEFICIARIO deve ser impresso  o CODIGO DA AGENCIA(NUMERO DA AGENCIA + o DIGITO ) / CODIGO DO BENEFICIOARIO ( NUMERO DA CONTA NO BANCO + O DIGITO ) conforme a função acima MontarCampoCodigoCedente   

 

 

Precisa ser realizado o Ajuste na função de geração do arquivo ou no arquivo do BOLETO para que as informações sejam diferente.

 

E ainda verificar o tratamento do arquivo do retorno.

 

 

 

 

[Juliana Tamizou]

3.1 - Não faça flooding - Inundar o fórum com posts repetidos, com a mesma dúvida ou as mesmas palavras é chamado de flooding. Isso é proibido. Apenas um post feito no lugar certo é suficiente. Pesquise antes de postar, talvez sua dúvida já está respondida em outro post. Favor leia as regras do fórum.