mysql calculo de juros e multa

[marcos_ubirajara 0]

Boa noite, estou desenvolvendo um projeto em delphi xe8 com mysql e dbforge, tenho uma programação em um speedButom que baixa parcela, mas preciso que quando a parcela estiver em atraso ao baixa-la cobre-se 2% do valor da parcela mais 0.33% ao dia de atraso é possível? segue programação feita no speedButom "baixar parcela selecionada" , agradeço desde já pelo socorro, segue código do speedbutom

procedure TF_baixarParcelas.btn_pagarParcelaClick(Sender: TObject);
begin
   //rotina para baixar a parcela selecionada
   TB_baixarParcela.Active := True;
   TB_baixarParcela.Locate('parc_id', SQL_parcelasProntasparc_id.Value, []);
   TB_baixarParcela.Edit;

   TB_baixarParcelaparc_pago.Value := 'SIM';
   TB_baixarParcelaparc_data_pago.Value := Date;

   TB_baixarParcela.Post;

   ShowMessage('Parcela paga com sucesso !!');

[Eziquiel 96]

Quero ver se posso te ajudar com a ideia.

 

1 - Pegue a data atual e subtraia a data de vencimento da parcela pra obter o número de dias de atraso. Salve o resultado na variável dias_atraso. (Considerando que já existe uma condição IF que verifica se a parcela está vencida).

 

2 - Pegue o valor da parcela e multiplique por 1.02 e reserve o resultado na variável Resultado_01  (isso soma 2% ao valor da parcela). Exemplo:

Resultado_01 :=   valor_parcela * 1.02;

 

3 - Pegue o valor da parcela e faça o seguinte cálculo: (Isso multiplica 0,33% de juros por dia de atraso);

Resultado_02 :=   valor_parcela * dias_atraso * 0.0033;

 

4 - Agora some Resultado_01 + Resultado_02 para obter o valor corrigido.

[marcos_ubirajara 0]

Ezequiel, obrigado vou fazer desculpe a demora para responder, problemas com a internet aqui

[marcos_ubirajara 0]

Posso fazer isso em um laço de repetição com if,else e outro begin ai entrando a programação do speedButom certo ?

 

[marcos_ubirajara 0]

 

tentei dessa forma, não dá erro mas também não altera valor

 

procedure TF_baixarParcelas.btn_pagarParcelaClick(Sender: TObject);
var JUROS, VAR1, VAR2 :Real;
var DIAS_ATRASO: TDateTime;
begin
   DIAS_ATRASO:= TB_baixarParcelaparc_data_pago.Value - TB_gerarParcelasparc_vence.Value;
   if DIAS_ATRASO > 3 then
   begin
     VAR1 := (2 + (1 * 0.33));
     VAR2 := Power(VAR1,DIAS_ATRASO);
     JUROS := (TB_gerarParcelasparc_valor.Value * VAR2) - TB_gerarParcelasparc_valor.Value;
     TB_baixarParcelaparc_juros_atraso.Value := JUROS;
   end
   else
   begin
   //rotina para baixar a parcela selecionada
   TB_baixarParcela.Active := True;
   TB_baixarParcela.Locate('parc_id', SQL_parcelasProntasparc_id.Value, []);
   TB_baixarParcela.Edit;

   TB_baixarParcelaparc_pago.Value := 'SIM';
   TB_baixarParcelaparc_data_pago.Value := Date;

   TB_baixarParcela.Post;

   ShowMessage('Parcela paga com sucesso !!');
   end;

[Eziquiel 96]

A variável DIAS_ATRASO precisa ser do tipo "INTEGER", pois vai receber um número inteiro.

Aconselho utilizar a função  "DaysBetween", pois ela já irá retornar um valor inteiro pra você.

 

Faça o seguinte:

- Vai na clausula uses e declare a unit "DateUtils";

- Declare a variável DIAS_ATRASO como INTEGER;

- Use a função assim:  

     DIAS_ATRASO:= DaysBetween( Date(),  TB_gerarParcelasparc_vence.Value);

 

- Essa fórmula que você está utilizando não vai retornar o valor que você deseja. Utilize assim para obter o valor acrescido em R$.

     JUROS:=  (TB_gerarParcelasparc_valor.Value * 0.02) + (TB_gerarParcelasparc_valor.Value * DIAS_ATRASO * 0.0033);

 

