2988 lines
178 KiB
C#
2988 lines
178 KiB
C#
using System;
|
||
using System.Collections;
|
||
using System.Collections.Generic;
|
||
using System.Data;
|
||
using System.Data.Common;
|
||
using System.Runtime.InteropServices;
|
||
using kcENT;
|
||
using kcMTL;
|
||
using kcPRD;
|
||
using Microsoft.VisualBasic;
|
||
using Microsoft.VisualBasic.CompilerServices;
|
||
using iMESCore.Settings;
|
||
using static iMESCore.Base.iMESComSubroutine;
|
||
using static iMESCore.Base.iMESConst;
|
||
using static iMESCore.DataBase.iMESSql;
|
||
using static iMESCore.Base.iMESComXML;
|
||
using iMESCore.DataBase;
|
||
using System.Linq;
|
||
using System.Collections.ObjectModel;
|
||
using kcSYS;
|
||
using kcOE;
|
||
using kcOP;
|
||
using kcSMD;
|
||
using System.Xml;
|
||
using kcQC;
|
||
|
||
namespace tcEAI_C
|
||
{
|
||
|
||
public class clsOE
|
||
{
|
||
|
||
|
||
public clsOE()
|
||
{
|
||
|
||
|
||
}
|
||
|
||
#region MO
|
||
|
||
|
||
/// <summary>
|
||
/// 新增工單
|
||
/// </summary>
|
||
/// <param name="MONo"></param>
|
||
/// <param name="MOUnitNo"></param>
|
||
/// <param name="ProductNo"></param>
|
||
/// <param name="MOQty"></param>
|
||
/// <param name="FactoryNo"></param>
|
||
/// <param name="RONo"></param>
|
||
/// <param name="ItemNo"></param>
|
||
/// <param name="CustomerNo"></param>
|
||
/// <param name="MOTypeNo"></param>
|
||
/// <param name="Priority"></param>
|
||
/// <param name="PlanFinishDate"></param>
|
||
/// <param name="Creator"></param>
|
||
/// <param name="CreateDate"></param>
|
||
/// <param name="Description"></param>
|
||
/// <param name="dtMTL"></param>
|
||
/// <param name="MOProperty"></param>
|
||
/// <param name="aryMessage"></param>
|
||
/// <param name="aryException"></param>
|
||
/// <param name="aryAlert"></param>
|
||
/// <param name="dtMOProperty"></param>
|
||
/// <returns></returns>
|
||
/// <remarks></remarks>
|
||
public static bool addMO(string Orgcode,string OrgMono, string MONo, string MOUnitNo, string ProductNo, decimal MOQty, string FactoryNo, string RONo = null, string ItemNo = null, string CustomerNo = null,
|
||
int MOTypeNo = defInteger, int Priority = defInteger, DateTime PlanFinishDate = default(DateTime), string Creator = null,
|
||
DateTime CreateDate = default(DateTime), string Description = null, DataTable dtMTL = null, List<ArrayList> MOProperty = null, List<ArrayList> aryMessage = null, List<ArrayList> aryException = null,
|
||
List<ArrayList> aryAlert = null, DataTable dtMOProperty = null, string ERPMOLineNo = defString, string CustomerLotNo = null, DateTime PlanStartDate = default(DateTime), int wipEntityId = defInteger, string bomVersion = null, string lcPlantype = null, string faiFlag = null)
|
||
{
|
||
bool addMORet = default(bool);
|
||
|
||
bool r = false;
|
||
string strSQLTemp, strSQL = default(string), strSQLAddField, strSQLAddValue;
|
||
IDbConnection cnnTemp1 = null;
|
||
//OleDbCommand cmmTemp;
|
||
DbDataReader drTemp2;
|
||
DbDataReader drTemp3;
|
||
// Dim daTemp As OleDb.OleDbDataAdapter
|
||
// Dim drSel() As DataRow
|
||
// Dim strDataBaseType, strConnectionString As String 'Connection string
|
||
// Dim i As Integer
|
||
// Dim dsTemp As DataSet
|
||
AppSettings objSetting = new AppSettings();
|
||
var CollectionSQL = new Collection();
|
||
|
||
try
|
||
{
|
||
string strDataBaseType = objSetting.GetDataBaseType();
|
||
string strConnectionString = objSetting.GetConnectionString(strDataBaseType);
|
||
cnnTemp1 = CreateConnection(strConnectionString);
|
||
|
||
// ----- Default Value -----
|
||
int MOSource = 0; // 0: RO, 1: RMA, 2: None
|
||
int MOState = 0; // 0: Unconfirm, 1: Pending, 2: Confirm, 3: Release(允許開立生產批), 6: 已在客託倉或退貨倉的工單(允許開立生產批), 99:Close
|
||
int IssueState = 0;
|
||
string BelongToMONo = "N/A";
|
||
string ENGNo = "N/A";
|
||
string ENGVersion = "N/A";
|
||
//string CustomerLotNo = string.Empty;
|
||
// Dim OPNo As String = "LOTCREATE"
|
||
|
||
// ---- Get Value -----
|
||
string CustomerName = string.Empty;
|
||
string ProductVersion = string.Empty;
|
||
string ProcessNo = string.Empty;
|
||
string ProcessVersion = string.Empty;
|
||
|
||
bool isROExist = false;
|
||
bool isRODetailExist = false;
|
||
|
||
string ItemProperty = defString; // 2016-10-17, Joe, 新增料件屬性，P：採購件，M：自製件，S：外包件
|
||
int OutSourcingFlag = defInteger; // 2016-10-17, Joe, 0:off，1:on
|
||
|
||
// Kevin 15/06/09 ,調整產品編號轉大寫,後續的程式處理並未全部都有轉大寫
|
||
ProductNo = ProductNo.ToUpper();
|
||
|
||
// ----- 1. 檢查MO是否存在 -----
|
||
|
||
MONo = MONo.ToUpper();
|
||
|
||
using (var objOE = new clsOEBasis())
|
||
{
|
||
if (objOE.GetMOBasis(MONo.ToUpper())["MONo"] is DBNull == false)
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MONoExist%]");
|
||
}
|
||
|
||
// ----- 2. 檢查MOSource-----
|
||
if (string.IsNullOrEmpty(RONo))
|
||
MOSource = 2; // MO來源為其他(暫不考慮RMA)
|
||
|
||
// ----- 3. 檢查CustomerNo是否存在 -----
|
||
if (MOSource == 0)
|
||
{
|
||
if (string.IsNullOrEmpty(CustomerNo))
|
||
{
|
||
// 未傳入
|
||
clsERP.combineException(ref aryException, mesmsg: "[%ROWithOutCustomer%]");
|
||
}
|
||
else
|
||
{
|
||
// 有傳入=>檢查Customer主檔
|
||
using (var objENT = new clsCustomerBasis())
|
||
{
|
||
var dr = objENT.GetCustomerBasis(CustomerNo.ToUpper());
|
||
if (dr["CustomerNo"] is DBNull == true)
|
||
{
|
||
// Customer主檔未建立
|
||
// clsERP.combineException(aryException, , , "[%CustomerNoNotExist%]")
|
||
|
||
// 5.3 若拋入訂單號碼，則必須拋入客戶編號，系統應檢查tblENTCustomerBasis之中是否存在此客戶，若無則自動新增
|
||
objENT.AddCustomerBasis(CustomerNo.ToUpper(), CustomerNo, CustomerNo, "NULL", "NULL", "NULL", "NULL", "NULL", "NULL");
|
||
objENT.SetCustomerBasisIssueState(CustomerNo.ToUpper(), 2);
|
||
}
|
||
else
|
||
{
|
||
CustomerName = dr["CustomerName"].ToString();
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
// ----- 4. 檢查Product -----
|
||
using (var objPRD = new clsProduct())
|
||
{
|
||
var dr = objPRD.GetProduct(ProductNo.ToUpper());
|
||
if (dr["ProductNo"] is DBNull == true)
|
||
clsERP.combineException(ref aryException, mesmsg: "[%ProductNoNotExist%]");
|
||
if (dr["ProductNo"] is DBNull == false && Convert.ToBoolean(Operators.ConditionalCompareObjectNotEqual(dr["IssueState"], 2, false)))
|
||
clsERP.combineException(ref aryException, mesmsg: "[%ProductNoNotApproved%]");
|
||
|
||
// ----- 5. 檢查MOUnitNo -----
|
||
if (dr["ProductNo"] is DBNull == false && dr["UnitNo"].ToString().ToLower() != MOUnitNo.ToLower())
|
||
clsERP.combineException(ref aryException, mesmsg: "[%ProductMOWithDifferentUnitNo%]");
|
||
dr.Delete();
|
||
|
||
try
|
||
{
|
||
ProductVersion = objPRD.GetProductCurVersion(ProductNo.ToUpper());
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
clsERP.combineException(ref aryException, mesmsg: "[%GetProductVersionFail%]");
|
||
}
|
||
|
||
// 2016-10-17, Joe, 取得ItemProperty
|
||
var drItemProperty = objPRD.GetProductProperty(ProductNo, ProductVersion, "ItemProperty");
|
||
if (drItemProperty == null == false && drItemProperty["DefaultValue"] is DBNull == false)
|
||
{
|
||
ItemProperty = drItemProperty["DefaultValue"].ToString();
|
||
}
|
||
// 2016-10-17, Joe, 取得外包控制
|
||
using (var objSYS = new clsSYSParameter())
|
||
{
|
||
OutSourcingFlag = Conversions.ToInteger(objSYS.GetParameterValue("OutSourcingFlag"));
|
||
}
|
||
// 2016-10-17, Joe, 若該產品品號屬性屬於S且外包控管參數為Off時，MES不做工單新增/修改，直接回應OK，但訊息應回傳『MES系統不支持外包工單』
|
||
if (ItemProperty == "S" & OutSourcingFlag == 0)
|
||
{
|
||
// 2018/06/26 Lena, 修正訊息語系未譯的問題.
|
||
clsERP.combineException(ref aryException, mesmsg: "[%ProductNo%]:" + ProductNo + ",[%ProductVersion%]:" + ProductVersion + ",[%IsOutSourcingProduct%], MES [%IsNotSupported%] !");
|
||
if (aryException.Count > 0)
|
||
goto exitfun;
|
||
}
|
||
|
||
// ----- 6. 檢查ProductProcess是否存在 -----
|
||
// 2012/07/26, Aaron, 如果傳入的MOTypeNo找不到就用-1(*)找尋預設值，再找不到彈出錯誤
|
||
dr = objPRD.GetProductProcess(ProductNo.ToUpper(), ProductVersion, MOTypeNo, DefaultProcess: 1);
|
||
if (dr["ProductNo"] is DBNull == true)
|
||
{
|
||
dr = objPRD.GetProductProcess(ProductNo.ToUpper(), ProductVersion, -1, DefaultProcess: 1);
|
||
if (dr["ProductNo"] is DBNull == true)
|
||
clsERP.combineException(ref aryException, mesmsg: "[%ProductProcessNoNotExist%]");
|
||
}
|
||
}
|
||
|
||
// ----- 7. 檢查用料清單資料 -----
|
||
var objPRD_M = new kcPRD.clsProduct();
|
||
DataView dvTemp;
|
||
var objMTL = new kcMTL.clsMTLBasis();
|
||
var dsBOM = new DataSet();
|
||
DataRow drData;
|
||
|
||
System.Xml.XmlDocument xmlDoc = new System.Xml.XmlDocument(); // 用以讀取Xml字串
|
||
|
||
// 工單用料表
|
||
var dtMOBom = new DataTable("MOBom");
|
||
dtMOBom.Columns.Add("MONo", Type.GetType("System.String"));
|
||
dtMOBom.Columns.Add("MaterialLevel", Type.GetType("System.Int32")); // 0:Material,1:Product
|
||
dtMOBom.Columns.Add("MaterialNo", Type.GetType("System.String"));
|
||
dtMOBom.Columns.Add("MaterialVersion", Type.GetType("System.String"));
|
||
dtMOBom.Columns.Add("StdQty", Type.GetType("System.Double"));
|
||
dtMOBom.Columns.Add("DecreaseRate", Type.GetType("System.Double"));
|
||
dtMOBom.Columns.Add("UnitNo", Type.GetType("System.String"));
|
||
dtMOBom.Columns.Add("OPNo", Type.GetType("System.String"));
|
||
dtMOBom.Columns.Add("PutInPlaceType", Type.GetType("System.Int32"));
|
||
dtMOBom.Columns.Add("Specified", Type.GetType("System.Int32")); // 0:No,1:Yes
|
||
dtMOBom.Columns.Add("MOFlag", Type.GetType("System.Int32")); // 0:Create MO,1:來自半成品庫,不用開立工單
|
||
dtMOBom.Columns.Add("MaterialMONo", Type.GetType("System.String")); // 半成品的工單編號
|
||
dtMOBom.Columns.Add("Description", Type.GetType("System.String")); // Bom Material Description
|
||
dtMOBom.Columns.Add("SubstituteMaterialNo", Type.GetType("System.String")); // 替代料,預設值同MaterialNo
|
||
dtMOBom.Columns.Add("SubstituteMaterialLevel", Type.GetType("System.Int32")); // 替代料等級,預設值同物料等級(materialLevel)
|
||
dtMOBom.Columns.Add("SubstituteStdQty", Type.GetType("System.Decimal")); // 替代料標準數量，預設值=標準數量StdQty
|
||
dtMOBom.Columns.Add("RequireQty", Type.GetType("System.Decimal")); // 需求數,預設值=工單數量MoQty * 標準數StdQty
|
||
dtMOBom.Columns.Add("AB", Type.GetType("System.String")); // 需求數,預設值=工單數量MoQty * 標準數StdQty
|
||
dtMOBom.Columns.Add("PositionCode", Type.GetType("System.String")); // 需求數,預設值=工單數量MoQty * 標準數StdQty
|
||
|
||
|
||
// 1.工單的單位可能與用料表(tblOEMOMaterialList)的標準單位(產品的單位)不同----------------------------------------------------
|
||
// 故須以工單數量,單位換算出產品的標準量
|
||
DataRow drTemp;
|
||
string strStdUnitNo;
|
||
double dblStdQty;
|
||
|
||
// 工單開立,產品不一定是CurVersion.
|
||
drTemp = objPRD_M.GetProduct(ProductNo, ProductVersion, CurVersion: defInteger);
|
||
if (drTemp["ProductNo"] is DBNull)
|
||
{
|
||
throw new iMESException.MESException("0000-200002", "Get product data of ProductNo:" + ProductNo + ", Version:" + ProductVersion + " fail !");
|
||
}
|
||
|
||
strStdUnitNo = Conversions.ToString(drTemp["UnitNo"]); // 標準單位
|
||
if ((strStdUnitNo.ToUpper() ?? "") == (MOUnitNo.ToUpper() ?? "")) // 單位相同
|
||
{
|
||
dblStdQty = Conversions.ToDouble(MOQty);
|
||
}
|
||
else
|
||
{
|
||
// 將CurQty轉換為產品標準單位之數量
|
||
udUnitTransferFunction.clsUnitTransferFunction objUnit;
|
||
var colParameters = new Collection();
|
||
colParameters.Add(ProductNo, "ProductNo");
|
||
colParameters.Add(ProductVersion, "ProductVersion");
|
||
colParameters.Add(ENGNo, "ENGNo");
|
||
colParameters.Add(ENGVersion, "ENGVersion");
|
||
objUnit = new udUnitTransferFunction.clsUnitTransferFunction();
|
||
dblStdQty = Conversions.ToDouble(objUnit.EXETransferQty(MOUnitNo, strStdUnitNo, Conversions.ToDouble(MOQty), colParameters));
|
||
objUnit = null;
|
||
}
|
||
decimal DecreaseRate = 0m;
|
||
|
||
dsBOM = objPRD_M.ShowBOM(ProductNo, ProductVersion);
|
||
var loopTo2 = dsBOM.Tables[0].Rows.Count - 1;
|
||
for (int i = 0; i <= loopTo2; i++)
|
||
{
|
||
drData = dtMOBom.NewRow();
|
||
drData["MONo"] = MONo;
|
||
drData["MaterialLevel"] = dsBOM.Tables[0].Rows[i]["NodeType"];
|
||
DecreaseRate = Conversions.ToDecimal(dsBOM.Tables[0].Rows[i]["DecreaseRate"]); // 取得耗損率
|
||
|
||
// 2008/06/17,sammi,投料點來自BOM表的設定.
|
||
drData["PutInPlaceType"] = dsBOM.Tables[0].Rows[i]["PutInPlaceType"];
|
||
if (Conversions.ToBoolean(Operators.ConditionalCompareObjectEqual(dsBOM.Tables[0].Rows[i]["NodeType"], 1, false))) // Product
|
||
{
|
||
drData["MOFlag"] = 0;
|
||
drData["MaterialMONo"] = MONo;
|
||
// NodeVersion,取出已轉換的產品版本.
|
||
drData["MaterialVersion"] = ProductVersion;
|
||
}
|
||
else // Material (NodeType = 0)
|
||
{
|
||
drData["MOFlag"] = 1;
|
||
drData["MaterialMONo"] = "N/A";
|
||
drData["MaterialVersion"] = dsBOM.Tables[0].Rows[i]["NodeVersion"];
|
||
}
|
||
drData["MaterialNo"] = dsBOM.Tables[0].Rows[i]["NodeNo"];
|
||
drData["SubstituteMaterialNo"] = dsBOM.Tables[0].Rows[i]["NodeNo"]; // 替代料,預設值同MaterialNo
|
||
drData["StdQty"] = dsBOM.Tables[0].Rows[i]["StdQty"];
|
||
drData["DecreaseRate"] = dsBOM.Tables[0].Rows[i]["DecreaseRate"];
|
||
drData["UnitNo"] = dsBOM.Tables[0].Rows[i]["UnitNo"];
|
||
drData["OPNo"] = dsBOM.Tables[0].Rows[i]["OPNo"];
|
||
drData["Specified"] = dsBOM.Tables[0].Rows[i]["Specified"];
|
||
drData["Description"] = Strings.Replace(dsBOM.Tables[0].Rows[i]["Description"].ToString(), "'", "''");
|
||
drData["SubstituteMaterialLevel"] = dsBOM.Tables[0].Rows[i]["NodeType"]; // 2012/12/27,Even,替代料等級，預設值為物料等級
|
||
drData["SubstituteStdQty"] = dsBOM.Tables[0].Rows[i]["StdQty"]; // 2012/12/28,Even,替代料標準數，預設值為 標準數
|
||
drData["RequireQty"] = Operators.MultiplyObject(Operators.MultiplyObject(MOQty, dsBOM.Tables[0].Rows[i]["StdQty"]), 1m + DecreaseRate); // 2012/12/27,Even,需求數，預設值為工單數 * 標準數
|
||
drData["AB"] = dsBOM.Tables[0].Rows[i]["AB"].ToString();
|
||
drData["PositionCode"] = dsBOM.Tables[0].Rows[i]["PositionCode"].ToString();
|
||
dtMOBom.Rows.Add(drData);
|
||
}
|
||
|
||
dsBOM.Dispose();
|
||
// Add MO之用料表
|
||
dvTemp = new DataView(dtMOBom);
|
||
dvTemp.RowFilter = Conversions.ToString("MONo='" + MONo + "'");
|
||
|
||
var loopTo8 = dvTemp.Count - 1;
|
||
for (int j = 0; j <= loopTo8; j++)
|
||
{
|
||
DecreaseRate = Conversions.ToDecimal(dvTemp[j]["DecreaseRate"]);
|
||
decimal decRequireQty = Conversions.ToDecimal(Operators.MultiplyObject(Operators.MultiplyObject(MOQty, dvTemp[j]["StdQty"]), 1m + DecreaseRate));
|
||
|
||
// '2012/12/27,Even,改變需求數
|
||
dvTemp[j].BeginEdit();
|
||
// dvTemp.Table.Rows(j)("RequireQty") = dtMO.Rows(i)("MOQty") * dvTemp.Table.Rows(j)("StdQty") * (1 + DecreaseRate)
|
||
dvTemp[j]["RequireQty"] = decRequireQty;
|
||
dvTemp[j].EndEdit();
|
||
|
||
AddMOMaterialList(Conversions.ToString(MONo), Conversions.ToString(dvTemp[j]["MaterialNo"]), Conversions.ToInteger(dvTemp[j]["MaterialLevel"]), Conversions.ToDouble(dvTemp[j]["StdQty"]), Conversions.ToDouble(dvTemp[j]["DecreaseRate"]), Conversions.ToString(dvTemp[j]["OPNo"]), Conversions.ToInteger(dvTemp[j]["Specified"]), Conversions.ToInteger(dvTemp[j]["PutInPlaceType"]), Conversions.ToString(dvTemp[j]["UnitNo"]), Conversions.ToInteger(dvTemp[j]["MOFlag"]), Conversions.ToString(dvTemp[j]["MaterialMONo"]), dvTemp[j]["Description"].ToString(), CollectionSQL, MaterialVersion: Conversions.ToString(dvTemp[j]["MaterialVersion"]), SubstituteMaterialNo: Conversions.ToString(dvTemp[j]["MaterialNo"]), SubstituteMaterialLevel: Conversions.ToInteger(dvTemp[j]["SubstituteMaterialLevel"]), RequireQty: Conversions.ToDecimal(dvTemp[j]["RequireQty"]), SubstituteStdQty: Conversions.ToDecimal(dvTemp[j]["SubstituteStdQty"]), Creator: Creator, CreateDate: DateTime.Now, AB:Conversions.ToString(dvTemp[j]["AB"]), PositionCode:Conversions.ToString(dvTemp[j]["PositionCode"]));
|
||
|
||
// R1203001 不是指定用料及半成品時才處理替代料 By Acer 2012/03/06
|
||
if (Conversions.ToBoolean(Operators.ConditionalCompareObjectEqual(dvTemp[j]["Specified"], 0, false)) && Conversions.ToBoolean(Operators.ConditionalCompareObjectEqual(dvTemp[j]["MaterialLevel"], 0, false)))
|
||
{
|
||
var dsSubstitute = new DataSet();
|
||
if (objPRD_M.ShowBOMMaterialGroup(Conversions.ToString(ProductNo), Conversions.ToString(ProductVersion), Conversions.ToString(dvTemp[j]["MaterialNo"]), Conversions.ToString(dvTemp[j]["OPNo"])).Tables[0].Rows.Count > 0)
|
||
{
|
||
// 處理BOM表中指定的替代料
|
||
dsSubstitute = objPRD_M.ShowBOMMaterialGroup(Conversions.ToString(ProductNo), Conversions.ToString(ProductVersion), Conversions.ToString(dvTemp[j]["MaterialNo"]), Conversions.ToString(dvTemp[j]["OPNo"]));
|
||
}
|
||
else
|
||
{
|
||
// 處理物料群組中指定的替代料
|
||
dsSubstitute = objMTL.ShowMaterialSubstitute(Conversions.ToString(dvTemp[j]["MaterialNo"]));
|
||
}
|
||
|
||
var loopTo9 = dsSubstitute.Tables[0].Rows.Count - 1;
|
||
for (int k = 0; k <= loopTo9; k++)
|
||
{
|
||
// 2012/12/27,Even,處裡替代用料的需求數量，有替代用料，用料清單會除原先清單外再加上替代用料清單
|
||
decimal dblRequireQty = 0m * (1m + DecreaseRate);
|
||
|
||
AddMOMaterialList(Conversions.ToString(MONo), Conversions.ToString(dvTemp[j]["MaterialNo"]), Conversions.ToInteger(dvTemp[j]["MaterialLevel"]), Conversions.ToDouble(dvTemp[j]["StdQty"]), Conversions.ToDouble(dvTemp[j]["DecreaseRate"]), Conversions.ToString(dvTemp[j]["OPNo"]), Conversions.ToInteger(dvTemp[j]["Specified"]), Conversions.ToInteger(dvTemp[j]["PutInPlaceType"]), Conversions.ToString(dvTemp[j]["UnitNo"]), Conversions.ToInteger(dvTemp[j]["MOFlag"]), Conversions.ToString(dvTemp[j]["MaterialMONo"]), dvTemp[j]["Description"].ToString(), CollectionSQL, MaterialVersion: Conversions.ToString(dvTemp[j]["MaterialVersion"]), SubstituteMaterialNo: dsSubstitute.Tables[0].Rows[k]["MaterialNo"].ToString(), SubstituteMaterialLevel: Conversions.ToInteger(dvTemp[j]["SubstituteMaterialLevel"]), RequireQty: dblRequireQty, SubstituteStdQty: Conversions.ToDecimal(dvTemp[j]["SubstituteStdQty"]), Creator: Creator, CreateDate: DateTime.Now, AB: Conversions.ToString(dvTemp[j]["AB"]), PositionCode: Conversions.ToString(dvTemp[j]["PositionCode"]));
|
||
|
||
}
|
||
dsSubstitute = null;
|
||
}
|
||
|
||
}
|
||
#region"注释原收用料清单逻辑 继承 PRDBOM"
|
||
|
||
//if (dtMTL.Rows.Count > 0)
|
||
//{
|
||
// bool blnWF = false;
|
||
// //2023/12/07,Ning,151196: [6.0.7] SDD231107_01-01_WF 工單整合接口調整
|
||
// //取得目前ERP是否為WF
|
||
// using (var objSYSPar = new kcSYS.clsSYSParameter())
|
||
// {
|
||
// var dsTemp = new DataSet();
|
||
// dsTemp = objSYSPar.ShowERPSetting(ActiveERP: 1);
|
||
// if (dsTemp != null && dsTemp.Tables[0].Rows.Count > 0)
|
||
// {
|
||
// if (dsTemp.Tables[0].Rows[0]["ERP_Name"].ToString().ToUpper() == "WORKFLOW")
|
||
// {
|
||
// blnWF = true;
|
||
// }
|
||
// }
|
||
// }
|
||
|
||
// dtMTL.Columns.Add("MaterialMONo", Type.GetType("System.String"));
|
||
// // dtMTL: MONo, MaterialNo, MaterialLevel, StdQty, UnitNo, OPNo, PutInPlaceType, DecreaseRate, Specified, *MaterialType, CountWay, *CheckLotNo, *MaterialVersion, +MaterialMONo, +*SubstituteMaterialNo
|
||
|
||
// foreach (DataRow dr in dtMTL.Rows)
|
||
// {
|
||
// string strMaterialUnit = dr["UnitNo"].ToString();
|
||
// decimal decTemp = 0m;
|
||
// try
|
||
// {
|
||
// if (string.IsNullOrEmpty(dr["MainItem"].ToString()))
|
||
// {
|
||
// // 未傳入
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MainItem%]");
|
||
// }
|
||
|
||
// //if (string.IsNullOrEmpty(dr["PhantomItem"].ToString()))
|
||
// //{
|
||
// // // 未傳入
|
||
// // clsERP.combineException(ref aryException, mesmsg: "[%PhantomItem%]");
|
||
// //}
|
||
|
||
// if (string.IsNullOrEmpty(dr["LockRequirement"].ToString()))
|
||
// {
|
||
// // 未傳入
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%LockRequirement%]");
|
||
// }
|
||
|
||
// if (string.IsNullOrEmpty(dr["OperationSeqnum"].ToString()))
|
||
// {
|
||
// // 未傳入
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%OperationSeqnum%]");
|
||
// }
|
||
|
||
// if (blnWF == true)
|
||
// {
|
||
// if (Conversions.ToInteger(dr["StdQty"]) != Convert.ToDecimal(dr["StdQty"])) //若標準用量有小數, 需以ERP所傳入的該物料的需領用量(RequireQty)/預計產量(MOQty)，並以無條件捨去取到小數六位數的值，做為該物料的標準用量
|
||
// {
|
||
// decTemp = (Convert.ToDecimal(dr["RequireQty"]) / MOQty) * 1000000;
|
||
// decTemp = Math.Floor(decTemp);
|
||
// decTemp = decTemp / 1000000;
|
||
// dr["StdQty"] = decTemp;
|
||
// }
|
||
// if (Conversions.ToInteger(dr["SubstituteStdQty"]) != Convert.ToDecimal(dr["SubstituteStdQty"])) //若替代料標準用量有小數同標準用量處理
|
||
// {
|
||
// decTemp = (Convert.ToDecimal(dr["RequireQty"]) / MOQty) * 1000000;
|
||
// decTemp = Math.Floor(decTemp);
|
||
// decTemp = decTemp / 1000000;
|
||
// dr["SubstituteStdQty"] = decTemp;
|
||
// }
|
||
// }
|
||
// if (dr["MaterialLevel"].ToString() == "0")
|
||
// {
|
||
// // 用料清單為物料
|
||
// using (var objMTL = new clsMTLBasis())
|
||
// {
|
||
// DataRow drMTL = null;
|
||
// bool errorFlag = false;
|
||
|
||
// dr["MONo"] = dr["MONo"].ToString().ToUpper();
|
||
|
||
// drMTL = objMTL.GetMaterialBasis(dr["MaterialNo"].ToString().ToUpper());
|
||
// // (skip) MONo, MaterialLevel, STDQty, DecreaseRate, OPNo, Specified, PutinPlaceType, MOFlag, CountWay, Description, OrgMaterialNo, EX_MTLList1, EX_MTLList2, MaterialVersion
|
||
|
||
// // MaterialNo
|
||
// if (drMTL["MaterialNo"] is DBNull == true)
|
||
// {
|
||
// errorFlag = true;
|
||
// clsERP.combineException(ref aryException, mesmsg: " [%MaterialNo%]:" +
|
||
// dr["MaterialNo"] + " [%MaterialNoNotExist%][%InMESSystem%]! [%MaterialLevel%][%IsMaterial%].");
|
||
// goto SkipMaterialList;
|
||
// }
|
||
// else
|
||
// {
|
||
// dr["MaterialNo"] = dr["MaterialNo"].ToString().ToUpper();
|
||
// }
|
||
|
||
// // UnitNo
|
||
// if (drMTL["UnitNo"].ToString().ToLower() != strMaterialUnit.ToLower())
|
||
// {
|
||
// // 當用料清單和物料主檔的單位不同時
|
||
// // 單位轉換
|
||
// using (var objUnit = new udUnitTransferFunction.clsUnitTransferFunction())
|
||
// {
|
||
// var colParameters = new Collection();
|
||
// colParameters.Add(dr["MaterialNo"].ToString().ToUpper(), "ProductNo");
|
||
// colParameters.Add("*", "ProductVersion");
|
||
|
||
// try
|
||
// {
|
||
// dr["StdQty"] = Convert.ToDouble(objUnit.EXETransferQty(strMaterialUnit.ToLower(), drMTL["UnitNo"].ToString().ToLower(), Convert.ToDouble(dr["StdQty"]), colParameters));
|
||
// dr["SubstituteStdQty"] = Convert.ToDouble(objUnit.EXETransferQty(strMaterialUnit.ToLower(), drMTL["UnitNo"].ToString().ToLower(), Convert.ToDouble(dr["SubstituteStdQty"]), colParameters));
|
||
|
||
// dr["UnitNo"] = drMTL["UnitNo"].ToString().ToLower();
|
||
// }
|
||
// catch (Exception ex)
|
||
// {
|
||
// errorFlag = true;
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitNoDifferent%]" + " [%MaterialNo%]:" +
|
||
// dr["MaterialNo"]);
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitTransferFail%]" + " " + ex.Message);
|
||
// }
|
||
// }
|
||
// }
|
||
// else
|
||
// {
|
||
// dr["UnitNo"] = dr["UnitNo"].ToString().ToLower();
|
||
// }
|
||
|
||
// // MaterialMONo (Default)
|
||
// dr["MaterialMONo"] = "N/A";
|
||
|
||
// // MaterialType
|
||
// if (dr["MaterialType"] is DBNull == true)
|
||
// {
|
||
// dr["MaterialType"] = drMTL["MaterialType"];
|
||
// }
|
||
// else if (Convert.ToBoolean(Operators.ConditionalCompareObjectEqual(dr["MaterialType"].ToString().ToUpper(), drMTL["MaterialType"], false)))
|
||
// {
|
||
// dr["MaterialType"] = dr["MaterialType"].ToString().ToUpper();
|
||
// }
|
||
// else
|
||
// {
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialListMaterialTypeDifferent%]" + " [%MaterialNo%]:" +
|
||
// dr["MaterialNo"]);
|
||
// }
|
||
|
||
// // CheckLotNo
|
||
// if (dr["CheckLotNo"] is DBNull == true)
|
||
// {
|
||
// dr["CheckLotNo"] = drMTL["CheckLotNo"];
|
||
// }
|
||
// else if (Convert.ToBoolean(Operators.ConditionalCompareObjectNotEqual(dr["CheckLotNo"], drMTL["CheckLotNo"], false)))
|
||
// {
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialListCheckLotNoDifferent%]" + " [%MaterialNo%]:" +
|
||
// dr["MaterialNo"]);
|
||
// }
|
||
|
||
// // 2013/02/20,Even,修改替代料檢查
|
||
// if (dr["SubstituteMaterialNo"] is DBNull == true)
|
||
// {
|
||
// dr["SubstituteMaterialNo"] = dr["MaterialNo"];
|
||
// dr["SubstituteMaterialLevel"] = dr["MaterialLevel"];
|
||
// }
|
||
// // 2013/02/25,Even,判斷替代料，替代料可為半成品或是物料
|
||
// else if (dr["SubstituteMaterialLevel"].ToString() == "0") // 為物料
|
||
// {
|
||
// // 查詢替代料是否在物料主檔內，若無，則出現錯誤訊息
|
||
// drMTL = objMTL.GetMaterialBasis(dr["SubstituteMaterialNo"].ToString().ToUpper());
|
||
// if (drMTL["MaterialNo"] is DBNull == true)
|
||
// {
|
||
// errorFlag = true;
|
||
// clsERP.combineException(ref aryException, mesmsg: " [%SubstituteMaterialNo%]:" +
|
||
// dr["SubstituteMaterialNo"] + " [%MaterialNoNotExist%][%InMESSystem%]! [%SubstituteMaterialLevel%][%IsMaterial%].");
|
||
// goto SkipMaterialList;
|
||
// }
|
||
// else
|
||
// {
|
||
// dr["SubstituteMaterialNo"] = dr["SubstituteMaterialNo"].ToString().ToUpper();
|
||
// }
|
||
// }
|
||
// else // 為半成品 (SubstituteMaterialLevel = 1)
|
||
// {
|
||
// DataRow drPRD = null;
|
||
// // 檢查物料是否存在於產品主檔
|
||
// using (var objPRD = new clsProduct())
|
||
// {
|
||
// drPRD = objPRD.GetProduct(dr["SubstituteMaterialNo"].ToString().ToUpper());
|
||
// }
|
||
// if (drPRD["ProductNo"] is DBNull == true)
|
||
// {
|
||
// errorFlag = true;
|
||
// clsERP.combineException(ref aryException, mesmsg: " [%SubstituteMaterialNo%]:" +
|
||
// dr["SubstituteMaterialNo"] + " [%ProductNoNotExist%][%InMESSystem%]! [%SubstituteMaterialLevel%][%IsProduct%].");
|
||
// goto SkipMaterialList;
|
||
// }
|
||
// else
|
||
// {
|
||
// dr["SubstituteMaterialNo"] = dr["SubstituteMaterialNo"].ToString().ToUpper();
|
||
// }
|
||
// }
|
||
|
||
// if (dr["SubstituteStdQty"] is DBNull == true)
|
||
// {
|
||
// dr["SubstituteStdQty"] = dr["StdQty"];
|
||
// }
|
||
|
||
// // 2019/12/16 OwenLiu, Mantis:0065576 , 工單整合(新增)時用料需求數支援單位轉換
|
||
// decimal decRequireQty = 0m;
|
||
// if (dr["RequireQty"] is DBNull == true)
|
||
// {
|
||
// // ERP未傳入需求數(RequireQty)
|
||
// // 2019/12/23 OwenLiu, Mantis:0065953 修正工單整合 用料清單單位轉換的問題
|
||
// dr["RequireQty"] = Operators.MultiplyObject(Operators.MultiplyObject(MOQty, dr["StdQty"]), Operators.AddObject(1, dr["DecreaseRate"]));
|
||
// }
|
||
// else
|
||
// {
|
||
// decRequireQty = Convert.ToDecimal(dr["RequireQty"]);
|
||
// // 2019/12/23 OwenLiu, Mantis:0065953 修正工單整合 用料清單單位轉換的問題
|
||
// if (drMTL["UnitNo"].ToString().ToLower() != strMaterialUnit.ToLower())
|
||
// {
|
||
// // 當用料清單和物料主檔的單位不同時
|
||
// using (var objUnit = new udUnitTransferFunction.clsUnitTransferFunction())
|
||
// {
|
||
// var colParameters = new Collection();
|
||
// colParameters.Add(dr["MaterialNo"].ToString().ToUpper(), "ProductNo");
|
||
// colParameters.Add("*", "ProductVersion");
|
||
// try
|
||
// {
|
||
// dr["RequireQty"] = Convert.ToDouble(objUnit.EXETransferQty(strMaterialUnit.ToLower(), drMTL["UnitNo"].ToString().ToLower(), (double)decRequireQty, colParameters));
|
||
// }
|
||
// catch (Exception ex)
|
||
// {
|
||
// errorFlag = true;
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitNoDifferent%]" + " [%MaterialNo%]:" +
|
||
// dr["MaterialNo"]);
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitTransferFail%]" + " " + ex.Message);
|
||
// }
|
||
// }
|
||
// }
|
||
// else
|
||
// {
|
||
// dr["RequireQty"] = decRequireQty;
|
||
// }
|
||
// }
|
||
|
||
// // 檢查OPNo(用料作業站)是否存在 -----
|
||
// if (dr["OPNo"].ToString().ToUpper() != "LOTCREATE")
|
||
// {
|
||
// // 有傳入=>檢查OP主檔
|
||
// using (var objOP = new clsOpBasis())
|
||
// {
|
||
// var drOP = objOP.GetOPBasis(dr["OPNo"].ToString().ToUpper());
|
||
// if (drOP["OPNo"] is DBNull == true)
|
||
// {
|
||
// // OP主檔未建立
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialNo%]:" +
|
||
// dr["MaterialNo"] + " [%OPNoNotExist%](" + dr["OPNo"] + ")");
|
||
// }
|
||
// }
|
||
// }
|
||
|
||
// }
|
||
// }
|
||
// else
|
||
// {
|
||
// // 用料清單為半成品
|
||
// using (var objPRD = new clsProduct())
|
||
// {
|
||
// DataRow drPRD = null;
|
||
// bool errorFlag = false;
|
||
|
||
// dr["MONo"] = dr["MONo"].ToString().ToUpper();
|
||
|
||
// drPRD = objPRD.GetProduct(dr["MaterialNo"].ToString().ToUpper());
|
||
// // (skip) MONo, MaterialLevel, STDQty, DecreaseRate, OPNo, Specified, PutinPlaceType, MOFlag, CountWay, Description, OrgMaterialNo, EX_MTLList1, EX_MTLList2, MaterialVersion
|
||
|
||
// // MaterialNo
|
||
// if (drPRD["ProductNo"] is DBNull == true)
|
||
// {
|
||
// errorFlag = true;
|
||
// clsERP.combineException(ref aryException, mesmsg: " [%MaterialNo%]:" +
|
||
// dr["MaterialNo"] + " [%ProductNoNotExist%][%InMESSystem%]! [%MaterialLevel%][%IsProduct%].");
|
||
// goto SkipMaterialList;
|
||
// }
|
||
// else
|
||
// {
|
||
// dr["MaterialNo"] = dr["MaterialNo"].ToString().ToUpper();
|
||
// }
|
||
|
||
// // UnitNo
|
||
// if (drPRD["UnitNo"].ToString().ToLower() != strMaterialUnit.ToLower())
|
||
// {
|
||
// // 當用料清單和物料主檔的單位不同時
|
||
// // 單位轉換
|
||
// using (var objUnit = new udUnitTransferFunction.clsUnitTransferFunction())
|
||
// {
|
||
// var colParameters = new Collection();
|
||
// colParameters.Add(dr["MaterialNo"].ToString().ToUpper(), "ProductNo");
|
||
// colParameters.Add("*", "ProductVersion");
|
||
|
||
// try
|
||
// {
|
||
|
||
// dr["StdQty"] = Convert.ToDouble(objUnit.EXETransferQty(strMaterialUnit.ToLower(), drPRD["UnitNo"].ToString().ToLower(), Convert.ToDouble(dr["StdQty"]), colParameters));
|
||
// dr["SubstituteStdQty"] = Convert.ToDouble(objUnit.EXETransferQty(strMaterialUnit.ToLower(), drPRD["UnitNo"].ToString().ToLower(), Convert.ToDouble(dr["SubstituteStdQty"]), colParameters));
|
||
|
||
// dr["UnitNo"] = drPRD["UnitNo"].ToString().ToLower();
|
||
// }
|
||
// catch (Exception ex)
|
||
// {
|
||
// errorFlag = true;
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitNoDifferent%]" + " [%MaterialNo%]:" +
|
||
// dr["MaterialNo"]);
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitTransferFail%]" + " " + ex.Message);
|
||
// }
|
||
// }
|
||
// }
|
||
// else
|
||
// {
|
||
// dr["UnitNo"] = dr["UnitNo"].ToString().ToLower();
|
||
// }
|
||
|
||
// // MaterialMONo (Default)
|
||
// dr["MaterialMONo"] = "N/A";
|
||
|
||
// // MaterialType
|
||
// if (dr["MaterialType"] is DBNull == true)
|
||
// {
|
||
// dr["MaterialType"] = drPRD["ProductType"];
|
||
// }
|
||
// else if (Convert.ToBoolean(Operators.ConditionalCompareObjectEqual(dr["MaterialType"].ToString().ToUpper(), drPRD["ProductType"], false)))
|
||
// {
|
||
// dr["MaterialType"] = dr["MaterialType"].ToString().ToUpper();
|
||
// }
|
||
// else
|
||
// {
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialListMaterialTypeDifferent%]" + " [%MaterialNo%]:" +
|
||
// dr["MaterialNo"]);
|
||
// }
|
||
|
||
// // CheckLotNo
|
||
// dr["CheckLotNo"] = 1; // 半成品固定為1
|
||
|
||
// // SubstituteMaterialNo
|
||
// // ---2013/02/20,Even,替代料是否存在的檢查----
|
||
// if (dr["SubstituteMaterialNo"] is DBNull == true)
|
||
// {
|
||
// dr["SubstituteMaterialNo"] = dr["MaterialNo"];
|
||
// dr["SubstituteMaterialLevel"] = dr["MaterialLevel"];
|
||
// }
|
||
// else
|
||
// {
|
||
// DataRow drMTL = null;
|
||
// // 2013/02/25,Even,判斷替代料，替代料可為半成品或是物料
|
||
// if (dr["SubstituteMaterialLevel"].ToString() == "0") // 為物料
|
||
// {
|
||
// // 查詢替代料是否在物料主檔內，若無，則出現錯誤訊息
|
||
// using (var objMTL = new clsMTLBasis())
|
||
// {
|
||
// drMTL = objMTL.GetMaterialBasis(dr["SubstituteMaterialNo"].ToString().ToUpper());
|
||
// }
|
||
|
||
// if (drMTL["MaterialNo"] is DBNull == true)
|
||
// {
|
||
// errorFlag = true;
|
||
// clsERP.combineException(ref aryException, mesmsg: " [%SubstituteMaterialNo%]:" +
|
||
// dr["SubstituteMaterialNo"] + " [%MaterialNoNotExist%][%InMESSystem%]! [%SubstituteMaterialLevel%][%IsMaterial%].");
|
||
// goto SkipMaterialList;
|
||
// }
|
||
// else
|
||
// {
|
||
// dr["SubstituteMaterialNo"] = dr["SubstituteMaterialNo"].ToString().ToUpper();
|
||
// }
|
||
// }
|
||
// else // 為半成品 (SubstituteMaterialLevel = 1)
|
||
// {
|
||
// // 檢查物料是否存在於產品主檔
|
||
// drPRD = objPRD.GetProduct(dr["SubstituteMaterialNo"].ToString().ToUpper());
|
||
// if (drPRD["ProductNo"] is DBNull == true)
|
||
// {
|
||
// errorFlag = true;
|
||
// clsERP.combineException(ref aryException, mesmsg: " [%SubstituteMaterialNo%]:" +
|
||
// dr["SubstituteMaterialNo"] + " [%ProductNoNotExist%][%InMESSystem%]! [%SubstituteMaterialLevel%][%IsProduct%].");
|
||
// goto SkipMaterialList;
|
||
// }
|
||
// else
|
||
// {
|
||
// dr["SubstituteMaterialNo"] = dr["SubstituteMaterialNo"].ToString().ToUpper();
|
||
// }
|
||
// }
|
||
// }
|
||
|
||
// if (dr["SubstituteStdQty"] is DBNull == true)
|
||
// {
|
||
// dr["SubstituteStdQty"] = dr["StdQty"];
|
||
// }
|
||
|
||
|
||
// // 2019/12/16 OwenLiu, Mantis:0065576 , 工單整合(新增)時用料需求數支援單位轉換
|
||
// decimal decRequireQty = 0m;
|
||
// if (dr["RequireQty"] is DBNull == true)
|
||
// {
|
||
// // ERP未傳入需求數(RequireQty)
|
||
// // 2019/12/23 OwenLiu, Mantis:0065953 修正工單整合 用料清單單位轉換的問題
|
||
// dr["RequireQty"] = Operators.MultiplyObject(Operators.MultiplyObject(MOQty, dr["StdQty"]), Operators.AddObject(1, dr["DecreaseRate"]));
|
||
// }
|
||
// else
|
||
// {
|
||
// decRequireQty = Convert.ToDecimal(dr["RequireQty"]);
|
||
// // 2019/12/23 OwenLiu, Mantis:0065953 修正工單整合 用料清單單位轉換的問題
|
||
// if (drPRD["UnitNo"].ToString().ToLower() != strMaterialUnit.ToLower())
|
||
// {
|
||
// // 當用料清單和產品主檔的單位不同時
|
||
// using (var objUnit = new udUnitTransferFunction.clsUnitTransferFunction())
|
||
// {
|
||
// var colParameters = new Collection();
|
||
// colParameters.Add(dr["MaterialNo"].ToString().ToUpper(), "ProductNo");
|
||
// colParameters.Add("*", "ProductVersion");
|
||
// try
|
||
// {
|
||
// dr["RequireQty"] = Convert.ToDouble(objUnit.EXETransferQty(strMaterialUnit.ToLower(), drPRD["UnitNo"].ToString().ToLower(), (double)decRequireQty, colParameters));
|
||
// }
|
||
// catch (Exception ex)
|
||
// {
|
||
// errorFlag = true;
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitNoDifferent%]" + " [%MaterialNo%]:" +
|
||
// dr["MaterialNo"]);
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitTransferFail%]" + " " + ex.Message);
|
||
// }
|
||
// }
|
||
// }
|
||
// else
|
||
// {
|
||
// dr["RequireQty"] = decRequireQty;
|
||
// }
|
||
// }
|
||
|
||
// // 檢查OPNo(用料作業站)是否存在 -----
|
||
// if (dr["OPNo"].ToString().ToUpper() != "LOTCREATE")
|
||
// {
|
||
// // 有傳入=>檢查OP主檔
|
||
// using (var objOP = new clsOpBasis())
|
||
// {
|
||
// var drOP = objOP.GetOPBasis(dr["OPNo"].ToString().ToUpper());
|
||
// if (drOP["OPNo"] is DBNull == true)
|
||
// {
|
||
// // OP主檔未建立
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%MaterialNo%]:" +
|
||
// dr["MaterialNo"] + " [%OPNoNotExist%](" + dr["OPNo"] + ")");
|
||
// }
|
||
// }
|
||
// }
|
||
// }
|
||
// }
|
||
|
||
// SkipMaterialList:
|
||
// ;
|
||
// }
|
||
|
||
// catch (Exception ex)
|
||
// {
|
||
// clsERP.combineException(ref aryException, sysmsg: ex.Message, mesmsg: "[%doMaterialListFail%]", stack: iMESCore.Base.iMESComXML.CInput(ex.StackTrace));
|
||
// }
|
||
// }
|
||
//}
|
||
#endregion
|
||
|
||
// ----- 8. 檢查FactoryNo -----
|
||
// FactoryNo = "N/A"
|
||
List<ArrayList> argstrMessage = null;
|
||
List<ArrayList> argstrException = null;
|
||
doFactoryNo(FactoryNo, Creator, CreateDate, strMessage: argstrMessage, strException: argstrException);
|
||
|
||
// ----- 9. 檢查MO Property ---
|
||
if (!(dtMOProperty == null) && dtMOProperty.Rows.Count > 0)
|
||
{
|
||
foreach (DataRow dr in dtMOProperty.Rows)
|
||
{
|
||
List<ArrayList> argaryMessage = null;
|
||
List<ArrayList> argaryException = null;
|
||
doSYSMOProperty(Convert.ToString(dr["PropertyNo"]), Convert.ToString(dr["DataType"]), aryMessage: argaryMessage, aryException: argaryException);
|
||
}
|
||
}
|
||
|
||
// ----- Exception => Fail -----
|
||
if (aryException.Count > 0)
|
||
goto exitfun;
|
||
|
||
// ----- Add MO -----
|
||
// Dim objLic As New iMESLicxManager.clsDBCom
|
||
// Using cn As New OleDbConnection(objSetting.GetConnectionString)
|
||
// Using cmd As New OleDbCommand("", cn)
|
||
// cn.Open()
|
||
// Using trans As OleDbTransaction = cn.BeginTransaction
|
||
// cmd.Transaction = trans
|
||
try
|
||
{
|
||
|
||
if (string.IsNullOrEmpty(RONo) == false)
|
||
{
|
||
var objOE = new clsOEBasis();
|
||
// 檢查訂單是否已存在
|
||
var dr = objOE.GetROBasis(RONo.ToUpper());
|
||
if (dr["RONo"] is DBNull == false)
|
||
isROExist = true;
|
||
|
||
// 檢查訂單明細是否已存在
|
||
// 若訂單號碼有傳入，此項目應一併傳入，若未傳入則預設為1
|
||
if (string.IsNullOrEmpty(ItemNo))
|
||
ItemNo = "1";
|
||
dr = objOE.GetRODetail(RONo.ToUpper(), Convert.ToDecimal(ItemNo.ToUpper()));
|
||
if (dr["ItemNo"] is DBNull == false)
|
||
{
|
||
isRODetailExist = true;
|
||
}
|
||
|
||
// ----- RO -----
|
||
if (isROExist == false)
|
||
{
|
||
// add ROBasis
|
||
strSQL = "insert into tbloerobasis(rono,customerno,creator,createdate,issuestate,rostate) values('" + RONo.ToUpper() + "','" + CustomerNo.ToUpper() + "','" + Creator + "',To_Date('" + Strings.Format(CreateDate, "yyyy/MM/dd H:mm:ss") + "','YYYY/MM/DD HH24:MI:SS'),2,2)";
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.CommandText = _
|
||
// "insert into tbloerobasis(rono,customerno,description,creator,createdate,issuestate,lotserial,rostate) values(?,?,?,?,?,?,?,?)"
|
||
// cmd.Parameters.AddWithValue(":RONo", RONo.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":CustomerNo", CustomerNo.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":Description", DBNull.Value)
|
||
// cmd.Parameters.AddWithValue(":Creator", Creator)
|
||
// cmd.Parameters.AddWithValue(":CreateDate", CreateDate)
|
||
// cmd.Parameters.AddWithValue(":IssueState", 2)
|
||
// cmd.Parameters.AddWithValue(":LotSerial", DBNull.Value)
|
||
// cmd.Parameters.AddWithValue(":ROState", 2)
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
}
|
||
|
||
switch (isRODetailExist)
|
||
{
|
||
case true:
|
||
{
|
||
// update RODetail
|
||
strSQL = "update tbloerodetail set orderqty=orderqty+" + MOQty + ", unreleaseqty=unreleaseqty+" + MOQty;
|
||
strSQL += "where RONO='" + RONo.ToUpper() + "' and ItemNo=" + ItemNo.ToUpper();
|
||
break;
|
||
}
|
||
// Gary Lu 20130307:原本無Where條件，不修正會使得TBLOERODETAIL內其他訂單明細也受到影響
|
||
// cmd.CommandText = _
|
||
// "update tbloerodetail set orderqty=orderqty+?, unreleaseqty=unreleaseqty+?"
|
||
// cmd.Parameters.AddWithValue(":OrderQty", MOQty)
|
||
// cmd.Parameters.AddWithValue(":UnReleaseQty", MOQty)
|
||
case false:
|
||
{
|
||
// add RODetail
|
||
strSQL = "insert into tbloerodetail(rono,itemno,productno,orderqty,unreleaseqty,creator,createdate,rounitno,customerno,customername) " + "values('" + RONo.ToUpper() + "'," + ItemNo + ",'" + ProductNo.ToUpper() + "'," + MOQty + "," + MOQty + ",'" + Creator + "',To_Date('" + Strings.Format(CreateDate, "yyyy/MM/dd H:mm:ss") + "','YYYY/MM/DD HH24:MI:SS'),'" + MOUnitNo.ToLower() + "','" + CustomerNo.ToUpper() + "','" + ChkSingleQuation(CustomerName) + "')";
|
||
break;
|
||
}
|
||
// cmd.CommandText = _
|
||
// "insert into tbloerodetail(rono,itemno,productno,orderqty,unreleaseqty,description,creator,createdate,rounitno,customerno,customername) " & _
|
||
// "values(?,?,?,?,?,?,?,?,?,?,?)"
|
||
// cmd.Parameters.AddWithValue(":RONo", RONo.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":ItemNo", ItemNo)
|
||
// cmd.Parameters.AddWithValue(":ProductNo", ProductNo.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":OrderQty", MOQty)
|
||
// cmd.Parameters.AddWithValue(":UnReleaseQty", MOQty)
|
||
// cmd.Parameters.AddWithValue(":Description", DBNull.Value)
|
||
// cmd.Parameters.AddWithValue(":Creator", Creator)
|
||
// cmd.Parameters.AddWithValue(":CreateDate", CreateDate)
|
||
// cmd.Parameters.AddWithValue(":ROUnitNo", MOUnitNo.ToLower)
|
||
// cmd.Parameters.AddWithValue(":CustomerNo", CustomerNo.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":CustomerName", CustomerName)
|
||
}
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
}
|
||
|
||
// ----- MO -----
|
||
|
||
// 2019/08/16 Mantis60378: 新增FromERP欄位, 若來自EAI整合(TT、WF、T100),需填入1
|
||
// add MO Basis
|
||
strSQLAddField = "insert into tblOEMOBasis(mono,mostate,moqty,productno,productversion,priority,planfinishdate," + "belongtomono,description,creator,createdate,issuestate,unreleaselotqty,mounitno,motypeno,mosource,engno,engversion,customerno,factoryno" + ", FromERP,wipEntityId,bomVersion,lcPlantype,faiFlag";
|
||
strSQLAddValue = "values('" + MONo.ToUpper() + "'," + MOState + "," + MOQty + ",'" + ProductNo.ToUpper() + "','" + ProductVersion.ToUpper() + "'," + Priority + ",To_Date('" + Strings.Format(PlanFinishDate, "yyyy/MM/dd H:mm:ss") + "','YYYY/MM/DD HH24:MI:SS'),'" + BelongToMONo + "','" + Description + "','" + Creator + "',To_Date('" + Strings.Format(CreateDate, "yyyy/MM/dd H:mm:ss") + "','YYYY/MM/DD HH24:MI:SS')," + IssueState + "," + MOQty + ",'" + MOUnitNo.ToLower() + "'," + MOTypeNo + "," + MOSource + ",'" + ENGNo + "','" + ENGVersion + "','" + CustomerNo.ToUpper() + "','" + FactoryNo + "'," + "1," + wipEntityId + ",'" + bomVersion + "','" + lcPlantype + "','" + faiFlag + "'";
|
||
if (string.IsNullOrEmpty(RONo) == true)
|
||
{
|
||
strSQLAddField += ",rono";
|
||
strSQLAddValue += ",'N/A'";
|
||
}
|
||
else
|
||
{
|
||
strSQLAddField += ",rono";
|
||
strSQLAddValue += ",'" + RONo.ToUpper() + "'";
|
||
}
|
||
if (string.IsNullOrEmpty(Orgcode) == true)
|
||
{
|
||
strSQLAddField += ",Orgcode";
|
||
strSQLAddValue += ",'N/A'";
|
||
}
|
||
else
|
||
{
|
||
strSQLAddField += ",Orgcode";
|
||
strSQLAddValue += ",'" + Orgcode + "'";
|
||
}
|
||
if (string.IsNullOrEmpty(OrgMono) == true)
|
||
{
|
||
strSQLAddField += ",OrgMono";
|
||
strSQLAddValue += ",'N/A'";
|
||
}
|
||
else
|
||
{
|
||
strSQLAddField += ",OrgMono";
|
||
strSQLAddValue += ",'" + OrgMono + "'";
|
||
}
|
||
|
||
if (string.IsNullOrEmpty(ItemNo) == true)
|
||
{
|
||
strSQLAddField += ",itemno";
|
||
strSQLAddValue += ",-1";
|
||
}
|
||
else
|
||
{
|
||
strSQLAddField += ",itemno";
|
||
strSQLAddValue += "," + ItemNo;
|
||
}
|
||
if (!string.IsNullOrEmpty(CustomerLotNo))
|
||
{
|
||
strSQLAddField += ",customerlotno";
|
||
strSQLAddValue += ",'" + CustomerLotNo + "'";
|
||
}
|
||
|
||
// 2018/3/19 Vick 新增欄位 ERPMOLineNo
|
||
if (ERPMOLineNo != defString)
|
||
{
|
||
strSQLAddField += ",ERPMOLineNo";
|
||
strSQLAddValue += ",'" + ERPMOLineNo + "'";
|
||
}
|
||
|
||
if (PlanStartDate != default(DateTime))
|
||
{
|
||
strSQLAddField += ",PlanStartDate";
|
||
strSQLAddValue += ", To_Date('" + Strings.Format(PlanStartDate, "yyyy/MM/dd H:mm:ss") + "','YYYY/MM/DD HH24:MI:SS')";
|
||
}
|
||
|
||
strSQL = strSQLAddField + ")" + strSQLAddValue + ")";
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.CommandText = _
|
||
// "insert into tbloemobasis(mono,rono,itemno,mostate,moqty,productno,productversion,priority,planfinishdate,belongtomono,description,creator,createdate," & _
|
||
// "issuestate,unreleaselotqty,mounitno,lotserial,motypeno,mosource,engno,engversion,customerno,incomingkey,customerlotno,factoryno) " & _
|
||
// "values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
|
||
// cmd.Parameters.AddWithValue(":MONo", MONo.ToUpper)
|
||
// If String.IsNullOrEmpty(RONo) = True)
|
||
// cmd.Parameters.AddWithValue(":RONo", "N/A")
|
||
// Else
|
||
// cmd.Parameters.AddWithValue(":RONo", RONo.ToUpper)
|
||
// End If
|
||
// If String.IsNullOrEmpty(ItemNo) = True)
|
||
// cmd.Parameters.AddWithValue(":ItemNo", -1)
|
||
// Else
|
||
// cmd.Parameters.AddWithValue(":ItemNo", ItemNo)
|
||
// End If
|
||
// cmd.Parameters.AddWithValue(":MOState", MOState)
|
||
// cmd.Parameters.AddWithValue(":MOQty", MOQty)
|
||
// cmd.Parameters.AddWithValue(":ProductNo", ProductNo.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":ProductVersion", ProductVersion.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":Priority", Priority)
|
||
// cmd.Parameters.AddWithValue(":PlanFinishDate", PlanFinishDate)
|
||
// cmd.Parameters.AddWithValue(":BelongToMONo", BelongToMONo)
|
||
// cmd.Parameters.AddWithValue(":Description", Description)
|
||
// cmd.Parameters.AddWithValue(":Creator", Creator)
|
||
// cmd.Parameters.AddWithValue(":CreateDate", CreateDate)
|
||
// cmd.Parameters.AddWithValue(":IssueState", IssueState)
|
||
// cmd.Parameters.AddWithValue(":UnReleaseLotQty", MOQty)
|
||
// cmd.Parameters.AddWithValue(":MOUnitNo", MOUnitNo.ToLower)
|
||
// cmd.Parameters.AddWithValue(":LotSerial", DBNull.Value)
|
||
// cmd.Parameters.AddWithValue(":MOTypeNo", MOTypeNo)
|
||
// cmd.Parameters.AddWithValue(":MOSource", MOSource)
|
||
// cmd.Parameters.AddWithValue(":EngNo", ENGNo)
|
||
// cmd.Parameters.AddWithValue(":EngVersion", ENGVersion)
|
||
// cmd.Parameters.AddWithValue(":CustomerNo", CustomerNo.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":IncomingKey", DBNull.Value)
|
||
// If CustomerLotNo = String.Empty)
|
||
// cmd.Parameters.AddWithValue(":CustomerLotNo", DBNull.Value)
|
||
// Else
|
||
// cmd.Parameters.AddWithValue(":CustomerLotNo", CustomerLotNo)
|
||
// End If
|
||
// cmd.Parameters.AddWithValue(":FactoryNo", FactoryNo)
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
|
||
// add MO Component
|
||
//
|
||
|
||
|
||
// add MO Material List
|
||
// dtMTL: MONo, MaterialNo, MaterialLevel, StdQty, UnitNo, OPNo, PutInPlaceType, DecreaseRate, Specified, *MaterialType, CountWay, *CheckLotNo, *MaterialVersion, +*MaterialMONo, +SubstituteMaterialNo
|
||
//if (dtMTL.Rows.Count > 0)
|
||
//{
|
||
// if (!dtMTL.Columns.Contains("MaterialMONo"))
|
||
// dtMTL.Columns.Add("MaterialMONo", Type.GetType("System.String"));
|
||
|
||
// foreach (DataRow dr in dtMTL.Rows)
|
||
// {
|
||
// if (dr["MaterialMONo"] is DBNull || string.IsNullOrEmpty(dr["MaterialMONo"].ToString()))
|
||
// dr["MaterialMONo"] = "N/A";
|
||
|
||
// bool blnAddMaterial = true; // 是否將工單用料加入tblOEMOMaterialList, True:是 False:否
|
||
|
||
// // 2019/09/25 Grace 增加檢查, 若有傳入DeliveryMethod且值=4, 這筆工單用料清單, 不加入至tblOEMOMaterialList;否或非4則不做任何處理
|
||
// // 材料型態tagname：DeliveryMethod (Optional參數,非必傳)
|
||
// if (!(dr["DeliveryMethod"] is DBNull))
|
||
// {
|
||
// if (dr["DeliveryMethod"].ToString() == "4")
|
||
// {
|
||
// blnAddMaterial = false;
|
||
// }
|
||
// }
|
||
|
||
// if (blnAddMaterial)
|
||
// {
|
||
// // 2019/01/30 OwenLiu, Mantis: 0054631 工單拋轉時，避免oracle與SQLServer對於空字串('')處理不同
|
||
// // Oracle會將欄位值存成Null, SQLServer會將欄位值成空字串，造成後續功能判斷上的問題
|
||
// string strSQLAddMTLField, strSQLAddMTLValue;
|
||
// // 先設定Not Null欄位
|
||
// strSQLAddMTLField = "INSERT INTO tblOEMOMaterialList(MONo,MaterialNo,MaterialLevel,StdQty,UnitNo";
|
||
// strSQLAddMTLValue = " VALUES('" + dr["MONo"].ToString().ToUpper() + "'" + ",'" + dr["MaterialNo"].ToString().ToUpper() + "'," +
|
||
// dr["MaterialLevel"] + "," + dr["StdQty"] + ",'" + dr["UnitNo"].ToString().ToLower() + "'";
|
||
|
||
// strSQLAddMTLField += ",DecreaseRate,OPNo,Specified,PutinplaceType,MaterialMONo,MaterialType" + ",CountWay,CheckLotNo,SubstituteMaterialNo,mainItem,phantomItem,lockRequirement,operationSeqnum";
|
||
// strSQLAddMTLValue = strSQLAddMTLValue + "," +
|
||
// dr["DecreaseRate"] + ",'" + dr["OPNo"].ToString().ToUpper() + "'," + dr["Specified"] + "," + dr["PutInPlaceType"] + ",'" + dr["MaterialMONo"] +
|
||
// "'" + ",'" + dr["MaterialType"].ToString().ToUpper() + "'," + dr["CountWay"] + "," + dr["CheckLotNo"] + ",'" + dr["SubstituteMaterialNo"].ToString().ToUpper() +
|
||
// "','" + dr["mainItem"] + "','" + dr["phantomItem"] + "','" + dr["lockRequirement"] + "','" + dr["operationSeqnum"] + "'";
|
||
|
||
// // RequireQty
|
||
// if (!dr.IsNull("RequireQty") && !string.IsNullOrEmpty(dr["RequireQty"].ToString()))
|
||
// {
|
||
// strSQLAddMTLField += ",RequireQty";
|
||
// strSQLAddMTLValue = strSQLAddMTLValue + "," + dr["RequireQty"].ToString();
|
||
// }
|
||
// // SubstituteStdQty
|
||
// if (!dr.IsNull("SubstituteStdQty") && !string.IsNullOrEmpty(dr["SubstituteStdQty"].ToString()))
|
||
// {
|
||
// strSQLAddMTLField += ",SubstituteStdQty";
|
||
// strSQLAddMTLValue = strSQLAddMTLValue + "," + dr["SubstituteStdQty"].ToString();
|
||
// }
|
||
// // MaterialVersion
|
||
// if (!dr.IsNull("MaterialVersion") && !string.IsNullOrEmpty(dr["MaterialVersion"].ToString()))
|
||
// {
|
||
// strSQLAddMTLField += ",MaterialVersion";
|
||
// strSQLAddMTLValue = strSQLAddMTLValue + ",'" + dr["MaterialVersion"] + "'".ToString();
|
||
// }
|
||
// // SubstituteMaterialLevel
|
||
// if (!dr.IsNull("SubstituteMaterialLevel") && !string.IsNullOrEmpty(dr["SubstituteMaterialLevel"].ToString()))
|
||
// {
|
||
// strSQLAddMTLField += ",SubstituteMaterialLevel";
|
||
// strSQLAddMTLValue = strSQLAddMTLValue + "," + dr["SubstituteMaterialLevel"].ToString();
|
||
// }
|
||
|
||
// strSQL = strSQLAddMTLField + ")" + strSQLAddMTLValue + ")";
|
||
|
||
// CollectionSQL.Add(strSQL);
|
||
// }
|
||
|
||
// // cmd.CommandText = _
|
||
// // "insert into tbloemomateriallist(mono,materialno,materiallevel,stdqty,unitno,opno,putinplacetype," & _
|
||
// // "decreaserate,specified,materialtype,countway,checklotno,materialversion,materialmono,substitutematerialno,SubstituteMaterialLevel,SubstituteStdQty,RequireQty) " & _
|
||
// // "values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
|
||
// // cmd.Parameters.AddWithValue(":MONo", dr("MONo").ToString.ToUpper)
|
||
// // cmd.Parameters.AddWithValue(":MaterialNo", dr("MaterialNo").ToString.ToUpper)
|
||
// // cmd.Parameters.AddWithValue(":MaterialLevel", dr("MaterialLevel"))
|
||
// // cmd.Parameters.AddWithValue(":StdQty", dr("StdQty"))
|
||
// // cmd.Parameters.AddWithValue(":UnitNo", dr("UnitNo").ToString.ToLower)
|
||
// // cmd.Parameters.AddWithValue(":OPNo", dr("OPNo").ToString.ToUpper)
|
||
// // cmd.Parameters.AddWithValue(":PutInPlaceType", dr("PutInPlaceType"))
|
||
// // cmd.Parameters.AddWithValue(":DecreaseRate", dr("DecreaseRate"))
|
||
// // cmd.Parameters.AddWithValue(":Specified", dr("Specified"))
|
||
// // cmd.Parameters.AddWithValue(":MaterialType", dr("MaterialType").ToString.ToUpper)
|
||
// // cmd.Parameters.AddWithValue(":CountWay", dr("CountWay"))
|
||
// // cmd.Parameters.AddWithValue(":CheckLotNo", dr("CheckLotNo"))
|
||
// // cmd.Parameters.AddWithValue(":MaterialVersion", dr("MaterialVersion"))
|
||
// // cmd.Parameters.AddWithValue(":MaterialMONo", dr("MaterialMONo"))
|
||
// // cmd.Parameters.AddWithValue(":SubstituteMaterialNo", dr("SubstituteMaterialNo").ToString.ToUpper)
|
||
// // cmd.Parameters.AddWithValue(":SubstituteMaterialLevel", dr("SubstituteMaterialLevel")) '2012/12/26,Even,新增替代物料階 &數量
|
||
// // cmd.Parameters.AddWithValue(":SubstituteStdQty", dr("SubstituteStdQty")) '2012/12/28,Even,新增替代物標準數
|
||
// // cmd.Parameters.AddWithValue(":RequireQty", dr("RequireQty"))
|
||
// // cmd.ExecuteNonQuery()
|
||
// // cmd.Parameters.Clear()
|
||
// }
|
||
//}
|
||
|
||
|
||
// add MO Process
|
||
// 依產品、產品版本、工單類別找出工單流程
|
||
// 參考kcOE.ShowProductProcess、kcOE.UpdMOProcessbyProduct、MEStc_WellDown.addMO
|
||
// 2012/07/26, Aaron, 修正取流程時無法取得多區段的流程
|
||
|
||
// 2018/11/19 OwenLiu, 透過共用Function 統一處理 MOProcess資料
|
||
ExamineMOProcess(MONo, ProductNo, ProductVersion, MOTypeNo, ref CollectionSQL, ref aryException, CustomerLotNo);
|
||
|
||
if (aryException.Count > 0)
|
||
goto exitfun;
|
||
|
||
// add MO Property
|
||
if (dtMOProperty.Rows.Count > 0)
|
||
{
|
||
foreach (DataRow dr in dtMOProperty.Rows)
|
||
{
|
||
strSQL = "insert into tbloemoproperty(mono,propertyno,propertyvalue) values('" + dr["MONo"].ToString().ToUpper() + "','" +
|
||
dr["PropertyNo"] + "','" + dr["PropertyValue"] + "')";
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.Parameters.AddWithValue(":MONo", dr("MONo").ToString.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":PropertyNo", dr("PropertyNo"))
|
||
// cmd.Parameters.AddWithValue(":PropertyValue", dr("PropertyValue"))
|
||
// cmd.CommandText = "insert into tbloemoproperty(mono,propertyno,propertyvalue) values(?,?,?)"
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
strSQL = "insert into tbloemoproperty_recive(mono,propertyno,propertyvalue) values('" + dr["MONo"].ToString().ToUpper() + "','" +
|
||
dr["PropertyNo"] + "','" + dr["PropertyValue"] + "')";
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.Parameters.AddWithValue(":MONo", dr("MONo").ToString.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":PropertyNo", dr("PropertyNo"))
|
||
// cmd.Parameters.AddWithValue(":PropertyValue", dr("PropertyValue"))
|
||
// cmd.CommandText = "insert into tbloemoproperty_recive(mono,propertyno,propertyvalue) values(?,?,?)"
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
}
|
||
}
|
||
|
||
|
||
// add MO SEMI Out
|
||
//
|
||
|
||
|
||
// trans.Commit()
|
||
//string argstrDataBaseType = "Null";
|
||
ExecuteSQLNoneQuery_UPD(objSetting.GetDataBaseType(), objSetting.GetConnectionString(), CollectionSQL);
|
||
r = true;
|
||
clsERP.combineMessage(ref aryMessage, mmsg: "[%AddMOSuccess%]");
|
||
}
|
||
|
||
catch (Exception ex)
|
||
{
|
||
// trans.Rollback()
|
||
clsERP.combineException(ref aryException, sysmsg: ex.Message, mesmsg: "[%AddMOFail%]", stack: iMESCore.Base.iMESComXML.CInput(ex.StackTrace));
|
||
|
||
}
|
||
// End Using
|
||
// End Using
|
||
// End Using
|
||
|
||
exitfun:
|
||
;
|
||
}
|
||
|
||
|
||
catch (Exception ex)
|
||
{
|
||
clsERP.combineException(ref aryException, sysmsg: ex.Message, mesmsg: "[%AddMOFail%]", stack: iMESCore.Base.iMESComXML.CInput(ex.StackTrace));
|
||
}
|
||
finally
|
||
{
|
||
CloseConnection(cnnTemp1);
|
||
addMORet = r;
|
||
}
|
||
|
||
return addMORet;
|
||
|
||
}
|
||
public static string AddMOMaterialList(string MONo, string MaterialNo, int MaterialLevel, double StdQty, double DecreaseRate, string OPNo, int Specified, int PutInPlaceType, string UnitNo, int MOFlag, string MaterialMONo, string Description = defString, Collection colReturnSQL = null, string AdditionalXml = "", string MaterialVersion = defString, string SubstituteMaterialNo = defString, int SubstituteMaterialLevel = defInteger, decimal RequireQty = defInteger, decimal SubstituteStdQty = defInteger, string Creator = defString, DateTime CreateDate = default(DateTime),string AB=defString,string PositionCode=defString)
|
||
{
|
||
string AddMOMaterialListRet = default(string);
|
||
// 此 Function 將新增一筆資料
|
||
// 傳入值: 各欄位新增值
|
||
// 傳回值: success(成功), fail(失敗)
|
||
|
||
DbDataReader drTemp = null;
|
||
string MaterialType = "N/A";
|
||
int CountWay = -1;
|
||
int CheckLotNo = -1;
|
||
IDbConnection cnnTemp = null;
|
||
|
||
string strSQL = "";
|
||
string strSQLAddField = "";
|
||
string strSQLAddValue = "";
|
||
|
||
|
||
AppSettings objSetting = new AppSettings();
|
||
|
||
string strDataBaseType = objSetting.GetDataBaseType();
|
||
string strConnectionString = objSetting.GetConnectionString(strDataBaseType);
|
||
|
||
try
|
||
{
|
||
cnnTemp = CreateConnection(strConnectionString); // //Create connection
|
||
|
||
if (MaterialLevel == 0) // Material
|
||
{
|
||
strSQL = "Select MaterialType,CountWay,CheckLotNo From tblMTLMaterialBasis" + " Where MaterialNo ='" + MaterialNo + "'";
|
||
// cmmTemp = New OleDb.OleDbCommand(strSQL, cnnTemp)
|
||
drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
if (drTemp.Read())
|
||
{
|
||
MaterialType = Conversions.ToString(drTemp["MaterialType"]);
|
||
CountWay = Conversions.ToInteger(drTemp["CountWay"]);
|
||
CheckLotNo = Conversions.ToInteger(drTemp["CheckLotNo"]);
|
||
}
|
||
else
|
||
{
|
||
throw new iMESException.MESException("0000-200003", "MaterialNo:" + MaterialNo + " is not exist!");
|
||
}
|
||
drTemp.Close();
|
||
}
|
||
// cmmTemp.Dispose()
|
||
|
||
else if (MaterialLevel == 1) // Product
|
||
{
|
||
strSQL = "Select ProductType From tblPRDProductBasis Where ProductNo ='" + MaterialNo + "'";
|
||
// cmmTemp = New OleDb.OleDbCommand(strSQL, cnnTemp)
|
||
drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
if (drTemp.Read())
|
||
{
|
||
MaterialType = Conversions.ToString(drTemp["ProductType"]);
|
||
}
|
||
else
|
||
{
|
||
throw new iMESException.MESException("0000-200003", "ProductNo:" + MaterialNo + " is not exist!");
|
||
}
|
||
drTemp.Close();
|
||
|
||
CheckLotNo = 1; // 一律要Check Lot
|
||
}
|
||
|
||
// Combine SQL
|
||
strSQLAddField = "Insert into tblOEMOMaterialList (MONo, MaterialNo, OrgMaterialNo, MaterialLevel, StdQty, UnitNo," + "DecreaseRate, OPNo, Specified, PutInPlaceType, MOFlag, MaterialType, CountWay, CheckLotNo ";
|
||
strSQLAddValue = " Values ('" + MONo + "', '" + MaterialNo + "','" + MaterialNo + "'," + MaterialLevel + "," + StdQty + ",'" + UnitNo + "'," + DecreaseRate + ",'" + OPNo + "'," + Specified + "," + PutInPlaceType + "," + MOFlag + ",'" + MaterialType + "'," + CountWay + "," + CheckLotNo;
|
||
|
||
|
||
if (MOFlag == 0) // Create MO,紀錄半成品的工單編號
|
||
{
|
||
strSQLAddField = strSQLAddField + ",MaterialMONo";
|
||
strSQLAddValue = strSQLAddValue + ",'" + MaterialMONo + "'";
|
||
}
|
||
else
|
||
{
|
||
strSQLAddField = strSQLAddField + ",MaterialMONo";
|
||
strSQLAddValue = strSQLAddValue + ",'N/A'";
|
||
}
|
||
if (Description != defString)
|
||
{
|
||
strSQLAddField = strSQLAddField + ",Description";
|
||
strSQLAddValue = strSQLAddValue + ",'" + Description + "'";
|
||
}
|
||
if (MaterialVersion != defString)
|
||
{
|
||
strSQLAddField = strSQLAddField + ",MaterialVersion";
|
||
strSQLAddValue = strSQLAddValue + ",'" + MaterialVersion + "'";
|
||
}
|
||
if (SubstituteMaterialNo != defString)
|
||
{
|
||
strSQLAddField = strSQLAddField + ",SubstituteMaterialNo";
|
||
strSQLAddValue = strSQLAddValue + ",'" + SubstituteMaterialNo + "'";
|
||
}
|
||
|
||
// 2012/12/27,Even,新增替代料等級及需求數量
|
||
if (SubstituteMaterialLevel != defInteger)
|
||
{
|
||
strSQLAddField = strSQLAddField + ",SubstituteMaterialLevel";
|
||
strSQLAddValue = strSQLAddValue + ",'" + SubstituteMaterialLevel + "'";
|
||
}
|
||
if (SubstituteStdQty != defInteger)
|
||
{
|
||
strSQLAddField = strSQLAddField + ",SubstituteStdQty";
|
||
strSQLAddValue = strSQLAddValue + ",'" + SubstituteStdQty + "'";
|
||
}
|
||
if (RequireQty != defInteger)
|
||
{
|
||
strSQLAddField = strSQLAddField + ",RequireQty";
|
||
strSQLAddValue = strSQLAddValue + ",'" + RequireQty + "'";
|
||
}
|
||
if (Creator != defString)
|
||
{
|
||
strSQLAddField = strSQLAddField + ",Creator";
|
||
strSQLAddValue = strSQLAddValue + ",'" + Creator + "'";
|
||
}
|
||
if (CreateDate != defDateTime)
|
||
{
|
||
strSQLAddField = strSQLAddField + ",CreateDate";
|
||
strSQLAddValue = strSQLAddValue + ",To_Date('" + Strings.Format(CreateDate, "yyyy/MM/dd H:mm:ss") + "','YYYY/MM/DD HH24:MI:SS')";
|
||
}
|
||
|
||
if (string.IsNullOrEmpty(AdditionalXml))
|
||
{
|
||
// 當沒有額外的欄位時,直接給定strSQL
|
||
strSQL = strSQLAddField + ")" + strSQLAddValue + ")";
|
||
}
|
||
else
|
||
{
|
||
// 加上additional的field & value 後傳回
|
||
strSQL = SeparateAddXML_Add(ref strSQLAddField, ref strSQLAddValue, AdditionalXml);
|
||
}
|
||
|
||
// 呼叫執行SQL指令
|
||
if (colReturnSQL == null)
|
||
{
|
||
ExecuteSQLNoneQuery(Conversions.ToString(strDataBaseType), strConnectionString, ref strSQL);
|
||
}
|
||
else
|
||
{
|
||
// 不執行指令,將指令傳出
|
||
colReturnSQL.Add(strSQL);
|
||
}
|
||
|
||
// Return success
|
||
AddMOMaterialListRet = "success";
|
||
}
|
||
|
||
catch (Exception e1)
|
||
{
|
||
AddMOMaterialListRet = "fail";
|
||
// 發生錯誤時丟回本身的Function Name及系統錯誤訊息
|
||
throw;
|
||
} // New Exception("kcOE.AddMOMaterialList: " & e1.Message)
|
||
|
||
finally
|
||
{
|
||
CloseConnection(cnnTemp);
|
||
|
||
}
|
||
|
||
return AddMOMaterialListRet;
|
||
|
||
}
|
||
|
||
/// <summary>
|
||
/// 編輯工單(工單變更)
|
||
/// </summary>
|
||
/// <param name="MONo"></param>
|
||
/// <param name="MOQty"></param>
|
||
/// <param name="RONo"></param>
|
||
/// <param name="ItemNo"></param>
|
||
/// <param name="CustomerNo"></param>
|
||
/// <param name="MOTypeNo"></param>
|
||
/// <param name="Priority"></param>
|
||
/// <param name="PlanFinishDate"></param>
|
||
/// <param name="Creator"></param>
|
||
/// <param name="CreateDate"></param>
|
||
/// <param name="Description"></param>
|
||
/// <param name="dtMTL"></param>
|
||
/// <param name="aryMessage"></param>
|
||
/// <param name="aryException"></param>
|
||
/// <param name="aryAlert"></param>
|
||
/// <param name="dtMOProperty"></param>
|
||
/// <returns></returns>
|
||
/// <remarks></remarks>
|
||
public static bool editMO(string MONo, decimal MOQty, string RONo = null, string ItemNo = null, string CustomerNo = null, int MOTypeNo = defInteger, int Priority = defInteger, DateTime PlanFinishDate = default(DateTime), string Creator = null, DateTime CreateDate = default(DateTime), string Description = null, DataTable dtMTL = null, List<ArrayList> aryMessage = null, List<ArrayList> aryException = null, List<ArrayList> aryAlert = null, DataTable dtMOProperty = null, string ERPMOLineNo = defString, bool PropertyFlag = false, string CustomerLotNo = null, DateTime PlanStartDate = default(DateTime), int wipEntityId = defInteger, string bomVersion = null, string lcPlantype = null, string faiFlag = null) // haoqian 221025
|
||
{
|
||
bool editMORet = default(bool);
|
||
|
||
bool r = false;
|
||
var CollectionSQL = new Collection();
|
||
string strSQL = "";
|
||
|
||
try
|
||
{
|
||
|
||
// ----- Default Value -----
|
||
int MOSource = 0; // 0: RO, 1: RMA, 2: None
|
||
int MOState = 0; // 0: Unconfirm, 1: Pending, 2: Confirm, 3: Release(允許開立生產批), 6: 已在客託倉或退貨倉的工單(允許開立生產批), 99:Close
|
||
int IssueState = 0;
|
||
string BelongToMONo = "N/A";
|
||
string ENGNo = "N/A";
|
||
string ENGVersion = "N/A";
|
||
//string CustomerLotNo = string.Empty;
|
||
string FactoryNo = "N/A";
|
||
decimal AdjustQty = 0m;
|
||
string OPNo = "LOTCREATE";
|
||
|
||
// ---- Get Value -----
|
||
string CustomerName = string.Empty;
|
||
string ProductVersion = string.Empty;
|
||
string ProcessNo = string.Empty;
|
||
string ProcessVersion = string.Empty;
|
||
|
||
bool isROExist = false;
|
||
bool isRODetailExist = false;
|
||
|
||
string ItemProperty = defString; // 2016-10-17, Joe, 新增料件屬性，P：採購件，M：自製件，S：外包件
|
||
int OutSourcingFlag = defInteger; // 2016-10-17, Joe, 0:off，1:on
|
||
string ProductNo = defString;
|
||
|
||
var ReleaseQty = default(decimal);
|
||
|
||
// ----- 1. 檢查MO是否存在 -----
|
||
MONo = MONo.ToUpper();
|
||
|
||
using (var objOE = new clsOEBasis())
|
||
{
|
||
|
||
var drOE = objOE.GetMOBasis(MONo.ToUpper());
|
||
if (drOE["MONo"] is DBNull == true)
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MONoNotExist%]");
|
||
// If drOE.Item("IssueState") < 0 Or drOE.Item("IssueState") > 2) clsERP.combineException(aryException, , , "[%MONoIssueStateCanNotEdit%]")
|
||
|
||
|
||
if (!(drOE["MOState"] is DBNull))
|
||
{
|
||
if (Convert.ToBoolean(Operators.ConditionalCompareObjectEqual(drOE["MOState"], 99, false)))
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MONoClosed%]");
|
||
}
|
||
|
||
// 2020/08/11 Grace Mantis 76332 依據規格書說明調整：若訂單號碼有傳入，此項目應一併傳入，若未傳入則預設為1
|
||
if (string.IsNullOrEmpty(ItemNo) == true)
|
||
ItemNo = "1";
|
||
|
||
// ----- 2. 檢查訂單資料 -----
|
||
if (string.IsNullOrEmpty(RONo) == false)
|
||
{
|
||
if (RONo.ToUpper() != drOE["RONo"].ToString())
|
||
clsERP.combineException(ref aryException, mesmsg: "[%RONoCanNotChange%]");
|
||
if (ItemNo != drOE["ItemNo"].ToString())
|
||
clsERP.combineException(ref aryException, mesmsg: "[%ROItemNoCanNotChange%]");
|
||
}
|
||
|
||
// ----- 3. 檢查MO剩餘數量 -----
|
||
// If MOQty < drOE.Item("UnReleaseLotQty")) clsERP.combineException(aryException, , , "[%MOQtyLassThenUnReleaseLotQty%]")
|
||
|
||
// 要修改的MOQty不可小於已下線數量:MOQtyLessThenReleaseLotQty, 2009/05/05,by yumei
|
||
if (!(drOE["MOQty"] is DBNull))
|
||
{
|
||
ReleaseQty = Convert.ToDecimal(Operators.SubtractObject(drOE["MOQty"], drOE["UnReleaseLotQty"]));
|
||
if (MOQty < ReleaseQty)
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MOQtyLessThenReleaseLotQty%]");
|
||
}
|
||
|
||
if (!(drOE["IssueState"] is DBNull))
|
||
{
|
||
//檢查工單數量的變更是否合理
|
||
if (Conversions.ToInteger(drOE["IssueState"]) == 2)
|
||
{
|
||
var dsOEMOC = objOE.ShowMOComponent(MONo.ToUpper());
|
||
if (dsOEMOC.Tables[0].Rows.Count > 0)
|
||
{
|
||
//tblOEMOComponent.InventoryNo多筆相同
|
||
if (!(dsOEMOC.Tables[0].Rows[0]["InventoryNo"] is DBNull))
|
||
{
|
||
clsERP.combineException(ref aryException, mesmsg: "[%EditMOQtyIsNotAllowed_InventoryNo%]");
|
||
}
|
||
else
|
||
{
|
||
if (!(drOE["MOQty"] is DBNull))
|
||
{
|
||
if (MOQty < Convert.ToDecimal(drOE["MOQty"]))
|
||
{
|
||
if (dsOEMOC.Tables[0].Rows.Count > MOQty)
|
||
{
|
||
clsERP.combineException(ref aryException, mesmsg: "[%EditMOQtyIsNotAllowed_WaferSouceType%]");
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
ProductNo = drOE["ProductNo"].ToString();
|
||
|
||
}
|
||
|
||
if (aryException.Count > 0)
|
||
goto exitfun;
|
||
|
||
// ----- 3. 檢查MOSource-----
|
||
if (string.IsNullOrEmpty(RONo))
|
||
MOSource = 2; // MO來源為其他(暫不考慮RMA)
|
||
|
||
// ----- 4. 檢查CustomerNo是否存在 -----
|
||
if (MOSource == 0)
|
||
{
|
||
if (string.IsNullOrEmpty(CustomerNo))
|
||
{
|
||
// 未傳入
|
||
clsERP.combineException(ref aryException, mesmsg: "[%ROWithoutCustomerNo%]");
|
||
}
|
||
else
|
||
{
|
||
// 有傳入=>檢查Customer主檔
|
||
using (var objENT = new clsCustomerBasis())
|
||
{
|
||
var dr = objENT.GetCustomerBasis(CustomerNo.ToUpper());
|
||
if (dr["CustomerNo"] is DBNull == true)
|
||
{
|
||
// Customer主檔未建立
|
||
// clsERP.combineException(aryException, , , "[%CustomerNoNotExist%]")
|
||
|
||
// 5.3 若拋入訂單號碼，則必須拋入客戶編號，系統應檢查tblENTCustomerBasis之中是否存在此客戶，若無則自動新增
|
||
objENT.AddCustomerBasis(CustomerNo.ToUpper(), CustomerNo, CustomerNo, "NULL", "NULL", "NULL", "NULL", "NULL", "NULL");
|
||
objENT.SetCustomerBasisIssueState(CustomerNo.ToUpper(), 2);
|
||
}
|
||
else
|
||
{
|
||
CustomerName = dr["CustomerName"].ToString();
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
// ----- 5. 檢查Product -----
|
||
// Using objPRD As New kcPRD.clsProduct
|
||
// Dim dr As DataRow = objPRD.GetProduct(ProductNo.ToUpper)
|
||
// If IsDBNull(dr("ProductNo")) = True) clsERP.combineException(aryException, , , "[%ProductNoNotExist%]")
|
||
// If IsDBNull(dr("ProductNo")) = False AndAlso dr("IssueState") <> 2) clsERP.combineException(aryException, , , "[%ProductNotApproved%]")
|
||
|
||
// '----- 6. 檢查MOUnitNo -----
|
||
// If IsDBNull(dr("ProductNo")) = False AndAlso dr("UnitNo").ToString.ToLower <> MOUnitNo.ToLower) clsERP.combineException(aryException, , , "[%ProductandMOwithdifferentUnitNo%]")
|
||
// dr.Delete()
|
||
|
||
// Try
|
||
// ProductVersion = objPRD.GetProductCurVersion(ProductNo.ToUpper)
|
||
// Catch ex As Exception
|
||
// clsERP.combineException(aryException, , , "[%GetProductVersionFail%]")
|
||
// End Try
|
||
// End Using
|
||
|
||
using (var objPRD = new clsProduct())
|
||
{
|
||
try
|
||
{
|
||
ProductVersion = objPRD.GetProductCurVersion(ProductNo.ToUpper());
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
clsERP.combineException(ref aryException, mesmsg: "[%GetProductVersionFail%]");
|
||
}
|
||
// 2016-10-17, Joe, 取得ItemProperty
|
||
var drItemProperty = objPRD.GetProductProperty(ProductNo, ProductVersion, "ItemProperty");
|
||
if (drItemProperty == null == false && drItemProperty["DefaultValue"] is DBNull == false)
|
||
{
|
||
ItemProperty = drItemProperty["DefaultValue"].ToString();
|
||
}
|
||
}
|
||
// 2016-10-17, Joe, 取得外包控制
|
||
using (var objSYS = new clsSYSParameter())
|
||
{
|
||
OutSourcingFlag = Conversions.ToInteger(objSYS.GetParameterValue("OutSourcingFlag"));
|
||
}
|
||
// 2016-10-17, Joe, 若該產品品號屬性屬於S且外包控管參數為Off時，MES不做工單新增/修改，直接回應OK，但訊息應回傳『MES系統不支持外包工單』
|
||
if (ItemProperty == "S" & OutSourcingFlag == 0)
|
||
{
|
||
clsERP.combineMessage(ref aryMessage, mmsg: "[%ProductNo%]:" + ProductNo + ",[%ProductVersion%]:" + ProductVersion + ",[%Is%] [%OutSourcing%] [%Product%], MES [%IsNotSupported%] !");
|
||
if (aryMessage.Count > 0)
|
||
goto exitfun;
|
||
}
|
||
|
||
// ----- 7. 檢查用料清單資料 -----
|
||
if (dtMTL.Rows.Count > 0)
|
||
{
|
||
bool blnWF = false;
|
||
//2023/12/07,Ning,151196: [6.0.7] SDD231107_01-01_WF 工單整合接口調整
|
||
//取得目前ERP是否為WF
|
||
using (var objSYSPar = new kcSYS.clsSYSParameter())
|
||
{
|
||
var dsTemp = new DataSet();
|
||
dsTemp = objSYSPar.ShowERPSetting(ActiveERP: 1);
|
||
if (dsTemp != null && dsTemp.Tables[0].Rows.Count > 0)
|
||
{
|
||
if (dsTemp.Tables[0].Rows[0]["ERP_Name"].ToString().ToUpper() == "WORKFLOW")
|
||
{
|
||
blnWF = true;
|
||
}
|
||
}
|
||
}
|
||
|
||
if (!dtMTL.Columns.Contains("MaterialMONo"))
|
||
dtMTL.Columns.Add("MaterialMONo", Type.GetType("System.String"));
|
||
|
||
// dtMTL: MONo, MaterialNo, MaterialLevel, StdQty, UnitNo, OPNo, PutInPlaceType, DecreaseRate, Specified, *MaterialType, CountWay, *CheckLotNo, *MaterialVersion, +MaterialMONo, +*SubstituteMaterialNo
|
||
|
||
foreach (DataRow dr in dtMTL.Rows)
|
||
{
|
||
string strMaterialUnit = dr["UnitNo"].ToString();
|
||
decimal decTemp = 0m;
|
||
try
|
||
{
|
||
if (string.IsNullOrEmpty(dr["MainItem"].ToString()))
|
||
{
|
||
// 未傳入
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MainItem%]");
|
||
}
|
||
|
||
//if (string.IsNullOrEmpty(dr["PhantomItem"].ToString()))
|
||
//{
|
||
// // 未傳入
|
||
// clsERP.combineException(ref aryException, mesmsg: "[%PhantomItem%]");
|
||
//}
|
||
|
||
if (string.IsNullOrEmpty(dr["LockRequirement"].ToString()))
|
||
{
|
||
// 未傳入
|
||
clsERP.combineException(ref aryException, mesmsg: "[%LockRequirement%]");
|
||
}
|
||
|
||
if (string.IsNullOrEmpty(dr["OperationSeqnum"].ToString()))
|
||
{
|
||
// 未傳入
|
||
clsERP.combineException(ref aryException, mesmsg: "[%OperationSeqnum%]");
|
||
}
|
||
|
||
if (blnWF == true)
|
||
{
|
||
if (Conversions.ToInteger(dr["StdQty"]) != Convert.ToDecimal(dr["StdQty"])) //若標準用量有小數, 需以ERP所傳入的該物料的需領用量(RequireQty)/預計產量(MOQty)，並以無條件捨去取到小數六位數的值，做為該物料的標準用量
|
||
{
|
||
decTemp = (Convert.ToDecimal(dr["RequireQty"]) / MOQty) * 1000000;
|
||
decTemp = Math.Floor(decTemp);
|
||
decTemp = decTemp / 1000000;
|
||
dr["StdQty"] = decTemp;
|
||
}
|
||
if (Conversions.ToInteger(dr["SubstituteStdQty"]) != Convert.ToDecimal(dr["SubstituteStdQty"])) //若替代料標準用量有小數同標準用量處理
|
||
{
|
||
decTemp = (Convert.ToDecimal(dr["RequireQty"]) / MOQty) * 1000000;
|
||
decTemp = Math.Floor(decTemp);
|
||
decTemp = decTemp / 1000000;
|
||
dr["SubstituteStdQty"] = decTemp;
|
||
}
|
||
}
|
||
if (dr["MaterialLevel"].ToString() == "0")
|
||
{
|
||
// 用料清單為物料
|
||
using (var objMTL = new clsMTLBasis())
|
||
{
|
||
DataRow drMTL = null;
|
||
bool errorFlag = false;
|
||
dr["MONo"] = dr["MONo"].ToString().ToUpper();
|
||
|
||
drMTL = objMTL.GetMaterialBasis(dr["MaterialNo"].ToString().ToUpper());
|
||
// (skip) MONo, MaterialLevel, STDQty, DecreaseRate, OPNo, Specified, PutinPlaceType, MOFlag, CountWay, Description, OrgMaterialNo, EX_MTLList1, EX_MTLList2, MaterialVersion
|
||
|
||
// MaterialNo
|
||
if (drMTL["MaterialNo"] is DBNull == true) // 2013/02/19,Even，以物料編號在物料主檔中查詢，查不到表示該項為半成品，因為TIPTOP系統中，物料和產品在同一個table內，使用者可能挑選到產品卻以為是物料
|
||
{
|
||
errorFlag = true;
|
||
clsERP.combineException(ref aryException, mesmsg: " [%MaterialNo%]:" +
|
||
dr["MaterialNo"] + " [%MaterialNoNotExist%][%InMESSystem%]! [%MaterialLevel%][%IsMaterial%].");
|
||
goto SkipMaterialList;
|
||
}
|
||
else
|
||
{
|
||
dr["MaterialNo"] = dr["MaterialNo"].ToString().ToUpper();
|
||
}
|
||
|
||
// UnitNo
|
||
if (drMTL["UnitNo"].ToString().ToLower() != strMaterialUnit.ToLower())
|
||
{
|
||
// 當用料清單和物料主檔的單位不同時
|
||
// 單位轉換
|
||
using (var objUnit = new udUnitTransferFunction.clsUnitTransferFunction())
|
||
{
|
||
var colParameters = new Collection();
|
||
colParameters.Add(dr["MaterialNo"].ToString().ToUpper(), "ProductNo");
|
||
colParameters.Add("*", "ProductVersion");
|
||
|
||
try
|
||
{
|
||
dr["StdQty"] = Convert.ToDouble(objUnit.EXETransferQty(strMaterialUnit.ToLower(), drMTL["UnitNo"].ToString().ToLower(), Convert.ToDouble(dr["StdQty"]), colParameters));
|
||
dr["SubstituteStdQty"] = Convert.ToDouble(objUnit.EXETransferQty(strMaterialUnit.ToLower(), drMTL["UnitNo"].ToString().ToLower(), Convert.ToDouble(dr["SubstituteStdQty"]), colParameters));
|
||
dr["UnitNo"] = drMTL["UnitNo"].ToString().ToLower();
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
errorFlag = true;
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitNoDifferent%]" + " [%MaterialNo%]:" +
|
||
dr["MaterialNo"]);
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitTransferFail%]" + " " + ex.Message);
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dr["UnitNo"] = dr["UnitNo"].ToString().ToLower();
|
||
}
|
||
|
||
// MaterialMONo (Default)
|
||
dr["MaterialMONo"] = "N/A";
|
||
|
||
// MaterialType
|
||
if (dr["MaterialType"] is DBNull == true)
|
||
{
|
||
dr["MaterialType"] = drMTL["MaterialType"];
|
||
}
|
||
else if (Convert.ToBoolean(Operators.ConditionalCompareObjectEqual(dr["MaterialType"].ToString().ToUpper(), drMTL["MaterialType"], false)))
|
||
{
|
||
dr["MaterialType"] = dr["MaterialType"].ToString().ToUpper();
|
||
}
|
||
else
|
||
{
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MaterialListMaterialTypeDifferent%]" + " [%MaterialNo%]:" +
|
||
dr["MaterialNo"]);
|
||
}
|
||
|
||
// CheckLotNo
|
||
if (dr["CheckLotNo"] is DBNull == true)
|
||
{
|
||
dr["CheckLotNo"] = drMTL["CheckLotNo"];
|
||
}
|
||
else if (Convert.ToBoolean(Operators.ConditionalCompareObjectNotEqual(dr["CheckLotNo"], drMTL["CheckLotNo"], false)))
|
||
{
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MaterialListCheckLotNoDifferent%]" + " [%MaterialNo%]:" +
|
||
dr["MaterialNo"]);
|
||
}
|
||
|
||
// 2013/02/20,Even,修改替代料檢查
|
||
if (dr["SubstituteMaterialNo"] is DBNull == true)
|
||
{
|
||
dr["SubstituteMaterialNo"] = dr["MaterialNo"];
|
||
dr["SubstituteMaterialLevel"] = dr["MaterialLevel"];
|
||
}
|
||
// 2013/02/25,Even,判斷替代料，替代料可為半成品或是物料
|
||
else if (dr["SubstituteMaterialLevel"].ToString() == "0") // 為物料
|
||
{
|
||
// 查詢替代料是否在物料主檔內，若無，則出現錯誤訊息
|
||
drMTL = objMTL.GetMaterialBasis(dr["SubstituteMaterialNo"].ToString().ToUpper());
|
||
if (drMTL["MaterialNo"] is DBNull == true)
|
||
{
|
||
errorFlag = true;
|
||
clsERP.combineException(ref aryException, mesmsg: " [%SubstituteMaterialNo%]:" +
|
||
dr["SubstituteMaterialNo"] + " [%MaterialNoNotExist%][%InMESSystem%]! [%SubstituteMaterialLevel%][%IsMaterial%].");
|
||
goto SkipMaterialList;
|
||
}
|
||
else
|
||
{
|
||
dr["SubstituteMaterialNo"] = dr["SubstituteMaterialNo"].ToString().ToUpper();
|
||
}
|
||
}
|
||
else // 為半成品 (SubstituteMaterialLevel = 1)
|
||
{
|
||
DataRow drPRD = null;
|
||
// 檢查物料是否存在於產品主檔
|
||
using (var objPRD = new clsProduct())
|
||
{
|
||
drPRD = objPRD.GetProduct(dr["SubstituteMaterialNo"].ToString().ToUpper());
|
||
}
|
||
if (drPRD["ProductNo"] is DBNull == true)
|
||
{
|
||
errorFlag = true;
|
||
clsERP.combineException(ref aryException, mesmsg: " [%SubstituteMaterialNo%]:" +
|
||
dr["SubstituteMaterialNo"] + " [%ProductNoNotExist%][%InMESSystem%]! [%SubstituteMaterialLevel%][%IsProduct%].");
|
||
goto SkipMaterialList;
|
||
}
|
||
else
|
||
{
|
||
dr["SubstituteMaterialNo"] = dr["SubstituteMaterialNo"].ToString().ToUpper();
|
||
}
|
||
}
|
||
|
||
if (dr["SubstituteStdQty"] is DBNull == true)
|
||
{
|
||
dr["SubstituteStdQty"] = dr["StdQty"];
|
||
}
|
||
// 2019/12/16 OwenLiu, Mantis:0065576 , 工單整合(新增)時用料需求數支援單位轉換
|
||
decimal decRequireQty = 0m;
|
||
if (dr["RequireQty"] is DBNull == true)
|
||
{
|
||
// ERP未傳入需求數(RequireQty)
|
||
// 2019/12/23 OwenLiu, Mantis:0065953 修正工單整合 用料清單單位轉換的問題
|
||
dr["RequireQty"] = Operators.MultiplyObject(Operators.MultiplyObject(MOQty, dr["StdQty"]), Operators.AddObject(1, dr["DecreaseRate"]));
|
||
}
|
||
else
|
||
{
|
||
decRequireQty = Convert.ToDecimal(dr["RequireQty"]);
|
||
// 2019/12/23 OwenLiu, Mantis:0065953 修正工單整合 用料清單單位轉換的問題
|
||
if (drMTL["UnitNo"].ToString().ToLower() != strMaterialUnit.ToLower())
|
||
{
|
||
// 當用料清單和物料主檔的單位不同時
|
||
using (var objUnit = new udUnitTransferFunction.clsUnitTransferFunction())
|
||
{
|
||
var colParameters = new Collection();
|
||
colParameters.Add(dr["MaterialNo"].ToString().ToUpper(), "ProductNo");
|
||
colParameters.Add("*", "ProductVersion");
|
||
try
|
||
{
|
||
dr["RequireQty"] = Convert.ToDouble(objUnit.EXETransferQty(strMaterialUnit.ToLower(), drMTL["UnitNo"].ToString().ToLower(), (double)decRequireQty, colParameters));
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
errorFlag = true;
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitNoDifferent%]" + " [%MaterialNo%]:" +
|
||
dr["MaterialNo"]);
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitTransferFail%]" + " " + ex.Message);
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dr["RequireQty"] = decRequireQty;
|
||
}
|
||
}
|
||
|
||
// 檢查OPNo(用料作業站)是否存在 -----
|
||
if (dr["OPNo"].ToString().ToUpper() != "LOTCREATE")
|
||
{
|
||
// 有傳入=>檢查OP主檔
|
||
using (var objOP = new clsOpBasis())
|
||
{
|
||
var drOP = objOP.GetOPBasis(dr["OPNo"].ToString().ToUpper());
|
||
if (drOP["OPNo"] is DBNull == true)
|
||
{
|
||
// OP主檔未建立
|
||
clsERP.combineException(ref aryException, mesmsg: "[%OPNoNotExist%]");
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
// 用料清單為半成品
|
||
using (var objPRD = new clsProduct())
|
||
{
|
||
DataRow drPRD = null;
|
||
bool errorFlag = false;
|
||
dr["MONo"] = dr["MONo"].ToString().ToUpper();
|
||
|
||
drPRD = objPRD.GetProduct(dr["MaterialNo"].ToString().ToUpper());
|
||
// (skip) MONo, MaterialLevel, STDQty, DecreaseRate, OPNo, Specified, PutinPlaceType, MOFlag, CountWay, Description, OrgMaterialNo, EX_MTLList1, EX_MTLList2, MaterialVersion
|
||
|
||
// MaterialNo
|
||
if (drPRD["ProductNo"] is DBNull == true)
|
||
{
|
||
errorFlag = true;
|
||
clsERP.combineException(ref aryException, mesmsg: " [%MaterialNo%]:" +
|
||
dr["MaterialNo"] + " [%ProductNoNotExist%][%InMESSystem%]! [%MaterialLevel%][%IsProduct%].");
|
||
goto SkipMaterialList;
|
||
}
|
||
else
|
||
{
|
||
dr["MaterialNo"] = dr["MaterialNo"].ToString().ToUpper();
|
||
}
|
||
|
||
// UnitNo
|
||
if (drPRD["UnitNo"].ToString().ToLower() != dr["UnitNo"].ToString().ToLower())
|
||
{
|
||
// 當用料清單和物料主檔的單位不同時
|
||
// 單位轉換
|
||
using (var objUnit = new udUnitTransferFunction.clsUnitTransferFunction())
|
||
{
|
||
var colParameters = new Collection();
|
||
colParameters.Add(dr["MaterialNo"].ToString().ToUpper(), "ProductNo");
|
||
colParameters.Add("*", "ProductVersion");
|
||
|
||
try
|
||
{
|
||
dr["StdQty"] = Convert.ToDouble(objUnit.EXETransferQty(strMaterialUnit.ToLower(), drPRD["UnitNo"].ToString().ToLower(), Convert.ToDouble(dr["StdQty"]), colParameters));
|
||
|
||
dr["SubstituteStdQty"] = Convert.ToDouble(objUnit.EXETransferQty(strMaterialUnit.ToLower(), drPRD["UnitNo"].ToString().ToLower(), Convert.ToDouble(dr["SubstituteStdQty"]), colParameters));
|
||
|
||
dr["UnitNo"] = drPRD["UnitNo"].ToString().ToLower();
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
errorFlag = true;
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitNoDifferent%]" + " [%MaterialNo%]:" +
|
||
dr["MaterialNo"]);
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitTransferFail%]" + " " + ex.Message);
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dr["UnitNo"] = dr["UnitNo"].ToString().ToLower();
|
||
}
|
||
|
||
// MaterialMONo (Default)
|
||
dr["MaterialMONo"] = "N/A";
|
||
|
||
// MaterialType
|
||
if (dr["MaterialType"] is DBNull == true)
|
||
{
|
||
dr["MaterialType"] = drPRD["ProductType"];
|
||
}
|
||
else if (Convert.ToBoolean(Operators.ConditionalCompareObjectEqual(dr["MaterialType"].ToString().ToUpper(), drPRD["ProductType"], false)))
|
||
{
|
||
dr["MaterialType"] = dr["MaterialType"].ToString().ToUpper();
|
||
}
|
||
else
|
||
{
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MaterialListMaterialTypeDifferent%]" + " [%MaterialNo%]:" +
|
||
dr["MaterialNo"]);
|
||
}
|
||
|
||
// CheckLotNo
|
||
dr["CheckLotNo"] = 1; // 半成品固定為1
|
||
|
||
// SubstituteMaterialNo
|
||
// ---2013/02/20,Even,替代料是否存在的檢查----
|
||
if (dr["SubstituteMaterialNo"] is DBNull == true)
|
||
{
|
||
dr["SubstituteMaterialNo"] = dr["MaterialNo"];
|
||
dr["SubstituteMaterialLevel"] = dr["MaterialLevel"];
|
||
}
|
||
else
|
||
{
|
||
DataRow drMTL = null;
|
||
// 2013/02/25,Even,判斷替代料，替代料可為半成品或是物料
|
||
if (dr["SubstituteMaterialLevel"].ToString() == "0") // 為物料
|
||
{
|
||
// 查詢替代料是否在物料主檔內，若無，則出現錯誤訊息
|
||
using (var objMTL = new clsMTLBasis())
|
||
{
|
||
drMTL = objMTL.GetMaterialBasis(dr["SubstituteMaterialNo"].ToString().ToUpper());
|
||
}
|
||
|
||
if (drMTL["MaterialNo"] is DBNull == true)
|
||
{
|
||
errorFlag = true;
|
||
clsERP.combineException(ref aryException, mesmsg: " [%SubstituteMaterialNo%]:" +
|
||
dr["SubstituteMaterialNo"] + " [%MaterialNoNotExist%][%InMESSystem%]! [%SubstituteMaterialLevel%][%IsMaterial%].");
|
||
goto SkipMaterialList;
|
||
}
|
||
else
|
||
{
|
||
dr["SubstituteMaterialNo"] = dr["SubstituteMaterialNo"].ToString().ToUpper();
|
||
}
|
||
}
|
||
else // 為半成品 (SubstituteMaterialLevel = 1)
|
||
{
|
||
// 檢查物料是否存在於產品主檔
|
||
drPRD = objPRD.GetProduct(dr["SubstituteMaterialNo"].ToString().ToUpper());
|
||
if (drPRD["ProductNo"] is DBNull == true)
|
||
{
|
||
errorFlag = true;
|
||
clsERP.combineException(ref aryException, mesmsg: " [%SubstituteMaterialNo%]:" +
|
||
dr["SubstituteMaterialNo"] + " [%ProductNoNotExist%][%InMESSystem%]! [%SubstituteMaterialLevel%][%IsProduct%].");
|
||
goto SkipMaterialList;
|
||
}
|
||
else
|
||
{
|
||
dr["SubstituteMaterialNo"] = dr["SubstituteMaterialNo"].ToString().ToUpper();
|
||
}
|
||
}
|
||
}
|
||
|
||
if (dr["SubstituteStdQty"] is DBNull == true)
|
||
{
|
||
dr["SubstituteStdQty"] = dr["StdQty"];
|
||
}
|
||
|
||
// 2019/12/16 OwenLiu, Mantis:0065576 , 工單整合(新增)時用料需求數支援單位轉換
|
||
decimal decRequireQty = 0m;
|
||
if (dr["RequireQty"] is DBNull == true)
|
||
{
|
||
// ERP未傳入需求數(RequireQty)
|
||
// 2019/12/23 OwenLiu, Mantis:0065953 修正工單整合 用料清單單位轉換的問題
|
||
dr["RequireQty"] = Operators.MultiplyObject(Operators.MultiplyObject(MOQty, dr["StdQty"]), Operators.AddObject(1, dr["DecreaseRate"]));
|
||
}
|
||
else
|
||
{
|
||
decRequireQty = Convert.ToDecimal(dr["RequireQty"]);
|
||
// 2019/12/23 OwenLiu, Mantis:0065953 修正工單整合 用料清單單位轉換的問題
|
||
if (drPRD["UnitNo"].ToString().ToLower() != strMaterialUnit.ToLower())
|
||
{
|
||
// 當用料清單和產品主檔的單位不同時
|
||
using (var objUnit = new udUnitTransferFunction.clsUnitTransferFunction())
|
||
{
|
||
var colParameters = new Collection();
|
||
colParameters.Add(dr["MaterialNo"].ToString().ToUpper(), "ProductNo");
|
||
colParameters.Add("*", "ProductVersion");
|
||
try
|
||
{
|
||
dr["RequireQty"] = Convert.ToDouble(objUnit.EXETransferQty(strMaterialUnit.ToLower(), drPRD["UnitNo"].ToString().ToLower(), (double)decRequireQty, colParameters));
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
errorFlag = true;
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitNoDifferent%]" + " [%MaterialNo%]:" +
|
||
dr["MaterialNo"]);
|
||
clsERP.combineException(ref aryException, mesmsg: "[%MaterialListUnitTransferFail%]" + " " + ex.Message);
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dr["RequireQty"] = decRequireQty;
|
||
}
|
||
}
|
||
|
||
// 檢查OPNo(用料作業站)是否存在 -----
|
||
if (dr["OPNo"].ToString().ToUpper() != "LOTCREATE")
|
||
{
|
||
// 有傳入=>檢查OP主檔
|
||
using (var objOP = new clsOpBasis())
|
||
{
|
||
var drOP = objOP.GetOPBasis(dr["OPNo"].ToString().ToUpper());
|
||
if (drOP["OPNo"] is DBNull == true)
|
||
{
|
||
// OP主檔未建立
|
||
clsERP.combineException(ref aryException, mesmsg: "[%OPNoNotExist%]");
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
SkipMaterialList:
|
||
;
|
||
}
|
||
|
||
catch (Exception ex)
|
||
{
|
||
clsERP.combineException(ref aryException, sysmsg: ex.Message, mesmsg: "[%doMaterialListFail%]", stack: iMESCore.Base.iMESComXML.CInput(ex.StackTrace));
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
// ----- 8. 取得FactoryNo -----
|
||
// FactoryNo = "N/A"
|
||
|
||
// ----- 檢查MO Property ---
|
||
if (!(dtMOProperty == null) && dtMOProperty.Rows.Count > 0)
|
||
{
|
||
foreach (DataRow dr in dtMOProperty.Rows)
|
||
{
|
||
List<ArrayList> argaryMessage = null;
|
||
List<ArrayList> argaryException = null;
|
||
doSYSMOProperty(Convert.ToString(dr["PropertyNo"]), Convert.ToString(dr["DataType"]), aryMessage: argaryMessage, aryException: argaryException);
|
||
}
|
||
}
|
||
|
||
// ----- 9. 檢查OPNo(用料作業站)是否存在 -----
|
||
if (dtMTL.Rows.Count > 0)
|
||
{
|
||
|
||
// dtMTL.Columns.Add("MaterialMONo", System.Type.GetType("System.String"))
|
||
|
||
// dtMTL: MONo, MaterialNo, MaterialLevel, StdQty, UnitNo, OPNo, PutInPlaceType, DecreaseRate, Specified, *MaterialType, CountWay, *CheckLotNo, *MaterialVersion, +MaterialMONo
|
||
|
||
foreach (DataRow dr in dtMTL.Rows)
|
||
{
|
||
try
|
||
{
|
||
// OPyNo <> "LOTCREATE"
|
||
if (dr["OPNo"].ToString() != OPNo.ToString())
|
||
{
|
||
// 有傳入=>檢查OP主檔
|
||
using (var objOP = new clsOpBasis())
|
||
{
|
||
var drOP = objOP.GetOPBasis(dr["OPNo"].ToString());
|
||
if (drOP["OPNo"] is DBNull == true)
|
||
{
|
||
// OP主檔未建立
|
||
clsERP.combineException(ref aryException, mesmsg: "[%OPNoNotExist%]");
|
||
}
|
||
}
|
||
}
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
clsERP.combineException(ref aryException, sysmsg: ex.Message, mesmsg: "[%doMaterialListFail%]", stack: iMESCore.Base.iMESComXML.CInput(ex.StackTrace));
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
// ----- Exception => Fail -----
|
||
if (aryException.Count > 0)
|
||
goto exitfun;
|
||
|
||
// ----- Edit MO -----
|
||
AppSettings objSetting = new AppSettings();
|
||
// Using cn As New OleDbConnection(objSetting.GetConnectionString)
|
||
// Using cmd As New OleDbCommand("", cn)
|
||
// cn.Open()
|
||
// Using trans As OleDbTransaction = cn.BeginTransaction
|
||
// cmd.Transaction = trans
|
||
try
|
||
{
|
||
// ----- MO -----
|
||
// edit MO Basis
|
||
strSQL = "update tbloemobasis set " + "moqty=" + MOQty + ", " + "unreleaselotqty=" + (MOQty - ReleaseQty) + ", " + "priority=" + Priority + ", " + "planfinishdate=To_Date('" + Strings.Format(PlanFinishDate, "yyyy/MM/dd H:mm:ss") + "','YYYY/MM/DD HH24:MI:SS'), " + "description=N'" + Description + "' ";
|
||
|
||
// 2018/3/19 Vick 新增欄位 ERPMOLineNo
|
||
if (ERPMOLineNo != defString)
|
||
{
|
||
strSQL += ",ERPMOLineNo ='" + ERPMOLineNo + "' ";
|
||
}
|
||
if (PlanStartDate != defDateTime)
|
||
{
|
||
strSQL += ",PlanStartDate = To_Date('" + Strings.Format(PlanStartDate, "yyyy/MM/dd H:mm:ss") + "','YYYY/MM/DD HH24:MI:SS') ";
|
||
}
|
||
strSQL += "where mono='" + MONo.ToUpper() + "'";
|
||
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.CommandText = _
|
||
// "update tbloemobasis set " & _
|
||
// "moqty=?, " & _
|
||
// "unreleaselotqty=?, " & _
|
||
// "priority=?, " & _
|
||
// "planfinishdate=?, " & _
|
||
// "description=? " & _
|
||
// "where mono=?"
|
||
// cmd.Parameters.AddWithValue(":MOQty", MOQty)
|
||
// cmd.Parameters.AddWithValue(":UnReleaseLotQty", MOQty - ReleaseQty) 'UNRELEASELOTQTY
|
||
// cmd.Parameters.AddWithValue(":Priority", Priority)
|
||
// cmd.Parameters.AddWithValue(":PlanFinishDate", PlanFinishDate)
|
||
// cmd.Parameters.AddWithValue(":Description", Description)
|
||
// cmd.Parameters.AddWithValue(":MONo", MONo.ToUpper)
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
|
||
// add MO Component
|
||
|
||
|
||
// add MO Material List
|
||
// dtMTL: MONo, MaterialNo, MaterialLevel, StdQty, UnitNo, OPNo, PutInPlaceType, DecreaseRate, Specified, *MaterialType, CountWay, *CheckLotNo, *MaterialVersion, +MaterialMONo, +*SubstituteMaterialNo
|
||
if (dtMTL.Rows.Count > 0)
|
||
{
|
||
|
||
using (var objOE = new clsOEBasis())
|
||
{
|
||
|
||
var dtTemp = objOE.ShowMOMaterialList(MONo.ToUpper()).Tables["MOMaterialList"];
|
||
|
||
strSQL = "delete from tbloemomateriallist where mono='" + MONo.ToUpper() + "'";
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.CommandText = _
|
||
// "delete from tbloemomateriallist where mono=?"
|
||
// cmd.Parameters.AddWithValue(":MONo", MONo.ToUpper)
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
|
||
foreach (DataRow dr in dtMTL.Rows)
|
||
{
|
||
|
||
bool blnAddMaterial = true; // 是否將工單用料加入tblOEMOMaterialList, True:是 False:否
|
||
|
||
// 2019/09/25 Grace 增加檢查, 若有傳入DeliveryMethod且值=4, 這筆工單用料清單, 不加入至tblOEMOMaterialList;否或非4則不做任何處理
|
||
// 材料型態tagname：DeliveryMethod (Optional參數,非必傳)
|
||
if (!(dr["DeliveryMethod"] is DBNull))
|
||
{
|
||
if (dr["DeliveryMethod"].ToString() == "4")
|
||
{
|
||
blnAddMaterial = false;
|
||
}
|
||
}
|
||
|
||
if (blnAddMaterial)
|
||
{
|
||
strSQL = "insert into tbloemomateriallist(mono,materialno,materiallevel,stdqty,unitno,opno,putinplacetype," +
|
||
"decreaserate,specified,materialtype,countway,checklotno,materialversion,materialmono,substitutematerialno,SubstituteMaterialLevel,SubstituteStdQty,RequireQty,mainItem,phantomItem,lockRequirement,operationSeqnum) " +
|
||
"values('" + dr["MONo"].ToString().ToUpper() + "','" + dr["MaterialNo"].ToString().ToUpper() + "'," + dr["MaterialLevel"] + "," + dr["StdQty"] + ",'" + dr["UnitNo"].ToString().ToLower() +
|
||
"','" + dr["OPNo"].ToString().ToUpper() + "'," + dr["PutInPlaceType"] + "," + dr["DecreaseRate"] + "," + dr["Specified"] + ",'" + dr["MaterialType"].ToString().ToUpper() + "'," + dr["CountWay"] +
|
||
"," + dr["CheckLotNo"] + ",'" + dr["MaterialVersion"] + "','" + dr["MaterialMONo"] + "','" + dr["SubstituteMaterialNo"].ToString().ToUpper() + "'," + dr["SubstituteMaterialLevel"] + "," + dr["SubstituteStdQty"] + "," + dr["RequireQty"] + ",'" + dr["mainItem"] + "','" + dr["phantomItem"] + "','" + dr["lockRequirement"] + "','" + dr["operationSeqnum"] + "')";
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.CommandText = _
|
||
// "insert into tbloemomateriallist(mono,materialno,materiallevel,stdqty,unitno,opno,putinplacetype," & _
|
||
// "decreaserate,specified,materialtype,countway,checklotno,materialversion,materialmono,substitutematerialno,SubstituteMaterialLevel,SubstituteStdQty,RequireQty) " & _
|
||
// "values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
|
||
// cmd.Parameters.AddWithValue(":MONo", dr["MONo").ToString.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":MaterialNo", dr["MaterialNo").ToString.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":MaterialLevel", dr["MaterialLevel"))
|
||
// cmd.Parameters.AddWithValue(":StdQty", dr["StdQty"))
|
||
// cmd.Parameters.AddWithValue(":UnitNo", dr["UnitNo").ToString.ToLower)
|
||
// cmd.Parameters.AddWithValue(":OPNo", dr["OPNo").ToString.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":PutInPlaceType", dr["PutInPlaceType"))
|
||
// cmd.Parameters.AddWithValue(":DecreaseRate", dr["DecreaseRate"))
|
||
// cmd.Parameters.AddWithValue(":Specified", dr["Specified"))
|
||
// cmd.Parameters.AddWithValue(":MaterialType", dr["MaterialType").ToString.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":CountWay", dr["CountWay"))
|
||
// cmd.Parameters.AddWithValue(":CheckLotNo", dr["CheckLotNo"))
|
||
// cmd.Parameters.AddWithValue(":MaterialVersion", dr["MaterialVersion"))
|
||
// cmd.Parameters.AddWithValue(":MaterialMONo", dr["MaterialMONo"))
|
||
// cmd.Parameters.AddWithValue(":SubstituteMaterialNo", dr["SubstituteMaterialNo").ToString.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":SubstituteMaterialLevel", dr["SubstituteMaterialLevel")) '2012/12/26,Even,新增替代物料階 &數量
|
||
// cmd.Parameters.AddWithValue(":SubstituteStdQty", dr["SubstituteStdQty")) '2012/12/28,Even,新增替代物標準數
|
||
// cmd.Parameters.AddWithValue(":RequireQty", dr["RequireQty"))
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
|
||
}
|
||
// 將舊的OrgMaterialQty資料更新到tbloemomateriallist
|
||
DataRow[] drTemp = dtTemp.Select("MONo='" + dr["MONo"].ToString().ToUpper() + "'" + " And MaterialNo='" + dr["MaterialNo"].ToString().ToUpper() + "'" + " And OPNo='" +
|
||
dr["OPNo"] + "'" + " And SubstituteMaterialNo='" + dr["SubstituteMaterialNo"].ToString().ToUpper() + "'");
|
||
|
||
foreach (DataRow drOrgMaterialQty in drTemp)
|
||
{
|
||
strSQL = "update tbloemomateriallist set orgmaterialqty=" + drOrgMaterialQty["OrgMaterialQty"] +
|
||
" where mono='" + dr["MONo"].ToString().ToUpper() + "' and materialno='" + dr["MaterialNo"].ToString().ToUpper() +
|
||
"' and opno='" + dr["OPNo"].ToString().ToUpper() + "' and substitutematerialno='" + dr["SubstituteMaterialNo"].ToString().ToUpper() + "'";
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.CommandText = _
|
||
// "update tbloemomateriallist set orgmaterialqty=?" & _
|
||
// " where mono=? and materialno=? and opno=? and substitutematerialno=?"
|
||
// cmd.Parameters.AddWithValue(":OrgMaterialQty", drOrgMaterialQty("OrgMaterialQty"))
|
||
// cmd.Parameters.AddWithValue(":MONo", dr["MONo").ToString.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":MaterialNo", dr["MaterialNo").ToString.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":OPNo", dr["OPNo").ToString.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":SubstituteMaterialNo", dr["SubstituteMaterialNo").ToString.ToUpper)
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
}
|
||
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
// add MO Process
|
||
// 依目前規格書之「工單變更」:
|
||
// 「4.1 單頭只能修改數量(MOQty)與預定完工日(PlanFinishDate)兩個欄位」,
|
||
// 故工單流程暫不做修改
|
||
|
||
|
||
// add MO Property
|
||
if (dtMOProperty.Rows.Count > 0)
|
||
{
|
||
if (PropertyFlag) // haoqian 221025
|
||
{
|
||
strSQL = "delete from tbloemoproperty where mono='" + MONo.ToUpper() + "'";
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.CommandText = "delete from tbloemoproperty where mono=?"
|
||
// cmd.Parameters.AddWithValue(":MONo", MONo.ToUpper)
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
|
||
strSQL = "delete from tbloemoproperty_recive where mono='" + MONo.ToUpper() + "'";
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.CommandText = "delete from tbloemoproperty_recive where mono=?"
|
||
// cmd.Parameters.AddWithValue(":MONo", MONo.ToUpper)
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
|
||
foreach (DataRow dr in dtMOProperty.Rows)
|
||
{
|
||
strSQL = "insert into tbloemoproperty(mono,propertyno,propertyvalue) values('" + dr["MONo"].ToString().ToUpper() + "','" + dr["PropertyNo"] + "','" + dr["PropertyValue"] + "')";
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.Parameters.AddWithValue(":MONo", dr["MONo").ToString.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":PropertyNo", dr["PropertyNo"))
|
||
// cmd.Parameters.AddWithValue(":PropertyValue", dr["PropertyValue"))
|
||
// cmd.CommandText = "insert into tbloemoproperty(mono,propertyno,propertyvalue) values(?,?,?)"
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
strSQL = "insert into tbloemoproperty_recive(mono,propertyno,propertyvalue) values('" + dr["MONo"].ToString().ToUpper() + "','" + dr["PropertyNo"] + "','" + dr["PropertyValue"] + "')";
|
||
CollectionSQL.Add(strSQL);
|
||
// cmd.Parameters.AddWithValue(":MONo", dr["MONo").ToString.ToUpper)
|
||
// cmd.Parameters.AddWithValue(":PropertyNo", dr["PropertyNo"))
|
||
// cmd.Parameters.AddWithValue(":PropertyValue", dr["PropertyValue"))
|
||
// cmd.CommandText = "insert into tbloemoproperty_recive(mono,propertyno,propertyvalue) values(?,?,?)"
|
||
// cmd.ExecuteNonQuery()
|
||
// cmd.Parameters.Clear()
|
||
}
|
||
}
|
||
else // haoqian 221025
|
||
{
|
||
foreach (DataRow dr in dtMOProperty.Rows)
|
||
{
|
||
strSQL = "update tbloemoproperty set propertyvalue = '" + dr["PropertyValue"] + "' where mono = '" + dr["MONo"].ToString().ToUpper() + "' and propertyno = '" + dr["PropertyNo"] + "'";
|
||
CollectionSQL.Add(strSQL);
|
||
|
||
strSQL = "update tbloemoproperty_recive set propertyvalue = '" + dr["PropertyValue"] + "' where mono = '" + dr["MONo"].ToString().ToUpper() + "' and propertyno = '" + dr["PropertyNo"] + "'";
|
||
CollectionSQL.Add(strSQL);
|
||
|
||
}
|
||
|
||
}
|
||
}
|
||
|
||
// 78079
|
||
// ----- MOComponent -----
|
||
// edit MO Component
|
||
using (var objOE = new clsOEBasis())
|
||
{
|
||
using (var objSYS = new clsSYSEng())
|
||
{
|
||
// Dim drOE As DataRow = objOE.GetMOBasis(MONo.ToUpper)
|
||
var dsOEMOC = objOE.ShowMOComponent(MONo.ToUpper());
|
||
if (dsOEMOC.Tables[0].Rows.Count > 0)
|
||
{
|
||
if (MOQty > dsOEMOC.Tables[0].Rows.Count)
|
||
{
|
||
var dsCreateComponentNo = new DataSet();
|
||
dsCreateComponentNo = objSYS.InitComponentNo(true, (int)Math.Round(MOQty - dsOEMOC.Tables[0].Rows.Count), MONo.ToUpper(), FactoryNo, CustomerNo, ProductNo, ProductVersion);
|
||
if (!(dsCreateComponentNo.Tables == null) && dsCreateComponentNo.Tables[0].Rows.Count > 0)
|
||
{
|
||
for (int i = 1, loopTo = dsCreateComponentNo.Tables[0].Rows.Count; i <= loopTo; i++) // MOQty - dsOEMOC.Tables[0].Rows.Count
|
||
{
|
||
strSQL = "Insert into tblOEMOComponent (MoNo, ComponentNo, GoodQty, UnitNo, ReleaseState)" +
|
||
" Values ('" + MONo.ToUpper() + "', '" + dsCreateComponentNo.Tables[0].Rows[i - 1]["ComponentNo"].ToString() + "'," +
|
||
dsOEMOC.Tables[0].Rows[0]["GoodQty"] + ",'" + dsOEMOC.Tables[0].Rows[0]["UnitNo"] + "', 0)";
|
||
CollectionSQL.Add(strSQL);
|
||
}
|
||
}
|
||
if (dsCreateComponentNo != null)
|
||
dsCreateComponentNo = null;
|
||
}
|
||
}
|
||
if (dsOEMOC != null)
|
||
dsOEMOC = null;
|
||
}
|
||
}
|
||
|
||
// add MO SEMI Out
|
||
|
||
// trans.Commit()
|
||
//string argstrDataBaseType = "Null";
|
||
ExecuteSQLNoneQuery_UPD(objSetting.GetDataBaseType(), objSetting.GetConnectionString(), CollectionSQL);
|
||
r = true;
|
||
clsERP.combineMessage(ref aryMessage, mmsg: "[%EditMOSuccess%]");
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
// trans.Rollback()
|
||
clsERP.combineException(ref aryException, sysmsg: ex.Message, mesmsg: "[%EditMOFail%]", stack: iMESCore.Base.iMESComXML.CInput(ex.StackTrace));
|
||
|
||
}
|
||
// End Using
|
||
// End Using
|
||
// End Using
|
||
|
||
exitfun:
|
||
;
|
||
}
|
||
|
||
|
||
catch (Exception ex)
|
||
{
|
||
clsERP.combineException(ref aryException, sysmsg: ex.Message, mesmsg: "[%EditMOFail%]", stack: iMESCore.Base.iMESComXML.CInput(ex.StackTrace));
|
||
}
|
||
finally
|
||
{
|
||
editMORet = r;
|
||
}
|
||
|
||
return editMORet;
|
||
|
||
}
|
||
|
||
/// <summary>
|
||
/// 檢查SYS模組裡的工單屬性
|
||
/// </summary>
|
||
/// <param name="PropertyNo"></param>
|
||
/// <param name="DataType"></param>
|
||
/// <param name="IssueState"></param>
|
||
/// <param name="aryMessage"></param>
|
||
/// <param name="aryException"></param>
|
||
/// <returns></returns>
|
||
/// <remarks></remarks>
|
||
public static object doSYSMOProperty(string PropertyNo, string DataType, int IssueState = 2, List<ArrayList> aryMessage = null, List<ArrayList> aryException = null)
|
||
{
|
||
object doSYSMOPropertyRet = default(object);
|
||
bool r = false;
|
||
try
|
||
{
|
||
|
||
// ----- 檢查MOProperty是否存在 -----
|
||
using (var objSYS = new clsSYSEng())
|
||
{
|
||
|
||
var dr = objSYS.GetMOProperty(PropertyNo);
|
||
|
||
// ----- MOProperty已存在 -----
|
||
if (dr["PropertyNo"] is DBNull == false)
|
||
{
|
||
r = true;
|
||
goto exitfun;
|
||
}
|
||
|
||
// ----- MOProperty不存在=>新增MOProperty -----
|
||
// DataType: 0:Numeric, 1:String, 2:Percent, 3:DateTime, 4:Boolean
|
||
int intType = 1;
|
||
switch (DataType.ToUpper())
|
||
{
|
||
case "NUMERIC":
|
||
{
|
||
intType = 0;
|
||
break;
|
||
}
|
||
case "STRING":
|
||
{
|
||
intType = 1;
|
||
break;
|
||
}
|
||
case "PERCENT":
|
||
{
|
||
intType = 2;
|
||
break;
|
||
}
|
||
case "DATETIME":
|
||
{
|
||
intType = 3;
|
||
break;
|
||
}
|
||
case "BOOLEAN":
|
||
{
|
||
intType = 4;
|
||
break;
|
||
}
|
||
|
||
default:
|
||
{
|
||
intType = 1; // 預設為String
|
||
break;
|
||
}
|
||
}
|
||
|
||
try
|
||
{
|
||
objSYS.AddMOProperty(PropertyNo, PropertyNo, intType, 0);
|
||
objSYS.SetMOPropertyIssueState(PropertyNo, IssueState);
|
||
clsERP.combineMessage(ref aryMessage, mmsg: "[%AddSYSMOPropertySuccess%]");
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
clsERP.combineException(ref aryException, sysmsg: ex.Message, mesmsg: "[%AddSYSMOPropertyFail%]");
|
||
goto exitfun;
|
||
}
|
||
|
||
r = true;
|
||
|
||
}
|
||
|
||
exitfun:
|
||
;
|
||
}
|
||
|
||
|
||
catch (Exception ex)
|
||
{
|
||
clsERP.combineException(ref aryException, sysmsg: ex.Message, mesmsg: "[%doSYSMOPropertyFail%]", stack: iMESCore.Base.iMESComXML.CInput(ex.StackTrace));
|
||
}
|
||
finally
|
||
{
|
||
doSYSMOPropertyRet = r;
|
||
}
|
||
|
||
return doSYSMOPropertyRet;
|
||
}
|
||
/// <summary>
|
||
/// 檢查工廠編號是否存在；不存在=>新增
|
||
/// </summary>
|
||
/// <param name="FactoryNo"></param>
|
||
/// <param name="Creator"></param>
|
||
/// <param name="CreateDate"></param>
|
||
/// <param name="IssueState"></param>
|
||
/// <param name="strMessage"></param>
|
||
/// <param name="strException"></param>
|
||
/// <returns></returns>
|
||
/// <remarks></remarks>
|
||
public static object doFactoryNo(string FactoryNo, string Creator, DateTime CreateDate, int IssueState = 2, List<ArrayList> strMessage = null, List<ArrayList> strException = null)
|
||
{
|
||
object doFactoryNoRet = default(object);
|
||
bool r = false;
|
||
try
|
||
{
|
||
|
||
// ----- 檢查工廠編號是否存在 -----
|
||
using (var objSMD = new clsSMDBasis())
|
||
{
|
||
|
||
var dr = objSMD.GetFactoryBasis(FactoryNo.ToUpper());
|
||
|
||
// ----- 工廠編號已存在 -----
|
||
if (dr["FactoryNo"] is DBNull == false)
|
||
goto exitfun;
|
||
|
||
// ----- 工廠編號不存在=>新增工廠編號 -----
|
||
try
|
||
{
|
||
objSMD.AddFactoryBasis(FactoryNo.ToUpper(), "(from ERP)", Creator: Creator, CreateDate: CreateDate);
|
||
objSMD.SetFactoryBasisIssueState(FactoryNo.ToUpper(), IssueState);
|
||
clsERP.combineMessage(ref strMessage, mmsg: "[%AddFactoryNoSuccess%]");
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
clsERP.combineException(ref strException, sysmsg: ex.Message, mesmsg: "[%AddFactoryNoFail%]", stack: iMESCore.Base.iMESComXML.CInput(ex.StackTrace));
|
||
goto exitfun;
|
||
}
|
||
}
|
||
r = true;
|
||
exitfun:
|
||
;
|
||
}
|
||
|
||
|
||
catch (Exception ex)
|
||
{
|
||
clsERP.combineException(ref strException, sysmsg: ex.Message, mesmsg: "[%doFactoryFail%]", stack: iMESCore.Base.iMESComXML.CInput(ex.StackTrace));
|
||
}
|
||
finally
|
||
{
|
||
doFactoryNoRet = r;
|
||
}
|
||
|
||
return doFactoryNoRet;
|
||
}
|
||
private static bool ExamineMOProcess(string MONo, string ProductNo, string ProductVersion, int MOTypeNo, ref Collection colSQL, ref List<ArrayList> aryException, string CustomerLotNo = null)
|
||
{
|
||
|
||
bool blnExecResult = false;
|
||
AppSettings objSetting = new AppSettings();
|
||
IDbConnection cnnTemp = null;
|
||
string strSQL = "", strSQLAddField = "", strSQLAddValue = "";
|
||
var CollectionSQL = new Collection();
|
||
string CustomerNo = "", DeviceNo = "";
|
||
|
||
try
|
||
{
|
||
string strDataBaseType = objSetting.GetDataBaseType();
|
||
string strConnectionString = objSetting.GetConnectionString(strDataBaseType);
|
||
cnnTemp = CreateConnection(strConnectionString);
|
||
DbDataReader drTemp;
|
||
|
||
// 1.依據工單類型(MOTypeNo)找出預設的流程編號
|
||
// 先查詢指定的工單類型，找不到再用MOType=*的資料(MOTypeNo =-1)
|
||
var dtPRDPSNoList = new DataTable();
|
||
var dtPorductProcess = new DataTable();
|
||
strSQL = "select CustomerNo,DeviceNo from tblPRDProductBasis where ProductNo = '" + ProductNo + "' And ProductVersion = '" + ProductVersion + "'";
|
||
drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
if (drTemp.Read())
|
||
{
|
||
CustomerNo = drTemp["CustomerNo"].ToString();
|
||
DeviceNo = drTemp["DeviceNo"].ToString();
|
||
}
|
||
drTemp.Close();
|
||
|
||
strSQL = "SELECT PSNo FROM (" + " SELECT PSNo,Min(PSOrder) AS PSOrder FROM tblPRDProductProcess" + " WHERE ProductNo = '" + ProductNo + "' AND ProductVersion = '" + ProductVersion + "'" + " GROUP BY PSNo )A ORDER BY PSOrder";
|
||
//using (var daTemp = new OleDbDataAdapter(strSQL, cnnTemp))
|
||
//{
|
||
// daTemp.Fill(dtPRDPSNoList);
|
||
//}
|
||
ExecuteSQLQuery_Adapter(strSQL, dtPRDPSNoList, cnnTemp);
|
||
|
||
foreach (DataRow drData in dtPRDPSNoList.Rows)
|
||
{
|
||
var dtSinglePSNoProcess = new DataTable();
|
||
strSQL = "SELECT * FROM tblPRDProductProcess" + " WHERE ProductNo = '" + ProductNo + "' AND ProductVersion = '" + ProductVersion + "'" + " AND MOTypeNo = " + MOTypeNo + " AND DefaultProcess = 1" + " AND PSNo = '" +
|
||
drData["PSNo"] + "' ORDER BY PSOrder";
|
||
//using (var daTemp = new OleDbDataAdapter(strSQL, cnnTemp))
|
||
//{
|
||
// daTemp.Fill(dtSinglePSNoProcess);
|
||
//}
|
||
ExecuteSQLQuery_Adapter(strSQL, dtSinglePSNoProcess, cnnTemp);
|
||
|
||
if (dtSinglePSNoProcess.Rows.Count.Equals(0))
|
||
{
|
||
strSQL = "SELECT * FROM tblPRDProductProcess" + " WHERE ProductNo = '" + ProductNo + "' AND ProductVersion = '" + ProductVersion + "'" + " AND MOTypeNo = -1 AND DefaultProcess = 1" + " AND PSNo = '" +
|
||
drData["PSNo"] + "' ORDER BY PSOrder";
|
||
//using (var daTemp = new OleDbDataAdapter(strSQL, cnnTemp))
|
||
//{
|
||
// daTemp.Fill(dtSinglePSNoProcess);
|
||
//}
|
||
ExecuteSQLQuery_Adapter(strSQL, dtSinglePSNoProcess, cnnTemp);
|
||
}
|
||
dtPorductProcess.Merge(dtSinglePSNoProcess);
|
||
}
|
||
|
||
dtPRDPSNoList.Dispose();
|
||
|
||
|
||
if (CustomerNo != "N/A" && DeviceNo != "N/A")
|
||
{
|
||
string strMOTypeNo = MOTypeNo.ToString();
|
||
DataSet dsECN = new DataSet();
|
||
var dtECN = new DataTable();
|
||
var dtNewPorductProcess = new DataTable();
|
||
DataRow drECN;
|
||
|
||
dtECN.Columns.Add("MONo", Type.GetType("System.String"));
|
||
dtECN.Columns.Add("CustomerLotNo", Type.GetType("System.String"));
|
||
|
||
drECN = dtECN.NewRow();
|
||
drECN["MONo"] = MONo;
|
||
drECN["CustomerLotNo"] = CustomerLotNo;
|
||
dtECN.Rows.Add(drECN);
|
||
|
||
dsECN = ShowECNProcessData(ProductNo, ProductVersion, strMOTypeNo, ref aryException, dtECN);
|
||
|
||
if (aryException.Count <= 0)
|
||
{
|
||
short intProcessOrder = 1;
|
||
foreach (DataRow drProcess in dsECN.Tables["tblECNProcessData"].Rows)
|
||
{
|
||
string strProcessNo = drProcess["ProcessNo"].ToString();
|
||
string strProcessVersion = drProcess["ProcessVersion"].ToString();
|
||
|
||
|
||
strSQL = "SELECT * FROM tblPRDProductProcess" + " WHERE ProductNo = '" + ProductNo + "' AND ProductVersion = '" + ProductVersion + "'" + " And ProcessNo = '" +
|
||
strProcessNo + "'" + " AND ProcessVersion = '" + strProcessVersion + "' AND MOTypeNo = " + MOTypeNo + "";
|
||
ExecuteSQLQuery_Adapter(strSQL, dtNewPorductProcess, cnnTemp);
|
||
}
|
||
foreach (DataRow drNewProcess in dtNewPorductProcess.Rows)
|
||
{
|
||
|
||
// 以指定流程版本新增工單流程
|
||
strSQL = "SELECT B.ProcessNo, B.ProcessVersion, B.NodeNo, B.NodeId" + " FROM tblPRSProcessBasis A join tblPRSNodeBasis B ON A.ProcessNo = B.ProcessNo AND A.ProcessVersion = B.ProcessVersion" + " WHERE A.ProcessNo = '" +
|
||
drNewProcess["ProcessNo"].ToString() + "'" + " AND A.ProcessVersion = '" + drNewProcess["ProcessVersion"].ToString() + "'" + " AND B.NodeId = (" + " SELECT Min(B.ToNodeId)" +
|
||
" FROM tblPRSProcessBasis A join tblPRSNodeRelation B ON A.ProcessNo = B.ProcessNo AND A.ProcessVersion = B.ProcessVersion" + " WHERE A.ProcessNo = '" +
|
||
drNewProcess["ProcessNo"].ToString() + "'" + " AND A.ProcessVersion = '" + drNewProcess["ProcessVersion"].ToString() + "'" + " And B.FromNodeNo = 'START' GROUP BY A.ProcessNo)";
|
||
drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
if (drTemp.Read())
|
||
{
|
||
// 應該只有一筆資料，每一個流程也只需要新增一筆資料
|
||
// 2019/01/23 OwenLiu, 修正工單流程存入ProcessVersion 為 * 的問題
|
||
strSQLAddField = "INSERT INTO tblOEMOProcess (MONo,PSNo,PSOrder,ProcessOrder,ProcessNo,ProcessVersion";
|
||
strSQLAddValue = " VALUES ('" + MONo + "','" +
|
||
drNewProcess["PSNo"] + "'," + drNewProcess["PSOrder"] + "," + intProcessOrder.ToString() + ",'" + drNewProcess["ProcessNo"].ToString() + "'" + ",'" + drTemp["ProcessVersion"].ToString() +
|
||
"'";
|
||
|
||
strSQLAddField += ",OPNo,NodeId,HaveComponent,HaveLevel";
|
||
strSQLAddValue = strSQLAddValue + ",'" +
|
||
drTemp["NodeNo"] + "','" + drTemp["NodeId"] + "'" + "," + drNewProcess["HaveComponent"] + "," + drNewProcess["HaveLevel"];
|
||
strSQL = strSQLAddField + ")" + strSQLAddValue + ")";
|
||
CollectionSQL.Add(strSQL);
|
||
intProcessOrder = (short)(intProcessOrder + 1);
|
||
}
|
||
drTemp.Close();
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
short intProcessOrder = 1;
|
||
foreach (DataRow drProcess in dtPorductProcess.Rows)
|
||
{
|
||
string strProcessNo = drProcess["ProcessNo"].ToString();
|
||
string strProcessVersion = drProcess["ProcessVersion"].ToString();
|
||
if (strProcessVersion == "*")
|
||
{
|
||
// 以目前最新流程新增工單流程
|
||
strSQL = "SELECT B.ProcessNo, B.ProcessVersion, B.NodeNo, B.NodeId" + " FROM tblPRSProcessBasis A join tblPRSNodeBasis B ON A.ProcessNo = B.ProcessNo AND A.ProcessVersion = B.ProcessVersion" + " WHERE A.ProcessNo = '" +
|
||
drProcess["ProcessNo"] + "' AND A.CurVersion = 1" + " AND B.NodeId = (" + " SELECT Min(B.ToNodeId)" + " FROM tblPRSProcessBasis A join tblPRSNodeRelation B ON A.ProcessNo = B.ProcessNo AND A.ProcessVersion = B.ProcessVersion" +
|
||
" WHERE A.ProcessNo = '" + drProcess["ProcessNo"] + "' AND A.CurVersion = 1" + " AND B.FromNodeNo = 'START' GROUP BY A.ProcessNo)";
|
||
}
|
||
else
|
||
{
|
||
// 以指定流程版本新增工單流程
|
||
strSQL = "SELECT B.ProcessNo, B.ProcessVersion, B.NodeNo, B.NodeId" + " FROM tblPRSProcessBasis A join tblPRSNodeBasis B ON A.ProcessNo = B.ProcessNo AND A.ProcessVersion = B.ProcessVersion" + " WHERE A.ProcessNo = '" +
|
||
drProcess["ProcessNo"] + "'" + " AND A.ProcessVersion = '" + strProcessVersion + "'" + " AND B.NodeId = (" + " SELECT Min(B.ToNodeId)" +
|
||
" FROM tblPRSProcessBasis A join tblPRSNodeRelation B ON A.ProcessNo = B.ProcessNo AND A.ProcessVersion = B.ProcessVersion" + " WHERE A.ProcessNo = '" +
|
||
drProcess["ProcessNo"] + "'" + " AND A.ProcessVersion = '" + strProcessVersion + "'" + " And B.FromNodeNo = 'START' GROUP BY A.ProcessNo)";
|
||
}
|
||
|
||
//using (var cmdProcess = new OleDbCommand(strSQL, cnnTemp))
|
||
//{
|
||
//var drTemp = cmdProcess.ExecuteReader();
|
||
drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
if (drTemp.Read())
|
||
{
|
||
// 應該只有一筆資料，每一個流程也只需要新增一筆資料
|
||
// 2019/01/23 OwenLiu, 修正工單流程存入ProcessVersion 為 * 的問題
|
||
strSQLAddField = "INSERT INTO tblOEMOProcess (MONo,PSNo,PSOrder,ProcessOrder,ProcessNo,ProcessVersion";
|
||
strSQLAddValue = " VALUES ('" + MONo + "','" +
|
||
drProcess["PSNo"] + "'," + drProcess["PSOrder"] + "," + intProcessOrder.ToString() + ",'" + strProcessNo + "'" + ",'" + drTemp["ProcessVersion"].ToString() +
|
||
"'";
|
||
|
||
strSQLAddField += ",OPNo,NodeId,HaveComponent,HaveLevel";
|
||
strSQLAddValue = strSQLAddValue + ",'" +
|
||
drTemp["NodeNo"] + "','" + drTemp["NodeId"] + "'" + "," + drProcess["HaveComponent"] + "," + drProcess["HaveLevel"];
|
||
strSQL = strSQLAddField + ")" + strSQLAddValue + ")";
|
||
CollectionSQL.Add(strSQL);
|
||
intProcessOrder = (short)(intProcessOrder + 1);
|
||
}
|
||
drTemp.Close();
|
||
//}
|
||
}
|
||
}
|
||
|
||
|
||
|
||
|
||
// 將收集到的SQL語句加以回傳，由呼叫端統一執行
|
||
if (colSQL != null)
|
||
{
|
||
for (int i = 1, loopTo = CollectionSQL.Count; i <= loopTo; i++)
|
||
colSQL.Add(CollectionSQL[i]);
|
||
}
|
||
|
||
blnExecResult = true;
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
clsERP.combineException(ref aryException, sysmsg: ex.Message, mesmsg: "[%ExamineMOProcess%]", stack: iMESCore.Base.iMESComXML.CInput(ex.StackTrace));
|
||
}
|
||
finally
|
||
{
|
||
CloseConnection(cnnTemp);
|
||
}
|
||
|
||
return default(bool);
|
||
|
||
}
|
||
private static DataSet ShowECNProcessData(string ProductNo, string ProductVersion, string MOTypeNo, ref List<ArrayList> aryException, DataTable dtECN)
|
||
{
|
||
DataSet ShowECNProcessDataRet = default(DataSet);
|
||
|
||
// dtECN 傳入LotNo,OrgLotNo,CustomerLotNo,MONo 的資料只會有一筆
|
||
|
||
var CollectionSQL = new Collection();
|
||
var CreateDate = DateTime.Now;
|
||
string strSQLAddField, strSQLAddValue;
|
||
string strSQL = "";
|
||
var drTemp = default(DbDataReader);
|
||
DbDataReader drSEN;
|
||
DbDataReader drTECN;
|
||
DbDataReader drECN;
|
||
var dtProcess = new DataTable();
|
||
string tblECNProcessData;
|
||
tblECNProcessData = "tblECNProcessData";
|
||
dtProcess.TableName = tblECNProcessData;
|
||
dtProcess.Columns.Add("ECNNO", Type.GetType("System.String"));
|
||
dtProcess.Columns.Add("PROCESSNO", Type.GetType("System.String"));
|
||
dtProcess.Columns.Add("PROCESSVERSION", Type.GetType("System.String"));
|
||
dtProcess.Columns.Add("ECNTYPE", Type.GetType("System.String"));
|
||
|
||
AppSettings objSetting = new AppSettings();
|
||
bool blnAllProcess = false; // 用於判斷ECN是否有多條流程
|
||
var cnnTemp = default(IDbConnection);
|
||
|
||
try
|
||
{
|
||
string strDataBaseType = objSetting.GetDataBaseType();
|
||
string strConnectionString = objSetting.GetConnectionString(strDataBaseType);
|
||
cnnTemp = CreateConnection(strConnectionString);
|
||
|
||
DataSet dsTemp;
|
||
DataRow[] drSel;
|
||
|
||
cnnTemp = CreateConnection(strConnectionString);
|
||
|
||
// 檢查SEN
|
||
strSQL = "Select * from TBLPRDECNPROCESS where ProductNo='" + ProductNo + "' and productversion='" + ProductVersion + "' and ECNType='SEN' and ECNState=2 ORDER BY SENType Desc ";
|
||
dsTemp = new DataSet();
|
||
ExecuteSQLQuery_Adapter(strSQL, dsTemp, "TBLPRDECNPROCESS", cnnTemp);
|
||
|
||
drSel = dsTemp.Tables["TBLPRDECNPROCESS"].Select();
|
||
if (drSel.Length > 0)
|
||
{
|
||
foreach (DataRow r in drSel)
|
||
{
|
||
strSQL = "Select * from TBLPRDSENLOTDETAIL where ProductNo='" + ProductNo + "' and productversion='" + ProductVersion + "' and ECNNO='" + r["ECNNO"].ToString() + "'";
|
||
////cmmTemp = new IDbCommand(strSQL, cnnTemp); // Select data
|
||
drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
while (drTemp.Read()) // 比對有無相符的資料
|
||
{
|
||
switch (drTemp["SENTYPE"].ToString())
|
||
{
|
||
case "1": //客戶批號
|
||
{
|
||
dtECN.DefaultView.RowFilter = "CustomerLotNo like '" + drTemp["LOTNO"].ToString() + "'";
|
||
if (dtECN.DefaultView.Count == 1)
|
||
{
|
||
// 以ECNNO跟工單類型尋找
|
||
strSQL = "Select * from TBLPRDMOPROCESS where ProductNo='" + ProductNo + "' and productversion='" + ProductVersion + "' and ECNNO='" + r["ECNNO"].ToString() + "' and MOTypeNo='" + MOTypeNo + "' ";
|
||
////cmmTemp = new IDbCommand(strSQL, cnnTemp); // Select data
|
||
drSEN = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
while (drSEN.Read())
|
||
{
|
||
dtProcess.Rows.Add(r["ECNNO"].ToString(), drSEN["PROCESSNO"].ToString(), drSEN["PROCESSVERSION"], "SEN");
|
||
blnAllProcess = true;
|
||
}
|
||
|
||
// 若目前工單類型找不到資料以*尋找
|
||
strSQL = "Select * from TBLPRDMOPROCESS where ProductNo='" + ProductNo + "' and productversion='" + ProductVersion + "' and ECNNO='" + r["ECNNO"].ToString() + "' and MOTypeNo='-1' ";
|
||
////cmmTemp = new IDbCommand(strSQL, cnnTemp); // Select data
|
||
drSEN = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
while (drSEN.Read())
|
||
{
|
||
dtProcess.Rows.Add(r["ECNNO"].ToString(), drSEN["PROCESSNO"].ToString(), drSEN["PROCESSVERSION"], "SEN");
|
||
blnAllProcess = true;
|
||
}
|
||
|
||
|
||
goto GoTonext;
|
||
}
|
||
|
||
break;
|
||
}
|
||
case "0": //工單編號
|
||
{
|
||
dtECN.DefaultView.RowFilter = "MONo like '" + drTemp["LOTNO"].ToString() + "'";
|
||
if (dtECN.DefaultView.Count == 1)
|
||
{
|
||
// 以ECNNO跟工單類型尋找
|
||
strSQL = "Select * from TBLPRDMOPROCESS where ProductNo='" + ProductNo + "' and productversion='" + ProductVersion + "' and ECNNO='" + r["ECNNO"].ToString() + "' and MOTypeNo='" + MOTypeNo + "' ";
|
||
////cmmTemp = new IDbCommand(strSQL, cnnTemp); // Select data
|
||
drSEN = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
while (drSEN.Read())
|
||
{
|
||
dtProcess.Rows.Add(r["ECNNO"].ToString(), drSEN["PROCESSNO"].ToString(), drSEN["PROCESSVERSION"], "SEN");
|
||
blnAllProcess = true;
|
||
}
|
||
|
||
// 若目前工單類型找不到資料以*尋找
|
||
strSQL = "Select * from TBLPRDMOPROCESS where ProductNo='" + ProductNo + "' and productversion='" + ProductVersion + "' and ECNNO='" + r["ECNNO"].ToString() + "' and MOTypeNo='-1' ";
|
||
////cmmTemp = new IDbCommand(strSQL, cnnTemp); // Select data
|
||
drSEN = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
while (drSEN.Read())
|
||
{
|
||
dtProcess.Rows.Add(r["ECNNO"].ToString(), drSEN["PROCESSNO"].ToString(), drSEN["PROCESSVERSION"], "SEN");
|
||
blnAllProcess = true;
|
||
}
|
||
|
||
goto GoTonext;
|
||
}
|
||
|
||
break;
|
||
}
|
||
|
||
}
|
||
}
|
||
drTemp.Close();
|
||
////cmmTemp.Dispose();
|
||
}
|
||
}
|
||
|
||
if (dsTemp != null)
|
||
{
|
||
dsTemp.Dispose();
|
||
}
|
||
|
||
// 2020/03/17 Eric
|
||
if (blnAllProcess == true)
|
||
{
|
||
goto GoTonext;
|
||
}
|
||
|
||
// 檢查TECN
|
||
strSQL = "Select * from TBLPRDECNPROCESS where ProductNo='" + ProductNo + "' and productversion='" + ProductVersion + "' and ECNType='TECN' and ECNState=2 " + "And StartTime <= To_Date('" + Strings.Format(DateTime.Now, "yyyy/MM/dd HH:mm:ss") + "','YYYY/MM/DD HH24:MI:SS') And EndTime > To_Date('" + Strings.Format(DateTime.Now, "yyyy/MM/dd HH:mm:ss") + "','YYYY/MM/DD HH24:MI:SS')";
|
||
// 2020/02/04 OwenLiu, 修正SQLServer 查詢問題
|
||
strSQL = SQLCommandTuning(strDataBaseType, ref strSQL);
|
||
drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
if (drTemp.Read())
|
||
{
|
||
// 以ECNNO跟工單類型尋找
|
||
strSQL = "Select * from TBLPRDMOPROCESS where ProductNo='" + ProductNo + "' and productversion='" + ProductVersion + "' and ECNNO='" + drTemp["ECNNO"].ToString() + "' and MOTypeNo='" + MOTypeNo + "' ";
|
||
drTECN = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
while (drTECN.Read())
|
||
{
|
||
dtProcess.Rows.Add(drTemp["ECNNO"].ToString(), drTECN["PROCESSNO"].ToString(), drTECN["PROCESSVERSION"], "TECN");
|
||
blnAllProcess = true;
|
||
}
|
||
|
||
// 若目前工單類型找不到資料以*尋找
|
||
strSQL = "Select * from TBLPRDMOPROCESS where ProductNo='" + ProductNo + "' and productversion='" + ProductVersion + "' and ECNNO='" + drTemp["ECNNO"].ToString() + "' and MOTypeNo='-1' ";
|
||
////cmmTemp = new IDbCommand(strSQL, cnnTemp); // Select data
|
||
drTECN = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
while (drTECN.Read())
|
||
{
|
||
dtProcess.Rows.Add(drTemp["ECNNO"].ToString(), drTECN["PROCESSNO"].ToString(), drTECN["PROCESSVERSION"], "TECN");
|
||
blnAllProcess = true;
|
||
}
|
||
|
||
// 若有ECNNO卻無流程編號及版本回拋錯誤
|
||
goto GoTonext;
|
||
}
|
||
drTemp.Close();
|
||
|
||
// 2020/03/17 Eric
|
||
if (blnAllProcess == true)
|
||
{
|
||
goto GoTonext;
|
||
}
|
||
|
||
// 檢查ECN
|
||
strSQL = "Select * from TBLPRDECNPROCESS where ProductNo='" + ProductNo + "' and productversion='" + ProductVersion + "' and ECNType='ECN' and ECNState=2 ";
|
||
drTemp = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
if (drTemp.Read())
|
||
{
|
||
// 以ECNNO跟工單類型尋找
|
||
strSQL = "Select * from TBLPRDMOPROCESS where ProductNo='" + ProductNo + "' and productversion='" + ProductVersion + "' and ECNNO='" + drTemp["ECNNO"].ToString() + "' and MOTypeNo='" + MOTypeNo + "' ";
|
||
drECN = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
while (drECN.Read())
|
||
dtProcess.Rows.Add(drTemp["ECNNO"].ToString(), drECN["PROCESSNO"].ToString(), drECN["PROCESSVERSION"], "ECN");
|
||
|
||
// 若目前工單類型找不到資料以*尋找
|
||
strSQL = "Select * from TBLPRDMOPROCESS where ProductNo='" + ProductNo + "' and productversion='" + ProductVersion + "' and ECNNO='" + drTemp["ECNNO"].ToString() + "' and MOTypeNo='-1' ";
|
||
drECN = ExecuteSQLQuery_Reader(strSQL, cnnTemp);
|
||
while (drECN.Read())
|
||
dtProcess.Rows.Add(drTemp["ECNNO"].ToString(), drECN["PROCESSNO"].ToString(), drECN["PROCESSVERSION"], "ECN");
|
||
|
||
// 若有ECNNO卻無流程編號及版本回拋錯誤
|
||
goto GoTonext;
|
||
}
|
||
|
||
GoTonext:
|
||
;
|
||
|
||
drTemp.Close();
|
||
|
||
if (dtProcess.Rows.Count <= 0) { clsERP.combineException(ref aryException, mesmsg: "[%ProductNo%]:" + ProductNo + "[%CouldNotFindTheCorrespondingProcessData%]"); } //拋出找不到對應流程資料的錯誤，不允許新增工單
|
||
|
||
if (dsTemp != null)
|
||
{
|
||
dsTemp.Dispose();
|
||
}
|
||
dsTemp.Tables.Add(dtProcess);
|
||
ShowECNProcessDataRet = dsTemp;
|
||
//LoadECNProcessDataRet = iMESCore.Base.iMESComXML.CombineXMLReturnValue("loadecnprocessdata", tblECNProcessData, "DataSet", iMESCore.Base.iMESComXML.FormatXMLSchema(dsTemp.GetXmlSchema()), dsTemp.GetXml(), "");
|
||
}
|
||
|
||
catch (Exception e1)
|
||
{
|
||
|
||
// 發生錯誤時丟回本身的Function Name及系統錯誤訊息
|
||
throw;
|
||
|
||
}
|
||
finally
|
||
{
|
||
if (cnnTemp != null)
|
||
{
|
||
CloseConnection(cnnTemp);
|
||
}
|
||
}
|
||
return ShowECNProcessDataRet;
|
||
|
||
}
|
||
#endregion
|
||
}
|
||
}
|