BEGIN
/* Procedura typu SELECT
Výsledkem dotazu jsou doklady, které odpovídají predaným podmínkám.
Vracejí se jenom takové doklady, které prispejí nejakou cástkou. */
/* získám možnou minimální levou stranu intervalu pro dotaz */
SELECT datefrom$date FROM periods WHERE id = :IN_FIRST_PERIOD_ID INTO mDATE_FROM$DATE;
/* lehce poporavím, pokud je vstupní levé datum vetší než minimum z období */
IF (mDATE_FROM$DATE < IN_DATE_FROM$DATE) THEN
mDATE_FROM$DATE = IN_DATE_FROM$DATE;
/* pravá cást intervalu je jednoduchá... */
mDATE_TO$DATE = IN_DATE_TO$DATE;
/* Jednotlivé dotazy do tabulek pokladních dokladu */
/* Pokladní príjmy */
for
select OUT_DOC_DATE$DATE, OUT_DISPLAYNAME, OUT_DOCUMENT_DESCRIPTION, OUT_AMOUNT, OUT_LOCALAMOUNT,
OUT_ORDER_KIND, OUT_FIRM_NAME, OUT_BOOKENTRY_DISPLAYNAME, OUT_DQCode, OUT_OrdNumber, OUT_PCode, OUT_DOCUMENT_ID, '05'
from
GetDocsForCashBookReportCR(:mDATE_FROM$DATE, :mDATE_TO$DATE, :IN_CASHDESK_ID, :InDivisionSelID, :IN_DOCQUEUE_SEL_ID,
:IN_FIRM_SEL_ID, :InBusOrderSelID, :In_BusTransactionSelID, :InBusProjectSelID, :IN_CREATEDBY_SEL_ID, :IN_CORRECTEDBY_SEL_ID,
:IN_ACCOUNTING, :InDivisionsWithChilds, :InBusOrdersWithChilds, :InBusTransactionsWithChilds, :InBusProjectsWithChilds)
into
OUT_DOC_DATE$DATE, OUT_DISPLAYNAME, OUT_DOCUMENT_DESCRIPTION, OUT_AMOUNT, OUT_LOCALAMOUNT,
OUT_ORDER_KIND, OUT_FIRM_NAME, OUT_BOOKENTRY_DISPLAYNAME, OUT_DQCode, OUT_OrdNumber, OUT_PCode, OUT_DOCUMENT_ID, OUT_DOCUMENTTYPE
do begin
suspend;
end
/* Pokladní výdeje */
for
select OUT_DOC_DATE$DATE, OUT_DISPLAYNAME, OUT_DOCUMENT_DESCRIPTION, OUT_AMOUNT, OUT_LOCALAMOUNT,
OUT_ORDER_KIND, OUT_FIRM_NAME, OUT_BOOKENTRY_DISPLAYNAME, OUT_DQCode, OUT_OrdNumber, OUT_PCode, OUT_DOCUMENT_ID, '06'
from
GetDocsForCashBookReportCP(:mDATE_FROM$DATE, :mDATE_TO$DATE, :IN_CASHDESK_ID, :InDivisionSelID, :IN_DOCQUEUE_SEL_ID,
:IN_FIRM_SEL_ID, :InBusOrderSelID, :In_BusTransactionSelID, :InBusProjectSelID, :IN_CREATEDBY_SEL_ID, :IN_CORRECTEDBY_SEL_ID,
:IN_ACCOUNTING, :InDivisionsWithChilds, :InBusOrdersWithChilds, :InBusTransactionsWithChilds, :InBusProjectsWithChilds)
into
OUT_DOC_DATE$DATE, OUT_DISPLAYNAME, OUT_DOCUMENT_DESCRIPTION, OUT_AMOUNT, OUT_LOCALAMOUNT,
OUT_ORDER_KIND, OUT_FIRM_NAME, OUT_BOOKENTRY_DISPLAYNAME, OUT_DQCode, OUT_OrdNumber, OUT_PCode, OUT_DOCUMENT_ID, OUT_DOCUMENTTYPE
do begin
suspend;
end
/* Vrácení pokladních príjmu */
for
select OUT_DOC_DATE$DATE, OUT_DISPLAYNAME, OUT_DOCUMENT_DESCRIPTION, OUT_AMOUNT, OUT_LOCALAMOUNT,
OUT_ORDER_KIND, OUT_FIRM_NAME, OUT_BOOKENTRY_DISPLAYNAME, OUT_DQCode, OUT_OrdNumber, OUT_PCode, OUT_DOCUMENT_ID, '07'
from
GetDocsForCashBookReportRCR(:mDATE_FROM$DATE, :mDATE_TO$DATE, :IN_CASHDESK_ID, :InDivisionSelID, :IN_DOCQUEUE_SEL_ID,
:IN_FIRM_SEL_ID, :InBusOrderSelID, :In_BusTransactionSelID, :InBusProjectSelID, :IN_CREATEDBY_SEL_ID, :IN_CORRECTEDBY_SEL_ID,
:IN_ACCOUNTING, :InDivisionsWithChilds, :InBusOrdersWithChilds, :InBusTransactionsWithChilds, :InBusProjectsWithChilds)
into
OUT_DOC_DATE$DATE, OUT_DISPLAYNAME, OUT_DOCUMENT_DESCRIPTION, OUT_AMOUNT, OUT_LOCALAMOUNT,
OUT_ORDER_KIND, OUT_FIRM_NAME, OUT_BOOKENTRY_DISPLAYNAME, OUT_DQCode, OUT_OrdNumber, OUT_PCode, OUT_DOCUMENT_ID, OUT_DOCUMENTTYPE
do begin
suspend;
end
/* Vrácení pokladního výdeje */
for
select OUT_DOC_DATE$DATE, OUT_DISPLAYNAME, OUT_DOCUMENT_DESCRIPTION, OUT_AMOUNT, OUT_LOCALAMOUNT,
OUT_ORDER_KIND, OUT_FIRM_NAME, OUT_BOOKENTRY_DISPLAYNAME, OUT_DQCode, OUT_OrdNumber, OUT_PCode, OUT_DOCUMENT_ID, '08'
from
GetDocsForCashBookReportRCP(:mDATE_FROM$DATE, :mDATE_TO$DATE, :IN_CASHDESK_ID, :InDivisionSelID, :IN_DOCQUEUE_SEL_ID,
:IN_FIRM_SEL_ID, :InBusOrderSelID, :In_BusTransactionSelID, :InBusProjectSelID, :IN_CREATEDBY_SEL_ID, :IN_CORRECTEDBY_SEL_ID,
:IN_ACCOUNTING, :InDivisionsWithChilds, :InBusOrdersWithChilds, :InBusTransactionsWithChilds, :InBusProjectsWithChilds)
into
OUT_DOC_DATE$DATE, OUT_DISPLAYNAME, OUT_DOCUMENT_DESCRIPTION, OUT_AMOUNT, OUT_LOCALAMOUNT,
OUT_ORDER_KIND, OUT_FIRM_NAME, OUT_BOOKENTRY_DISPLAYNAME, OUT_DQCode, OUT_OrdNumber, OUT_PCode, OUT_DOCUMENT_ID, OUT_DOCUMENTTYPE
do begin
suspend;
end
/* Kurzový rozdíl */
for
select OUT_DOC_DATE$DATE, OUT_DISPLAYNAME, OUT_DOCUMENT_DESCRIPTION, OUT_AMOUNT, OUT_LOCALAMOUNT,
OUT_ORDER_KIND, OUT_FIRM_NAME, OUT_BOOKENTRY_DISPLAYNAME, OUT_DQCode, OUT_OrdNumber, OUT_PCode, OUT_DOCUMENT_ID, '19'
from
GetDocsForCashBookReportCED(:mDATE_FROM$DATE, :mDATE_TO$DATE, :IN_CASHDESK_ID, :InDivisionSelID, :IN_DOCQUEUE_SEL_ID,
:IN_FIRM_SEL_ID, :InBusOrderSelID, :In_BusTransactionSelID, :InBusProjectSelID, :IN_CREATEDBY_SEL_ID, :IN_CORRECTEDBY_SEL_ID,
:IN_ACCOUNTING, :InDivisionsWithChilds, :InBusOrdersWithChilds, :InBusTransactionsWithChilds, :InBusProjectsWithChilds)
into
OUT_DOC_DATE$DATE, :OUT_DISPLAYNAME, OUT_DOCUMENT_DESCRIPTION, OUT_AMOUNT, OUT_LOCALAMOUNT,
OUT_ORDER_KIND, OUT_FIRM_NAME, OUT_BOOKENTRY_DISPLAYNAME, OUT_DQCode, OUT_OrdNumber, OUT_PCode, OUT_DOCUMENT_ID, OUT_DOCUMENTTYPE
do begin
suspend;
end
END;