Erro ao sincronizar veiculo ao e-Frete - CIOT

[Célio Martins]

Olá amigos, ao tentar sincronizar os dados do veiculo com e-Frete retorna o erro:

ERRO: Conjunto de CIOT transmitidos(máximo de 1 CIOT) excedido. Quantidade atual 2

Seque abaixo o código:

  Dm.CIOT.Contratos.Clear;
  Dm.CIOT.Contratos.Add.CIOT.Integradora.Operacao := opGravarVeiculo;
  with Dm.CIOT.Contratos.Add.CIOT.GravarVeiculo do
  begin
   Placa           := 'KBV3355';
   Renavam         := '110564030';
   Chassi          := '9BSG4X200A3654938';
   RNTRC           := '00168810';
   NumeroDeEixos   := 2;
   CodigoMunicipio := 3512345;
   Marca           := 'VW';
   Modelo          := 'XYZ';
   AnoFabricacao   := 2010;
   AnoModelo       := 2010;
   Cor             := 'Preto';
   Tara            := 100;
   CapacidadeKg    := 10000;
   CapacidadeM3    := 10000;
   TipoRodado      := trToco;
   TipoCarroceria  := tcFechadaOuBau;
  end;
  Dm.CIOT.Enviar;

Estou fazendo alguma bobagem?

Editado 28 Fevereiro, 2020 por Célio Martins

[Gr@c@]

Tentou assim?

Dm.CIOT.Contratos.Clear;
with Dm.CIOT.Contratos.Add do
begin
  CIOT.Integradora.Operacao := opGravarVeiculo;
  with CIOT.GravarVeiculo do
  begin
   Placa           := 'KBV3355';
   Renavam         := '110564030';
   Chassi          := '9BSG4X200A3654938';
   RNTRC           := '00168810';
   NumeroDeEixos   := 2;
   CodigoMunicipio := 3512345;
   Marca           := 'VW';
   Modelo          := 'XYZ';
   AnoFabricacao   := 2010;
   AnoModelo       := 2010;
   Cor             := 'Preto';
   Tara            := 100;
   CapacidadeKg    := 10000;
   CapacidadeM3    := 10000;
   TipoRodado      := trToco;
   TipoCarroceria  := tcFechadaOuBau;
  end;
  Dm.CIOT.Enviar; end;

 

 

 

 

[Célio Martins]

Olá Gr@c@ tentei sim, deu o mesmo erro. Abraços

[Célio Martins]

Olá deu certo! ficou assim:

  Dm.CIOT.Contratos.Clear;
  CarregarParametrosCIOT(Config.intCDLOJA);//Configurações do CIOT
  CarregarParametros(Config.IntCDLOJA);//Configurações gerais do sistema
  with Dm.CIOT.Contratos.Add do
  begin
    CIOT.Integradora.Operacao := opGravarVeiculo;
    with CIOT.GravarVeiculo do
    begin
      Placa           := qry160.FieldByName('CODIGO_VEI').AsString;
      Renavam         := qry160.FieldByName('RENAVA_VEI').AsString;
      Chassi          := qry160.FieldByName('CHASSI_VEI').AsString;
      RNTRC           := qry160.FieldByName('NRNTRC_VEI').AsString;
      NumeroDeEixos   := qry160.FieldByName('QTEIXO_VEI').AsInteger;
      CodigoMunicipio := 3512345;
      Marca           := qry160.FieldByName('MARCAS_VEI').AsString;
      Modelo          := qry160.FieldByName('MODELO_VEI').AsString;
      AnoFabricacao   := qry160.FieldByName('ANOVEI_VEI').AsInteger;
      AnoModelo       := AnoFabricacao;
      Cor             := qry160.FieldByName('CORVEI_VEI').AsString;
      Tara            := qry160.FieldByName('TARAKG_VEI').AsInteger;
      CapacidadeKg    := qry160.FieldByName('PESOKG_VEI').AsInteger;
      CapacidadeM3    := qry160.FieldByName('PESOM3_VEI').AsInteger;
      TipoRodado      := TpTipoRodado(qry160.FieldByName('TIPROD_VEI').AsInteger);
      TipoCarroceria  := TpTipoCarroceria(qry160.FieldByName('TIPCAR_VEI').AsInteger);
    end;
    Dm.CIOT.Enviar;
  end;
  Exit;

 

[Juliana Tamizou]

Obrigado por reportar.

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