Procedura-GetSubscriberTurnover

Parametry:

Název	Popis	Datový typ
IssInvoiceType		Integer
CashRecType		Integer
IssDInv		Char(1)
AVATIssDInv		Integer
DocDateFrom		Float(0, 0)
DocDateTo		Float(0, 0)
AFirm_ID		Char(10)
PaidStatus		VarChar(2)

Návratové hodnoty:

Název	Popis	Datový typ
SumIIAmount		Numeric(15, 2)
SumIIAmountWithoutVAT		Numeric(15, 2)
SumCRAmount		Numeric(15, 2)
SumCRAmountWithoutVAT		Numeric(15, 2)
ID		Char(10)
TotalAmount		Numeric(15, 2)
TotalAmountWithoutVAT		Numeric(15, 2)

Závislosti:

Název	Popis	Třída
SubscriberTurnover	Vrací obraty odběratelů	Procedures

Tělo:

BEGIN
  for
  /* Firmy */
  select A.ID from Firms A
   where
     ((A.ID = :AFirm_ID) or (A.Firm_ID = :AFirm_ID))
   into :mFirm_ID
  do begin
    FOR
      SELECT A.SumIIAmount, A.SumIIAmountWithoutVAT, A.SumCRAmount, A.SumCRAmountWithoutVAT,
        A.ID, A.TotalAmount, A.TotalAmountWithoutVAT
      FROM
        SubscriberTurnover(:IssInvoiceType, :CashRecType, :IssDInv, :AVATIssDInv,
          'A', :DocDateFrom, :DocDateTo, 'N', 0, 0, :mFirm_ID, :PaidStatus) A
      INTO
        :SumIIAmount, :SumIIAmountWithoutVAT, :SumCRAmount, :SumCRAmountWithoutVAT,
        :ID, :TotalAmount, :TotalAmountWithoutVAT
    DO
      SUSPEND;
  end
end;

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