818 lines
43 KiB
C#
818 lines
43 KiB
C#
using System;
|
|
using System.Data;
|
|
using System.Data.Common;
|
|
using Microsoft.VisualBasic;
|
|
using static iMESCore.Base.iMESComSubroutine;
|
|
using static iMESCore.Base.iMESComXML;
|
|
using static iMESCore.Base.iMESConst;
|
|
using static iMESCore.DataBase.iMESSql;
|
|
using iMESCore.Settings;
|
|
using Microsoft.VisualBasic.CompilerServices;
|
|
using System.Linq;
|
|
|
|
namespace MEStc_ABC
|
|
{
|
|
|
|
|
|
public class clsLot : IDisposable
|
|
{
|
|
/*不使用modXX,不再使用OleDb
|
|
* 資料庫相關(建立連線/讀取資料/異動資料),使用data_access_service.dll
|
|
* 設定檔相關,使用iMESAppSetting
|
|
* Xml相關,使用iMESComXML.dll
|
|
* 常數相關,使用iMESConst.dll
|
|
* 簡易副程式,使用iMESComSubroutine.dll
|
|
*/
|
|
private udReverse.clsReverse objReverse = new udReverse.clsReverse();
|
|
// 2006/05/10,sammi
|
|
private AppSettings objSetting = new AppSettings();
|
|
private clsDBCom objDBCom = new clsDBCom();
|
|
private kcSYS.clsSYSUserLog objSYS = new kcSYS.clsSYSUserLog(); // 宣告Sys的物件
|
|
private kcWIP.clsLot objLot = new kcWIP.clsLot();
|
|
public iMESWIPReleaseLogHandler.clsLotReleaseLogHandle objLotLog;
|
|
private string strConnectionString; // Connection string
|
|
private string strDataBaseType; // DataBase Type:oracle, mysql, access
|
|
private string strMQType; // MessageQueue Type:TIBCO, MQSeries, MSMQ
|
|
private bool disposed = false; // To detect redundant calls
|
|
private string strSQL = "";
|
|
private const int ActiveId_CI = 1;
|
|
private const int ActiveId_CO = 2;
|
|
private string strReportConnectionString;
|
|
private string strReportDataBaseType;
|
|
|
|
private string strSQLAddField;
|
|
private string strSQLAddValue;
|
|
private string strUploadPath; // WebServer放置上傳檔案的實體路徑
|
|
private string cModuleNodeId = "N/A";
|
|
private string cModuleNo = "N/A";
|
|
private string cModuleVersion = "N/A";
|
|
private string cStageNo = "N/A";
|
|
private int cOPReference = 0;
|
|
public string MaxWaitNo = defString;
|
|
private string MNewLotSerial;
|
|
|
|
|
|
private string strConnectionString_ERP; // 2016-03-14, Joe, Add
|
|
private string strDataBaseType_ERP; // 2016-03-14, Joe, Add
|
|
|
|
private string strConnectionString_eSOP; // 2016-03-14, Joe, Add
|
|
private string strDataBaseType_eSOP; // 2016-03-14, Joe, Add
|
|
#region --- Initial Object ---
|
|
|
|
public clsLot()
|
|
{
|
|
// Get database type
|
|
strDataBaseType = objSetting.GetDataBaseType();
|
|
// Get connection string
|
|
strConnectionString = objSetting.GetConnectionString(strDataBaseType);
|
|
// Get Message Queue Type
|
|
strMQType = objSetting.GetMQType();
|
|
}
|
|
|
|
#endregion
|
|
|
|
#region --- Property ---
|
|
|
|
// //Property--------------------------------------------------------------------------------------------------------------------------------
|
|
public string ConnectionString
|
|
{
|
|
get
|
|
{
|
|
return strConnectionString;
|
|
}
|
|
}
|
|
|
|
public string DataBaseType
|
|
{
|
|
get
|
|
{
|
|
return strDataBaseType;
|
|
}
|
|
}
|
|
|
|
public string MQType
|
|
{
|
|
get
|
|
{
|
|
return strMQType;
|
|
}
|
|
}
|
|
|
|
// 2003/03/22,sammi.
|
|
// 因TC可能呼叫KC,在整個Function中,必須要使用同一個Reverse物件,如此在產生AddReverseUpdateContent的資料時,ReverseOrder才不會重覆.
|
|
// 若KC再往下呼叫UD,則必須將Reverse物件傳遞予UD.
|
|
//public object ReverseObj
|
|
//{
|
|
// get
|
|
// {
|
|
// //return objReverse;
|
|
// // ReverseObj = objReverse
|
|
// }
|
|
//}
|
|
|
|
|
|
#endregion
|
|
|
|
#region IDisposable Support
|
|
private bool disposedValue; // 偵測多餘的呼叫
|
|
|
|
// IDisposable
|
|
protected virtual void Dispose(bool disposing)
|
|
{
|
|
if (!disposedValue)
|
|
{
|
|
if (disposing)
|
|
{
|
|
// TODO: 處置 Managed 狀態 (Managed 物件)。
|
|
}
|
|
|
|
// TODO: 釋放 Unmanaged 資源 (Unmanaged 物件) 並覆寫下面的 Finalize()。
|
|
// TODO: 將大型欄位設定為 null。
|
|
}
|
|
disposedValue = true;
|
|
}
|
|
|
|
// TODO: 只有當上面的 Dispose(ByVal disposing As Boolean) 有可釋放 Unmanaged 資源的程式碼時，才覆寫 Finalize()。
|
|
// Protected Overrides Sub Finalize()
|
|
// ' 請勿變更此程式碼。在上面的 Dispose(ByVal disposing As Boolean) 中輸入清除程式碼。
|
|
// Dispose(False)
|
|
// MyBase.Finalize()
|
|
// End Sub
|
|
|
|
// 由 Visual Basic 新增此程式碼以正確實作可處置的模式。
|
|
public void Dispose()
|
|
{
|
|
// 請勿變更此程式碼。在以上的 Dispose 置入清除程式碼 (ByVal 視為布林值處置)。
|
|
Dispose(true);
|
|
GC.SuppressFinalize(this);
|
|
}
|
|
#endregion
|
|
|
|
|
|
public string LoadOPType(string OPType = defString, int IssueState = defInteger, string AdditionalXml = "")
|
|
{
|
|
string LoadOPTypeRet = null;
|
|
// 此 Function 將資料以XML方式取出
|
|
// 傳入值: 索引值
|
|
// 傳回值: XML(成功), fail(失敗)
|
|
|
|
|
|
DataSet dsOP = null;
|
|
|
|
try
|
|
{
|
|
|
|
dsOP = ShowOPType(OPType, IssueState, AdditionalXml);
|
|
|
|
// //Combine return value
|
|
LoadOPTypeRet = CombineXMLReturnValue("loadoptype", "OPType", "DataSet", FormatXMLSchema(dsOP.GetXmlSchema()), dsOP.GetXml(), "");
|
|
}
|
|
|
|
catch (Exception e1)
|
|
{
|
|
LoadOPTypeRet = "fail";
|
|
throw;
|
|
} // New Exception("kcOP.LoadOPType: " & e1.Message)
|
|
|
|
finally
|
|
{
|
|
if (dsOP != null)
|
|
{
|
|
dsOP.Dispose();
|
|
}
|
|
}
|
|
|
|
return LoadOPTypeRet;
|
|
|
|
}
|
|
|
|
public DataSet ShowOPType(string OPType = defString, int IssueState = defInteger, string AdditionalXml = "")
|
|
{
|
|
DataSet ShowOPTypeRet = null;
|
|
|
|
// 此 Function 將資料以 Dataset 方式取出
|
|
// 傳入值: 索引值
|
|
// 傳回值: Dataset(成功), Nothing(失敗)
|
|
|
|
|
|
DataSet dsOP = null;
|
|
IDbConnection cnnTemp = null;
|
|
|
|
try
|
|
{
|
|
// //Create connection
|
|
cnnTemp = CreateConnection(strConnectionString);
|
|
|
|
strSQL = "Select * From tblOPType Where OPType Is Not Null";
|
|
if (OPType != defString)
|
|
{
|
|
strSQL = strSQL + " And OPType = '" + OPType + "'";
|
|
}
|
|
if (IssueState != defInteger)
|
|
{
|
|
strSQL = strSQL + " And IssueState = " + IssueState;
|
|
}
|
|
|
|
if (!string.IsNullOrEmpty(AdditionalXml))
|
|
{
|
|
// 加上additional的condition
|
|
strSQL = strSQL + SeparateAddXML_Condition(AdditionalXml);
|
|
}
|
|
|
|
// //Select data
|
|
dsOP = new DataSet();
|
|
ExecuteSQLQuery_Adapter(strSQL, dsOP, "OPType", cnnTemp);
|
|
|
|
// //Return data
|
|
ShowOPTypeRet = dsOP;
|
|
}
|
|
|
|
catch (Exception e1)
|
|
{
|
|
ShowOPTypeRet = null;
|
|
throw;
|
|
}
|
|
|
|
finally
|
|
{
|
|
CloseConnection(cnnTemp);
|
|
if (dsOP != null)
|
|
{
|
|
dsOP.Dispose();
|
|
}
|
|
}
|
|
|
|
return ShowOPTypeRet;
|
|
}
|
|
|
|
public DataRow GetOPType(string OPType = defString, int IssueState = defInteger, string AdditionalXml = "")
|
|
{
|
|
DataRow GetOPTypeRet = null;
|
|
// 此 Function 將資料以XML方式取出
|
|
// 傳入值: 索引值
|
|
// 傳回值: XML(成功), fail(失敗)
|
|
|
|
|
|
DataSet dsOP = null;
|
|
|
|
try
|
|
{
|
|
|
|
dsOP = ShowOPType(OPType, IssueState, AdditionalXml);
|
|
|
|
// //Return data
|
|
if (dsOP.Tables[0].Rows.Count > 0)
|
|
{
|
|
GetOPTypeRet = dsOP.Tables[0].Rows[0];
|
|
}
|
|
else
|
|
{
|
|
GetOPTypeRet = dsOP.Tables[0].NewRow();
|
|
}
|
|
}
|
|
|
|
catch (Exception e1)
|
|
{
|
|
GetOPTypeRet = null;
|
|
throw;
|
|
} // New Exception("kcOP.LoadOPType: " & e1.Message)
|
|
|
|
finally
|
|
{
|
|
if (dsOP != null)
|
|
{
|
|
dsOP.Dispose();
|
|
}
|
|
}
|
|
|
|
return GetOPTypeRet;
|
|
|
|
}
|
|
|
|
public string BR_CheckIn(long LotStamp, string LotNo, string LinkName, DataTable dtAttrib, DataTable dtEquipment, string UserNo, string ShiftNo, string LotRecord = defString, DateTime CheckInTime = default(DateTime), string RuleNo = "", DataTable dtLoginState = null, DataTable dtAccessory = null, DataTable dtMTLLot = null, string LanguageMode = defString, DataTable dtEquipmentChamber = null)
|
|
{
|
|
string BR_CheckInRet = default(string);
|
|
// 此 Function 將更新CheckIn Data
|
|
// 傳入值: LotNo,dtAttrib,dtEquipment
|
|
// 傳回值: success(成功), fail(失敗)
|
|
|
|
IDbConnection cnnTemp = null;
|
|
DbDataReader drTemp;
|
|
var CollectionSQL = new Collection();
|
|
var CollectionSQL_Rows = new Collection();
|
|
string strSQL = "";
|
|
|
|
string LotSerial, OPNo, BRNo, SerialNo, LogGroupSerial, BaseLotNo, CurQTY, NodeId;
|
|
int PhaseNo;
|
|
DateTime datEventTime;
|
|
long lngLotStamp;
|
|
|
|
try
|
|
{
|
|
// //Create connection
|
|
cnnTemp = CreateConnection(strConnectionString);
|
|
|
|
// 1.取出Temp LotState的資料
|
|
strSQL = "Select A.LotSerial,A.OPNo,A.SerialNo,B.BRNo,B.LogGroupSerial,B.LotStamp,B.BaseLotNo,B.CurQTY,B.PhaseNo,B.NodeId " + " From tblWIPTemp_LotState A, tblWIPLotState B " + " Where A.LotNo ='" + LotNo + "'" + " And A.LotNo = B.LotNo ";
|
|
// cmmTemp = New OleDb.OleDbCommand(strSQL, cnnTemp)
|
|
drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
|
if (drTemp.Read())
|
|
{
|
|
LotSerial = Conversions.ToString(drTemp["LotSerial"]);
|
|
OPNo = Conversions.ToString(drTemp["OPNo"]);
|
|
SerialNo = Conversions.ToString(drTemp["SerialNo"]);
|
|
BRNo = Conversions.ToString(drTemp["BRNo"]);
|
|
LogGroupSerial = Conversions.ToString(drTemp["LogGroupSerial"]);
|
|
lngLotStamp = Conversions.ToLong(drTemp["LotStamp"]);
|
|
BaseLotNo = Conversions.ToString(drTemp["BaseLotNo"]);
|
|
CurQTY = Conversions.ToString(drTemp["CurQTY"]);
|
|
PhaseNo = Conversions.ToInteger(drTemp["PhaseNo"]); // 2020/11/20 Steven Mantis: 0082084: [PAD]eRunCard_調整 BR 生產記錄
|
|
NodeId = drTemp["NodeId"].ToString(); // 2023/06/05, 0135702: [6.0.7] SDD220425_01-03_進站設備派工查核調整, 19245
|
|
}
|
|
else
|
|
{
|
|
throw new iMESException.MESException("0000-202003", "[%LotNo%] : " + LotNo);
|
|
}
|
|
drTemp.Close();
|
|
|
|
|
|
datEventTime = DateTime.Now;
|
|
|
|
// 若無指定CheckInTime,則同datEventTime.因機時、工時使用CheckInTime,必須一定要有資料.
|
|
if (CheckInTime == defDateTime)
|
|
{
|
|
CheckInTime = datEventTime;
|
|
}
|
|
|
|
// 20210909 13871,生產批下線歷程,add parameter
|
|
if (objLotLog == null)
|
|
objLotLog = new iMESWIPReleaseLogHandler.clsLotReleaseLogHandle(ActiveId_CI, UserNo, CheckInTime);
|
|
if (objLotLog.ColSQL == null)
|
|
objLotLog.ColSQL = CollectionSQL;
|
|
if (objLotLog.ColSQL_Rows == null)
|
|
objLotLog.ColSQL_Rows = CollectionSQL_Rows;
|
|
|
|
// 寫入管制時間
|
|
udWIP.clsWIP objUdWIP;
|
|
objUdWIP = new udWIP.clsWIP();
|
|
objUdWIP.SHR_LimitedTimeControl_ByBR(ref objReverse, LotNo, LogGroupSerial, LotSerial, UserNo, CheckInTime, ref cnnTemp, ref CollectionSQL);
|
|
|
|
|
|
// 2.Update Temp/Content LotAttrib
|
|
objLot.SHR_UpdAttrib(LotNo, LogGroupSerial, ref dtAttrib, ref CollectionSQL, datEventTime);
|
|
|
|
// 3.Equipment CheckIn
|
|
objLot. SHR_CIEquipment(LotNo, LogGroupSerial, LotSerial, LotSerial, UserNo, datEventTime, ref cnnTemp, ref CollectionSQL, ref dtEquipment, SerialNo, dtAccessory: dtAccessory, dtAttrib: dtAttrib, CheckInTime: CheckInTime, EquipmentChamber: dtEquipmentChamber);
|
|
|
|
// 4.Lot Record
|
|
if (!string.IsNullOrEmpty(LotRecord) && (LotRecord ?? "") != defString)
|
|
{
|
|
strSQL = "Insert into tblWIPCont_LotRecord(LogGroupSerial,BaseLotNo,LotNo,LotSerial,OPNo,LotRecord,UserNo,EventTime)" + " Values('" + LogGroupSerial + "','" + BaseLotNo + "','" + LotNo + "','" + LotSerial + "','" + OPNo + "','" + LotRecord + "','" + UserNo + "'," + "To_Date('" + Strings.Format(datEventTime, "yyyy/MM/dd H:mm:ss") + "','YYYY/MM/DD HH24:MI:SS'))";
|
|
CollectionSQL.Add(strSQL);
|
|
// Reverse
|
|
strSQL = "Delete From tblWIPCont_LotRecord Where LotSerial='" + LotSerial + "'";
|
|
Collection argcolSQL_Rows = null;
|
|
objReverse.AddReverseUpdateContent(ref LotSerial, ref strSQL, CollectionSQL, colSQL_Rows: argcolSQL_Rows);
|
|
}
|
|
|
|
// 2019/09/06 Eric 存入tblWIPTemp_MaterialLot
|
|
if (dtMTLLot != null && dtMTLLot.Rows.Count > 0)
|
|
{
|
|
foreach (DataRow r in dtMTLLot.Rows)
|
|
{
|
|
strSQL = "Insert into tblWIPTemp_MaterialLot(LotNo,MaterialNo,MaterialLotNo)" + " Values('" + LotNo + "','" + r["MaterialNo"].ToString() + "','" + r["MaterialLotNo"].ToString() + "')";
|
|
CollectionSQL.Add(strSQL);
|
|
// Reverse
|
|
strSQL = "Delete From tblWIPTemp_MaterialLot Where LotNo='" + LotNo + "' and MaterialNo='" + r["MaterialNo"].ToString() + "' and MaterialLotNo='" + r["MaterialLotNo"].ToString() + "'";
|
|
Collection argcolSQL_Rows1 = null;
|
|
objReverse.AddReverseUpdateContent(ref LotSerial, ref strSQL, CollectionSQL, colSQL_Rows: argcolSQL_Rows1);
|
|
}
|
|
}
|
|
|
|
// 4.5 UPDate tblWIPEQPConsumeState.CurQTY & tblWIPEQPConsumeState.CurPeriod (Undo必須為同一料批才可Undo)
|
|
if (dtEquipment != null && dtEquipment.Rows.Count > 0)
|
|
{
|
|
objLot. SHR_UpdWIPEQPConsumeState(LotSerial, Conversions.ToDecimal(CurQTY), dtEquipment, ref CollectionSQL);
|
|
}
|
|
|
|
// 2020/02/26 Grace Mantis 67753, 取得生產批於作業站中, check in 日期的設備派工資料
|
|
if (dtEquipment != null && dtEquipment.Rows.Count > 0)
|
|
{
|
|
|
|
foreach (DataRow dr in dtEquipment.Rows)
|
|
{
|
|
DataSet dsEQPTemp;
|
|
|
|
using (var objWIP = new kcWIP.clsWIP())
|
|
{
|
|
dsEQPTemp = objWIP.ShowWIPEQPDispatchState(dr["EquipmentNo"].ToString(), LotNo, OPNo, CheckInTime);
|
|
}
|
|
|
|
if (!(dsEQPTemp == null))
|
|
{
|
|
|
|
foreach (DataRow drEQP in dsEQPTemp.Tables[0].Rows)
|
|
{
|
|
|
|
using (var objWIP = new kcWIP.clsWIP())
|
|
{
|
|
// 寫Log
|
|
objWIP.AddWIPEQPDispatchLog(dr["EquipmentNo"].ToString(), LotNo, OPNo, CheckInTime, Convert.ToInt32(drEQP["DispatchOrder"]), CollectionSQL);
|
|
// Reverse
|
|
strSQL = "Delete From tblWIPEQPDispatchLog " + " Where EquipmentNo='" + dr["EquipmentNo"].ToString() + "' " + " And OPNO='" + OPNo + "' " + " And LotNo='" + LotNo + "' " + " And DispatchDate=To_Date('" + Strings.Format(CheckInTime, "yyyy/MM/dd") + "','YYYY/MM/DD') ";
|
|
// 2020/04/08 Grace 增加SQL置換, 避免使用MSSQL執行Reverse時報錯
|
|
strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
|
Collection argcolSQL_Rows2 = null;
|
|
objReverse.AddReverseUpdateContent(ref LotSerial, ref strSQL, CollectionSQL, colSQL_Rows: argcolSQL_Rows2);
|
|
|
|
// 刪除派工 & 調整排序
|
|
objWIP.DelWIPEQPDispatchState(dr["EquipmentNo"].ToString(), LotNo, OPNo, CheckInTime, CollectionSQL);
|
|
|
|
// 取得刪除前的資料
|
|
strSQL = "Select * " + " From tblWIPEQPDispatchState Where EquipmentNo='" + dr["EquipmentNo"].ToString() + "' " + " And OPNO='" + OPNo + "' " + " And LotNo='" + LotNo + "' " + " And DispatchDate=To_Date('" + Strings.Format(CheckInTime, "yyyy/MM/dd") + "','YYYY/MM/DD') ";
|
|
strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
|
// cmmTemp = New OleDb.OleDbCommand(strSQL, cnnTemp)
|
|
drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
|
if (drTemp.Read())
|
|
{
|
|
|
|
// Reverse
|
|
strSQL = Conversions.ToString(" Insert into tblWIPEQPDispatchState(EquipmentNo,LotNo,OPNO,DispatchDate,DispatchOrder,EventUser,EventDate) " + " Values('" + drTemp["EquipmentNo"].ToString() + "','" + LotNo + "','" + OPNo + "',To_Date('" + Strings.Format(drTemp["DispatchDate"], "yyyy/MM/dd") + "','YYYY/MM/DD')," +
|
|
drTemp["DispatchOrder"] + "," + " '" + drTemp["EventUser"] + "',To_Date('" + Strings.Format(drTemp["EventDate"], "yyyy/MM/dd H:mm:ss") +
|
|
"','YYYY/MM/DD HH24:MI:SS')) ");
|
|
// 2020/04/08 Grace 增加SQL置換, 避免使用MSSQL執行Reverse時報錯
|
|
strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
|
Collection argcolSQL_Rows3 = null;
|
|
objReverse.AddReverseUpdateContent(ref LotSerial, ref strSQL, CollectionSQL, colSQL_Rows: argcolSQL_Rows3);
|
|
|
|
// Reverse
|
|
if (Conversions.ToBoolean(Operators.ConditionalCompareObjectEqual(drTemp["DispatchOrder"], 1, false)))
|
|
{
|
|
// <1 找不到資料
|
|
strSQL = Conversions.ToString("Update tblWIPEQPDispatchState set DispatchOrder = DispatchOrder + 1 " + " Where EquipmentNo='" + dr["EquipmentNo"].ToString() + "' " + " And OPNo='" + OPNo + "' " + " And DispatchDate=To_Date('" + Strings.Format(CheckInTime, "yyyy/MM/dd") + "','YYYY/MM/DD') " + " And DispatchOrder = " +
|
|
drTemp["DispatchOrder"] + "");
|
|
// 2020/04/08 Grace 增加SQL置換, 避免使用MSSQL執行Reverse時報錯
|
|
strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
|
Collection argcolSQL_Rows4 = null;
|
|
objReverse.AddReverseUpdateContent(ref LotSerial, ref strSQL, CollectionSQL, colSQL_Rows: argcolSQL_Rows4);
|
|
}
|
|
else
|
|
{
|
|
strSQL = Conversions.ToString("Update tblWIPEQPDispatchState set DispatchOrder = DispatchOrder + 1 " + " Where EquipmentNo='" + dr["EquipmentNo"].ToString() + "' " + " And OPNo='" + OPNo + "' " + " And DispatchDate=To_Date('" + Strings.Format(CheckInTime, "yyyy/MM/dd") + "','YYYY/MM/DD') " + " And DispatchOrder < " +
|
|
drTemp["DispatchOrder"] + "");
|
|
// 2020/04/08 Grace 增加SQL置換, 避免使用MSSQL執行Reverse時報錯
|
|
strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
|
Collection argcolSQL_Rows5 = null;
|
|
objReverse.AddReverseUpdateContent(ref LotSerial, ref strSQL, CollectionSQL, colSQL_Rows: argcolSQL_Rows5);
|
|
}
|
|
}
|
|
drTemp.Close();
|
|
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
//2023/07/24, 0141393: [SA QA]RTD生产批进站成功后删除派工现况表方式调整 ,19245
|
|
////2023/06/05, 0135702: [6.0.7] SDD220425_01-03_進站設備派工查核調整, 19245
|
|
//if (dtEquipment != null && dtEquipment.Rows.Count > 0)
|
|
//{
|
|
// foreach (DataRow dr in dtEquipment.Rows)
|
|
// {
|
|
// DataSet dsEQPTemp;
|
|
|
|
// using (var objWIP = new kcWIP.clsWIP())
|
|
// {
|
|
// dsEQPTemp = objWIP.ShowWIPEQPLOTDISPATCH(dr["EquipmentNo"].ToString(), LotNo, OPNo, NodeId, CheckInTime);
|
|
// }
|
|
|
|
// if (dsEQPTemp != null && dsEQPTemp.Tables[0].Rows.Count > 0)
|
|
// {
|
|
// foreach (DataRow drEQP in dsEQPTemp.Tables[0].Rows)
|
|
// {
|
|
// using (var objWIP = new kcWIP.clsWIP())
|
|
// {
|
|
// // 寫Log
|
|
// objWIP.AddWIPEQPLOTDISPATCHLOG(dr["EquipmentNo"].ToString(), LotNo, OPNo, NodeId, CheckInTime, CollectionSQL);
|
|
// // Reverse
|
|
// strSQL = "Delete From tblWIPEQPLotDispatchLog " +
|
|
// " Where EquipmentNo='" + dr["EquipmentNo"].ToString() + "' " +
|
|
// " And OPNO='" + OPNo + "' " +
|
|
// " And LotNo='" + LotNo + "' " +
|
|
// " And NodeId='" + NodeId + "' " +
|
|
// " And DispatchDate=To_Date('" + Strings.Format(CheckInTime, "yyyy/MM/dd") + "','YYYY/MM/DD') ";
|
|
|
|
// strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
|
// objReverse.AddReverseUpdateContent(ref LotSerial, ref strSQL, CollectionSQL);
|
|
|
|
// // 刪除派工
|
|
// objWIP.DelWIPEQPLOTDISPATCHSTATE(dr["EquipmentNo"].ToString(), LotNo, OPNo, NodeId, CheckInTime, CollectionSQL);
|
|
|
|
// // 取得刪除前的資料
|
|
// strSQL = "Select * " +
|
|
// " From tblWIPEQPLotDispatchState Where EquipmentNo='" + dr["EquipmentNo"].ToString() + "' " +
|
|
// " And OPNO='" + OPNo + "' " +
|
|
// " And LotNo='" + LotNo + "' " +
|
|
// " And NodeId='" + NodeId + "' " +
|
|
// " And DispatchDate=To_Date('" + Strings.Format(CheckInTime, "yyyy/MM/dd") + "','YYYY/MM/DD') ";
|
|
// strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
|
// drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
|
// if (drTemp.Read())
|
|
// {
|
|
// // Reverse
|
|
// strSQL = " Insert into tblWIPEQPLotDispatchState(EquipmentNo,LotNo,OPNO,NodeId,DispatchDate,DispatchOrder,DispatchType,DispatchShift,EventUser,EventDate) " +
|
|
// " Values('" + drTemp["EquipmentNo"].ToString() + "','" + LotNo + "','" + OPNo + "','" + NodeId +
|
|
// "',To_Date('" + Strings.Format(drTemp["DispatchDate"], "yyyy/MM/dd") + "','YYYY/MM/DD'),'" +
|
|
// drTemp["DispatchOrder"] + "','" + drTemp["DispatchType"] + "','" + drTemp["DispatchShift"] +
|
|
// "','" + drTemp["EventUser"] + "',To_Date('" +
|
|
// Strings.Format(drTemp["EventDate"], "yyyy/MM/dd H:mm:ss") + "','YYYY/MM/DD HH24:MI:SS')) ";
|
|
|
|
|
|
// strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
|
// objReverse.AddReverseUpdateContent(ref LotSerial, ref strSQL, CollectionSQL);
|
|
|
|
// }
|
|
// drTemp.Close();
|
|
// }
|
|
// }
|
|
// }
|
|
// else // 與現況的設備不符合 仍進站
|
|
// {
|
|
// using (var objWIP = new kcWIP.clsWIP())
|
|
// {
|
|
// // 寫Log
|
|
// objWIP.AddWIPEQPLOTDISPATCHLOG(dr["EquipmentNo"].ToString(), LotNo, OPNo, NodeId, CheckInTime, CollectionSQL, true);
|
|
// // Reverse
|
|
// strSQL = "Delete From tblWIPEQPLotDispatchLog " +
|
|
// " Where EquipmentNo='" + dr["EquipmentNo"].ToString() + "' " +
|
|
// " And OPNO='" + OPNo + "' " +
|
|
// " And LotNo='" + LotNo + "' " +
|
|
// " And NodeId='" + NodeId + "' ";
|
|
|
|
// strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
|
// objReverse.AddReverseUpdateContent(ref LotSerial, ref strSQL, CollectionSQL);
|
|
|
|
// // 刪除派工,,不須傳入設備
|
|
// objWIP.DelWIPEQPLOTDISPATCHSTATE(defString, LotNo, OPNo, NodeId, CheckInTime, CollectionSQL, true);
|
|
|
|
// // 取得刪除前的資料
|
|
// strSQL = "Select * " +
|
|
// " From tblWIPEQPLotDispatchState Where OPNO='" + OPNo + "' " +
|
|
// " And LotNo='" + LotNo + "' " +
|
|
// " And NodeId='" + NodeId + "' ";
|
|
// strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
|
// drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
|
// DataTable dtTemp = new DataTable();
|
|
// dtTemp.Load(drTemp);
|
|
// drTemp.Close();
|
|
|
|
// if (dtTemp.Rows.Count > 0)
|
|
// {
|
|
// foreach (DataRow drData in dtTemp.Rows)
|
|
// {
|
|
// // Reverse
|
|
// strSQL = " Insert into tblWIPEQPLotDispatchState(EquipmentNo,LotNo,OPNO,NodeId,DispatchDate,DispatchOrder,DispatchType,DispatchShift,EventUser,EventDate) " +
|
|
// " Values('" + drData["EquipmentNo"].ToString() + "','" + LotNo + "','" + OPNo + "','" + NodeId +
|
|
// "',To_Date('" + Strings.Format(drData["DispatchDate"], "yyyy/MM/dd") + "','YYYY/MM/DD'),'" +
|
|
// drData["DispatchOrder"] + "','" + drData["DispatchType"] + "','" + drData["DispatchShift"] +
|
|
// "','" + drData["EventUser"] + "',To_Date('" +
|
|
// Strings.Format(drData["EventDate"], "yyyy/MM/dd H:mm:ss") + "','YYYY/MM/DD HH24:MI:SS')) ";
|
|
|
|
// strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
|
// objReverse.AddReverseUpdateContent(ref LotSerial, ref strSQL, CollectionSQL);
|
|
// }
|
|
// }
|
|
// }
|
|
// }
|
|
// }
|
|
//}
|
|
|
|
// 5.變更LotState--------------------------------------------------------------------------------------------------
|
|
if (LinkName == "HOLD")
|
|
{
|
|
// 因BR已執行完成,故Hold解除的續Go狀態為Complete(4)
|
|
int argGoStatus = 4;
|
|
objLot.funSetLotStateToERFCreate(ref LotNo, ref argGoStatus, ref datEventTime, ref CollectionSQL, EventUserNo: UserNo);
|
|
}
|
|
else if (LinkName == "WAIT")
|
|
{
|
|
// 因BR已執行完成,故Wait解除的續Go狀態為Complete(4)
|
|
// RuleNo Added by Jialing 2011/02/18 將RuleNo填入WAIT說明
|
|
// 已登錄之多人加工必須登出.
|
|
int argGoStatus1 = 4;
|
|
objLot.funSetLotStateToWait(ref LotNo, ref argGoStatus1, ref datEventTime, ref CollectionSQL, EventUserNo: UserNo, LotStamp: lngLotStamp, WaitDescription: RuleNo, COMultiUser: true);
|
|
}
|
|
else
|
|
{
|
|
// 4代表成功完成BR,紀錄LinkName若TransferLot失敗可以重新再執行TransferLot
|
|
int argStatus = 4;
|
|
objLot.funSetLotStateToOther(ref LotNo, ref argStatus, ref datEventTime, ref CollectionSQL, LinkName, EventUserNo: UserNo);
|
|
}
|
|
|
|
// 6.變更LotLog & Add Cont_Employee--------------------------------------------------------------------------------
|
|
objLot.SHR_UpdLog(LotNo, LotSerial, LogGroupSerial, OPNo, BRNo, "BR_CheckIn", ShiftNo, UserNo, datEventTime, LinkName, ref CollectionSQL, Check_In_Out_Time: CheckInTime, PhaseNo: PhaseNo);
|
|
|
|
// 7.變更LotLog_Report
|
|
objLot.SHR_UpdLogReport(ref cnnTemp, ref CollectionSQL, LogGroupSerial, LotSerial, CheckInTime);
|
|
|
|
// 2015-12-11, Joe, SPC
|
|
using (var objSPC = new kcSPC.clsSPC())
|
|
{
|
|
objSPC.UpdSPCContorl_Var(LotNo, UserNo, ref dtAttrib, ref CollectionSQL);
|
|
}
|
|
|
|
// 2017/10/28,Sammi.取消舊的多人加工機制,改用新的上工下工.
|
|
// 2017/12/01,Sammi.人時AutoRun平攤需求,將上工下工資料,整合入舊的多人加工機制.
|
|
using (var obj = new kcWIP.clsOperatorState())
|
|
{
|
|
obj.SHR_CI_EMP(ref cnnTemp, ref CollectionSQL, ref objReverse, 1, 1, UserNo, datEventTime, CheckInTime, LotNo, OPNo, LogGroupSerial, LotSerial, dtEquipment);
|
|
}
|
|
|
|
// If LinkName = "WAIT" Then
|
|
// Call SHR_CIMultiUser_CO(CollectionSQL, 1, 1, LotNo, BaseLotNo, OPNo, LogGroupSerial, LotSerial, UserNo, datEventTime, dtLoginState)
|
|
// Else
|
|
// Call SHR_CIMultiUser(CollectionSQL, 1, 1, LotNo, BaseLotNo, OPNo, LogGroupSerial, LotSerial, UserNo, datEventTime, dtLoginState)
|
|
// End If
|
|
|
|
// 2017/09/25 YF, 叫用工單達交率處理者，判斷是否回寫實際開工日
|
|
// 2020/03/17 OwenLiu, Mantis:0068929 工單實際開工日/工單實際完工日 調整還原機制的共用處理
|
|
new kcOE.WorkOrderRateHandler().ActualStartDateProcess(pLotNo: LotNo, pLotSerial: LotSerial, pEventTime: CheckInTime, pCollectionSQL: CollectionSQL, objReverse: objReverse);
|
|
|
|
// 20200424 Edison 70441: [605標準版]L_CI_GEN 品檢卡控
|
|
// ======================================= 70441 Start =======================================
|
|
// 81459 新增品檢結果資料表
|
|
string strQCFormNo = ""; // 檢驗單號
|
|
var ErrorMsg = new Collection();
|
|
string strExpMsg = "";
|
|
string MailErrorMsg = "";
|
|
var dtInspResult = new DataTable("InspResult");
|
|
dtInspResult.Columns.Add("EquipmentNo", Type.GetType("System.String"));
|
|
dtInspResult.Columns.Add("EquipmentName", Type.GetType("System.String"));
|
|
dtInspResult.Columns.Add("QCItemNo", Type.GetType("System.String"));
|
|
dtInspResult.Columns.Add("QCItemName", Type.GetType("System.String"));
|
|
dtInspResult.Columns.Add("QCItemType", Type.GetType("System.String"));
|
|
dtInspResult.Columns.Add("InspType", Type.GetType("System.String"));
|
|
dtInspResult.Columns.Add("InspTypeName", Type.GetType("System.String"));
|
|
dtInspResult.Columns.Add("MailGroupNo", Type.GetType("System.String"));
|
|
dtInspResult.Columns.Add("CCMailGroupNo", Type.GetType("System.String"));
|
|
|
|
foreach (DataRow rEQP in dtEquipment.Rows)
|
|
{
|
|
objLot.ChkQCInspection(ref MailErrorMsg, LotNo, OPNo, Conversions.ToString(rEQP["EquipmentNo"]), ref CollectionSQL, UserNo: UserNo, EventTime: datEventTime, ErrorMsg: ErrorMsg, dtInspResult: dtInspResult, LanguageMode: LanguageMode);
|
|
if (ErrorMsg.Count > 0)
|
|
{
|
|
strExpMsg = Conversions.ToString("[%EquipmentNo%]: " + rEQP["EquipmentNo"] + " " + Constants.vbCrLf + " ");
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (ErrorMsg.Count > 0)
|
|
{
|
|
|
|
// ===== 自動開立PQC檢驗單
|
|
string QCFormNo;
|
|
var ds = new DataSet();
|
|
DataTable dt;
|
|
DataTable chkdt;
|
|
ds = objLot.ShowLotBasisJoinState(LotNo: LotNo);
|
|
DataRow[] drSel;
|
|
drSel = ds.Tables[0].Select("LotNo = '" + LotNo + "'");
|
|
if (drSel.Length > 0)
|
|
{
|
|
string ProductNo = drSel[0]["ProductNo"].ToString();
|
|
string ProductVersion = drSel[0]["ProductVersion"].ToString();
|
|
string CustomerNo = drSel[0]["CustomerNo"].ToString();
|
|
string Qty = drSel[0]["CurQty"].ToString();
|
|
string strIsValid = "1";
|
|
using (var objSPC = new kcSPC.clsSPC())
|
|
{
|
|
dt = dtInspResult.DefaultView.ToTable(true, "QCItemNo", "QCItemName", "QCItemType", "InspType");
|
|
chkdt = dtInspResult.DefaultView.ToTable(true, "QCItemNo", "QCItemName");
|
|
|
|
|
|
string strQCItemNo_Exis;
|
|
var dtChkQCFormNo = new DataTable("ChkQCFormNo");
|
|
dtChkQCFormNo.Columns.Add("QCFormNo", Type.GetType("System.String"));
|
|
for (int k = 0, loopTo = chkdt.Rows.Count - 1; k <= loopTo; k++)
|
|
{
|
|
strSQL = " Select Distinct A.*,B.STATUS From tblSPCIPQCFormQCItemMap A ";
|
|
strSQL = strSQL + " Left Join TBLSPCIPQCFORM B on A.QCFORMNO=B.QCFORMNO ";
|
|
strSQL = strSQL + " where A.QCItemNo = '" + chkdt.Rows[k]["QCItemNo"].ToString() + "' AND B.STATUS IN (0,1,2) AND B.LOTNO = '" + LotNo + "'";
|
|
strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
|
// cmmTemp = New OleDb.OleDbCommand(strSQL, cnnTemp)
|
|
drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
|
if (drTemp.HasRows)
|
|
{
|
|
string chkStr = string.Empty;
|
|
while (drTemp.Read()) // 找出未確認,待驗,已驗中項目所屬單號
|
|
{
|
|
var dr = dtChkQCFormNo.NewRow();
|
|
dr["QCFormNo"] = drTemp["QCFormNo"].ToString();
|
|
dtChkQCFormNo.Rows.Add(dr);
|
|
}
|
|
DataRow[] delRow;
|
|
delRow = dt.Select("QCItemNo = '" + chkdt.Rows[k]["QCItemNo"].ToString() + "'"); // 已存在項目不需重複開單，移除
|
|
if (delRow.Count() > 0)
|
|
{
|
|
for (int CntRow = 0, loopTo1 = delRow.Count() - 1; CntRow <= loopTo1; CntRow++)
|
|
dt.Rows.Remove(delRow[CntRow]);
|
|
}
|
|
strQCItemNo_Exis = chkdt.Rows[k]["QCItemNo"].ToString() + ",";
|
|
}
|
|
drTemp.Close();
|
|
|
|
}
|
|
dtChkQCFormNo = dtChkQCFormNo.DefaultView.ToTable(true); // 過濾重複單號，供前端顯示
|
|
foreach (DataRow drRow in dtChkQCFormNo.Rows)
|
|
{
|
|
QCFormNo = Conversions.ToString(drRow["QCFormNo"]);
|
|
strQCFormNo += QCFormNo + ",";
|
|
}
|
|
|
|
if (dt.Rows.Count > 0)
|
|
{
|
|
for (int j = 0; j <= 8; j++)
|
|
{
|
|
DataRow[] drSel_A;
|
|
drSel_A = dt.Select("InspType = " + j + ""); // 找出檢驗頻率,一種頻率開出一張單
|
|
if (drSel_A.Count() > 0)
|
|
{
|
|
using (var objSYSEng = new kcSYS.clsSYSEng())
|
|
{
|
|
QCFormNo = objSYSEng.GetIPQCFormNo(true);
|
|
strQCFormNo += QCFormNo + ",";
|
|
}
|
|
objSPC.AddIPQCForm(QCFormNo, ProductNo, Conversions.ToDecimal(Qty), CustomerNo, LotNo, UserNo, OPNo: OPNo, ProductVersion: ProductVersion, S_OffLineHold: Conversions.ToInteger(false));
|
|
for (int i = 0, loopTo2 = drSel_A.Count() - 1; i <= loopTo2; i++)
|
|
{
|
|
objSPC.AddIPQCFormQCItemMap(QCFormNo, drSel_A[i]["QCItemNo"].ToString(), drSel_A[i]["QCItemName"].ToString(), drSel_A[i]["QCItemType"].ToString());
|
|
DataRow[] delRow;
|
|
delRow = dt.Select("QCItemNo = '" + drSel_A[i]["QCItemNo"].ToString() + "'");
|
|
if (delRow.Count() > 0)
|
|
{
|
|
for (int CntRow = 0, loopTo3 = delRow.Count() - 1; CntRow <= loopTo3; CntRow++)
|
|
dt.Rows.Remove(delRow[CntRow]);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
}
|
|
}
|
|
strQCFormNo = strQCFormNo.TrimEnd(',');
|
|
// =====
|
|
|
|
if (!string.IsNullOrEmpty(MailErrorMsg))
|
|
{
|
|
strExpMsg += MailErrorMsg + Constants.vbCrLf;
|
|
}
|
|
strExpMsg = "[%QC Inspection Items Has Not been Completed%],[%Please Execute PQC Inspection%]" + Constants.vbCrLf;
|
|
// For i As Integer = 1 To ErrorMsg.Count
|
|
strExpMsg += "[%IPQCNO%]: " + strQCFormNo;
|
|
// Next
|
|
throw new iMESException.MESException("IPQCNO", strExpMsg);
|
|
}
|
|
|
|
// 2020/11/20 Reo Mantis 82084 [PAD]eRunCard_調整 BR 生產記錄
|
|
objLot.UpdWIPRuleCheckLog(LogGroupSerial, datEventTime, colSQL: CollectionSQL);
|
|
// ======================================= 70441 End =======================================
|
|
|
|
// 8.檢查是否允許執行
|
|
for (int i = 1, loopTo4 = CollectionSQL.Count; i <= loopTo4; i++)
|
|
CollectionSQL_Rows.Add(-1);
|
|
|
|
// 12.檢查是否允許執行
|
|
objLot.ChkLotStamp_RowCount(ref cnnTemp, ref CollectionSQL, ref CollectionSQL_Rows, LotNo, LotStamp);
|
|
|
|
// 20210909 13871,生產批下線歷程
|
|
objLotLog.funCreateSQL(LotNo: LotNo, SysActiveId: ActiveId_CI, ReferenceLotNo: LotNo);
|
|
if (LinkName == "WAIT")
|
|
{
|
|
var objWaitData = new iMESWIPReleaseLogHandler.clsLotReleaseLogHandle.clsLotData.clsWait()
|
|
{ WaitType = 0, WaitNo = MaxWaitNo };
|
|
objLotLog.funCreateSQL(WaitData: objWaitData, LotNo: LotNo, SysActiveId: 11, ReferenceLotNo: LotNo);
|
|
}
|
|
|
|
// 呼叫執行SQL指令
|
|
ExecuteSQLNoneQuery_ChkRowCount(strDataBaseType, strConnectionString, CollectionSQL, CollectionSQL_Rows);
|
|
|
|
// //Return success
|
|
BR_CheckInRet = "success";
|
|
}
|
|
catch (Exception e1)
|
|
{
|
|
BR_CheckInRet = "fail";
|
|
throw;
|
|
}
|
|
finally
|
|
{
|
|
CloseConnection(cnnTemp);
|
|
|
|
}
|
|
return BR_CheckInRet;
|
|
|
|
}
|
|
}
|
|
} |