Ver Mensaje Individual
  #11  
Antiguo 01-06-2007
Avatar de GustavoCruz
GustavoCruz GustavoCruz is offline
Miembro
 
Registrado: jul 2006
Ubicación: Sampués Sucre (Colombia)
Posts: 293
Reputación: 18
GustavoCruz Va por buen camino
actualizar

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.
Responder Con Cita