Procedura-GetSupplierTurnover

Parametry:

Název	Popis	Datový typ
RecInvoiceType		Integer
CashPaidType		Integer
RecDInv		Char(1)
AVATRecDInv		Integer
DocDateFrom		Float(0, 0)
DocDateTo		Float(0, 0)
AFirm_ID		Char(10)
PaidStatus		VarChar(2)

Návratové hodnoty:

Název	Popis	Datový typ
SumRIAmount		Numeric(15, 2)
SumRIAmountWithoutVAT		Numeric(15, 2)
SumCPAmount		Numeric(15, 2)
SumCPAmountWithoutVAT		Numeric(15, 2)
ID		Char(10)
TotalAmount		Numeric(15, 2)
TotalAmountWithoutVAT		Numeric(15, 2)

Závislosti:

Název	Popis	Třída
SupplierTurnover	Vrací obraty dodavatelů	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.SumRIAmount, A.SumRIAmountWithoutVAT, A.SumCPAmount, A.SumCPAmountWithoutVAT,
        A.ID, A.TotalAmount, A.TotalAmountWithoutVAT
      FROM
        SupplierTurnover(:RecInvoiceType, :CashPaidType, :RecDInv, :AVATRecDInv,
          'A', :DocDateFrom, :DocDateTo, 'N', 0, 0, :mFirm_ID, :PaidStatus) A
      INTO
        :SumRIAmount, :SumRIAmountWithoutVAT, :SumCPAmount, :SumCPAmountWithoutVAT,
        :ID, :TotalAmount, :TotalAmountWithoutVAT
    DO
      SUSPEND;
  end
end;

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