Procedura-GetDocumentInfoWage

Parametry:

NázevPopisDatový typ
ADOCUMENTTYPEChar(2)
ADOCUMENT_IDChar(10)

Návratové hodnoty:

NázevPopisDatový typ
TEXTVarChar(100)
DOCUMENTDISPLAYNAMEVarChar(24)
SORT_DOCUMENTDISPLAYNAMEVarChar(28)

Tělo:

begin
  Text = '';
  DocumentDisplayName = '';
  IF (ADocumentType = '47') THEN BEGIN
    SELECT B.Description, D.Code || '-' || B.OrdNumber || '/' || P.Code, D.Name,
           D.Code || '-' || IB_LPad(B.OrdNumber, 8, '0') || '/' || P.Code
    FROM WagePaymentOrderSources B
    JOIN DocQueues D ON D.ID = B.DocQueue_ID
    JOIN Periods P ON P.ID = B.Period_ID
    WHERE B.ID = :ADocument_ID
    INTO :Text, :DocumentDisplayName, :mText, :Sort_DocumentDisplayName;
    IF (Text = '') THEN
      Text = mText;
  END
  SUSPEND;
end

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