[GerTorresM]

Gracias a to@as y es especial a Caral

Verificando en otros foros encontre una serie de contenidos que me permite plantear lo siguiente:

Código Delphi [-]
  QTarifas_local:= CrearConsulta;
  QTarifas_local.OnCalcFields:= QTarifas_localCalcFields;
  TextoQTarifas:= ' SELECT Tarifas.Zona, Tarifas.CodigoTipoServicio, Tarifas.Estrato '+
                  ' FROM  Tarifas ' +
                  ' Where CodigoAno =:pCodigoAno '+
                  ' And CodigoPeriodoPago =:pCodigoPeriodo ' +
                  ' And CodigoTipoServicio =:pCodigoTipoServicio'+
                  ' And Zona =:pZona ' +
                  ' And Tarifas.CodigoServicio in (%s)' +
                  ' GROUP BY Tarifas.Zona, Tarifas.CodigoTipoServicio, Tarifas.CodigoServicio, Tarifas.Estrato ';

y ejecutar las cosas de la siguiente forma

Código Delphi [-]
    with QTarifas_local do
      begin
        Close;
        SQL.Text:= (Format(TextoQTarifas, ['4,5,6,7']));
        ParamByName('pCodigoAno').AsInteger:= StrToInt(Self.edtTarifaAno.Text);
        ParamByName('pCodigoPeriodo').AsInteger:= Self.dblkcbbCodigoPeriodoPago.KeyValue;
        ParamByName('pCodigoTipoServicio').AsInteger:= Self.dblkcbbCodigoTipoServicio.KeyValue;
        ParamByName('pZona').AsInteger:= Self.dblkcbbZona.KeyValue;
      end;

Ahora bien se había podido reemplazar la totalidad de los parámetros por %s, pero lo deje para poder comprobar que efectivamente el error sucedía cuando se intentaba ingresar mediante parámetros un string


gracías de antemano


gertorresm
Colombia