caihao/SXS20240115
Archived
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

【修改】重新上传模板

Browse Source
This commit is contained in:
14278/caihao 2024-01-18 14:03:02 +08:00
parent e4d083ad9e
commit a1739f554d
561 changed files with 18905 additions and 101365 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
SRC/MESAgent/AutoLoaderLib/Properties/BuildIncrementVersionInfo.cs
View File

@ -1 +0,0 @@
[assembly: System.Reflection.AssemblyFileVersion("6.0.5.31114")]

2
SRC/MESWin/SYS4/21670ll/wsSXS/wsSXS.csproj.user → SRC/MESAgent/MESAutoRun/AutoRunLib/AutoRunLib_C.csproj.user
View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ReferencePath>E:\code\SRC\MES_S_DLL\</ReferencePath>
<ReferencePath>D:\Digiwin\IMES\Temp\WXLJW\AutoRunService\</ReferencePath>
</PropertyGroup>
</Project>

0
SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj.vspscc → SRC/MESAgent/MESAutoRun/AutoRunLib/AutoRunLib_C.csproj.vspscc
View File

2
SRC/MESAgent/MESAutoRun/AutoRunLib/clsAutoRunLibrary.cs
View File

@ -1143,7 +1143,9 @@ namespace AutoRunLib_C
#endregion
#region 客製JobName
public void fun_c_Test(){
}
#endregion

73
SRC/MESAgent/MESIEW/IEWService/IEWService.Designer.cs generated Normal file
View File

@ -0,0 +1,73 @@
using System;
using System.Diagnostics;
using System.ServiceProcess;
namespace IEWService
{
[Microsoft.VisualBasic.CompilerServices.DesignerGenerated()]
public partial class IEWService : ServiceBase
{
// UserService 覆寫 Dispose 以清除元件清單。
[DebuggerNonUserCode()]
protected override void Dispose(bool disposing)
{
try
{
if (disposing && components != null)
{
components.Dispose();
}
}
finally
{
base.Dispose(disposing);
}
}
// 處理序的主要進入點
[MTAThread()]
[DebuggerNonUserCode()]
public static void Main()
{
ServiceBase[] ServicesToRun;
// 在同一個處理序中可以執行多個 NT 服務。若要在這個處理序中
// 加入另一項服務，請修改下行程式碼，
// 以建立第二個服務物件。例如，
//
// ServicesToRun = New System.ServiceProcess.ServiceBase () {New IEWService, New MySecondUserService}
//
ServicesToRun = new ServiceBase[] { new IEWService() };
Run(ServicesToRun);
}
// 為元件設計工具的必要項
private System.ComponentModel.IContainer components;
// 注意: 以下為元件設計工具的所需的程序
// 您可以使用元件設計工具進行修改。
// 請不要使用程式碼編輯器進行修改。
[DebuggerStepThrough()]
private void InitializeComponent()
{
TimerCheckEvent = new System.Timers.Timer();
TimerCheckEvent.Elapsed += new System.Timers.ElapsedEventHandler(TimerCheckEvent_Elapsed);
((System.ComponentModel.ISupportInitialize)TimerCheckEvent).BeginInit();
//
// TimerCheckEvent
//
TimerCheckEvent.Interval = 300000.0d;
//
// IEWService
//
ServiceName = "MES IEW Service";
((System.ComponentModel.ISupportInitialize)TimerCheckEvent).EndInit();
}
internal System.Timers.Timer TimerCheckEvent;
}
}

2824
SRC/MESAgent/MESIEW/IEWService/IEWService.cs Normal file
View File

File diff suppressed because it is too large Load Diff

263
SRC/MESAgent/MESIEW/IEWService/IEWService.csproj Normal file
View File

@ -0,0 +1,263 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
<ProductVersion>
</ProductVersion>
<SchemaVersion>
</SchemaVersion>
<ProjectGuid>{7538DCCA-4FA2-0BF3-1C07-913D4AE96E95}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>IEWService.IEWService</StartupObject>
<RootNamespace>IEWService</RootNamespace>
<AssemblyName>MESIEW</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Console</MyType>
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
<SccProjectName>SAK</SccProjectName>
<SccLocalPath>SAK</SccLocalPath>
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>D:\STD_folder\MESSeries_STD_yyyymmdd\MESIEWService\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>2</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled>
<DefaultItemExcludes>$(DefaultItemExcludes);$(ProjectDir)**\*.vb</DefaultItemExcludes>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>Off</OptionInfer>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
<PlatformTarget>AnyCPU</PlatformTarget>
<OutputPath>..\..\..\MESClient\MESIEWServiceInstall\</OutputPath>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355</NoWarn>
<DebugType>Full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|AnyCPU'">
<PlatformTarget>AnyCPU</PlatformTarget>
<OutputPath>..\..\..\MESClient\MESIEWServiceInstall\</OutputPath>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355</NoWarn>
<Optimize>true</Optimize>
<DebugSymbols>true</DebugSymbols>
<DebugType>pdbonly</DebugType>
<DefineTrace>true</DefineTrace>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>BB1E0A6C038D360CE4BE9723ABC415D99A432E73</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>
</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>true</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
</PropertyGroup>
<ItemGroup>
<Reference Include="data_access_service, Version=6.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MES_S_DLL\data_access_service.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="iMESComSubroutine, Version=6.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MES_S_DLL\iMESComSubroutine.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="iMESComXML, Version=6.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MES_S_DLL\iMESComXML.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="iMESLicxManager, Version=6.0.0.0, Culture=neutral, PublicKeyToken=3ad2cfbf6a289680, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MES_S_DLL\iMESLicxManager.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="Microsoft.VisualBasic" />
<Reference Include="iMESLog, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MES_S_DLL\iMESLog.dll</HintPath>
</Reference>
<Reference Include="iMESMail">
<HintPath>..\..\..\MES_S_DLL\iMESMail.dll</HintPath>
</Reference>
<Reference Include="kcWIP">
<HintPath>..\..\..\MES_S_DLL\kcWIP.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.configuration" />
<Reference Include="System.Configuration.Install" />
<Reference Include="System.Data" />
<Reference Include="System.EnterpriseServices" />
<Reference Include="System.ServiceProcess" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="My Project\Application.Designer.cs">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="IEWService.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="IEWService.Designer.cs">
<DependentUpon>IEWService.cs</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.cs">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="ProjectInstaller.Designer.cs">
<DependentUpon>ProjectInstaller.cs</DependentUpon>
</Compile>
<Compile Include="ProjectInstaller.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Properties\AssemblyInfo.cs" />
<Compile Include="Web References\wsMCloud\Reference.cs">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Reference.map</DependentUpon>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="IEWService.resx">
<DependentUpon>IEWService.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ProjectInstaller.resx">
<DependentUpon>ProjectInstaller.cs</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="app.config" />
<None Include="IEWService_1_TemporaryKey.pfx" />
<None Include="IEWService_TemporaryKey.pfx" />
<None Include="Install_x64.bat">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Install_x86.bat">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.cs</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>IEWService.My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.cs</LastGenOutput>
</None>
<None Include="NLog.config">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</None>
<None Include="Uninstall_x64.bat">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Uninstall_x86.bat">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Web References\wsMCloud\PushService.wsdl" />
<None Include="Web References\wsMCloud\Reference.map">
<Generator>MSDiscoCodeGenerator</Generator>
<LastGenOutput>Reference.cs</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.0">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4 %28x86 和 x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
<Visible>False</Visible>
<ProductName>Windows Installer 3.1</ProductName>
<Install>true</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<WCFMetadata Include="Service References\" />
</ItemGroup>
<ItemGroup>
<WebReferences Include="Web References\" />
</ItemGroup>
<ItemGroup>
<WebReferenceUrl Include="http://10.20.88.57/MSFT2/PushService.asmx">
<UrlBehavior>Dynamic</UrlBehavior>
<RelPath>Web References\wsMCloud\</RelPath>
<UpdateFromURL>http://10.20.88.57/MSFT2/PushService.asmx</UpdateFromURL>
<ServiceLocationURL>
</ServiceLocationURL>
<CachedDynamicPropName>
</CachedDynamicPropName>
<CachedAppSettingsObjectName>MySettings</CachedAppSettingsObjectName>
<CachedSettingsPropName>MESIEW_wsMCloud_PushService</CachedSettingsPropName>
</WebReferenceUrl>
</ItemGroup>
<ItemGroup>
<None Include="Web References\wsMCloud\PushService.disco" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
<Import Project="..\..\..\MESWin\shared file\MakeVersion_CS.targets" Condition="exists('..\..\..\MESWin\shared file\MakeVersion_CS.targets')" />
</Project>

6
SRC/MESWin/SYS2/ET_Subcontractor/frmTest.resx → SRC/MESAgent/MESIEW/IEWService/IEWService.resx
View File

@ -117,4 +117,10 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="TimerCheckEvent.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>50, 41</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

BIN
SRC/MESAgent/MESIEW/IEWService/IEWService_1_TemporaryKey.pfx Normal file
View File

Binary file not shown.

BIN
SRC/MESAgent/MESIEW/IEWService/IEWService_TemporaryKey.pfx Normal file
View File

Binary file not shown.

3
SRC/MESAgent/MESIEW/IEWService/Install_x64.bat Normal file
View File

@ -0,0 +1,3 @@
%SystemRoot%\Microsoft.NET\Framework64\v4.0.30319\InstallUtil.exe "%~dp0MESIEW.exe"
Pause

3
SRC/MESAgent/MESIEW/IEWService/Install_x86.bat Normal file
View File

@ -0,0 +1,3 @@
%SystemRoot%\Microsoft.NET\Framework\v4.0.30319\InstallUtil.exe "%~dp0MESIEW.exe"
Pause

2
SRC/MESWin/SYS6/21695韦海桑/backend/wsSXS/My Project/Application.Designer.cs → SRC/MESAgent/MESIEW/IEWService/My Project/Application.Designer.cs generated
View File

@ -1,7 +1,7 @@
// ------------------------------------------------------------------------------
// <auto-generated>
// 這段程式碼是由工具產生的。
// 執行階段版本:4.0.30319.42000
// 執行階段版本:4.0.30319.18051
//
// 對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
// 變更將會遺失。

2
SRC/MESWin/SYS4/21670ll/MESWin/ENT/ET_Subcontractor/My Project/Application.myapp → SRC/MESAgent/MESIEW/IEWService/My Project/Application.myapp
View File

@ -5,6 +5,6 @@
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>1</ApplicationType>
<ApplicationType>3</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

0
SRC/MESPlugin/MESPI_BusinessRule/My Project/Resources.resx → SRC/MESAgent/MESIEW/IEWService/My Project/Resources.resx
View File

101
SRC/MESAgent/MESIEW/IEWService/My Project/Settings.Designer.cs generated Normal file
View File

@ -0,0 +1,101 @@
// ------------------------------------------------------------------------------
// <auto-generated>
// 這段程式碼是由工具產生的。
// 執行階段版本:4.0.30319.42000
//
// 對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
// 變更將會遺失。
// </auto-generated>
// ------------------------------------------------------------------------------
using System.Diagnostics;
using Microsoft.VisualBasic;
using Microsoft.VisualBasic.CompilerServices;
namespace IEWService.My
{
[System.Runtime.CompilerServices.CompilerGenerated()]
[System.CodeDom.Compiler.GeneratedCode("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0")]
[System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Advanced)]
internal sealed partial class MySettings : System.Configuration.ApplicationSettingsBase
{
private static MySettings defaultInstance = (MySettings)Synchronized(new MySettings());
#region My.Settings 自動儲存功能
/* TODO ERROR: Skipped IfDirectiveTrivia
#If _MyType = "WindowsForms" Then
*//* TODO ERROR: Skipped DisabledTextTrivia
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
*//* TODO ERROR: Skipped EndIfDirectiveTrivia
#End If
*/
#endregion
public static MySettings Default
{
get
{
/* TODO ERROR: Skipped IfDirectiveTrivia
#If _MyType = "WindowsForms" Then
*//* TODO ERROR: Skipped DisabledTextTrivia
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
*//* TODO ERROR: Skipped EndIfDirectiveTrivia
#End If
*/
return defaultInstance;
}
}
[System.Configuration.ApplicationScopedSetting()]
[DebuggerNonUserCode()]
[System.Configuration.SpecialSetting(System.Configuration.SpecialSetting.WebServiceUrl)]
[System.Configuration.DefaultSettingValue("http://10.20.88.57/MSFT2/PushService.asmx")]
public string MESIEW_wsMCloud_PushService
{
get
{
return Conversions.ToString(this["MESIEW_wsMCloud_PushService"]);
}
}
}
}
namespace IEWService.My
{
[HideModuleName()]
[DebuggerNonUserCode()]
[System.Runtime.CompilerServices.CompilerGenerated()]
internal static class MySettingsProperty
{
[System.ComponentModel.Design.HelpKeyword("My.Settings")]
internal static MySettings Settings
{
get
{
return MySettings.Default;
}
}
}
}

9
SRC/MESAgent/MESIEW/IEWService/My Project/Settings.settings Normal file
View File

@ -0,0 +1,9 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="MESIEW_wsMCloud_PushService" Type="(Web Service URL)" Scope="Application">
<Value Profile="(Default)">http://10.20.88.57/MSFT2/PushService.asmx</Value>
</Setting>
</Settings>
</SettingsFile>

72
SRC/MESAgent/MESIEW/IEWService/NLog.config Normal file
View File

@ -0,0 +1,72 @@
<?xml version="1.0" encoding="utf-8" ?>
<nlog xmlns="http://www.nlog-project.org/schemas/NLog.xsd"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
autoReload="true"
throwExceptions="false"
internalLogLevel="Off">
<!-- optional, add some variables
https://github.com/nlog/NLog/wiki/Configuration-file#variables
-->
<!--Notes
please note that the method name won't work well with async methods before NLog 4.3 - it will always show MoveNext.
Please also note that this infers heavy performance hit when doing lots of logging, as it has to capture full StackTrace for every log message.
If symbol symbol information is not available, then it will not be able to output source-code filename or line-number. Symbol information from PDB files must be deployed with the application to retrieve and output source-code line-number. For applications compiled in release mode, then inlining can occur and cause "unexpected" line-numbers.
-->
<variable name="ServiceFileLayout" value="${longdate} | [${threadid}] | [${callsite}]${newline}${message}${newline}${exception:format=ToString}${newline}"/>
<variable name="BasePath" value="${basedir}/Logs/"/>
<variable name="ServiceFilePath" value="${BasePath}/Cur_${level:uppercase=true}.log"/>
<variable name="ArchivePath" value="${BasePath}/${level:uppercase=true}_{#}.log"/>
<variable name="ArchiveSize" value ="5242880"/>
<variable name="TestSize" value ="1024"/>
<!--
See https://github.com/nlog/nlog/wiki/Configuration-file
for information on customizing logging rules and outputs.
-->
<targets>
<!--
add your targets here
See https://github.com/nlog/NLog/wiki/Targets for possible targets.
See https://github.com/nlog/NLog/wiki/Layout-Renderers for the possible layout renderers.
-->
<!--
Write events to a file with the date in the filename.
<target xsi:type="File" name="f" fileName="${basedir}/logs/${shortdate}.log"
layout="${longdate} ${uppercase:${level}} ${message}" />
-->
<target name="ServiceFile" xsi:type="File" fileName="${ServiceFilePath}" layout="${ServiceFileLayout}"
archiveFileName="${ArchivePath}"
archiveAboveSize="${ArchiveSize}"
archiveNumbering ="DateAndSequence"
archiveEvery="Hour"
archiveDateFormat ="yyyy-MM-dd-HH"
maxArchiveDays="7"
encoding="utf-8"
/>
</targets>
<rules>
<!-- add your logging rules here -->
<!--
Write all events with minimal level of Debug (So Debug, Info, Warn, Error and Fatal, but not Trace) to "f"
<logger name="*" minlevel="Debug" writeTo="f" />
-->
<logger name="*" levels="Trace,Debug,Info,Warn,Error,Fatal" writeTo="ServiceFile">
<filters defaultAction='Log'>
<when condition="contains('${callsite}','ExecuteAsync')" action="Ignore" />
</filters>
</logger>
</rules>
</nlog>

90
SRC/MESAgent/MESIEW/IEWService/ProjectInstaller.Designer.cs generated Normal file
View File

@ -0,0 +1,90 @@
using System.Diagnostics;
using System.Runtime.CompilerServices;
namespace IEWService
{
[System.ComponentModel.RunInstaller(true)]
public partial class ProjectInstaller : System.Configuration.Install.Installer
{
// Installer 覆寫 Dispose 以清除元件清單。
[DebuggerNonUserCode()]
protected override void Dispose(bool disposing)
{
try
{
if (disposing && components != null)
{
components.Dispose();
}
}
finally
{
base.Dispose(disposing);
}
}
// 為元件設計工具的必要項
private System.ComponentModel.IContainer components;
// 注意: 以下為元件設計工具所需的程序
// 您可以使用元件設計工具進行修改。
// 請不要使用程式碼編輯器進行修改。
[DebuggerStepThrough()]
private void InitializeComponent()
{
_ServiceProcessInstaller1 = new System.ServiceProcess.ServiceProcessInstaller();
_ServiceInstaller1 = new System.ServiceProcess.ServiceInstaller();
//
// ServiceProcessInstaller1
//
_ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem;
_ServiceProcessInstaller1.Password = null;
_ServiceProcessInstaller1.Username = null;
//
// ServiceInstaller1
//
_ServiceInstaller1.Description = "MESSeries 智慧預警 Service";
_ServiceInstaller1.DisplayName = "MES IEW Service";
_ServiceInstaller1.ServiceName = "MES IEW Service";
//
// ProjectInstaller
//
Installers.AddRange(new System.Configuration.Install.Installer[] { _ServiceProcessInstaller1, _ServiceInstaller1 });
}
private System.ServiceProcess.ServiceProcessInstaller _ServiceProcessInstaller1;
internal virtual System.ServiceProcess.ServiceProcessInstaller ServiceProcessInstaller1
{
[MethodImpl(MethodImplOptions.Synchronized)]
get
{
return _ServiceProcessInstaller1;
}
[MethodImpl(MethodImplOptions.Synchronized)]
set
{
_ServiceProcessInstaller1 = value;
}
}
private System.ServiceProcess.ServiceInstaller _ServiceInstaller1;
internal virtual System.ServiceProcess.ServiceInstaller ServiceInstaller1
{
[MethodImpl(MethodImplOptions.Synchronized)]
get
{
return _ServiceInstaller1;
}
[MethodImpl(MethodImplOptions.Synchronized)]
set
{
_ServiceInstaller1 = value;
}
}
}
}

19
SRC/MESAgent/MESIEW/IEWService/ProjectInstaller.cs Normal file
View File

@ -0,0 +1,19 @@

namespace IEWService
{
public partial class ProjectInstaller
{
public ProjectInstaller() : base()
{
// 此為元件設計工具所需的呼叫。
InitializeComponent();
// 在呼叫 InitializeComponent 之後加入初始化程式碼
}
}
}

11
SRC/MESWin/SYS4/21670ll/MESWin/Test/MDI_Panel.resx → SRC/MESAgent/MESIEW/IEWService/ProjectInstaller.resx
View File

@ -117,10 +117,13 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="UltraToolbarsManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
<metadata name="ServiceProcessInstaller1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 60</value>
</metadata>
<metadata name="UltraDockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>254, 17</value>
<metadata name="ServiceInstaller1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>243, 17</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

6
SRC/MEStc_SXS/Properties/AssemblyInfo.cs → SRC/MESAgent/MESIEW/IEWService/Properties/AssemblyInfo.cs
View File

@ -5,8 +5,8 @@ using System.Runtime.InteropServices;
// 組件的一般資訊是由下列的屬性集控制。
// 變更這些屬性的值即可修改組件的相關
// 資訊。
[assembly: AssemblyTitle("MEStc_ABC.Properties")]
[assembly: AssemblyDescription("")]
[assembly: AssemblyTitle("IEWService")]
[assembly: AssemblyDescription("IEWService for MESSeries")]
[assembly: AssemblyConfiguration("")]
[assembly: AssemblyCompany("iMES Technology Inc.")]
[assembly: AssemblyProduct("MESSeries 6")]
@ -20,7 +20,7 @@ using System.Runtime.InteropServices;
[assembly: ComVisible(false)]
// 下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
[assembly: Guid("00eb00ee-1246-48cf-a0bf-f5203de255f1")]
[assembly: Guid("7c830bc6-e2bd-4b82-9ff3-ad61fd9004c5")]
// 組件的版本資訊由下列四個值所組成:
//

4
SRC/MESAgent/MESIEW/IEWService/Uninstall_x64.bat Normal file
View File

@ -0,0 +1,4 @@
%SystemRoot%\Microsoft.NET\Framework64\v4.0.30319\InstallUtil.exe "%~dp0MESIEW.exe" -u
Pause

3
SRC/MESAgent/MESIEW/IEWService/Uninstall_x86.bat Normal file
View File

@ -0,0 +1,3 @@
%SystemRoot%\Microsoft.NET\Framework\v4.0.30319\InstallUtil.exe "%~dp0MESIEW.exe" -u
Pause

6
SRC/MESAgent/MESIEW/IEWService/Web References/wsMCloud/PushService.disco Normal file
View File

@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<discovery xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://schemas.xmlsoap.org/disco/">
<contractRef ref="http://10.20.88.57/MSFT2/PushService.asmx?wsdl" docRef="http://10.20.88.57/MSFT2/PushService.asmx" xmlns="http://schemas.xmlsoap.org/disco/scl/" />
<soap address="http://10.20.88.57/MSFT2/PushService.asmx" xmlns:q1="http://tempuri.org/" binding="q1:PushServiceSoap" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
<soap address="http://10.20.88.57/MSFT2/PushService.asmx" xmlns:q2="http://tempuri.org/" binding="q2:PushServiceSoap12" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
</discovery>

345
SRC/MESAgent/MESIEW/IEWService/Web References/wsMCloud/PushService.wsdl Normal file
View File

@ -0,0 +1,345 @@
<?xml version="1.0" encoding="utf-8"?>
<wsdl:definitions xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:tns="http://tempuri.org/" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" targetNamespace="http://tempuri.org/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
<wsdl:types>
<s:schema elementFormDefault="qualified" targetNamespace="http://tempuri.org/">
<s:element name="RegistGuestToken">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="pKey" type="s:string" />
<s:element minOccurs="0" maxOccurs="1" name="pTransData" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="RegistGuestTokenResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="RegistGuestTokenResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="RegistPNDevice">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="pKey" type="s:string" />
<s:element minOccurs="0" maxOccurs="1" name="pTransData" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="RegistPNDeviceResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="RegistPNDeviceResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="PushDevicePMG">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="pKey" type="s:string" />
<s:element minOccurs="0" maxOccurs="1" name="pPushMsg" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="PushDevicePMGResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="PushDevicePMGResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="UpdateGProgramBgNumber">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="pBgP2M" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="UpdateGProgramBgNumberResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="UpdateGProgramBgNumberResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="PushMessageByToken">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="pKey" type="s:string" />
<s:element minOccurs="0" maxOccurs="1" name="pPushMsg" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="PushMessageByTokenResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="PushMessageByTokenResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="string" nillable="true" type="s:string" />
</s:schema>
</wsdl:types>
<wsdl:message name="RegistGuestTokenSoapIn">
<wsdl:part name="parameters" element="tns:RegistGuestToken" />
</wsdl:message>
<wsdl:message name="RegistGuestTokenSoapOut">
<wsdl:part name="parameters" element="tns:RegistGuestTokenResponse" />
</wsdl:message>
<wsdl:message name="RegistPNDeviceSoapIn">
<wsdl:part name="parameters" element="tns:RegistPNDevice" />
</wsdl:message>
<wsdl:message name="RegistPNDeviceSoapOut">
<wsdl:part name="parameters" element="tns:RegistPNDeviceResponse" />
</wsdl:message>
<wsdl:message name="PushDevicePMGSoapIn">
<wsdl:part name="parameters" element="tns:PushDevicePMG" />
</wsdl:message>
<wsdl:message name="PushDevicePMGSoapOut">
<wsdl:part name="parameters" element="tns:PushDevicePMGResponse" />
</wsdl:message>
<wsdl:message name="UpdateGProgramBgNumberSoapIn">
<wsdl:part name="parameters" element="tns:UpdateGProgramBgNumber" />
</wsdl:message>
<wsdl:message name="UpdateGProgramBgNumberSoapOut">
<wsdl:part name="parameters" element="tns:UpdateGProgramBgNumberResponse" />
</wsdl:message>
<wsdl:message name="PushMessageByTokenSoapIn">
<wsdl:part name="parameters" element="tns:PushMessageByToken" />
</wsdl:message>
<wsdl:message name="PushMessageByTokenSoapOut">
<wsdl:part name="parameters" element="tns:PushMessageByTokenResponse" />
</wsdl:message>
<wsdl:message name="RegistGuestTokenHttpPostIn">
<wsdl:part name="pKey" type="s:string" />
<wsdl:part name="pTransData" type="s:string" />
</wsdl:message>
<wsdl:message name="RegistGuestTokenHttpPostOut">
<wsdl:part name="Body" element="tns:string" />
</wsdl:message>
<wsdl:message name="RegistPNDeviceHttpPostIn">
<wsdl:part name="pKey" type="s:string" />
<wsdl:part name="pTransData" type="s:string" />
</wsdl:message>
<wsdl:message name="RegistPNDeviceHttpPostOut">
<wsdl:part name="Body" element="tns:string" />
</wsdl:message>
<wsdl:message name="PushDevicePMGHttpPostIn">
<wsdl:part name="pKey" type="s:string" />
<wsdl:part name="pPushMsg" type="s:string" />
</wsdl:message>
<wsdl:message name="PushDevicePMGHttpPostOut">
<wsdl:part name="Body" element="tns:string" />
</wsdl:message>
<wsdl:message name="UpdateGProgramBgNumberHttpPostIn">
<wsdl:part name="pBgP2M" type="s:string" />
</wsdl:message>
<wsdl:message name="UpdateGProgramBgNumberHttpPostOut">
<wsdl:part name="Body" element="tns:string" />
</wsdl:message>
<wsdl:message name="PushMessageByTokenHttpPostIn">
<wsdl:part name="pKey" type="s:string" />
<wsdl:part name="pPushMsg" type="s:string" />
</wsdl:message>
<wsdl:message name="PushMessageByTokenHttpPostOut">
<wsdl:part name="Body" element="tns:string" />
</wsdl:message>
<wsdl:portType name="PushServiceSoap">
<wsdl:operation name="RegistGuestToken">
<wsdl:input message="tns:RegistGuestTokenSoapIn" />
<wsdl:output message="tns:RegistGuestTokenSoapOut" />
</wsdl:operation>
<wsdl:operation name="RegistPNDevice">
<wsdl:input message="tns:RegistPNDeviceSoapIn" />
<wsdl:output message="tns:RegistPNDeviceSoapOut" />
</wsdl:operation>
<wsdl:operation name="PushDevicePMG">
<wsdl:input message="tns:PushDevicePMGSoapIn" />
<wsdl:output message="tns:PushDevicePMGSoapOut" />
</wsdl:operation>
<wsdl:operation name="UpdateGProgramBgNumber">
<wsdl:input message="tns:UpdateGProgramBgNumberSoapIn" />
<wsdl:output message="tns:UpdateGProgramBgNumberSoapOut" />
</wsdl:operation>
<wsdl:operation name="PushMessageByToken">
<wsdl:input message="tns:PushMessageByTokenSoapIn" />
<wsdl:output message="tns:PushMessageByTokenSoapOut" />
</wsdl:operation>
</wsdl:portType>
<wsdl:portType name="PushServiceHttpPost">
<wsdl:operation name="RegistGuestToken">
<wsdl:input message="tns:RegistGuestTokenHttpPostIn" />
<wsdl:output message="tns:RegistGuestTokenHttpPostOut" />
</wsdl:operation>
<wsdl:operation name="RegistPNDevice">
<wsdl:input message="tns:RegistPNDeviceHttpPostIn" />
<wsdl:output message="tns:RegistPNDeviceHttpPostOut" />
</wsdl:operation>
<wsdl:operation name="PushDevicePMG">
<wsdl:input message="tns:PushDevicePMGHttpPostIn" />
<wsdl:output message="tns:PushDevicePMGHttpPostOut" />
</wsdl:operation>
<wsdl:operation name="UpdateGProgramBgNumber">
<wsdl:input message="tns:UpdateGProgramBgNumberHttpPostIn" />
<wsdl:output message="tns:UpdateGProgramBgNumberHttpPostOut" />
</wsdl:operation>
<wsdl:operation name="PushMessageByToken">
<wsdl:input message="tns:PushMessageByTokenHttpPostIn" />
<wsdl:output message="tns:PushMessageByTokenHttpPostOut" />
</wsdl:operation>
</wsdl:portType>
<wsdl:binding name="PushServiceSoap" type="tns:PushServiceSoap">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
<wsdl:operation name="RegistGuestToken">
<soap:operation soapAction="http://tempuri.org/RegistGuestToken" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="RegistPNDevice">
<soap:operation soapAction="http://tempuri.org/RegistPNDevice" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="PushDevicePMG">
<soap:operation soapAction="http://tempuri.org/PushDevicePMG" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="UpdateGProgramBgNumber">
<soap:operation soapAction="http://tempuri.org/UpdateGProgramBgNumber" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="PushMessageByToken">
<soap:operation soapAction="http://tempuri.org/PushMessageByToken" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:binding name="PushServiceSoap12" type="tns:PushServiceSoap">
<soap12:binding transport="http://schemas.xmlsoap.org/soap/http" />
<wsdl:operation name="RegistGuestToken">
<soap12:operation soapAction="http://tempuri.org/RegistGuestToken" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="RegistPNDevice">
<soap12:operation soapAction="http://tempuri.org/RegistPNDevice" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="PushDevicePMG">
<soap12:operation soapAction="http://tempuri.org/PushDevicePMG" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="UpdateGProgramBgNumber">
<soap12:operation soapAction="http://tempuri.org/UpdateGProgramBgNumber" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="PushMessageByToken">
<soap12:operation soapAction="http://tempuri.org/PushMessageByToken" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:binding name="PushServiceHttpPost" type="tns:PushServiceHttpPost">
<http:binding verb="POST" />
<wsdl:operation name="RegistGuestToken">
<http:operation location="/RegistGuestToken" />
<wsdl:input>
<mime:content type="application/x-www-form-urlencoded" />
</wsdl:input>
<wsdl:output>
<mime:mimeXml part="Body" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="RegistPNDevice">
<http:operation location="/RegistPNDevice" />
<wsdl:input>
<mime:content type="application/x-www-form-urlencoded" />
</wsdl:input>
<wsdl:output>
<mime:mimeXml part="Body" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="PushDevicePMG">
<http:operation location="/PushDevicePMG" />
<wsdl:input>
<mime:content type="application/x-www-form-urlencoded" />
</wsdl:input>
<wsdl:output>
<mime:mimeXml part="Body" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="UpdateGProgramBgNumber">
<http:operation location="/UpdateGProgramBgNumber" />
<wsdl:input>
<mime:content type="application/x-www-form-urlencoded" />
</wsdl:input>
<wsdl:output>
<mime:mimeXml part="Body" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="PushMessageByToken">
<http:operation location="/PushMessageByToken" />
<wsdl:input>
<mime:content type="application/x-www-form-urlencoded" />
</wsdl:input>
<wsdl:output>
<mime:mimeXml part="Body" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:service name="PushService">
<wsdl:port name="PushServiceSoap" binding="tns:PushServiceSoap">
<soap:address location="http://10.20.88.57/MSFT2/PushService.asmx" />
</wsdl:port>
<wsdl:port name="PushServiceSoap12" binding="tns:PushServiceSoap12">
<soap12:address location="http://10.20.88.57/MSFT2/PushService.asmx" />
</wsdl:port>
<wsdl:port name="PushServiceHttpPost" binding="tns:PushServiceHttpPost">
<http:address location="http://10.20.88.57/MSFT2/PushService.asmx" />
</wsdl:port>
</wsdl:service>
</wsdl:definitions>

