Fórum Prestações com datas de vencimento automáticas #45947
10/08/2004
0
SET TERM ^ ;
CREATE TRIGGER "CRIAR_PRESTACOES" FOR "CARNE"
ACTIVE AFTER INSERT POSITION 0
AS
DECLARE VARIABLE contador SMALLINT;
BEGIN
SELECT NU_PRESTACOES FROM CARNE_TIPO WHERE ID_TIPO_CARNE=NEW.ID_TIPO_CARNE INTO:contador;
WHILE (contador > 0) DO
BEGIN
INSERT INTO CARNE_PRESTACOES
(ID_CARNE, DT_PAGAMENTO, NU_VALOR_PAGO, NU_PRESTACAO, IN_PAGO)
VALUES (new.ID_CARNE, NULL, NULL, :contador, 0);
contador = contador - 1;
END
END ^
COMMIT WORK ^
SET TERM ; ^Então, ficou perfeito, mais uma vez obrigado.
Só que apareceu mais uma coisa que gostaria de fazer nele.
Na tabela CARNE_PRESTACAO, criei um novo campo chamado DT_VENCIMENTO - eu ia fazer o cálculo das prestações via código, mas percebi que a performance vai lá pra baixo.
Gostaria então que vc me ajudasse a fazer o seguinte: Ao se criar as prestações, a data de vencimento fosse automaticamente atribuida com base na data do sistema. tipo assim:
A [b:0620cdd893]1ª[/b:0620cdd893] prestação vence na data do sistema + [b:0620cdd893]1[/b:0620cdd893] mês;
A [b:0620cdd893]2ª [/b:0620cdd893]prestação vence na data do sistema + [b:0620cdd893]2[/b:0620cdd893] mêses;
A [b:0620cdd893]3ª [/b:0620cdd893]prestação vence na data do sistema + [b:0620cdd893]3[/b:0620cdd893] mêses;
A [b:0620cdd893]...ª [/b:0620cdd893]prestação vence na data do sistema + [b:0620cdd893]... [/b:0620cdd893]mêses;
A [b:0620cdd893]nª [/b:0620cdd893]prestação vence na data do sistema + [b:0620cdd893]n [/b:0620cdd893]mêses;
SET TERM ^ ;
CREATE TRIGGER "CRIAR_PRESTACOES" FOR "CARNE"
ACTIVE AFTER INSERT POSITION 0
AS
DECLARE VARIABLE contador SMALLINT;
BEGIN
SELECT NU_PRESTACOES FROM CARNE_TIPO WHERE ID_TIPO_CARNE=NEW.ID_TIPO_CARNE INTO:contador;
WHILE (contador > 0) DO
BEGIN
INSERT INTO CARNE_PRESTACOES
(ID_CARNE, DT_PAGAMENTO, NU_VALOR_PAGO, NU_PRESTACAO, IN_PAGO, DT_VENCIMENTO)
VALUES (new.ID_CARNE, NULL, NULL, :contador, 0, ??????????);
contador = contador - 1;
END
END ^
COMMIT WORK ^
SET TERM ; ^[b:0620cdd893]Título removido.[/b:0620cdd893]
Para o título do tópico, procure descrever resumidamente o seu problema, e não direcionando a determinada pessoa.
Por favor, releia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.
Sandra/Moderação
Tenil
Curtir tópico
+ 0Posts
10/08/2004
Tenil
Gostei + 0
11/08/2004
Fsflorencio
SET TERM ^ ;
CREATE TRIGGER ´CRIAR_PRESTACOES´ FOR ´CARNE´
ACTIVE AFTER INSERT POSITION 0
AS
DECLARE VARIABLE contador SMALLINT;
BEGIN
SELECT NU_PRESTACOES FROM CARNE_TIPO WHERE ID_TIPO_CARNE=NEW.ID_TIPO_CARNE INTO:contador;
WHILE (contador > 0) DO
BEGIN
INSERT INTO CARNE_PRESTACOES
(ID_CARNE, DT_PAGAMENTO, NU_VALOR_PAGO, NU_PRESTACAO, IN_PAGO, DT_VENCIMENTO)
VALUES (new.ID_CARNE, NULL, NULL, :contador, 0, CURRENT_DATE + 30);
contador = contador - 1;
END
END ^
COMMIT WORK ^
SET TERM ; ^
Gostei + 0
11/08/2004
Fsflorencio
SET TERM ^ ;
CREATE TRIGGER ´CRIAR_PRESTACOES´ FOR ´CARNE´
ACTIVE AFTER INSERT POSITION 0
AS
DECLARE VARIABLE contador SMALLINT;
DECLARE VARIABLE contador2 SMALLINT;
BEGIN
CONTADOR2 = 1;
SELECT NU_PRESTACOES FROM CARNE_TIPO WHERE ID_TIPO_CARNE=NEW.ID_TIPO_CARNE INTO:contador;
WHILE (contador2 <= contador) DO
BEGIN
INSERT INTO CARNE_PRESTACOES
(ID_CARNE, DT_PAGAMENTO, NU_VALOR_PAGO, NU_PRESTACAO, IN_PAGO, DT_VENCIMENTO)
VALUES (new.ID_CARNE, NULL, NULL, :contador, 0, CURRENT_DATE + 30 * CONTADOR2);
contador2 = contador2 + 1;
END
END ^
COMMIT WORK ^
SET TERM ; ^
Gostei + 0
11/08/2004
Tenil
Obrigado!
Gostei + 0
11/08/2004
Afarias
A idéia do fsflorencio está correta. E vc pode apenas usar o mesmo contador (sem precisar de mais uma variável -- contador2)
T+
Gostei + 0
11/08/2004
Tenil
Obrigado,
Roberto
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)