esta es la solución que di al problema.
Código Delphi
[-]procedure TfPrincipal.Button3Click(Sender: TObject);
var estado:string;
begin
estado:='Deudor';
while not fModulo.rtable.Eof do
begin
if(fModulo.rtablercuota.AsFloat-fModulo.rtablerpago.AsFloat)=0then
estado:='salvo';
sqlx:='update patable set paefectivo ='''+fModulo.rtablerpago.AsString
+''',pasaldo='''+FloatToStr(fModulo.rtablercuota.AsFloat- fModulo.rtablerpago.AsFloat)
+''', paestado='''+estado+''',paHora='''+FormatDateTime('hh:mm:ss AM/PM',pahorapago.Time)
+''',paFechaPago='''+FormatDateTime('dd/mm/yyyy',pagafecha.Date)
+''' where paSolicitud='+fModulo.rtablerlibranza.AsString
+' and format(paFechaAcuerdo,''mm/yyyy'')='''
+FormatDateTime('mm/yyyy',fModulo.rtablerfecha.AsDateTime)+'''';
EjecutarSQL(sqlx);
fModulo.rtable.Next;
end;
end;
ahí tiene las condiciones el update, ahora imagínense el comportamiento de la aplicación al realizar un ciclo de 1500 veces y hasta más, utilizando ese procedimiento...
Lo que me gustaría a mí, sería encontrar la forma de no utilizar ese procedimiento y poderlo aplicar a base mdb o db para las actualizaciones masivas.
si alguien me puedar dar más información le agradecería.