Actualizaciones de Campos en un ADOQuery!!

[ContraVeneno]

creo que tienes 3 campos en la instrucción intert y dos campos en Values, a menos que cliente tenga los dos valores, pero no creo que sea correcto

[Chocoslovaco]

Gracias por la observacion, es muy cierto el codigo correcto debe ser:

Código Delphi [-]
QInsertados.SQL.Clear;
 QInsertados.SQL.Text:='INSERT INTO [Abonos Pendientes] (Cliente,Importe,IdAbono) VALUES('+ Quotedstr(Cliente) + ',' + IntToStr(AbonoP) + ',' + IntToStr(prNoFactura) +')';
    QInsertados.ExecSQL;

Quizas no formule bien mi pregunta, lo que quiero saber si mi sintaxis es correcta, es decir; si hacer operaciones con los campos de esta forma:
FieldValues['Pagada']:=-1; FieldValues['PagadaE']:=-1;

ahora cuando llega la ejecucion hasta aqui:

Código Delphi [-]
  
....
QInsertados.SQL.Clear;
QInsertados.SQL.Text:='UPDATE Pedidos SET Pagada=-1,PagadaE=-1,ParcialE=0,ImporteE='+ FieldValues['Importe'] + ' WHERE IdPedido=' + FieldValues['IdCrédito'];
 QInsertados.ExecSQL;
...

Me envia un error de : "Could No Convert Variant of type (String) into type (Currency)"

[lucasarts_18]

Empezado por Chocoslovaco

Me envia un error de : "Could No Convert Variant of type (String) into type (Currency)"

Hola:

Prueba con ésta función

StrtoCurr

Saludos.

Aarón.

[ContraVeneno]

Mientras coloques la instrucción Edit antes de Fieldvalues['x']:=12 es correcto. solo no olvides colocar un update o cancel al final.

Cuando utilizas FieldValues['campo'] te lo va a regresar como tipo variant, pero en este caso como lo estas utilizando para formar una cadena, te lo manda como cadena. Entonces tienes que convertir FieldValues['Importe'] a tipo currency.
Puede ser: Fields[(número de campo)].ascurrency o utilizar la función strtocurr

[Chocoslovaco]

Aqui de nuevo....Gracias por las respuestas me han sido de muchisima ayuda, ya existe ningun error al compilar...pero ahora me surge otro problema
cuando ejecuto el programa al llegar a esta parte...(donde FieldValues['Pagada']:=true; FieldValues['PagadaE']:=true;...) ..

Código Delphi [-]
....
with QKardex do begin
Close; SQL.Clear;
SQL.Text:='SELECT IdCrédito,Pagada,PagadaE,Parcial,Parcia.. FROM Tabla7 '+
                'WHERE ((Pedido="Cargo") OR (Pedido="Nota de Cargo")... '+
                'AND NoFactura=' + IntToStr(prNoFactura) + 'AND NombreCompañía='+ Quotedstr(Cliente);
      Open;
....
FieldValues['Pagada']:=true; FieldValues['PagadaE']:=true;
          FieldValues['Parcial']:=false; FieldValues['ParcialE']:=false;
          FieldValues['Importe']:=CurrToStr(FieldValues['ImporteE']);
          Update;
          QInsertados.SQL.Clear;
          QInsertados.SQL.Text:='UPDATE Pedidos SET Pagada=-1,PagadaE=-1,ParcialE=0,ImporteE='+ CurrToStr(FieldValues['Importe']) + ' WHERE IdPedido=' + IntToStr(FieldValues['IdCrédito']);
          QInsertados.ExecSQL;
          QInsertados.Close;
....

No sucede nada en la tabla afectada, despues de hacer el Update...¿Alguien podria decirme cual es el problema? los campos Pagada, Parcial, ParcialE, PAgadaE son de tipo Si/No, ya intente colocando los valores 0 y -1, pero tampoco se actualizan...Por sus comentarios Gracias

[ContraVeneno]

Verifica que QKardex te devuelva registros, parece ser que cuando abres QKardex no obtiene ningún resultado y por eso no realiza ningúna acción. Revisa la sentencia SQL de QKardex y que esta te regrese registros.

[Chocoslovaco]

Si QKardex si me arroja datos...de hecho antes de que entre a realizar el proceso con los registros tengo esto despues de abrir la consulta...

Código Delphi [-]
.... 
if Not(Eof) then //SI CONSULTA KARDEX NO ES VACIA
     begin
.....

No entiendo cual pueda ser el problema pues hice esto para probar..

Código Delphi [-]
.. .. 
   FieldValues['Parcial']:=true; FieldValues['ParcialE']:=true;
   FieldValues['Importe']:= FieldValues['ImporteE'].AsCurrency;
  end;
  Update;
  ShowMessage(CurrToStr( FieldValues['Importe']));

y me arroja el valos que se asigno dos lineas arriba...¿Existe alguna otra cosa que deba revisar??? o ¿Deberia revisar algo mas??, tengo otros ADOQuery donde uso por ejemplo actualizacion o eliminacion y esos si surten efecto sobre la tabla afectada. Gracias de nuevo

[Chocoslovaco]

Hola de nuevo a todos, aun sigo sin poder resolver el problema de la actualizacion de los campos .... he buscado en los foros si ya existe una consulta similar sin tener exito, ahora no se si lo que pasa es que ¿utilize el componente incorrecto?, ¿deberia cambiar el componente?..por un ADODataSet...si es asi alguien me pude explicar como debo usarlo. Gracias