Agora aqui vai uma dica importante: 

     Se você realmente deseja operar este cálculo no evento onClick do botão "pagar_Parcela", eu sugiro que se coloque uma caixa de confirmação (MessageDlg) informando que a parcela está em atraso e também o valor corrigido. Assim o operador terá ciência do valor a receber e poderá decidir se confirma o pagamento da parcela ou não.  (Sempre use o Dialog de confirmação para toda operação importante!).

     O ideal seria que estas informações fossem atualizadas e exibidas já na da consulta da parcela. Assim o operador poderia informar o cliente do atraso e o valor corrigido antes mesmo de clicar no botão de pagamento da parcela. 

 

Abraço.

[marcos_ubirajara 0]

muito bom, vou implementar aqui, tá dificil mas suas dicas são excelentes, obrigado pela ajuda

 

[marcos_ubirajara 0]

Deixa eu te perguntar estou tendo muita dificuldade se postar o código você pode dar uma olhada ?, já declarei a unit "DateUtils";

estou me confundindo muito se puder olhar e apontar o erro agradeço a boa ajuda, segue:

 

procedure TF_baixarParcelas.btn_pagarParcelaClick(Sender: TObject);
var JUROS, DIAS_ATRASO  :integer;

begin
   DIAS_ATRASO := DaysBetween(Date(), TB_gerarParcelasparc_vence.Value);
   if DIAS_ATRASO > 3 then
   begin
    
     JUROS := (TB_gerarParcelasparc_valor.Value * 0.02) + (TB_gerarParcelasparc_valor.Value * DIAS_ATRASO * 0.0033);

   end
   else
   begin
   //rotina para baixar a parcela selecionada
   TB_baixarParcela.Active := True;
   TB_baixarParcela.Locate('parc_id', SQL_parcelasProntasparc_id.Value, []);
   TB_baixarParcela.Edit;

   TB_baixarParcelaparc_pago.Value := 'SIM';
   TB_baixarParcelaparc_data_pago.Value := Date;

   TB_baixarParcela.Post;

   ShowMessage('Parcela paga com sucesso !!');
   end;

[Eziquiel 96]

Primeiro a variável JUROS deve ser do tipo CURRENCY ou REAL, pois irá receber um número com casas decimais.

 

Agora me diga qual o problema que está tendo: É algum erro na hora da compilação ou está compilando normal, porém o resultado do seu procedimento não está de acordo com sua necessidade?

[marcos_ubirajara 0]

boa noite Eziquiel, obrigado pelo tempo que você se dedica em ajudar, quero crescer e amanhã depois ser útil pois amoprogramar estou começando a engatinhar mas faz parte do processo, vou te mostrar o código limpo rodando programado direto na tabela por um speedButom como já haviamos conversado, o problema começa ai pois, dentro dessa programação as vezes roda, quer dizer na maioria roda mas não armazena, quanto ao (MessageDlg) não acertei fazer ainda pois pesquiso muito e vou formando uma idéia, bem por hora é a programação de 2% sobre a parcela e 0.33% por dia de atraso sendo três dias de carência, você tem uma visão melhor que a minha vou postar o código normal que só baixa a parcela se você puder ajudar ou até marcar os pontos agradeço demais:

 

procedure TF_baixarParcelas.btn_pagarParcelaClick(Sender: TObject);
 var DIAS_ATRASO : integer;
 var JUROS : Double;

begin
   DIAS_ATRASO := DaysBetween(Date(), TB_baixarParcelaparc_vence.Value);
   JUROS := DIAS_ATRASO *

   //rotina para baixar a parcela selecionada
   TB_baixarParcela.Active := True;
   TB_baixarParcela.Locate('parc_id', SQL_parcelasProntasparc_id.Value, []);
   TB_baixarParcela.Edit;

   TB_baixarParcelaparc_pago.Value := 'SIM';
   TB_baixarParcelaparc_data_pago.Value := Date;

   TB_baixarParcela.Post;

   ShowMessage('Parcela paga com sucesso !!');

   //lançar no caixa
    with dm.SQL_caixa do
    begin
      Close;
      SQL.Clear;
      SQL.Add('update caixa set caixa_valor = caixa_valor + :valor');
      SQL.Add('where caixa_data_abre = :data and caixa_usuario = :user');
      ParamByName('user').Value  := dm.SQL_usuariosuser_id.Value;
      ParamByName('data').Value  := Date;
      ParamByName('valor').Value := SQL_parcelasProntasparc_valor.Value;
      ExecSQL;
    end;

    //===================================================================

   //atualização da sql
   SQL_parcelasProntas.Close;
   SQL_parcelasProntas.Open;
end;

 

 

até roda mas da erro obs a DateUtils está na uses

[marcos_ubirajara 0]

tentei de outras formas, nessa última mudei a data do computador e depois criei um atraso de 30 dias só que ela roda mas no caixa consta o valor da parcela sem juros, você conhece algum outro procedimento ? dá uma olhada se puder, obrigado

 

  

