20210117備份

YD-ERP-SYS/Module/SQL_業務系統管理.vb

     End Sub
     '---------------------銷售單審核-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_銷售控制表_審核()
+        If 銷售單審核.已審核資料_ch.Checked = True Then
+            SQL2 = " WHERE 單號 LIKE '" & PA19 & "%' AND 客戶編號 NOT LIKE '' AND 單位主管 NOT LIKE '作廢%' "
+        Else
+            SQL2 = " WHERE 單號 LIKE '" & PA19 & "%' AND 客戶編號 NOT LIKE '' AND 單位主管 LIKE '' "
+        End If
+
         ConnOpen()
         SQL1 = "SELECT 流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員, 送貨地點, 運費
-                FROM   銷售控制表 WHERE 單號 LIKE '" & PA19 & "%' AND 客戶編號 NOT LIKE '' AND 單位主管 LIKE '' ORDER BY 單號 DESC"
+                FROM   銷售控制表 " & SQL2 & " ORDER BY 單號 DESC"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_銷售控制表_審核確認()
         ConnOpen()
         SQL1 = "SELECT      銷售控制表.流水號, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.開單日期, 銷售控制表.交貨日期, 
                             銷售控制表.含稅, 銷售控制表.單位主管, 銷售控制表.審核日期, 銷售收款事項.內容, 銷售收款事項.金額, 
-                            銷售控制表.送貨地點, 銷售控制表.運費, 銷售控制表.客戶編號
+                            銷售控制表.送貨地點, 銷售控制表.運費, 銷售控制表.客戶編號, 客戶資料表.電話1, 客戶資料表.電話2, 
+                            客戶資料表.地址, 客戶資料表.公司名稱, 客戶資料表.統編
                 FROM        銷售控制表 INNER JOIN
                             客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編 LEFT OUTER JOIN
                             銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
-                WHERE      (銷售控制表.單號 LIKE '" & PA19 & "%') AND (客戶資料表.名稱 LIKE N'%" & PA20 & "%') AND (銷售收款事項.內容 LIKE '未收餘額')
+                WHERE      (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.名稱 LIKE N'%" & PA20 & "%' OR 
+                            客戶資料表.電話1 LIKE N'%" & PA20 & "%' OR 客戶資料表.電話2 LIKE N'%" & PA20 & "%' OR 客戶資料表.地址 LIKE N'%" & PA20 & "%' OR 
+                            客戶資料表.公司名稱 LIKE N'%" & PA20 & "%' OR 客戶資料表.統編 LIKE N'%" & PA20 & "%')
                 ORDER BY    銷售控制表.單號 DESC"
         CmdSet_For_DGV()
     End Sub

YD-ERP-SYS/Module/全域變數.vb

     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean : Public 業務號碼 As String
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2020122101"
+    Public 版本 As String = "2021010601"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.CoreCompileInputs.cache

-281c91a893d144c264c62c0ce612433b2e13ad5f
+7bf5c891f45a24d1efc9695dd0a9d5e368d3f7d7

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.FileListAbsolute.txt

 G:\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe
 G:\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.pdb
 G:\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.xml
-G:\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\PInvoke.Windows.Core.dll
 G:\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\PInvoke.Windows.Core.xml
 G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人事資料表.resources
 G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人員ID卡系統配置設定.resources

YD-ERP-SYS/業務系統管理/訂單控制表.Designer.vb

         Me.小間距_ch = New System.Windows.Forms.CheckBox()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.重新整理_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Label13 = New System.Windows.Forms.Label()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.客戶資料_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.客戶資料_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.客戶資料_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.客戶資料_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 7999)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 8276)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label12.AutoSize = True
         Me.Label12.ForeColor = System.Drawing.Color.Black
         Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label12.Location = New System.Drawing.Point(169, 7)
+        Me.Label12.Location = New System.Drawing.Point(147, 9)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(32, 16)
+        Me.Label12.Size = New System.Drawing.Size(56, 16)
         Me.Label12.TabIndex = 1306
-        Me.Label12.Text = "客戶"
+        Me.Label12.Text = "客戶資料"
         '
         '大間距_ch
         '
         '
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理_tsm})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 48)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 26)
         '
         '重新整理_tsm
         '
         Me.重新整理_tsm.Name = "重新整理_tsm"
-        Me.重新整理_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.重新整理_tsm.Size = New System.Drawing.Size(122, 22)
         Me.重新整理_tsm.Text = "重新整理"
         '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.ForeColor = System.Drawing.Color.Red
