Procedura-UpdateBankAccountsBalance

Parametry:

NázevPopisDatový typ
IN_Account_IDChar(10)
Minus_AmountNumeric(15, 2)
Minus_LocalAmountNumeric(15, 2)
Plus_AmountNumeric(15, 2)
Plus_LocalAmountNumeric(15, 2)

Tělo:

BEGIN
  mAmount = 0;
  mLocalAmount = 0;
  SELECT Amount, LocalAmount from SYS$BankAccountsBalance where
    Account_ID = :IN_Account_ID
    INTO mAmount, mLocalAmount;
  mInsertAmount = mAmount + (Plus_Amount - Minus_Amount);
  mInsertLocalAmount = mLocalAmount + (Plus_LocalAmount - Minus_LocalAmount);
  UPDATE SYS$BankAccountsBalance SET Amount = :mInsertAmount, LocalAmount = :mInsertLocalAmount
    WHERE Account_ID = :IN_Account_ID;
END;

Generated by ABRA Software a.s. 27.10.2021 16:34:18