Como Insertar por Procedimiento 10 o mas registros para un calendario de pagos?
Hola amigos, estoy haciendo un sistema de recuperacion de creditos, pero a cada cliente necesito generarle su tabla de pagos, dependiendo del numero de pagos; por ejemplo a un cliente que tenga que hacer 5 pagos , generar su tabla de pagos con los siguientes datos:
NoPago ( este debe de ser autonumerico, incremental) Pago fecha de pago( cada 14 dias) Juan Perez Jolote: NoPago1 100 240107 NoPago2 100 070207 NoPago3 100 210207 . . NoPago5 100 Ultimafecha. Alguien del Foro ha hecho algo parecido a lo que pido. Trabajo con firebird y de preferencia que este codigo quedara directamente sobre la BD en Un procedimiento almacenado Saludos y Gracias. |
Tengo la respuesta
Ok para los que este en una situacion ogual a la mia les dejo el procedimiento Saludos y gracias.
SET TERM ^ ; CREATE PROCEDURE "Sp_TablaPagos" ( "Pe_NumPagos" INTEGER, "Date" DATE) AS DECLARE VARIABLE "NFechas" INTEGER; DECLARE VARIABLE I INTEGER; begin i=0 ; while (:i<:"Pe_NumPagos") do begin "Date"=:"Date"+14 ; "Date"=:"Date"; insert into "DetallePagos"("FechaPago","D_IdPagos") values (:"Date",144); i=i+1; end end ^ SET TERM ; ^ GRANT INSERT ON "DetallePagos" TO PROCEDURE "Sp_TablaPagos"; GRANT EXECUTE ON PROCEDURE "Sp_TablaPagos" TO SYSDBA; |
La franja horaria es GMT +2. Ahora son las 06:37: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