Actualizaciones de Campos en un ADOQuery!!

[Chocoslovaco]

Buenas Tardes (desde México) a To2:
Soy totalmente nuevo en desarrollo de Delphi, pero creo que ya le tome el suficiente cariño. Estoy haciendo un aplicacion para actualizaciones en un BD de Access (97) y Delphi 7. Quisiera saber si:¿Mi codigo es Correcto?, (al compilarlo no marca ningun error), o si las operaciones que intento hacer a nivel de registros ¿Son Correctas?, Todo mi codigo avanza aparentemente bien, pero no observo ningun cambio en la BD , Anexo parte de mi codigo, ojala y alguien puede auxiliarme. Gracias
QKardex,QActualiza, QInsertados: son objetos TADOQuery en mi Form.

Código Delphi [-]
  
.
.
with QKardex do 
begin   //Inicia With QKardex
   Close; SQL.Clear;
   SQL.Text:='SELECT IdCrédito,Pagada,PagadaE..'
   Open;
   if Not(Eof) then //SI CONSULTA KARDEX NO ES VACIA
     begin
     Edit;
     FieldValues['ImporteE']:=FieldValues['ImporteE']+ QActualiza.FieldValues['Aplicar'];
     if FieldValues['ImporteE']>=FieldValues['Totales'] then
       begin // SI ImporteE>=Totales
       if FieldValues['ImporteE']>FieldValues['Totales'] then
         begin
         AbonoP:=FieldValues['ImporteE'] - FieldValues['Totales'];
         QInsertados.Close;
         QInsertados.SQL.Clear;
         QInsertados.SQL.Text:='INSERT INTO [Abonos Pendientes] (Cliente,Importe,IdAbono) VALUES('+ Quotedstr(Cliente) + ',' + IntToStr(prNoFactura) +')';
         QInsertados.ExecSQL;
          FieldValues['ImporteE']:= FieldValues['Totales'];
          QInsertados.Close;
          end;// Fin ImporteE>Totales
          FieldValues['Pagada']:=-1; FieldValues['PagadaE']:=-1;
          FieldValues['Parcial']:=0; FieldValues['ParcialE']:=0;
          FieldValues['Importe']:=FieldValues['ImporteE'];
          Update;
          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;
          QInsertados.Close;
          end
        else //Else SI ImporteE>=Totales
          begin ....
              .....

SALUDOS. Oswaldo Jr

[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.