+        Me.Label13.Location = New System.Drawing.Point(335, 7)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(284, 16)
+        Me.Label13.TabIndex = 1338
+        Me.Label13.Text = "可以使用客戶名稱，電話，地址，統篇等資料作查詢"
+        '
         '訂單控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1344, 681)
+        Me.Controls.Add(Me.Label13)
         Me.Controls.Add(Me.大間距_ch)
         Me.Controls.Add(Me.中間距_ch)
         Me.Controls.Add(Me.小間距_ch)
     Friend WithEvents 小間距_ch As CheckBox
     Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
     Friend WithEvents 重新整理_tsm As ToolStripMenuItem
+    Friend WithEvents Label13 As Label
 End Class

YD-ERP-SYS/業務系統管理/訂單控制表.vb

         銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 100 : 銷售單據_dgv.Columns(2).FillWeight = 100 : 銷售單據_dgv.Columns(3).FillWeight = 100
         銷售單據_dgv.Columns(4).FillWeight = 100 : 銷售單據_dgv.Columns(5).FillWeight = 50 : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).FillWeight = 100
         銷售單據_dgv.Columns(8).FillWeight = 100 : 銷售單據_dgv.Columns(9).FillWeight = 100 : 銷售單據_dgv.Columns(10).Visible = False : 銷售單據_dgv.Columns(11).Visible = False
-        銷售單據_dgv.Columns(12).Visible = False
+        銷售單據_dgv.Columns(12).Visible = False : 銷售單據_dgv.Columns(13).Visible = False : 銷售單據_dgv.Columns(14).Visible = False : 銷售單據_dgv.Columns(15).Visible = False
+        銷售單據_dgv.Columns(16).Visible = False : 銷售單據_dgv.Columns(17).Visible = False
 
         銷售單據_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
         銷售單據_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

YD-ERP-SYS/業務系統管理/銷售單審核.Designer.vb

         Me.大間距_ch = New System.Windows.Forms.CheckBox()
         Me.中間距_ch = New System.Windows.Forms.CheckBox()
         Me.小間距_ch = New System.Windows.Forms.CheckBox()
+        Me.已審核資料_ch = New System.Windows.Forms.CheckBox()
         CType(Me.售價_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.區域庫存_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.成本_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.客戶資料_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.客戶資料_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.客戶資料_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 7999)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 8276)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.小間距_ch.Text = "小間距"
         Me.小間距_ch.UseVisualStyleBackColor = True
         '
+        '已審核資料_ch
+        '
+        Me.已審核資料_ch.AutoSize = True
+        Me.已審核資料_ch.Location = New System.Drawing.Point(764, 152)
+        Me.已審核資料_ch.Name = "已審核資料_ch"
+        Me.已審核資料_ch.Size = New System.Drawing.Size(111, 20)
+        Me.已審核資料_ch.TabIndex = 1335
+        Me.已審核資料_ch.Text = "已審核資料顯示"
+        Me.已審核資料_ch.TextAlign = System.Drawing.ContentAlignment.BottomRight
+        Me.已審核資料_ch.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        Me.已審核資料_ch.UseVisualStyleBackColor = True
+        '
         '銷售單審核
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1344, 681)
+        Me.Controls.Add(Me.已審核資料_ch)
         Me.Controls.Add(Me.大間距_ch)
         Me.Controls.Add(Me.中間距_ch)
         Me.Controls.Add(Me.小間距_ch)
     Friend WithEvents 大間距_ch As CheckBox
     Friend WithEvents 中間距_ch As CheckBox
     Friend WithEvents 小間距_ch As CheckBox
+    Friend WithEvents 已審核資料_ch As CheckBox
 End Class

YD-ERP-SYS/業務系統管理/銷售單審核.vb

                 銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
             End If
             銷售明細_dgv("項次", i).Value = i + 1
-
-            'If 銷售明細_dgv("倉儲情況", i).Value.ToString = "已有貨" Then
-            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            'ElseIf 銷售明細_dgv("倉儲情況", i).Value.ToString = "未有貨" Then
-            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            'End If
         Next
         銷售明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
     End Sub
     End Sub
     Private Sub 銷售單審核_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+
