Alterar Identificação da Ocorrência - CNAB400 - Bradesco

[Felix Fernandes]

Bom dia.
Estou tentando alterar a identificação da Ocorrência em uma remesssa para Bradesco, mas independente do valor que eu seto, o arquivo está sempre enviando "02" nas posições 109 a 110.

Tentei mudar das duas formas:

 

Titulo := ACBrBoleto1.CriarTituloNaLista;

with Titulo do
begin

  // Seto todos os dados do título, e os dois abaixo

  Instrucao1 := '01';

  OcorrenciaOriginal.Tipo := toRemessaRegistrar;

end;

Parece que nem a instrucao e nem a OcorrenciaOriginal influenciam na Identificação da Ocorrência. Gostaria de saber com propriedade correta pra setar em caso de Remessa Bradesco - CNAB 400. Preciso que a seja gerado como 01, e não 02.

[Juliana Tamizou]

Boa tarde.

Se você observar o fonte deste banco, irá perceber que o Tipo de Ocorrência RemessaRegistrar não está mapeado para o mesmo, porém neste caso seria automaticamente preenchido com "01" e não com "02".

 

case OcorrenciaOriginal.Tipo of
         toRemessaBaixar                         : Ocorrencia := '02'; {Pedido de Baixa}
         toRemessaConcederAbatimento             : Ocorrencia := '04'; {Concessão de Abatimento}
         toRemessaCancelarAbatimento             : Ocorrencia := '05'; {Cancelamento de Abatimento concedido}
         toRemessaAlterarVencimento              : Ocorrencia := '06'; {Alteração de vencimento}
         toRemessaAlterarNumeroControle          : Ocorrencia := '08'; {Alteração de seu número}
         toRemessaProtestar                      : Ocorrencia := '09'; {Pedido de protesto}
         toRemessaCancelarInstrucaoProtestoBaixa : Ocorrencia := '18'; {Sustar protesto e baixar}
         toRemessaCancelarInstrucaoProtesto      : Ocorrencia := '19'; {Sustar protesto e manter na carteira}
         toRemessaOutrasOcorrencias              : Ocorrencia := '31'; {Alteração de Outros Dados}
      else
         Ocorrencia := '01';                                           {Remessa}
      end; 

Att.