Procedura-PayDestinationsByVarSymbWage

Popis:

Procedura se bude přepisovat v jiných projektech (Mzdy), ale volá se v tomto projektu.

Parametry:

Název	Popis	Datový typ
Credit		Char(1)
VarSymbol		VarChar(30)
Firm_ID		Char(10)

Návratové hodnoty:

Název	Popis	Datový typ
DocumentType		Char(2)
ID		Char(10)
Amount		Numeric(13, 2)
Currency_ID		Char(10)
DueDate$Date		Float(0, 0)

Tělo:

BEGIN
  DocumentType = '47' ;
  FOR
    SELECT
      ID, Amount - PaidAmount, Currency_ID, DueDate$Date
    FROM
      WagePaymentOrderSources
    WHERE
      VarSymbol LIKE :VarSymbol
      AND
        ((:Firm_ID = '0000000000') 
      OR 
        (Firm_ID = :Firm_ID))
    INTO
      :ID, :Amount, :Currency_ID, :DueDate$Date
  DO
    SUSPEND ;
END;

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