Procedura-MainBookBeginnings

Parametry:

Název	Popis	Datový typ
InAccount_ID		Char(10)
InAccDateFrom		Float(0, 0)
InAccDateTo		Float(0, 0)
InDivisionSelID		VarChar(10)
InDivisionsWithChilds		Char(1)
InAllowRequests		Char(1)
InAudited		Char(1)
InBusOrderSelID		VarChar(10)
InBusOrdersWithChilds		Char(1)
InBusTransactionSelID		VarChar(10)
InBusTransactionsWithChilds		Char(1)
InBusProjectSelID		VarChar(10)
InBusProjectsWithChilds		Char(1)

Návratové hodnoty:

Název	Popis	Datový typ
Account_ID		Char(10)
DebitAmount		Numeric(15, 2)
CreditAmount		Numeric(15, 2)
Period_ID		Char(10)
DateFrom$DATE		Float(0, 0)
DateTo$DATE		Float(0, 0)

Závislosti:

Název	Popis	Třída
AccountCalculus	Procedura na dotáhnutí stavu účtů vzhledem k zadaným datumům. Ze zadaných datumů odvodí nejbližší období a vrací sumu k počátku tohoto období, sumu od počátku období do datumu OD a sumu za období mezi datumy OD a DO	Procedures

Tělo:

begin
  Account_ID = InAccount_ID;
  DebitAmount = null;
  CreditAmount = null;
  Period_ID = null;
  DateFrom$DATE = 0;
  DateTo$Date = INAccDateTo;
  --kvuli puvodnimu chovani - bohuzel pocita, ze parametr InAccount_ID je natvrdo at je co je
  if (InAccount_ID is not Null and InAccount_ID <> '') then begin
    select
      debitbeginnigturnover,
      creditbeginnigturnover,
      Period_ID,
      PeriodFromDate
    from
      AccountCalculus(
        '%',
        :InAccount_ID,
        '',
        '',
        :InAccDateFrom,
        :InAccDateTo,
        :InDivisionSelID,
        :InDivisionsWithChilds,
        :InBusOrderSelID,
        :InBusOrdersWithChilds,
        :InBusTransactionSelID,
        :InBusTransactionsWithChilds,
        :InBusProjectSelID,
        :InBusProjectsWithChilds,
        :InAudited,
        :InAllowRequests,
        'N',
        2)
     into
       :debitamount,
       :creditamount,
       :period_id,
       :datefrom$date;
   end  
   --kvuli stejnemu vystupu jako puvodni procedura
   if (Period_ID is null) then
     select
       P.ID, P.DateFrom$Date
     from
       Periods P
     where
       P.ID = (select RPeriod_ID from GetFirstperiodByDates(:INAccDateFrom, :INAccDateTo, ''))
     into
       :Period_ID, :DateFrom$DATE;
   suspend;
end

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