firebird Procedure calculo

Question

Bom dia!Utilizo o firebird 1.5.3Tenho um procedure que calcula o valor de cada parcela em funcao do valor da venda.Exemplo Valor da venda 11.89  PVRVENDAPlano    2 parcelas   PPLANODefini uma variavel...

Thomaz_prg · Answer

usando a divis�o, voc� encontraria o valor da primeira parcela. Da� fa�a a substra��o desse valor, do valor total da conta. Da� voc� teria exatamente o valor que quer....

Placido · Answer

Bom dia meu amigo Tomaz..Acho que voc� n�o entendeu a minha explica��o....eu quero utilizar um metodo para trabalhar com as duas casas decimaisfa�o uma divis�o 10.57 / 2  o resultado � 5.285  eu quero utililizar um metodo para salvar o valor 5.28 Tentei utilizar o cast mas n�o consegui....GratoPl�cido...

Thomaz_prg · Answer

Creio n�o ter me expressado direito... o que eu havia proposta era pra voc� fazer assim:

DECLARE VARIABLE PARC_1 AS NUMERIC(15,2);
DECLARE VARIABLE PARC_2 AS NUMERIC(15,2);

PARC_1 = CAST( (PVRVENDA / PPLANO ) AS NUMERIC(15,2) )
PARC_2 = CAST( (PVRVENDA - PARC_1) AS NUMERIC(15,2) )

Dessa forma, voc� teria o valor correto. Por�m, para a inser��o, sugiro que use um la�o while.

Placido · Answer

Tomaz bom dia....Fiz isto que voc� falou e o problema persiste.... VALOR4 = CAST( (:VALOR / :PPLANO ) AS NUMERIC(15,2));defini a variavel como numeric(15,2) e o resultado da divis�o da 5.285 e o sistema gra duas parcelas de 5.29 a minha pergunta � a seguinte eu quero usar um metodo que eu salve somente 5.28, a forma como voc� fez n�o resolveu....Grato pela aten��oPlacido...

Sremulador · Answer

voc� pode fazer isto diretamente em seu pr�prio sistema e n�o no banco de dados......

Thomaz_prg · Answer

Amigo, creio que voc� n�o entendeu o esp�rito da coisa... fiz uma procedure que, voc� lan�a o valor da conta e a quantidade de parcelas,e e a procedure ir� te mostrar os valores de vada parcela:

SET TERM ^ ;

CREATE PROCEDURE VLR_PARCELAS (
    VALOR NUMERIC(15,2),
    PARCELAS INTEGER)
RETURNS (
    VALORES DECIMAL(15,2))
AS
DECLARE VARIABLE VPARCELAS NUMERIC(15,2);
DECLARE VARIABLE VUPARCELA NUMERIC(15,2);
DECLARE VARIABLE I INTEGER;
begin
  VPARCELAS = (:VALOR / :PARCELAS ) * 100;
  VPARCELAS = CAST( (:VPARCELAS  ) AS INTEGER );
  VPARCELAS = :VPARCELAS / 100;
  I = 1;
  VUPARCELA = 0;
  WHILE (:I < :PARCELAS) DO BEGIN
    VALORES = :VPARCELAS;
    VUPARCELA = :VUPARCELA + :VALORES;
    I = :I + 1;
    SUSPEND;
  END
  VALORES = :VALOR - :VUPARCELA;
  suspend;
end^

SET TERM ; ^

Para usar, basta fazer assim:

SELECT * FROM VLR_PARCELAS( 11.89 , 2 )

Teste, veja se � o que voc� quer, e se for, � s� alterar para funcionar com seu bando de dados.

Placido · Answer

Thomaz boa tarde...Obrigado pela diga, mas n�o consegui resolver o problema, acho que expressei mal.....Tenho o seguinte problema, tenho uma procedure calcula o valor de cada parcela baseado no valor da venda e o plano de venda ex.Valor da Venda  =   11.70    MvrVendaPlano                =   3           MplanoValor de cada parcela =  MvrVenda / 3       MvrParcela     (3.9633333)Quero salvar sempre o valor 3.96, p]ou seja somente 2 casas decimais   3.96Fazendo o processo ao contrario eu vou saber se tem valor para somar na ultima parcela exemploValor de cada parcela  MvrParcela *  Mplano =  Mparcelax  (11.88)Valor da venda VvrVenda - Mparcelax =  0.01 , ou seja tenho que gravarna primeira parcela o valor de 3.96na segunda parcela o valor de 3.96na terceira parcela o valro de  3.97  que da o valor total da venda 11.89Quero que voce me ajede a resolver este problema.GratoPlacido...

Thomaz_prg · Answer

Amigo... se vc prestar aten��o no c�digo da procedure que postei, ela faz isso... ela pega unicamente os 2 d�gitos esquecendo os demais. No trecho:

  VPARCELAS = (:VALOR / :PARCELAS ) * 100; 
  VPARCELAS = CAST( (:VPARCELAS  ) AS INTEGER ); 
  VPARCELAS = :VPARCELAS / 100;

ela faz justamente o que voc� quer. Por exemplo, se o resultado da divis�o do valor pela quantidade de parcelas der 1,84966 a vonta faria o seguinte, multiplicaria por 100, e teria o valor 184,966 ent�o ao se transformar isso em um inteiro, o que est� ap�s a v�rgula seria descartado ficando 184. Depois, divido novamente por 100 e tenho o valor 1,84 que era o desejado.

Placido · Answer

Thomaz boa tarde!Realmente tudo funcionou perfeito, muito obrigado pela ajuda.Fique com Deus.GratoPl�cido...

F�rum firebird Procedure calculo #56068