Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Como Insertar por Procedimiento 10 o mas registros para un calendario de pagos? (https://www.clubdelphi.com/foros/showthread.php?t=43791)

IcebergDelphi 20-05-2007 20:43:21

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.

IcebergDelphi 20-05-2007 22:23:56

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 01:19:07.

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