Recalcular Juros em uma Parcela - Ajudem

26/07/2020

Galera boa tarde, montei um sql onde que ele ir� atualizar o valor da parcela vencida, s� que preciso que ela rode 1x por dia se caso o cliente n�o efetuar o pagamento.

begin
begin
update parcela
seT
parcela.valor_parcela    = parcela.valor_parcela+(current_date - parcela.data_vencimento)* parcela.taxa_juros,
parcela.dias_vencimentos = current_date - parcela.data_vencimento
WHERE  current_date > parcela.data_vencimento;
end
end

Esta procedure ela roda todo momento quando for abrir o DM (datamodule) , so que ela esta atualizando varias vezes quando entro no sistema.
Oque posso fazer para que ele te n�o rodar mais de 1x?

Eduardo Oliveira

Curtir t�pico + 0

Responder

Posts

03/08/2020

Anderson Gon�alves

Galera boa tarde, montei um sql onde que ele ir� atualizar o valor da parcela vencida, s� que preciso que ela rode 1x por dia se caso o cliente n�o efetuar o pagamento.

begin
begin
update parcela
seT
parcela.valor_parcela    = parcela.valor_parcela+(current_date - parcela.data_vencimento)* parcela.taxa_juros,
parcela.dias_vencimentos = current_date - parcela.data_vencimento
WHERE  current_date > parcela.data_vencimento;
end
end

Esta procedure ela roda todo momento quando for abrir o DM (datamodule) , so que ela esta atualizando varias vezes quando entro no sistema.
Oque posso fazer para que ele te n�o rodar mais de 1x?

Crie uma vari�vel booleana para voc� verificar no inicio do programa se ele foi atualizado na data corrente ele � true se n�o ele � false, se ele for false atualizar se n�o exit ele n�o faz nada, tipo isso, mais detalhes entre em contato comigo.

skype: anderson@case13.com.br

Responder

Gostei + 0

04/08/2020

Emerson Nascimento

Sugiro a cria��o de uma tabela de par�metros, que pode ser utilizada para in�meras finalidades.
Como voc� n�o indicou qual banco de dados utiliza nem quais s�o os componentes de acesso utilizados no Delphi, adapte a dica para tua realidade.

A tabela de par�metros teria uma estrutura mais ou menos assim:

CREATE TABLE [dbo].[PARAMETROS](
	[NOME] [varchar](50) NOT NULL,
	[TIPO] [char](1) NOT NULL,
	[DESCRICAO] [varbinary](max) NULL,
	[CONTEUDO] [varchar](200) NOT NULL
 CONSTRAINT [PARAMETROS_PK] PRIMARY KEY CLUSTERED 
(
	[NOME] ASC
) WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]

Coloquei o campo NOME como chave prim�ria, assim n�o corremos o risco de duas esta��es gravarem mais de uma vez o mesmo par�metro.

Para o caso apresentado, voc� poderia criar o seguinte par�metro (ou deixar que o pr�prio sistema o crie, conforme demonstrado abaixo):

Nome: DATA_RECALCULO_PARCELAS_VENCIDAS
Tipo: D (DATA)
Descricao: Data do �ltimo rec�lculo das parcelas vencidas.
Conteudo:

No momento do rec�lculo, voc� faz algo como:

var
  lExisteParametro: boolean;
begin
  // assim voc� atualiza os dados da tabela,
  // que podem ter sido alterados por outra esta��o
  dm.Parametros.Refresh; // o dataset deve ser aberto ao criar o dm

   // posiciona no registro do par�metro
  lExisteParametro := dm.Parametros.Locate('NOME', 'DATA_RECALCULO_PARCELAS_VENCIDAS', []);

  if (not lExisteParametro) or (dm.ParametrosCONTEUDO.AsString < FormatDateTime('yyyy/mm/dd', Date )) then
  begin
    {executa procedimento de atualiza��o das parcelas}

    // depois de executar a atualiza��o, cria ou atualiza o conte�do do par�metro
    if lExisteParametro then
      dm.Parametros.Edit
    else
    begin
      dm.Parametros.Append;
      dm.ParametrosNOME.AsString := 'DATA_RECALCULO_PARCELAS_VENCIDAS';
      dm.ParametrosTIPO.AsString := 'D';
      dm.ParametrosDESCRICAO.AsString := 'Data do �ltimo rec�lculo das parcelas vencidas.';
    end;
    // � aqui mesmo, fora do if, porque o conte�do ser� manipulado sendo um novo registro ou atualizando o j� existente
    dm.ParametrosCONTEUDO.AsString := FormatDateTime('yyyy/mm/dd', Date );

    try
      dm.Parametros.ApplyUpdates();
    except
      // a �nica exce��o que pode acontecer aqui � uma duplicidade
      // (alguma outra esta��o pode ter inserido o registro), ent�o podemos descartar;
      dm.Parametros.Cancel;
    end;
  end;

end;

Pronto!
Desta forma voc� garante que o procedimento de atualiza��o das parcelas ser� executado apenas uma vez no dia, seja por qual esta��o for, e independente do n�mero de vezes que voc� entrar e sair do sistema.

Responder

Gostei + 0