435
SRC/MESAgent/MESIEW/IEWService/Web References/wsMCloud/Reference.cs Normal file
View File

@ -0,0 +1,435 @@
// ------------------------------------------------------------------------------
// <auto-generated>
// 這段程式碼是由工具產生的。
// 執行階段版本:4.0.30319.42000
//
// 對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
// 變更將會遺失。
// </auto-generated>
// ------------------------------------------------------------------------------
using System;
using System.ComponentModel;
using System.Diagnostics;
using System.Web.Services;
using System.Web.Services.Protocols;
using Microsoft.VisualBasic.CompilerServices;
//
// 原始程式碼已由 Microsoft.VSDesigner 自動產生，版本 4.0.30319.42000。
//
namespace IEWService.wsMCloud
{
/// <remarks/>
[System.CodeDom.Compiler.GeneratedCode("System.Web.Services", "4.6.1055.0")]
[DebuggerStepThrough()]
[DesignerCategory("code")]
[WebServiceBinding(Name = "PushServiceSoap", Namespace = "http://tempuri.org/")]
public partial class PushService : SoapHttpClientProtocol
{
private System.Threading.SendOrPostCallback RegistGuestTokenOperationCompleted;
private System.Threading.SendOrPostCallback RegistPNDeviceOperationCompleted;
private System.Threading.SendOrPostCallback PushDevicePMGOperationCompleted;
private System.Threading.SendOrPostCallback UpdateGProgramBgNumberOperationCompleted;
private System.Threading.SendOrPostCallback PushMessageByTokenOperationCompleted;
private bool useDefaultCredentialsSetExplicitly;
/// <remarks/>
public PushService() : base()
{
Url = My.MySettings.Default.MESIEW_wsMCloud_PushService;
if (IsLocalFileSystemWebService(Url) == true)
{
UseDefaultCredentials = true;
useDefaultCredentialsSetExplicitly = false;
}
else
{
useDefaultCredentialsSetExplicitly = true;
}
}
public new string Url
{
get
{
return base.Url;
}
set
{
if (IsLocalFileSystemWebService(base.Url) == true && useDefaultCredentialsSetExplicitly == false && IsLocalFileSystemWebService(value) == false)
{
base.UseDefaultCredentials = false;
}
base.Url = value;
}
}
public new bool UseDefaultCredentials
{
get
{
return base.UseDefaultCredentials;
}
set
{
base.UseDefaultCredentials = value;
useDefaultCredentialsSetExplicitly = true;
}
}
/// <remarks/>
public event RegistGuestTokenCompletedEventHandler RegistGuestTokenCompleted;
/// <remarks/>
public event RegistPNDeviceCompletedEventHandler RegistPNDeviceCompleted;
/// <remarks/>
public event PushDevicePMGCompletedEventHandler PushDevicePMGCompleted;
/// <remarks/>
public event UpdateGProgramBgNumberCompletedEventHandler UpdateGProgramBgNumberCompleted;
/// <remarks/>
public event PushMessageByTokenCompletedEventHandler PushMessageByTokenCompleted;
/// <remarks/>
[SoapDocumentMethod("http://tempuri.org/RegistGuestToken", RequestNamespace = "http://tempuri.org/", ResponseNamespace = "http://tempuri.org/", Use = System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle = SoapParameterStyle.Wrapped)]
public string RegistGuestToken(string pKey, string pTransData)
{
object[] results = Invoke("RegistGuestToken", new object[] { pKey, pTransData });
return Conversions.ToString(results[0]);
}
/// <remarks/>
public void RegistGuestTokenAsync(string pKey, string pTransData)
{
RegistGuestTokenAsync(pKey, pTransData, null);
}
/// <remarks/>
public void RegistGuestTokenAsync(string pKey, string pTransData, object userState)
{
if (RegistGuestTokenOperationCompleted == null)
{
RegistGuestTokenOperationCompleted = OnRegistGuestTokenOperationCompleted;
}
InvokeAsync("RegistGuestToken", new object[] { pKey, pTransData }, RegistGuestTokenOperationCompleted, userState);
}
private void OnRegistGuestTokenOperationCompleted(object arg)
{
if (RegistGuestTokenCompleted != null)
{
InvokeCompletedEventArgs invokeArgs = (InvokeCompletedEventArgs)arg;
RegistGuestTokenCompleted?.Invoke(this, new RegistGuestTokenCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState));
}
}
/// <remarks/>
[SoapDocumentMethod("http://tempuri.org/RegistPNDevice", RequestNamespace = "http://tempuri.org/", ResponseNamespace = "http://tempuri.org/", Use = System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle = SoapParameterStyle.Wrapped)]
public string RegistPNDevice(string pKey, string pTransData)
{
object[] results = Invoke("RegistPNDevice", new object[] { pKey, pTransData });
return Conversions.ToString(results[0]);
}
/// <remarks/>
public void RegistPNDeviceAsync(string pKey, string pTransData)
{
RegistPNDeviceAsync(pKey, pTransData, null);
}
/// <remarks/>
public void RegistPNDeviceAsync(string pKey, string pTransData, object userState)
{
if (RegistPNDeviceOperationCompleted == null)
{
RegistPNDeviceOperationCompleted = OnRegistPNDeviceOperationCompleted;
}
InvokeAsync("RegistPNDevice", new object[] { pKey, pTransData }, RegistPNDeviceOperationCompleted, userState);
}
private void OnRegistPNDeviceOperationCompleted(object arg)
{
if (RegistPNDeviceCompleted != null)
{
InvokeCompletedEventArgs invokeArgs = (InvokeCompletedEventArgs)arg;
RegistPNDeviceCompleted?.Invoke(this, new RegistPNDeviceCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState));
}
}
/// <remarks/>
[SoapDocumentMethod("http://tempuri.org/PushDevicePMG", RequestNamespace = "http://tempuri.org/", ResponseNamespace = "http://tempuri.org/", Use = System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle = SoapParameterStyle.Wrapped)]
public string PushDevicePMG(string pKey, string pPushMsg)
{
object[] results = Invoke("PushDevicePMG", new object[] { pKey, pPushMsg });
return Conversions.ToString(results[0]);
}
/// <remarks/>
public void PushDevicePMGAsync(string pKey, string pPushMsg)
{
PushDevicePMGAsync(pKey, pPushMsg, null);
}
/// <remarks/>
public void PushDevicePMGAsync(string pKey, string pPushMsg, object userState)
{
if (PushDevicePMGOperationCompleted == null)
{
PushDevicePMGOperationCompleted = OnPushDevicePMGOperationCompleted;
}
InvokeAsync("PushDevicePMG", new object[] { pKey, pPushMsg }, PushDevicePMGOperationCompleted, userState);
}
private void OnPushDevicePMGOperationCompleted(object arg)
{
if (PushDevicePMGCompleted != null)
{
InvokeCompletedEventArgs invokeArgs = (InvokeCompletedEventArgs)arg;
PushDevicePMGCompleted?.Invoke(this, new PushDevicePMGCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState));
}
}
/// <remarks/>
[SoapDocumentMethod("http://tempuri.org/UpdateGProgramBgNumber", RequestNamespace = "http://tempuri.org/", ResponseNamespace = "http://tempuri.org/", Use = System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle = SoapParameterStyle.Wrapped)]
public string UpdateGProgramBgNumber(string pBgP2M)
{
object[] results = Invoke("UpdateGProgramBgNumber", new object[] { pBgP2M });
return Conversions.ToString(results[0]);
}
/// <remarks/>
public void UpdateGProgramBgNumberAsync(string pBgP2M)
{
UpdateGProgramBgNumberAsync(pBgP2M, null);
}
/// <remarks/>
public void UpdateGProgramBgNumberAsync(string pBgP2M, object userState)
{
if (UpdateGProgramBgNumberOperationCompleted == null)
{
UpdateGProgramBgNumberOperationCompleted = OnUpdateGProgramBgNumberOperationCompleted;
}
InvokeAsync("UpdateGProgramBgNumber", new object[] { pBgP2M }, UpdateGProgramBgNumberOperationCompleted, userState);
}
private void OnUpdateGProgramBgNumberOperationCompleted(object arg)
{
if (UpdateGProgramBgNumberCompleted != null)
{
InvokeCompletedEventArgs invokeArgs = (InvokeCompletedEventArgs)arg;
UpdateGProgramBgNumberCompleted?.Invoke(this, new UpdateGProgramBgNumberCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState));
}
}
/// <remarks/>
[SoapDocumentMethod("http://tempuri.org/PushMessageByToken", RequestNamespace = "http://tempuri.org/", ResponseNamespace = "http://tempuri.org/", Use = System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle = SoapParameterStyle.Wrapped)]
public string PushMessageByToken(string pKey, string pPushMsg)
{
object[] results = Invoke("PushMessageByToken", new object[] { pKey, pPushMsg });
return Conversions.ToString(results[0]);
}
/// <remarks/>
public void PushMessageByTokenAsync(string pKey, string pPushMsg)
{
PushMessageByTokenAsync(pKey, pPushMsg, null);
}
/// <remarks/>
public void PushMessageByTokenAsync(string pKey, string pPushMsg, object userState)
{
if (PushMessageByTokenOperationCompleted == null)
{
PushMessageByTokenOperationCompleted = OnPushMessageByTokenOperationCompleted;
}
InvokeAsync("PushMessageByToken", new object[] { pKey, pPushMsg }, PushMessageByTokenOperationCompleted, userState);
}
private void OnPushMessageByTokenOperationCompleted(object arg)
{
if (PushMessageByTokenCompleted != null)
{
InvokeCompletedEventArgs invokeArgs = (InvokeCompletedEventArgs)arg;
PushMessageByTokenCompleted?.Invoke(this, new PushMessageByTokenCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState));
}
}
/// <remarks/>
public new void CancelAsync(object userState)
{
base.CancelAsync(userState);
}
private bool IsLocalFileSystemWebService(string url)
{
if (url == null || ReferenceEquals(url, string.Empty))
{
return false;
}
var wsUri = new Uri(url);
if (wsUri.Port >= 1024 && string.Compare(wsUri.Host, "localHost", StringComparison.OrdinalIgnoreCase) == 0)
{
return true;
}
return false;
}
}
/// <remarks/>
[System.CodeDom.Compiler.GeneratedCode("System.Web.Services", "4.6.1055.0")]
public delegate void RegistGuestTokenCompletedEventHandler(object sender, RegistGuestTokenCompletedEventArgs e);
/// <remarks/>
[System.CodeDom.Compiler.GeneratedCode("System.Web.Services", "4.6.1055.0")]
[DebuggerStepThrough()]
[DesignerCategory("code")]
public partial class RegistGuestTokenCompletedEventArgs : AsyncCompletedEventArgs
{
private object[] results;
internal RegistGuestTokenCompletedEventArgs(object[] results, Exception exception, bool cancelled, object userState) : base(exception, cancelled, userState)
{
this.results = results;
}
/// <remarks/>
public string Result
{
get
{
RaiseExceptionIfNecessary();
return Conversions.ToString(results[0]);
}
}
}
/// <remarks/>
[System.CodeDom.Compiler.GeneratedCode("System.Web.Services", "4.6.1055.0")]
public delegate void RegistPNDeviceCompletedEventHandler(object sender, RegistPNDeviceCompletedEventArgs e);
/// <remarks/>
[System.CodeDom.Compiler.GeneratedCode("System.Web.Services", "4.6.1055.0")]
[DebuggerStepThrough()]
[DesignerCategory("code")]
public partial class RegistPNDeviceCompletedEventArgs : AsyncCompletedEventArgs
{
private object[] results;
internal RegistPNDeviceCompletedEventArgs(object[] results, Exception exception, bool cancelled, object userState) : base(exception, cancelled, userState)
{
this.results = results;
}
/// <remarks/>
public string Result
{
get
{
RaiseExceptionIfNecessary();
return Conversions.ToString(results[0]);
}
}
}
/// <remarks/>
[System.CodeDom.Compiler.GeneratedCode("System.Web.Services", "4.6.1055.0")]
public delegate void PushDevicePMGCompletedEventHandler(object sender, PushDevicePMGCompletedEventArgs e);
/// <remarks/>
[System.CodeDom.Compiler.GeneratedCode("System.Web.Services", "4.6.1055.0")]
[DebuggerStepThrough()]
[DesignerCategory("code")]
public partial class PushDevicePMGCompletedEventArgs : AsyncCompletedEventArgs
{
private object[] results;
internal PushDevicePMGCompletedEventArgs(object[] results, Exception exception, bool cancelled, object userState) : base(exception, cancelled, userState)
{
this.results = results;
}
/// <remarks/>
public string Result
{
get
{
RaiseExceptionIfNecessary();
return Conversions.ToString(results[0]);
}
}
}
/// <remarks/>
[System.CodeDom.Compiler.GeneratedCode("System.Web.Services", "4.6.1055.0")]
public delegate void UpdateGProgramBgNumberCompletedEventHandler(object sender, UpdateGProgramBgNumberCompletedEventArgs e);
/// <remarks/>
[System.CodeDom.Compiler.GeneratedCode("System.Web.Services", "4.6.1055.0")]
[DebuggerStepThrough()]
[DesignerCategory("code")]
public partial class UpdateGProgramBgNumberCompletedEventArgs : AsyncCompletedEventArgs
{
private object[] results;
internal UpdateGProgramBgNumberCompletedEventArgs(object[] results, Exception exception, bool cancelled, object userState) : base(exception, cancelled, userState)
{
this.results = results;
}
/// <remarks/>
public string Result
{
get
{
RaiseExceptionIfNecessary();
return Conversions.ToString(results[0]);
}
}
}
/// <remarks/>
[System.CodeDom.Compiler.GeneratedCode("System.Web.Services", "4.6.1055.0")]
public delegate void PushMessageByTokenCompletedEventHandler(object sender, PushMessageByTokenCompletedEventArgs e);
/// <remarks/>
[System.CodeDom.Compiler.GeneratedCode("System.Web.Services", "4.6.1055.0")]
[DebuggerStepThrough()]
[DesignerCategory("code")]
public partial class PushMessageByTokenCompletedEventArgs : AsyncCompletedEventArgs
{
private object[] results;
internal PushMessageByTokenCompletedEventArgs(object[] results, Exception exception, bool cancelled, object userState) : base(exception, cancelled, userState)
{
this.results = results;
}
/// <remarks/>
public string Result
{
get
{
RaiseExceptionIfNecessary();
return Conversions.ToString(results[0]);
}
}
}
}

7
SRC/MESAgent/MESIEW/IEWService/Web References/wsMCloud/Reference.map Normal file
View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<DiscoveryClientResultsFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Results>
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.ContractReference" url="http://10.20.88.57/MSFT2/PushService.asmx?wsdl" filename="PushService.wsdl" />
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.DiscoveryDocumentReference" url="http://10.20.88.57/MSFT2/PushService.asmx?disco" filename="PushService.disco" />
</Results>
</DiscoveryClientResultsFile>

50
SRC/MESAgent/MESIEW/IEWService/app.config Normal file
View File

@ -0,0 +1,50 @@
<?xml version="1.0"?>
<configuration>
<configSections>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="IEWService.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- 這個區段定義 My.Application.Log 的記錄組態-->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- 取消註解下列區段，以寫入應用程式事件記錄檔-->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- 取消註解下列區段，並將 APPLICATION_NAME 取代成您的應用程式名稱，以寫入至應用程式事件記錄檔-->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2"/></startup>
<appSettings>
<add key="DatabaseType" value="oracle"/>
<add key="DatabaseOwner" value="MESSERIES"/>
<add key="DatabasePassword" value="==wQ5hTP"/>
<add key="ConnectionString" value="Provider=OraOleDB.Oracle;Data Source=MESDB;User ID=MESSERIES"/>
<add key="ReportDatabaseType" value="oracle"/>
<add key="ReportDatabaseOwner" value="MESSERIES"/>
<add key="ReportDatabasePassword" value="==wQ5hTP"/>
<add key="ReportConnectionString" value="Provider=OraOleDB.Oracle;Data Source=MESDB;User ID=MESSERIES"/>
<!-- 允許同時執行預警事件數量 -->
<add key="MaxRunningJobCount" value="5"/>
<!--訊息平台Service URL-->
<add key="MSG_SERVICE" value="http://localhost/MES_Production_MESws_MSG/InvokeJSON"/>
</appSettings>
<applicationSettings>
<IEWService.My.MySettings>
<setting name="MESIEW_wsMCloud_PushService" serializeAs="String">
<value>http://10.20.88.57/MSFT2/PushService.asmx</value>
</setting>
</IEWService.My.MySettings>
</applicationSettings>
</configuration>

21
SRC/MESPlugin/MESPI_WIP/MESPI_WIP.sln → SRC/MESAgent/MESIEW/MESIEW.sln
View File

