記錄Infor XA ERP工作用SQL

1、綠屏shipment操作不正常退出，造成shipment狀態異常，無法繼續任何操作；解鎖SQL

--綠屏異常退出,shipment異常
UPDATE 環境庫.MBADRES0 SET ADIIST = '50' WHERE ADIIST = '99' AND ADHFCD = '50';                  
UPDATE 環境庫.MBADRES0 SET ADIIST = '00' WHERE ADIIST = '99' and ADHFCD = '20';
UPDATE 環境庫.MBKJREP  SET KJABTM = 121212 WHERE KJABTM = 999999;		 	
UPDATE 環境庫.MBDHREP  SET DHABTM = 121212 WHERE DHABTM = 999999;
 

10、無工藝序最早訂單、Forcast明細

--建議工藝完成日期、CO交貨承若日期、CO號碼、CO成品、成品下階、專案說明、專案長描述、專案長規格、專案型別、專案類別、生產部門
SELECT DISTINCT
  CASE
	WHEN itemF.itcls = 'A001' THEN TO_CHAR(to_date(char(CO.coDate+19000000),'YYYYMMDD') - 35 days,'YYYYMMDD')-19000000
	WHEN itemF.itcls LIKE 'A00%' AND itemF.itcls != 'A001' THEN TO_CHAR(to_date(char(CO.coDate+19000000),'YYYYMMDD') - 42 days,'YYYYMMDD')-19000000
	WHEN itemF.itcls LIKE 'J%' THEN TO_CHAR(to_date(char(CO.coDate+19000000),'YYYYMMDD') - 56 days,'YYYYMMDD')-19000000
	ELSE TO_CHAR(to_date(char(CO.coDate+19000000),'YYYYMMDD') - 49 days,'YYYYMMDD')-19000000
  END adviceDate, 
  CO.coDate,CO.coNum,CO.fItem,
  lvBom.pitm,itemF.itdsc, itemZ.LDESP, itemZ.SDESP,itemF.ittyp,itemF.itcls,itemF.dptno
  FROM (SELECT concat('CO',coLineRe.ADCVNB) coNum,coLineRe.ADBIDT coDate,coLineRe.ADAITX fItem
		  FROM AMFLIBF.MBADREP coLineRe
		 WHERE coLineRe.ADHFCD != '50' AND coLineRe.ADAGNV > 0
		   AND coLineRe.ADBIDT = (SELECT min(minCoLineRe.ADBIDT) 
		                            FROM AMFLIBF.MBADREP minCoLineRe
		                           WHERE minCoLineRe.ADAITX = coLineRe.ADAITX
		                             AND minCoLineRe.ADHFCD != '50' AND minCoLineRe.ADAGNV > 0   
		                         )
		union
		SELECT 'FORECAST' coNum,forecast.RQDUD coDate,forecast.RQCOM fItem
		  FROM AMFLIBF.REQMTS forecast
		 WHERE forecast.RQSOR = '6'
		   AND forecast.RQDUD = (SELECT min(minForecast.rqdud)
		                            FROM AMFLIBF.REQMTS minForecast
		                           WHERE minForecast.RQCOM = forecast.RQCOM
		                             AND minForecast.RQSOR = '6'
		   						 )
		) CO
  JOIN MWLIBF.BOMLVLPF lvBom ON lvBom.fitm = CO.fItem
  JOIN MWLIBF.ZITMEXT itemZ ON itemZ.itnbr = lvBom.pitm
  JOIN AMFLIBF.ITMRVA itemF ON itemF.itnbr = lvBom.pitm 
                           AND itemF.CFST != 'STOP' 
                           AND itemF.ittyp in ('1','2') 
  WHERE not EXISTS (select 1 from AMFLIBF.RTGOPR routOpr
                     WHERE routOpr.rtid = lvBom.pitm 
                       AND routOpr.wkctr != 'QC'
                   ) 
 ORDER BY CO.coDate,CO.fItem,lvBom.pitm