Ayuda Locate
 

Buenas a todos. Estoy teniendo problema con un locate multiples campos. estoy buscando por dos condiciones que es el episodio y el codigo de items
la tabla es la siguiente:

Código Delphi [-]
procedure TfrmPacientes.insomodvalor(codigo, paciente, medico: Integer;
  valor: string);
begin
  Dm.QryEpisodioItems.Close;
  DM.QryEpisodioItems.Open;
  if Dm.QryEpisodioItems.Locate('EpEpisodio;Epiditems',VarArrayOf([epinumero,codigo]),[]) then
      begin
        // Record found
        DM.QryEpisodioItems.Edit;
      end
  else
      begin
        // Record Not found
        DM.QryEpisodioItems.Insert;
        DM.QryEpisodioItemsEpEpisodio.Value := epinumero;
        DM.QryEpisodioItemsEpFecha.Value    := DateToStr(now);
        DM.QryEpisodioItemsEpPlantilla.Value:= DM.QryPlantillaDefaultidPlantilla.Value;
        DM.QryEpisodioItemsEpiditems.Value  := codigo;
      end;
  DM.QryEpisodioItemsEpValor.Value := valor;
  DM.QryEpisodioItems.Post;
  DM.QryEpisodioItems.Close;
end;

La cosa es que si el episodio y el ítem ya existe debería solo modificar el contenido del campo valor de lo contrario deberia insertar todos los campos. Pero de alguna forma siempre pasa por alto de que ya existe y lo intenta crear y de hay me da el error de primary key violation. Estuve buscando y no veo problema alguno en la sentencia: pero aun así no se que me estoy pasando por alto. Cualquier ayuda o comentario será bien acogido.

NOTA La tabla esta bajo SQL SERVER 2014 Delphi Xe7/10

Hola steelha,

¿Qué instrucción SQL ejecutas con la orden “DM.QryEpisodioItems.Open”?
¿Has comprado que al ejecutar la instrucción “DM.QryEpisodioItems.Open” aparezcan los registros que intentas buscar?

Por otra parte, creo que sería mucho más eficiente buscar directamente con SQL:

Código SQL [-]
SELECT FROM “nombre tabla” WHERE EpEpisodio = :epinumero AND Epiditems = :codigo

¿Estás seguro de que los valores que pasas al Locate son "exactamente" iguales a los de la tabla (incluyendo mayúsculas y minúsculas)?
¿Si ejecutas el SQL Profiler de SQLServer ves la consulta? ¿Cual es?

La sentencia es la siguiente

Código SQL [-]
SELECT *
FROM EpisItems
Where EpEpisodio = :epi

y los campos son valores enteros.

Coloque un showmessage para verificar que estuviese pasando valores y no ceros y en lo corrector me paso 5,84 el cual ya existe en la db pero aun asi paso a la parte de insertar como nuevo.

Al fin! Son enteros o flotantes? :D

Si son flotantes, te comento:

Con Delphi muchas veces, he tenido problemas al manejarlos. Trato de no usarlos como llave o identificador de nada a menos que sea estrictamente necesario. Y mas cuando se almacenan en una DB. Ya que el valor decimal que calcula Delphi no es el mismo que obtienes del motor. Aunque en apariencia se vean igual.

Link: https://docwiki.embarcadero.com/RADS...int_Arithmetic

No, no son flotantes si ves al inicio la definición de la tabla son enteros largos. Lo de 5, 84 debi decir 5 y 84 respectivamente para cada uno episodio y codigo. Estoy pensando hacer lo que PepCat me escribe. Pero no entiendo el porque no funciona el locate.

¿Seguro que la sentencia que hay en Dm.QryEpisodioItems en ese momento es esa?
No me cuadra. Porque si la sentencia fuera esa, el código que has puesto aquí (https://www.clubdelphi.com/foros/sho...26&postcount=1) fallaría en el Open, por la falta del parámetro :epi

Vuelvo a decirlo mismo.Si pones el profiler de SQLServer verás realmente las sentencias que se ejecutan.
El Locate es correcto y debería funcionar. Lo único que se me ocurre es que con la sentencia que estás utilizando al abrir Dm.QryEpisodioItems esos elementos ya no estén (por ejemplo porque está filtrada).

Si en la consulta has cargado, por ejemplo:

Código Delphi [-]
Where EpEpisodio = 7

Nunca te encontrará nada con un locate por 'EpEpisodio=5 '. (El locate busca entre los resultados de la consulta, no en la BD.)
O primero cargas la consulta con EpEpisodio=5 y luego haces el locate, o bien modificas la consulta para ampliarla (quitando el where) o bien la modificas para centrarla y buscas directamente el elemento.

Yo en estos casos planto un breakpoint justo antes del locate, copio la consulta, los parámetros y los ejecuto directamente en la BD para ver exactamente lo que saca.

Gracias neftali un error de novatos, T_T ese era el problema no le estaba pasando valor al parametro. La linea estaba en otro procedimiento que lo habia movido sin querer.. Perdon por no contestar inmediatamente, estaba enfermo con el covid otra vez.

^\||/^\||/
Pasa a veces...:D

A mejorarse.