1189 lines
48 KiB
C#
1189 lines
48 KiB
C#
using System;
|
||
using System.Collections;
|
||
using System.Collections.Generic;
|
||
using System.Data;
|
||
using System.Data.OracleClient;
|
||
using System.Data.SqlClient;
|
||
using System.Diagnostics;
|
||
using System.IO;
|
||
using System.Linq;
|
||
using System.Runtime.InteropServices;
|
||
using System.Text;
|
||
using System.Threading;
|
||
using System.Xml;
|
||
using iMESCIO.SCI.ERP.Request;
|
||
using iMESCIO.SCI.ERP.Response;
|
||
using iMESCIO.SCI.ERP.Request_E10ICD;
|
||
using iMESCIO.SCI.ERP.Response_E10ICD;
|
||
using iMESCIO.SCI.Base;
|
||
using Microsoft.VisualBasic;
|
||
using Microsoft.VisualBasic.CompilerServices;
|
||
using iMESCore.Settings;
|
||
using static iMESCore.DataBase.iMESSql;
|
||
using static iMESCore.Base.iMESComXML;
|
||
using static iMESCore.Base.iMESConst;
|
||
using static iMESCore.Base.iMESComSubroutine;
|
||
using System.Data.Common;
|
||
|
||
namespace AutoRunLib_C
|
||
{
|
||
|
||
|
||
|
||
|
||
public class clsAutoRunLibrary
|
||
{
|
||
|
||
// 2016/06/23 YF, 原呼叫標準各模組的WebService, 改統一呼叫wsInvoke
|
||
|
||
public enum ERPName
|
||
{
|
||
TIPTOP = 0,
|
||
Workflow = 1,
|
||
T100 = 2,
|
||
HMI = 3,
|
||
APS = 4
|
||
}
|
||
|
||
private DataTable dtERPSetting = null;
|
||
|
||
private IDbCommand cmmTemp;
|
||
private string strDataBaseType; // DataBase Type:oracle, mysql, access
|
||
private string strConnectionString; // Connection string
|
||
private string strReportDataBaseType;
|
||
private string strReportConnectionString; // Report DB Connection string
|
||
private string strMQType; // MessageQueue Type:TIBCO, MQSeries, MSMQ
|
||
|
||
private IDbCommand cmmTempERP;
|
||
private string strERPconnectionString;
|
||
private string strERPDataBaseType;
|
||
private string strERPReportConnectionString;
|
||
|
||
private string strERPCreator = "ERP"; // 取得Config設定之defCreator.
|
||
private string strDefLanguage; // 取得Config設定之LanguageMode.
|
||
private string strLanguage_T100; // MES對應ERP T100語系
|
||
|
||
private AppSettings objSetting = new AppSettings();
|
||
private clsDBCom objDBcom = new clsDBCom();
|
||
|
||
public string strComputerName, strERPUnitNo;
|
||
public string strAppPath;
|
||
|
||
public string gERPUser; // ERP使用者名稱
|
||
public string gERPPassword; // ERP密碼
|
||
public string gERPWSURL; // ERP Web服務網址
|
||
public string gERPOraganization; // ERP營運中心代碼
|
||
public string gERPLanguage; // ERP語系
|
||
public string gERPVersion; // ERP版本
|
||
|
||
// //Web Service相關變數
|
||
private XmlDocument XmlDoc = new XmlDocument();
|
||
private StringReader tmpStringReader;
|
||
private string InXml, OutXml, strIdentity, strParameter, XmlData, XmlSchema;
|
||
|
||
private string ExceptionXML; // =====
|
||
|
||
private string ERP_EntID;
|
||
private string ERP_Site;
|
||
private string ERP_URL;
|
||
private string results;
|
||
private string strLanguageMode = "zh-cht";
|
||
private string strResourceDir = "Resources";
|
||
|
||
// Dim objkcWIP As New kcWIP.clsOperatorState '宣告Sys的物件
|
||
|
||
// //Initial Object--------------------------------------------------------------------------------------------------------------------------------
|
||
public clsAutoRunLibrary()
|
||
{
|
||
// //Get database type
|
||
strDataBaseType = objSetting.GetDataBaseType();
|
||
// //Get connection string
|
||
strConnectionString = objSetting.GetConnectionString(strDataBaseType);
|
||
// //Get Message Queue Type
|
||
strMQType = objSetting.GetMQType();
|
||
|
||
strReportDataBaseType = objSetting.GetReportDataBaseType();
|
||
// //Get connection string
|
||
strReportConnectionString = objSetting.GetReportConnectionString(strReportDataBaseType);
|
||
|
||
// ERP
|
||
// //Get ERP database type
|
||
strERPDataBaseType = objSetting.GetDataBaseType_ERP();
|
||
// //Get ERP connection string
|
||
strERPconnectionString = objSetting.GetConnectionString_ERP(strERPDataBaseType);
|
||
|
||
try
|
||
{
|
||
strResourceDir = objSetting["ResourceDir"].ToString();
|
||
}
|
||
catch (Exception)
|
||
{ }
|
||
try
|
||
{
|
||
strLanguageMode = objSetting["LanguageMode"].ToString();
|
||
}
|
||
catch (Exception)
|
||
{
|
||
}
|
||
|
||
// T100 整合項目增加, 取得 Web.Config 設定項目, 2015/12/15 Add.
|
||
|
||
try
|
||
{
|
||
// 從Web.config取出目前的DatabaseType
|
||
strERPCreator = System.Configuration.ConfigurationSettings.AppSettings.Get("defCreator");
|
||
// 2016-03-09, Joe, 取出預設ERP單位屬性編號
|
||
strERPUnitNo = System.Configuration.ConfigurationSettings.AppSettings.Get("defERPUnitNoProperty");
|
||
// 2016-03-02, Joe, 取出預設語系並轉換成ERP對應語系，後續T100多語系資料需用到
|
||
strDefLanguage = System.Configuration.ConfigurationSettings.AppSettings.Get("LanguageMode");
|
||
switch (strDefLanguage.ToUpper() ?? "")
|
||
{
|
||
case "ZH-CHS":
|
||
{
|
||
strLanguage_T100 = "zh_CN";
|
||
break;
|
||
}
|
||
case "EN":
|
||
{
|
||
strLanguage_T100 = "en_US";
|
||
break;
|
||
}
|
||
|
||
default:
|
||
{
|
||
strLanguage_T100 = "zh_TW";
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
// 發生錯誤時丟回本身的Function Name及系統錯誤訊息
|
||
}
|
||
|
||
|
||
}
|
||
|
||
|
||
// //Property--------------------------------------------------------------------------------------------------------------------------------
|
||
public string ConnectionString
|
||
{
|
||
get
|
||
{
|
||
return strConnectionString;
|
||
}
|
||
}
|
||
|
||
public string DataBaseType
|
||
{
|
||
get
|
||
{
|
||
return strDataBaseType;
|
||
}
|
||
}
|
||
|
||
// Public ReadOnly Property ERPConnectionString()
|
||
// Get
|
||
// ERPConnectionString = strERPconnectionString
|
||
// End Get
|
||
// End Property
|
||
|
||
// Public ReadOnly Property ERPDataBaseType()
|
||
// Get
|
||
// ERPDataBaseType = strERPDataBaseType
|
||
// End Get
|
||
// End Property
|
||
|
||
public string MQType
|
||
{
|
||
get
|
||
{
|
||
return strMQType;
|
||
}
|
||
}
|
||
|
||
|
||
// //Function--------------------------------------------------------------------------------------------------------------------------------
|
||
#region 共用的function (不可刪除)
|
||
|
||
// //Public function----------------------------------------------------------------------------------------------------
|
||
public string ExecuteFunction(string FunctionName, Collection colParameters = null)
|
||
{
|
||
string ExecuteFunctionRet = default(string);
|
||
// 此 Function 將執行傳入之FunctionName
|
||
// 傳入值: FunctionName,colParameters
|
||
// 傳回值: DataSet(成功), nothing(失敗)
|
||
|
||
// colParameters的資料範例如下
|
||
// colParameters.Add("C1", "CustomerNo")
|
||
// colParameters.Add("P1", "ProductNo")
|
||
|
||
int i;
|
||
|
||
try
|
||
{
|
||
// 2019/07/26 OwenLiu, Mantis:0060463, AutoRunService 支持行業包共用架構
|
||
// --------------------------------------------------------------------------------------------------
|
||
// 半導體芯片製造行業包(SEMI_WAFER)：S, AutoRunLib_SEMI_WAFER.dll, Job Function固定以 fun_S_ 開頭
|
||
// 半導體芯片測試行業包(IC_CP_PKG)：P, AutoRunLib_IC_CP_PKG.dll, Job Function固定以 fun_P_ 開頭
|
||
// 集成電路封測行業包(IC_FT_PKG)：I, AutoRunLib_IC_FT_PKG.dll, Job Function固定以 fun_I_ 開頭
|
||
// 分立器件封測行業包(DISCRETE_PKG)：D, AutoRunLib_DISCRETE_PKG.dll, Job Function固定以 fun_D_ 開頭
|
||
// LED封測行業包(LED_PKG)：L, AutoRunLib_LED_PKG.dll, Job Function固定以 fun_L_ 開頭
|
||
// 序號組裝行業包(ASM)：A, AutoRunLib_ASM.dll, Job Function固定以 fun_A_ 開頭
|
||
// --------------------------------------------------------------------------------------------------
|
||
// 1.處理 FunctionName 大小寫問題
|
||
// 本機執行:將DLL放在執行檔編譯後的位置底下(AutoRunService)
|
||
string strFilePath = AppDomain.CurrentDomain.BaseDirectory + @"\";
|
||
string strLibFileName = "";
|
||
string strLibraryName = "";
|
||
if (FunctionName.ToUpper().StartsWith("FUN_S_")) // SEMI_WAFER
|
||
{
|
||
strLibFileName = "AutoRunLib_SEMI_WAFER.dll";
|
||
}
|
||
else if (FunctionName.ToUpper().StartsWith("FUN_P_")) // IC_CP_PKG
|
||
{
|
||
strLibFileName = "AutoRunLib_IC_CP_PKG.dll";
|
||
}
|
||
else if (FunctionName.ToUpper().StartsWith("FUN_I_")) // IC_FT_PKG
|
||
{
|
||
strLibFileName = "AutoRunLib_IC_FT_PKG.dll";
|
||
}
|
||
else if (FunctionName.ToUpper().StartsWith("FUN_D_")) // DISCRETE_PKG
|
||
{
|
||
strLibFileName = "AutoRunLib_DISCRETE_PKG.dll";
|
||
}
|
||
else if (FunctionName.ToUpper().StartsWith("FUN_L_")) // LED_PKG
|
||
{
|
||
strLibFileName = "AutoRunLib_LED_PKG.dll";
|
||
}
|
||
else if (FunctionName.ToUpper().StartsWith("FUN_A_")) // ASM
|
||
{
|
||
strLibFileName = "AutoRunLib_ASM.dll";
|
||
}
|
||
else if (FunctionName.ToUpper().StartsWith("FUN_C_")) // 個案
|
||
{
|
||
strLibFileName = "AutoRunLib_C.dll";
|
||
}
|
||
else
|
||
{
|
||
strLibFileName = "AutoRunLib.dll";
|
||
}
|
||
strLibraryName = strLibFileName.Substring(0, strLibFileName.LastIndexOf(".dll")) + ".clsAutoRunLibrary";
|
||
strFilePath += strLibFileName;
|
||
var mainAssembly = System.Reflection.Assembly.LoadFrom(strFilePath);
|
||
System.Reflection.MethodInfo[] MyMethodInfos = mainAssembly.GetType(strLibraryName).GetMethods(System.Reflection.BindingFlags.NonPublic | System.Reflection.BindingFlags.Instance); // 取出Private的Function
|
||
|
||
var loopTo = MyMethodInfos.Length - 1;
|
||
for (i = 0; i <= loopTo; i++)
|
||
{
|
||
if ((MyMethodInfos[i].Name.ToUpper() ?? "") == (FunctionName.ToUpper() ?? ""))
|
||
{
|
||
FunctionName = MyMethodInfos[i].Name;
|
||
break;
|
||
}
|
||
}
|
||
|
||
// 2.執行Private Function,傳出DataSet
|
||
object objArgs = new object[] { colParameters };
|
||
string strClassName = "clsAutoRunLibrary";
|
||
Type t;
|
||
System.Reflection.MethodInfo mi;
|
||
Type[] argumentTypes;
|
||
System.Reflection.ConstructorInfo ctor;
|
||
object obj;
|
||
|
||
try
|
||
{
|
||
t = mainAssembly.GetType(mainAssembly.GetName().Name + "." + strClassName, true, true);
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
throw;
|
||
}
|
||
|
||
argumentTypes = Type.EmptyTypes;
|
||
ctor = t.GetConstructor(argumentTypes);
|
||
obj = ctor.Invoke(new object[] { });
|
||
mi = t.GetMethod(FunctionName, System.Reflection.BindingFlags.NonPublic | System.Reflection.BindingFlags.Instance);
|
||
|
||
ExecuteFunctionRet = Conversions.ToString(mi.Invoke(obj, (object[])objArgs));
|
||
}
|
||
|
||
|
||
catch (Exception e1)
|
||
{
|
||
// 2016-08-25, Joe, 加.InnerException將exception傳出
|
||
if (e1.InnerException == null)
|
||
{
|
||
ExecuteFunctionRet = "fail;" + e1.Message;
|
||
}
|
||
else
|
||
{
|
||
ExecuteFunctionRet = "fail;" + e1.InnerException.Message;
|
||
}
|
||
}
|
||
|
||
finally
|
||
{
|
||
|
||
}
|
||
|
||
return ExecuteFunctionRet;
|
||
|
||
}
|
||
|
||
private string SendMultiEmailNonGroup(ref string EmailSubject, string EmailBody = defString, string EmailAddress = defString, string AttachFileName = defString, byte[] AttachFile = null, string EmailAddressCC = defString)
|
||
{
|
||
string SendMultiEmailNonGroupRet = default(string);
|
||
|
||
// 將發Mail給非群組收件者 多人可用 , 隔開
|
||
|
||
string[] aryAddress, aryAddressCC;
|
||
string tmpXML = default(string), tmpXMLCC = default(string);
|
||
aryAddress = Strings.Split(EmailAddress, ",");
|
||
|
||
// 子收件者包幾個child tag
|
||
foreach (string StrTemp in aryAddress)
|
||
{
|
||
string argTagName = "address";
|
||
string argValue = CombineXMLValue(argTagName, StrTemp);
|
||
tmpXML += CombineXMLValueTag(argValue);
|
||
}
|
||
|
||
if ((EmailAddressCC ?? "") != defString && !string.IsNullOrEmpty(EmailAddressCC))
|
||
{
|
||
aryAddressCC = Strings.Split(EmailAddressCC, ",");
|
||
foreach (string StrTemp in aryAddressCC)
|
||
{
|
||
string argTagName1 = "address";
|
||
string argValue1 = CombineXMLValue(argTagName1, StrTemp);
|
||
tmpXMLCC += CombineXMLValueTag(argValue1);
|
||
}
|
||
}
|
||
|
||
|
||
try
|
||
{
|
||
string argCurUserNo = "AUTORUN";
|
||
string argSendTime = Conversions.ToString(DateTime.Now);
|
||
strIdentity = CombineXMLIdentity(modWIN.gComputerName, argCurUserNo, argSendTime);
|
||
string argvalue_name = "emailaddress";
|
||
string argname = "EmailAddress";
|
||
string argtype = "String";
|
||
string argdesc = "";
|
||
strParameter = CombineXMLParameterMultiValue(argvalue_name, argname, argtype, tmpXML, argdesc);
|
||
string argvalue_name1 = "emailsubject";
|
||
string argname1 = "EmailSubject";
|
||
string argtype1 = "String";
|
||
string argdesc1 = "";
|
||
strParameter += CombineXMLParameter(argvalue_name1, argname1, argtype1, EmailSubject, argdesc1);
|
||
string argvalue_name2 = "emailbody";
|
||
string argname2 = "EmailBody";
|
||
string argtype2 = "String";
|
||
string argvalue = CInput(EmailBody);
|
||
string argdesc2 = "";
|
||
strParameter += CombineXMLParameter(argvalue_name2, argname2, argtype2, argvalue, argdesc2);
|
||
|
||
if (!string.IsNullOrEmpty(tmpXMLCC))
|
||
{
|
||
string argvalue_name3 = "emailaddresscc";
|
||
string argname3 = "EmailAddressCC";
|
||
string argtype3 = "String";
|
||
string argdesc3 = "";
|
||
strParameter += CombineXMLParameterMultiValue(argvalue_name3, argname3, argtype3, tmpXMLCC, argdesc3);
|
||
}
|
||
|
||
if ((AttachFileName ?? "") != defString)
|
||
{
|
||
string argvalue_name4 = "attachfilename";
|
||
string argname4 = "AttachFileName";
|
||
string argtype4 = "String";
|
||
string argdesc4 = "";
|
||
strParameter += CombineXMLParameter(argvalue_name4, argname4, argtype4, AttachFileName, argdesc4);
|
||
}
|
||
|
||
var XmlDoc = new XmlDocument();
|
||
InXml = CombineXMLRequest(strIdentity, strParameter);
|
||
|
||
if ((AttachFileName ?? "") != defString)
|
||
{
|
||
OutXml = modAutoRunLibrary.InvokeSrv("wsSYS.SendMultiEmailAndAttachFile", InXml, AttachFile);
|
||
}
|
||
else
|
||
{
|
||
OutXml = modAutoRunLibrary.InvokeSrv("wsSYS.SendMultiEmail", InXml);
|
||
}
|
||
|
||
XmlDoc.LoadXml(OutXml);
|
||
|
||
if (chkExecutionSuccess(XmlDoc)) // 找出Exception訊並顯示出來
|
||
{
|
||
SendMultiEmailNonGroupRet = "success";
|
||
}
|
||
else
|
||
{
|
||
// 20220901,13871,0118251: 【度亘】描述性语言报表，排程执行失败,調整錯誤訊息
|
||
SendMultiEmailNonGroupRet = "fail;" + GetExceptionMesMsg(XmlDoc) + ";" + GetExceptionSysMsg(XmlDoc);
|
||
}
|
||
|
||
XmlDoc = null;
|
||
}
|
||
|
||
catch (Exception ex)
|
||
{
|
||
SendMultiEmailNonGroupRet = "fail;" + ex.Message;
|
||
}
|
||
|
||
return SendMultiEmailNonGroupRet;
|
||
|
||
}
|
||
|
||
private void SendJobFailEmail(Collection colParameters)
|
||
{
|
||
// 發送Email前置作業, 可判別群組與非群組寄送
|
||
|
||
var dsGroup = new DataSet();
|
||
var strGroupBasis = default(string);
|
||
|
||
string[] aryEmailAddress;
|
||
string strEmailAddress, strNonGroup = default(string), strGroup = default(string), strEmailBody, strEmailTitle; // EmailInfo
|
||
|
||
// 取出參數EmailAddress 取不到則不發送
|
||
// 2013/10/18, Hank, 修改若無EmailAddress欄位會crash
|
||
if (colParameters.Contains("EmailAddress") == false || colParameters["EmailAddress"] == null || string.IsNullOrEmpty(Strings.Trim(Conversions.ToString(colParameters["EmailAddress"]))))
|
||
{
|
||
return;
|
||
}
|
||
else
|
||
{
|
||
strEmailAddress = Strings.Trim(Conversions.ToString(colParameters["EmailAddress"]));
|
||
}
|
||
strEmailTitle = "MES AutoRun-" + Strings.Trim(Conversions.ToString(colParameters["JobNo"])) + " Fail";
|
||
strEmailBody = Strings.Trim(Conversions.ToString(colParameters["EmailBody"]));
|
||
|
||
LoadGroupBasis(ref dsGroup);
|
||
|
||
// 切出 有效群組與非群組
|
||
aryEmailAddress = Strings.Split(strEmailAddress, ",");
|
||
for (int i = 0, loopTo = aryEmailAddress.Length - 1; i <= loopTo; i++)
|
||
{
|
||
if (System.Text.RegularExpressions.Regex.Matches(aryEmailAddress[i], "@").Count == 1) // Non Group
|
||
{
|
||
strNonGroup += Strings.Trim(aryEmailAddress[i]) + ",";
|
||
}
|
||
else if (dsGroup.Tables[strGroupBasis].Select("GroupNo ='" + Strings.Trim(aryEmailAddress[i]) + "'").Length > 0) // Group
|
||
{
|
||
strGroup += Strings.Trim(aryEmailAddress[i]) + ",";
|
||
}
|
||
}
|
||
|
||
// 去掉最後字元為 ,
|
||
if (Strings.Right(strGroup, 1) == ",")
|
||
strGroup = Strings.Mid(strGroup, 1, Strings.Len(strGroup) - 1);
|
||
if (Strings.Right(strNonGroup, 1) == ",")
|
||
strNonGroup = Strings.Mid(strNonGroup, 1, Strings.Len(strNonGroup) - 1);
|
||
|
||
// 群組寄送
|
||
if (!string.IsNullOrEmpty(strGroup))
|
||
{
|
||
string argFileName = "N/A";
|
||
modAutoRunLibrary.SendMultiEmail(ref argFileName, ref strEmailTitle, strEmailBody, strGroup);
|
||
}
|
||
// 非群組寄送
|
||
if (!string.IsNullOrEmpty(strNonGroup))
|
||
{
|
||
SendMultiEmailNonGroup(ref strEmailTitle, strEmailBody, strNonGroup);
|
||
}
|
||
|
||
}
|
||
|
||
private string ChgTranslateName(Collection ColSaveControl, string LanguageMode = "en")
|
||
{
|
||
// 目的：
|
||
// 將 Collection 上所有的 Object 都做語系切換
|
||
// 語系檔命名為 MESResource.XX.Resx
|
||
// zh-CHS（簡體）、zh-CHT（繁體）、en（英文）
|
||
|
||
string strResourceFile;
|
||
|
||
if (string.IsNullOrEmpty(LanguageMode))
|
||
{
|
||
return default(string);
|
||
}
|
||
else
|
||
{
|
||
strResourceFile = "MESResource." + LanguageMode;
|
||
}
|
||
|
||
string strResourcePath;
|
||
strResourcePath = AppDomain.CurrentDomain.BaseDirectory + "Resources";
|
||
|
||
// 檢查檔案是否存在
|
||
if (string.IsNullOrEmpty(FileSystem.Dir(strResourcePath + @"\" + strResourceFile + ".resources"))) // File not exist
|
||
{
|
||
return default(string);
|
||
}
|
||
|
||
var rm = System.Resources.ResourceManager.CreateFileBasedResourceManager(strResourceFile, strResourcePath, null);
|
||
string TmpString;
|
||
int i;
|
||
|
||
foreach (var objControl in ColSaveControl)
|
||
{
|
||
if (objControl is iMESUltraGrid.iMESUltraGridControl)
|
||
{
|
||
TmpString = Conversions.ToString((objControl as iMESUltraGrid.iMESUltraGridControl).Name.Substring(3, (Strings.Len((objControl as iMESUltraGrid.iMESUltraGridControl).Name) - 3)));
|
||
TmpString = rm.GetString(TmpString.ToUpper());
|
||
if (Conversions.ToBoolean(Operators.AndObject(!string.IsNullOrEmpty(TmpString), Operators.ConditionalCompareObjectNotEqual((objControl as iMESUltraGrid.iMESUltraGridControl).iMESUltraGrid.Text, "", false))))
|
||
{
|
||
(objControl as iMESUltraGrid.iMESUltraGridControl).iMESUltraGrid.Text = TmpString;
|
||
}
|
||
}
|
||
|
||
else if (objControl is Infragistics.Win.UltraWinGrid.UltraGrid)
|
||
{
|
||
|
||
int bandCount;
|
||
int colCount;
|
||
|
||
var loopTo = ((Infragistics.Win.UltraWinGrid.UltraGrid)objControl).DisplayLayout.Bands.Count - 1;
|
||
for (bandCount = 0; bandCount <= loopTo; bandCount++)
|
||
{
|
||
|
||
var loopTo1 = ((Infragistics.Win.UltraWinGrid.UltraGrid)objControl).DisplayLayout.Bands[bandCount].Columns.Count - 1;
|
||
for (colCount = 0; colCount <= loopTo1; colCount++)
|
||
((Infragistics.Win.UltraWinGrid.UltraGrid)objControl).DisplayLayout.Bands[bandCount].Columns[colCount].Header.Caption = Conversions.ToString(Interaction.IIf(string.IsNullOrEmpty(rm.GetString(((Infragistics.Win.UltraWinGrid.UltraGrid)objControl).DisplayLayout.Bands[bandCount].Columns[colCount].Key.ToUpper())), ((Infragistics.Win.UltraWinGrid.UltraGrid)objControl).DisplayLayout.Bands[bandCount].Columns[colCount].Header.Caption, rm.GetString(((Infragistics.Win.UltraWinGrid.UltraGrid)objControl).DisplayLayout.Bands[bandCount].Columns[colCount].Key.ToUpper())));
|
||
|
||
// 20120911, Aaron, Group By Box
|
||
} ((Infragistics.Win.UltraWinGrid.UltraGrid)objControl).DisplayLayout.GroupByBox.ResetPrompt();
|
||
TmpString = ((Infragistics.Win.UltraWinGrid.UltraGrid)objControl).DisplayLayout.GroupByBox.Prompt;
|
||
TmpString = rm.GetString(TmpString.ToUpper());
|
||
|
||
if (!string.IsNullOrEmpty(TmpString))
|
||
{
|
||
((Infragistics.Win.UltraWinGrid.UltraGrid)objControl).DisplayLayout.GroupByBox.Prompt = TmpString;
|
||
}
|
||
}
|
||
TmpString = "";
|
||
}
|
||
|
||
return default(string);
|
||
|
||
}
|
||
public string ChgTranslateName_Content(string ErrorName)
|
||
{
|
||
string ChgTranslateName_ContentRet = default(string);
|
||
|
||
// 1.Check LanguageMode
|
||
string strMsgFile, strGenFile;
|
||
if (string.IsNullOrEmpty(modWIN.gLanguageMode))
|
||
{
|
||
strMsgFile = "msg_name" + "en";
|
||
strGenFile = "mesresource" + "en";
|
||
}
|
||
else
|
||
{
|
||
strMsgFile = "msg_name." + modWIN.gLanguageMode;
|
||
strGenFile = "mesresource." + modWIN.gLanguageMode;
|
||
}
|
||
|
||
// 2.Get File Path
|
||
string strResourcePath = AppDomain.CurrentDomain.BaseDirectory + "Resources";
|
||
|
||
// 檢查檔案是否存在
|
||
if (string.IsNullOrEmpty(FileSystem.Dir(strResourcePath + @"\" + strMsgFile + ".resources"))) // File not exist
|
||
{
|
||
ChgTranslateName_ContentRet = ErrorName;
|
||
return ChgTranslateName_ContentRet;
|
||
}
|
||
if (string.IsNullOrEmpty(FileSystem.Dir(strResourcePath + @"\" + strGenFile + ".resources"))) // File not exist
|
||
{
|
||
ChgTranslateName_ContentRet = ErrorName;
|
||
return ChgTranslateName_ContentRet;
|
||
}
|
||
|
||
// 4.Replace原始訊息.
|
||
string strErrName_Rep = "";
|
||
if (Strings.InStr(ErrorName, "[%", CompareMethod.Text) > 0)
|
||
{
|
||
// Replace[%%]
|
||
var rmGen = System.Resources.ResourceManager.CreateFileBasedResourceManager(strGenFile, strResourcePath, null);
|
||
string strKey, strKeyValue;
|
||
int intStart, j, k, l;
|
||
|
||
intStart = 1;
|
||
j = 1;
|
||
|
||
while (j != 0)
|
||
{
|
||
j = Strings.InStr(intStart, ErrorName, "[%", CompareMethod.Text);
|
||
if (j == 0)
|
||
{
|
||
strErrName_Rep += Strings.Mid(ErrorName, intStart);
|
||
}
|
||
else
|
||
{
|
||
k = Strings.InStr(j + 2, ErrorName, "%]", CompareMethod.Text);
|
||
if (k == 0)
|
||
{
|
||
// 找不到對應的結束字元.
|
||
strErrName_Rep += Strings.Mid(ErrorName, intStart);
|
||
j = 0;
|
||
}
|
||
else
|
||
{
|
||
// 檢查是否有不對稱的情況.
|
||
l = Strings.InStr(j + 2, ErrorName, "[%", CompareMethod.Text);
|
||
if (l == 0 || l > k)
|
||
{
|
||
strErrName_Rep += Strings.Mid(ErrorName, intStart, j - intStart);
|
||
strKey = Strings.Mid(ErrorName, j + 2, k - j - 2);
|
||
// 將Key執行語系轉換
|
||
try
|
||
{
|
||
strKeyValue = rmGen.GetString(strKey.ToUpper());
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
strKeyValue = strKey;
|
||
}
|
||
if (string.IsNullOrEmpty(strKeyValue))
|
||
{
|
||
strErrName_Rep += strKey;
|
||
}
|
||
else
|
||
{
|
||
strErrName_Rep += strKeyValue;
|
||
}
|
||
// 下次截取字串的起始位置
|
||
intStart = k + 2;
|
||
}
|
||
else
|
||
{
|
||
// 不對稱,找到最內層的[%%]
|
||
int m;
|
||
// 在前面的條件下,一定找得到.
|
||
m = Strings.InStrRev(ErrorName, "[%", k, CompareMethod.Text);
|
||
// 擷出不轉換的字串.
|
||
strErrName_Rep += Strings.Mid(ErrorName, intStart, m - intStart);
|
||
strKey = Strings.Mid(ErrorName, m + 2, k - m - 2);
|
||
// 將Key執行語系轉換
|
||
try
|
||
{
|
||
strKeyValue = rmGen.GetString(strKey.ToUpper());
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
strKeyValue = strKey;
|
||
}
|
||
if (string.IsNullOrEmpty(strKeyValue))
|
||
{
|
||
strErrName_Rep += strKey;
|
||
}
|
||
else
|
||
{
|
||
strErrName_Rep += strKeyValue;
|
||
}
|
||
// 下次截取字串的起始位置
|
||
intStart = k + 2;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
rmGen = null;
|
||
}
|
||
|
||
// 5.Final Message.
|
||
string strFinalMsg;
|
||
// 原始訊息
|
||
if (string.IsNullOrEmpty(strErrName_Rep))
|
||
{
|
||
strFinalMsg = ErrorName;
|
||
}
|
||
else
|
||
{
|
||
strFinalMsg = strErrName_Rep;
|
||
}
|
||
|
||
ChgTranslateName_ContentRet = strFinalMsg;
|
||
return ChgTranslateName_ContentRet;
|
||
|
||
|
||
}
|
||
|
||
~clsAutoRunLibrary()
|
||
{
|
||
|
||
if (objSetting != null)
|
||
objSetting = null;
|
||
|
||
}
|
||
|
||
/// <summary>
|
||
/// 向資料庫取得使用TipTop時的ERP整合設定資訊。
|
||
/// </summary>
|
||
/// <returns></returns>
|
||
/// <remarks></remarks>
|
||
public void funGetERPSetting(string pERPName)
|
||
{
|
||
// Gary Lu 20120614:ERP整合設定統一由此函數取得
|
||
StringReader tmpStringReader; // 將字串轉換成可讀入DataSet的物件
|
||
string strERPSettingTableName;
|
||
string InXml, OutXml, strIdentity, strParameter, XmlData, XmlSchema; // 呼叫WS的字串參數
|
||
var XmlDoc = new XmlDocument();
|
||
try
|
||
{
|
||
var dsERPSetting_TP = new DataSet();
|
||
|
||
// 組InXml
|
||
string argSendTime = Conversions.ToString(DateTime.Now);
|
||
strIdentity = CombineXMLIdentity(modWIN.gComputerName, modWIN.gUserNo, argSendTime);
|
||
string argvalue_name = "erpname";
|
||
string argname = "ERPName";
|
||
string argtype = "String";
|
||
string argdesc = "";
|
||
strParameter = CombineXMLParameter(argvalue_name, argname, argtype, pERPName, argdesc);
|
||
InXml = CombineXMLRequest(strIdentity, strParameter);
|
||
|
||
// 呼叫Web服務執行
|
||
OutXml = modAutoRunLibrary.InvokeSrv("wsSYS.LoadERPSetting", InXml);
|
||
|
||
// 解讀Web服務的執行結果
|
||
XmlDoc.LoadXml(OutXml);
|
||
|
||
if (chkExecutionSuccess(XmlDoc))
|
||
{
|
||
|
||
// 讀取取出資料表的名稱
|
||
strERPSettingTableName = XmlDoc.GetElementsByTagName("returnvalue").Item(0).SelectNodes("loaderpsetting").Item(0).SelectNodes("name").Item(0).InnerXml;
|
||
|
||
// 取出Schema,dataset讀取Schema可防止Null Field及DateTime的問題
|
||
|
||
XmlSchema = XmlDoc.DocumentElement.GetElementsByTagName("loaderpsetting").Item(0).SelectNodes("schema").Item(0).InnerXml;
|
||
if (!string.IsNullOrEmpty(XmlSchema))
|
||
{
|
||
// 將XML讀入String Reader object中,因為Dataset讀入XML時必須透過String Reader物件
|
||
tmpStringReader = new StringReader(XmlSchema);
|
||
dsERPSetting_TP.ReadXmlSchema(tmpStringReader);
|
||
tmpStringReader.Close();
|
||
}
|
||
|
||
// 取出Data
|
||
XmlData = XmlDoc.DocumentElement.GetElementsByTagName("loaderpsetting").Item(0).SelectNodes("value").Item(0).InnerXml;
|
||
if (!string.IsNullOrEmpty(XmlData))
|
||
{
|
||
tmpStringReader = new StringReader(XmlData);
|
||
dsERPSetting_TP.ReadXml(tmpStringReader, XmlReadMode.InferSchema);
|
||
tmpStringReader.Close();
|
||
}
|
||
|
||
if (dsERPSetting_TP.Tables[strERPSettingTableName].Rows.Count > 0)
|
||
{
|
||
gERPUser = dsERPSetting_TP.Tables[strERPSettingTableName].Rows[0]["ERP_USER"].ToString();
|
||
gERPPassword = dsERPSetting_TP.Tables[strERPSettingTableName].Rows[0]["ERP_PWD"].ToString();
|
||
gERPWSURL = dsERPSetting_TP.Tables[strERPSettingTableName].Rows[0]["ERP_WSURL"].ToString();
|
||
gERPOraganization = dsERPSetting_TP.Tables[strERPSettingTableName].Rows[0]["ERP_ORG"].ToString();
|
||
gERPLanguage = dsERPSetting_TP.Tables[strERPSettingTableName].Rows[0]["ERP_LANG"].ToString();
|
||
gERPVersion = dsERPSetting_TP.Tables[strERPSettingTableName].Rows[0]["ERP_VERSION"].ToString();
|
||
}
|
||
else
|
||
{
|
||
throw new Exception("[%ERPWSURL%] not found!");
|
||
}
|
||
}
|
||
else
|
||
{
|
||
throw new Exception("[%ERPWSURL%] not found!");
|
||
}
|
||
}
|
||
|
||
catch (Exception ex)
|
||
{
|
||
throw;
|
||
}
|
||
}
|
||
|
||
/// <summary>
|
||
/// 取得ERP整合的設定資料
|
||
/// </summary>
|
||
/// <param name="ERPName"></param>
|
||
/// <param name="pTable"></param>
|
||
/// <returns></returns>
|
||
private bool GetERPSetting(ref DataTable pTable, string pERPName = defString, int pEAIType = 0)
|
||
{
|
||
|
||
bool blnResult = false;
|
||
var XmlDoc = new XmlDocument();
|
||
var dsTemp = new DataSet();
|
||
|
||
try
|
||
{
|
||
|
||
// 組InXml
|
||
string argSendTime = Conversions.ToString(DateTime.Now);
|
||
strIdentity = CombineXMLIdentity(modWIN.gComputerName, modWIN.gUserNo, argSendTime);
|
||
strParameter = "";
|
||
if ((pERPName ?? "") != defString)
|
||
{
|
||
string argvalue_name = "erpname";
|
||
string argname = "ERPName";
|
||
string argtype = "String";
|
||
string argdesc = "";
|
||
strParameter += CombineXMLParameter(argvalue_name, argname, argtype, pERPName, argdesc);
|
||
}
|
||
if (pEAIType != 0)
|
||
{
|
||
string argstrAdditional = CombineAddXML_Condition("EAI_Type = " + pEAIType);
|
||
strParameter += CombineXMLAdditional(argstrAdditional);
|
||
}
|
||
|
||
|
||
|
||
InXml = CombineXMLRequest(strIdentity, strParameter);
|
||
|
||
// 呼叫Web服務執行
|
||
OutXml = modAutoRunLibrary.InvokeSrv("wsSYS.LoadERPSetting", InXml);
|
||
|
||
// 解讀Web服務的執行結果
|
||
XmlDoc.LoadXml(OutXml);
|
||
|
||
if (chkExecutionSuccess(XmlDoc))
|
||
{
|
||
|
||
XmlSchema = XmlDoc.DocumentElement.GetElementsByTagName("loaderpsetting").Item(0).SelectNodes("schema").Item(0).InnerXml;
|
||
|
||
if (!string.IsNullOrEmpty(XmlSchema))
|
||
{
|
||
// 將XML讀入String Reader object中,因為Dataset讀入XML時必須透過String Reader物件
|
||
tmpStringReader = new StringReader(XmlSchema);
|
||
dsTemp.ReadXmlSchema(tmpStringReader);
|
||
tmpStringReader.Close();
|
||
}
|
||
|
||
XmlData = XmlDoc.DocumentElement.GetElementsByTagName("loaderpsetting").Item(0).SelectNodes("value").Item(0).InnerXml;
|
||
|
||
if (!string.IsNullOrEmpty(XmlData))
|
||
{
|
||
tmpStringReader = new StringReader(XmlData);
|
||
dsTemp.ReadXml(tmpStringReader, XmlReadMode.InferSchema);
|
||
tmpStringReader.Close();
|
||
}
|
||
|
||
if (dsTemp.Tables.Count > 0 && dsTemp.Tables[0].Rows.Count > 0)
|
||
{
|
||
pTable = dsTemp.Tables[0].Copy();
|
||
blnResult = true;
|
||
}
|
||
else
|
||
{
|
||
throw new Exception("[%GetERPSetting%] not found!");
|
||
}
|
||
|
||
dtERPSetting = dsTemp.Tables[0];
|
||
var row = dtERPSetting.Rows[0];
|
||
|
||
ERP_EntID = row["ERP_ENTID"].ToString();
|
||
ERP_Site = row["ERP_ORG"].ToString();
|
||
ERP_URL = row["ERP_WSURL"].ToString();
|
||
}
|
||
|
||
|
||
else
|
||
{
|
||
throw new Exception("[%GetERPSetting%] not found!");
|
||
}
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
throw;
|
||
}
|
||
finally
|
||
{
|
||
XmlDoc = null;
|
||
dsTemp = null;
|
||
}
|
||
|
||
return blnResult;
|
||
|
||
}
|
||
|
||
#region ProcessAbout
|
||
|
||
private int[] GetProcessID(string Str_ProcessName)
|
||
{
|
||
int[] GetProcessIDRet = default(int[]);
|
||
int[] IntArray;
|
||
int i;
|
||
Process[] allRelationalProcs = Process.GetProcessesByName(Str_ProcessName);
|
||
i = 0;
|
||
IntArray = new int[1];
|
||
|
||
foreach (var thisProcess in allRelationalProcs)
|
||
{
|
||
try
|
||
{
|
||
Array.Resize(ref IntArray, i + 1);
|
||
IntArray[i] = thisProcess.Id;
|
||
i += 1;
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
// MessageBox.Show(ex.GetBaseException.ToString, "GetProcessID Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
}
|
||
}
|
||
|
||
GetProcessIDRet = IntArray;
|
||
return GetProcessIDRet;
|
||
|
||
}
|
||
|
||
private int[] GetNewPID(int[] OldPID, int[] AllPID)
|
||
{
|
||
int[] GetNewPIDRet = default(int[]);
|
||
int i, j, k;
|
||
int[] IntArray;
|
||
j = 0;
|
||
IntArray = new int[1];
|
||
|
||
var loopTo = Information.UBound(AllPID);
|
||
for (i = 0; i <= loopTo; i++)
|
||
{
|
||
k = Array.IndexOf(OldPID, AllPID[i]);
|
||
if (k == -1)
|
||
{
|
||
Array.Resize(ref IntArray, j + 1);
|
||
IntArray[j] = AllPID[i];
|
||
j += 1;
|
||
}
|
||
}
|
||
GetNewPIDRet = IntArray;
|
||
return GetNewPIDRet;
|
||
|
||
}
|
||
|
||
private bool KillProcess(int Str_ProcessID)
|
||
{
|
||
try
|
||
{
|
||
var Process = System.Diagnostics.Process.GetProcessById(Str_ProcessID);
|
||
|
||
if (Conversions.ToBoolean(!Process.CloseMainWindow()))
|
||
{
|
||
Process.Kill();
|
||
}
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
// MessageBox.Show(ex.GetBaseException.ToString, "Close Process Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
}
|
||
|
||
return default(Boolean);
|
||
|
||
}
|
||
|
||
#endregion
|
||
|
||
private void LoadGroupBasis(ref DataSet dsGroup)
|
||
{
|
||
// 讀取使用者群組主檔
|
||
var strGroupBasis = default(string);
|
||
|
||
// 先判斷是否dataset中已有equipmenttype之datatable,若有,需先remove否則會有錯誤
|
||
if (!(dsGroup.Tables[strGroupBasis] == null))
|
||
{
|
||
dsGroup.Tables.Remove(strGroupBasis);
|
||
}
|
||
|
||
// 組InXml的字串
|
||
string argSendTime = Conversions.ToString(DateTime.Now);
|
||
strIdentity = CombineXMLIdentity(modWIN.gComputerName, modWIN.gUserNo, argSendTime);
|
||
// 加上IssueState要求取出所有資料
|
||
string argvalue_name = "issuestate";
|
||
string argname = "issuestate";
|
||
string argtype = "Integer";
|
||
string argvalue = defInteger.ToString();
|
||
string argdesc = "";
|
||
strParameter = CombineXMLParameter(argvalue_name, argname, argtype, argvalue, argdesc);
|
||
int modAutoRundefTmp = defInteger;
|
||
modAutoRundefTmp = Conversions.ToInteger(argvalue);
|
||
InXml = CombineXMLRequest(strIdentity, strParameter);
|
||
|
||
try
|
||
{
|
||
// OutXml = wsUSR.LoadGroupBasis(InXml)
|
||
OutXml = modAutoRunLibrary.InvokeSrv("wsUSR.LoadGroupBasis", InXml);
|
||
|
||
// 利用XmlDoc物件處理ReturnValue
|
||
XmlDoc.LoadXml(OutXml);
|
||
|
||
if (chkExecutionSuccess(XmlDoc))
|
||
{
|
||
strGroupBasis = XmlDoc.GetElementsByTagName("returnvalue").Item(0).SelectNodes("loadgroupbasis").Item(0).SelectNodes("name").Item(0).InnerXml;
|
||
// 取出Schema,dataset讀取Schema可防止Null Field及DateTime的問題
|
||
|
||
XmlSchema = XmlDoc.DocumentElement.GetElementsByTagName("loadgroupbasis").Item(0).SelectNodes("schema").Item(0).InnerXml;
|
||
if (!string.IsNullOrEmpty(XmlSchema))
|
||
{
|
||
// 將XML讀入String Reader object中,因為Dataset讀入XML時必須透過String Reader物件
|
||
tmpStringReader = new StringReader(XmlSchema);
|
||
dsGroup.ReadXmlSchema(tmpStringReader);
|
||
tmpStringReader.Close();
|
||
}
|
||
// 取出Data
|
||
XmlData = XmlDoc.DocumentElement.GetElementsByTagName("loadgroupbasis").Item(0).SelectNodes("value").Item(0).InnerXml;
|
||
if (!string.IsNullOrEmpty(XmlData))
|
||
{
|
||
tmpStringReader = new StringReader(XmlData);
|
||
dsGroup.ReadXml(tmpStringReader);
|
||
tmpStringReader.Close();
|
||
}
|
||
else
|
||
{
|
||
throw new Exception(GetExceptionSysMsg(XmlDoc));
|
||
}
|
||
}
|
||
}
|
||
catch (Exception ex)
|
||
{
|
||
throw;
|
||
}
|
||
|
||
}
|
||
|
||
public string CombineRequestXMLbyCDO(ref object SCI_Object, string pService, string pUserNo, string pServiceName, string pCalledID = defString, string pRequestKey = defString)
|
||
{
|
||
string CombineRequestXMLbyCDORet = default(string);
|
||
|
||
DataRow[] drERPSetting;
|
||
string strFilter = "";
|
||
|
||
do
|
||
{
|
||
try
|
||
{
|
||
strFilter = "ERP_Name ='" + pService + "' ";
|
||
if ((pCalledID ?? "") != defString && string.IsNullOrEmpty(pCalledID) == false)
|
||
strFilter += " And CalledID ='" + pCalledID + "' ";
|
||
// 取得服務資訊
|
||
drERPSetting = dtERPSetting.Select(strFilter);
|
||
if (drERPSetting == null)
|
||
break;
|
||
if (drERPSetting.Length != 1)
|
||
break;
|
||
if ((pCalledID ?? "") == defString)
|
||
{
|
||
pCalledID = drERPSetting[0]["CalledID"].ToString();
|
||
}
|
||
|
||
// 2017-03-17, Joe, 加Parameter for E10
|
||
(SCI_Object as iMESCIO.SCI.ERP.ERPRequestBase).enterprise_no = drERPSetting[0]["ERP_ENTID"].ToString();
|
||
(SCI_Object as iMESCIO.SCI.ERP.ERPRequestBase).site_no = drERPSetting[0]["ERP_ORG"].ToString();
|
||
|
||
// 轉XML
|
||
string RequestHead = "<host prod=\"" + drERPSetting[0]["MESProductName"].ToString() + "\" ver=\"" + drERPSetting[0]["MESProductVer"].ToString() + "\" ip=\"" + drERPSetting[0]["MESIP"].ToString() + "\" id=\"" + drERPSetting[0]["MESID"].ToString() + "\" acct=\"" + drERPSetting[0]["ERP_USER"].ToString() + "\" lang=\"" + drERPSetting[0]["ERP_LANG"].ToString() + "\" timestamp=\"" + Strings.Format(DateTime.Now, "yyyyMMddHHmmssfff") + "\"/>";
|
||
RequestHead += "<service prod=\"" + drERPSetting[0]["CalledProductName"].ToString() + "\" name=\"" + pServiceName + "\" ip=\"" + drERPSetting[0]["CalledIP"].ToString() + "\" id=\"" + drERPSetting[0]["CalledID"].ToString() + "\"/>";
|
||
string RequestDataKey = "<datakey><key name=\"EntId\">" + drERPSetting[0]["ERP_ENTID"].ToString() + "</key><key name=\"CompanyId\">" + drERPSetting[0]["ERP_ORG"].ToString() + "</key></datakey>";
|
||
string RequestXML_Body = Conversions.ToString((SCI_Object as iMESCIO.SCI.ERP.ERPResponseBase).ParseXml());
|
||
pRequestKey = modAutoRunLibrary.GetRequestKey(RequestHead);
|
||
string RequestHeader = "<request key=\"" + pRequestKey + "\" type=\"sync\">" + RequestHead + RequestDataKey + "<payload>" + RequestXML_Body + "</payload></request>";
|
||
// CDO to XML
|
||
CombineRequestXMLbyCDORet = RequestHeader;
|
||
}
|
||
|
||
catch (Exception ex)
|
||
{
|
||
throw;
|
||
}
|
||
}
|
||
while (false);
|
||
return CombineRequestXMLbyCDORet;
|
||
|
||
}
|
||
|
||
/// <summary>
|
||
/// EAI 檢核編碼(MD5)
|
||
/// </summary>
|
||
/// <param name="input"></param>
|
||
/// <returns></returns>
|
||
// Private Function GetRequestKey(ByVal input As String) As String
|
||
|
||
// Const ID As String = "28682266" ' 鼎新統編
|
||
|
||
// Dim key As String = ""
|
||
// Dim md5Hasher As MD5 = MD5.Create() ' 建立MD5物件
|
||
|
||
// Try
|
||
|
||
// input += ID
|
||
|
||
// ' 將input轉換成MD5，並且以Bytes傳回，由於ComputeHash只接受Bytes型別參數，所以要先轉型別為Bytes
|
||
// Dim data As Byte() = md5Hasher.ComputeHash(Encoding.UTF8.GetBytes(input))
|
||
|
||
// ' 建立StringBuilder物件
|
||
// Dim sb As New StringBuilder()
|
||
|
||
// ' 將Bytes轉型別為String，並且以16進位存放
|
||
// For i As Integer = 0 To data.Length - 1
|
||
// sb.Append(data(i).ToString("x2"))
|
||
// Next i
|
||
|
||
// key = sb.ToString
|
||
|
||
// Catch ex As Exception
|
||
// Throw
|
||
// Finally
|
||
// md5Hasher = Nothing
|
||
// End Try
|
||
|
||
// Return key
|
||
|
||
// End Function
|
||
|
||
#endregion
|
||
|
||
#region 客製JobName
|
||
|
||
|
||
#endregion
|
||
|
||
#region 測試用JobName
|
||
|
||
// Add by Martin 2009/03/03 for testing the Url get by using gMESWebServiceHost and GetAppSettings mathod.
|
||
// Private Function funTestFuncton(Optional ByVal colParameters As Collection = Nothing) As String
|
||
// Dim cnnTemp As OleDb.OleDbConnection
|
||
// Dim drTemp As OleDb.OleDbDataReader
|
||
// Dim wsSPC As New wsSPC.wsSPC
|
||
// wsSPC.Url = LocalizeWebService(wsSPC.Url.ToString)
|
||
// wsSPC.EnableDecompression = True
|
||
|
||
// strIdentity = CombineXMLIdentity("Autorun", "Autorun", Now)
|
||
// InXml = CombineXMLRequest(strIdentity, strParameter)
|
||
|
||
// Try
|
||
// '開始執行
|
||
// OutXml = wsSPC.LoadOQCForm(InXml)
|
||
// 'MsgBox(OutXml, , "Test Function Response!") '2012/08/21,Even,由於該msgbox造成錯誤(程式不允許auto 回復為msgbox形式)
|
||
|
||
// funTestFuncton = "success"
|
||
|
||
// Catch e1 As Exception
|
||
// funTestFuncton = "fail;" & e1.Message
|
||
// '發生錯誤時丟回本身的Function Name及系統錯誤訊息
|
||
// 'Throw New Exception("clsAutoRunLibary.funTestFuncton: " & e1.Message)
|
||
|
||
// '2013/02/05, Hank, Send Email
|
||
// colParameters.Add(funTestFuncton, "EmailBody")
|
||
// SendJobFailEmail(colParameters)
|
||
|
||
// Finally
|
||
// Call objSetting.CloseConnection(cnnTemp)
|
||
// If Not wsSPC Is Nothing Then wsSPC.Dispose()
|
||
// End Try
|
||
|
||
// End Function
|
||
|
||
#endregion
|
||
|
||
}
|
||
} |