procedure TF_baixarParcelas.btn_pagarParcelaClick(Sender: TObject);
 var DIAS_ATRASO : integer;
 var JUROS : Real;

 

DIAS_ATRASO := DaysBetween(Date(), TB_gerarParcelasparc_vence.Value);

  if DIAS_ATRASO > 3 then
  begin
  JUROS := (TB_gerarParcelasparc_valor.Value * 0.02) + (TB_gerarParcelasparc_valor.Value * DIAS_ATRASO
  * 0.0033);
  end
  else
  begin

   //rotina para baixar a parcela selecionada
   TB_baixarParcela.Active := True;
   TB_baixarParcela.Locate('parc_id', SQL_parcelasProntasparc_id.Value, []);
   TB_baixarParcela.Edit;

   TB_baixarParcelaparc_pago.Value := 'SIM';
   TB_baixarParcelaparc_data_pago.Value := Date;

   TB_baixarParcela.Post;

   ShowMessage('Parcela paga com sucesso !!');
   end;

[Eziquiel 96]

Sua estrutura IF está incompleta e talvez errada, dependendo do que pretende fazer. 

Vejo que está fazendo o cálculo de juros e armazenando na variável "JUROS". Mas em nenhum lugar está salvando este valor na sua tabela. Também não vejo atualizando o "valor da parcela" considerando os juros calculados. 

Repare que apenas os campos " TB_baixarParcelaparc_pago" e " TB_baixarParcelaparc_data_pago "  estão sendo atualizados.

Tente assim e veja se é o que precisa. Eu não faria desta maneira, mas talvez possa ser útil pra você ter uma ideia.

Acho que a função LOCATE não está sendo usada da maneira correta. Talvez tenha que verificar isso também, caso não esteja editando o registro da parcela correta.

 

procedure TF_baixarParcelas.btn_pagarParcelaClick(Sender: TObject);
 var DIAS_ATRASO : integer;
 var JUROS : Real;
begin
	
	DIAS_ATRASO := DaysBetween(Date(), TB_gerarParcelasparc_vence.Value);
    JUROS := ;
	
	if DIAS_ATRASO > 3 then
	    JUROS := (TB_gerarParcelasparc_valor.Value * 0.02) + (TB_gerarParcelasparc_valor.Value * DIAS_ATRASO * 0.0033);

	 //rotina para baixar a parcela selecionada
     TB_baixarParcela.Active := True;
     TB_baixarParcela.Locate('parc_id', SQL_parcelasProntasparc_id.Value, []);
     TB_baixarParcela.Edit;
	 TB_gerarParcelasparc_valor.Value = TB_gerarParcelasparc_valor.Value + JUROS;
     TB_baixarParcelaparc_pago.Value := 'SIM';
     TB_baixarParcelaparc_data_pago.Value := Date;

     TB_baixarParcela.Post;
     ShowMessage('Parcela paga com sucesso !!');
   end;

 

 

[marcos_ubirajara 0]

obrigado estou testando e te retorno o resultado

 

[marcos_ubirajara 0]

consegui testar dessa forma:

procedure TF_baixarParcelas.btn_pagarParcelaClick(Sender: TObject);
  var DIAS_ATRASO : integer;
 var JUROS : Real;
begin
      DIAS_ATRASO := DaysBetween(Date(), TB_gerarParcelasparc_vence.Value);
      JUROS := DIAS_ATRASO;

    if DIAS_ATRASO > 3 then
     begin
        JUROS := (TB_gerarParcelasparc_valor.Value * 0.02) + (TB_gerarParcelasparc_valor.Value * DIAS_ATRASO * 0.0033);

     //rotina para baixar a parcela selecionada
     TB_baixarParcela.Active := True;
     TB_baixarParcela.Locate('parc_id', SQL_parcelasProntasparc_id.Value, []);
     TB_baixarParcela.Edit;
     TB_gerarParcelasparc_valor.Value := TB_gerarParcelasparc_valor.Value + JUROS;
     TB_baixarParcelaparc_pago.Value := 'SIM';
     TB_baixarParcelaparc_data_pago.Value := Date;

     TB_baixarParcela.Post;
     ShowMessage('Parcela paga com sucesso !!');
   end;

 

pois a dica deu erro, dessa forma rodou mas retornou essa msg de erro quando vou baixar a parcela:

TB_gerarParcelas not in edit or insert mode.

 

vou continuar mexendo não quero abusar se tiver uma luz ai e puder mandar agradeço

 

 

desculpe a demora tive problemas de saúde na minha familia parcialmente resolvidos