Erro Geração Remessa Bradesco

[rlmariz]

Olá estou com prolemas na geração do arquivo de remessa do banco Bradesco, vi em algum tópico(abaixo) que já identificaram o problema porem solução dada não resolveu ou eu estou fazendo alguma coisa errada.

 

 

O problema está na geração do header, onde conforme manual deve ir brancos da posição 118 a 394, onde é montada pelo código abaixo.

 

procedure TACBrBancoBradesco.GerarRegistroHeader400(NumeroRemessa : Integer; ARemessa:TStringList);
var
  wLinha, ATipoInscricao: String;
begin
   with ACBrBanco.ACBrBoleto.Cedente do
   begin
      case TipoInscricao of
         pFisica  : ATipoInscricao := '1';
         pJuridica: ATipoInscricao := '2';
      else
         ATipoInscricao := ' ';
      end;

      wLinha:= '0'                                             + // ID do Registro
               '1'                                             + // ID do Arquivo( 1 - Remessa)
               'REMESSA'                                       + // Literal de Remessa
               '01'                                            + // Código do Tipo de Serviço
               PadRight( 'COBRANCA', 15 )                          + // Descrição do tipo de serviço
               PadLeft( CodigoCedente, 20, '0')                   + // Codigo da Empresa no Banco
               PadRight( Nome, 30)                                 + // Nome da Empresa
               IntToStr( Numero )+ PadRight('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(101)      + // Nr. Sequencial de Remessa + brancos
               ATipoInscricao + Space(175)                     + // Cedente é pessoa Física ou Júrdica
               IntToStrZero(1,6);                                // Nr. Sequencial de Remessa + brancos + Contador

      ARemessa.Text:= ARemessa.Text + UpperCase(wLinha);
   end;
end;

ATipoInscricao deve ser espaço em branco, foi feita uma correção em 14/dez/2015 onde passava vazio('') para passar um espaço em branco(' ') porem como foi definido a estrutura da classe nunca vai passar pelo espaço em branco, veja código abaixo.

 

TACBrPessoa = (pFisica,pJuridica,pOutras);
TACBrPessoaCedente = pFisica..pJuridica;


property TipoInscricao: TACBrPessoaCedente  read fTipoInscricao write  SetTipoInscricao;

 

Ou seja sempre vai ser física ou jurídica e passar '1' ou '2'.

Tem alguma coisa que estou deixando de fazer?

Obrigado

[Juliana Tamizou]

Boa noite.

Vc está usando os fontes do trunk2? Se sim, é possível reproduzir o problema no demo?

Att.

[rlmariz]

13 horas atrás, Juliana Tamizou disse:

Boa noite.

Vc está usando os fontes do trunk2? Se sim, é possível reproduzir o problema no demo?

Att.

Sim estou usando o trunk2, fontes atualizados e o problema acontece no demo também.

Conforme informei no post através do código sempre vai imprimir 1 ou 2, quando o correto é espaço em branco pois não é possível setar a propriedade TipoInscricao = pOutras.

 

 

[Juliana Tamizou]

Boa tarde.

Fiz um teste com o demo e não foi possível reproduzir o problema, quais propriedades do componente ACBrBoleto foram alteradas em seu teste?

Att.

[rlmariz]

Eu não mudei propriedade nenhuma, apenas configurei o componente para o banco bradesco e nosso número.

 

Juliana pelos código que postei é possível ver que sempre vai gerar 1 ou 2, nunca vai entrar no espaço em branco, veja abaixo, nunca vai entrar no else.

 

Anexo o arquivo que gerei.

 

   case TipoInscricao of
         pFisica  : ATipoInscricao := '1';
         pJuridica: ATipoInscricao := '2';
      else
         ATipoInscricao := ' ';
      end;

cb260104.rem

[Juliana Tamizou]

Boa tarde.

Agora entendi seu problema, no caso que você citou estava sendo discutida a quantidade de caracteres da linha (estava faltando um), porém oque vc questiona aqui é o conteúdo da posição 118.

Preciso verificar melhor, porém pode ter sido uma mudança de layout do banco, o mesmo retornou erro ao homologar o arquivo?

Att.

[rlmariz]

Isso! Conforme manual da posição 118 a 394  deve ser brancos e o código está colocando um número "1" ou "2" no meio de acordo com tipo de pessoa.

 

Estou tentando homologar e retornou erro no arquivo.

[Juliana Tamizou]

Boa tarde.

12 minutos atrás, rlmariz disse:

Isso! Conforme manual da posição 118 a 394  deve ser brancos e o código está colocando um número "1" ou "2" no meio de acordo com tipo de pessoa.

 

Estou tentando homologar e retornou erro no arquivo.

Você conseguiria junto ao banco o manual atualizado para conferirmos todo o layout? A versão disponível no svn é de 2009..

Att.

[rlmariz]

Segue o manual mais recente que foi passado pelo banco.

4008-524-0121-08-layout-da-cobranca-bradesco-versao-portuguesSS28785.pdf

[Juliana Tamizou]

Bom dia.

A correção e o manul atualizado estão disponíveis no svn.

Att.

[rlmariz]

Obrigado.