@ -1,9 +1,9 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 14
VisualStudioVersion = 14.0.25420.1
VisualStudioVersion = 14.0.25123.0
MinimumVisualStudioVersion = 10.0.40219.1
Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "MESPI_WIP", "MESPI_WIP.csproj", "{F9051601-B027-0745-17C2-D36A87ABB6A1}"
Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "IEWService", "IEWService\IEWService.csproj", "{7538DCCA-4FA2-0BF3-1C07-913D4AE96E95}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
@ -11,22 +11,21 @@ Global
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{F9051601-B027-0745-17C2-D36A87ABB6A1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{F9051601-B027-0745-17C2-D36A87ABB6A1}.Debug|Any CPU.Build.0 = Debug|Any CPU
{F9051601-B027-0745-17C2-D36A87ABB6A1}.Release|Any CPU.ActiveCfg = Release|Any CPU
{F9051601-B027-0745-17C2-D36A87ABB6A1}.Release|Any CPU.Build.0 = Release|Any CPU
{7538DCCA-4FA2-0BF3-1C07-913D4AE96E95}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{7538DCCA-4FA2-0BF3-1C07-913D4AE96E95}.Debug|Any CPU.Build.0 = Debug|Any CPU
{7538DCCA-4FA2-0BF3-1C07-913D4AE96E95}.Release|Any CPU.ActiveCfg = Release|Any CPU
{7538DCCA-4FA2-0BF3-1C07-913D4AE96E95}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(TeamFoundationVersionControl) = preSolution
SccNumberOfProjects = 1
SccNumberOfProjects = 2
SccEnterpriseProvider = {4CA58AB2-18FA-4F8D-95D4-32DDF27D184C}
SccTeamFoundationServer = http://tfs.imestech.com:8080/tfs/messeries6
SccProjectUniqueName0 = MESPI_WIP.csproj
SccProjectName0 = .
SccAuxPath0 = http://tfs.imestech.com:8080/tfs/messeries6
SccLocalPath0 = .
SccProvider0 = {4CA58AB2-18FA-4F8D-95D4-32DDF27D184C}
SccProjectUniqueName1 = IEWService\\IEWService.vbproj
SccProjectName1 = IEWService
SccLocalPath1 = IEWService
EndGlobalSection
EndGlobal

119
SRC/MESPlugin/MESPI_BusinessRule/MESPI_BusinessRule.csproj
View File

@ -1,119 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{6CD932DD-93B6-0C5E-06F9-47F39C95CB5A}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>MESPI_BusinessRule</RootNamespace>
<AssemblyName>MESPI_BusinessRule</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
<TargetFrameworkProfile />
<SccProjectName>SAK</SccProjectName>
<SccLocalPath>SAK</SccLocalPath>
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
<DefaultItemExcludes>$(DefaultItemExcludes);$(ProjectDir)**\*.vb</DefaultItemExcludes>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\MES_S_DLL\plugin\</OutputPath>
<DocumentationFile>..\..\MES_S_DLL\plugin\MESPI_BusinessRule.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>bin\Release\
</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<SignAssembly>true</SignAssembly>
</PropertyGroup>
<PropertyGroup>
<AssemblyOriginatorKeyFile>iMES.snk</AssemblyOriginatorKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="Microsoft.VisualBasic" />
<Reference Include="iMESCIO, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\MES_S_DLL\iMESCIO.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="clsBusinessRule.cs" />
<Compile Include="clsGetFunctionBR.cs" />
<Compile Include="My Project\AssemblyInfo.cs" />
<Compile Include="My Project\Application.Designer.cs">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.cs">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<None Include="iMES.snk" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.cs</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>MESPI_BusinessRule.My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.cs</LastGenOutput>
</None>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

10
SRC/MESPlugin/MESPI_BusinessRule/MESPI_BusinessRule.vssscc
View File

@ -1,10 +0,0 @@
""
{
"FILE_VERSION" = "9237"
"ENLISTMENT_CHOICE" = "NEVER"
"PROJECT_FILE_RELATIVE_PATH" = ""
"NUMBER_OF_EXCLUDED_FILES" = "0"
"ORIGINAL_PROJECT_FILE_PATH" = ""
"NUMBER_OF_NESTED_PROJECTS" = "0"
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROJECT"
}

35
SRC/MESPlugin/MESPI_BusinessRule/My Project/AssemblyInfo.cs
View File

@ -1,35 +0,0 @@
using System;
using System.Reflection;
using System.Runtime.InteropServices;
// 組件的一般資訊是由下列的屬性集控制。
// 變更這些屬性的值即可修改組件的相關
// 資訊。
// 檢閱組件屬性的值
[assembly: AssemblyTitle("MESPI_BusinessRule")]
[assembly: AssemblyDescription("")]
[assembly: AssemblyCompany("")]
[assembly: AssemblyProduct("MESPI_BusinessRule")]
[assembly: AssemblyCopyright("Copyright © 2016")]
[assembly: AssemblyTrademark("")]
[assembly: ComVisible(false)]
// 下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
[assembly: Guid("ad5034de-f368-4373-8f98-36aec3edf64e")]
// 組件的版本資訊由下列四個值所組成:
//
// 主要版本
// 次要版本
// 組建編號
// 修訂編號
//
// 您可以指定所有的值，也可以依照以下的方式，使用 '*' 將組建和修訂編號
// 指定為預設值:
// <Assembly: AssemblyVersion("1.0.*")>
[assembly: AssemblyVersion("6.0.0.0")]
[assembly: AssemblyFileVersion("6.0.0.0")]

26
SRC/MESPlugin/MESPI_BusinessRule/My Project/Settings.Designer.cs generated
View File

@ -1,26 +0,0 @@
//------------------------------------------------------------------------------
// <auto-generated>
// 這段程式碼是由工具產生的。
// 執行階段版本:4.0.30319.42000
//
// 對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
// 變更將會遺失。
// </auto-generated>
//------------------------------------------------------------------------------
namespace MESPI_BusinessRule.My {
[global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()]
[global::System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0")]
internal sealed partial class Settings : global::System.Configuration.ApplicationSettingsBase {
private static Settings defaultInstance = ((Settings)(global::System.Configuration.ApplicationSettingsBase.Synchronized(new Settings())));
public static Settings Default {
get {
return defaultInstance;
}
}
}
}

16
SRC/MESPlugin/MESPI_BusinessRule/clsBusinessRule.cs
View File

@ -1,16 +0,0 @@
using iMESCIO.PIO.Plugin;
using Microsoft.VisualBasic;
namespace MESPI_BusinessRule
{
public class clsBusinessRule : IBusinessRule
{
private string funBR_Test(Collection colParameters)
{
return "Pass";
}
}
}

96
SRC/MESPlugin/MESPI_BusinessRule/clsGetFunctionBR.cs
View File

@ -1,96 +0,0 @@
using System;
using System.Data;
using System.IO;
using System.Linq;
using System.Reflection;
using iMESCIO.PIO.Plugin;
using Microsoft.VisualBasic;
using Microsoft.VisualBasic.CompilerServices;
namespace MESPI_BusinessRule
{
public class clsGetFunctionBR : ICommonPlugin
{
public string PlugInPoint
{
get
{
return "wsOP.LoadBRFunctionName";
}
}
public object AfterExecut(params object[] Parameters)
{
string strAppBase = AppDomain.CurrentDomain.BaseDirectory;
string strFilePath = strAppBase.TrimEnd('\\') + @"\Plugin\BusinessRule";
Assembly mainAssembly;
MethodInfo[] MyMethodInfos;
string strFunction;
string strResult = "";
try
{
foreach (string file in Directory.GetFiles(strFilePath))
{
if (new System.IO.FileInfo(file).Extension.ToUpper() != ".DLL")
{
continue;
}
mainAssembly = Assembly.LoadFrom(file);
foreach (Type item in mainAssembly.GetTypes())
{
var InterfaceTemp = item.GetInterfaces().Where(x => (x.Name ?? "") == (typeof(IBusinessRule).Name.ToString() ?? "")).FirstOrDefault();
if (InterfaceTemp == null == false)
{
MyMethodInfos = item.GetMethods(BindingFlags.NonPublic | BindingFlags.Instance);
for (int i = 0, loopTo = MyMethodInfos.Length - 1; i <= loopTo; i++)
{
strFunction = MyMethodInfos[i].Name;
if (Conversions.ToBoolean(Strings.InStr(strFunction.ToUpper(), "FUNBR")))
{
strResult += "<functionname>" + "<name>FunctionName</name>" + "<type>String</type>" + "<schema></schema>" + "<value>" + strFunction + "</value>" + "<desc></desc>" + "<filename>" + new System.IO.FileInfo(file).Name + "</filename>" + "</functionname>";
}
}
}
}
}
}
catch (Exception ex)
{
throw;
}
finally
{
mainAssembly = null;
MyMethodInfos = null;
}
return strResult;
}
public object BeforeExecut(ref bool paramIsCancel, params object[] Parameters)
{
throw new NotImplementedException();
}
}
}

124
SRC/MESPlugin/MESPI_WIP/MESPI_WIP.csproj
View File

@ -1,124 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>
</ProductVersion>
<SchemaVersion>
</SchemaVersion>
<ProjectGuid>{F9051601-B027-0745-17C2-D36A87ABB6A1}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>MESPI_WIP</RootNamespace>
<AssemblyName>MESPI_WIP</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
<SccProjectName>SAK</SccProjectName>
<SccLocalPath>SAK</SccLocalPath>
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
<TargetFrameworkProfile />
<DefaultItemExcludes>$(DefaultItemExcludes);$(ProjectDir)**\*.vb</DefaultItemExcludes>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\MES_S_DLL\plugin\WIP\</OutputPath>
<DocumentationFile>..\..\MES_S_DLL\plugin\WIP\MESPI_WIP.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
<WarningLevel>0</WarningLevel>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>bin\Release\MESPI_WIP.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
<WarningLevel>0</WarningLevel>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="Microsoft.VisualBasic" />
<Reference Include="iMESException, Version=6.0.0.0, Culture=neutral, PublicKeyToken=3ad2cfbf6a289680, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\MES_S_DLL\iMESException.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="iMESLog">
<HintPath>..\..\MES_S_DLL\iMESLog.dll</HintPath>
</Reference>
<Reference Include="kcPRD, Version=6.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\MES_S_DLL\kcPRD.dll</HintPath>
</Reference>
<Reference Include="kcWIP">
<HintPath>..\..\MES_S_DLL\kcWIP.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="My Project\AssemblyInfo.cs" />
<Compile Include="My Project\Application.Designer.cs">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.cs">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.cs</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>MESPI_WIP.My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.cs</LastGenOutput>
</None>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

11
SRC/MESPlugin/MESPI_WIP/My Project/Application.Designer.cs generated
View File

@ -1,11 +0,0 @@
// ------------------------------------------------------------------------------
// <auto-generated>
// 這段程式碼是由工具產生的。
// 執行階段版本:4.0.30319.42000
//
// 對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
// 變更將會遺失。
// </auto-generated>
// ------------------------------------------------------------------------------

35
SRC/MESPlugin/MESPI_WIP/My Project/AssemblyInfo.cs
View File

@ -1,35 +0,0 @@
using System;
using System.Reflection;
using System.Runtime.InteropServices;
// 組件的一般資訊是由下列的屬性集控制。
// 變更這些屬性的值即可修改組件的相關
// 資訊。
// 檢閱組件屬性的值
[assembly: AssemblyTitle("MESPI_WIP")]
[assembly: AssemblyDescription("")]
[assembly: AssemblyCompany("")]
[assembly: AssemblyProduct("MESPI_WIP")]
[assembly: AssemblyCopyright("Copyright © 2018")]
[assembly: AssemblyTrademark("")]
[assembly: ComVisible(false)]
// 下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
[assembly: Guid("438509c2-63aa-45a9-955b-b76a4ad092ac")]
// 組件的版本資訊是由下列四項值構成:
//
// 主要版本
// 次要版本
// 組建編號
// 修訂編號
//
// 您可以指定所有的值，也可以依照以下的方式，使用 '*' 將組建和修訂編號
// 指定為預設值:
// <Assembly: AssemblyVersion("1.0.*")>
[assembly: AssemblyVersion("1.0.0.0")]
[assembly: AssemblyFileVersion("1.0.0.0")]

7
SRC/MESPlugin/MESPI_WIP/My Project/Settings.settings
View File

@ -1,7 +0,0 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

17
SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.sln → SRC/MESWin/BR/BR_L_CI_GEN/BR_L_CI_GEN.sln
View File

@ -1,11 +1,14 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 14
VisualStudioVersion = 14.0.25123.0
VisualStudioVersion = 14.0.25420.1
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ET_Subcontractor", "ET_Subcontractor.vbproj", "{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}"
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BR_L_CI_GEN", "BR_L_CI_GEN.vbproj", "{0FD97C44-56DD-44B2-AA3E-351935F5AC9C}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Test", "..\..\Test\Test.vbproj", "{C4A48E3F-38E4-4E88-A47D-FA5510686E57}"
ProjectSection(ProjectDependencies) = postProject
{0FD97C44-56DD-44B2-AA3E-351935F5AC9C} = {0FD97C44-56DD-44B2-AA3E-351935F5AC9C}
EndProjectSection
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
@ -13,10 +16,10 @@ Global
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Debug|x86.ActiveCfg = Debug|x86
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Debug|x86.Build.0 = Debug|x86
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Release|x86.ActiveCfg = Release|x86
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Release|x86.Build.0 = Release|x86
{0FD97C44-56DD-44B2-AA3E-351935F5AC9C}.Debug|x86.ActiveCfg = Debug|x86
{0FD97C44-56DD-44B2-AA3E-351935F5AC9C}.Debug|x86.Build.0 = Debug|x86
{0FD97C44-56DD-44B2-AA3E-351935F5AC9C}.Release|x86.ActiveCfg = Release|x86
{0FD97C44-56DD-44B2-AA3E-351935F5AC9C}.Release|x86.Build.0 = Release|x86
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Debug|x86.ActiveCfg = Debug|x86
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Debug|x86.Build.0 = Debug|x86
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Release|x86.ActiveCfg = Release|x86
@ -29,11 +32,11 @@ Global
SccNumberOfProjects = 3
SccEnterpriseProvider = {4CA58AB2-18FA-4F8D-95D4-32DDF27D184C}
SccTeamFoundationServer = http://tfs.imestech.com:8080/tfs/messeries6
SccProjectUniqueName0 = ET_Subcontractor.vbproj
SccLocalPath0 = .
SccProjectUniqueName1 = ..\\..\\Test\\Test.vbproj
SccProjectName1 = ../../Test
SccLocalPath1 = ..\\..\\Test
SccProjectUniqueName2 = BR_L_CI_GEN.vbproj
SccLocalPath2 = .
EndGlobalSection
EndGlobal

140
SRC/MESWin/SYS3/ET_Subcontractor_21676/ET_Subcontractor_21676.vbproj → SRC/MESWin/BR/BR_L_CI_GEN/BR_L_CI_GEN.vbproj
View File

@ -4,10 +4,10 @@
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
<ProjectGuid>{0FD97C44-56DD-44B2-AA3E-351935F5AC9C}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>ET_Subcontractor_21676</RootNamespace>
<AssemblyName>ET_Subcontractor_21676</AssemblyName>
<RootNamespace>BR_L_CI_GEN</RootNamespace>
<AssemblyName>BR_L_CI_GEN</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
@ -17,6 +17,28 @@
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\..\MESClient\</OutputPath>
<DocumentationFile>BR_L_CI_GEN.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<WarningLevel>0</WarningLevel>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>BR_L_CI_GEN.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<WarningLevel>0</WarningLevel>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
@ -34,7 +56,7 @@
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\..\MESClient\</OutputPath>
<DocumentationFile>ET_Subcontractor_21676.xml</DocumentationFile>
<DocumentationFile>BR_L_CI_GEN.xml</DocumentationFile>
<WarningLevel>0</WarningLevel>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>full</DebugType>
@ -45,7 +67,7 @@
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\..\MESClient\</OutputPath>
<DocumentationFile>ET_Subcontractor_21676.xml</DocumentationFile>
<DocumentationFile>BR_L_CI_GEN.xml</DocumentationFile>
<Optimize>true</Optimize>
<WarningLevel>0</WarningLevel>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
@ -66,6 +88,11 @@
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="Infragistics4.Win.UltraWinTabControl.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinTabControl.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="Infragistics4.Win.UltraWinGrid.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinGrid.v19.1.dll</HintPath>
@ -86,10 +113,29 @@
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Shared.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="COM_ERP, Version=6.0.0.0, Culture=neutral, PublicKeyToken=3ad2cfbf6a289680, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MESClient\COM_ERP.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="COM_Kit">
<HintPath>..\..\..\MESClient\COM_Kit.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="COM_Search, Version=1.0.0.0, Culture=neutral, PublicKeyToken=3ad2cfbf6a289680, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MESClient\COM_Search.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="COM_Utility, Version=6.0.0.0, Culture=neutral, PublicKeyToken=3ad2cfbf6a289680, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MESClient\COM_Utility.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="iMESException">
<HintPath>..\..\..\MES_C_DLL\iMESException.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="iMESExceptionManager">
<HintPath>..\..\..\MES_C_DLL\iMESExceptionManager.dll</HintPath>
<Private>False</Private>
@ -98,17 +144,29 @@
<HintPath>..\..\..\MES_C_DLL\iMESUltraGrid.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="Newtonsoft.Json, Version=11.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MES_S_DLL\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Drawing" />
<Reference Include="System.EnterpriseServices" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="WP_Kit, Version=1.0.0.0, Culture=neutral, PublicKeyToken=3ad2cfbf6a289680, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MESClient\WP_Kit.dll</HintPath>
<Private>False</Private>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="COM_Kit.clsGlobalVariables" />
<Import Include="COM_Kit.clsKit" />
<Import Include="COM_Search" />
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
@ -121,34 +179,19 @@
<Import Include="System.Xml" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
<Import Include="WP_Kit.clsWIPKit" />
</ItemGroup>
<ItemGroup>
<Compile Include="..\..\shared file\modConstant.vb">
<Link>modConstant.vb</Link>
</Compile>
<Compile Include="frmSubcontractor_21676.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSubcontractorContDef_21676.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSubcontractorDef_21676.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSubcontractor.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSubcontractorContDef.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSubcontractorDef.vb">
<Compile Include="frmBR_L_CI_GEN.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
@ -160,25 +203,15 @@
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Web References\wsEAI\Reference.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Reference.map</DependentUpon>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmSubcontractor_21676.resx">
<DependentUpon>frmSubcontractor_21676.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSubcontractorContDef_21676.resx">
<DependentUpon>frmSubcontractorContDef_21676.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSubcontractorDef_21676.resx">
<DependentUpon>frmSubcontractorDef_21676.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSubcontractor.resx">
<DependentUpon>frmSubcontractor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSubcontractorContDef.resx">
<DependentUpon>frmSubcontractorContDef.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSubcontractorDef.resx">
<DependentUpon>frmSubcontractorDef.vb</DependentUpon>
<EmbeddedResource Include="frmBR_L_CI_GEN.resx">
<DependentUpon>frmBR_L_CI_GEN.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
@ -189,6 +222,7 @@
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="app.config" />
<None Include="iMES.snk" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
@ -199,8 +233,34 @@
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="Web References\wsEAI\Reference.map">
<Generator>MSDiscoCodeGenerator</Generator>
<LastGenOutput>Reference.vb</LastGenOutput>
</None>
<None Include="Web References\wsEAI\wsEAI.wsdl" />
</ItemGroup>
<ItemGroup>
<WCFMetadata Include="Service References\" />
</ItemGroup>
<ItemGroup>
<WebReferences Include="Web References\" />
</ItemGroup>
<ItemGroup>
<WebReferenceUrl Include="http://localhost/EAI/wsEAI.asmx">
<UrlBehavior>Dynamic</UrlBehavior>
<RelPath>Web References\wsEAI\</RelPath>
<UpdateFromURL>http://localhost/EAI/wsEAI.asmx</UpdateFromURL>
<ServiceLocationURL>
</ServiceLocationURL>
<CachedDynamicPropName>
</CachedDynamicPropName>
<CachedAppSettingsObjectName>MySettings</CachedAppSettingsObjectName>
<CachedSettingsPropName>BR_L_CI_GEN_localhost_wsEAI</CachedSettingsPropName>
</WebReferenceUrl>
</ItemGroup>
<ItemGroup>
<None Include="Web References\wsEAI\wsEAI.disco" />
</ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.

0
SRC/MESWin/SYS2/ET_Subcontractor/ET_Subcontractor.vbproj.vspscc → SRC/MESWin/BR/BR_L_CI_GEN/BR_L_CI_GEN.vbproj.vspscc
View File

0
SRC/MESWin/SYS4/21670ll/MESWin/ENT/ET_Subcontractor/My Project/Application.Designer.vb → SRC/MESWin/BR/BR_L_CI_GEN/My Project/Application.Designer.vb generated
View File

0
SRC/MESPlugin/MESPI_BusinessRule/My Project/Application.myapp → SRC/MESWin/BR/BR_L_CI_GEN/My Project/Application.myapp
View File

2
SRC/MESWin/SYS3/ET_Subcontractor_21676/My Project/AssemblyInfo.vb → SRC/MESWin/BR/BR_L_CI_GEN/My Project/AssemblyInfo.vb
View File

@ -8,7 +8,7 @@ Imports System.Runtime.InteropServices
' 檢閱組件屬性的值
<Assembly: AssemblyTitle("ET_Subcontractor")>
<Assembly: AssemblyTitle("BR_L_CI_GEN")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("iMES Technology Inc.")>
<Assembly: AssemblyProduct("MESSeries 6")>

1
SRC/MESWin/BR/BR_L_CI_GEN/My Project/BuildIncrementVersionInfo.vb Normal file
View File

@ -0,0 +1 @@
<Assembly: Reflection.AssemblyFileVersion("6.0.7.40103")>

2
SRC/MESWin/SYS4/21670ll/MESWin/ENT/ET_Subcontractor/My Project/Resources.Designer.vb → SRC/MESWin/BR/BR_L_CI_GEN/My Project/Resources.Designer.vb generated
View File

@ -39,7 +39,7 @@ Namespace My.Resources
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ET_Subcontractor.Resources", GetType(Resources).Assembly)
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("BR_L_CI_GEN.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan

0
SRC/MESPlugin/MESPI_WIP/My Project/Resources.resx → SRC/MESWin/BR/BR_L_CI_GEN/My Project/Resources.resx
View File

14
SRC/MESWin/SYS4/21670ll/MESWin/ENT/ET_Subcontractor/My Project/Settings.Designer.vb → SRC/MESWin/BR/BR_L_CI_GEN/My Project/Settings.Designer.vb generated
View File

@ -53,6 +53,16 @@ Namespace My
Return defaultInstance
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _
Global.System.Configuration.DefaultSettingValueAttribute("http://localhost/EAI/wsEAI.asmx")> _
Public ReadOnly Property BR_L_CI_GEN_localhost_wsEAI() As String
Get
Return CType(Me("BR_L_CI_GEN_localhost_wsEAI"),String)
End Get
End Property
End Class
End Namespace
@ -64,9 +74,9 @@ Namespace My
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.ET_Subcontractor.My.MySettings
Friend ReadOnly Property Settings() As Global.BR_L_CI_GEN.My.MySettings
Get
Return Global.ET_Subcontractor.My.MySettings.Default
Return Global.BR_L_CI_GEN.My.MySettings.Default
End Get
End Property
End Module

9
SRC/MESWin/BR/BR_L_CI_GEN/My Project/Settings.settings Normal file
View File

@ -0,0 +1,9 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="BR_L_CI_GEN_localhost_wsEAI" Type="(Web Service URL)" Scope="Application">
<Value Profile="(Default)">http://localhost/EAI/wsEAI.asmx</Value>
</Setting>
</Settings>
</SettingsFile>

9
SRC/MESWin/SYS4/21670ll/MESWin/ENT/ET_Demo/My Project/licenses.licx → SRC/MESWin/BR/BR_L_CI_GEN/My Project/licenses.licx
View File

@ -1,7 +1,6 @@
Infragistics.Win.Misc.UltraPanel, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraButton, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.UltraWinEditors.UltraTextEditor, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraSplitter, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraLabel, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.UltraWinEditors.UltraRadioButton, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.UltraWinEditors.UltraComboEditor, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraButton, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraPanel, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraExpandableGroupBox, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.UltraWinTabControl.UltraTabControl, Infragistics4.Win.UltraWinTabControl.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb

7
SRC/MESWin/BR/BR_L_CI_GEN/Web References/wsEAI/Reference.map Normal file
View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<DiscoveryClientResultsFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Results>
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.DiscoveryDocumentReference" url="http://localhost/EAI/wsEAI.asmx?disco" filename="wsEAI.disco" />
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.ContractReference" url="http://localhost/EAI/wsEAI.asmx?wsdl" filename="wsEAI.wsdl" />
</Results>
</DiscoveryClientResultsFile>

503
SRC/MESWin/BR/BR_L_CI_GEN/Web References/wsEAI/Reference.vb Normal file
View File

@ -0,0 +1,503 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 這段程式碼是由工具產生的。
' 執行階段版本:4.0.30319.42000
'
' 對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
' 變更將會遺失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
'
'原始程式碼已由 Microsoft.VSDesigner 自動產生，版本 4.0.30319.42000。
'
Namespace wsEAI
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="wsEAISoap", [Namespace]:="http://www.imestech.com/wsEAI")> _
Partial Public Class wsEAI
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
Private InvokeSrv_metajsonOperationCompleted As System.Threading.SendOrPostCallback
Private InvokeSrv_jsonOperationCompleted As System.Threading.SendOrPostCallback
Private invokeSrvOperationCompleted As System.Threading.SendOrPostCallback
Private invokeSrv_ResolvedXMLOperationCompleted As System.Threading.SendOrPostCallback
Private callbackSrvOperationCompleted As System.Threading.SendOrPostCallback
Private syncProdOperationCompleted As System.Threading.SendOrPostCallback
Private GeteSOPInfo_APIOperationCompleted As System.Threading.SendOrPostCallback
Private useDefaultCredentialsSetExplicitly As Boolean
'''<remarks/>
Public Sub New()
MyBase.New
Me.Url = Global.BR_L_CI_GEN.My.MySettings.Default.BR_L_CI_GEN_localhost_wsEAI
If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then
Me.UseDefaultCredentials = true
Me.useDefaultCredentialsSetExplicitly = false
Else
Me.useDefaultCredentialsSetExplicitly = true
End If
End Sub
Public Shadows Property Url() As String
Get
Return MyBase.Url
End Get
Set
If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _
AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _
AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then
MyBase.UseDefaultCredentials = false
End If
MyBase.Url = value
End Set
End Property
Public Shadows Property UseDefaultCredentials() As Boolean
Get
Return MyBase.UseDefaultCredentials
End Get
Set
MyBase.UseDefaultCredentials = value
Me.useDefaultCredentialsSetExplicitly = true
End Set
End Property
'''<remarks/>
Public Event InvokeSrv_metajsonCompleted As InvokeSrv_metajsonCompletedEventHandler
'''<remarks/>
Public Event InvokeSrv_jsonCompleted As InvokeSrv_jsonCompletedEventHandler
'''<remarks/>
Public Event invokeSrvCompleted As invokeSrvCompletedEventHandler
'''<remarks/>
Public Event invokeSrv_ResolvedXMLCompleted As invokeSrv_ResolvedXMLCompletedEventHandler
'''<remarks/>
Public Event callbackSrvCompleted As callbackSrvCompletedEventHandler
'''<remarks/>
Public Event syncProdCompleted As syncProdCompletedEventHandler
'''<remarks/>
Public Event GeteSOPInfo_APICompleted As GeteSOPInfo_APICompletedEventHandler
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.imestech.com/wsEAI/InvokeSrv_metajson", RequestNamespace:="http://www.imestech.com/wsEAI", ResponseNamespace:="http://www.imestech.com/wsEAI", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function InvokeSrv_metajson(ByVal metadata As String, ByVal content As String) As String
Dim results() As Object = Me.Invoke("InvokeSrv_metajson", New Object() {metadata, content})
Return CType(results(0),String)
End Function
'''<remarks/>
Public Overloads Sub InvokeSrv_metajsonAsync(ByVal metadata As String, ByVal content As String)
Me.InvokeSrv_metajsonAsync(metadata, content, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub InvokeSrv_metajsonAsync(ByVal metadata As String, ByVal content As String, ByVal userState As Object)
If (Me.InvokeSrv_metajsonOperationCompleted Is Nothing) Then
Me.InvokeSrv_metajsonOperationCompleted = AddressOf Me.OnInvokeSrv_metajsonOperationCompleted
End If
Me.InvokeAsync("InvokeSrv_metajson", New Object() {metadata, content}, Me.InvokeSrv_metajsonOperationCompleted, userState)
End Sub
Private Sub OnInvokeSrv_metajsonOperationCompleted(ByVal arg As Object)
If (Not (Me.InvokeSrv_metajsonCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent InvokeSrv_metajsonCompleted(Me, New InvokeSrv_metajsonCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.imestech.com/wsEAI/InvokeSrv_json", RequestNamespace:="http://www.imestech.com/wsEAI", ResponseNamespace:="http://www.imestech.com/wsEAI", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function InvokeSrv_json(ByVal uri As String, ByVal content As String) As String
Dim results() As Object = Me.Invoke("InvokeSrv_json", New Object() {uri, content})
Return CType(results(0),String)
End Function
'''<remarks/>
Public Overloads Sub InvokeSrv_jsonAsync(ByVal uri As String, ByVal content As String)
Me.InvokeSrv_jsonAsync(uri, content, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub InvokeSrv_jsonAsync(ByVal uri As String, ByVal content As String, ByVal userState As Object)
If (Me.InvokeSrv_jsonOperationCompleted Is Nothing) Then
Me.InvokeSrv_jsonOperationCompleted = AddressOf Me.OnInvokeSrv_jsonOperationCompleted
End If
Me.InvokeAsync("InvokeSrv_json", New Object() {uri, content}, Me.InvokeSrv_jsonOperationCompleted, userState)
End Sub
Private Sub OnInvokeSrv_jsonOperationCompleted(ByVal arg As Object)
If (Not (Me.InvokeSrv_jsonCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent InvokeSrv_jsonCompleted(Me, New InvokeSrv_jsonCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.imestech.com/wsEAI/invokeSrv", RequestNamespace:="http://www.imestech.com/wsEAI", ResponseNamespace:="http://www.imestech.com/wsEAI", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function invokeSrv(ByVal InXml As String) As String
Dim results() As Object = Me.Invoke("invokeSrv", New Object() {InXml})
Return CType(results(0),String)
End Function
'''<remarks/>
Public Overloads Sub invokeSrvAsync(ByVal InXml As String)
Me.invokeSrvAsync(InXml, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub invokeSrvAsync(ByVal InXml As String, ByVal userState As Object)
If (Me.invokeSrvOperationCompleted Is Nothing) Then
Me.invokeSrvOperationCompleted = AddressOf Me.OninvokeSrvOperationCompleted
End If
Me.InvokeAsync("invokeSrv", New Object() {InXml}, Me.invokeSrvOperationCompleted, userState)
End Sub
Private Sub OninvokeSrvOperationCompleted(ByVal arg As Object)
If (Not (Me.invokeSrvCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent invokeSrvCompleted(Me, New invokeSrvCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.imestech.com/wsEAI/invokeSrv_ResolvedXML", RequestNamespace:="http://www.imestech.com/wsEAI", ResponseNamespace:="http://www.imestech.com/wsEAI", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function invokeSrv_ResolvedXML(ByVal MethodName As String, ByVal InXml As String) As String
Dim results() As Object = Me.Invoke("invokeSrv_ResolvedXML", New Object() {MethodName, InXml})
Return CType(results(0),String)
End Function
'''<remarks/>
Public Overloads Sub invokeSrv_ResolvedXMLAsync(ByVal MethodName As String, ByVal InXml As String)
Me.invokeSrv_ResolvedXMLAsync(MethodName, InXml, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub invokeSrv_ResolvedXMLAsync(ByVal MethodName As String, ByVal InXml As String, ByVal userState As Object)
If (Me.invokeSrv_ResolvedXMLOperationCompleted Is Nothing) Then
Me.invokeSrv_ResolvedXMLOperationCompleted = AddressOf Me.OninvokeSrv_ResolvedXMLOperationCompleted
End If
Me.InvokeAsync("invokeSrv_ResolvedXML", New Object() {MethodName, InXml}, Me.invokeSrv_ResolvedXMLOperationCompleted, userState)
End Sub
Private Sub OninvokeSrv_ResolvedXMLOperationCompleted(ByVal arg As Object)
If (Not (Me.invokeSrv_ResolvedXMLCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent invokeSrv_ResolvedXMLCompleted(Me, New invokeSrv_ResolvedXMLCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.imestech.com/wsEAI/callbackSrv", RequestNamespace:="http://www.imestech.com/wsEAI", ResponseNamespace:="http://www.imestech.com/wsEAI", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function callbackSrv(ByVal InXml As String) As String
Dim results() As Object = Me.Invoke("callbackSrv", New Object() {InXml})
Return CType(results(0),String)
End Function
'''<remarks/>
Public Overloads Sub callbackSrvAsync(ByVal InXml As String)
Me.callbackSrvAsync(InXml, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub callbackSrvAsync(ByVal InXml As String, ByVal userState As Object)
If (Me.callbackSrvOperationCompleted Is Nothing) Then
Me.callbackSrvOperationCompleted = AddressOf Me.OncallbackSrvOperationCompleted
End If
Me.InvokeAsync("callbackSrv", New Object() {InXml}, Me.callbackSrvOperationCompleted, userState)
End Sub
Private Sub OncallbackSrvOperationCompleted(ByVal arg As Object)
If (Not (Me.callbackSrvCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent callbackSrvCompleted(Me, New callbackSrvCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.imestech.com/wsEAI/syncProd", RequestNamespace:="http://www.imestech.com/wsEAI", ResponseNamespace:="http://www.imestech.com/wsEAI", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function syncProd(ByVal InXml As String) As String
Dim results() As Object = Me.Invoke("syncProd", New Object() {InXml})
Return CType(results(0),String)
End Function
'''<remarks/>
Public Overloads Sub syncProdAsync(ByVal InXml As String)
Me.syncProdAsync(InXml, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub syncProdAsync(ByVal InXml As String, ByVal userState As Object)
If (Me.syncProdOperationCompleted Is Nothing) Then
Me.syncProdOperationCompleted = AddressOf Me.OnsyncProdOperationCompleted
End If
Me.InvokeAsync("syncProd", New Object() {InXml}, Me.syncProdOperationCompleted, userState)
End Sub
Private Sub OnsyncProdOperationCompleted(ByVal arg As Object)
If (Not (Me.syncProdCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent syncProdCompleted(Me, New syncProdCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.imestech.com/wsEAI/GeteSOPInfo_API", RequestNamespace:="http://www.imestech.com/wsEAI", ResponseNamespace:="http://www.imestech.com/wsEAI", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GeteSOPInfo_API(ByVal uri As String, ByVal content As String) As String
Dim results() As Object = Me.Invoke("GeteSOPInfo_API", New Object() {uri, content})
Return CType(results(0),String)
End Function
'''<remarks/>
Public Overloads Sub GeteSOPInfo_APIAsync(ByVal uri As String, ByVal content As String)
Me.GeteSOPInfo_APIAsync(uri, content, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GeteSOPInfo_APIAsync(ByVal uri As String, ByVal content As String, ByVal userState As Object)
If (Me.GeteSOPInfo_APIOperationCompleted Is Nothing) Then
Me.GeteSOPInfo_APIOperationCompleted = AddressOf Me.OnGeteSOPInfo_APIOperationCompleted
End If
Me.InvokeAsync("GeteSOPInfo_API", New Object() {uri, content}, Me.GeteSOPInfo_APIOperationCompleted, userState)
End Sub
Private Sub OnGeteSOPInfo_APIOperationCompleted(ByVal arg As Object)
If (Not (Me.GeteSOPInfo_APICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GeteSOPInfo_APICompleted(Me, New GeteSOPInfo_APICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
Public Shadows Sub CancelAsync(ByVal userState As Object)
MyBase.CancelAsync(userState)
End Sub
Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean
If ((url Is Nothing) _
OrElse (url Is String.Empty)) Then
Return false
End If
Dim wsUri As System.Uri = New System.Uri(url)
If ((wsUri.Port >= 1024) _
AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then
Return true
End If
Return false
End Function
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0")> _
Public Delegate Sub InvokeSrv_metajsonCompletedEventHandler(ByVal sender As Object, ByVal e As InvokeSrv_metajsonCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class InvokeSrv_metajsonCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),String)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0")> _
Public Delegate Sub InvokeSrv_jsonCompletedEventHandler(ByVal sender As Object, ByVal e As InvokeSrv_jsonCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class InvokeSrv_jsonCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),String)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0")> _
Public Delegate Sub invokeSrvCompletedEventHandler(ByVal sender As Object, ByVal e As invokeSrvCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class invokeSrvCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),String)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0")> _
Public Delegate Sub invokeSrv_ResolvedXMLCompletedEventHandler(ByVal sender As Object, ByVal e As invokeSrv_ResolvedXMLCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class invokeSrv_ResolvedXMLCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),String)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0")> _
Public Delegate Sub callbackSrvCompletedEventHandler(ByVal sender As Object, ByVal e As callbackSrvCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class callbackSrvCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),String)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0")> _
Public Delegate Sub syncProdCompletedEventHandler(ByVal sender As Object, ByVal e As syncProdCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class syncProdCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),String)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0")> _
Public Delegate Sub GeteSOPInfo_APICompletedEventHandler(ByVal sender As Object, ByVal e As GeteSOPInfo_APICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.3761.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GeteSOPInfo_APICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),String)
End Get
End Property
End Class
End Namespace

6
SRC/MESWin/BR/BR_L_CI_GEN/Web References/wsEAI/wsEAI.disco Normal file
View File

@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<discovery xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://schemas.xmlsoap.org/disco/">
<contractRef ref="http://localhost/EAI/wsEAI.asmx?wsdl" docRef="http://localhost/EAI/wsEAI.asmx" xmlns="http://schemas.xmlsoap.org/disco/scl/" />
<soap address="http://localhost/EAI/wsEAI.asmx" xmlns:q1="http://www.imestech.com/wsEAI" binding="q1:wsEAISoap" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
<soap address="http://localhost/EAI/wsEAI.asmx" xmlns:q2="http://www.imestech.com/wsEAI" binding="q2:wsEAISoap12" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
</discovery>

328
SRC/MESWin/BR/BR_L_CI_GEN/Web References/wsEAI/wsEAI.wsdl Normal file
View File

@ -0,0 +1,328 @@
<?xml version="1.0" encoding="utf-8"?>
<wsdl:definitions xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:tns="http://www.imestech.com/wsEAI" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" targetNamespace="http://www.imestech.com/wsEAI" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
<wsdl:types>
<s:schema elementFormDefault="qualified" targetNamespace="http://www.imestech.com/wsEAI">
<s:element name="InvokeSrv_metajson">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="metadata" type="s:string" />
<s:element minOccurs="0" maxOccurs="1" name="content" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="InvokeSrv_metajsonResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="InvokeSrv_metajsonResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="InvokeSrv_json">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="uri" type="s:string" />
<s:element minOccurs="0" maxOccurs="1" name="content" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="InvokeSrv_jsonResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="InvokeSrv_jsonResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="invokeSrv">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="InXml" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="invokeSrvResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="invokeSrvResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="invokeSrv_ResolvedXML">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="MethodName" type="s:string" />
<s:element minOccurs="0" maxOccurs="1" name="InXml" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="invokeSrv_ResolvedXMLResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="invokeSrv_ResolvedXMLResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="callbackSrv">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="InXml" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="callbackSrvResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="callbackSrvResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="syncProd">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="InXml" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="syncProdResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="syncProdResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="GeteSOPInfo_API">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="uri" type="s:string" />
<s:element minOccurs="0" maxOccurs="1" name="content" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="GeteSOPInfo_APIResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="GeteSOPInfo_APIResult" type="s:string" />
</s:sequence>
</s:complexType>
</s:element>
</s:schema>
</wsdl:types>
<wsdl:message name="InvokeSrv_metajsonSoapIn">
<wsdl:part name="parameters" element="tns:InvokeSrv_metajson" />
</wsdl:message>
<wsdl:message name="InvokeSrv_metajsonSoapOut">
<wsdl:part name="parameters" element="tns:InvokeSrv_metajsonResponse" />
</wsdl:message>
<wsdl:message name="InvokeSrv_jsonSoapIn">
<wsdl:part name="parameters" element="tns:InvokeSrv_json" />
</wsdl:message>
<wsdl:message name="InvokeSrv_jsonSoapOut">
<wsdl:part name="parameters" element="tns:InvokeSrv_jsonResponse" />
</wsdl:message>
<wsdl:message name="invokeSrvSoapIn">
<wsdl:part name="parameters" element="tns:invokeSrv" />
</wsdl:message>
<wsdl:message name="invokeSrvSoapOut">
<wsdl:part name="parameters" element="tns:invokeSrvResponse" />
</wsdl:message>
<wsdl:message name="invokeSrv_ResolvedXMLSoapIn">
<wsdl:part name="parameters" element="tns:invokeSrv_ResolvedXML" />
</wsdl:message>
<wsdl:message name="invokeSrv_ResolvedXMLSoapOut">
<wsdl:part name="parameters" element="tns:invokeSrv_ResolvedXMLResponse" />
</wsdl:message>
<wsdl:message name="callbackSrvSoapIn">
<wsdl:part name="parameters" element="tns:callbackSrv" />
</wsdl:message>
<wsdl:message name="callbackSrvSoapOut">
<wsdl:part name="parameters" element="tns:callbackSrvResponse" />
</wsdl:message>
<wsdl:message name="syncProdSoapIn">
<wsdl:part name="parameters" element="tns:syncProd" />
</wsdl:message>
<wsdl:message name="syncProdSoapOut">
<wsdl:part name="parameters" element="tns:syncProdResponse" />
</wsdl:message>
<wsdl:message name="GeteSOPInfo_APISoapIn">
<wsdl:part name="parameters" element="tns:GeteSOPInfo_API" />
</wsdl:message>
<wsdl:message name="GeteSOPInfo_APISoapOut">
<wsdl:part name="parameters" element="tns:GeteSOPInfo_APIResponse" />
</wsdl:message>
<wsdl:portType name="wsEAISoap">
<wsdl:operation name="InvokeSrv_metajson">
<wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Invoke Web Service Resolved metadata json</wsdl:documentation>
<wsdl:input message="tns:InvokeSrv_metajsonSoapIn" />
<wsdl:output message="tns:InvokeSrv_metajsonSoapOut" />
</wsdl:operation>
<wsdl:operation name="InvokeSrv_json">
<wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Invoke Web Service Resolved json</wsdl:documentation>
<wsdl:input message="tns:InvokeSrv_jsonSoapIn" />
<wsdl:output message="tns:InvokeSrv_jsonSoapOut" />
</wsdl:operation>
<wsdl:operation name="invokeSrv">
<wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Invoke Web Service</wsdl:documentation>
<wsdl:input message="tns:invokeSrvSoapIn" />
<wsdl:output message="tns:invokeSrvSoapOut" />
</wsdl:operation>
<wsdl:operation name="invokeSrv_ResolvedXML">
<wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Invoke Web Service for Resolved XML</wsdl:documentation>
<wsdl:input message="tns:invokeSrv_ResolvedXMLSoapIn" />
<wsdl:output message="tns:invokeSrv_ResolvedXMLSoapOut" />
</wsdl:operation>
<wsdl:operation name="callbackSrv">
<wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Callback Service</wsdl:documentation>
<wsdl:input message="tns:callbackSrvSoapIn" />
<wsdl:output message="tns:callbackSrvSoapOut" />
</wsdl:operation>
<wsdl:operation name="syncProd">
<wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">sync Product</wsdl:documentation>
<wsdl:input message="tns:syncProdSoapIn" />
<wsdl:output message="tns:syncProdSoapOut" />
</wsdl:operation>
<wsdl:operation name="GeteSOPInfo_API">
<wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">GeteSOPInfo_API</wsdl:documentation>
<wsdl:input message="tns:GeteSOPInfo_APISoapIn" />
<wsdl:output message="tns:GeteSOPInfo_APISoapOut" />
</wsdl:operation>
</wsdl:portType>
<wsdl:binding name="wsEAISoap" type="tns:wsEAISoap">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
<wsdl:operation name="InvokeSrv_metajson">
<soap:operation soapAction="http://www.imestech.com/wsEAI/InvokeSrv_metajson" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="InvokeSrv_json">
<soap:operation soapAction="http://www.imestech.com/wsEAI/InvokeSrv_json" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="invokeSrv">
<soap:operation soapAction="http://www.imestech.com/wsEAI/invokeSrv" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="invokeSrv_ResolvedXML">
<soap:operation soapAction="http://www.imestech.com/wsEAI/invokeSrv_ResolvedXML" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="callbackSrv">
<soap:operation soapAction="http://www.imestech.com/wsEAI/callbackSrv" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="syncProd">
<soap:operation soapAction="http://www.imestech.com/wsEAI/syncProd" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GeteSOPInfo_API">
<soap:operation soapAction="http://www.imestech.com/wsEAI/GeteSOPInfo_API" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:binding name="wsEAISoap12" type="tns:wsEAISoap">
<soap12:binding transport="http://schemas.xmlsoap.org/soap/http" />
<wsdl:operation name="InvokeSrv_metajson">
<soap12:operation soapAction="http://www.imestech.com/wsEAI/InvokeSrv_metajson" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="InvokeSrv_json">
<soap12:operation soapAction="http://www.imestech.com/wsEAI/InvokeSrv_json" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="invokeSrv">
<soap12:operation soapAction="http://www.imestech.com/wsEAI/invokeSrv" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="invokeSrv_ResolvedXML">
<soap12:operation soapAction="http://www.imestech.com/wsEAI/invokeSrv_ResolvedXML" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="callbackSrv">
<soap12:operation soapAction="http://www.imestech.com/wsEAI/callbackSrv" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="syncProd">
<soap12:operation soapAction="http://www.imestech.com/wsEAI/syncProd" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GeteSOPInfo_API">
<soap12:operation soapAction="http://www.imestech.com/wsEAI/GeteSOPInfo_API" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:service name="wsEAI">
<wsdl:port name="wsEAISoap" binding="tns:wsEAISoap">
<soap:address location="http://localhost/EAI/wsEAI.asmx" />
</wsdl:port>
<wsdl:port name="wsEAISoap12" binding="tns:wsEAISoap12">
<soap12:address location="http://localhost/EAI/wsEAI.asmx" />
</wsdl:port>
</wsdl:service>
</wsdl:definitions>

37
SRC/MESWin/BR/BR_L_CI_GEN/app.config Normal file
View File

@ -0,0 +1,37 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="BR_L_CI_GEN.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- 這個區段定義 My.Application.Log 的記錄組態-->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- 取消註解下列區段，以寫入應用程式事件記錄檔-->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
initializeData="FileLogWriter"/>
<!-- 取消註解下列區段，並將 APPLICATION_NAME 取代成您的應用程式名稱，以寫入至應用程式事件記錄檔-->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<applicationSettings>
<BR_L_CI_GEN.My.MySettings>
<setting name="BR_L_CI_GEN_localhost_wsEAI" serializeAs="String">
<value>http://localhost/EAI/wsEAI.asmx</value>
</setting>
</BR_L_CI_GEN.My.MySettings>
</applicationSettings>
</configuration>

6
SRC/MESWin/SYS1/ET_21674/frmTeacherDef.resx → SRC/MESWin/BR/BR_L_CI_GEN/frmBR_L_CI_GEN.resx
View File

@ -117,4 +117,10 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>28, 11</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>25</value>
</metadata>
</root>

6477
SRC/MESWin/BR/BR_L_CI_GEN/frmBR_L_CI_GEN.vb Normal file
View File

File diff suppressed because it is too large Load Diff

0
SRC/MESPlugin/MESPI_BusinessRule/iMES.snk → SRC/MESWin/BR/BR_L_CI_GEN/iMES.snk
View File

17
SRC/MESWin/SYS3/ET_TESTDATA21676/ET_Subcontractor.sln → SRC/MESWin/BR/BR_L_CO_GEN/BR_L_CO_GEN.sln
View File

@ -1,11 +1,14 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 14
VisualStudioVersion = 14.0.25123.0
VisualStudioVersion = 14.0.25420.1
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ET_Subcontractor", "ET_Subcontractor.vbproj", "{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}"
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BR_L_CO_GEN", "BR_L_CO_GEN.vbproj", "{380C6B38-FB64-49BE-A9A8-5E49015ADFD2}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Test", "..\..\Test\Test.vbproj", "{C4A48E3F-38E4-4E88-A47D-FA5510686E57}"
ProjectSection(ProjectDependencies) = postProject
{380C6B38-FB64-49BE-A9A8-5E49015ADFD2} = {380C6B38-FB64-49BE-A9A8-5E49015ADFD2}
EndProjectSection
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
@ -13,10 +16,10 @@ Global
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Debug|x86.ActiveCfg = Debug|x86
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Debug|x86.Build.0 = Debug|x86
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Release|x86.ActiveCfg = Release|x86
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Release|x86.Build.0 = Release|x86
{380C6B38-FB64-49BE-A9A8-5E49015ADFD2}.Debug|x86.ActiveCfg = Debug|x86
{380C6B38-FB64-49BE-A9A8-5E49015ADFD2}.Debug|x86.Build.0 = Debug|x86
{380C6B38-FB64-49BE-A9A8-5E49015ADFD2}.Release|x86.ActiveCfg = Release|x86
{380C6B38-FB64-49BE-A9A8-5E49015ADFD2}.Release|x86.Build.0 = Release|x86
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Debug|x86.ActiveCfg = Debug|x86
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Debug|x86.Build.0 = Debug|x86
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Release|x86.ActiveCfg = Release|x86
@ -29,11 +32,11 @@ Global
SccNumberOfProjects = 3
SccEnterpriseProvider = {4CA58AB2-18FA-4F8D-95D4-32DDF27D184C}
SccTeamFoundationServer = http://tfs.imestech.com:8080/tfs/messeries6
SccProjectUniqueName0 = ET_Subcontractor.vbproj
SccLocalPath0 = .
SccProjectUniqueName1 = ..\\..\\Test\\Test.vbproj
SccProjectName1 = ../../Test
SccLocalPath1 = ..\\..\\Test
SccProjectUniqueName2 = BR_L_CO_GEN.vbproj
SccLocalPath2 = .
EndGlobalSection
EndGlobal

92
SRC/MESWin/SYS6/21695韦海桑/frontend/ET_Subcontractor/ET_Subcontractor.vbproj → SRC/MESWin/BR/BR_L_CO_GEN/BR_L_CO_GEN.vbproj
View File

@ -4,10 +4,10 @@
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
<ProjectGuid>{380C6B38-FB64-49BE-A9A8-5E49015ADFD2}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>ET_Subcontractor_21695</RootNamespace>
<AssemblyName>ET_Subcontractor_21695</AssemblyName>
<RootNamespace>BR_L_CO_GEN</RootNamespace>
<AssemblyName>BR_L_CO_GEN</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
@ -17,6 +17,28 @@
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\..\MESClient\</OutputPath>
<DocumentationFile>BR_L_CO_GEN.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<WarningLevel>0</WarningLevel>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>BR_L_CO_GEN.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<WarningLevel>0</WarningLevel>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
@ -34,7 +56,7 @@
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\..\MESClient\</OutputPath>
<DocumentationFile>ET_Subcontractor_21695.xml</DocumentationFile>
<DocumentationFile>BR_L_CO_GEN.xml</DocumentationFile>
<WarningLevel>0</WarningLevel>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>full</DebugType>
@ -45,7 +67,7 @@
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\..\MESClient\</OutputPath>
<DocumentationFile>ET_Subcontractor_21695.xml</DocumentationFile>
<DocumentationFile>BR_L_CO_GEN.xml</DocumentationFile>
<Optimize>true</Optimize>
<WarningLevel>0</WarningLevel>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
@ -60,10 +82,12 @@
<PropertyGroup>
<AssemblyOriginatorKeyFile>iMES.snk</AssemblyOriginatorKeyFile>
</PropertyGroup>
<PropertyGroup>
<AutoGenerateBindingRedirects>false</AutoGenerateBindingRedirects>
</PropertyGroup>
<ItemGroup>
<Reference Include="iMESWizards, Version=6.0.0.0, Culture=neutral, PublicKeyToken=3ad2cfbf6a289680, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MES_C_DLL\iMESWizards.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="Infragistics4.Win.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.v19.1.dll</HintPath>
@ -89,10 +113,29 @@
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Shared.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="COM_ERP, Version=6.0.0.0, Culture=neutral, PublicKeyToken=3ad2cfbf6a289680, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MESClient\COM_ERP.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="COM_Kit">
<HintPath>..\..\..\MESClient\COM_Kit.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="COM_Search, Version=1.0.0.0, Culture=neutral, PublicKeyToken=3ad2cfbf6a289680, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MESClient\COM_Search.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="COM_Utility, Version=6.0.0.0, Culture=neutral, PublicKeyToken=3ad2cfbf6a289680, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MESClient\COM_Utility.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="iMESException">
<HintPath>..\..\..\MES_C_DLL\iMESException.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="iMESExceptionManager">
<HintPath>..\..\..\MES_C_DLL\iMESExceptionManager.dll</HintPath>
<Private>False</Private>
@ -104,14 +147,24 @@
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Drawing" />
<Reference Include="System.EnterpriseServices" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="WP_Kit, Version=1.0.0.0, Culture=neutral, PublicKeyToken=3ad2cfbf6a289680, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\MESClient\WP_Kit.dll</HintPath>
<Private>False</Private>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="COM_Kit.clsGlobalVariables" />
<Import Include="COM_Kit.clsKit" />
<Import Include="COM_Search" />
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
@ -124,25 +177,22 @@
<Import Include="System.Xml" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
<Import Include="WP_Kit.clsWIPKit" />
</ItemGroup>
<ItemGroup>
<Compile Include="..\..\shared file\modConstant.vb">
<Link>modConstant.vb</Link>
</Compile>
<Compile Include="frmSubcontractor.vb">
<Compile Include="frmBinStateAdjust .vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSubcontractorContDef.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSubcontractorDef.vb">
<Compile Include="frmBR_L_CO_GEN.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
@ -156,14 +206,11 @@
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmSubcontractor.resx">
<DependentUpon>frmSubcontractor.vb</DependentUpon>
<EmbeddedResource Include="frmBinStateAdjust .resx">
<DependentUpon>frmBinStateAdjust .vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSubcontractorContDef.resx">
<DependentUpon>frmSubcontractorContDef.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSubcontractorDef.resx">
<DependentUpon>frmSubcontractorDef.vb</DependentUpon>
<EmbeddedResource Include="frmBR_L_CO_GEN.resx">
<DependentUpon>frmBR_L_CO_GEN.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
@ -185,6 +232,9 @@
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<WCFMetadata Include="Service References\" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.

2
SRC/MESWin/SYS6/21695韦海桑/backend/wsSXS/wsSXS.csproj.user → SRC/MESWin/BR/BR_L_CO_GEN/BR_L_CO_GEN.vbproj.user
View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ReferencePath>E:\code\SRC\MES_S_DLL\</ReferencePath>
<ProjectView>ShowAllFiles</ProjectView>
</PropertyGroup>
</Project>

0
SRC/MESWin/SYS3/ET_Subcontractor_21676/ET_Subcontractor.vbproj.vspscc → SRC/MESWin/BR/BR_L_CO_GEN/BR_L_CO_GEN.vbproj.vspscc
View File

0
SRC/MESWin/SYS4/21670ll/MESWin/Test/My Project/Application.Designer.vb → SRC/MESWin/BR/BR_L_CO_GEN/My Project/Application.Designer.vb generated
View File

0
SRC/MESPlugin/MESPI_WIP/My Project/Application.myapp → SRC/MESWin/BR/BR_L_CO_GEN/My Project/Application.myapp
View File

2
SRC/MESWin/SYS2/ET_Subcontractor/My Project/AssemblyInfo.vb → SRC/MESWin/BR/BR_L_CO_GEN/My Project/AssemblyInfo.vb
View File

@ -8,7 +8,7 @@ Imports System.Runtime.InteropServices
' 檢閱組件屬性的值
<Assembly: AssemblyTitle("ET_Subcontractor")>
<Assembly: AssemblyTitle("BR_L_CO_GEN")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("iMES Technology Inc.")>
<Assembly: AssemblyProduct("MESSeries 6")>

1
SRC/MESWin/BR/BR_L_CO_GEN/My Project/BuildIncrementVersionInfo.vb Normal file
View File

@ -0,0 +1 @@
<Assembly: Reflection.AssemblyFileVersion("6.0.7.31231")>

3
SRC/MESWin/ENT/ET_Subcontractor/My Project/Resources.Designer.vb → SRC/MESWin/BR/BR_L_CO_GEN/My Project/Resources.Designer.vb generated
View File

@ -39,8 +39,7 @@ Namespace My.Resources
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ET_Subcontractor.Resources", GetType(Resources).Assembly)
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("BR_L_CO_GEN.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan

0
SRC/MESWin/SYS1/ET_21674/My Project/Resources.resx → SRC/MESWin/BR/BR_L_CO_GEN/My Project/Resources.resx
View File

4
SRC/MESWin/SYS4/21670ll/MESWin/Test/My Project/Settings.Designer.vb → SRC/MESWin/BR/BR_L_CO_GEN/My Project/Settings.Designer.vb generated
View File

@ -64,9 +64,9 @@ Namespace My
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.Test.My.MySettings
Friend ReadOnly Property Settings() As Global.BR_L_CO_GEN.My.MySettings
Get
Return Global.Test.My.MySettings.Default
Return Global.BR_L_CO_GEN.My.MySettings.Default
End Get
End Property
End Module

0
SRC/MESWin/SYS4/21670ll/MESWin/Test/My Project/Settings.settings → SRC/MESWin/BR/BR_L_CO_GEN/My Project/Settings.settings
View File

5
SRC/MESWin/BR/BR_L_CO_GEN/My Project/licenses.licx Normal file
View File

@ -0,0 +1,5 @@
Infragistics.Win.UltraWinEditors.UltraTextEditor, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraPanel, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraSplitter, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraButton, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraExpandableGroupBox, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb

0
SRC/MESWin/SYS1/ET_21674/frmSubcontractor.resx → SRC/MESWin/BR/BR_L_CO_GEN/frmBR_L_CO_GEN.resx
View File

6490
SRC/MESWin/BR/BR_L_CO_GEN/frmBR_L_CO_GEN.vb Normal file
View File

File diff suppressed because it is too large Load Diff

0
SRC/MESWin/SYS1/ET_21674/frmSubcontractorContDef.resx → SRC/MESWin/BR/BR_L_CO_GEN/frmBinStateAdjust .resx
View File

410
SRC/MESWin/BR/BR_L_CO_GEN/frmBinStateAdjust .vb Normal file
View File

@ -0,0 +1,410 @@
Imports iMESExceptionManager
Public Class frmBinStateAdjust
Inherits System.Windows.Forms.Form
'//Public Variables
Public LotNo As String = defString
Public dvSysBin As DataView
Public dtGoodBin As DataTable
Public dtBinNew As DataTable
Public PrivFunNo As String = defString
'//資料表相關變數
Dim drSel As DataRow()
Dim drAdd As DataRow
'//控制項物件
Dim lblBinNo() As Label
Dim txtOBin() As TextBox
' Dim txtBin_R() As TextBox '剩餘
Dim txtBin_S() As TextBox 'Split
'//其他共用變數
Dim aryRBin() As Long
Dim intCount As Integer
Dim i, j As Integer
Friend WithEvents lblOnlyAllowOrgBinSub As Label
#Region " Windows Form 設計工具產生的程式碼 "
Public Sub New()
MyBase.New()
'此呼叫為 Windows Form 設計工具的必要項。
InitializeComponent()
'在 InitializeComponent() 呼叫之後加入所有的初始設定
End Sub
'Form 覆寫 Dispose 以清除元件清單。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'為 Windows Form 設計工具的必要項
Private components As System.ComponentModel.IContainer
'注意: 以下為 Windows Form 設計工具所需的程序
'您可以使用 Windows Form 設計工具進行修改。
'請勿使用程式碼編輯器來修改這些程序。
Friend WithEvents pnlBin As System.Windows.Forms.Panel
Friend WithEvents LineFrame1 As iMESWizards.LineFrame
Friend WithEvents lblOrgBinState As System.Windows.Forms.Label
Friend WithEvents lblFinalBinState As System.Windows.Forms.Label
Friend WithEvents btnConfirm As Infragistics.Win.Misc.UltraButton
Friend WithEvents btnClose As Infragistics.Win.Misc.UltraButton
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.pnlBin = New System.Windows.Forms.Panel()
Me.lblFinalBinState = New System.Windows.Forms.Label()
Me.LineFrame1 = New iMESWizards.LineFrame()
Me.lblOrgBinState = New System.Windows.Forms.Label()
Me.btnConfirm = New Infragistics.Win.Misc.UltraButton()
Me.btnClose = New Infragistics.Win.Misc.UltraButton()
Me.lblOnlyAllowOrgBinSub = New System.Windows.Forms.Label()
Me.pnlBin.SuspendLayout()
Me.SuspendLayout()
'
'pnlBin
'
Me.pnlBin.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlBin.AutoScroll = True
Me.pnlBin.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.pnlBin.Controls.Add(Me.lblFinalBinState)
Me.pnlBin.Controls.Add(Me.LineFrame1)
Me.pnlBin.Controls.Add(Me.lblOrgBinState)
Me.pnlBin.Location = New System.Drawing.Point(16, 41)
Me.pnlBin.Name = "pnlBin"
Me.pnlBin.Size = New System.Drawing.Size(696, 128)
Me.pnlBin.TabIndex = 106
'
'lblFinalBinState
'
Me.lblFinalBinState.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFinalBinState.Location = New System.Drawing.Point(16, 53)
Me.lblFinalBinState.Name = "lblFinalBinState"
Me.lblFinalBinState.Size = New System.Drawing.Size(80, 15)
Me.lblFinalBinState.TabIndex = 79
Me.lblFinalBinState.Text = "FinalBinState"
Me.lblFinalBinState.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'LineFrame1
'
Me.LineFrame1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LineFrame1.Location = New System.Drawing.Point(0, 23)
Me.LineFrame1.Name = "LineFrame1"
Me.LineFrame1.Size = New System.Drawing.Size(692, 4)
Me.LineFrame1.TabIndex = 78
Me.LineFrame1.Text = "LineFrame1"
'
'lblOrgBinState
'
Me.lblOrgBinState.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblOrgBinState.Location = New System.Drawing.Point(16, 30)
Me.lblOrgBinState.Name = "lblOrgBinState"
Me.lblOrgBinState.Size = New System.Drawing.Size(80, 15)
Me.lblOrgBinState.TabIndex = 76
Me.lblOrgBinState.Text = "OrgBinState"
Me.lblOrgBinState.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'btnConfirm
'
Me.btnConfirm.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnConfirm.Location = New System.Drawing.Point(544, 186)
Me.btnConfirm.Name = "btnConfirm"
Me.btnConfirm.Size = New System.Drawing.Size(80, 32)
Me.btnConfirm.TabIndex = 114
Me.btnConfirm.Text = "Confirm"
'
'btnClose
'
Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnClose.Location = New System.Drawing.Point(632, 186)
Me.btnClose.Name = "btnClose"
Me.btnClose.Size = New System.Drawing.Size(80, 32)
Me.btnClose.TabIndex = 113
Me.btnClose.Text = "Close"
'
'lblOnlyAllowOrgBinSub
'
Me.lblOnlyAllowOrgBinSub.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblOnlyAllowOrgBinSub.ForeColor = System.Drawing.Color.Red
Me.lblOnlyAllowOrgBinSub.Location = New System.Drawing.Point(15, 9)
Me.lblOnlyAllowOrgBinSub.Name = "lblOnlyAllowOrgBinSub"
Me.lblOnlyAllowOrgBinSub.Size = New System.Drawing.Size(231, 29)
Me.lblOnlyAllowOrgBinSub.TabIndex = 115
Me.lblOnlyAllowOrgBinSub.Text = "OrgBin sub Qty only"
Me.lblOnlyAllowOrgBinSub.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'frmBinStateAdjust
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14)
Me.ClientSize = New System.Drawing.Size(728, 228)
Me.ControlBox = False
Me.Controls.Add(Me.lblOnlyAllowOrgBinSub)
Me.Controls.Add(Me.btnConfirm)
Me.Controls.Add(Me.btnClose)
Me.Controls.Add(Me.pnlBin)
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmBinStateAdjust"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "BinStateAdjust "
Me.pnlBin.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub frmLotSplit_BinAssign_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cursor.Current = Cursors.WaitCursor
If LotNo = defString Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%LotNo%]"), MsgBoxStyle.Exclamation, Me.Text)
Exit Sub
End If
If dtGoodBin Is Nothing Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "GoodBin state"), MsgBoxStyle.Exclamation, Me.Text)
Exit Sub
End If
Call funCreateBin()
Call ExeChangeResource(Me, gLanguageMode) '語系切換
lblOnlyAllowOrgBinSub.ForeColor = Color.Red
'群組權限控管
'ExeGroupControlPriv(Me, PrivFunNo)
Cursor.Current = Cursors.Default
End Sub
Private Sub frmLotSplit_BinAssign_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
If Not txtBin_S Is Nothing Then txtBin_S(0).Focus()
End Sub
'//Private Sub or Function-------------------------------------------------------------------------------------------------
Private Function funCreateBin()
If dvSysBin Is Nothing Then Exit Function
dvSysBin.Sort = "BinOrder, BinNo"
intCount = dvSysBin.Count
'重新宣告物件陣列
ReDim lblBinNo(intCount - 1)
ReDim txtOBin(intCount - 1)
'ReDim txtBin_R(intCount - 1)
ReDim txtBin_S(intCount - 1)
Dim fFont As New Font("Times New Roman", 9)
Dim x, y As Long
x = 0
y = 0
For i = 0 To intCount - 1
'BinNo
lblBinNo(i) = New Label
lblBinNo(i).Location = New System.Drawing.Point(104 + x, 6)
lblBinNo(i).Size = New System.Drawing.Size(40, 16)
lblBinNo(i).ForeColor = System.Drawing.Color.Blue
lblBinNo(i).Font = fFont
lblBinNo(i).Text = "Bin" & Mid(dvSysBin.Item(i)("BinNo"), 4)
lblBinNo(i).Tag = dvSysBin.Item(i)("BinNo") 'BinNo
lblBinNo(i).TextAlign = ContentAlignment.TopCenter
pnlBin.Controls.Add(lblBinNo(i))
'GoodBin
txtOBin(i) = New TextBox
txtOBin(i).Location = New System.Drawing.Point(104 + x, 28)
txtOBin(i).Size = New System.Drawing.Size(40, 21)
txtOBin(i).Text = 0
txtOBin(i).ReadOnly = True
txtOBin(i).TextAlign = HorizontalAlignment.Right
txtOBin(i).TabIndex = i
pnlBin.Controls.Add(txtOBin(i))
AddHandler txtOBin(i).KeyPress, AddressOf Me.txtValue_KeyPress
AddHandler txtOBin(i).Enter, AddressOf Me.txtValue_Enter
AddHandler txtOBin(i).TextChanged, AddressOf Me.txtValue_TextChanged
'剩餘Bin
'txtBin_R(i) = New TextBox
'txtBin_R(i).Location = New System.Drawing.Point(104 + x, 50)
'txtBin_R(i).Size = New System.Drawing.Size(40, 21)
'txtBin_R(i).Text = 0
'txtBin_R(i).ReadOnly = True
'txtBin_R(i).TextAlign = HorizontalAlignment.Right
'txtBin_R(i).TabIndex = i + intCount
'
'pnlBin.Controls.Add(txtBin_R(i))
'AddHandler txtBin_R(i).KeyPress, AddressOf Me.txtValue_KeyPress
'AddHandler txtBin_R(i).Enter, AddressOf Me.txtValue_Enter
'AddHandler txtBin_R(i).TextChanged, AddressOf Me.txtValue_TextChanged
'SplitBin
txtBin_S(i) = New TextBox
txtBin_S(i).Location = New System.Drawing.Point(104 + x, 53)
txtBin_S(i).Size = New System.Drawing.Size(40, 21)
txtBin_S(i).Text = 0
txtBin_S(i).TextAlign = HorizontalAlignment.Right
txtBin_S(i).TabIndex = i + (intCount * 2)
pnlBin.Controls.Add(txtBin_S(i))
AddHandler txtBin_S(i).KeyPress, AddressOf Me.txtValue_KeyPress
AddHandler txtBin_S(i).Enter, AddressOf Me.txtValue_Enter
AddHandler txtBin_S(i).TextChanged, AddressOf Me.txtValue_TextChanged
x = x + 42
Next
ReDim aryRBin(intCount - 1)
'將GoodBin資料放上
If dtGoodBin.Rows.Count > 0 Then
For i = 0 To intCount - 1
txtOBin(i).Text = dtGoodBin.Rows(0)(lblBinNo(i).Tag)
'txtBin_R(i).Text = txtOBin(i).Text
aryRBin(i) = txtOBin(i).Text
If (txtOBin(i).Text = "0") Then
txtBin_S(i).ReadOnly = True
End If
Next
End If
Dim bRE As Boolean = False
'顯示已Assign的BinValue
drSel = dtBinNew.Select("LotNo ='" & LotNo & "'")
If drSel.Length <> 0 Then
'SplitBin
For i = 0 To intCount - 1
If (txtBin_S(i).ReadOnly = True) Then
bRE = True
txtBin_S(i).ReadOnly = False
Else
bRE = False
End If
txtBin_S(i).Text = drSel(0)(lblBinNo(i).Tag)
If (bRE = True) Then txtBin_S(i).ReadOnly = True
Next
End If
'剩餘Bin
' For i = 0 To dtBinNew.Rows.Count - 1
' If dtBinNew.Rows(i)("LotNo") <> LotNo Then
' For j = 0 To intCount - 1
' If dtBinNew.Rows(i)(lblBinNo(j).Tag) <> 0 Then
' aryRBin(j) = aryRBin(j) - CLng(dtBinNew.Rows(i)(lblBinNo(j).Tag))
' End If
' Next
' End If
' Next
' For i = 0 To intCount - 1
' txtBin_R(i).Text = aryRBin(i)
' Next
End Function
Private Sub txtValue_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
sender.SelectAll()
End Sub
Private Sub txtValue_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtValue_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
'btnSave.Enabled = False
End Sub
Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
gReturnKeyValue = ""
Me.Close()
End Sub
Private Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
Cursor.Current = Cursors.WaitCursor
'Check
For i = 0 To intCount - 1
If Not IsNumeric(txtBin_S(i).Text) Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200011", lblBinNo(i).Text & " [%MUST BE NUMERIC%]"), MsgBoxStyle.Exclamation, Me.Text)
txtBin_S(i).Focus()
Exit Sub
End If
If (txtBin_S(i).ReadOnly = False) Then
If (CInt(txtBin_S(i).Text) < 0) Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200017", lblBinNo(i).Text), MsgBoxStyle.Exclamation, Me.Text)
txtBin_S(i).Focus()
Exit Sub
End If
End If
'輸入值不可大於剩餘Bin
If CLng(txtBin_S(i).Text) > CLng(txtOBin(i).Text) Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200060", "[%FinalBin%]:" & lblBinNo(i).Text & " must less than total numbers of OrgBin:" & lblBinNo(i).Text), MsgBoxStyle.Exclamation, Me.Text)
txtBin_S(i).Focus()
Exit Sub
End If
Next i
'加入SplitBin
drSel = dtBinNew.Select("LotNo = '" & LotNo & "'")
If drSel.Length = 0 Then 'Add
drAdd = dtBinNew.NewRow
drAdd("LotNo") = LotNo
For i = 0 To intCount - 1
drAdd(lblBinNo(i).Tag) = txtBin_S(i).Text
Next
dtBinNew.Rows.Add(drAdd)
Else 'Update
drSel(0).BeginEdit()
For i = 0 To intCount - 1
drSel(0)(lblBinNo(i).Tag) = txtBin_S(i).Text
Next
drSel(0).EndEdit()
End If
gReturnKeyValue = LotNo '做為判斷是否變更的Flag
Cursor.Current = Cursors.Default
Me.Close()
End Sub
End Class

0
SRC/MESWin/SYS1/ET_21674/iMES.snk → SRC/MESWin/BR/BR_L_CO_GEN/iMES.snk
View File

228
SRC/MESWin/ENT/ET_Subcontractor/ET_Subcontractor.vbproj
View File

@ -1,228 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
<OutputType>Library</OutputType>
<<<<<<< HEAD
<RootNamespace>ET_Subcontractor</RootNamespace>
<AssemblyName>ET_Subcontractor</AssemblyName>
=======
<<<<<<< HEAD
<RootNamespace>ET_Subcontractor_21671</RootNamespace>
<AssemblyName>ET_Subcontractor_21671</AssemblyName>
=======
<RootNamespace>ET_Subcontractor_21703</RootNamespace>
<AssemblyName>ET_Subcontractor_21703</AssemblyName>
>>>>>>> d89d49780d597d830e98f207bcaf042ea615b374
>>>>>>> 7a91e232e75dd451f6bd1a92477e646c49dca747
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.7.2</TargetFrameworkVersion>
<TargetFrameworkProfile />
<SccProjectName>SAK</SccProjectName>
<SccLocalPath>SAK</SccLocalPath>
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
<DebugSymbols>true</DebugSymbols>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\..\MESClient\</OutputPath>
<<<<<<< HEAD
<DocumentationFile>ET_Subcontractor.xml</DocumentationFile>
=======
<<<<<<< HEAD
<DocumentationFile>ET_Subcontractor_21671.xml</DocumentationFile>
=======
<DocumentationFile>ET_Subcontractor_21703.xml</DocumentationFile>
>>>>>>> d89d49780d597d830e98f207bcaf042ea615b374
>>>>>>> 7a91e232e75dd451f6bd1a92477e646c49dca747
<WarningLevel>0</WarningLevel>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>full</DebugType>
<PlatformTarget>x86</PlatformTarget>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\..\MESClient\</OutputPath>
<<<<<<< HEAD
<DocumentationFile>ET_Subcontractor.xml</DocumentationFile>
=======
<<<<<<< HEAD
<DocumentationFile>ET_Subcontractor_21671.xml</DocumentationFile>
=======
<DocumentationFile>ET_Subcontractor_21703.xml</DocumentationFile>
>>>>>>> d89d49780d597d830e98f207bcaf042ea615b374
>>>>>>> 7a91e232e75dd451f6bd1a92477e646c49dca747
<Optimize>true</Optimize>
<WarningLevel>0</WarningLevel>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>pdbonly</DebugType>
<PlatformTarget>x86</PlatformTarget>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<SignAssembly>true</SignAssembly>
</PropertyGroup>
<PropertyGroup>
<AssemblyOriginatorKeyFile>iMES.snk</AssemblyOriginatorKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="Infragistics4.Win.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="Infragistics4.Win.UltraWinGrid.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinGrid.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinEditors.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="Infragistics4.Win.Misc.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.Misc.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="Infragistics4.Shared.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Shared.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="COM_Kit">
<HintPath>..\..\..\MESClient\COM_Kit.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="iMESExceptionManager">
<HintPath>..\..\..\MES_C_DLL\iMESExceptionManager.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="iMESUltraGrid">
<HintPath>..\..\..\MES_C_DLL\iMESUltraGrid.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Import Include="COM_Kit.clsGlobalVariables" />
<Import Include="COM_Kit.clsKit" />
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Drawing" />
<Import Include="System.Linq" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Xml" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="..\..\shared file\modConstant.vb">
<Link>modConstant.vb</Link>
</Compile>
<Compile Include="frmDemo21706.Designer.vb">
<DependentUpon>frmDemo21706.vb</DependentUpon>
</Compile>
<Compile Include="frmDemo21706.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSubcontractor.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSubcontractorContDef.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSubcontractorDef.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmDemo21706.resx">
<DependentUpon>frmDemo21706.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSubcontractor.resx">
<DependentUpon>frmSubcontractor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSubcontractorContDef.resx">
<DependentUpon>frmSubcontractorContDef.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSubcontractorDef.resx">
<DependentUpon>frmSubcontractorDef.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="iMES.snk" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
<Import Project="..\..\shared file\MakeVersion.targets" Condition="exists('..\..\shared file\MakeVersion.targets')" />
</Project>

76
SRC/MESWin/ENT/ET_Subcontractor/My Project/Settings.Designer.vb generated
View File

@ -1,76 +0,0 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 這段程式碼是由工具產生的。
' 執行階段版本:4.0.30319.42000
'
' 對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
' 變更將會遺失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings 自動儲存功能"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.ET_Subcontractor.My.MySettings
Get
Return Global.ET_Subcontractor.My.MySettings.Default
End Get
End Property
End Module
End Namespace

1142
SRC/MESWin/ENT/ET_Subcontractor/frmSubcontractor.vb
View File

File diff suppressed because it is too large Load Diff

751
SRC/MESWin/ENT/ET_Subcontractor/frmSubcontractorContDef.vb
View File

@ -1,751 +0,0 @@
Imports iMESExceptionManager
Public Class frmSubcontractorContDef
Inherits COM_Kit.frmDefTemplat
'//Public Variables
Public EditDataRow As DataRow
Public DefMode As Integer = 0 '0. ADD, 1.Edit, 2. Copy
Public SubcontractorNo As String = defString
Public PrivFunNo As String = defString
'//Web Service相關變數
' 2016 YF, Dim wsENT As New wsENT.wsENT
Dim InXml As String
Dim OutXml As String
Dim strIdentity As String
Dim strParameter As String
Friend WithEvents UltraTextEditor1 As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents dll21671 As Label
Friend WithEvents lblAge As Label
Friend WithEvents txtAge As Infragistics.Win.UltraWinEditors.UltraTextEditor
Dim intDataStamp As Integer '紀錄DataStamp
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
Friend WithEvents lblAddress As System.Windows.Forms.Label
Friend WithEvents lblEMail As System.Windows.Forms.Label
Friend WithEvents lblTitle As System.Windows.Forms.Label
Friend WithEvents lblFaxNo As System.Windows.Forms.Label
Friend WithEvents lblTelNo As System.Windows.Forms.Label
Friend WithEvents lblDescription As System.Windows.Forms.Label
Friend WithEvents lblContactorName As System.Windows.Forms.Label
Friend WithEvents lblSubcontractorNo As System.Windows.Forms.Label
Friend WithEvents gbxSubcontractorContData As System.Windows.Forms.GroupBox
Friend WithEvents txtSubcontractorNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtContactorName As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtFaxNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtTelNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtEMail As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtTitle As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtAddress As Infragistics.Win.UltraWinEditors.UltraTextEditor
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
Me.gbxSubcontractorContData = New System.Windows.Forms.GroupBox()
Me.txtAddress = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtEMail = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtTitle = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtFaxNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.lblAddress = New System.Windows.Forms.Label()
Me.lblEMail = New System.Windows.Forms.Label()
Me.lblTitle = New System.Windows.Forms.Label()
Me.lblFaxNo = New System.Windows.Forms.Label()
Me.lblTelNo = New System.Windows.Forms.Label()
Me.txtDescription = New System.Windows.Forms.RichTextBox()
Me.lblDescription = New System.Windows.Forms.Label()
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
Me.lblContactorName = New System.Windows.Forms.Label()
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtContactorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.dll21671 = New System.Windows.Forms.Label()
Me.UltraTextEditor1 = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtAge = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
Me.gbxSubcontractorContData.SuspendLayout()
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFaxNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtContactorName, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.UltraTextEditor1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'gbxBasisData
'
Me.gbxBasisData.Location = New System.Drawing.Point(12, 322)
Me.gbxBasisData.Size = New System.Drawing.Size(472, 70)
'
'btnApply
'
Me.btnApply.Location = New System.Drawing.Point(396, 401)
'
'btnConfirm
'
Me.btnConfirm.Location = New System.Drawing.Point(208, 401)
'
'btnClose
'
Me.btnClose.Location = New System.Drawing.Point(302, 401)
'
'gbxSubcontractorContData
'
Me.gbxSubcontractorContData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbxSubcontractorContData.Controls.Add(Me.UltraTextEditor1)
Me.gbxSubcontractorContData.Controls.Add(Me.dll21671)
Me.gbxSubcontractorContData.Controls.Add(Me.txtAge)
Me.gbxSubcontractorContData.Controls.Add(Me.lblAge)
Me.gbxSubcontractorContData.Controls.Add(Me.txtAddress)
Me.gbxSubcontractorContData.Controls.Add(Me.txtEMail)
Me.gbxSubcontractorContData.Controls.Add(Me.txtTitle)
Me.gbxSubcontractorContData.Controls.Add(Me.txtFaxNo)
Me.gbxSubcontractorContData.Controls.Add(Me.lblAddress)
Me.gbxSubcontractorContData.Controls.Add(Me.lblEMail)
Me.gbxSubcontractorContData.Controls.Add(Me.lblTitle)
Me.gbxSubcontractorContData.Controls.Add(Me.lblFaxNo)
Me.gbxSubcontractorContData.Controls.Add(Me.lblTelNo)
Me.gbxSubcontractorContData.Controls.Add(Me.txtDescription)
Me.gbxSubcontractorContData.Controls.Add(Me.lblDescription)
Me.gbxSubcontractorContData.Controls.Add(Me.lblSubcontractorNo)
Me.gbxSubcontractorContData.Controls.Add(Me.lblContactorName)
Me.gbxSubcontractorContData.Controls.Add(Me.txtSubcontractorNo)
Me.gbxSubcontractorContData.Controls.Add(Me.txtContactorName)
Me.gbxSubcontractorContData.Controls.Add(Me.txtTelNo)
Me.gbxSubcontractorContData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.gbxSubcontractorContData.Location = New System.Drawing.Point(15, 8)
Me.gbxSubcontractorContData.Name = "gbxSubcontractorContData"
Me.gbxSubcontractorContData.Size = New System.Drawing.Size(469, 306)
Me.gbxSubcontractorContData.TabIndex = 0
Me.gbxSubcontractorContData.TabStop = False
Me.gbxSubcontractorContData.Text = "ENT Subcontractor Contactor Data"
'
'txtAddress
'
Me.txtAddress.Location = New System.Drawing.Point(116, 152)
Me.txtAddress.Name = "txtAddress"
Me.txtAddress.Size = New System.Drawing.Size(336, 26)
Me.txtAddress.TabIndex = 13
'
'txtEMail
'
Me.txtEMail.Location = New System.Drawing.Point(320, 120)
Me.txtEMail.Name = "txtEMail"
Me.txtEMail.Size = New System.Drawing.Size(136, 26)
Me.txtEMail.TabIndex = 11
'
'txtTitle
'
Me.txtTitle.Location = New System.Drawing.Point(120, 120)
Me.txtTitle.Name = "txtTitle"
Me.txtTitle.Size = New System.Drawing.Size(114, 26)
Me.txtTitle.TabIndex = 9
'
'txtFaxNo
'
Me.txtFaxNo.Location = New System.Drawing.Point(320, 88)
Me.txtFaxNo.Name = "txtFaxNo"
Me.txtFaxNo.Size = New System.Drawing.Size(136, 26)
Me.txtFaxNo.TabIndex = 7
'
'lblAddress
'
Me.lblAddress.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAddress.Location = New System.Drawing.Point(24, 154)
Me.lblAddress.Name = "lblAddress"
Me.lblAddress.Size = New System.Drawing.Size(86, 14)
Me.lblAddress.TabIndex = 12
Me.lblAddress.Text = "Address"
Me.lblAddress.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblEMail
'
Me.lblEMail.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblEMail.Location = New System.Drawing.Point(248, 123)
Me.lblEMail.Name = "lblEMail"
Me.lblEMail.Size = New System.Drawing.Size(64, 14)
Me.lblEMail.TabIndex = 10
Me.lblEMail.Text = "EMail"
Me.lblEMail.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblTitle
'
Me.lblTitle.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTitle.Location = New System.Drawing.Point(24, 121)
Me.lblTitle.Name = "lblTitle"
Me.lblTitle.Size = New System.Drawing.Size(86, 14)
Me.lblTitle.TabIndex = 8
Me.lblTitle.Text = "Title"
Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblFaxNo
'
Me.lblFaxNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFaxNo.Location = New System.Drawing.Point(248, 90)
Me.lblFaxNo.Name = "lblFaxNo"
Me.lblFaxNo.Size = New System.Drawing.Size(64, 14)
Me.lblFaxNo.TabIndex = 6
Me.lblFaxNo.Text = "FaxNo"
Me.lblFaxNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblTelNo
'
Me.lblTelNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTelNo.Location = New System.Drawing.Point(24, 90)
Me.lblTelNo.Name = "lblTelNo"
Me.lblTelNo.Size = New System.Drawing.Size(86, 14)
Me.lblTelNo.TabIndex = 4
Me.lblTelNo.Text = "TelNo"
Me.lblTelNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtDescription
'
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDescription.Location = New System.Drawing.Point(116, 190)
Me.txtDescription.Name = "txtDescription"
Me.txtDescription.Size = New System.Drawing.Size(336, 108)
Me.txtDescription.Size = New System.Drawing.Size(316, 36)
Me.txtDescription.Size = New System.Drawing.Size(336, 21)
Me.txtDescription.TabIndex = 15
Me.txtDescription.Text = ""
'
'lblDescription
'
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDescription.Location = New System.Drawing.Point(24, 186)
Me.lblDescription.Name = "lblDescription"
Me.lblDescription.Size = New System.Drawing.Size(86, 14)
Me.lblDescription.TabIndex = 14
Me.lblDescription.Text = "Description"
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblSubcontractorNo
'
Me.lblSubcontractorNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSubcontractorNo.Location = New System.Drawing.Point(14, 29)
Me.lblSubcontractorNo.Name = "lblSubcontractorNo"
Me.lblSubcontractorNo.Size = New System.Drawing.Size(96, 14)
Me.lblSubcontractorNo.TabIndex = 0
Me.lblSubcontractorNo.Text = "Subcontractor No"
Me.lblSubcontractorNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblContactorName
'
Me.lblContactorName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblContactorName.Location = New System.Drawing.Point(24, 59)
Me.lblContactorName.Name = "lblContactorName"
Me.lblContactorName.Size = New System.Drawing.Size(86, 14)
Me.lblContactorName.TabIndex = 2
Me.lblContactorName.Text = "Contactor Name"
Me.lblContactorName.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtSubcontractorNo
'
Me.txtSubcontractorNo.Location = New System.Drawing.Point(120, 24)
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
Me.txtSubcontractorNo.ReadOnly = True
Me.txtSubcontractorNo.Size = New System.Drawing.Size(114, 26)
Me.txtSubcontractorNo.TabIndex = 1
Me.txtSubcontractorNo.TabStop = False
'
'txtContactorName
'
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtContactorName.Appearance = Appearance1
Me.txtContactorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtContactorName.Location = New System.Drawing.Point(120, 56)
Me.txtContactorName.Name = "txtContactorName"
Me.txtContactorName.Size = New System.Drawing.Size(160, 26)
Me.txtContactorName.TabIndex = 3
'
'txtTelNo
'
Me.txtTelNo.Location = New System.Drawing.Point(120, 88)
Me.txtTelNo.Name = "txtTelNo"
Me.txtTelNo.Size = New System.Drawing.Size(114, 26)
Me.txtTelNo.TabIndex = 5
'
'dll21671
'
Me.dll21671.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dll21671.Location = New System.Drawing.Point(14, 236)
Me.dll21671.Name = "dll21671"
Me.dll21671.Size = New System.Drawing.Size(86, 14)
Me.dll21671.TabIndex = 16
Me.dll21671.Text = "AGE"
Me.dll21671.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'UltraTextEditor1
'
Me.UltraTextEditor1.Location = New System.Drawing.Point(116, 232)
Me.UltraTextEditor1.Name = "UltraTextEditor1"
Me.UltraTextEditor1.Size = New System.Drawing.Size(114, 26)
Me.UltraTextEditor1.TabIndex = 17
'txtAge
'
Me.txtAge.Location = New System.Drawing.Point(120, 222)
Me.txtAge.Name = "txtAge"
Me.txtAge.Size = New System.Drawing.Size(336, 22)
Me.txtAge.TabIndex = 17
'
'frmSubcontractorContDef
'
Me.ClientSize = New System.Drawing.Size(496, 446)
Me.Controls.Add(Me.gbxSubcontractorContData)
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "frmSubcontractorContDef"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "ENT Subcontractor Contactor Define"
Me.Controls.SetChildIndex(Me.btnClose, 0)
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
Me.Controls.SetChildIndex(Me.btnApply, 0)
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
Me.Controls.SetChildIndex(Me.gbxSubcontractorContData, 0)
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
Me.gbxSubcontractorContData.ResumeLayout(False)
Me.gbxSubcontractorContData.PerformLayout()
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFaxNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtContactorName, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.UltraTextEditor1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAge, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub frmSubcontractorContDef_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cursor.Current = Cursors.WaitCursor
Select Case DefMode
Case 0
Me.Text = Me.Text & "(ADD)"
Case 1
Me.Text = Me.Text & "(EDIT)"
Case 2
Me.Text = Me.Text & "(Copy)"
Case Else
Me.Text = Me.Text & "(Unknown)"
End Select
'做為MainForm判斷是否重新LoadData的依據()
gReturnKeyValue = ""
' 2016 YF, wsENT.Url = LocalizeWebService(wsENT.Url.ToString)
' 2016 YF, wsENT.EnableDecompression = True
If DefMode = 0 Or DefMode = 2 Then
SetCreateDate(Now)
SetCreator(gUserNo)
End If
If Not EditDataRow Is Nothing Then '修改 or Copy
txtSubcontractorNo.Text = EditDataRow.Item("SubcontractorNo").ToString
txtContactorName.Text = EditDataRow.Item("ContactorName").ToString
txtTelNo.Text = EditDataRow.Item("TelNo").ToString
txtFaxNo.Text = EditDataRow.Item("FaxNo").ToString
txtTitle.Text = EditDataRow.Item("Title").ToString
txtAddress.Text = EditDataRow.Item("Address").ToString
txtEMail.Text = EditDataRow.Item("EMail").ToString
dll21671.Text = EditDataRow.Item("AGE").ToString
txtAge.Text = EditDataRow.Item("Age").ToString
'txtDescription是RichTextBox(Control, 因為TextBox無法正常顯示多行換行的資料)
txtDescription.Text = EditDataRow.Item("Description").ToString
If DefMode = 1 Then
If (Not IsDBNull(EditDataRow("Creator"))) Then
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
SetCreator(EditDataRow.Item("Creator").ToString)
End If
End If
End If
If DefMode = 0 Then 'Add
txtSubcontractorNo.Text = SubcontractorNo
SetCreateDate(Now)
SetCreator(gUserNo)
ElseIf DefMode = 1 Then 'Edit
txtContactorName.ReadOnly = True
SetReviseDate(Now)
SetReviser(gUserNo)
intDataStamp = EditDataRow.Item("DataStamp")
End If
btnApplyEnabled = False
'語系切換
Call ExeChangeResource(Me, gLanguageMode)
ExeGroupControlPriv(Me, PrivFunNo)
Cursor.Current = Cursors.Default
End Sub
Private Sub frmSubcontractorContDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
If DefMode = 0 Or DefMode = 2 Then
txtContactorName.Focus()
Else
txtTelNo.Focus()
End If
End Sub
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Cursor.Current = Cursors.WaitCursor
If funAddorEdit(sender) < 0 Then Exit Sub
Me.Close()
Cursor.Current = Cursors.Default
End Sub
Protected Overrides Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Protected Overrides Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Cursor.Current = Cursors.WaitCursor
If funAddorEdit(sender) < 0 Then Exit Sub
If DefMode = 0 Or DefMode = 2 Then
txtContactorName.Focus()
Else
txtTelNo.Focus()
End If
txtEMail.Text = ""
btnApplyEnabled = False
Cursor.Current = Cursors.Default
End Sub
#Region "Control KeyPress"
Private Sub txtSubcontractorNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Click
txtSubcontractorNo.SelectAll()
End Sub
Private Sub txtSubcontractorNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Enter
txtSubcontractorNo.SelectAll()
End Sub
Private Sub txtSubcontractorNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorNo.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtSubcontractorNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtContactorName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Click
txtContactorName.SelectAll()
End Sub
Private Sub txtContactorName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Enter
txtContactorName.SelectAll()
End Sub
Private Sub txtContactorName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtContactorName.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtContactorName_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Leave
If txtContactorName.Text <> "" And txtEMail.Text = "" Then
txtEMail.Text = txtContactorName.Text & "@"
End If
txtContactorName.Text = UCase(txtContactorName.Text)
End Sub
Private Sub txtContactorName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtTelNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.Click
txtTelNo.SelectAll()
End Sub
Private Sub txtTelNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.Enter
txtTelNo.SelectAll()
End Sub
Private Sub txtTelNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTelNo.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtTelNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtFaxNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFaxNo.Click
txtFaxNo.SelectAll()
End Sub
Private Sub txtFaxNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFaxNo.Enter
txtFaxNo.SelectAll()
End Sub
Private Sub txtFaxNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtFaxNo.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtFaxNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFaxNo.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtTitle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTitle.Click
txtTitle.SelectAll()
End Sub
Private Sub txtTitle_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTitle.Enter
txtTitle.SelectAll()
End Sub
Private Sub txtTitle_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTitle.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtTitle_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTitle.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtEMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.Click
txtEMail.SelectAll()
End Sub
Private Sub txtEMail_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.Enter
txtEMail.SelectAll()
End Sub
Private Sub txtEMail_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtEMail.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtEMail_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtAddress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.Click
txtAddress.SelectAll()
End Sub
Private Sub txtAddress_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.Enter
txtAddress.SelectAll()
End Sub
Private Sub txtAddress_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAddress.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtAddress_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtDescription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Click
txtDescription.SelectAll()
End Sub
Private Sub txtDescription_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter
txtDescription.SelectAll()
End Sub
Private Sub txtDescription_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtDescription.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
btnApplyEnabled = True
End Sub
#End Region
#Region "Others"
Private Function funAddorEdit(sender As Object) As Integer
funAddorEdit = -1
'******************************************************************************
'1.基本檢查()
'******************************************************************************
If txtSubcontractorNo.Text = "" Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorNo%]"), MsgBoxStyle.Exclamation, Me.Text)
txtSubcontractorNo.Focus()
Exit Function
End If
If txtContactorName.Text = "" Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%ContactorName%]"), MsgBoxStyle.Exclamation, Me.Text)
txtContactorName.Focus()
Exit Function
End If
'******************************************************************************
'2.寫回資料庫()
'******************************************************************************
Dim XmlDoc As New XmlDocument
Try
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
strParameter = strParameter & CombineXMLParameter("contactorname", "ContactorName", "String", CInput(txtContactorName.Text), "")
strParameter = strParameter & CombineXMLParameter("telno", "TelNo", "String", txtTelNo.Text, "")
strParameter = strParameter & CombineXMLParameter("faxno", "FaxNo", "String", txtFaxNo.Text, "")
strParameter = strParameter & CombineXMLParameter("title", "Title", "String", CInput(txtTitle.Text), "")
strParameter = strParameter & CombineXMLParameter("address", "Address", "String", CInput(txtAddress.Text), "")
strParameter = strParameter & CombineXMLParameter("email", "EMail", "String", CInput(txtEMail.Text), "")
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
strParameter = strParameter & CombineXMLParameter("AGE", "AGE", "String", CInput(dll21671.Text), "")
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
strParameter += CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
InXml = CombineXMLRequest(strIdentity, strParameter)
' 2016 YF, OutXml = wsENT.AddSubcontractorCont(InXml)
OutXml = InvokeSrv("SXS.wsENT.AddSubcontractorCont", InXml)
Else 'Edit
' 增加Datastamp
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
InXml = CombineXMLRequest(strIdentity, strParameter)
' 2016 YF, OutXml = wsENT.EditSubcontractorCont(InXml)
OutXml = InvokeSrv("SXS.wsENT.EditSubcontractorCont", InXml)
End If
XmlDoc.LoadXml(OutXml)
If ChkExecutionSuccess(XmlDoc) Then
gReturnKeyValue = txtContactorName.Text
funAddorEdit = 0
If sender.Equals(btnApply) Then
intDataStamp += 1
End If
Else
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
End If
Catch ex As Exception
'MsgBox("Unexpected Error. Add or Edit ENT Subcontractor Contactor Failed!," & e1.Message, MsgBoxStyle.Exclamation)
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
End Try
XmlDoc = Nothing
End Function
#End Region
Private Sub frmSubcontractorContDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
End Sub
Private Sub UltraTextEditor1_ValueChanged(sender As Object, e As EventArgs) Handles UltraTextEditor1.ValueChanged
End Sub
Private Sub DD_Click(sender As Object, e As EventArgs) Handles dll21671.Click
End Sub
End Class

476
SRC/MESWin/ENT/ET_Subcontractor/frmSubcontractorDef.vb
View File

@ -1,476 +0,0 @@
Imports iMESExceptionManager
Public Class frmSubcontractorDef
Inherits COM_Kit.frmDefTemplat
'//Public Variables
Public EditDataRow As DataRow
Public DefMode As Integer = 0 '0. ADD, 1.Edit, 2. Copy
Public PrivFunNo As String = defString
'//Web Service相關變數
' 2016 YF, Dim wsENT As New wsENT.wsENT
Dim InXml As String
Dim OutXml As String
Dim strIdentity As String
Dim strParameter As String
Friend WithEvents RichTextBox1 As RichTextBox
Friend WithEvents dll21671_01 As Label
Friend WithEvents txtAge As RichTextBox
Friend WithEvents lblAge As Label
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
Friend WithEvents lblDescription As System.Windows.Forms.Label
Friend WithEvents lblSubcontractorNo As System.Windows.Forms.Label
Friend WithEvents lblSubcontractorName As System.Windows.Forms.Label
Friend WithEvents gbxSubcontractorData As System.Windows.Forms.GroupBox
Friend WithEvents txtSubcontractorNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtSubcontractorName As Infragistics.Win.UltraWinEditors.UltraTextEditor
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
Me.gbxSubcontractorData = New System.Windows.Forms.GroupBox()
Me.txtDescription = New System.Windows.Forms.RichTextBox()
Me.lblDescription = New System.Windows.Forms.Label()
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
Me.lblSubcontractorName = New System.Windows.Forms.Label()
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtSubcontractorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.dll21671_01 = New System.Windows.Forms.Label()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
Me.gbxSubcontractorData.SuspendLayout()
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSubcontractorName, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'gbxBasisData
'
Me.gbxBasisData.Location = New System.Drawing.Point(12, 185)
Me.gbxBasisData.Size = New System.Drawing.Size(479, 70)
'
'btnApply
'
Me.btnApply.Location = New System.Drawing.Point(403, 264)
'
'btnConfirm
'
Me.btnConfirm.Location = New System.Drawing.Point(215, 264)
'
'btnClose
'
Me.btnClose.Location = New System.Drawing.Point(309, 264)
'
'gbxSubcontractorData
'
Me.gbxSubcontractorData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbxSubcontractorData.Controls.Add(Me.RichTextBox1)
Me.gbxSubcontractorData.Controls.Add(Me.dll21671_01)
Me.gbxSubcontractorData.Controls.Add(Me.txtAge)
Me.gbxSubcontractorData.Controls.Add(Me.lblAge)
Me.gbxSubcontractorData.Controls.Add(Me.txtDescription)
Me.gbxSubcontractorData.Controls.Add(Me.lblDescription)
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorNo)
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorName)
Me.gbxSubcontractorData.Controls.Add(Me.txtSubcontractorNo)
Me.gbxSubcontractorData.Controls.Add(Me.txtSubcontractorName)
Me.gbxSubcontractorData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.gbxSubcontractorData.Location = New System.Drawing.Point(12, 8)
Me.gbxSubcontractorData.Name = "gbxSubcontractorData"
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 169)
Me.gbxSubcontractorData.TabIndex = 7
Me.gbxSubcontractorData.TabStop = False
Me.gbxSubcontractorData.Text = "Subcontractor Data"
'
'txtDescription
'
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDescription.Location = New System.Drawing.Point(128, 86)
Me.txtDescription.Name = "txtDescription"
Me.txtDescription.Size = New System.Drawing.Size(316, 33)
Me.txtDescription.Size = New System.Drawing.Size(334, 24)
Me.txtDescription.TabIndex = 2
Me.txtDescription.Text = ""
'
'lblDescription
'
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDescription.Location = New System.Drawing.Point(56, 88)
Me.lblDescription.Name = "lblDescription"
Me.lblDescription.Size = New System.Drawing.Size(64, 14)
Me.lblDescription.TabIndex = 13
Me.lblDescription.Text = "Description"
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblSubcontractorNo
'
Me.lblSubcontractorNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSubcontractorNo.Location = New System.Drawing.Point(24, 24)
Me.lblSubcontractorNo.Name = "lblSubcontractorNo"
Me.lblSubcontractorNo.Size = New System.Drawing.Size(96, 32)
Me.lblSubcontractorNo.TabIndex = 5
Me.lblSubcontractorNo.Text = "Subcontractor No"
Me.lblSubcontractorNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblSubcontractorName
'
Me.lblSubcontractorName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSubcontractorName.Location = New System.Drawing.Point(8, 56)
Me.lblSubcontractorName.Name = "lblSubcontractorName"
Me.lblSubcontractorName.Size = New System.Drawing.Size(112, 32)
Me.lblSubcontractorName.TabIndex = 9
Me.lblSubcontractorName.Text = "Subcontractor Name"
Me.lblSubcontractorName.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtSubcontractorNo
'
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtSubcontractorNo.Appearance = Appearance1
Me.txtSubcontractorNo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtSubcontractorNo.Location = New System.Drawing.Point(128, 24)
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
Me.txtSubcontractorNo.Size = New System.Drawing.Size(152, 26)
Me.txtSubcontractorNo.TabIndex = 0
'
'txtSubcontractorName
'
Appearance2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtSubcontractorName.Appearance = Appearance2
Me.txtSubcontractorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtSubcontractorName.Location = New System.Drawing.Point(128, 55)
Me.txtSubcontractorName.Name = "txtSubcontractorName"
Me.txtSubcontractorName.Size = New System.Drawing.Size(334, 26)
Me.txtSubcontractorName.TabIndex = 1
'
'dll21671_01
'
Me.dll21671_01.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dll21671_01.Location = New System.Drawing.Point(56, 128)
Me.dll21671_01.Name = "dll21671_01"
Me.dll21671_01.Size = New System.Drawing.Size(64, 14)
Me.dll21671_01.TabIndex = 14
Me.dll21671_01.Text = "AGE"
Me.dll21671_01.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'RichTextBox1
'
Me.RichTextBox1.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RichTextBox1.Location = New System.Drawing.Point(128, 125)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(120, 33)
Me.RichTextBox1.TabIndex = 15
Me.RichTextBox1.Text = ""
'
'frmSubcontractorDef
'
Me.ClientSize = New System.Drawing.Size(503, 309)
Me.Controls.Add(Me.gbxSubcontractorData)
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "frmSubcontractorDef"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "ENT Subcontractor Define"
Me.Controls.SetChildIndex(Me.btnClose, 0)
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
Me.Controls.SetChildIndex(Me.btnApply, 0)
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
Me.Controls.SetChildIndex(Me.gbxSubcontractorData, 0)
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
Me.gbxSubcontractorData.ResumeLayout(False)
Me.gbxSubcontractorData.PerformLayout()
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSubcontractorName, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub frmSubcontractorDef_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cursor.Current = Cursors.WaitCursor
Select Case DefMode
Case 0
Me.Text = Me.Text & "(ADD)"
Case 1
Me.Text = Me.Text & "(EDIT)"
Case 2
Me.Text = Me.Text & "(Copy)"
Case Else
Me.Text = Me.Text & "(Unknown)"
End Select
'做為MainForm判斷是否重新LoadData的依據
gReturnKeyValue = ""
' 2016 YF, wsENT.Url = LocalizeWebService(wsENT.Url.ToString)
' 2016 YF, wsENT.EnableDecompression = True
If Not EditDataRow Is Nothing Then
txtSubcontractorNo.Text = EditDataRow.Item("SubcontractorNo").ToString
txtSubcontractorName.Text = EditDataRow.Item("SubcontractorName").ToString
'txtDescription是RichTextBox Control,因為TextBox無法正常顯示多行換行的資料
txtDescription.Text = EditDataRow.Item("Description").ToString
dll21671_01.Text = EditDataRow.Item("AGE").ToString
txtAge.Text = EditDataRow.Item("Age").ToString
End If
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
SetCreator(gUserNo)
SetCreateDate(Now)
ElseIf DefMode = 1 Then 'Edit
txtSubcontractorNo.ReadOnly = True
SetCreator(EditDataRow.Item("Creator").ToString)
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
SetReviser(gUserNo)
SetReviseDate(Now)
intDataStamp = EditDataRow.Item("DataStamp")
End If
btnApplyEnabled = False
'語系切換
Call ExeChangeResource(Me, gLanguageMode)
ExeGroupControlPriv(Me, PrivFunNo)
Cursor.Current = Cursors.Default
End Sub
Private Sub frmSubcontractorDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
If DefMode = 0 Or DefMode = 2 Then
txtSubcontractorNo.Focus()
Else
txtSubcontractorName.Focus()
End If
End Sub
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Cursor.Current = Cursors.WaitCursor
If funAddorEdit(sender) < 0 Then Exit Sub
Me.Close()
Cursor.Current = Cursors.Default
End Sub
Protected Overrides Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Protected Overrides Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Cursor.Current = Cursors.WaitCursor
If funAddorEdit(sender) < 0 Then Exit Sub
If DefMode = 0 Or DefMode = 2 Then
txtSubcontractorNo.Focus()
Else
txtSubcontractorName.Focus()
End If
Cursor.Current = Cursors.Default
btnApplyEnabled = False
End Sub
Private Sub frmSubcontractorDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
End Sub
#Region "Control KeyPress"
Private Sub txtSubcontractorNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Click
txtSubcontractorNo.SelectAll()
End Sub
Private Sub txtSubcontractorNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Enter
txtSubcontractorNo.SelectAll()
End Sub
Private Sub txtSubcontractorNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorNo.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtSubcontractorNo_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Leave
txtSubcontractorNo.Text = UCase(txtSubcontractorNo.Text)
End Sub
Private Sub txtSubcontractorNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtSubcontractorName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorName.Click
txtSubcontractorName.SelectAll()
End Sub
Private Sub txtSubcontractorName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorName.Enter
txtSubcontractorName.SelectAll()
End Sub
Private Sub txtSubcontractorName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorName.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtSubcontractorName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorName.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtDescription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Click
txtDescription.SelectAll()
End Sub
Private Sub txtDescription_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter
txtDescription.SelectAll()
End Sub
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
btnApplyEnabled = True
End Sub
#End Region
#Region "Others"
Private Function funAddorEdit(sender As Object) As Integer
funAddorEdit = -1
'******************************************************************************
'1.基本檢查
'******************************************************************************
If txtSubcontractorNo.Text = "" Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorNo%]"), MsgBoxStyle.Exclamation, Me.Text)
txtSubcontractorNo.Focus()
Exit Function
End If
If txtSubcontractorName.Text = "" Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorName%]"), MsgBoxStyle.Exclamation, Me.Text)
txtSubcontractorName.Focus()
Exit Function
End If
'2.
'******************************************************************************
'寫回資料庫
'******************************************************************************
Dim XmlDoc As New XmlDocument
Try
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
strParameter = strParameter & CombineXMLParameter("subcontractorname", "SubcontractorName", "String", CInput(txtSubcontractorName.Text), "")
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
strParameter = strParameter & CombineXMLParameter("AGE", "AGE", "String", dll21671_01.Text, "")
strParameter = strParameter & CombineXMLParameter("age", "Age", "String", txtAge.Text, "")
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
strParameter = strParameter & CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
strParameter = strParameter & CombineXMLParameter("createdate", "CreateDate", "DateTime", Format(Now, "yyyy/MM/dd HH:mm:ss"), "")
InXml = CombineXMLRequest(strIdentity, strParameter)
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
OutXml = InvokeSrv("wsENT.AddSubcontractor", InXml)
Else
'修改
strParameter = strParameter & CombineXMLParameter("issuestate", "IssueState", "String", EditDataRow.Item("IssueState").ToString, "")
' 增加Datastamp
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
InXml = CombineXMLRequest(strIdentity, strParameter)
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
OutXml = InvokeSrv("wsENT.EditSubcontractor", InXml)
End If
XmlDoc.LoadXml(OutXml)
If ChkExecutionSuccess(XmlDoc) Then
gReturnKeyValue = txtSubcontractorNo.Text
funAddorEdit = 0
If sender.Equals(btnApply) Then
intDataStamp += 1
End If
Else
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
End If
Catch ex As Exception
'MsgBox("Unexpected Error. Add or Edit ENT Subcontractor Failed!," & e1.Message, MsgBoxStyle.Exclamation)
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
End Try
XmlDoc = Nothing
End Function
#End Region
End Class

207
SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj
View File

@ -1,207 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
<OutputType>Library</OutputType>
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/ET_Subcontractor.vbproj
<RootNamespace>ET_Subcontractor_21691</RootNamespace>
<AssemblyName>ET_Subcontractor_21691</AssemblyName>
========
<RootNamespace>ET_Teacher_M</RootNamespace>
<AssemblyName>ET_Teacher_M</AssemblyName>
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
<TargetFrameworkProfile />
<SccProjectName>SAK</SccProjectName>
<SccLocalPath>SAK</SccLocalPath>
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
<DebugSymbols>true</DebugSymbols>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\..\MESClient\</OutputPath>
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/ET_Subcontractor.vbproj
<DocumentationFile>ET_Subcontractor_21691.xml</DocumentationFile>
========
<DocumentationFile>ET_Teacher_M.xml</DocumentationFile>
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj
<WarningLevel>0</WarningLevel>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>full</DebugType>
<PlatformTarget>x86</PlatformTarget>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\..\MESClient\</OutputPath>
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/ET_Subcontractor.vbproj
<DocumentationFile>ET_Subcontractor_21691.xml</DocumentationFile>
========
<DocumentationFile>ET_Teacher_M.xml</DocumentationFile>
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj
<Optimize>true</Optimize>
<WarningLevel>0</WarningLevel>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>pdbonly</DebugType>
<PlatformTarget>x86</PlatformTarget>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<SignAssembly>true</SignAssembly>
</PropertyGroup>
<PropertyGroup>
<AssemblyOriginatorKeyFile>iMES.snk</AssemblyOriginatorKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="Infragistics4.Win.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="Infragistics4.Win.UltraWinGrid.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinGrid.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinEditors.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="Infragistics4.Win.Misc.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.Misc.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="Infragistics4.Shared.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Shared.v19.1.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="COM_Kit">
<HintPath>..\..\..\MESClient\COM_Kit.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="iMESExceptionManager">
<HintPath>..\..\..\MES_C_DLL\iMESExceptionManager.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="iMESUltraGrid">
<HintPath>..\..\..\MES_C_DLL\iMESUltraGrid.dll</HintPath>
<Private>False</Private>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Import Include="COM_Kit.clsGlobalVariables" />
<Import Include="COM_Kit.clsKit" />
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Drawing" />
<Import Include="System.Linq" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Xml" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="..\..\shared file\modConstant.vb">
<Link>modConstant.vb</Link>
</Compile>
<Compile Include="frmSubcontractor.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmTeacherContDef.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmTeacherDef.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmSubcontractor.resx">
<DependentUpon>frmSubcontractor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTeacherContDef.resx">
<DependentUpon>frmTeacherContDef.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTeacherDef.resx">
<DependentUpon>frmTeacherDef.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="iMES.snk" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
<Import Project="..\..\shared file\MakeVersion.targets" Condition="exists('..\..\shared file\MakeVersion.targets')" />
</Project>

6
SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj.user
View File

@ -1,6 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ReferencePath>D:\Program Files\work\IIS\607.4\MESsc\SClientSource\</ReferencePath>
</PropertyGroup>
</Project>

13
SRC/MESWin/SYS1/ET_21674/My Project/Application.Designer.vb generated
View File

@ -1,13 +0,0 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 此代码由工具生成。
' 运行时版本:4.0.30319.42000
'
' 对此文件的更改可能会导致不正确的行为，并且如果
' 重新生成代码，这些更改将会丢失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

35
SRC/MESWin/SYS1/ET_21674/My Project/AssemblyInfo.vb
View File

@ -1,35 +0,0 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' 組件的一般資訊是由下列的屬性集控制。
' 變更這些屬性的值即可修改組件的相關
' 資訊。
' 檢閱組件屬性的值
<Assembly: AssemblyTitle("ET_Subcontractor")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("iMES Technology Inc.")>
<Assembly: AssemblyProduct("MESSeries 6")>
<Assembly: AssemblyCopyright("Copyright © iMES Technology Inc.")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
<Assembly: Guid("cb602012-a17f-433f-b777-ace6a6a676c1")>
' 組件的版本資訊由下列四個值所組成:
'
' 主要版本
' 次要版本
' 組建編號
' 修訂編號
'
' 您可以指定所有的值，也可以依照以下的方式，使用 '*' 將組建和修訂編號
' 指定為預設值:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("6.0.0.0")>

1
SRC/MESWin/SYS1/ET_21674/My Project/BuildIncrementVersionInfo.vb
View File

@ -1 +0,0 @@
<Assembly: Reflection.AssemblyFileVersion("6.0.5.40117")>

67
SRC/MESWin/SYS1/ET_21674/My Project/Resources.Designer.vb generated
View File

@ -1,67 +0,0 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 此代码由工具生成。
' 运行时版本:4.0.30319.42000
'
' 对此文件的更改可能会导致不正确的行为，并且如果
' 重新生成代码，这些更改将会丢失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'此类是由 StronglyTypedResourceBuilder
'类通过类似于 ResGen 或 Visual Studio 的工具自动生成的。
'若要添加或移除成员，请编辑 .ResX 文件，然后重新运行 ResGen
'(以 /str 作为命令选项)，或重新生成 VS 项目。
'''<summary>
''' 一个强类型的资源类，用于查找本地化的字符串等。
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' 返回此类使用的缓存的 ResourceManager 实例。
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/My Project/Resources.Designer.vb
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ET_Subcontractor_21691.Resources", GetType(Resources).Assembly)
========
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ET_Teacher_M.Resources", GetType(Resources).Assembly)
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/My Project/Resources.Designer.vb
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' 重写当前线程的 CurrentUICulture 属性，对
''' 使用此强类型资源类的所有资源查找执行重写。
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace

79
SRC/MESWin/SYS1/ET_21674/My Project/Settings.Designer.vb generated
View File

@ -1,79 +0,0 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 此代码由工具生成。
' 运行时版本:4.0.30319.42000
'
' 对此文件的更改可能会导致不正确的行为，并且如果
' 重新生成代码，这些更改将会丢失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings 自动保存功能"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/My Project/Settings.Designer.vb
Friend ReadOnly Property Settings() As Global.ET_Subcontractor_21691.My.MySettings
Get
Return Global.ET_Subcontractor_21691.My.MySettings.Default
========
Friend ReadOnly Property Settings() As Global.ET_Teacher_M.My.MySettings
Get
Return Global.ET_Teacher_M.My.MySettings.Default
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/My Project/Settings.Designer.vb
End Get
End Property
End Module
End Namespace

7
SRC/MESWin/SYS1/ET_21674/My Project/Settings.settings
View File

@ -1,7 +0,0 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

7
SRC/MESWin/SYS1/ET_21674/My Project/licenses.licx
View File

@ -1,7 +0,0 @@
Infragistics.Win.Misc.UltraButton, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.UltraWinEditors.UltraRadioButton, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.UltraWinEditors.UltraComboEditor, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraGroupBox, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.UltraWinEditors.UltraTextEditor, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraLabel, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
Infragistics.Win.Misc.UltraPanel, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb

1133
SRC/MESWin/SYS1/ET_21674/frmSubcontractor.vb
View File

File diff suppressed because it is too large Load Diff

656
SRC/MESWin/SYS1/ET_21674/frmSubcontractorContDef.vb
View File

@ -1,656 +0,0 @@
Imports iMESExceptionManager
Public Class frmSubcontractorContDef
Inherits COM_Kit.frmDefTemplat
'//Public Variables
Public EditDataRow As DataRow
Public DefMode As Integer = 0 '0. ADD, 1.Edit, 2. Copy
Public SubcontractorNo As String = defString
Public PrivFunNo As String = defString
'//Web Service相關變數
' 2016 YF, Dim wsENT As New wsENT.wsENT
Dim InXml As String
Dim OutXml As String
Dim strIdentity As String
Dim strParameter As String
Dim intDataStamp As Integer '紀錄DataStamp
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
Friend WithEvents lblAddress As System.Windows.Forms.Label
Friend WithEvents lblEMail As System.Windows.Forms.Label
Friend WithEvents lblTitle As System.Windows.Forms.Label
Friend WithEvents lblFaxNo As System.Windows.Forms.Label
Friend WithEvents lblTelNo As System.Windows.Forms.Label
Friend WithEvents lblDescription As System.Windows.Forms.Label
Friend WithEvents lblContactorName As System.Windows.Forms.Label
Friend WithEvents lblSubcontractorNo As System.Windows.Forms.Label
Friend WithEvents gbxSubcontractorContData As System.Windows.Forms.GroupBox
Friend WithEvents txtSubcontractorNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtContactorName As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtFaxNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtTelNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtEMail As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtTitle As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtAddress As Infragistics.Win.UltraWinEditors.UltraTextEditor
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
Me.gbxSubcontractorContData = New System.Windows.Forms.GroupBox()
Me.txtAddress = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtEMail = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtTitle = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtFaxNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.lblAddress = New System.Windows.Forms.Label()
Me.lblEMail = New System.Windows.Forms.Label()
Me.lblTitle = New System.Windows.Forms.Label()
Me.lblFaxNo = New System.Windows.Forms.Label()
Me.lblTelNo = New System.Windows.Forms.Label()
Me.txtDescription = New System.Windows.Forms.RichTextBox()
Me.lblDescription = New System.Windows.Forms.Label()
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
Me.lblContactorName = New System.Windows.Forms.Label()
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtContactorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
Me.gbxSubcontractorContData.SuspendLayout()
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFaxNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtContactorName, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'gbxBasisData
'
Me.gbxBasisData.Location = New System.Drawing.Point(12, 322)
Me.gbxBasisData.Size = New System.Drawing.Size(472, 70)
'
'btnApply
'
Me.btnApply.Location = New System.Drawing.Point(396, 401)
'
'btnConfirm
'
Me.btnConfirm.Location = New System.Drawing.Point(208, 401)
'
'btnClose
'
Me.btnClose.Location = New System.Drawing.Point(302, 401)
'
'gbxSubcontractorContData
'
Me.gbxSubcontractorContData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbxSubcontractorContData.Controls.Add(Me.txtAddress)
Me.gbxSubcontractorContData.Controls.Add(Me.txtEMail)
Me.gbxSubcontractorContData.Controls.Add(Me.txtTitle)
Me.gbxSubcontractorContData.Controls.Add(Me.txtFaxNo)
Me.gbxSubcontractorContData.Controls.Add(Me.lblAddress)
Me.gbxSubcontractorContData.Controls.Add(Me.lblEMail)
Me.gbxSubcontractorContData.Controls.Add(Me.lblTitle)
Me.gbxSubcontractorContData.Controls.Add(Me.lblFaxNo)
Me.gbxSubcontractorContData.Controls.Add(Me.lblTelNo)
Me.gbxSubcontractorContData.Controls.Add(Me.txtDescription)
Me.gbxSubcontractorContData.Controls.Add(Me.lblDescription)
Me.gbxSubcontractorContData.Controls.Add(Me.lblSubcontractorNo)
Me.gbxSubcontractorContData.Controls.Add(Me.lblContactorName)
Me.gbxSubcontractorContData.Controls.Add(Me.txtSubcontractorNo)
Me.gbxSubcontractorContData.Controls.Add(Me.txtContactorName)
Me.gbxSubcontractorContData.Controls.Add(Me.txtTelNo)
Me.gbxSubcontractorContData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.gbxSubcontractorContData.Location = New System.Drawing.Point(15, 8)
Me.gbxSubcontractorContData.Name = "gbxSubcontractorContData"
Me.gbxSubcontractorContData.Size = New System.Drawing.Size(469, 306)
Me.gbxSubcontractorContData.TabIndex = 0
Me.gbxSubcontractorContData.TabStop = False
Me.gbxSubcontractorContData.Text = "ENT Subcontractor Contactor Data"
'
'txtAddress
'
Me.txtAddress.Location = New System.Drawing.Point(120, 152)
Me.txtAddress.Name = "txtAddress"
Me.txtAddress.Size = New System.Drawing.Size(336, 22)
Me.txtAddress.TabIndex = 13
'
'txtEMail
'
Me.txtEMail.Location = New System.Drawing.Point(320, 120)
Me.txtEMail.Name = "txtEMail"
Me.txtEMail.Size = New System.Drawing.Size(136, 22)
Me.txtEMail.TabIndex = 11
'
'txtTitle
'
Me.txtTitle.Location = New System.Drawing.Point(120, 120)
Me.txtTitle.Name = "txtTitle"
Me.txtTitle.Size = New System.Drawing.Size(114, 22)
Me.txtTitle.TabIndex = 9
'
'txtFaxNo
'
Me.txtFaxNo.Location = New System.Drawing.Point(320, 88)
Me.txtFaxNo.Name = "txtFaxNo"
Me.txtFaxNo.Size = New System.Drawing.Size(136, 22)
Me.txtFaxNo.TabIndex = 7
'
'lblAddress
'
Me.lblAddress.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAddress.Location = New System.Drawing.Point(24, 154)
Me.lblAddress.Name = "lblAddress"
Me.lblAddress.Size = New System.Drawing.Size(86, 14)
Me.lblAddress.TabIndex = 12
Me.lblAddress.Text = "Address"
Me.lblAddress.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblEMail
'
Me.lblEMail.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblEMail.Location = New System.Drawing.Point(248, 123)
Me.lblEMail.Name = "lblEMail"
Me.lblEMail.Size = New System.Drawing.Size(64, 14)
Me.lblEMail.TabIndex = 10
Me.lblEMail.Text = "EMail"
Me.lblEMail.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblTitle
'
Me.lblTitle.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTitle.Location = New System.Drawing.Point(24, 121)
Me.lblTitle.Name = "lblTitle"
Me.lblTitle.Size = New System.Drawing.Size(86, 14)
Me.lblTitle.TabIndex = 8
Me.lblTitle.Text = "Title"
Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblFaxNo
'
Me.lblFaxNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFaxNo.Location = New System.Drawing.Point(248, 90)
Me.lblFaxNo.Name = "lblFaxNo"
Me.lblFaxNo.Size = New System.Drawing.Size(64, 14)
Me.lblFaxNo.TabIndex = 6
Me.lblFaxNo.Text = "FaxNo"
Me.lblFaxNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblTelNo
'
Me.lblTelNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTelNo.Location = New System.Drawing.Point(24, 90)
Me.lblTelNo.Name = "lblTelNo"
Me.lblTelNo.Size = New System.Drawing.Size(86, 14)
Me.lblTelNo.TabIndex = 4
Me.lblTelNo.Text = "TelNo"
Me.lblTelNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtDescription
'
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDescription.Location = New System.Drawing.Point(120, 184)
Me.txtDescription.Name = "txtDescription"
Me.txtDescription.Size = New System.Drawing.Size(336, 108)
Me.txtDescription.TabIndex = 15
Me.txtDescription.Text = ""
'
'lblDescription
'
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDescription.Location = New System.Drawing.Point(24, 186)
Me.lblDescription.Name = "lblDescription"
Me.lblDescription.Size = New System.Drawing.Size(86, 14)
Me.lblDescription.TabIndex = 14
Me.lblDescription.Text = "Description"
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblSubcontractorNo
'
Me.lblSubcontractorNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSubcontractorNo.Location = New System.Drawing.Point(14, 29)
Me.lblSubcontractorNo.Name = "lblSubcontractorNo"
Me.lblSubcontractorNo.Size = New System.Drawing.Size(96, 14)
Me.lblSubcontractorNo.TabIndex = 0
Me.lblSubcontractorNo.Text = "Subcontractor No"
Me.lblSubcontractorNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblContactorName
'
Me.lblContactorName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblContactorName.Location = New System.Drawing.Point(24, 59)
Me.lblContactorName.Name = "lblContactorName"
Me.lblContactorName.Size = New System.Drawing.Size(86, 14)
Me.lblContactorName.TabIndex = 2
Me.lblContactorName.Text = "Contactor Name"
Me.lblContactorName.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtSubcontractorNo
'
Me.txtSubcontractorNo.Location = New System.Drawing.Point(120, 24)
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
Me.txtSubcontractorNo.ReadOnly = True
Me.txtSubcontractorNo.Size = New System.Drawing.Size(114, 22)
Me.txtSubcontractorNo.TabIndex = 1
Me.txtSubcontractorNo.TabStop = False
'
'txtContactorName
'
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtContactorName.Appearance = Appearance1
Me.txtContactorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtContactorName.Location = New System.Drawing.Point(120, 56)
Me.txtContactorName.Name = "txtContactorName"
Me.txtContactorName.Size = New System.Drawing.Size(160, 22)
Me.txtContactorName.TabIndex = 3
'
'txtTelNo
'
Me.txtTelNo.Location = New System.Drawing.Point(120, 88)
Me.txtTelNo.Name = "txtTelNo"
Me.txtTelNo.Size = New System.Drawing.Size(114, 22)
Me.txtTelNo.TabIndex = 5
'
'frmSubcontractorContDef
'
Me.ClientSize = New System.Drawing.Size(496, 446)
Me.Controls.Add(Me.gbxSubcontractorContData)
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "frmSubcontractorContDef"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "ENT Subcontractor Contactor Define"
Me.Controls.SetChildIndex(Me.btnClose, 0)
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
Me.Controls.SetChildIndex(Me.btnApply, 0)
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
Me.Controls.SetChildIndex(Me.gbxSubcontractorContData, 0)
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
Me.gbxSubcontractorContData.ResumeLayout(False)
Me.gbxSubcontractorContData.PerformLayout()
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFaxNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtContactorName, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub frmSubcontractorContDef_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cursor.Current = Cursors.WaitCursor
Select Case DefMode
Case 0
Me.Text = Me.Text & "(ADD)"
Case 1
Me.Text = Me.Text & "(EDIT)"
Case 2
Me.Text = Me.Text & "(Copy)"
Case Else
Me.Text = Me.Text & "(Unknown)"
End Select
'做為MainForm判斷是否重新LoadData的依據()
gReturnKeyValue = ""
' 2016 YF, wsENT.Url = LocalizeWebService(wsENT.Url.ToString)
' 2016 YF, wsENT.EnableDecompression = True
If DefMode = 0 Or DefMode = 2 Then
SetCreateDate(Now)
SetCreator(gUserNo)
End If
If Not EditDataRow Is Nothing Then '修改 or Copy
txtSubcontractorNo.Text = EditDataRow.Item("SubcontractorNo").ToString
txtContactorName.Text = EditDataRow.Item("ContactorName").ToString
txtTelNo.Text = EditDataRow.Item("TelNo").ToString
txtFaxNo.Text = EditDataRow.Item("FaxNo").ToString
txtTitle.Text = EditDataRow.Item("Title").ToString
txtAddress.Text = EditDataRow.Item("Address").ToString
txtEMail.Text = EditDataRow.Item("EMail").ToString
'txtDescription是RichTextBox(Control, 因為TextBox無法正常顯示多行換行的資料)
txtDescription.Text = EditDataRow.Item("Description").ToString
If DefMode = 1 Then
If (Not IsDBNull(EditDataRow("Creator"))) Then
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
SetCreator(EditDataRow.Item("Creator").ToString)
End If
End If
End If
If DefMode = 0 Then 'Add
txtSubcontractorNo.Text = SubcontractorNo
SetCreateDate(Now)
SetCreator(gUserNo)
ElseIf DefMode = 1 Then 'Edit
txtContactorName.ReadOnly = True
SetReviseDate(Now)
SetReviser(gUserNo)
intDataStamp = EditDataRow.Item("DataStamp")
End If
btnApplyEnabled = False
'語系切換
Call ExeChangeResource(Me, gLanguageMode)
ExeGroupControlPriv(Me, PrivFunNo)
Cursor.Current = Cursors.Default
End Sub
Private Sub frmSubcontractorContDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
If DefMode = 0 Or DefMode = 2 Then
txtContactorName.Focus()
Else
txtTelNo.Focus()
End If
End Sub
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Cursor.Current = Cursors.WaitCursor
If funAddorEdit(sender) < 0 Then Exit Sub
Me.Close()
Cursor.Current = Cursors.Default
End Sub
Protected Overrides Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Protected Overrides Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Cursor.Current = Cursors.WaitCursor
If funAddorEdit(sender) < 0 Then Exit Sub
If DefMode = 0 Or DefMode = 2 Then
txtContactorName.Focus()
Else
txtTelNo.Focus()
End If
txtEMail.Text = ""
btnApplyEnabled = False
Cursor.Current = Cursors.Default
End Sub
#Region "Control KeyPress"
Private Sub txtSubcontractorNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Click
txtSubcontractorNo.SelectAll()
End Sub
Private Sub txtSubcontractorNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Enter
txtSubcontractorNo.SelectAll()
End Sub
Private Sub txtSubcontractorNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorNo.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtSubcontractorNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtContactorName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Click
txtContactorName.SelectAll()
End Sub
Private Sub txtContactorName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Enter
txtContactorName.SelectAll()
End Sub
Private Sub txtContactorName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtContactorName.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtContactorName_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Leave
If txtContactorName.Text <> "" And txtEMail.Text = "" Then
txtEMail.Text = txtContactorName.Text & "@"
End If
txtContactorName.Text = UCase(txtContactorName.Text)
End Sub
Private Sub txtContactorName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtTelNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.Click
txtTelNo.SelectAll()
End Sub
Private Sub txtTelNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.Enter
txtTelNo.SelectAll()
End Sub
Private Sub txtTelNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTelNo.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtTelNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtFaxNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFaxNo.Click
txtFaxNo.SelectAll()
End Sub
Private Sub txtFaxNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFaxNo.Enter
txtFaxNo.SelectAll()
End Sub
Private Sub txtFaxNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtFaxNo.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtFaxNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFaxNo.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtTitle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTitle.Click
txtTitle.SelectAll()
End Sub
Private Sub txtTitle_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTitle.Enter
txtTitle.SelectAll()
End Sub
Private Sub txtTitle_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTitle.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtTitle_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTitle.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtEMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.Click
txtEMail.SelectAll()
End Sub
Private Sub txtEMail_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.Enter
txtEMail.SelectAll()
End Sub
Private Sub txtEMail_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtEMail.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtEMail_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtAddress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.Click
txtAddress.SelectAll()
End Sub
Private Sub txtAddress_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.Enter
txtAddress.SelectAll()
End Sub
Private Sub txtAddress_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAddress.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtAddress_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtDescription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Click
txtDescription.SelectAll()
End Sub
Private Sub txtDescription_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter
txtDescription.SelectAll()
End Sub
Private Sub txtDescription_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtDescription.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
btnApplyEnabled = True
End Sub
#End Region
#Region "Others"
Private Function funAddorEdit(sender As Object) As Integer
funAddorEdit = -1
'******************************************************************************
'1.基本檢查()
'******************************************************************************
If txtSubcontractorNo.Text = "" Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorNo%]"), MsgBoxStyle.Exclamation, Me.Text)
txtSubcontractorNo.Focus()
Exit Function
End If
If txtContactorName.Text = "" Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%ContactorName%]"), MsgBoxStyle.Exclamation, Me.Text)
txtContactorName.Focus()
Exit Function
End If
'******************************************************************************
'2.寫回資料庫()
'******************************************************************************
Dim XmlDoc As New XmlDocument
Try
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
strParameter = strParameter & CombineXMLParameter("contactorname", "ContactorName", "String", CInput(txtContactorName.Text), "")
strParameter = strParameter & CombineXMLParameter("telno", "TelNo", "String", txtTelNo.Text, "")
strParameter = strParameter & CombineXMLParameter("faxno", "FaxNo", "String", txtFaxNo.Text, "")
strParameter = strParameter & CombineXMLParameter("title", "Title", "String", CInput(txtTitle.Text), "")
strParameter = strParameter & CombineXMLParameter("address", "Address", "String", CInput(txtAddress.Text), "")
strParameter = strParameter & CombineXMLParameter("email", "EMail", "String", CInput(txtEMail.Text), "")
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
strParameter += CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
InXml = CombineXMLRequest(strIdentity, strParameter)
' 2016 YF, OutXml = wsENT.AddSubcontractorCont(InXml)
OutXml = InvokeSrv("SXS.wsENT.AddSubcontractorCont", InXml)
Else 'Edit
' 增加Datastamp
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
InXml = CombineXMLRequest(strIdentity, strParameter)
' 2016 YF, OutXml = wsENT.EditSubcontractorCont(InXml)
OutXml = InvokeSrv("SXS.wsENT.EditSubcontractorCont", InXml)
End If
XmlDoc.LoadXml(OutXml)
If ChkExecutionSuccess(XmlDoc) Then
gReturnKeyValue = txtContactorName.Text
funAddorEdit = 0
If sender.Equals(btnApply) Then
intDataStamp += 1
End If
Else
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
End If
Catch ex As Exception
'MsgBox("Unexpected Error. Add or Edit ENT Subcontractor Contactor Failed!," & e1.Message, MsgBoxStyle.Exclamation)
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
End Try
XmlDoc = Nothing
End Function
#End Region
Private Sub frmSubcontractorContDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
End Sub
End Class

120
SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.resx
View File

@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

526
SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
View File

@ -1,526 +0,0 @@
Imports iMESExceptionManager
Public Class frmSubcontractorDef
Inherits COM_Kit.frmDefTemplat
'//Public Variables
Public EditDataRow As DataRow
Public DefMode As Integer = 0 '0. ADD, 1.Edit, 2. Copy
Public PrivFunNo As String = defString
'//Web Service相關變數
' 2016 YF, Dim wsENT As New wsENT.wsENT
Dim InXml As String
Dim OutXml As String
Dim strIdentity As String
Dim strParameter As String
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
Friend WithEvents lblTelNo As Label
Friend WithEvents txtTelNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents lblEMail As Label
Friend WithEvents txtEMail As Infragistics.Win.UltraWinEditors.UltraTextEditor
========
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
Dim intDataStamp As Integer '紀錄DataStamp
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
Friend WithEvents lblDescription As System.Windows.Forms.Label
Friend WithEvents lblSubcontractorNo As System.Windows.Forms.Label
Friend WithEvents lblSubcontractorName As System.Windows.Forms.Label
Friend WithEvents gbxSubcontractorData As System.Windows.Forms.GroupBox
Friend WithEvents txtSubcontractorNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtSubcontractorName As Infragistics.Win.UltraWinEditors.UltraTextEditor
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
Me.gbxSubcontractorData = New System.Windows.Forms.GroupBox()
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
Me.txtEMail = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.lblEMail = New System.Windows.Forms.Label()
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.lblTelNo = New System.Windows.Forms.Label()
========
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
Me.txtDescription = New System.Windows.Forms.RichTextBox()
Me.lblDescription = New System.Windows.Forms.Label()
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
Me.lblSubcontractorName = New System.Windows.Forms.Label()
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtSubcontractorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
Me.gbxSubcontractorData.SuspendLayout()
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSubcontractorName, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'gbxBasisData
'
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
Me.gbxBasisData.Location = New System.Drawing.Point(12, 211)
========
Me.gbxBasisData.Location = New System.Drawing.Point(12, 185)
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
Me.gbxBasisData.Size = New System.Drawing.Size(479, 70)
'
'btnApply
'
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
Me.btnApply.Location = New System.Drawing.Point(403, 290)
'
'btnConfirm
'
Me.btnConfirm.Location = New System.Drawing.Point(215, 290)
'
'btnClose
'
Me.btnClose.Location = New System.Drawing.Point(309, 290)
========
Me.btnApply.Location = New System.Drawing.Point(403, 264)
'
'btnConfirm
'
Me.btnConfirm.Location = New System.Drawing.Point(215, 264)
'
'btnClose
'
Me.btnClose.Location = New System.Drawing.Point(309, 264)
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
'
'gbxSubcontractorData
'
Me.gbxSubcontractorData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
Me.gbxSubcontractorData.Controls.Add(Me.txtEMail)
Me.gbxSubcontractorData.Controls.Add(Me.lblEMail)
Me.gbxSubcontractorData.Controls.Add(Me.txtTelNo)
Me.gbxSubcontractorData.Controls.Add(Me.lblTelNo)
========
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
Me.gbxSubcontractorData.Controls.Add(Me.txtDescription)
Me.gbxSubcontractorData.Controls.Add(Me.lblDescription)
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorNo)
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorName)
Me.gbxSubcontractorData.Controls.Add(Me.txtSubcontractorNo)
Me.gbxSubcontractorData.Controls.Add(Me.txtSubcontractorName)
Me.gbxSubcontractorData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.gbxSubcontractorData.Location = New System.Drawing.Point(12, 8)
Me.gbxSubcontractorData.Name = "gbxSubcontractorData"
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 195)
========
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 169)
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
Me.gbxSubcontractorData.TabIndex = 7
Me.gbxSubcontractorData.TabStop = False
Me.gbxSubcontractorData.Text = "Subcontractor Data"
'
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
'txtEMail
'
Me.txtEMail.Location = New System.Drawing.Point(326, 83)
Me.txtEMail.Name = "txtEMail"
Me.txtEMail.Size = New System.Drawing.Size(136, 22)
Me.txtEMail.TabIndex = 17
'
'lblEMail
'
Me.lblEMail.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblEMail.Location = New System.Drawing.Point(256, 83)
Me.lblEMail.Name = "lblEMail"
Me.lblEMail.Size = New System.Drawing.Size(64, 14)
Me.lblEMail.TabIndex = 16
Me.lblEMail.Text = "EMail"
Me.lblEMail.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtTelNo
'
Me.txtTelNo.Location = New System.Drawing.Point(128, 83)
Me.txtTelNo.Name = "txtTelNo"
Me.txtTelNo.Size = New System.Drawing.Size(114, 22)
Me.txtTelNo.TabIndex = 15
'
'lblTelNo
'
Me.lblTelNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTelNo.Location = New System.Drawing.Point(34, 83)
Me.lblTelNo.Name = "lblTelNo"
Me.lblTelNo.Size = New System.Drawing.Size(86, 14)
Me.lblTelNo.TabIndex = 14
Me.lblTelNo.Text = "TelNo"
Me.lblTelNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
========
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
'txtDescription
'
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDescription.Location = New System.Drawing.Point(128, 111)
Me.txtDescription.Name = "txtDescription"
Me.txtDescription.Size = New System.Drawing.Size(334, 67)
Me.txtDescription.TabIndex = 2
Me.txtDescription.Text = ""
'
'lblDescription
'
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDescription.Location = New System.Drawing.Point(58, 114)
Me.lblDescription.Name = "lblDescription"
Me.lblDescription.Size = New System.Drawing.Size(64, 14)
Me.lblDescription.TabIndex = 13
Me.lblDescription.Text = "Description"
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblSubcontractorNo
'
Me.lblSubcontractorNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSubcontractorNo.Location = New System.Drawing.Point(24, 24)
Me.lblSubcontractorNo.Name = "lblSubcontractorNo"
Me.lblSubcontractorNo.Size = New System.Drawing.Size(96, 32)
Me.lblSubcontractorNo.TabIndex = 5
Me.lblSubcontractorNo.Text = "Subcontractor No"
Me.lblSubcontractorNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblSubcontractorName
'
Me.lblSubcontractorName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSubcontractorName.Location = New System.Drawing.Point(8, 56)
Me.lblSubcontractorName.Name = "lblSubcontractorName"
Me.lblSubcontractorName.Size = New System.Drawing.Size(112, 32)
Me.lblSubcontractorName.TabIndex = 9
Me.lblSubcontractorName.Text = "Subcontractor Name"
Me.lblSubcontractorName.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtSubcontractorNo
'
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtSubcontractorNo.Appearance = Appearance1
Me.txtSubcontractorNo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtSubcontractorNo.Location = New System.Drawing.Point(128, 24)
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
Me.txtSubcontractorNo.Size = New System.Drawing.Size(152, 22)
Me.txtSubcontractorNo.TabIndex = 0
'
'txtSubcontractorName
'
Appearance2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtSubcontractorName.Appearance = Appearance2
Me.txtSubcontractorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtSubcontractorName.Location = New System.Drawing.Point(128, 55)
Me.txtSubcontractorName.Name = "txtSubcontractorName"
Me.txtSubcontractorName.Size = New System.Drawing.Size(334, 22)
Me.txtSubcontractorName.TabIndex = 1
'
'frmSubcontractorDef
'
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
Me.ClientSize = New System.Drawing.Size(503, 335)
========
Me.ClientSize = New System.Drawing.Size(503, 309)
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
Me.Controls.Add(Me.gbxSubcontractorData)
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "frmSubcontractorDef"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "ENT Subcontractor Define"
Me.Controls.SetChildIndex(Me.btnClose, 0)
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
Me.Controls.SetChildIndex(Me.btnApply, 0)
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
Me.Controls.SetChildIndex(Me.gbxSubcontractorData, 0)
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
Me.gbxSubcontractorData.ResumeLayout(False)
Me.gbxSubcontractorData.PerformLayout()
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSubcontractorName, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub frmSubcontractorDef_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cursor.Current = Cursors.WaitCursor
Select Case DefMode
Case 0
Me.Text = Me.Text & "(ADD)"
Case 1
Me.Text = Me.Text & "(EDIT)"
Case 2
Me.Text = Me.Text & "(Copy)"
Case Else
Me.Text = Me.Text & "(Unknown)"
End Select
'做為MainForm判斷是否重新LoadData的依據
gReturnKeyValue = ""
' 2016 YF, wsENT.Url = LocalizeWebService(wsENT.Url.ToString)
' 2016 YF, wsENT.EnableDecompression = True
If Not EditDataRow Is Nothing Then
txtSubcontractorNo.Text = EditDataRow.Item("SubcontractorNo").ToString
txtSubcontractorName.Text = EditDataRow.Item("SubcontractorName").ToString
'txtDescription是RichTextBox Control,因為TextBox無法正常顯示多行換行的資料
txtTelNo.Text = EditDataRow.Item("TelNo").ToString
txtEMail.Text = EditDataRow.Item("EMail").ToString
txtDescription.Text = EditDataRow.Item("Description").ToString
End If
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
SetCreator(gUserNo)
SetCreateDate(Now)
ElseIf DefMode = 1 Then 'Edit
txtSubcontractorNo.ReadOnly = True
SetCreator(EditDataRow.Item("Creator").ToString)
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
SetReviser(gUserNo)
SetReviseDate(Now)
intDataStamp = EditDataRow.Item("DataStamp")
End If
btnApplyEnabled = False
'語系切換
Call ExeChangeResource(Me, gLanguageMode)
ExeGroupControlPriv(Me, PrivFunNo)
Cursor.Current = Cursors.Default
End Sub
Private Sub frmSubcontractorDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
If DefMode = 0 Or DefMode = 2 Then
txtSubcontractorNo.Focus()
Else
txtSubcontractorName.Focus()
End If
End Sub
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Cursor.Current = Cursors.WaitCursor
If funAddorEdit(sender) < 0 Then Exit Sub
Me.Close()
Cursor.Current = Cursors.Default
End Sub
Protected Overrides Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Protected Overrides Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Cursor.Current = Cursors.WaitCursor
If funAddorEdit(sender) < 0 Then Exit Sub
If DefMode = 0 Or DefMode = 2 Then
txtSubcontractorNo.Focus()
Else
txtSubcontractorName.Focus()
End If
Cursor.Current = Cursors.Default
btnApplyEnabled = False
End Sub
Private Sub frmSubcontractorDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
End Sub
#Region "Control KeyPress"
Private Sub txtSubcontractorNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Click
txtSubcontractorNo.SelectAll()
End Sub
Private Sub txtSubcontractorNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Enter
txtSubcontractorNo.SelectAll()
End Sub
Private Sub txtSubcontractorNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorNo.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtSubcontractorNo_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Leave
txtSubcontractorNo.Text = UCase(txtSubcontractorNo.Text)
End Sub
Private Sub txtSubcontractorNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtSubcontractorName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorName.Click
txtSubcontractorName.SelectAll()
End Sub
Private Sub txtSubcontractorName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorName.Enter
txtSubcontractorName.SelectAll()
End Sub
Private Sub txtSubcontractorName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorName.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtSubcontractorName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorName.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtDescription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Click
txtDescription.SelectAll()
End Sub
Private Sub txtDescription_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter
txtDescription.SelectAll()
End Sub
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
btnApplyEnabled = True
End Sub
#End Region
#Region "Others"
Private Function funAddorEdit(sender As Object) As Integer
funAddorEdit = -1
'******************************************************************************
'1.基本檢查
'******************************************************************************
If txtSubcontractorNo.Text = "" Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorNo%]"), MsgBoxStyle.Exclamation, Me.Text)
txtSubcontractorNo.Focus()
Exit Function
End If
If txtSubcontractorName.Text = "" Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorName%]"), MsgBoxStyle.Exclamation, Me.Text)
txtSubcontractorName.Focus()
Exit Function
End If
'2.
'******************************************************************************
'寫回資料庫
'******************************************************************************
Dim XmlDoc As New XmlDocument
Try
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
strParameter = strParameter & CombineXMLParameter("subcontractorname", "SubcontractorName", "String", CInput(txtSubcontractorName.Text), "")
strParameter = strParameter & CombineXMLParameter("telno", "TelNo", "String", CInput(txtTelNo.Text), "")
strParameter = strParameter & CombineXMLParameter("email", "EMail", "String", CInput(txtEMail.Text), "")
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
strParameter = strParameter & CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
strParameter = strParameter & CombineXMLParameter("createdate", "CreateDate", "DateTime", Format(Now, "yyyy/MM/dd HH:mm:ss"), "")
InXml = CombineXMLRequest(strIdentity, strParameter)
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
OutXml = InvokeSrv("SXS.wsENT.AddSubcontractor", InXml)
========
OutXml = InvokeSrv("wsENT.AddSubcontractor", InXml)
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
Else
'修改
strParameter = strParameter & CombineXMLParameter("issuestate", "IssueState", "String", EditDataRow.Item("IssueState").ToString, "")
' 增加Datastamp
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
InXml = CombineXMLRequest(strIdentity, strParameter)
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
OutXml = InvokeSrv("SXS.wsENT.EditSubcontractor", InXml)
========
OutXml = InvokeSrv("wsENT.EditSubcontractor", InXml)
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
End If
XmlDoc.LoadXml(OutXml)
If ChkExecutionSuccess(XmlDoc) Then
gReturnKeyValue = txtSubcontractorNo.Text
funAddorEdit = 0
If sender.Equals(btnApply) Then
intDataStamp += 1
End If
Else
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
End If
Catch ex As Exception
'MsgBox("Unexpected Error. Add or Edit ENT Subcontractor Failed!," & e1.Message, MsgBoxStyle.Exclamation)
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
End Try
XmlDoc = Nothing
End Function
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
Private Sub lblTelNo_Click(sender As Object, e As EventArgs) Handles lblTelNo.Click
End Sub
========
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
#End Region
End Class

120
SRC/MESWin/SYS1/ET_21674/frmTeacherContDef.resx
View File

@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

656
SRC/MESWin/SYS1/ET_21674/frmTeacherContDef.vb
View File

@ -1,656 +0,0 @@
Imports iMESExceptionManager
Public Class frmTeacherContDef
Inherits COM_Kit.frmDefTemplat
'//Public Variables
Public EditDataRow As DataRow
Public DefMode As Integer = 0 '0. ADD, 1.Edit, 2. Copy
Public SubcontractorNo As String = defString
Public PrivFunNo As String = defString
'//Web Service相關變數
' 2016 YF, Dim wsENT As New wsENT.wsENT
Dim InXml As String
Dim OutXml As String
Dim strIdentity As String
Dim strParameter As String
Dim intDataStamp As Integer '紀錄DataStamp
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
Friend WithEvents lblAddress As System.Windows.Forms.Label
Friend WithEvents lblEMail As System.Windows.Forms.Label
Friend WithEvents lblTitle As System.Windows.Forms.Label
Friend WithEvents lblFaxNo As System.Windows.Forms.Label
Friend WithEvents lblTelNo As System.Windows.Forms.Label
Friend WithEvents lblDescription As System.Windows.Forms.Label
Friend WithEvents lblTeacherContName As System.Windows.Forms.Label
Friend WithEvents lblTeacherNo As System.Windows.Forms.Label
Friend WithEvents gbxSubcontractorContData As System.Windows.Forms.GroupBox
Friend WithEvents txtSubcontractorNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtContactorName As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtFaxNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtTelNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtEMail As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtTitle As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtAddress As Infragistics.Win.UltraWinEditors.UltraTextEditor
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
Me.gbxSubcontractorContData = New System.Windows.Forms.GroupBox()
Me.txtAddress = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtEMail = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtTitle = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtFaxNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.lblAddress = New System.Windows.Forms.Label()
Me.lblEMail = New System.Windows.Forms.Label()
Me.lblTitle = New System.Windows.Forms.Label()
Me.lblFaxNo = New System.Windows.Forms.Label()
Me.lblTelNo = New System.Windows.Forms.Label()
Me.txtDescription = New System.Windows.Forms.RichTextBox()
Me.lblDescription = New System.Windows.Forms.Label()
Me.lblTeacherNo = New System.Windows.Forms.Label()
Me.lblTeacherContName = New System.Windows.Forms.Label()
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtContactorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
Me.gbxSubcontractorContData.SuspendLayout()
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFaxNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtContactorName, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'gbxBasisData
'
Me.gbxBasisData.Location = New System.Drawing.Point(12, 322)
Me.gbxBasisData.Size = New System.Drawing.Size(472, 70)
'
'btnApply
'
Me.btnApply.Location = New System.Drawing.Point(396, 401)
'
'btnConfirm
'
Me.btnConfirm.Location = New System.Drawing.Point(208, 401)
'
'btnClose
'
Me.btnClose.Location = New System.Drawing.Point(302, 401)
'
'gbxSubcontractorContData
'
Me.gbxSubcontractorContData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbxSubcontractorContData.Controls.Add(Me.txtAddress)
Me.gbxSubcontractorContData.Controls.Add(Me.txtEMail)
Me.gbxSubcontractorContData.Controls.Add(Me.txtTitle)
Me.gbxSubcontractorContData.Controls.Add(Me.txtFaxNo)
Me.gbxSubcontractorContData.Controls.Add(Me.lblAddress)
Me.gbxSubcontractorContData.Controls.Add(Me.lblEMail)
Me.gbxSubcontractorContData.Controls.Add(Me.lblTitle)
Me.gbxSubcontractorContData.Controls.Add(Me.lblFaxNo)
Me.gbxSubcontractorContData.Controls.Add(Me.lblTelNo)
Me.gbxSubcontractorContData.Controls.Add(Me.txtDescription)
Me.gbxSubcontractorContData.Controls.Add(Me.lblDescription)
Me.gbxSubcontractorContData.Controls.Add(Me.lblTeacherNo)
Me.gbxSubcontractorContData.Controls.Add(Me.lblTeacherContName)
Me.gbxSubcontractorContData.Controls.Add(Me.txtSubcontractorNo)
Me.gbxSubcontractorContData.Controls.Add(Me.txtContactorName)
Me.gbxSubcontractorContData.Controls.Add(Me.txtTelNo)
Me.gbxSubcontractorContData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.gbxSubcontractorContData.Location = New System.Drawing.Point(15, 8)
Me.gbxSubcontractorContData.Name = "gbxSubcontractorContData"
Me.gbxSubcontractorContData.Size = New System.Drawing.Size(469, 306)
Me.gbxSubcontractorContData.TabIndex = 0
Me.gbxSubcontractorContData.TabStop = False
Me.gbxSubcontractorContData.Text = "ENT Subcontractor Contactor Data"
'
'txtAddress
'
Me.txtAddress.Location = New System.Drawing.Point(120, 152)
Me.txtAddress.Name = "txtAddress"
Me.txtAddress.Size = New System.Drawing.Size(336, 22)
Me.txtAddress.TabIndex = 13
'
'txtEMail
'
Me.txtEMail.Location = New System.Drawing.Point(320, 120)
Me.txtEMail.Name = "txtEMail"
Me.txtEMail.Size = New System.Drawing.Size(136, 22)
Me.txtEMail.TabIndex = 11
'
'txtTitle
'
Me.txtTitle.Location = New System.Drawing.Point(120, 120)
Me.txtTitle.Name = "txtTitle"
Me.txtTitle.Size = New System.Drawing.Size(114, 22)
Me.txtTitle.TabIndex = 9
'
'txtFaxNo
'
Me.txtFaxNo.Location = New System.Drawing.Point(320, 88)
Me.txtFaxNo.Name = "txtFaxNo"
Me.txtFaxNo.Size = New System.Drawing.Size(136, 22)
Me.txtFaxNo.TabIndex = 7
'
'lblAddress
'
Me.lblAddress.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAddress.Location = New System.Drawing.Point(24, 154)
Me.lblAddress.Name = "lblAddress"
Me.lblAddress.Size = New System.Drawing.Size(86, 14)
Me.lblAddress.TabIndex = 12
Me.lblAddress.Text = "Address"
Me.lblAddress.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblEMail
'
Me.lblEMail.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblEMail.Location = New System.Drawing.Point(248, 123)
Me.lblEMail.Name = "lblEMail"
Me.lblEMail.Size = New System.Drawing.Size(64, 14)
Me.lblEMail.TabIndex = 10
Me.lblEMail.Text = "EMail"
Me.lblEMail.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblTitle
'
Me.lblTitle.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTitle.Location = New System.Drawing.Point(24, 121)
Me.lblTitle.Name = "lblTitle"
Me.lblTitle.Size = New System.Drawing.Size(86, 14)
Me.lblTitle.TabIndex = 8
Me.lblTitle.Text = "Title"
Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblFaxNo
'
Me.lblFaxNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFaxNo.Location = New System.Drawing.Point(248, 90)
Me.lblFaxNo.Name = "lblFaxNo"
Me.lblFaxNo.Size = New System.Drawing.Size(64, 14)
Me.lblFaxNo.TabIndex = 6
Me.lblFaxNo.Text = "FaxNo"
Me.lblFaxNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblTelNo
'
Me.lblTelNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTelNo.Location = New System.Drawing.Point(24, 90)
Me.lblTelNo.Name = "lblTelNo"
Me.lblTelNo.Size = New System.Drawing.Size(86, 14)
Me.lblTelNo.TabIndex = 4
Me.lblTelNo.Text = "TelNo"
Me.lblTelNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtDescription
'
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDescription.Location = New System.Drawing.Point(120, 184)
Me.txtDescription.Name = "txtDescription"
Me.txtDescription.Size = New System.Drawing.Size(336, 108)
Me.txtDescription.TabIndex = 15
Me.txtDescription.Text = ""
'
'lblDescription
'
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDescription.Location = New System.Drawing.Point(24, 186)
Me.lblDescription.Name = "lblDescription"
Me.lblDescription.Size = New System.Drawing.Size(86, 14)
Me.lblDescription.TabIndex = 14
Me.lblDescription.Text = "Description"
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblTeacherNo
'
Me.lblTeacherNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTeacherNo.Location = New System.Drawing.Point(14, 29)
Me.lblTeacherNo.Name = "lblTeacherNo"
Me.lblTeacherNo.Size = New System.Drawing.Size(96, 14)
Me.lblTeacherNo.TabIndex = 0
Me.lblTeacherNo.Text = "Teacher No"
Me.lblTeacherNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblTeacherContName
'
Me.lblTeacherContName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTeacherContName.Location = New System.Drawing.Point(24, 59)
Me.lblTeacherContName.Name = "lblTeacherContName"
Me.lblTeacherContName.Size = New System.Drawing.Size(86, 14)
Me.lblTeacherContName.TabIndex = 2
Me.lblTeacherContName.Text = "TeacherCont Name"
Me.lblTeacherContName.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtSubcontractorNo
'
Me.txtSubcontractorNo.Location = New System.Drawing.Point(120, 24)
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
Me.txtSubcontractorNo.ReadOnly = True
Me.txtSubcontractorNo.Size = New System.Drawing.Size(114, 22)
Me.txtSubcontractorNo.TabIndex = 1
Me.txtSubcontractorNo.TabStop = False
'
'txtContactorName
'
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtContactorName.Appearance = Appearance1
Me.txtContactorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtContactorName.Location = New System.Drawing.Point(120, 56)
Me.txtContactorName.Name = "txtContactorName"
Me.txtContactorName.Size = New System.Drawing.Size(160, 22)
Me.txtContactorName.TabIndex = 3
'
'txtTelNo
'
Me.txtTelNo.Location = New System.Drawing.Point(120, 88)
Me.txtTelNo.Name = "txtTelNo"
Me.txtTelNo.Size = New System.Drawing.Size(114, 22)
Me.txtTelNo.TabIndex = 5
'
'frmTeacherContDef
'
Me.ClientSize = New System.Drawing.Size(496, 446)
Me.Controls.Add(Me.gbxSubcontractorContData)
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "frmTeacherContDef"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "ENT Subcontractor Contactor Define"
Me.Controls.SetChildIndex(Me.btnClose, 0)
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
Me.Controls.SetChildIndex(Me.btnApply, 0)
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
Me.Controls.SetChildIndex(Me.gbxSubcontractorContData, 0)
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
Me.gbxSubcontractorContData.ResumeLayout(False)
Me.gbxSubcontractorContData.PerformLayout()
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFaxNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtContactorName, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub frmSubcontractorContDef_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cursor.Current = Cursors.WaitCursor
Select Case DefMode
Case 0
Me.Text = Me.Text & "(ADD)"
Case 1
Me.Text = Me.Text & "(EDIT)"
Case 2
Me.Text = Me.Text & "(Copy)"
Case Else
Me.Text = Me.Text & "(Unknown)"
End Select
'做為MainForm判斷是否重新LoadData的依據()
gReturnKeyValue = ""
' 2016 YF, wsENT.Url = LocalizeWebService(wsENT.Url.ToString)
' 2016 YF, wsENT.EnableDecompression = True
If DefMode = 0 Or DefMode = 2 Then
SetCreateDate(Now)
SetCreator(gUserNo)
End If
If Not EditDataRow Is Nothing Then '修改 or Copy
txtSubcontractorNo.Text = EditDataRow.Item("SubcontractorNo").ToString
txtContactorName.Text = EditDataRow.Item("ContactorName").ToString
txtTelNo.Text = EditDataRow.Item("TelNo").ToString
txtFaxNo.Text = EditDataRow.Item("FaxNo").ToString
txtTitle.Text = EditDataRow.Item("Title").ToString
txtAddress.Text = EditDataRow.Item("Address").ToString
txtEMail.Text = EditDataRow.Item("EMail").ToString
'txtDescription是RichTextBox(Control, 因為TextBox無法正常顯示多行換行的資料)
txtDescription.Text = EditDataRow.Item("Description").ToString
If DefMode = 1 Then
If (Not IsDBNull(EditDataRow("Creator"))) Then
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
SetCreator(EditDataRow.Item("Creator").ToString)
End If
End If
End If
If DefMode = 0 Then 'Add
txtSubcontractorNo.Text = SubcontractorNo
SetCreateDate(Now)
SetCreator(gUserNo)
ElseIf DefMode = 1 Then 'Edit
txtContactorName.ReadOnly = True
SetReviseDate(Now)
SetReviser(gUserNo)
intDataStamp = EditDataRow.Item("DataStamp")
End If
btnApplyEnabled = False
'語系切換
Call ExeChangeResource(Me, gLanguageMode)
ExeGroupControlPriv(Me, PrivFunNo)
Cursor.Current = Cursors.Default
End Sub
Private Sub frmSubcontractorContDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
If DefMode = 0 Or DefMode = 2 Then
txtContactorName.Focus()
Else
txtTelNo.Focus()
End If
End Sub
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Cursor.Current = Cursors.WaitCursor
If funAddorEdit(sender) < 0 Then Exit Sub
Me.Close()
Cursor.Current = Cursors.Default
End Sub
Protected Overrides Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Protected Overrides Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Cursor.Current = Cursors.WaitCursor
If funAddorEdit(sender) < 0 Then Exit Sub
If DefMode = 0 Or DefMode = 2 Then
txtContactorName.Focus()
Else
txtTelNo.Focus()
End If
txtEMail.Text = ""
btnApplyEnabled = False
Cursor.Current = Cursors.Default
End Sub
#Region "Control KeyPress"
Private Sub txtSubcontractorNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Click
txtSubcontractorNo.SelectAll()
End Sub
Private Sub txtSubcontractorNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Enter
txtSubcontractorNo.SelectAll()
End Sub
Private Sub txtSubcontractorNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorNo.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtSubcontractorNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtContactorName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Click
txtContactorName.SelectAll()
End Sub
Private Sub txtContactorName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Enter
txtContactorName.SelectAll()
End Sub
Private Sub txtContactorName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtContactorName.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtContactorName_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Leave
If txtContactorName.Text <> "" And txtEMail.Text = "" Then
txtEMail.Text = txtContactorName.Text & "@"
End If
txtContactorName.Text = UCase(txtContactorName.Text)
End Sub
Private Sub txtContactorName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtTelNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.Click
txtTelNo.SelectAll()
End Sub
Private Sub txtTelNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.Enter
txtTelNo.SelectAll()
End Sub
Private Sub txtTelNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTelNo.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtTelNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtFaxNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFaxNo.Click
txtFaxNo.SelectAll()
End Sub
Private Sub txtFaxNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFaxNo.Enter
txtFaxNo.SelectAll()
End Sub
Private Sub txtFaxNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtFaxNo.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtFaxNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFaxNo.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtTitle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTitle.Click
txtTitle.SelectAll()
End Sub
Private Sub txtTitle_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTitle.Enter
txtTitle.SelectAll()
End Sub
Private Sub txtTitle_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTitle.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtTitle_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTitle.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtEMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.Click
txtEMail.SelectAll()
End Sub
Private Sub txtEMail_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.Enter
txtEMail.SelectAll()
End Sub
Private Sub txtEMail_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtEMail.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtEMail_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtAddress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.Click
txtAddress.SelectAll()
End Sub
Private Sub txtAddress_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.Enter
txtAddress.SelectAll()
End Sub
Private Sub txtAddress_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAddress.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtAddress_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtDescription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Click
txtDescription.SelectAll()
End Sub
Private Sub txtDescription_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter
txtDescription.SelectAll()
End Sub
Private Sub txtDescription_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtDescription.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
btnApplyEnabled = True
End Sub
#End Region
#Region "Others"
Private Function funAddorEdit(sender As Object) As Integer
funAddorEdit = -1
'******************************************************************************
'1.基本檢查()
'******************************************************************************
If txtSubcontractorNo.Text = "" Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorNo%]"), MsgBoxStyle.Exclamation, Me.Text)
txtSubcontractorNo.Focus()
Exit Function
End If
If txtContactorName.Text = "" Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%ContactorName%]"), MsgBoxStyle.Exclamation, Me.Text)
txtContactorName.Focus()
Exit Function
End If
'******************************************************************************
'2.寫回資料庫()
'******************************************************************************
Dim XmlDoc As New XmlDocument
Try
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
strParameter = strParameter & CombineXMLParameter("contactorname", "ContactorName", "String", CInput(txtContactorName.Text), "")
strParameter = strParameter & CombineXMLParameter("telno", "TelNo", "String", txtTelNo.Text, "")
strParameter = strParameter & CombineXMLParameter("faxno", "FaxNo", "String", txtFaxNo.Text, "")
strParameter = strParameter & CombineXMLParameter("title", "Title", "String", CInput(txtTitle.Text), "")
strParameter = strParameter & CombineXMLParameter("address", "Address", "String", CInput(txtAddress.Text), "")
strParameter = strParameter & CombineXMLParameter("email", "EMail", "String", CInput(txtEMail.Text), "")
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
strParameter += CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
InXml = CombineXMLRequest(strIdentity, strParameter)
' 2016 YF, OutXml = wsENT.AddSubcontractorCont(InXml)
OutXml = InvokeSrv("SXS.wsENT.AddSubcontractorCont", InXml)
Else 'Edit
' 增加Datastamp
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
InXml = CombineXMLRequest(strIdentity, strParameter)
' 2016 YF, OutXml = wsENT.EditSubcontractorCont(InXml)
OutXml = InvokeSrv("SXS.wsENT.EditSubcontractorCont", InXml)
End If
XmlDoc.LoadXml(OutXml)
If ChkExecutionSuccess(XmlDoc) Then
gReturnKeyValue = txtContactorName.Text
funAddorEdit = 0
If sender.Equals(btnApply) Then
intDataStamp += 1
End If
Else
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
End If
Catch ex As Exception
'MsgBox("Unexpected Error. Add or Edit ENT Subcontractor Contactor Failed!," & e1.Message, MsgBoxStyle.Exclamation)
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
End Try
XmlDoc = Nothing
End Function
#End Region
Private Sub frmSubcontractorContDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
End Sub
End Class

433
SRC/MESWin/SYS1/ET_21674/frmTeacherDef.vb
View File

@ -1,433 +0,0 @@
Imports iMESExceptionManager
Public Class frmTeacherDef
Inherits COM_Kit.frmDefTemplat
'//Public Variables
Public EditDataRow As DataRow
Public DefMode As Integer = 0 '0. ADD, 1.Edit, 2. Copy
Public PrivFunNo As String = defString
'//Web Service相關變數
' 2016 YF, Dim wsENT As New wsENT.wsENT
Dim InXml As String
Dim OutXml As String
Dim strIdentity As String
Dim strParameter As String
Dim intDataStamp As Integer '紀錄DataStamp
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
Friend WithEvents lblDescription As System.Windows.Forms.Label
Friend WithEvents lblTeacherNo As System.Windows.Forms.Label
Friend WithEvents lblTeacherName As System.Windows.Forms.Label
Friend WithEvents gbxTeacherData As System.Windows.Forms.GroupBox
Friend WithEvents txtTeacherNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
Friend WithEvents txtTeacherName As Infragistics.Win.UltraWinEditors.UltraTextEditor
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
Me.gbxTeacherData = New System.Windows.Forms.GroupBox()
Me.txtDescription = New System.Windows.Forms.RichTextBox()
Me.lblDescription = New System.Windows.Forms.Label()
Me.lblTeacherNo = New System.Windows.Forms.Label()
Me.lblTeacherName = New System.Windows.Forms.Label()
Me.txtTeacherNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
Me.txtTeacherName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
Me.gbxTeacherData.SuspendLayout()
CType(Me.txtTeacherNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTeacherName, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'gbxBasisData
'
Me.gbxBasisData.Location = New System.Drawing.Point(12, 185)
Me.gbxBasisData.Size = New System.Drawing.Size(479, 70)
'
'btnApply
'
Me.btnApply.Location = New System.Drawing.Point(403, 264)
'
'btnConfirm
'
Me.btnConfirm.Location = New System.Drawing.Point(215, 264)
'
'btnClose
'
Me.btnClose.Location = New System.Drawing.Point(309, 264)
'
'gbxTeacherData
'
Me.gbxTeacherData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbxTeacherData.Controls.Add(Me.txtDescription)
Me.gbxTeacherData.Controls.Add(Me.lblDescription)
Me.gbxTeacherData.Controls.Add(Me.lblTeacherNo)
Me.gbxTeacherData.Controls.Add(Me.lblTeacherName)
Me.gbxTeacherData.Controls.Add(Me.txtTeacherNo)
Me.gbxTeacherData.Controls.Add(Me.txtTeacherName)
Me.gbxTeacherData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.gbxTeacherData.Location = New System.Drawing.Point(12, 8)
Me.gbxTeacherData.Name = "gbxTeacherData"
Me.gbxTeacherData.Size = New System.Drawing.Size(479, 169)
Me.gbxTeacherData.TabIndex = 7
Me.gbxTeacherData.TabStop = False
Me.gbxTeacherData.Text = "Teacher Data"
'
'txtDescription
'
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDescription.Location = New System.Drawing.Point(128, 86)
Me.txtDescription.Name = "txtDescription"
Me.txtDescription.Size = New System.Drawing.Size(334, 67)
Me.txtDescription.TabIndex = 2
Me.txtDescription.Text = ""
'
'lblDescription
'
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDescription.Location = New System.Drawing.Point(56, 88)
Me.lblDescription.Name = "lblDescription"
Me.lblDescription.Size = New System.Drawing.Size(64, 14)
Me.lblDescription.TabIndex = 13
Me.lblDescription.Text = "Description"
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblTeacherNo
'
Me.lblTeacherNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTeacherNo.Location = New System.Drawing.Point(24, 24)
Me.lblTeacherNo.Name = "lblTeacherNo"
Me.lblTeacherNo.Size = New System.Drawing.Size(96, 32)
Me.lblTeacherNo.TabIndex = 5
Me.lblTeacherNo.Text = "Teacher No"
Me.lblTeacherNo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblTeacherName
'
Me.lblTeacherName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTeacherName.Location = New System.Drawing.Point(8, 56)
Me.lblTeacherName.Name = "lblTeacherName"
Me.lblTeacherName.Size = New System.Drawing.Size(112, 32)
Me.lblTeacherName.TabIndex = 9
Me.lblTeacherName.Text = "Teacher Name"
Me.lblTeacherName.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtTeacherNo
'
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtTeacherNo.Appearance = Appearance1
Me.txtTeacherNo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtTeacherNo.Location = New System.Drawing.Point(128, 24)
Me.txtTeacherNo.Name = "txtTeacherNo"
Me.txtTeacherNo.Size = New System.Drawing.Size(152, 22)
Me.txtTeacherNo.TabIndex = 0
'
'txtTeacherName
'
Appearance2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtTeacherName.Appearance = Appearance2
Me.txtTeacherName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtTeacherName.Location = New System.Drawing.Point(128, 55)
Me.txtTeacherName.Name = "txtTeacherName"
Me.txtTeacherName.Size = New System.Drawing.Size(334, 22)
Me.txtTeacherName.TabIndex = 1
'
'frmTeacherDef
'
Me.ClientSize = New System.Drawing.Size(503, 309)
Me.Controls.Add(Me.gbxTeacherData)
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "frmTeacherDef"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "ENT Teacher Define"
Me.Controls.SetChildIndex(Me.btnClose, 0)
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
Me.Controls.SetChildIndex(Me.btnApply, 0)
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
Me.Controls.SetChildIndex(Me.gbxTeacherData, 0)
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
Me.gbxTeacherData.ResumeLayout(False)
Me.gbxTeacherData.PerformLayout()
CType(Me.txtTeacherNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTeacherName, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub frmSubcontractorDef_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cursor.Current = Cursors.WaitCursor
Select Case DefMode
Case 0
Me.Text = Me.Text & "(ADD)"
Case 1
Me.Text = Me.Text & "(EDIT)"
Case 2
Me.Text = Me.Text & "(Copy)"
Case Else
Me.Text = Me.Text & "(Unknown)"
End Select
'做為MainForm判斷是否重新LoadData的依據
gReturnKeyValue = ""
' 2016 YF, wsENT.Url = LocalizeWebService(wsENT.Url.ToString)
' 2016 YF, wsENT.EnableDecompression = True
If Not EditDataRow Is Nothing Then
txtTeacherNo.Text = EditDataRow.Item("TeacherNo").ToString
txtTeacherName.Text = EditDataRow.Item("TeacherName").ToString
'txtDescription是RichTextBox Control,因為TextBox無法正常顯示多行換行的資料
txtDescription.Text = EditDataRow.Item("Description").ToString
End If
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
SetCreator(gUserNo)
SetCreateDate(Now)
ElseIf DefMode = 1 Then 'Edit
txtTeacherNo.ReadOnly = True
SetCreator(EditDataRow.Item("Creator").ToString)
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
SetReviser(gUserNo)
SetReviseDate(Now)
intDataStamp = EditDataRow.Item("DataStamp")
End If
btnApplyEnabled = False
'語系切換
Call ExeChangeResource(Me, gLanguageMode)
ExeGroupControlPriv(Me, PrivFunNo)
Cursor.Current = Cursors.Default
End Sub
Private Sub frmSubcontractorDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
If DefMode = 0 Or DefMode = 2 Then
txtTeacherNo.Focus()
Else
txtTeacherName.Focus()
End If
End Sub
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Cursor.Current = Cursors.WaitCursor
If funAddorEdit(sender) < 0 Then Exit Sub
Me.Close()
Cursor.Current = Cursors.Default
End Sub
Protected Overrides Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Protected Overrides Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Cursor.Current = Cursors.WaitCursor
If funAddorEdit(sender) < 0 Then Exit Sub
If DefMode = 0 Or DefMode = 2 Then
txtTeacherNo.Focus()
Else
txtTeacherName.Focus()
End If
Cursor.Current = Cursors.Default
btnApplyEnabled = False
End Sub
Private Sub frmSubcontractorDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
End Sub
#Region "Control KeyPress"
Private Sub txtSubcontractorNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherNo.Click
txtTeacherNo.SelectAll()
End Sub
Private Sub txtSubcontractorNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherNo.Enter
txtTeacherNo.SelectAll()
End Sub
Private Sub txtSubcontractorNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTeacherNo.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtSubcontractorNo_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherNo.Leave
txtTeacherNo.Text = UCase(txtTeacherNo.Text)
End Sub
Private Sub txtSubcontractorNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherNo.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtSubcontractorName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherName.Click
txtTeacherName.SelectAll()
End Sub
Private Sub txtSubcontractorName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherName.Enter
txtTeacherName.SelectAll()
End Sub
Private Sub txtSubcontractorName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTeacherName.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
SendKeys.Send("{TAB}")
End If
End Sub
Private Sub txtSubcontractorName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherName.TextChanged
btnApplyEnabled = True
End Sub
Private Sub txtDescription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Click
txtDescription.SelectAll()
End Sub
Private Sub txtDescription_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter
txtDescription.SelectAll()
End Sub
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
btnApplyEnabled = True
End Sub
#End Region
#Region "Others"
Private Function funAddorEdit(sender As Object) As Integer
funAddorEdit = -1
'******************************************************************************
'1.基本檢查
'******************************************************************************
If txtTeacherNo.Text = "" Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%TeacherNo%]"), MsgBoxStyle.Exclamation, Me.Text)
txtTeacherNo.Focus()
Exit Function
End If
If txtTeacherName.Text = "" Then
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%TeacherName%]"), MsgBoxStyle.Exclamation, Me.Text)
txtTeacherName.Focus()
Exit Function
End If
'2.
'******************************************************************************
'寫回資料庫
'******************************************************************************
Dim XmlDoc As New XmlDocument
Try
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
strParameter = CombineXMLParameter("teacherno", "TeacherNo", "String", CInput(txtTeacherNo.Text), "")
strParameter = strParameter & CombineXMLParameter("teachername", "TeacherName", "String", CInput(txtTeacherName.Text), "")
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
strParameter = strParameter & CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
strParameter = strParameter & CombineXMLParameter("createdate", "CreateDate", "DateTime", Format(Now, "yyyy/MM/dd HH:mm:ss"), "")
InXml = CombineXMLRequest(strIdentity, strParameter)
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
OutXml = InvokeSrv("SXS.wsENT_21674.AddTeacher", InXml)
Else
'修改
strParameter = strParameter & CombineXMLParameter("issuestate", "IssueState", "String", EditDataRow.Item("IssueState").ToString, "")
' 增加Datastamp
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
InXml = CombineXMLRequest(strIdentity, strParameter)
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
OutXml = InvokeSrv("SXS.wsENT_21674.EditTeacher", InXml)
End If
XmlDoc.LoadXml(OutXml)
If ChkExecutionSuccess(XmlDoc) Then
gReturnKeyValue = txtTeacherNo.Text
funAddorEdit = 0
If sender.Equals(btnApply) Then
intDataStamp += 1
End If
Else
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
End If
Catch ex As Exception
'MsgBox("Unexpected Error. Add or Edit ENT Subcontractor Failed!," & e1.Message, MsgBoxStyle.Exclamation)
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
End Try
XmlDoc = Nothing
End Function
Private Sub lblSubcontractorNo_Click(sender As Object, e As EventArgs) Handles lblTeacherNo.Click
End Sub
Private Sub btnConfirm_Click_1(sender As Object, e As EventArgs) Handles btnConfirm.Click
End Sub
Private Sub lblSubcontractorName_Click(sender As Object, e As EventArgs) Handles lblTeacherName.Click
End Sub
#End Region
End Class

31
SRC/MESWin/SYS2/ET_Subcontractor/ET_Subcontractor_21710.sln
View File

@ -1,31 +0,0 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 16
VisualStudioVersion = 16.0.34407.143
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ET_Subcontractor_21710", "ET_Subcontractor_21710.vbproj", "{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Test", "..\..\Test\Test.vbproj", "{C4A48E3F-38E4-4E88-A47D-FA5510686E57}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|x86 = Debug|x86
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Debug|x86.ActiveCfg = Debug|x86
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Debug|x86.Build.0 = Debug|x86
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Release|x86.ActiveCfg = Release|x86
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Release|x86.Build.0 = Release|x86
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Debug|x86.ActiveCfg = Debug|x86
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Debug|x86.Build.0 = Debug|x86
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Release|x86.ActiveCfg = Release|x86
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Release|x86.Build.0 = Release|x86
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {6D3C286F-62F4-4F6B-BEAD-599D39767969}
EndGlobalSection
EndGlobal

Some files were not shown because too many files have changed in this diff Show More