Erro no arquivo de remessa

[amauridebarros]

Bom dia,

Estou enviando o arquivo de remessa para validação e ele está me apresentando o seguinte erro.

6

16 a 17

2

CÓDIGO DE MOVIMENTO REMESSA INVÁLIDO

Conferindo o arquivo ele está informando nas posições 16-17 o numero 02 de acordo com o manual o código 02 refere-se à '02' = Solicitação de Baixa, o arquivo deveria informar '01' = Entrada de Títulos.

Como eu faço pra corrigir este campo.

Segue abaixo a ilustração do arquivo com a representação do erro.

Obrigado.

 

[BigWings]

1 minuto atrás, amauridebarros disse:

Como eu faço pra corrigir este campo.

 

var
  Titulo: TACBrTitulo;
begin
  Titulo := ACBrBoleto1.CriarTituloNaLista;
  Titulo.OcorrenciaOriginal.Tipo := toRemessaRegistrar;

 

[amauridebarros]

Olá

Conforme eu informei anteriormente eu estou utilizando o programa exemplo do acbrboleto.

Eu fui no evento onclick do button4 (Botao incluir título) onde ele ja inicializa o método  CriarTituloNalista e acrescentei a linha 

  Titulo.OcorrenciaOriginal.Tipo:=toRemessaRegistrar;

Mas não alterou nada no resultado.

O que eu ainda posso estar fazendo de errado?

**************************************************************************************************************************

Segue abaixo o corte do código do evendo onclick do button4

**************************************************************************************************************************

 

procedure TfrmDemo.Button4Click(Sender: TObject);
var
  Titulo : TACBrTitulo;
  VQtdeCarcA, VQtdeCarcB, VQtdeCarcC :Integer;
  VLinha, logo : string;
  i: Integer;
begin

  dm.ACBrBoleto.Cedente.FantasiaCedente := 'HKS INFORMATICA E SOLUCOES LTDA - ME';

  dm.ACBrBoleto.Cedente.Nome := 'HKS INFORMATICA E SOLUCOES LTDA - ME';
  dm.ACBrBoleto.Cedente.Logradouro := ' R. Evaristo Rodrigues de Arruda,121';
  dm.ACBrBoleto.Cedente.Bairro := 'Jardim Dourado';
  dm.ACBrBoleto.Cedente.Cidade := 'Guarulhos';
  dm.ACBrBoleto.Cedente.CEP := '07093-100';
  dm.ACBrBoleto.Cedente.Telefone := ' (11) 4969-5235';
  dm.ACBrBoleto.Cedente.Modalidade:='01';
  ///00001
  Titulo := dm.ACBrBoleto.CriarTituloNaLista;
  Titulo.OcorrenciaOriginal.Tipo:=toRemessaRegistrar;
  with Titulo do
  begin
 

[amauridebarros]

RESOLVIDO

O tipo do ítulo estava sendo alterado algumas linhas abaixo.

Obrigado

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.