Actualizar tabla en una factura

[[maeyanes]]

Hasta donde puedo ver, Query2 tiene una sentencia Update con parámetros. Esta sentencia no devuelve campos, es por eso que Query2.FieldByName('Existencias') te marca ese error...

Esto no lo he probado, pero intenta hacerlo así:

Código Delphi [-]
Query2.Close;
Query2.Clear;
Query2.SQL.Add('UPDATE Productos SET Existencias = Existencias - :Cantidad WHERE UPPER(Clave) LIKE UPPER(:Clave)');
Query2.ParamByName('Cantidad').AsFloat := Table3.FieldByName('Cantidad').AsFloat;
Query2.ParamByName('Clave').AsString := Table3.FieldByName('Clave').AsString;
Query2.ExecQuery; // Usa este método en lugar de Open

Saludos...

[maravert]

Gracias por tu respuesta

Voy a checar ahora mismo.
muy agradecido, muy agradecido, muy agradecido

[maravert]

Hola, gracias por turespuesta he probado el codigo que me has dado


Código Delphi [-]

Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('UPDATE Productos SET Existencias = Existencias - :Cantidad WHERE UPPER(Clave) LIKE UPPER(:Clave)');
Query2.ParamByName('Cantidad').AsFloat := Table3.FieldByName('Cantidad').AsFloat;
Query2.ParamByName('Clave').AsString := Table3.FieldByName('Clave').AsString;
Query2.Open; // Usa este método en lugar de Open






Pero me da este error:

Error creating cursor handle


Alguien podría ayudarme en esto?

Gracias de antemano

[[Lepe]]

Maeyanes ya te lo dijo, pero se te habrá pasado por alto:

Query2.ExecQuery; // Usa este método en lugar de Open

Edito: Usas la cláusula LIKE en tus consultas pero no usas ningún comodin, o bien usas:

Código SQL [-]
where upper(clave) = :Clave

o bien usas

Código Delphi [-]
Query2.ParamByName('Clave').AsString := QuotedStr(Table3.FieldByName('Clave').AsString + '%';

para añadirle el comodín y usar LIKE.

Obviamente no es lo mismo usar
"like" que usar "=", pero tú sabrás mejor qué quieres hacer.

Saludos