1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

create or alter procedure FIX_GL_DECIMALS
as
declare variable E integer;
declare variable S integer;
declare variable TIPO char(2);
declare variable NUMERO integer;
declare variable CONTEO integer;
declare variable DEBIT numeric(15,2);
declare variable CREDIT numeric(15,2);
declare variable BASE numeric(15,2);
declare variable AJUSTE_PESO integer;
declare variable ID_N bigint;
declare variable RDEBIT numeric(15,2);
declare variable RCREDIT numeric(15,2);
declare variable RBASE numeric(15,2);
begin
  FOR SELECT E, S, Tipo, BATCH, Conteo, Debit, Credit, Base FROM GL INTO :E, :S, :Tipo, :Numero, :Conteo, :Debit, :Credit, :Base DO begin
    RDebit = Round(:Debit * 100, 2) / 100.0;
    RCredit = Round(:Credit * 100, 2) / 100.0;
    RBase = Round(:Base * 100, 2) / 100.0;
    UPDATE GL SET Debit=:RDebit, Credit=:RCredit, Base=:RBase WHERE Conteo=:Conteo AND E=:E AND S=:S AND Tipo=:Tipo AND Batch=:Numero;
  END
  SELECT ACCT_AjustePeso, ID_N FROM SYS WHERE E=1 INTO :ajuste_peso, :ID_N;
  DELETE FROM GL WHERE ACCT=:ajuste_peso;
  FOR SELECT DISTINCT E, S, tipo, Batch FROM GL INTO :E, :S, :Tipo, :Numero DO BEGIN
    SELECT Sum(Debit), Sum(Credit) FROM GL WHERE E=:E AND S=:S AND Tipo=:Tipo AND Batch=:Numero INTO :Debit, :Credit;
    IF ((:debit - :Credit <> 0) AND ((:Debit - :Credit) < 0.5)) THEN BEGIN
      if (:Debit > :Credit) then BEGIN
        INSERT INTO GL (ID_N, ACCT, E, S, Tipo, Batch, Base, Debit, Credit, Descripcion) VALUES (:ID_N, :Ajuste_Peso, :E, :S, :Tipo, :Numero, 0, 0, (:Debit-:Credit), 'Ajuste al peso');
      END ELSE BEGIN
        INSERT INTO GL (ID_N, ACCT, E, S, Tipo, Batch, Base, Debit, Credit, Descripcion) VALUES (:ID_N, :Ajuste_Peso, :E, :S, :Tipo, :Numero, 0, (:Debit-:Credit), 0, 'Ajuste al peso');
      END
    END
  END
end^                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

CREATE OR ALTER TRIGGER GL_BIU0 FOR GL
ACTIVE BEFORE INSERT OR UPDATE POSITION 0
AS
begin
  New.Credit = Round(New.Credit * 100) / 100.0;
  New.Debit = Round(New.Debit * 100) / 100.0;
  New.Base = Round(New.Base * 100) / 100.0;
end
^                    

1:

  c:=round(y);                    

1:

Select cast(100/1.19 AS Numeric(7,2))*10000 AS Result, cast(100/1.19 AS Float)*10000 AS Result2 from rdb$Database;