Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-10-2017
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Poder: 12
feliz-58 Va por buen camino
Question Forma de procesar Pagos

Saludos, tengo la siguiente inquietud, y espero que con su experiencia puedan darme una idea,
tengo un programa en el cual genero pago a cuotas (uso la base de datos en Access), ahora mismo, la tabla cuotas tiene los campos:

Cod | NumPrestamo | Numero | FechaPago | Monto | Estado |
Numero unico de la cuota | Numero del prestamo | numero de orden de cuota | * | * |Pendiente/realizado

"Para pagar las cuotas", selecciono por SQL la primera cuota relacionada al préstamo mediante un SELECT aca el codigo:
Código Delphi [-]
with QTemp do
     begin
     Close;
     SQL.Clear;
     SQL.Text:= 'SELECT TOP 1 Cod, Numero  FROM Cuotas WHERE (NumPrestamo =:Codigo) and (Estado = :Pendiente) '+
               'Order By Numero ASC';
     Parameters.ParamByName('Codigo').Value    := EnumPrestamo.Text;
     Parameters.ParamByName('Pendiente').Value := 'Pendiente';
     ExecSQL;
     Open;
     end;

 Cod := Qtemp.FieldByName('Cod').AsVariant;
 Numero:= Qtemp.FieldByName('Numero').AsVariant;

y Luego actualizo la tabla así:

Código Delphi [-]
 Begin
  with QTemp do
    begin
    Close;
    SQL.Clear;
    SQL.Text:= 'UPDATE Cuotas SET Fecha_Pago =:Fecha, Estado = :Estado Where Cod =:NumC';
    Parameters.ParamByName('Fecha').Value  := FormatDateTime('dd/mm/yyyy', Now);
    Parameters.ParamByName('Estado').Value := 'Realizado';
    Parameters.ParamByName('NumC').Value   := Cod;
    ExecSQL;
    End;
 End;

Quiza no es la forma mas ortodoxa, pero se que se puede hacer mejor, porque una de las desventajas es que de esta forma solo se hace el "pago" una cuota a la ves.

¿cual seria la otra forma para que pueda hacer el "pago" de mas de una cuota?

Gracias de antemano!

PD: intente ser lo mas claro posible, dudas, por favor preguntar.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Delphi y terminales de pagos cmfab Varios 4 08-02-2014 23:46:29
Fechas de Pagos 15 y 30 de cada mes! TheNew Varios 8 26-05-2010 05:10:51
bucle para fechas de pagos chino150 Varios 5 19-05-2008 16:01:28
Imprimir Pagos en Matriz de Punto y Papel Continuo ? BlueSteel Impresión 0 28-04-2005 17:17:32


La franja horaria es GMT +2. Ahora son las 20:45:15.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi