Procedura-PayDestinationsByAmountWage

Popis:

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

Parametry:

Název	Popis	Datový typ
ACredit		Char(1)
AAmount		Numeric(13, 2)
ACurrency_ID		Char(10)
AAmountType		Integer
AFirm_ID		Char(10)

Návratové hodnoty:

Název	Popis	Datový typ
DocumentType		Char(2)
ID		Char(10)

Tělo:

BEGIN
  /* podklady pro platby z mezd */ 
    DocumentType = '47' ;
    FOR
      SELECT
        ID
      FROM
        WagePaymentOrderSources
      WHERE
          (
          ((:AAmountType = 0) AND (Amount = :AAmount)) /* kdyz je zadanä cástka shodna s cástku na dokladu */
        OR
          ((:AAmountType = 1) AND (Amount - PaidAmount = :AAmount))  /* kdyz je zadanä cástka shodna s nesplaceno */
        OR
          ((:AAmountType = 2) AND (Amount >= :AAmount)) /* kdyz je zadanä cástka shodna ci neší než  cástku na dokladu (cástecná platba)*/
        OR
          ((:AAmountType = 3) AND (Amount - PaidAmount >= :AAmount))  /* kdyz je zadanä cástka shodna ci neší než nesplacená (cástecná platba) */
          )   
        AND
          (Currency_ID = :ACurrency_ID)
        AND
          (
          (:AFirm_ID = '0000000000') 
        OR 
          (Firm_ID = :AFirm_ID)
          )      
    INTO :ID
    DO
      SUSPEND;
END;

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