Célio Martins

Moderadores, favor fechar esse tópico. O problema era erro de programação.

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;