Insertar ciertos datos de Otra tabla dentro de Un Store (Fechas de Pago )

[IcebergDelphi]

Hola amigos, estoy haciendo un procedimiento almacenado en donde me inserte 12 Filas de Pagos correspondientes a cada fecha quincenal de pago ( No Cada quince dias) no se si me explico hare un ejemplo:

No. Pago Pago Fecha
1 $103.00 30/04/2007
2 $103.00 15/05/2007
3 $103.00 31/05/2007
4 $103.00 15/06/2007
5 $103.00 30/06/2007
6 $103.00 16/07/2007
.
.
12

La insercion del Numero de pagos lo hace bien , pero debo de insertar fechas de pagos en donde sean dias habiles, lo que hice fue hacer una tabla de fechas en donde asigne los dias habiles de pago, pero necesito que al mismo tiempo que se insertan las fechas , se inserten los pagos aca esta mi StoreProcedure

Código SQL [-]
Begin

 Select  "DiasFestivos"."Fecha"
   From "DiasFestivos"
   Where "DiasFestivos"."DF_IdSucursal"=:"Pe_IdSucursal"  and "DiasFestivos"."EsFechaPago"='SI'
    and "DiasFestivos"."Fecha" Between :"Pe_FechaInicial" and :"Pe_FechaFinal"
   Into :"V_FechaCobro"  ;

 while (:i<:"Pe_NumPagos")  do
 i=0 ;
 x=1;     /*Cambiar a 2 si fuece necesario*/
 "Pe_NumPagos"="Pe_NumPagos"+1;
 begin
     "V_FechaCobro"=:"V_FechaCobro";
     insert into "DetallePagos"("InteresMoratorio","FechaPago","D_IdPagos","Pago","NoPago","D_PlazoCat","D_IdProducto  ","DP_InteresMoratorio","IdSucursal","DP_IdCaja","Dp_IdUsuario","DP_ClaveGrupo","CostoxServicio"  ) values (:"Pe_InteresMora",:"V_FechaCobro",:"Pe_IdPagosP",:"Pe_PPago",:x,:"Pe_TipoPlazo",:"Pe_IdProducto",:"  Pe_DpInteresMoratorio",:"Pe_IdSucursal",:"Pe_DpIdCaja",:"Pe_DpIdUsuario",:"Pe_Clavegrupal",:"Pe_Mont  oPrestamo");
     i=i+1;
   x=x+1;
 end
end

Espero que me ayuden o me den otra solucion a como poder llenar la tabla e pagos con fechas de pagos de quincenas en dias habiles.

Saludos
Y Gracias.

[[Al González]]

¡Hola!

Podría ameritar que se programe en Delphi en lugar de hacerlo en SQL. Podría ser una regla de negocio muy apropiada para la capa intermedia en caso de ser un sistema de tres capas.

Una lección que reafirmé este año es que no debe uno embutir todas las reglas de negocios de una aplicación dentro de procedimientos almacenados. Las capas intermedias son muy buenas para contener todos esos procesos mediana o altamente elaborados que se esclarecen usando el generoso lenguaje de la aplicación.

Es bueno hacer uso de procedimientos almacenados, pero la pregunta es ¿hasta que punto vale la pena? (¿no complica a veces las cosas?). Actualmente tengo un complejo proceso de facturación totalmente codificado en SQL y estoy por pasarlo a Delphi para poder manejarlo con más claridad y control, además de que resulta más fácil hacerle cambios, atomizarlo, reutilizarlo y documentarlo.

De todas maneras, si decides hacerlo dentro de un procedimiento almacenado, te agradeceríamos un poco más de claridad, datos y formato (quiebra las líneas largas del código) en tu planteamiento, para poder ayudarte de mejor forma.

Un abrazo con capa.

Al González.

[IcebergDelphi]

Hola AL, yo te conosco por que pertenesco a la pagina que creastes en Programadores delphi Mexico, Saludos, en cuanto encuentre una solucion te dire que es lo que hice, saludos, Bytes.