SAP B1’de satınalma siparişinde belge para birimi ile satır para birimi aynı olsun kontrolü

IF :object_type = '22'  AND :transaction_type IN ('U', 'A') THEN

SELECT COUNT(T1."LineNum")  INTO cnt

FROM OPOR T0 INNER JOIN POR1 T1 ON T0."DocEntry"= T1."DocEntry"

WHERE (T0."DocCur" <> (case when T1."Currency" is null or T1."Currency" ='' then T0."DocCur" else T1."Currency" end))   AND

T0."DocEntry"=:list_of_cols_val_tab_del ;

IF (:cnt >0 ) THEN

            error := 2;

            error_message := 'Belge Para Birimi ile satırların Para birimi aynı olmalıdır. TN40';

        END IF;

END IF;