Procedura-GroupedVATSummaryInv

Parametry:

Název	Popis	Datový typ
AFirmSelID		Char(10)
ADivisionsSelID		Char(10)
ABusOrdersSelID		Char(10)
ABusTransactionsSelID		Char(10)
ABusProjectsSelID		Char(10)
AVATDateFrom		Float(0, 0)
AVATDateTo		Float(0, 0)
ADivisionsWithChilds		Char(1)
ABusOrdersWithChilds		Char(1)
ABusTransactionsWithChilds		Char(1)
ABusProjectsWithChilds		Char(1)
AVATCountry_ID		Char(10)

Návratové hodnoty:

Název	Popis	Datový typ
VATIndex_ID		Char(10)
TAmountWithoutVAT		Numeric(15, 2)
TAmount		Numeric(15, 2)
ForeignTAmountWithoutVAT		Numeric(15, 2)
ForeignTAmount		Numeric(15, 2)

Závislosti:

Název	Popis	Třída
GroupedVATCustDeclaration		Procedures
GroupedVATIssCreditNot		Procedures
GroupedVATIssInv		Procedures
GroupedVATRecCreditNot		Procedures
GroupedVATRecInv		Procedures
GroupedVATRevCharge		Procedures
GroupedVATCustConfirmation		Procedures

Tělo:

BEGIN
  /* GroupedVATSummaryInv Line03 */
  /* radky FV */
  FOR
    SELECT
      A.VATIndex_ID,
      SUM(A.TAmountWithoutVAT),
      SUM(A.TAmount),
      SUM(A.ForeignTAmountWithoutVAT),
      SUM(A.ForeignTAmount)
    FROM
      GroupedVATIssInv(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
        :ABusTransactionsSelID, :ABusProjectsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
        :ABusOrdersWithChilds, :ABusTransactionsWithChilds, :ABusProjectsWithChilds, :AVATCountry_ID) A
    WHERE
      A.VATIndex_ID IS NOT NULL
    GROUP BY
      A.VATIndex_ID
    INTO
      :VATIndex_ID, :TAmountWithoutVAT, :TAmount, :ForeignTAmountWithoutVAT, :ForeignTAmount
  DO BEGIN
    SUSPEND;
  END
  /* radky FP */
  FOR
    SELECT
      A.VATIndex_ID,
      SUM(A.TAmountWithoutVAT),
      SUM(A.TAmount),
      SUM(A.ForeignTAmountWithoutVAT),
      SUM(A.ForeignTAmount)
    FROM
      GroupedVATRecInv(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
        :ABusTransactionsSelID, :ABusProjectsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
        :ABusOrdersWithChilds, :ABusTransactionsWithChilds, :ABusProjectsWithChilds, :AVATCountry_ID) A
    WHERE
      A.VATIndex_ID IS NOT NULL
    GROUP BY
      A.VATIndex_ID
    INTO
      :VATIndex_ID, :TAmountWithoutVAT, :TAmount, :ForeignTAmountWithoutVAT, :ForeignTAmount
  DO BEGIN
    SUSPEND;
  END
  /* radky DV */
  FOR
    SELECT
      A.VATIndex_ID,
      SUM(-1 * A.TAmountWithoutVAT),
      SUM(-1 * A.TAmount),
      SUM(-1 * A.ForeignTAmountWithoutVAT),
      SUM(-1 * A.ForeignTAmount)
    FROM
      GroupedVATIssCreditNot(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
        :ABusTransactionsSelID, :ABusProjectsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
        :ABusOrdersWithChilds, :ABusTransactionsWithChilds, :ABusProjectsWithChilds, :AVATCountry_ID) A
    WHERE
      A.VATIndex_ID IS NOT NULL
    GROUP BY
      A.VATIndex_ID
    INTO
      :VATIndex_ID, :TAmountWithoutVAT, :TAmount, :ForeignTAmountWithoutVAT, :ForeignTAmount
  DO BEGIN
    SUSPEND;
  END
  /* radky DP */
  FOR
    SELECT
      A.VATIndex_ID,
      SUM(-1 * A.TAmountWithoutVAT),
      SUM(-1 * A.TAmount),
      SUM(-1 * A.ForeignTAmountWithoutVAT),
      SUM(-1 * A.ForeignTAmount)
    FROM
      GroupedVATRecCreditNot(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
        :ABusTransactionsSelID, :ABusProjectsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
        :ABusOrdersWithChilds, :ABusTransactionsWithChilds, :ABusProjectsWithChilds, :AVATCountry_ID) A
    WHERE
      A.VATIndex_ID IS NOT NULL
    GROUP BY
      A.VATIndex_ID
    INTO
      :VATIndex_ID, :TAmountWithoutVAT, :TAmount, :ForeignTAmountWithoutVAT, :ForeignTAmount
  DO BEGIN
    SUSPEND;
  END
  /* radky DRC */
  FOR
    SELECT
      A.VATIndex_ID,
      SUM(A.TAmountWithoutVAT),
      SUM(A.TAmount),
      SUM(A.ForeignTAmountWithoutVAT),
      SUM(A.ForeignTAmount)
    FROM
      GroupedVATRevCharge(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
        :ABusTransactionsSelID, :ABusProjectsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
        :ABusOrdersWithChilds, :ABusTransactionsWithChilds, :ABusProjectsWithChilds, :AVATCountry_ID) A
    WHERE
      A.VATIndex_ID IS NOT NULL
    GROUP BY
      A.VATIndex_ID
    INTO
      :VATIndex_ID, :TAmountWithoutVAT, :TAmount, :ForeignTAmountWithoutVAT, :ForeignTAmount
  DO BEGIN
    SUSPEND;
  END
  /* radky JCD */
  FOR
    SELECT
      A.VATIndex_ID,
      SUM(A.TAmountWithoutVAT),
      SUM(A.TAmount),
      SUM(A.ForeignTAmountWithoutVAT),
      SUM(A.ForeignTAmount)
    FROM
      GroupedVATCustDeclaration(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
        :ABusTransactionsSelID, :ABusProjectsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
        :ABusOrdersWithChilds, :ABusTransactionsWithChilds, :ABusProjectsWithChilds, :AVATCountry_ID) A
    WHERE
      A.VATIndex_ID IS NOT NULL
    GROUP BY
      A.VATIndex_ID
    INTO
      :VATIndex_ID, :TAmountWithoutVAT, :TAmount, :ForeignTAmountWithoutVAT, :ForeignTAmount
  DO BEGIN
    SUSPEND;
  END
  /* radky PCV Potvrzeni celnice o vyvozu */
  FOR
    SELECT
      A.VATIndex_ID,
      SUM(A.TAmountWithoutVAT),
      SUM(A.TAmount),
      SUM(A.ForeignTAmountWithoutVAT),
      SUM(A.ForeignTAmount)
    FROM
      GroupedVATCustConfirmation(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
        :ABusTransactionsSelID, :ABusProjectsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
        :ABusOrdersWithChilds, :ABusTransactionsWithChilds, :ABusProjectsWithChilds, :AVATCountry_ID) A
    WHERE
      A.VATIndex_ID IS NOT NULL
    GROUP BY
      A.VATIndex_ID
    INTO
      :VATIndex_ID, :TAmountWithoutVAT, :TAmount, :ForeignTAmountWithoutVAT, :ForeignTAmount
  DO BEGIN
    SUSPEND;
  END
  
END;

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