BEGIN
SELECT Code FROM Countries WHERE ID = :VATCountry_ID INTO :mVATCountryCode;
IF (mVATCountryCode IS NULL) THEN
BEGIN
SELECT Min(C.Code) FROM Globdata G JOIN Countries C ON C.ID = G.Country_ID INTO :mVATCountryCode;
END
POSSumDoc_ID = Null;
/* VATSummary VATByPayment */
FOR
SELECT VATIndex_ID, DocQueue_ID, OrdNumber, Period_ID, TAmountWithoutVAT,
LocalTAmountWithoutVAT, TAmount, LocalTAmount, Text, Description, Division_ID, BusOrder_ID,
BusTransaction_ID, BusProject_ID, Firm_ID, VATDate$Date, PosIndex, RelatedDocName,
VATMode, Document_ID, DRCArticle_ID, ExternalNumber, VarSymbol, SimplifiedVATDocument, SourceDoc_ID, SourceDocType,
VATReportReference, VATReportPreference, VATAdmitDate$DATE, UsedRatio
FROM
VATSummaryInv(:FirmSelID, :DivisionsSelID, :BusOrdersSelID, :BusTransactionsSelID, :BusProjectsSelID,
:AVATDateFrom , :AVATDateTo, :DivisionsWithChilds,
:BusOrdersWithChilds, :BusTransactionsWithChilds, :BusProjectsWithChilds, :VATCountry_ID, :AWithMOSS)
INTO
:VATIndex_ID, :DocQueue_ID, :OrdNumber, :Period_ID, :TAmountWithoutVAT,
:LocalTAmountWithoutVAT, :TAmount, :LocalTAmount, :Text, :Description, :Division_ID, :BusOrder_ID,
:BusTransaction_ID, :BusProject_ID, :Firm_ID, :VATDate$Date, :PosIndex, :RelatedDocName,
:VATMode, :Document_ID, :DRCArticle_ID, :ExternalNumber, :VarSymbol, :SimplifiedVATDocument, :SourceDoc_ID, :SourceDocType,
:VATReportReference, :VATReportPreference, :VATAdmitDate$DATE, :UsedRatio
DO begin
SUSPEND;
end
RelatedDocName = '';
DRCArticle_ID = NULL;
POSSumDoc_ID = Null;
FOR
SELECT VATIndex_ID, DocQueue_ID, OrdNumber, Period_ID, TAmountWithoutVAT,
LocalTAmountWithoutVAT, TAmount, LocalTAmount, Text, Description, Division_ID, BusOrder_ID,
BusTransaction_ID, BusProject_ID, Firm_ID, VATDate$Date, PosIndex,
VATMode, Document_ID, ExternalNumber, VarSymbol, SimplifiedVATDocument, SourceDoc_ID, SourceDocType,
VATReportReference, VATReportPreference, VATAdmitDate$DATE, UsedRatio
FROM
VATSummaryAcc(:FirmSelID, :DivisionsSelID, :BusOrdersSelID, :BusTransactionsSelID, :BusProjectsSelID,
:AVATDateFrom , :AVATDateTo, :DivisionsWithChilds,
:BusOrdersWithChilds, :BusTransactionsWithChilds, :BusProjectsWithChilds, :VATCountry_ID)
INTO
:VATIndex_ID, :DocQueue_ID, :OrdNumber, :Period_ID, :TAmountWithoutVAT,
:LocalTAmountWithoutVAT, :TAmount, :LocalTAmount, :Text, :Description, :Division_ID, :BusOrder_ID,
:BusTransaction_ID, :BusProject_ID, :Firm_ID, :VATDate$Date, :PosIndex,
:VATMode, :Document_ID, :ExternalNumber, :VarSymbol, :SimplifiedVATDocument, :SourceDoc_ID, :SourceDocType,
:VATReportReference, :VATReportPreference, :VATAdmitDate$DATE, :UsedRatio
DO begin
SUSPEND;
end
VarSymbol = '';
POSSumDoc_ID = Null;
FOR
SELECT VATIndex_ID, DocQueue_ID, OrdNumber, Period_ID, TAmountWithoutVAT,
LocalTAmountWithoutVAT, TAmount, LocalTAmount, Text, Description, Division_ID, BusOrder_ID,
BusTransaction_ID, BusProject_ID, Firm_ID, VATDate$Date, PosIndex,
VATMode, Document_ID, DRCArticle_ID, ExternalNumber, SimplifiedVATDocument, SourceDoc_ID, SourceDocType,
VATReportReference, VATReportPreference, VATAdmitDate$DATE, UsedRatio
FROM
VATSummaryCash(:FirmSelID, :DivisionsSelID, :BusOrdersSelID, :BusTransactionsSelID, :BusProjectsSelID,
:AVATDateFrom , :AVATDateTo, :DivisionsWithChilds,
:BusOrdersWithChilds, :BusTransactionsWithChilds, :BusProjectsWithChilds, :VATCountry_ID, :AWithMOSS)
INTO
:VATIndex_ID, :DocQueue_ID, :OrdNumber, :Period_ID, :TAmountWithoutVAT,
:LocalTAmountWithoutVAT, :TAmount, :LocalTAmount, :Text, :Description, :Division_ID, :BusOrder_ID,
:BusTransaction_ID, :BusProject_ID, :Firm_ID, :VATDate$Date, :PosIndex,
:VATMode, :Document_ID, :DRCArticle_ID, :ExternalNumber, :SimplifiedVATDocument, :SourceDoc_ID, :SourceDocType,
:VATReportReference, :VATReportPreference, :VATAdmitDate$DATE, :UsedRatio
DO begin
SUSPEND;
end
DRCArticle_ID = NULL;
ExternalNumber = '';
VarSymbol = '';
VATReportReference = '';
VATReportPreference = '';
UsedRatio = 'N';
FOR
SELECT VATIndex_ID, DocQueue_ID, OrdNumber, Period_ID, TAmountWithoutVAT,
LocalTAmountWithoutVAT, TAmount, LocalTAmount, Text, Description, Division_ID, BusOrder_ID,
BusTransaction_ID, BusProject_ID, Firm_ID, VATDate$Date, PosIndex,
VATMode, Document_ID, SimplifiedVATDocument, SourceDoc_ID, SourceDocType, POSSumDoc_ID
FROM
VATSummaryPos(:FirmSelID, :DivisionsSelID, :BusOrdersSelID, :BusTransactionsSelID, :BusProjectsSelID,
:AVATDateFrom , :AVATDateTo, :DivisionsWithChilds,
:BusOrdersWithChilds, :BusTransactionsWithChilds, :BusProjectsWithChilds, :VATCountry_ID, :APOSDetailed)
INTO
:VATIndex_ID, :DocQueue_ID, :OrdNumber, :Period_ID, :TAmountWithoutVAT,
:LocalTAmountWithoutVAT, :TAmount, :LocalTAmount, :Text, :Description, :Division_ID, :BusOrder_ID,
:BusTransaction_ID, :BusProject_ID, :Firm_ID, :VATDate$Date, :PosIndex,
:VATMode, :Document_ID, :SimplifiedVATDocument, :SourceDoc_ID, :SourceDocType, :POSSumDoc_ID
DO begin
VATAdmitDate$DATE = VATDate$DATE;
SUSPEND;
end
/* DPH z plateb je jen v SK a CH */
IF ((mVATCountryCode = 'SK') OR (mVATCountryCode = 'CH')) THEN
BEGIN
POSSumDoc_ID = Null;
FOR
SELECT VATIndex_ID, DocQueue_ID, OrdNumber, Period_ID, TAmountWithoutVAT,
LocalTAmountWithoutVAT, TAmount, LocalTAmount, Text, Description, Division_ID, BusOrder_ID,
BusTransaction_ID, BusProject_ID, Firm_ID, VATDate$Date, PosIndex, RelatedDocName,
VATMode, Document_ID, DRCArticle_ID, ExternalNumber, VarSymbol, SimplifiedVATDocument, SourceDoc_ID, SourceDocType,
VATReportReference, VATReportPreference, VATAdmitDate$DATE, UsedRatio
FROM
VATSummaryPayments(:FirmSelID, :DivisionsSelID, :BusOrdersSelID, :BusTransactionsSelID, :BusProjectsSelID,
:AVATDateFrom , :AVATDateTo, :DivisionsWithChilds,
:BusOrdersWithChilds, :BusTransactionsWithChilds, :BusProjectsWithChilds, :VATCountry_ID, :AWithMOSS)
INTO
:VATIndex_ID, :DocQueue_ID, :OrdNumber, :Period_ID, :TAmountWithoutVAT,
:LocalTAmountWithoutVAT, :TAmount, :LocalTAmount, :Text, :Description, :Division_ID, :BusOrder_ID,
:BusTransaction_ID, :BusProject_ID, :Firm_ID, :VATDate$Date, :PosIndex, :RelatedDocName,
:VATMode, :Document_ID, :DRCArticle_ID, :ExternalNumber, :VarSymbol, :SimplifiedVATDocument, :SourceDoc_ID, :SourceDocType,
:VATReportReference, :VATReportPreference, :VATAdmitDate$DATE, :UsedRatio
DO BEGIN
SUSPEND;
END
END
END