Procedura-UpdateBankAccountsBalance2

Parametry:

NázevPopisDatový typ
Abankaccount_IdChar(10)
AbeginningamountNumeric(15, 2)
AbeginninglocalamountNumeric(15, 2)
Aperiod_IdChar(10)

Závislosti:

NázevPopisTřída
GetDocsForBankBookReportSumProcedures

Tělo:

begin
  SELECT P.DateFrom$DATE FROM Periods P WHERE P.ID = :APeriod_ID into :mDate;
  SELECT out_localamount, out_amount
    FROM GetDocsForBankBookReportSum(:APeriod_ID,99999,:ABankAccount_ID,'','','','','','','','','.','0','0','0','0')
    into :MLOCALAMOUNT, :mAmount;
  UPDATE SYS$BankAccountsBalance SET Amount = :Abeginningamount + :mAmount, LocalAmount = :Abeginninglocalamount + :mLocalAmount
    WHERE Account_ID = :ABankAccount_ID;
end;

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