委外入貨品檢單：自動抓出［待檢］中的［委外入貨單］

以上範例顧問於 30分鐘完成
技術轉移時間約 60分鐘完成
（已經受訓 3-6個周的非資訊人員,例如 會計人員,生管人員,物管人員,業務人員,採購人員）

我們轉移實作技術, 用實際需求範例給［客戶］參考, 客戶在顧問指導下完成自己的需求
依據 Open Source GPL 規範,  ［客戶］自己完成後, 如未有償或無償轉移就不需公告
....


［委外入貨品檢單］自動抓出［待檢］中的［委外入貨單］
插入 [委外入貨品檢單單據]
插入 [委外入貨品檢單項次]


      SELECT c.* FROM 委外入貨單 c
       WHERE EXISTS(SELECT 1 FROM 委外入貨單項次 a
                       INNER JOIN 品管狀態 b ON a.品管狀態_ID=b.品管狀態_ID
                            WHERE b.名稱 ='待驗'
                              AND a.委外入貨單_ID=c.委外入貨單_ID)
        AND COALESCE(c.已作廢,'N')='N'
        ORDER BY c.入貨單號



     --select ad_sequence_id from adempiere.ad_sequence where name = '委外入貨品檢單單據'--1000094
       SELECT adempiere.nextid(1000094::Integer, 'N'::Varchar) INTO v_Head_ID; --  1000094
       SELECT adempiere.generate_uuid() INTO v_Head_UU; 
       INSERT INTO adempiere.委外入貨品檢單單據(
       委外入貨品檢單_ID, 委外入貨品檢單單據_ID, 委外入貨品檢單單據_UU,
       委外入貨單_ID, 入貨單號, 入貨日期, 訂單_ID, 訂單製程_ID, 製程_ID, 產品_ID, 廠商_ID,
       AD_Client_ID, AD_Org_ID, IsActive, Created, CreatedBy, Updated, UpdatedBy
       ) VALUES (
       NEW.委外入貨品檢單_ID, v_Head_ID, v_Head_UU,
       r.委外入貨單_ID, r.入貨單號, r.入貨日期, r.訂單_ID, r.訂單製程_ID, r.製程_ID, r.產品_ID, r.廠商_ID,
       NEW.AD_Client_ID, NEW.AD_Org_ID, 'Y', NOW(), NEW.UpdatedBy, NOW(), NEW.UpdatedBy
       );







       SELECT * FROM 委外入貨單項次 a
       WHERE a.委外入貨單_ID=r.委外入貨單_ID



       --select ad_sequence_id from adempiere.ad_sequence where name = '委外入貨品檢單項次'--1000095
       SELECT adempiere.nextid(1000095::Integer, 'N'::Varchar) INTO v_Next_ID; --  1000095
       SELECT adempiere.generate_uuid() INTO v_Next_UU;

       INSERT INTO adempiere.委外入貨品檢單項次(
       委外入貨品檢單_ID, 委外入貨品檢單單據_ID, 委外入貨品檢單項次_ID,委外入貨品檢單項次_UU,
       委外入貨單_ID, 委外入貨單項次_ID,訂單_ID, 訂單製程_ID, 製程_ID, 產品_ID, 廠商_ID,
       重量kg, 單重g, 數量pcs, 桶型_ID, 桶號, 批號, 品管狀態_ID,
       --作廢原因_ID, 已作廢,
       AD_Client_ID, AD_Org_ID, IsActive, Created, CreatedBy, Updated, UpdatedBy
       ) VALUES (
       NEW.委外入貨品檢單_ID, v_Head_ID, v_Next_ID, v_Next_UU,
       p.委外入貨單_ID, p.委外入貨單項次_ID, p.訂單_ID, p.訂單製程_ID, r.製程_ID, r.產品_ID, r.廠商_ID,
       p.重量kg, p.單重g, p.數量pcs, p.桶型_ID, p.桶號, p.批號, p.品管狀態_ID,
       --p.作廢原因_ID, p.已作廢,
       NEW.AD_Client_ID, NEW.AD_Org_ID, 'Y', NOW(), NEW.UpdatedBy, NOW(), NEW.UpdatedBy);