SXS20240115/SRC/MESWin/SYS2/SYSENT21687/frmSubcontractorContDef.vb

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 gbxBasisData As Infragistics.Win.Misc.UltraGroupBox
    Friend WithEvents txtReviseDate As Infragistics.Win.UltraWinEditors.UltraTextEditor
    Friend WithEvents txtReviser As Infragistics.Win.UltraWinEditors.UltraTextEditor
    Friend WithEvents lblReviseDate As Infragistics.Win.Misc.UltraLabel
    Friend WithEvents lblReviser As Infragistics.Win.Misc.UltraLabel
    Friend WithEvents txtCreateDate As Infragistics.Win.UltraWinEditors.UltraTextEditor
    Friend WithEvents txtCreator As Infragistics.Win.UltraWinEditors.UltraTextEditor
    Friend WithEvents lblCreateDate As Infragistics.Win.Misc.UltraLabel
    Friend WithEvents lblCreator As Infragistics.Win.Misc.UltraLabel
    Friend WithEvents btnApply As Infragistics.Win.Misc.UltraButton
    Friend WithEvents btnConfirm As Infragistics.Win.Misc.UltraButton
    Friend WithEvents btnClose As Infragistics.Win.Misc.UltraButton
    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()
        Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
        Dim Appearance3 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
        Dim Appearance4 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
        Dim Appearance5 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
        Me.txtReviseDate = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
        Me.txtReviser = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
        Me.lblReviseDate = New Infragistics.Win.Misc.UltraLabel()
        Me.lblReviser = New Infragistics.Win.Misc.UltraLabel()
        Me.txtCreateDate = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
        Me.txtCreator = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
        Me.lblCreateDate = New Infragistics.Win.Misc.UltraLabel()
        Me.lblCreator = New Infragistics.Win.Misc.UltraLabel()
        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()
        CType(Me.txtReviseDate, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtReviser, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtCreateDate, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtCreator, 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(395, 401)
        '
        'btnConfirm
        '
        Me.btnConfirm.Location = New System.Drawing.Point(207, 401)
        '
        'btnClose
        '
        Me.btnClose.Location = New System.Drawing.Point(301, 401)
        '
        'txtReviseDate
        '
        Me.txtReviseDate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.txtReviseDate.Location = New System.Drawing.Point(327, 39)
        Me.txtReviseDate.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
        Me.txtReviseDate.Name = "txtReviseDate"
        Me.txtReviseDate.ReadOnly = True
        Me.txtReviseDate.Size = New System.Drawing.Size(140, 21)
        Me.txtReviseDate.TabIndex = 31
        '
        'txtReviser
        '
        Me.txtReviser.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.txtReviser.Location = New System.Drawing.Point(100, 39)
        Me.txtReviser.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
        Me.txtReviser.Name = "txtReviser"
        Me.txtReviser.ReadOnly = True
        Me.txtReviser.Size = New System.Drawing.Size(140, 21)
        Me.txtReviser.TabIndex = 29
        '
        'lblReviseDate
        '
        Me.lblReviseDate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Appearance1.TextHAlignAsString = "Right"
        Appearance1.TextVAlignAsString = "Middle"
        Me.lblReviseDate.Appearance = Appearance1
        Me.lblReviseDate.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblReviseDate.Location = New System.Drawing.Point(246, 40)
        Me.lblReviseDate.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
        Me.lblReviseDate.Name = "lblReviseDate"
        Me.lblReviseDate.Size = New System.Drawing.Size(75, 22)
        Me.lblReviseDate.TabIndex = 30
        Me.lblReviseDate.Text = "Revise Date"
        '
        'lblReviser
        '
        Me.lblReviser.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Appearance2.TextHAlignAsString = "Right"
        Appearance2.TextVAlignAsString = "Middle"
        Me.lblReviser.Appearance = Appearance2
        Me.lblReviser.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblReviser.Location = New System.Drawing.Point(19, 40)
        Me.lblReviser.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
        Me.lblReviser.Name = "lblReviser"
        Me.lblReviser.Size = New System.Drawing.Size(75, 22)
        Me.lblReviser.TabIndex = 28
        Me.lblReviser.Text = "Reviser"
        '
        'txtCreateDate
        '
        Me.txtCreateDate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.txtCreateDate.Location = New System.Drawing.Point(327, 7)
        Me.txtCreateDate.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
        Me.txtCreateDate.Name = "txtCreateDate"
        Me.txtCreateDate.ReadOnly = True
        Me.txtCreateDate.Size = New System.Drawing.Size(140, 21)
        Me.txtCreateDate.TabIndex = 27
        '
        'txtCreator
        '
        Me.txtCreator.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.txtCreator.Location = New System.Drawing.Point(100, 7)
        Me.txtCreator.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
        Me.txtCreator.Name = "txtCreator"
        Me.txtCreator.ReadOnly = True
        Me.txtCreator.Size = New System.Drawing.Size(140, 21)
        Me.txtCreator.TabIndex = 25
        '
        'lblCreateDate
        '
        Me.lblCreateDate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Appearance3.TextHAlignAsString = "Right"
        Appearance3.TextVAlignAsString = "Middle"
        Me.lblCreateDate.Appearance = Appearance3
        Me.lblCreateDate.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblCreateDate.Location = New System.Drawing.Point(246, 8)
        Me.lblCreateDate.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
        Me.lblCreateDate.Name = "lblCreateDate"
        Me.lblCreateDate.Size = New System.Drawing.Size(75, 22)
        Me.lblCreateDate.TabIndex = 26
        Me.lblCreateDate.Text = "Create Date"
        '
        'lblCreator
        '
        Me.lblCreator.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Appearance4.TextHAlignAsString = "Right"
        Appearance4.TextVAlignAsString = "Middle"
        Me.lblCreator.Appearance = Appearance4
        Me.lblCreator.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblCreator.Location = New System.Drawing.Point(19, 8)
        Me.lblCreator.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
        Me.lblCreator.Name = "lblCreator"
        Me.lblCreator.Size = New System.Drawing.Size(75, 22)
        Me.lblCreator.TabIndex = 24
        Me.lblCreator.Text = "Creator"
        '
        '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
        '
        Appearance5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.txtContactorName.Appearance = Appearance5
        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.gbxSubcontractorContData, 0)
        Me.Controls.SetChildIndex(Me.btnClose, 0)
        Me.Controls.SetChildIndex(Me.btnConfirm, 0)
        Me.Controls.SetChildIndex(Me.btnApply, 0)
        Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
        CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtReviseDate, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtReviser, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtCreateDate, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtCreator, 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("SXS687.wsENT.AddSubcontractorCont", InXml)

            Else 'Edit
                ' 增加Datastamp
                strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
                InXml = CombineXMLRequest(strIdentity, strParameter)
                ' 2016 YF, OutXml = wsENT.EditSubcontractorCont(InXml)
                OutXml = InvokeSrv("SXS687.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