+        If 登入人級別 <= 3 Then : 已審核資料_ch.Enabled = True : Else : 已審核資料_ch.Enabled = False : End If
+        If CC(37) = False Then : 已審核資料_ch.Checked = False : Else : 已審核資料_ch.Checked = True : End If
         料號_tb.Enabled = False : 供應商編碼_tb.Visible = False : 中間距_ch.Checked = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定
+
         指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入() : 送貨地點_cb_下拉表單資料載入()
         首次開啟 = False : Set_清單() : Set_清單1() : 業務_cb.Text = 業務號碼 : 首次開啟 = True '--------------------資料讀取
     End Sub
             刷卡控制 = True : 含稅_ch.Checked = True : 刷卡控制 = False
         End If
     End Sub
+    Private Sub 已審核資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核資料_ch.CheckedChanged
+        Set_清單1()
+    End Sub
 End Class

YD-ERP-SYS/業務系統管理/銷售單申請.vb

                 銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
             End If
             銷售明細_dgv("項次", i).Value = i + 1
-
-            'If 銷售明細_dgv("倉儲情況", i).Value.ToString = "已有貨" Then
-            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            'ElseIf 銷售明細_dgv("倉儲情況", I).Value.ToString = "未有貨" Then
-            '    銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            'End If
         Next
         銷售明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
     End Sub
                             ElseIf EDR > 10000000 Then : ESTR = "PO" & EDR
                             End If : 流水號_tb.Text = ESTR : PA1 = ESTR
                             Set_日期格式轉換()
+
+                            '----------------------------------判斷是否需要經過審核-------------------------------------------
                             If CC(37) = False Then
                                 SQL_銷售控制表_新增()
                             Else
                                 SQL_銷售控制表_新增_無須審核()
                             End If
 
-
-
                             SQL_銷售收款事項_最後一筆資料()
                             If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
                             conn.Close() : EDR += 1

YD-ERP-SYS/資料庫系統管理/系統使用者管理.Designer.vb

     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.顯示密碼_bt = New System.Windows.Forms.Button()
         Me.修改_bt = New System.Windows.Forms.Button()
         Me.新增_bt = New System.Windows.Forms.Button()
         Me.CheckBox29 = New System.Windows.Forms.CheckBox()
         Me.CheckBox30 = New System.Windows.Forms.CheckBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.CheckBox37 = New System.Windows.Forms.CheckBox()
         Me.CheckBox36 = New System.Windows.Forms.CheckBox()
         Me.CheckBox35 = New System.Windows.Forms.CheckBox()
         Me.CheckBox34 = New System.Windows.Forms.CheckBox()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
-        Me.CheckBox37 = New System.Windows.Forms.CheckBox()
         CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
         '使用者清單_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.使用者清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.使用者清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.使用者清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.使用者清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         '
         Me.CheckBox26.AutoSize = True
         Me.CheckBox26.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.CheckBox26.Location = New System.Drawing.Point(250, 163)
+        Me.CheckBox26.Location = New System.Drawing.Point(250, 137)
         Me.CheckBox26.Name = "CheckBox26"
         Me.CheckBox26.Size = New System.Drawing.Size(122, 20)
         Me.CheckBox26.TabIndex = 250
         Me.Panel1.Size = New System.Drawing.Size(1014, 703)
         Me.Panel1.TabIndex = 255
         '
+        'CheckBox37
+        '
+        Me.CheckBox37.AutoSize = True
+        Me.CheckBox37.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.CheckBox37.Location = New System.Drawing.Point(272, 163)
+        Me.CheckBox37.Name = "CheckBox37"
+        Me.CheckBox37.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox37.TabIndex = 270
+        Me.CheckBox37.Text = "銷售審核功能關閉-CC37"
+        Me.CheckBox37.UseVisualStyleBackColor = True
+        '
         'CheckBox36
         '
         Me.CheckBox36.AutoSize = True
         Me.Label6.TabIndex = 255
         Me.Label6.Text = "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) &
     "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
-        '
-        'CheckBox37
-        '
-        Me.CheckBox37.AutoSize = True
-        Me.CheckBox37.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.CheckBox37.Location = New System.Drawing.Point(274, 137)
-        Me.CheckBox37.Name = "CheckBox37"
-        Me.CheckBox37.Size = New System.Drawing.Size(158, 20)
-        Me.CheckBox37.TabIndex = 270
-        Me.CheckBox37.Text = "銷售審核功能關閉-CC37"
-        Me.CheckBox37.UseVisualStyleBackColor = True
         '
         '系統使用者管理
         '