BEGIN
FOR
SELECT JOComp.Component_ID, JOComp.AssembledBy_ID, JON.Issue
FROM PLMJobOrdersComponents JOComp
JOIN PLMJobOrdersSN JOSN ON JOComp.Parent_ID = JOSN.ID
JOIN PLMJOInputItems MIPL ON JOComp.InputItem_ID = MIPL.ID
JOIN PLMJONodes JON ON JON.ID = MIPL.Owner_ID
WHERE JOSN.StoreBatch_ID = :InSB_ID
INTO :mComp_ID, :mAssembled_ID, :mIssue
DO BEGIN
IF (mAssembled_ID IS NULL) THEN BEGIN
Result = 1;
SUSPEND;
EXIT;
END
IF ((mIssue = 1) AND (mComp_ID IS NOT NULL)) THEN BEGIN /* Issue = 1 -> Vydej = Vyroba */
FOR
SELECT Result
FROM PLMCheckAssembling(:mComp_ID)
INTO :Result
DO BEGIN
IF (Result = 1) THEN BEGIN
SUSPEND;
EXIT;
END
END
END
END
Result = 0;
SUSPEND;
END;