Procedura-GetPayableHeadersPOS

Parametry:

Název	Popis	Datový typ
ADATEFROM$DATE		Float(0, 0)
ADATETO$DATE		Float(0, 0)

Návratové hodnoty:

Název	Popis	Datový typ
PDOCUMENTTYPE		Char(2)
PDOCUMENT_ID		Char(10)

Tělo:

begin
  FOR
    SELECT
      A.PDocument_ID, A.PDocumentType
    FROM POSCashPaid A
    WHERE A.PDocument_ID is not null and (A.DocDate$DATE<:ADateTo$DATE) and (A.DocDate$DATE>=:ADateFrom$DATE)
    GROUP BY 1, 2
    UNION ALL
    SELECT
      A.PDocument_ID, A.PDocumentType
    FROM POSCashReceived A
    WHERE A.PDocument_ID is not null and (A.DocDate$DATE<:ADateTo$DATE) and (A.DocDate$DATE>=:ADateFrom$DATE)
    GROUP BY 1, 2
  INTO
    :PDocument_ID, :PDocumentType
  DO BEGIN
    suspend;
  END
end

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