Arquivo remessa ITAU

[amnchaves]

Caros colegas, ao gerar o arquivo remessa de carteira registrada do banco ITAU, estou recebendo o seguinte retorno no site do itaú:

Motivo de Rejeição

19 - CODIGO DA OCORRENCIA/MOVIMENTO

O código que estou usando é esse:

        with Titulo do
         begin
          LocalPagamento          := SQL_Cedentelocal_pagto.Text;
          Vencimento              := SQL_ImpBoletodata_vecto.AsDateTime;
          DataDocumento           := Date;
          NumeroDocumento         := SQL_ImpBoletoid.Text;
          NossoNumero             := SQL_ImpBoletonnumero.Text;
          EspecieDoc              := SQL_Cedenteaceite.Text;
          OcorrenciaOriginal.Tipo := toRemessaRegistrar;

          if SQL_Cedenteaceite.AsInteger = 0 then
           Aceite := atSim
          else
           Aceite := atNao;
          DataProcessamento       := Now;
          Carteira                := SQL_Cedentecarteira.Text;
          ValorDocumento          := SQL_ImpBoletovalor_doc.AsFloat;
          Sacado.NomeSacado       := SQL_ImpBoletocli_razao.Text + ' ( '+SQL_ImpBoletocli_fantasia.Text+' )';
          Sacado.CNPJCPF          := OnlyNumber(RemoveChar(SQL_ImpBoletocpf_cnpj.AsString));
          if Length(RemoveChar(SQL_ImpBoletocpf_cnpj.AsString)) = 11 then
           begin
            Sacado.Pessoa         := pFisica;
           end else begin
            Sacado.Pessoa         := pJuridica;
           end;
          Sacado.Logradouro       := SQL_ImpBoletoend_endereco.Text;
          Sacado.Numero           := SQL_ImpBoletoend_numero.Text;
          Sacado.Bairro           := SQL_ImpBoletoend_bairro.Text;
          Sacado.Cidade           := SQL_ImpBoletomunicipio.Text;
          Sacado.UF               := SQL_ImpBoletouf.Text;
          Sacado.CEP              := OnlyNumber(RemoveChar(SQL_ImpBoletoend_cep.AsString));
          //ValorAbatimento         := 0;
          //ValorMoraJuros          := 0;
          //ValorDesconto           := 0;
          //ValorAbatimento         := 0;
          //PercentualMulta         := 0;
          //Abatimento Fidelidade
          if (SQL_ImpBoletovlr_desconto_fidelidade.AsFloat > 0) And (SQL_ImpBoletoconceder_desconto.AsInteger = 0) then
          begin
           ValorAbatimento        := SQL_ImpBoletovlr_desconto_fidelidade.AsFloat;
          end;
          //Juros ao Dia
          if (SQL_ImpBoletojurosdia.AsFloat > 0)  then
          begin
           ValorMoraJuros         := SQL_ImpBoletojurosdia.AsFloat;
           DataMoraJuros          := SQL_ImpBoletodata_vecto.AsDateTime;
          end;
          //Multa
          if SQL_ImpBoletoparam_multa.AsFloat > 0 then
          begin
           PercentualMulta        := SQL_ImpBoletoparam_multa.AsFloat;
          end;
          Mensagem.Text := Mensagem.Text + SQL_ImpBoletohistorico.Text + ' / ' + SQL_ImpBoletomesano.Text;
         end;

 

Agradeço pela atenção dedicada

 

[Abinálio Lopes]

Boa Tarde, Chaves

na minha aplicação eu comentei o trecho abaixo e funciona bem.

//OcorrenciaOriginal.Tipo := toRemessaRegistrar;

uso Itau com registro

abs

abinálio

 

[SISBLU Software]

Boa tarde! estou com mesmo erro no itau: 19 - CODIGO DA OCORRENCIA/MOVIMENTO.... vcs conseguiram resolver? só comentando a: //OcorrenciaOriginal.Tipo := toRemessaRegistrar; funcionou???