20200107備份

YD-ERP-SYS/LoginForm1.Designer.vb

     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(LoginForm1))
         Me.使用者帳號_cb = New System.Windows.Forms.ComboBox()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.LogoPictureBox = New System.Windows.Forms.PictureBox()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
         Me.UPDATE_bt = New System.Windows.Forms.Button()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         CType(Me.FTP清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         Me.UPDATE_bt.Text = "UPDATE"
         Me.UPDATE_bt.UseCompatibleTextRendering = True
         '
+        'Timer1
+        '
+        Me.Timer1.Interval = 3000
+        '
         'LoginForm1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
     Friend WithEvents LogoPictureBox As Windows.Forms.PictureBox
     Friend WithEvents SaveFileDialog1 As Windows.Forms.SaveFileDialog
     Friend WithEvents UPDATE_bt As Button
+    Friend WithEvents Timer1 As Timer
 End Class

YD-ERP-SYS/LoginForm1.resx

   <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>161, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

YD-ERP-SYS/LoginForm1.vb

         ElseIf screenWidth = 1600 And screenHeight = 900 Then : Me.Location = New Point(567, 311)
         End If
         Me.ActiveControl = 使用者帳號_cb
+        Timer1.Enabled = True
+    End Sub
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         '-----------------------刪除自動更新項目-----------------------------------------------------------------------------------------------------------------------------------------------
         Dim Str As String = Application.StartupPath
         If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
+        Timer1.Enabled = False
     End Sub
     Private Sub LoginForm1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         '-----------------------伺服器登入選擇-----------------------------------------------------------------------------------------------------------------------------------------------
         If 伺服器區域_ch.Text = "雅邸" Then
             登入人IP = "180.218.213.39" : 登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
         ElseIf 伺服器區域_ch.Text = "設計" Then
-            登入人IP = "106.1.50.79" : 登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
+            登入人IP = "106.1.48.106,4567" : 登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
         End If
     End Sub
     Private Sub 登入()
         Shell(Str + "\SYS-UPDATE.exe", vbNormalFocus)
         Me.Close()
     End Sub
+    Private Sub 使用者帳號_cb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles 使用者帳號_cb.GotFocus
+        使用者帳號_cb.ImeMode = 2
+    End Sub
 End Class

YD-ERP-SYS/Module/DGV進度條.vb

+Imports System.ComponentModel
+Module DGV進度條
+    Public Class DataGridViewProgressColumn
+        Inherits DataGridViewImageColumn
+        Public Sub New()
+            Me.CellTemplate = New DataGridViewProgressCell
+        End Sub
+    End Class
+    Public Class DataGridViewProgressCell
+        Inherits DataGridViewImageCell
+        Sub New()
+            ValueType = Type.GetType("Integer")
+        End Sub
+        ' 使進度單元與默認圖像單元一致所需的方法。
+        ' 默認圖像單元將圖像作為值，儘管進度單元的值是整數。
+        Protected Overrides Function GetFormattedValue(
+            ByVal value As Object,
+            ByVal rowIndex As Integer,
+            ByRef cellStyle As DataGridViewCellStyle,
+            ByVal valueTypeConverter As TypeConverter,
+            ByVal formattedValueTypeConverter As TypeConverter,
+            ByVal context As DataGridViewDataErrorContexts) As Object
+            Static emptyImage As Bitmap = New Bitmap(1, 1, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
+            GetFormattedValue = emptyImage
+        End Function
+        Protected Overrides Sub Paint(ByVal g As System.Drawing.Graphics, ByVal clipBounds As System.Drawing.Rectangle,
+                                      ByVal cellBounds As System.Drawing.Rectangle,
+                                      ByVal rowIndex As Integer, ByVal cellState As System.Windows.Forms.DataGridViewElementStates,
+                                      ByVal value As Object, ByVal formattedValue As Object, ByVal errorText As String,
+                                      ByVal cellStyle As System.Windows.Forms.DataGridViewCellStyle,
+                                      ByVal advancedBorderStyle As System.Windows.Forms.DataGridViewAdvancedBorderStyle,
+                                      ByVal paintParts As System.Windows.Forms.DataGridViewPaintParts)
+            Dim progressVal As Double = CType(value, Double)
+            Dim percentage As Single = CType(progressVal / 分母, Single)
+            Dim backBrush As Brush = New SolidBrush(cellStyle.BackColor)
+            Dim foreBrush As Brush = New SolidBrush(cellStyle.ForeColor)
+            ' 調用基類方法來繪製默認單元格外觀。
+            MyBase.Paint(g, clipBounds, cellBounds, rowIndex, cellState,
+                value, formattedValue, errorText, cellStyle,
+                advancedBorderStyle, paintParts)
+            If percentage > 0.0 And percentage < 分段1 Then
+                ' 繪製進度條和文字
+                g.FillRectangle(New SolidBrush(Color.LightBlue), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+            ElseIf percentage > 分段2 And percentage < 分段3 Then
+                ' 繪製進度條和文字
+                g.FillRectangle(New SolidBrush(Color.LightGreen), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+            ElseIf percentage > 分段4 Then
+                ' 繪製進度條和文字
+                g.FillRectangle(New SolidBrush(Color.LightPink), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+            Else
+                '繪製文本
+                If Not Me.DataGridView.CurrentCell Is Nothing AndAlso Me.DataGridView.CurrentCell.RowIndex = rowIndex Then
+                    g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, New SolidBrush(cellStyle.SelectionForeColor), cellBounds.X + 6, cellBounds.Y + 2)
+                Else : g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2) : End If
+            End If
+        End Sub
+    End Class
+End Module

YD-ERP-SYS/Module/SQL_登入與主程式.vb

     Friend Sub SQL_物料空白修正()
         ConnOpen() : SQL1 = "UPDATE 物料資料庫 SET 進度條用空白 = '' WHERE 進度條用空白 IS NULL" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_業務單據未補()
+        ConnOpen() : SQL1 = "SELECT 單號, 開單日期 FROM 銷售控制表 WHERE (LEFT(單號, 1) LIKE '" & YD_ERP_SYS.業務_cb.Text & "') ORDER BY 單號 DESC" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_財務單據未核()
+        ConnOpen() : SQL1 = "SELECT 支付單號 FROM 公帳控制表 WHERE (審核人 LIKE '')" : CmdSet_For_DGV()
+    End Sub
 End Module

YD-ERP-SYS/Module/SQL_資料庫系統管理.vb

     Friend Sub SQL_年份清單查詢()
         ConnOpen() : SQL1 = "SELECT 年份 FROM 年份清單 WHERE 年份 LIKE '" & PA & "'" : CmdSet_For_dr()
     End Sub
-
+    Friend Sub SQL_主資料庫狀態()
+        ConnOpen()
+        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫, physical_name AS '實體檔案', type_desc AS '檔案類型', 
+                        state_desc AS '檔案狀態', size * 8.0 / 1024 AS '檔案大小(MB)'
+                FROM    sys.master_files
+                WHERE  (DB_NAME(database_id) LIKE 'YD%')
+                ORDER BY DB_NAME(database_id)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_伺服器1清單()
+        ConnOpen()
+        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫 FROM sys.master_files WHERE  (DB_NAME(database_id) LIKE 'YD-%') GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_主資料庫LOG檔案截斷()
+        ConnOpen() : SQL1 = "USE [" & PA & "]" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "ALTER DATABASE [" & PA & "]
+                             SET RECOVERY SIMPLE;" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "DBCC SHRINKFILE ([" & PA & "_Log], 1);" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "ALTER DATABASE [" & PA & "]
+                             SET RECOVERY FULL;" : CmdSet_For_dr()
+    End Sub
     '---------------------個人帳號管理-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_個人帳號管理_使用者資料查詢()
         ConnOpen() : SQL1 = "SELECT 姓名, 帳號, 密碼 FROM 使用者權限管理表 WHERE (姓名 = '" & gUserName & "')" : CmdSet_For_dr()

YD-ERP-SYS/Module/SQL_跨介面共用.vb

             If PA2 = "" Then
                 SQL2 = ""
             Else
-                SQL2 = " WHERE (BB.編號 LIKE '" & PA2 & "')"
+                SQL2 = " WHERE (供應商資料表.編號 LIKE '" & PA2 & "')"
             End If
         Else
             If PA2 = "" Then
-                SQL2 = " WHERE (BB.料號 LIKE N'" & PA & "%' OR BB.品名 LIKE N'%" & PA & "%')"
+                SQL2 = " WHERE (物料資料庫.料號 LIKE N'" & PA & "%' OR 物料資料庫.品名 LIKE N'%" & PA & "%')"
             Else
-                SQL2 = " WHERE (BB.編號 LIKE '" & PA2 & "') AND (BB.料號 LIKE N'" & PA & "%' OR BB.品名 LIKE N'%" & PA & "%')"
+                SQL2 = " WHERE (供應商資料表.編號 LIKE '" & PA2 & "') AND (物料資料庫.料號 LIKE N'" & PA & "%' OR 物料資料庫.品名 LIKE N'%" & PA & "%')"
             End If
         End If
-        SQL1 = "SELECT      RR.倉名, BB.料號, BB.供應商, BB.品名, BB.訂製, BB.狀態, RR.庫存, WW.未出庫, QQ.未入庫, BB.圖片, 
-                            BB.最低庫存量, 倉儲分區控制表.倉名 AS 倉名1, 倉儲分區控制表_4.倉名 AS 倉名2, 
-                            倉儲分區控制表_5.倉名 AS 倉名3
-                FROM              倉儲分區控制表 AS 倉儲分區控制表_4 INNER JOIN
-                                (SELECT          SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號, 
-                                                              倉儲明細表_1.物料狀態, 倉儲明細表_1.訂製狀態
-                                  FROM               倉儲明細表 AS 倉儲明細表_1 LEFT OUTER JOIN
-                                                              倉儲分區控制表 AS 倉儲分區控制表_1 ON 
-                                                              倉儲明細表_1.倉名編號 = 倉儲分區控制表_1.倉名編號
-                                  WHERE           (倉儲明細表_1.倉庫作業 LIKE '') AND (倉儲明細表_1.審核人 NOT LIKE N'作廢%') AND 
-                                                              (倉儲明細表_1.入庫 <> 0)
-                                  GROUP BY    倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號, 倉儲明細表_1.物料狀態, 倉儲明細表_1.訂製狀態) 
-                            AS QQ ON 倉儲分區控制表_4.倉名編號 = QQ.倉名編號 RIGHT OUTER JOIN
-                                (SELECT          SUM(倉儲明細表_3.入庫) - SUM(倉儲明細表_3.出庫) AS 庫存, 倉儲明細表_3.料號, 
-                                                              倉儲分區控制表_3.倉名編號, 倉儲明細表_3.物料狀態, 倉儲明細表_3.訂製狀態, 
-                                                              倉儲分區控制表_3.倉名
-                                  FROM               倉儲明細表 AS 倉儲明細表_3 LEFT OUTER JOIN
-                                                              倉儲分區控制表 AS 倉儲分區控制表_3 ON 
-                                                              倉儲明細表_3.倉名編號 = 倉儲分區控制表_3.倉名編號
-                                  WHERE           (倉儲明細表_3.審核人 NOT LIKE N'作廢%') AND (倉儲明細表_3.倉庫作業 NOT LIKE '')
-                                  GROUP BY    倉儲明細表_3.料號, 倉儲分區控制表_3.倉名編號, 倉儲明細表_3.物料狀態, 倉儲明細表_3.訂製狀態, 
-                                                              倉儲分區控制表_3.倉名) AS RR RIGHT OUTER JOIN
-                                (SELECT          供應商資料表.編號, 物料資料庫.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, 
-                                                              物料訂製狀態.訂製, 倉儲狀態.狀態, AA.物料狀態, AA.訂製狀態, 物料資料庫.是否有圖 AS 圖片, 
-                                                              物料資料庫.最低庫存量, 物料資料庫.進度條用空白, AA.倉名編號
-                                  FROM               物料訂製狀態 RIGHT OUTER JOIN
-                                                              倉儲狀態 RIGHT OUTER JOIN
-                                                                  (SELECT          料號, 物料狀態, 訂製狀態, 倉名編號
-                                                                    FROM               倉儲明細表
-                                                                    WHERE           (審核人 NOT LIKE '作廢%')
-                                                                    GROUP BY    料號, 審核人, 審核日期, 倉庫作業, 作業日期, 物料狀態, 訂製狀態, 倉名編號) AS AA ON
-                                                               倉儲狀態.編碼 = AA.物料狀態 ON 物料訂製狀態.編碼 = AA.訂製狀態 RIGHT OUTER JOIN
-                                                              供應商資料表 RIGHT OUTER JOIN
-                                                              物料資料庫 ON 供應商資料表.編號 = 物料資料庫.供應商編號 ON AA.料號 = 物料資料庫.料號
-                                  GROUP BY    供應商資料表.編號, 物料資料庫.料號, 供應商資料表.簡稱, 物料資料庫.品名, 物料訂製狀態.訂製, 
-                                                              倉儲狀態.狀態, AA.物料狀態, AA.訂製狀態, 物料資料庫.是否有圖, 物料資料庫.最低庫存量, 
-                                                              物料資料庫.進度條用空白, AA.倉名編號) AS BB ON RR.倉名編號 = BB.倉名編號 AND 
-                            RR.訂製狀態 = BB.訂製狀態 AND RR.物料狀態 = BB.物料狀態 AND RR.料號 = BB.料號 LEFT OUTER JOIN
-                            倉儲分區控制表 AS 倉儲分區控制表_5 INNER JOIN
-                                (SELECT          SUM(倉儲明細表_2.出庫) AS 未出庫, 倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號, 
-                                                              倉儲明細表_2.物料狀態, 倉儲明細表_2.訂製狀態
-                                  FROM               倉儲明細表 AS 倉儲明細表_2 LEFT OUTER JOIN
-                                                              倉儲分區控制表 AS 倉儲分區控制表_2 ON 
-                                                              倉儲明細表_2.倉名編號 = 倉儲分區控制表_2.倉名編號
-                                  WHERE           (倉儲明細表_2.倉庫作業 LIKE '') AND (倉儲明細表_2.審核人 NOT LIKE N'作廢%') AND 
-                                                              (倉儲明細表_2.出庫 <> 0)
-                                  GROUP BY    倉儲明細表_2.料號, 倉儲分區控制表_2.倉名編號, 倉儲明細表_2.物料狀態, 倉儲明細表_2.訂製狀態) 
-                            AS WW ON 倉儲分區控制表_5.倉名編號 = WW.倉名編號 ON BB.倉名編號 = WW.倉名編號 AND 
-                            BB.訂製狀態 = WW.訂製狀態 AND BB.物料狀態 = WW.物料狀態 AND BB.料號 = WW.料號 ON 
-                            QQ.倉名編號 = BB.倉名編號 AND QQ.訂製狀態 = BB.訂製狀態 AND QQ.物料狀態 = BB.物料狀態 AND 
-                            QQ.料號 = BB.料號 LEFT OUTER JOIN
-                            倉儲分區控制表 ON RR.倉名編號 = 倉儲分區控制表.倉名編號
-                " & SQL2 & "
-                ORDER BY   BB.料號"
+        SQL1 = "SELECT     物料資料庫.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, BB.庫存, AA.未出庫, 
+                           物料資料庫.是否有圖 AS 圖片, 物料資料庫.最低庫存量
+                FROM       物料資料庫 INNER JOIN
+                           供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 LEFT OUTER JOIN
+                          (SELECT          料號, SUM(入庫 - 出庫) AS 未出庫
+                           FROM               倉儲明細表
+                           WHERE           (審核人 NOT LIKE '作廢%') AND (倉庫作業 LIKE '')
+                           GROUP BY    料號) AS AA ON 物料資料庫.料號 = AA.料號 LEFT OUTER JOIN
+                          (SELECT          料號, SUM(入庫 - 出庫) AS 庫存
+                           FROM               倉儲明細表 AS 倉儲明細表_1
+                           WHERE           (審核人 NOT LIKE '作廢%')
+                           GROUP BY    料號) AS BB ON 物料資料庫.料號 = BB.料號
+                           " & SQL2 & "
+                ORDER BY   物料資料庫.料號"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_盤盈盤損申請_供應商_下拉清單()

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

 Module 全域變數
     '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public g_conn_type As String = "" : Public gUserName As String : Public 登入人職稱 As String : Public 登入人級別 As String : Public 登入人組別 As String : Public 登入人IP As String
-    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 g_conn_type, gUserName, 登入人職稱, 登入人級別, 登入人組別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 業務號碼, AA(99) As String
+    Public BB(99), CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021093001"
+    Public 版本 As String = "2021122101"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
-    Public 關鍵字編號 As String
+    Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 判斷重登 As Boolean : Public 內外網 As Boolean : Public 重登確認 As Boolean : Public 主頁開啟 As Boolean
-    Public timeExit As Integer = 0 : Public timeExit2 As Integer = 0 : Public timeNow As Integer = 0 : Public timeNow2 As Integer = 0 : Public 密碼時限 As Integer = 30
+    Public 判斷重登, 內外網, 重登確認, 主頁開啟 As Boolean
+    Public timeExit, timeExit2, timeNow, timeNow2, 分母 As Integer : Public 密碼時限 As Integer = 30
     '----全域字串變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = ""
-    Public PA6 As String = "" : Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = ""
-    Public PA12 As String = "" : Public PA13 As String = "" : Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = ""
-    Public PA18 As String = "" : Public PA19 As String = "" : Public PA20 As String = ""
-    Public PA21 As String = "" : Public PA22 As String = "" : Public PA23 As String = "" : Public PA24 As String = "" : Public PA25 As String = "" : Public PA26 As String = ""
-    Public PA27 As String = "" : Public PA28 As String = "" : Public PA29 As String = "" : Public PA30 As String = "" : Public PA31 As String = "" : Public PA32 As String = ""
-    Public PA33 As String = "" : Public PA34 As String = "" : Public PA35 As String = "" : Public PA36 As String = ""
+    Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26 As String
+    Public PA27, PA28, PA29, PA30, PA31, PA32, PA33, PA34, PA35, PA36 As String
     '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public NU1 As Double : Public NU2 As Double : Public NU3 As Double : Public NU4 As Double : Public NU5 As Double
+    Public NU1, NU2, NU3, NU4, NU5, 分段1, 分段2, 分段3, 分段4 As Double
     '----全域布林含數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public BL1 As Boolean : Public BL2 As Boolean : Public BL3 As Boolean : Public BL4 As Boolean : Public BL5 As Boolean : Public BL6 As Boolean
+    Public BL1, BL2, BL3, BL4, BL5, BL6 As Boolean
     '----介面開啟判斷-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 客戶資料強制對話框模式 As Boolean : Public 入庫選擇1 As Boolean : Public 入庫選擇2 As Boolean
+    Public 客戶資料強制對話框模式, 入庫選擇1, 入庫選擇2 As Boolean
     '----進度條計算式-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
     Public Class MyModule1

YD-ERP-SYS/YD-ERP-SYS.Designer.vb

         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(YD_ERP_SYS))
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.業績運費明細表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip = New System.Windows.Forms.MenuStrip()
         Me.FileMenu = New System.Windows.Forms.ToolStripMenuItem()
         Me.著作權_tss = New System.Windows.Forms.ToolStripStatusLabel()
         Me.執行進度_tss = New System.Windows.Forms.ToolStripStatusLabel()
         Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
+        Me.合計_TSSL = New System.Windows.Forms.ToolStripStatusLabel()
         Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
         Me.使用者_cb = New System.Windows.Forms.ComboBox()
         Me.業務_cb = New System.Windows.Forms.ComboBox()
         Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
-        Me.合計_TSSL = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.財務單據_dgv = New System.Windows.Forms.DataGridView()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.財務單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '業績運費明細表_tsm
         Me.ToolStripProgressBar1.Name = "ToolStripProgressBar1"
         Me.ToolStripProgressBar1.Size = New System.Drawing.Size(750, 16)
         '
+        '合計_TSSL
+        '
+        Me.合計_TSSL.Name = "合計_TSSL"
+        Me.合計_TSSL.Size = New System.Drawing.Size(47, 17)
+        Me.合計_TSSL.Text = "合計 : 0"
+        '
         '使用者_cb
         '
         Me.使用者_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.銷售單據_dgv.RowTemplate.Height = 24
-        Me.銷售單據_dgv.Size = New System.Drawing.Size(542, 465)
+        Me.銷售單據_dgv.Size = New System.Drawing.Size(193, 162)
         Me.銷售單據_dgv.TabIndex = 1257
         Me.銷售單據_dgv.Visible = False
         '
         '
         Me.Timer1.Interval = 1000
         '
-        '合計_TSSL
-        '
-        Me.合計_TSSL.Name = "合計_TSSL"
-        Me.合計_TSSL.Size = New System.Drawing.Size(47, 17)
-        Me.合計_TSSL.Text = "合計 : 0"
+        '財務單據_dgv
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.財務單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.財務單據_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.財務單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.財務單據_dgv.Location = New System.Drawing.Point(440, 90)
+        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))
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.財務單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.財務單據_dgv.RowTemplate.Height = 24
+        Me.財務單據_dgv.Size = New System.Drawing.Size(193, 162)
+        Me.財務單據_dgv.TabIndex = 1259
+        Me.財務單據_dgv.Visible = False
         '
         'YD_ERP_SYS
         '
         Me.BackgroundImage = Global.YD_ERP_SYS.My.Resources.Resources.底圖1
         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.ClientSize = New System.Drawing.Size(1350, 729)
+        Me.Controls.Add(Me.財務單據_dgv)
         Me.Controls.Add(Me.銷售單據_dgv)
         Me.Controls.Add(Me.業務_cb)
         Me.Controls.Add(Me.使用者_cb)
         Me.StatusStrip.ResumeLayout(False)
         Me.StatusStrip.PerformLayout()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.財務單據_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     Friend WithEvents 業績單據完單設定_tsm As ToolStripMenuItem
     Friend WithEvents 業績運費明細表_tsm As ToolStripMenuItem
     Friend WithEvents 合計_TSSL As ToolStripStatusLabel
+    Friend WithEvents 財務單據_dgv As DataGridView
 End Class

YD-ERP-SYS/YD-ERP-SYS.vb

 Imports System.Windows.Forms
 Public Class YD_ERP_SYS
     ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7 As New DataSet
-    Dim 狀態， 狀態1 As String : Dim FFGG As Integer : Dim 首次開啟 As Boolean = True
+    Dim 狀態, 狀態1, 狀態2 As String : Dim FFGG As Integer : Dim 首次開啟 As Boolean = True
     Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.Click
         ' 建立子表單的新執行個體。
         ' 將它變成這個 MDI 表單的子表單，然後才顯示。
         銷售單據_dgv.AllowUserToAddRows = False
         銷售單據_dgv.RowTemplate.Height = 25
 
-        ConnOpen()
-        SQL1 = "SELECT 單號, 開單日期 FROM 銷售控制表 WHERE (LEFT(單號, 1) LIKE '" & 業務_cb.Text & "') ORDER BY 單號 DESC"
-        CmdSet_For_DGV()
+        SQL_業務單據未補()
         da.Fill(ds1) : 銷售單據_dgv.DataSource = ds1.Tables(0) : conn.Close()
     End Sub
+    Private Sub Set_清單2()
+        財務單據_dgv.DataSource = Nothing : ds1.Clear()
+        財務單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        財務單據_dgv.ColumnHeadersHeight = 25
+        財務單據_dgv.AllowUserToAddRows = False
+        財務單據_dgv.RowTemplate.Height = 25
+
+        SQL_財務單據未核()
+        da.Fill(ds1) : 財務單據_dgv.DataSource = ds1.Tables(0) : conn.Close()
+    End Sub
     Private Sub YD_ERP_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         '----------系統登入時抬頭資訊顯示---------------------------------------------------------------------------------------------------------------
         Me.Text = "YD ERP SYS" & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :  " & 版本
         Timer1.Enabled = True
     End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
-        狀態 = "銷售單據入系統狀態" : Dim 單數 As Integer
+        狀態 = "銷售單據入系統狀態" : Dim 單數 As Integer : Set_清單2()
         For i As Integer = 0 To 業務_cb.Items.Count - 1
             業務_cb.SelectedIndex = i
             Set_清單1()
             If 銷售單據_dgv.Rows.Count > 0 Then
                 單數 = (Strings.Mid(銷售單據_dgv.Rows(0).Cells("單號").Value, 2, 6) - Strings.Mid(銷售單據_dgv.Rows(銷售單據_dgv.Rows.Count - 1).Cells("單號").Value, 2, 6)) - 銷售單據_dgv.Rows.Count
-                狀態1 = 業務_cb.Text & " 號業務單最後入單單號 [ " & 銷售單據_dgv.Rows(0).Cells("單號").Value & " ]，開單日期是 [ " & 銷售單據_dgv.Rows(0).Cells("開單日期").Value & " ]。 
-   由單號 [" & 銷售單據_dgv.Rows(銷售單據_dgv.Rows.Count - 1).Cells("單號").Value & "]  到系統中最後一單，約有 " & 單數 & " 張單據未補齊。" & vbCrLf &
-   "-------------------------------------------------------------------"
-                狀態 = 狀態 & vbCrLf &
-                           狀態1
+                Dim 天數 As Integer = DateDiff(DateInterval.Day, 銷售單據_dgv.Rows(0).Cells("開單日期").Value, Today())
+                If 單數 > 100 Or 天數 > 7 Then
+                    狀態1 = 業務_cb.Text & " 號業務單最後入單單號 [ " & 銷售單據_dgv.Rows(0).Cells("單號").Value & " ]，開單日期是 [ " & 銷售單據_dgv.Rows(0).Cells("開單日期").Value & " ]。 
+由單號 [" & 銷售單據_dgv.Rows(銷售單據_dgv.Rows.Count - 1).Cells("單號").Value & "]  到系統中最後一單，約有 " & 單數 & " 張單據未補齊。" & vbCrLf &
+"-------------------------------------------------------------------"
+                    狀態 = 狀態 & vbCrLf &
+                               狀態1
+                End If
             End If
         Next
+        狀態2 = "財務單據簽核狀態"
+        狀態 = 狀態 & vbCrLf & vbCrLf & 狀態2 & vbCrLf & "財務單據還有 [" & 財務單據_dgv.Rows.Count & "] 張未簽核!!"
+
         If 首次開啟 = True Then
             首次開啟 = False
             Dim aa1 As MsgBoxResult = MsgBox(狀態, MsgBoxStyle.OkCancel)

YD-ERP-SYS/YD-ERP-SYS.vbproj

   </ItemGroup>
   <ItemGroup>
     <Compile Include="ApplicationEvents.vb" />
+    <Compile Include="Module\DGV進度條.vb" />
     <Compile Include="Module\SQL_人事系統管理.vb" />
     <Compile Include="Module\SQL_倉儲系統管理.vb" />
     <Compile Include="Module\SQL_採購系統管理.vb" />

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

-53c57df21c94a96acbf03635a64eb5ec9304008f
+dc937bf29d1a895513a99985f75be88c433744c0

YD-ERP-SYS/倉儲系統管理/倉儲入庫.vb

 
         採購清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         資料筆數_tb.Text = 採購清單_dgv.Rows.Count
+
+        For I As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            If Val(採購清單_dgv.Rows(I).Cells("數量").Value) < 0 Then
+                採購清單_dgv.Rows(I).Cells("數量").Value = Val(採購清單_dgv.Rows(I).Cells("數量").Value) * -1
+            End If
+        Next
     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

YD-ERP-SYS/倉儲系統管理/盤盈盤損審核.Designer.vb

         Me.物料圖_pb.BackgroundImage = Global.YD_ERP_SYS.My.Resources.Resources.底圖1
         Me.物料圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.物料圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.物料圖_pb.Location = New System.Drawing.Point(6, 318)
+        Me.物料圖_pb.Location = New System.Drawing.Point(6, 430)
         Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.物料圖_pb.Name = "物料圖_pb"
-        Me.物料圖_pb.Size = New System.Drawing.Size(322, 359)
+        Me.物料圖_pb.Size = New System.Drawing.Size(322, 247)
         Me.物料圖_pb.TabIndex = 1215
         Me.物料圖_pb.TabStop = False
         '
             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(6, 81)
+        Me.物料清單_dgv.Location = New System.Drawing.Point(6, 79)
         Me.物料清單_dgv.Name = "物料清單_dgv"
         Me.物料清單_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.物料清單_dgv.RowTemplate.Height = 24
-        Me.物料清單_dgv.Size = New System.Drawing.Size(518, 235)
+        Me.物料清單_dgv.Size = New System.Drawing.Size(518, 348)
         Me.物料清單_dgv.TabIndex = 1198
         '
         '單據作廢_bt
         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(333, 318)
+        Me.區域庫存_dgv.Location = New System.Drawing.Point(258, 157)
         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.區域庫存_dgv.RowTemplate.Height = 24
         Me.區域庫存_dgv.Size = New System.Drawing.Size(191, 110)
         Me.區域庫存_dgv.TabIndex = 1264
+        Me.區域庫存_dgv.Visible = False
         '
         '字體大小調整_lb
         '

YD-ERP-SYS/倉儲系統管理/盤盈盤損審核.vb

         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         物料清單_dgv.ColumnHeadersHeight = 40
         物料清單_dgv.AllowUserToAddRows = False
-        物料清單_dgv.RowTemplate.Height = 35
-        調庫單據_dgv.RowTemplate.Height = 35
-        調庫明細_dgv.RowTemplate.Height = 35
-        區域庫存_dgv.RowTemplate.Height = 35
+        物料清單_dgv.RowTemplate.Height = 25
 
         PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
         SQL_盤盈盤損申請_物料清單()
         da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        物料清單_dgv.Columns(0).FillWeight = 80 : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 100
-        物料清單_dgv.Columns(3).FillWeight = 200 : 物料清單_dgv.Columns(4).FillWeight = 80 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50
-        物料清單_dgv.Columns(7).Visible = False : 物料清單_dgv.Columns(8).Visible = False : 物料清單_dgv.Columns(9).Visible = False : 物料清單_dgv.Columns(10).Visible = False
-        物料清單_dgv.Columns(11).Visible = False : 物料清單_dgv.Columns(12).Visible = False : 物料清單_dgv.Columns(13).Visible = False
+        物料清單_dgv.Columns(0).FillWeight = 90 : 物料清單_dgv.Columns(1).FillWeight = 100 : 物料清單_dgv.Columns(2).FillWeight = 250
+        物料清單_dgv.Columns(3).FillWeight = 60 : 物料清單_dgv.Columns(4).Visible = False
+        物料清單_dgv.Columns(5).FillWeight = 40 : 物料清單_dgv.Columns(6).Visible = False
 
-        物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True : 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True
-        物料清單_dgv.Columns(5).ReadOnly = True : 物料清單_dgv.Columns(6).ReadOnly = True : 物料清單_dgv.Columns(7).ReadOnly = True : 物料清單_dgv.Columns(8).ReadOnly = True
-        物料清單_dgv.Columns(9).ReadOnly = True : 物料清單_dgv.Columns(0).ReadOnly = True
+        物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True
+        物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True : 物料清單_dgv.Columns(5).ReadOnly = True
 
-        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 物料清單_dgv.Columns("未入庫").DefaultCellStyle.Format = "#,##0"
-        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0"
         物料清單_dgv.Columns("庫存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         物料清單_dgv.Columns("庫存").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未入庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未入庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
         資料筆數_tb.Text = 物料清單_dgv.Rows.Count
         For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
             資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
-            If 物料清單_dgv("倉名", i).Value.ToString = "" Then
-                If 物料清單_dgv("倉名1", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名1", i).Value.ToString
-                ElseIf 物料清單_dgv("倉名2", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名2", i).Value.ToString
-                ElseIf 物料清單_dgv("倉名3", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名3", i).Value.ToString
-                End If
-            End If
             If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If
-            If 物料清單_dgv("未入庫", i).Value.ToString = "" Then : 物料清單_dgv("未入庫", i).Value = 0 : End If
             If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If
-
-            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
-            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            End If
         Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
     Private Sub Set_清單2()
                     End If
                 End If : conn.Close()
 
-                指定倉庫_cb_下拉表單資料載入() : 指定倉庫_cb.Text = 物料清單_dgv("倉名", e.RowIndex).Value.ToString : Set_清單3()
-                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
-                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
-                Else
-                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
-                End If
+                指定倉庫_cb_下拉表單資料載入()
+                訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
             End If
         End If
     End Sub
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
             End If
         End If
-        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
-            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
-            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            End If
-        Next
     End Sub
     Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
         If 地區_cb.Text = "" And 查詢_tb.Text = "" Then

YD-ERP-SYS/倉儲系統管理/盤盈盤損申請.Designer.vb

         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.物料清單_dgv.RowTemplate.Height = 24
-        Me.物料清單_dgv.Size = New System.Drawing.Size(518, 235)
+        Me.物料清單_dgv.Size = New System.Drawing.Size(518, 348)
         Me.物料清單_dgv.TabIndex = 1028
         '
         '品名_tb
         Me.物料圖_pb.BackgroundImage = Global.YD_ERP_SYS.My.Resources.Resources.底圖1
         Me.物料圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.物料圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.物料圖_pb.Location = New System.Drawing.Point(4, 318)
+        Me.物料圖_pb.Location = New System.Drawing.Point(4, 430)
         Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.物料圖_pb.Name = "物料圖_pb"
-        Me.物料圖_pb.Size = New System.Drawing.Size(322, 358)
+        Me.物料圖_pb.Size = New System.Drawing.Size(322, 246)
         Me.物料圖_pb.TabIndex = 1150
         Me.物料圖_pb.TabStop = False
         '
         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(331, 318)
+        Me.區域庫存_dgv.Location = New System.Drawing.Point(244, 157)
         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.區域庫存_dgv.RowTemplate.Height = 24
         Me.區域庫存_dgv.Size = New System.Drawing.Size(191, 110)
         Me.區域庫存_dgv.TabIndex = 1200
+        Me.區域庫存_dgv.Visible = False
         '
         '字體大小調整_lb
         '

YD-ERP-SYS/倉儲系統管理/盤盈盤損申請.vb

         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         物料清單_dgv.ColumnHeadersHeight = 40
         物料清單_dgv.AllowUserToAddRows = False
-        物料清單_dgv.RowTemplate.Height = 35
-        調庫單據_dgv.RowTemplate.Height = 30
-        調庫明細_dgv.RowTemplate.Height = 30
-        區域庫存_dgv.RowTemplate.Height = 30
+        物料清單_dgv.RowTemplate.Height = 25
 
         PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
         SQL_盤盈盤損申請_物料清單()
         da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        物料清單_dgv.Columns(0).FillWeight = 80 : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 100
-        物料清單_dgv.Columns(3).FillWeight = 200 : 物料清單_dgv.Columns(4).FillWeight = 80 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50
-        物料清單_dgv.Columns(7).Visible = False : 物料清單_dgv.Columns(8).Visible = False : 物料清單_dgv.Columns(9).Visible = False : 物料清單_dgv.Columns(10).Visible = False
-        物料清單_dgv.Columns(11).Visible = False : 物料清單_dgv.Columns(12).Visible = False : 物料清單_dgv.Columns(13).Visible = False
+        物料清單_dgv.Columns(0).FillWeight = 90 : 物料清單_dgv.Columns(1).FillWeight = 100 : 物料清單_dgv.Columns(2).FillWeight = 250
+        物料清單_dgv.Columns(3).FillWeight = 60 : 物料清單_dgv.Columns(4).Visible = False
+        物料清單_dgv.Columns(5).FillWeight = 40 : 物料清單_dgv.Columns(6).Visible = False
 
-        物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True : 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True
-        物料清單_dgv.Columns(5).ReadOnly = True : 物料清單_dgv.Columns(6).ReadOnly = True : 物料清單_dgv.Columns(7).ReadOnly = True : 物料清單_dgv.Columns(8).ReadOnly = True
-        物料清單_dgv.Columns(9).ReadOnly = True : 物料清單_dgv.Columns(0).ReadOnly = True
+        物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True
+        物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True : 物料清單_dgv.Columns(5).ReadOnly = True
 
-        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 物料清單_dgv.Columns("未入庫").DefaultCellStyle.Format = "#,##0"
-        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0"
         物料清單_dgv.Columns("庫存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         物料清單_dgv.Columns("庫存").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未入庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未入庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
         資料筆數_tb.Text = 物料清單_dgv.Rows.Count
         For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
             資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
-            If 物料清單_dgv("倉名", i).Value.ToString = "" Then
-                If 物料清單_dgv("倉名1", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名1", i).Value.ToString
-                ElseIf 物料清單_dgv("倉名2", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名2", i).Value.ToString
-                ElseIf 物料清單_dgv("倉名3", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名3", i).Value.ToString
-                End If
-            End If
             If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If
-            If 物料清單_dgv("未入庫", i).Value.ToString = "" Then : 物料清單_dgv("未入庫", i).Value = 0 : End If
             If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If
-
-            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
-            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            End If
         Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
     Private Sub Set_清單2()
                 品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString : 最大庫存量_tb.Text = 物料清單_dgv("最低庫存量", e.RowIndex).Value.ToString
                 庫存量_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
                 可申請_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - Val(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
-                If 盤損數_nud.Value > Val(可申請_tb.Text) Then
-                    盤損數_nud.Value = 0
-                End If
+
                 物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖()
                 If dr.Read() Then
                     If dr("是否有圖") = True Then
                     End If
                 End If : conn.Close()
 
-                指定倉庫_cb_下拉表單資料載入() : 指定倉庫_cb.Text = 物料清單_dgv("倉名", e.RowIndex).Value.ToString : Set_清單3()
-                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
-                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
-                Else
-                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
-                End If
+                指定倉庫_cb_下拉表單資料載入()
+                訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
             End If
         End If
     End Sub
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
             End If
         End If
-        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
-            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
-            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            End If
-        Next
     End Sub
     Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
         If 地區_cb.Text = "" And 查詢_tb.Text = "" Then

YD-ERP-SYS/採購系統管理/一般申請_採購單.Designer.vb

         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(334, 319)
+        Me.區域庫存_dgv.Location = New System.Drawing.Point(44, 241)
         Me.區域庫存_dgv.Name = "區域庫存_dgv"
         Me.區域庫存_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.區域庫存_dgv.RowTemplate.Height = 24
         Me.區域庫存_dgv.Size = New System.Drawing.Size(191, 108)
         Me.區域庫存_dgv.TabIndex = 1265
+        Me.區域庫存_dgv.Visible = False
         '
         '採購單價_nud
         '
         DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.物料清單_dgv.RowTemplate.Height = 24
-        Me.物料清單_dgv.Size = New System.Drawing.Size(518, 235)
+        Me.物料清單_dgv.Size = New System.Drawing.Size(518, 346)
         Me.物料清單_dgv.TabIndex = 1201
         '
         '需要全部庫存區域清單_ch
         Me.物料圖_pb.BackgroundImage = Global.YD_ERP_SYS.My.Resources.Resources.底圖1
         Me.物料圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.物料圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.物料圖_pb.Location = New System.Drawing.Point(7, 319)
+        Me.物料圖_pb.Location = New System.Drawing.Point(7, 429)
         Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.物料圖_pb.Name = "物料圖_pb"
-        Me.物料圖_pb.Size = New System.Drawing.Size(322, 358)
+        Me.物料圖_pb.Size = New System.Drawing.Size(322, 248)
         Me.物料圖_pb.TabIndex = 1218
         Me.物料圖_pb.TabStop = False
         '

YD-ERP-SYS/採購系統管理/一般申請_採購單.vb

         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         物料清單_dgv.ColumnHeadersHeight = 40
         物料清單_dgv.AllowUserToAddRows = False
-        物料清單_dgv.RowTemplate.Height = 35
+        物料清單_dgv.RowTemplate.Height = 25
 
         PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
         SQL_盤盈盤損申請_物料清單()
         da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        物料清單_dgv.Columns(0).FillWeight = 80 : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 100
-        物料清單_dgv.Columns(3).FillWeight = 200 : 物料清單_dgv.Columns(4).FillWeight = 80 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50
-        物料清單_dgv.Columns(7).Visible = False : 物料清單_dgv.Columns(8).Visible = False : 物料清單_dgv.Columns(9).Visible = False : 物料清單_dgv.Columns(10).Visible = False
-        物料清單_dgv.Columns(11).Visible = False : 物料清單_dgv.Columns(12).Visible = False : 物料清單_dgv.Columns(13).Visible = False
+        物料清單_dgv.Columns(0).FillWeight = 90 : 物料清單_dgv.Columns(1).FillWeight = 100 : 物料清單_dgv.Columns(2).FillWeight = 250
+        物料清單_dgv.Columns(3).FillWeight = 60 : 物料清單_dgv.Columns(4).Visible = False
+        物料清單_dgv.Columns(5).FillWeight = 40 : 物料清單_dgv.Columns(6).Visible = False
 
-        物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True : 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True
-        物料清單_dgv.Columns(5).ReadOnly = True : 物料清單_dgv.Columns(6).ReadOnly = True : 物料清單_dgv.Columns(7).ReadOnly = True : 物料清單_dgv.Columns(8).ReadOnly = True
-        物料清單_dgv.Columns(9).ReadOnly = True : 物料清單_dgv.Columns(0).ReadOnly = True
+        物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True
+        物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True : 物料清單_dgv.Columns(5).ReadOnly = True
 
-        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 物料清單_dgv.Columns("未入庫").DefaultCellStyle.Format = "#,##0"
-        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0"
         物料清單_dgv.Columns("庫存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         物料清單_dgv.Columns("庫存").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未入庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未入庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
         資料筆數_tb.Text = 物料清單_dgv.Rows.Count
         For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
             資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
-            If 物料清單_dgv("倉名", i).Value.ToString = "" Then
-                If 物料清單_dgv("倉名1", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名1", i).Value.ToString
-                ElseIf 物料清單_dgv("倉名2", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名2", i).Value.ToString
-                ElseIf 物料清單_dgv("倉名3", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名3", i).Value.ToString
-                End If
-            End If
             If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If
-            If 物料清單_dgv("未入庫", i).Value.ToString = "" Then : 物料清單_dgv("未入庫", i).Value = 0 : End If
             If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If
-
-            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
-            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            End If
         Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
     Private Sub Set_清單1()
     Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
         If 首次開啟 = True Then
             If e.RowIndex = -1 Then : Else
-                料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = Strings.Left(物料清單_dgv("料號", e.RowIndex).Value.ToString, 4)
+                料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = 物料清單_dgv("供應商", e.RowIndex).Value.ToString
                 品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString : 最大庫存量_tb.Text = 物料清單_dgv("最低庫存量", e.RowIndex).Value.ToString
                 庫存量_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
                 可申請_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - Val(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
                     End If
                 End If : conn.Close()
 
-                指定倉庫_cb_下拉表單資料載入() : 指定倉庫_cb.Text = 物料清單_dgv("倉名", e.RowIndex).Value.ToString : Set_清單3()
-                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
-                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
-                Else
-                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
-                End If
-
-                採購單價_nud.Value = 0
-                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
-                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
-                Else
-                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
-                    If 訂製編碼_cb.Text = "MA0001" Then
-                        PA12 = 料號_tb.Text
-                        SQL_銷售明細表_成本讀取()
-                        If dr.Read() Then : 採購單價_nud.Value = dr("成本")
-                        Else : 採購單價_nud.Value = 0
-                        End If : conn.Close()
-                    Else
-                        採購單價_nud.Value = 0
-                    End If
-                End If
+                指定倉庫_cb_下拉表單資料載入()
+                訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
             End If
         End If
     End Sub
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
             End If
         End If
-        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
-            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
-            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            End If
-        Next
     End Sub
+
     Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
         If e.Data.GetDataPresent(DataFormats.FileDrop) Then
             Dim files As String()

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

         Me.單據核准_bt = New System.Windows.Forms.Button()
         Me.單據作廢_bt = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.刷卡可刪除_ch = New System.Windows.Forms.CheckBox()
         Me.Reset1_bt = New System.Windows.Forms.Button()
         Me.刪除衍生運費_bt = New System.Windows.Forms.Button()
         Me.新增衍生運費_bt = New System.Windows.Forms.Button()
         Me.運費資料流水號_tb = New System.Windows.Forms.TextBox()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.顯示_bt = New System.Windows.Forms.Button()
-        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(326, 317)
+        Me.區域庫存_dgv.Location = New System.Drawing.Point(219, 160)
         Me.區域庫存_dgv.Name = "區域庫存_dgv"
         Me.區域庫存_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.區域庫存_dgv.RowTemplate.Height = 24
         Me.區域庫存_dgv.Size = New System.Drawing.Size(191, 90)
         Me.區域庫存_dgv.TabIndex = 1323
+        Me.區域庫存_dgv.Visible = False
         '
         '成本_nud
         '
             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(2, 79)
+        Me.物料清單_dgv.Location = New System.Drawing.Point(2, 77)
         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))
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.物料清單_dgv.RowTemplate.Height = 24
-        Me.物料清單_dgv.Size = New System.Drawing.Size(515, 235)
+        Me.物料清單_dgv.Size = New System.Drawing.Size(515, 330)
         Me.物料清單_dgv.TabIndex = 1283
         '
         '需要全部庫存區域清單_ch
         Me.Panel1.Size = New System.Drawing.Size(922, 495)
         Me.Panel1.TabIndex = 1331
         '
+        '刷卡可刪除_ch
+        '
+        Me.刷卡可刪除_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.刷卡可刪除_ch.AutoSize = True
+        Me.刷卡可刪除_ch.Location = New System.Drawing.Point(531, 652)
+        Me.刷卡可刪除_ch.Name = "刷卡可刪除_ch"
+        Me.刷卡可刪除_ch.Size = New System.Drawing.Size(87, 20)
+        Me.刷卡可刪除_ch.TabIndex = 1368
+        Me.刷卡可刪除_ch.Text = "刷卡可刪除"
+        Me.刷卡可刪除_ch.TextAlign = System.Drawing.ContentAlignment.BottomRight
+        Me.刷卡可刪除_ch.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        Me.刷卡可刪除_ch.UseVisualStyleBackColor = True
+        '
         'Reset1_bt
         '
         Me.Reset1_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         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, 11396)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 11681)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         '
         Me.銷售收款流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.銷售收款流水號_tb.Enabled = False
-        Me.銷售收款流水號_tb.Location = New System.Drawing.Point(43, 472)
+        Me.銷售收款流水號_tb.Location = New System.Drawing.Point(43, 545)
         Me.銷售收款流水號_tb.Name = "銷售收款流水號_tb"
         Me.銷售收款流水號_tb.Size = New System.Drawing.Size(165, 23)
         Me.銷售收款流水號_tb.TabIndex = 1288
         '
         Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label37.AutoSize = True
-        Me.Label37.Location = New System.Drawing.Point(46, 456)
+        Me.Label37.Location = New System.Drawing.Point(46, 529)
         Me.Label37.Name = "Label37"
         Me.Label37.Size = New System.Drawing.Size(92, 16)
         Me.Label37.TabIndex = 1289
         '
         Me.銷售備註流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.銷售備註流水號_tb.Enabled = False
-        Me.銷售備註流水號_tb.Location = New System.Drawing.Point(43, 433)
+        Me.銷售備註流水號_tb.Location = New System.Drawing.Point(43, 506)
         Me.銷售備註流水號_tb.Name = "銷售備註流水號_tb"
         Me.銷售備註流水號_tb.Size = New System.Drawing.Size(165, 23)
         Me.銷售備註流水號_tb.TabIndex = 1266
         '
         Me.倉儲資料流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.倉儲資料流水號_tb.Enabled = False
-        Me.倉儲資料流水號_tb.Location = New System.Drawing.Point(43, 394)
+        Me.倉儲資料流水號_tb.Location = New System.Drawing.Point(43, 467)
         Me.倉儲資料流水號_tb.Name = "倉儲資料流水號_tb"
         Me.倉儲資料流水號_tb.Size = New System.Drawing.Size(165, 23)
         Me.倉儲資料流水號_tb.TabIndex = 1259
         'Label24
         '
         Me.Label24.AutoSize = True
-        Me.Label24.Location = New System.Drawing.Point(46, 378)
+        Me.Label24.Location = New System.Drawing.Point(46, 451)
         Me.Label24.Name = "Label24"
         Me.Label24.Size = New System.Drawing.Size(92, 16)
         Me.Label24.TabIndex = 1260
         '銷售資料流水號_tb
         '
         Me.銷售資料流水號_tb.Enabled = False
-        Me.銷售資料流水號_tb.Location = New System.Drawing.Point(43, 355)
+        Me.銷售資料流水號_tb.Location = New System.Drawing.Point(43, 428)
         Me.銷售資料流水號_tb.Name = "銷售資料流水號_tb"
         Me.銷售資料流水號_tb.Size = New System.Drawing.Size(165, 23)
         Me.銷售資料流水號_tb.TabIndex = 1257
         '
         Me.Label27.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label27.AutoSize = True
-        Me.Label27.Location = New System.Drawing.Point(46, 418)
+        Me.Label27.Location = New System.Drawing.Point(46, 491)
         Me.Label27.Name = "Label27"
         Me.Label27.Size = New System.Drawing.Size(92, 16)
         Me.Label27.TabIndex = 1267
         'Label23
         '
         Me.Label23.AutoSize = True
-        Me.Label23.Location = New System.Drawing.Point(46, 340)
+        Me.Label23.Location = New System.Drawing.Point(46, 413)
         Me.Label23.Name = "Label23"
         Me.Label23.Size = New System.Drawing.Size(92, 16)
         Me.Label23.TabIndex = 1258
         Me.物料圖_pb.BackgroundImage = Global.YD_ERP_SYS.My.Resources.Resources.底圖1
         Me.物料圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.物料圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.物料圖_pb.Location = New System.Drawing.Point(2, 317)
+        Me.物料圖_pb.Location = New System.Drawing.Point(2, 408)
         Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.物料圖_pb.Name = "物料圖_pb"
-        Me.物料圖_pb.Size = New System.Drawing.Size(318, 354)
+        Me.物料圖_pb.Size = New System.Drawing.Size(318, 263)
         Me.物料圖_pb.TabIndex = 1300
         Me.物料圖_pb.TabStop = False
         '
         Me.最低售價_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.最低售價_cb.FormattingEnabled = True
         Me.最低售價_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "Y"})
-        Me.最低售價_cb.Location = New System.Drawing.Point(98, 527)
+        Me.最低售價_cb.Location = New System.Drawing.Point(98, 600)
         Me.最低售價_cb.Name = "最低售價_cb"
         Me.最低售價_cb.Size = New System.Drawing.Size(110, 24)
         Me.最低售價_cb.TabIndex = 1303
         Me.最低運費_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.最低運費_cb.FormattingEnabled = True
         Me.最低運費_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "Y"})
-        Me.最低運費_cb.Location = New System.Drawing.Point(98, 501)
+        Me.最低運費_cb.Location = New System.Drawing.Point(98, 574)
         Me.最低運費_cb.Name = "最低運費_cb"
         Me.最低運費_cb.Size = New System.Drawing.Size(110, 24)
         Me.最低運費_cb.TabIndex = 1302
         Me.Panel2.Controls.Add(Me.隱藏_bt)
         Me.Panel2.Controls.Add(Me.Label14)
         Me.Panel2.Controls.Add(Me.Label23)
-        Me.Panel2.Controls.Add(Me.物料清單_dgv)
         Me.Panel2.Controls.Add(Me.最低售價_cb)
         Me.Panel2.Controls.Add(Me.Label27)
         Me.Panel2.Controls.Add(Me.地區_cb)
         Me.Panel2.Controls.Add(Me.成本_nud)
         Me.Panel2.Controls.Add(Me.品名_tb)
         Me.Panel2.Controls.Add(Me.盤損數_lb)
-        Me.Panel2.Controls.Add(Me.供應商編碼_tb)
         Me.Panel2.Controls.Add(Me.可申請_tb)
         Me.Panel2.Controls.Add(Me.指定倉庫_lb)
         Me.Panel2.Controls.Add(Me.最大庫存量_tb)
         Me.Panel2.Controls.Add(Me.Label18)
         Me.Panel2.Controls.Add(Me.需要全部庫存區域清單_ch)
         Me.Panel2.Controls.Add(Me.物料圖_pb)
+        Me.Panel2.Controls.Add(Me.物料清單_dgv)
+        Me.Panel2.Controls.Add(Me.供應商編碼_tb)
         Me.Panel2.Location = New System.Drawing.Point(2, 2)
         Me.Panel2.Name = "Panel2"
         Me.Panel2.Size = New System.Drawing.Size(523, 676)
         '
         Me.Label50.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label50.AutoSize = True
-        Me.Label50.Location = New System.Drawing.Point(46, 558)
+        Me.Label50.Location = New System.Drawing.Point(46, 631)
         Me.Label50.Name = "Label50"
         Me.Label50.Size = New System.Drawing.Size(92, 16)
         Me.Label50.TabIndex = 1338
         '
         Me.運費資料流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.運費資料流水號_tb.Enabled = False
-        Me.運費資料流水號_tb.Location = New System.Drawing.Point(43, 573)
+        Me.運費資料流水號_tb.Location = New System.Drawing.Point(43, 646)
         Me.運費資料流水號_tb.Name = "運費資料流水號_tb"
         Me.運費資料流水號_tb.Size = New System.Drawing.Size(165, 23)
         Me.運費資料流水號_tb.TabIndex = 1337
         Me.顯示_bt.Text = "顯示物料控件"
         Me.顯示_bt.UseVisualStyleBackColor = True
         '
-        '刷卡可刪除_ch
-        '
-        Me.刷卡可刪除_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.刷卡可刪除_ch.AutoSize = True
-        Me.刷卡可刪除_ch.Location = New System.Drawing.Point(531, 652)
-        Me.刷卡可刪除_ch.Name = "刷卡可刪除_ch"
-        Me.刷卡可刪除_ch.Size = New System.Drawing.Size(87, 20)
-        Me.刷卡可刪除_ch.TabIndex = 1368
-        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!)

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

         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         物料清單_dgv.ColumnHeadersHeight = 40
         物料清單_dgv.AllowUserToAddRows = False
-        物料清單_dgv.RowTemplate.Height = 35
+        物料清單_dgv.RowTemplate.Height = 25
 
         PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
         SQL_盤盈盤損申請_物料清單()
         da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        物料清單_dgv.Columns(0).FillWeight = 80 : 物料清單_dgv.Columns(1).FillWeight = 100 : 物料清單_dgv.Columns(2).FillWeight = 100
-        物料清單_dgv.Columns(3).FillWeight = 200 : 物料清單_dgv.Columns(4).FillWeight = 80 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50
-        物料清單_dgv.Columns(7).Visible = False : 物料清單_dgv.Columns(8).Visible = False : 物料清單_dgv.Columns(9).Visible = False : 物料清單_dgv.Columns(10).Visible = False
-        物料清單_dgv.Columns(11).Visible = False : 物料清單_dgv.Columns(12).Visible = False : 物料清單_dgv.Columns(13).Visible = False
+        物料清單_dgv.Columns(0).FillWeight = 90 : 物料清單_dgv.Columns(1).FillWeight = 100 : 物料清單_dgv.Columns(2).FillWeight = 250
+        物料清單_dgv.Columns(3).FillWeight = 60 : 物料清單_dgv.Columns(4).Visible = False
+        物料清單_dgv.Columns(5).FillWeight = 40 : 物料清單_dgv.Columns(6).Visible = False
 
-        物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True : 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True
-        物料清單_dgv.Columns(5).ReadOnly = True : 物料清單_dgv.Columns(6).ReadOnly = True : 物料清單_dgv.Columns(7).ReadOnly = True : 物料清單_dgv.Columns(8).ReadOnly = True
-        物料清單_dgv.Columns(9).ReadOnly = True : 物料清單_dgv.Columns(0).ReadOnly = True
+        物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True
+        物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True : 物料清單_dgv.Columns(5).ReadOnly = True
 
-        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 物料清單_dgv.Columns("未入庫").DefaultCellStyle.Format = "#,##0"
-        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0"
         物料清單_dgv.Columns("庫存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         物料清單_dgv.Columns("庫存").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未入庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未入庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
         資料筆數_tb.Text = 物料清單_dgv.Rows.Count
         For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
             資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
-            If 物料清單_dgv("倉名", i).Value.ToString = "" Then
-                If 物料清單_dgv("倉名1", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名1", i).Value.ToString
-                ElseIf 物料清單_dgv("倉名2", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名2", i).Value.ToString
-                ElseIf 物料清單_dgv("倉名3", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名3", i).Value.ToString
-                End If
-            End If
             If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If
-            If 物料清單_dgv("未入庫", i).Value.ToString = "" Then : 物料清單_dgv("未入庫", i).Value = 0 : End If
             If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If
-
-            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
-            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            End If
         Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
     Private Sub Set_清單1()
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
+                    If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                    If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
+                If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
                     End If
                 End If : conn.Close()
 
-                指定倉庫_cb_下拉表單資料載入() : 指定倉庫_cb.Text = 物料清單_dgv("倉名", e.RowIndex).Value.ToString : Set_清單3()
+                指定倉庫_cb_下拉表單資料載入()
                 成本_nud.Value = 0
-                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
-                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
-                Else
-                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
-                    If 訂製編碼_cb.Text = "MA0001" Then
-                        PA12 = 料號_tb.Text
-                        SQL_銷售明細表_成本讀取()
-                        If dr.Read() Then : 成本_nud.Value = dr("成本")
-                        Else : 成本_nud.Value = 0
-                        End If : conn.Close()
-                    Else
-                        成本_nud.Value = 0
-                    End If
-                End If
+                訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+                PA12 = 料號_tb.Text
+                SQL_銷售明細表_成本讀取()
+                If dr.Read() Then : 成本_nud.Value = dr("成本")
+                Else : 成本_nud.Value = 0
+                End If : conn.Close()
             End If
         End If
     End Sub
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
             End If
         End If
-        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
-            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
-            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            End If
-        Next
     End Sub
     Private Sub 窄間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
         小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False
                 ElseIf 含稅_ch.Checked = True Then : 銷售明細_dgv("含稅", i).Value = True
                 End If
                 If 銷售明細_dgv("含稅", i).Value = False Then
+                    If IsDBNull(銷售明細_dgv("售價", i).Value) = True Then : 銷售明細_dgv("售價", i).Value = "0" : End If
+                    If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                     銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value
                 ElseIf 銷售明細_dgv("含稅", i).Value = True Then
+                    If IsDBNull(銷售明細_dgv("售價", i).Value) = True Then : 銷售明細_dgv("售價", i).Value = "0" : End If
+                    If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                     銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
                 End If
             Next
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
+                    If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                    If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
+                If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
+                If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
+                    If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                    If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
+                If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
+                If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If

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

         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
         Me.新增衍生運費_bt = New System.Windows.Forms.Button()
         Me.項次4_tb = New System.Windows.Forms.TextBox()
         Me.Label49 = New System.Windows.Forms.Label()
-        Me.銷售衍生運費_dgv = New System.Windows.Forms.DataGridView()
         Me.刷卡可刪除_ch = New System.Windows.Forms.CheckBox()
         Me.通知_lb = New System.Windows.Forms.Label()
         Me.刷卡總和_tb = New System.Windows.Forms.TextBox()
         Me.Label20 = New System.Windows.Forms.Label()
         Me.Label39 = New System.Windows.Forms.Label()
         Me.Label40 = New System.Windows.Forms.Label()
-        Me.銷售備註_dgv = New System.Windows.Forms.DataGridView()
         Me.Label51 = New System.Windows.Forms.Label()
+        Me.銷售衍生運費_dgv = New System.Windows.Forms.DataGridView()
+        Me.銷售備註_dgv = New System.Windows.Forms.DataGridView()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.最低售價_cb = New System.Windows.Forms.ComboBox()
         CType(Me.物料清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.售價_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
-        CType(Me.銷售衍生運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.客戶資料_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.收款事項_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.銷售衍生運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.銷售備註_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.物料圖_pb, 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(329, 319)
+        Me.區域庫存_dgv.Location = New System.Drawing.Point(202, 151)
         Me.區域庫存_dgv.Name = "區域庫存_dgv"
         Me.區域庫存_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.區域庫存_dgv.RowTemplate.Height = 24
         Me.區域庫存_dgv.Size = New System.Drawing.Size(191, 85)
         Me.區域庫存_dgv.TabIndex = 1245
+        Me.區域庫存_dgv.Visible = False
         '
         '成本_nud
         '
         Me.訂購數量_nud.ForeColor = System.Drawing.Color.Green
         Me.訂購數量_nud.Location = New System.Drawing.Point(400, 571)
         Me.訂購數量_nud.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
+        Me.訂購數量_nud.Minimum = New Decimal(New Integer() {10000, 0, 0, -2147483648})
         Me.訂購數量_nud.Name = "訂購數量_nud"
         Me.訂購數量_nud.Size = New System.Drawing.Size(118, 23)
         Me.訂購數量_nud.TabIndex = 1235
             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(2, 81)
+        Me.物料清單_dgv.Location = New System.Drawing.Point(2, 79)
         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))
         DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.物料清單_dgv.RowTemplate.Height = 24
-        Me.物料清單_dgv.Size = New System.Drawing.Size(518, 235)
+        Me.物料清單_dgv.Size = New System.Drawing.Size(518, 326)
         Me.物料清單_dgv.TabIndex = 1205
         '
         '需要全部庫存區域清單_ch
         '
         Me.需要全部庫存區域清單_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.需要全部庫存區域清單_ch.AutoSize = True
+        Me.需要全部庫存區域清單_ch.Checked = True
+        Me.需要全部庫存區域清單_ch.CheckState = System.Windows.Forms.CheckState.Checked
         Me.需要全部庫存區域清單_ch.Location = New System.Drawing.Point(351, 430)
         Me.需要全部庫存區域清單_ch.Name = "需要全部庫存區域清單_ch"
         Me.需要全部庫存區域清單_ch.Size = New System.Drawing.Size(147, 20)
         Me.Label49.TabIndex = 1336
         Me.Label49.Text = "項次"
         '
-        '銷售衍生運費_dgv
-        '
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.銷售衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
-        Me.銷售衍生運費_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), 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(3, 542)
-        Me.銷售衍生運費_dgv.Name = "銷售衍生運費_dgv"
-        Me.銷售衍生運費_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
-        Me.銷售衍生運費_dgv.RowTemplate.Height = 24
-        Me.銷售衍生運費_dgv.Size = New System.Drawing.Size(725, 102)
-        Me.銷售衍生運費_dgv.TabIndex = 1334
-        '
         '刷卡可刪除_ch
         '
         Me.刷卡可刪除_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         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, 14326)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 14874)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label40.TabIndex = 1298
         Me.Label40.Text = "--------------------------------"
         '
+        'Label51
+        '
+        Me.Label51.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label51.AutoSize = True
+        Me.Label51.Location = New System.Drawing.Point(733, 457)
+        Me.Label51.Name = "Label51"
+        Me.Label51.Size = New System.Drawing.Size(168, 16)
+        Me.Label51.TabIndex = 1365
+        Me.Label51.Text = "--------------------------------"
+        '
+        '銷售衍生運費_dgv
+        '
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.銷售衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        Me.銷售衍生運費_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), 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(3, 542)
+        Me.銷售衍生運費_dgv.Name = "銷售衍生運費_dgv"
+        Me.銷售衍生運費_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
+        Me.銷售衍生運費_dgv.RowTemplate.Height = 24
+        Me.銷售衍生運費_dgv.Size = New System.Drawing.Size(725, 102)
+        Me.銷售衍生運費_dgv.TabIndex = 1334
+        '
         '銷售備註_dgv
         '
         DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.銷售備註_dgv.Size = New System.Drawing.Size(725, 102)
         Me.銷售備註_dgv.TabIndex = 1250
         '
-        'Label51
-        '
-        Me.Label51.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label51.AutoSize = True
-        Me.Label51.Location = New System.Drawing.Point(733, 457)
-        Me.Label51.Name = "Label51"
-        Me.Label51.Size = New System.Drawing.Size(168, 16)
-        Me.Label51.TabIndex = 1365
-        Me.Label51.Text = "--------------------------------"
-        '
         '字體大小調整_lb
         '
         Me.字體大小調整_lb.AutoSize = True
         Me.最低售價_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.最低售價_cb.FormattingEnabled = True
         Me.最低售價_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "Y"})
-        Me.最低售價_cb.Location = New System.Drawing.Point(83, 582)
+        Me.最低售價_cb.Location = New System.Drawing.Point(86, 638)
         Me.最低售價_cb.Name = "最低售價_cb"
         Me.最低售價_cb.Size = New System.Drawing.Size(110, 24)
         Me.最低售價_cb.TabIndex = 1294
         Me.最低運費_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.最低運費_cb.FormattingEnabled = True
         Me.最低運費_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "Y"})
-        Me.最低運費_cb.Location = New System.Drawing.Point(83, 556)
+        Me.最低運費_cb.Location = New System.Drawing.Point(86, 612)
         Me.最低運費_cb.Name = "最低運費_cb"
         Me.最低運費_cb.Size = New System.Drawing.Size(110, 24)
         Me.最低運費_cb.TabIndex = 1293
         '
         Me.銷售收款流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.銷售收款流水號_tb.Enabled = False
-        Me.銷售收款流水號_tb.Location = New System.Drawing.Point(28, 527)
+        Me.銷售收款流水號_tb.Location = New System.Drawing.Point(31, 583)
         Me.銷售收款流水號_tb.Name = "銷售收款流水號_tb"
         Me.銷售收款流水號_tb.Size = New System.Drawing.Size(165, 23)
         Me.銷售收款流水號_tb.TabIndex = 1288
         '
         Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label37.AutoSize = True
-        Me.Label37.Location = New System.Drawing.Point(31, 511)
+        Me.Label37.Location = New System.Drawing.Point(34, 567)
         Me.Label37.Name = "Label37"
         Me.Label37.Size = New System.Drawing.Size(92, 16)
         Me.Label37.TabIndex = 1289
         '
         Me.銷售備註流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.銷售備註流水號_tb.Enabled = False
-        Me.銷售備註流水號_tb.Location = New System.Drawing.Point(28, 488)
+        Me.銷售備註流水號_tb.Location = New System.Drawing.Point(31, 544)
         Me.銷售備註流水號_tb.Name = "銷售備註流水號_tb"
         Me.銷售備註流水號_tb.Size = New System.Drawing.Size(165, 23)
         Me.銷售備註流水號_tb.TabIndex = 1266
         '
         Me.倉儲資料流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.倉儲資料流水號_tb.Enabled = False
-        Me.倉儲資料流水號_tb.Location = New System.Drawing.Point(28, 449)
+        Me.倉儲資料流水號_tb.Location = New System.Drawing.Point(31, 505)
         Me.倉儲資料流水號_tb.Name = "倉儲資料流水號_tb"
         Me.倉儲資料流水號_tb.Size = New System.Drawing.Size(165, 23)
         Me.倉儲資料流水號_tb.TabIndex = 1259
         '
         Me.Label24.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label24.AutoSize = True
-        Me.Label24.Location = New System.Drawing.Point(31, 433)
+        Me.Label24.Location = New System.Drawing.Point(34, 489)
         Me.Label24.Name = "Label24"
         Me.Label24.Size = New System.Drawing.Size(92, 16)
         Me.Label24.TabIndex = 1260
         '
         Me.銷售資料流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.銷售資料流水號_tb.Enabled = False
-        Me.銷售資料流水號_tb.Location = New System.Drawing.Point(28, 410)
+        Me.銷售資料流水號_tb.Location = New System.Drawing.Point(31, 466)
         Me.銷售資料流水號_tb.Name = "銷售資料流水號_tb"
         Me.銷售資料流水號_tb.Size = New System.Drawing.Size(165, 23)
         Me.銷售資料流水號_tb.TabIndex = 1257
         '
         Me.Label27.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label27.AutoSize = True
-        Me.Label27.Location = New System.Drawing.Point(31, 473)
+        Me.Label27.Location = New System.Drawing.Point(34, 529)
         Me.Label27.Name = "Label27"
         Me.Label27.Size = New System.Drawing.Size(92, 16)
         Me.Label27.TabIndex = 1267
         '
         Me.Label23.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label23.AutoSize = True
-        Me.Label23.Location = New System.Drawing.Point(31, 395)
+        Me.Label23.Location = New System.Drawing.Point(34, 451)
         Me.Label23.Name = "Label23"
         Me.Label23.Size = New System.Drawing.Size(92, 16)
         Me.Label23.TabIndex = 1258
         Me.物料圖_pb.BackgroundImage = Global.YD_ERP_SYS.My.Resources.Resources.底圖1
         Me.物料圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.物料圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.物料圖_pb.Location = New System.Drawing.Point(2, 320)
+        Me.物料圖_pb.Location = New System.Drawing.Point(2, 406)
         Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.物料圖_pb.Name = "物料圖_pb"
-        Me.物料圖_pb.Size = New System.Drawing.Size(319, 348)
+        Me.物料圖_pb.Size = New System.Drawing.Size(319, 262)
         Me.物料圖_pb.TabIndex = 1222
         Me.物料圖_pb.TabStop = False
         '
         Me.Panel2.Controls.Add(Me.Label27)
         Me.Panel2.Controls.Add(Me.銷售收款流水號_tb)
         Me.Panel2.Controls.Add(Me.最低售價_cb)
-        Me.Panel2.Controls.Add(Me.物料清單_dgv)
         Me.Panel2.Controls.Add(Me.地區_cb)
         Me.Panel2.Controls.Add(Me.最低運費_cb)
         Me.Panel2.Controls.Add(Me.清空_bt)
         Me.Panel2.Controls.Add(Me.訂購數量_nud)
         Me.Panel2.Controls.Add(Me.Label24)
         Me.Panel2.Controls.Add(Me.盤盈數_lb)
-        Me.Panel2.Controls.Add(Me.供應商編碼_tb)
         Me.Panel2.Controls.Add(Me.庫存量_lb)
         Me.Panel2.Controls.Add(Me.倉儲資料流水號_tb)
         Me.Panel2.Controls.Add(Me.最大庫存量_lb)
         Me.Panel2.Controls.Add(Me.Label29)
         Me.Panel2.Controls.Add(Me.需要全部庫存區域清單_ch)
         Me.Panel2.Controls.Add(Me.物料圖_pb)
+        Me.Panel2.Controls.Add(Me.物料清單_dgv)
+        Me.Panel2.Controls.Add(Me.供應商編碼_tb)
         Me.Panel2.Location = New System.Drawing.Point(2, 2)
         Me.Panel2.Name = "Panel2"
         Me.Panel2.Size = New System.Drawing.Size(528, 675)
         '
         Me.Label50.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label50.AutoSize = True
-        Me.Label50.Location = New System.Drawing.Point(31, 357)
+        Me.Label50.Location = New System.Drawing.Point(34, 413)
         Me.Label50.Name = "Label50"
         Me.Label50.Size = New System.Drawing.Size(92, 16)
         Me.Label50.TabIndex = 1297
         '
         Me.運費資料流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.運費資料流水號_tb.Enabled = False
-        Me.運費資料流水號_tb.Location = New System.Drawing.Point(28, 372)
+        Me.運費資料流水號_tb.Location = New System.Drawing.Point(31, 428)
         Me.運費資料流水號_tb.Name = "運費資料流水號_tb"
         Me.運費資料流水號_tb.Size = New System.Drawing.Size(165, 23)
         Me.運費資料流水號_tb.TabIndex = 1296
         CType(Me.售價_nud, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
-        CType(Me.銷售衍生運費_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.客戶資料_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.收款事項_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.銷售衍生運費_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.銷售備註_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).EndInit()

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

         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         物料清單_dgv.ColumnHeadersHeight = 40
         物料清單_dgv.AllowUserToAddRows = False
-        物料清單_dgv.RowTemplate.Height = 35
+        物料清單_dgv.RowTemplate.Height = 25
 
         PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
         SQL_盤盈盤損申請_物料清單()
         da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        物料清單_dgv.Columns(0).FillWeight = 80 : 物料清單_dgv.Columns(1).FillWeight = 90 : 物料清單_dgv.Columns(2).FillWeight = 100
-        物料清單_dgv.Columns(3).FillWeight = 200 : 物料清單_dgv.Columns(4).FillWeight = 80 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50
-        物料清單_dgv.Columns(7).Visible = False : 物料清單_dgv.Columns(8).Visible = False : 物料清單_dgv.Columns(9).Visible = False : 物料清單_dgv.Columns(10).Visible = False
-        物料清單_dgv.Columns(11).Visible = False : 物料清單_dgv.Columns(12).Visible = False : 物料清單_dgv.Columns(13).Visible = False
+        物料清單_dgv.Columns(0).FillWeight = 90 : 物料清單_dgv.Columns(1).FillWeight = 100 : 物料清單_dgv.Columns(2).FillWeight = 250
+        物料清單_dgv.Columns(3).FillWeight = 60 : 物料清單_dgv.Columns(4).Visible = False
+        物料清單_dgv.Columns(5).FillWeight = 40 : 物料清單_dgv.Columns(6).Visible = False
 
-        物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True : 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True
-        物料清單_dgv.Columns(5).ReadOnly = True : 物料清單_dgv.Columns(6).ReadOnly = True : 物料清單_dgv.Columns(7).ReadOnly = True : 物料清單_dgv.Columns(8).ReadOnly = True
-        物料清單_dgv.Columns(9).ReadOnly = True : 物料清單_dgv.Columns(0).ReadOnly = True
+        物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True
+        物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True : 物料清單_dgv.Columns(5).ReadOnly = True
 
-        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 物料清單_dgv.Columns("未入庫").DefaultCellStyle.Format = "#,##0"
-        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Format = "#,##0"
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0"
         物料清單_dgv.Columns("庫存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         物料清單_dgv.Columns("庫存").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未入庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未入庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-        物料清單_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
         資料筆數_tb.Text = 物料清單_dgv.Rows.Count
         For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
             資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
-            If 物料清單_dgv("倉名", i).Value.ToString = "" Then
-                If 物料清單_dgv("倉名1", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名1", i).Value.ToString
-                ElseIf 物料清單_dgv("倉名2", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名2", i).Value.ToString
-                ElseIf 物料清單_dgv("倉名3", i).Value.ToString <> "" Then
-                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名3", i).Value.ToString
-                End If
-            End If
             If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If
-            If 物料清單_dgv("未入庫", i).Value.ToString = "" Then : 物料清單_dgv("未入庫", i).Value = 0 : End If
             If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If
-
-            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
-            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            End If
         Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
     Private Sub Set_清單1()
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
+                    If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                    If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
+                If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
+                If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
         If e.RowIndex = -1 Then : Else
             For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
                 If 銷售明細_dgv("含稅", i).Value = False Then
+                    If IsDBNull(銷售明細_dgv("售價", i).Value) = True Then : 銷售明細_dgv("售價", i).Value = "0" : End If
+                    If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                     銷售明細_dgv("單價", i).Value = 銷售明細_dgv("售價", i).Value / 銷售明細_dgv("數量", i).Value
                 ElseIf 銷售明細_dgv("含稅", i).Value = True Then
+                    If IsDBNull(銷售明細_dgv("售價", i).Value) = True Then : 銷售明細_dgv("售價", i).Value = "0" : End If
+                    If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                     銷售明細_dgv("單價", i).Value = (銷售明細_dgv("售價", i).Value / 1.05) / 銷售明細_dgv("數量", i).Value
                 End If
 
                     End If
                 End If : conn.Close()
 
-                指定倉庫_cb_下拉表單資料載入() : 指定倉庫_cb.Text = 物料清單_dgv("倉名", e.RowIndex).Value.ToString : Set_清單3()
+                指定倉庫_cb_下拉表單資料載入()
                 成本_nud.Value = 0
-                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
-                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
-                Else
-                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
-                    If 訂製編碼_cb.Text = "MA0001" Then
-                        PA12 = 料號_tb.Text
-                        SQL_銷售明細表_成本讀取()
-                        If dr.Read() Then : 成本_nud.Value = dr("成本")
-                        Else : 成本_nud.Value = 0
-                        End If : conn.Close()
-                    Else
-                        成本_nud.Value = 0
-                    End If
-                End If
+                訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+                PA12 = 料號_tb.Text
+                SQL_銷售明細表_成本讀取()
+                If dr.Read() Then : 成本_nud.Value = dr("成本")
+                Else : 成本_nud.Value = 0
+                End If : conn.Close()
             End If
         End If
     End Sub
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
             End If
         End If
-        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
-            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
-            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
-                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
-            End If
-        Next
     End Sub
     Private Sub 窄間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
         小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False
                 ElseIf 含稅_ch.Checked = True Then : 銷售明細_dgv("含稅", i).Value = True
                 End If
                 If 銷售明細_dgv("含稅", i).Value = False Then
+                    If IsDBNull(銷售明細_dgv("售價", i).Value) = True Then : 銷售明細_dgv("售價", i).Value = "0" : End If
+                    If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                     銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value
                 ElseIf 銷售明細_dgv("含稅", i).Value = True Then
+                    If IsDBNull(銷售明細_dgv("售價", i).Value) = True Then : 銷售明細_dgv("售價", i).Value = "0" : End If
+                    If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                     銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05
                 End If
             Next
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
+                    If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                    If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
+                If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
+                If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
             售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
+                    If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                    If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
+                If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                 物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
+                If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
+                If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
                 其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If

YD-ERP-SYS/財務系統管理/財務_收支單一覽表.Designer.vb

     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.會計月_ch = New System.Windows.Forms.CheckBox()
         Me.下個月_bt = New System.Windows.Forms.Button()
         Me.上個月_bt = New System.Windows.Forms.Button()
         Me.會計月_ch.AutoSize = True
         Me.會計月_ch.Checked = True
         Me.會計月_ch.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.會計月_ch.Location = New System.Drawing.Point(43, 58)
+        Me.會計月_ch.Location = New System.Drawing.Point(30, 54)
         Me.會計月_ch.Name = "會計月_ch"
         Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
         Me.會計月_ch.TabIndex = 1222
         '
         Me.下個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.下個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.下個月_bt.Location = New System.Drawing.Point(274, 56)
+        Me.下個月_bt.Location = New System.Drawing.Point(261, 52)
         Me.下個月_bt.Name = "下個月_bt"
         Me.下個月_bt.Size = New System.Drawing.Size(57, 23)
         Me.下個月_bt.TabIndex = 1221
         '
         Me.上個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.上個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.上個月_bt.Location = New System.Drawing.Point(216, 56)
+        Me.上個月_bt.Location = New System.Drawing.Point(203, 52)
         Me.上個月_bt.Name = "上個月_bt"
         Me.上個月_bt.Size = New System.Drawing.Size(57, 23)
         Me.上個月_bt.TabIndex = 1220
         '
         Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
         Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.中間日期_dtp.Location = New System.Drawing.Point(39, 100)
+        Me.中間日期_dtp.Location = New System.Drawing.Point(26, 100)
         Me.中間日期_dtp.Name = "中間日期_dtp"
         Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23)
         Me.中間日期_dtp.TabIndex = 1219
         '一般月_ch
         '
         Me.一般月_ch.AutoSize = True
-        Me.一般月_ch.Location = New System.Drawing.Point(135, 58)
+        Me.一般月_ch.Location = New System.Drawing.Point(122, 54)
         Me.一般月_ch.Name = "一般月_ch"
         Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
         Me.一般月_ch.TabIndex = 1223
         '
         Me.Label2.AutoSize = True
         Me.Label2.ForeColor = System.Drawing.Color.Red
-        Me.Label2.Location = New System.Drawing.Point(504, 59)
+        Me.Label2.Location = New System.Drawing.Point(494, 59)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(32, 16)
         Me.Label2.TabIndex = 1217
         '人民幣零用金_tb
         '
         Me.人民幣零用金_tb.ForeColor = System.Drawing.Color.Red
-        Me.人民幣零用金_tb.Location = New System.Drawing.Point(417, 56)
+        Me.人民幣零用金_tb.Location = New System.Drawing.Point(407, 56)
         Me.人民幣零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.人民幣零用金_tb.Name = "人民幣零用金_tb"
         Me.人民幣零用金_tb.Size = New System.Drawing.Size(85, 23)
         '
         Me.人民幣零用金_.AutoSize = True
         Me.人民幣零用金_.ForeColor = System.Drawing.Color.Red
-        Me.人民幣零用金_.Location = New System.Drawing.Point(333, 60)
+        Me.人民幣零用金_.Location = New System.Drawing.Point(323, 60)
         Me.人民幣零用金_.Name = "人民幣零用金_"
         Me.人民幣零用金_.Size = New System.Drawing.Size(85, 16)
         Me.人民幣零用金_.TabIndex = 1215
         '人民幣支票_tb
         '
         Me.人民幣支票_tb.ForeColor = System.Drawing.Color.Red
-        Me.人民幣支票_tb.Location = New System.Drawing.Point(537, 56)
+        Me.人民幣支票_tb.Location = New System.Drawing.Point(527, 56)
         Me.人民幣支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.人民幣支票_tb.Name = "人民幣支票_tb"
         Me.人民幣支票_tb.Size = New System.Drawing.Size(85, 23)
         '人民幣現金餘額_tb
         '
         Me.人民幣現金餘額_tb.ForeColor = System.Drawing.Color.Red
-        Me.人民幣現金餘額_tb.Location = New System.Drawing.Point(895, 56)
+        Me.人民幣現金餘額_tb.Location = New System.Drawing.Point(885, 56)
         Me.人民幣現金餘額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.人民幣現金餘額_tb.Name = "人民幣現金餘額_tb"
         Me.人民幣現金餘額_tb.Size = New System.Drawing.Size(113, 23)
         '
         Me.Label13.AutoSize = True
         Me.Label13.ForeColor = System.Drawing.Color.Red
-        Me.Label13.Location = New System.Drawing.Point(863, 60)
+        Me.Label13.Location = New System.Drawing.Point(853, 60)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(32, 16)
         Me.Label13.TabIndex = 1213
         '人民幣支出_tb
         '
         Me.人民幣支出_tb.ForeColor = System.Drawing.Color.Red
-        Me.人民幣支出_tb.Location = New System.Drawing.Point(776, 56)
+        Me.人民幣支出_tb.Location = New System.Drawing.Point(766, 56)
         Me.人民幣支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.人民幣支出_tb.Name = "人民幣支出_tb"
         Me.人民幣支出_tb.Size = New System.Drawing.Size(85, 23)
         '
         Me.Label16.AutoSize = True
         Me.Label16.ForeColor = System.Drawing.Color.Red
-        Me.Label16.Location = New System.Drawing.Point(744, 59)
+        Me.Label16.Location = New System.Drawing.Point(734, 59)
         Me.Label16.Name = "Label16"
         Me.Label16.Size = New System.Drawing.Size(32, 16)
         Me.Label16.TabIndex = 1211
         '人民幣現金_tb
         '
         Me.人民幣現金_tb.ForeColor = System.Drawing.Color.Red
-        Me.人民幣現金_tb.Location = New System.Drawing.Point(657, 56)
+        Me.人民幣現金_tb.Location = New System.Drawing.Point(647, 56)
         Me.人民幣現金_tb.Name = "人民幣現金_tb"
         Me.人民幣現金_tb.Size = New System.Drawing.Size(85, 23)
         Me.人民幣現金_tb.TabIndex = 1210
         '
         Me.Label17.AutoSize = True
         Me.Label17.ForeColor = System.Drawing.Color.Red
-        Me.Label17.Location = New System.Drawing.Point(624, 59)
+        Me.Label17.Location = New System.Drawing.Point(614, 59)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(32, 16)
         Me.Label17.TabIndex = 1209
         '
         Me.圖片編碼_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.圖片編碼_tb.ForeColor = System.Drawing.Color.Blue
-        Me.圖片編碼_tb.Location = New System.Drawing.Point(203, 596)
+        Me.圖片編碼_tb.Location = New System.Drawing.Point(190, 605)
         Me.圖片編碼_tb.Name = "圖片編碼_tb"
         Me.圖片編碼_tb.Size = New System.Drawing.Size(128, 23)
         Me.圖片編碼_tb.TabIndex = 1208
         '
         Me.驗證碼_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.驗證碼_tb.ForeColor = System.Drawing.Color.Blue
-        Me.驗證碼_tb.Location = New System.Drawing.Point(204, 572)
+        Me.驗證碼_tb.Location = New System.Drawing.Point(191, 581)
         Me.驗證碼_tb.Name = "驗證碼_tb"
         Me.驗證碼_tb.Size = New System.Drawing.Size(127, 23)
         Me.驗證碼_tb.TabIndex = 1207
         Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label20.AutoSize = True
         Me.Label20.ForeColor = System.Drawing.Color.Blue
-        Me.Label20.Location = New System.Drawing.Point(147, 599)
+        Me.Label20.Location = New System.Drawing.Point(134, 608)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(56, 16)
         Me.Label20.TabIndex = 1206
         Me.Label19.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label19.AutoSize = True
         Me.Label19.ForeColor = System.Drawing.Color.Blue
-        Me.Label19.Location = New System.Drawing.Point(147, 575)
+        Me.Label19.Location = New System.Drawing.Point(134, 584)
         Me.Label19.Name = "Label19"
         Me.Label19.Size = New System.Drawing.Size(44, 16)
         Me.Label19.TabIndex = 1205
         Me.簽名圖_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.簽名圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.簽名圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.簽名圖_pb.Location = New System.Drawing.Point(15, 572)
+        Me.簽名圖_pb.Location = New System.Drawing.Point(2, 581)
         Me.簽名圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.簽名圖_pb.Name = "簽名圖_pb"
         Me.簽名圖_pb.Size = New System.Drawing.Size(129, 47)
         '彙總_rb
         '
         Me.彙總_rb.AutoSize = True
-        Me.彙總_rb.Location = New System.Drawing.Point(278, 7)
+        Me.彙總_rb.Location = New System.Drawing.Point(265, 3)
         Me.彙總_rb.Name = "彙總_rb"
         Me.彙總_rb.Size = New System.Drawing.Size(50, 20)
         Me.彙總_rb.TabIndex = 1203
         '明細_rb
         '
         Me.明細_rb.AutoSize = True
-        Me.明細_rb.Location = New System.Drawing.Point(222, 7)
+        Me.明細_rb.Location = New System.Drawing.Point(209, 3)
         Me.明細_rb.Name = "明細_rb"
         Me.明細_rb.Size = New System.Drawing.Size(50, 20)
         Me.明細_rb.TabIndex = 1202
         '
         Me.Label14.AutoSize = True
         Me.Label14.ForeColor = System.Drawing.Color.Green
-        Me.Label14.Location = New System.Drawing.Point(504, 33)
+        Me.Label14.Location = New System.Drawing.Point(494, 33)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(32, 16)
         Me.Label14.TabIndex = 1200
         '台幣零用金_tb
         '
         Me.台幣零用金_tb.ForeColor = System.Drawing.Color.Green
-        Me.台幣零用金_tb.Location = New System.Drawing.Point(417, 30)
+        Me.台幣零用金_tb.Location = New System.Drawing.Point(407, 30)
         Me.台幣零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.台幣零用金_tb.Name = "台幣零用金_tb"
         Me.台幣零用金_tb.Size = New System.Drawing.Size(85, 23)
         '
         Me.Label15.AutoSize = True
         Me.Label15.ForeColor = System.Drawing.Color.Green
-        Me.Label15.Location = New System.Drawing.Point(339, 34)
+        Me.Label15.Location = New System.Drawing.Point(329, 34)
         Me.Label15.Name = "Label15"
         Me.Label15.Size = New System.Drawing.Size(79, 16)
         Me.Label15.TabIndex = 1198
         '台幣支票_tb
         '
         Me.台幣支票_tb.ForeColor = System.Drawing.Color.Green
-        Me.台幣支票_tb.Location = New System.Drawing.Point(537, 30)
+        Me.台幣支票_tb.Location = New System.Drawing.Point(527, 30)
         Me.台幣支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.台幣支票_tb.Name = "台幣支票_tb"
         Me.台幣支票_tb.Size = New System.Drawing.Size(85, 23)
         '台幣現金餘額_tb
         '
         Me.台幣現金餘額_tb.ForeColor = System.Drawing.Color.Green
-        Me.台幣現金餘額_tb.Location = New System.Drawing.Point(895, 30)
+        Me.台幣現金餘額_tb.Location = New System.Drawing.Point(885, 30)
         Me.台幣現金餘額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.台幣現金餘額_tb.Name = "台幣現金餘額_tb"
         Me.台幣現金餘額_tb.Size = New System.Drawing.Size(113, 23)
         '
         Me.Label9.AutoSize = True
         Me.Label9.ForeColor = System.Drawing.Color.Green
-        Me.Label9.Location = New System.Drawing.Point(863, 34)
+        Me.Label9.Location = New System.Drawing.Point(853, 34)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(32, 16)
         Me.Label9.TabIndex = 1196
         '台幣支出_tb
         '
         Me.台幣支出_tb.ForeColor = System.Drawing.Color.Green
-        Me.台幣支出_tb.Location = New System.Drawing.Point(776, 30)
+        Me.台幣支出_tb.Location = New System.Drawing.Point(766, 30)
         Me.台幣支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.台幣支出_tb.Name = "台幣支出_tb"
         Me.台幣支出_tb.Size = New System.Drawing.Size(85, 23)
         '
         Me.Label11.AutoSize = True
         Me.Label11.ForeColor = System.Drawing.Color.Green
-        Me.Label11.Location = New System.Drawing.Point(745, 33)
+        Me.Label11.Location = New System.Drawing.Point(735, 33)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(32, 16)
         Me.Label11.TabIndex = 1194
         '
         Me.當月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.當月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.當月_bt.Location = New System.Drawing.Point(286, 29)
+        Me.當月_bt.Location = New System.Drawing.Point(273, 25)
         Me.當月_bt.Name = "當月_bt"
         Me.當月_bt.Size = New System.Drawing.Size(45, 25)
         Me.當月_bt.TabIndex = 1193
         '
         Me.當日_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.當日_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.當日_bt.Location = New System.Drawing.Point(232, 29)
+        Me.當日_bt.Location = New System.Drawing.Point(219, 25)
         Me.當日_bt.Name = "當日_bt"
         Me.當日_bt.Size = New System.Drawing.Size(45, 25)
         Me.當日_bt.TabIndex = 1192
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(112, 34)
+        Me.Label4.Location = New System.Drawing.Point(99, 30)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(20, 16)
         Me.Label4.TabIndex = 1191
         '結束日期_dtp
         '
         Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.結束日期_dtp.Location = New System.Drawing.Point(135, 30)
+        Me.結束日期_dtp.Location = New System.Drawing.Point(122, 26)
         Me.結束日期_dtp.Name = "結束日期_dtp"
         Me.結束日期_dtp.Size = New System.Drawing.Size(91, 23)
         Me.結束日期_dtp.TabIndex = 1190
         '開始日期_dtp
         '
         Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.開始日期_dtp.Location = New System.Drawing.Point(15, 30)
+        Me.開始日期_dtp.Location = New System.Drawing.Point(2, 26)
         Me.開始日期_dtp.Name = "開始日期_dtp"
         Me.開始日期_dtp.Size = New System.Drawing.Size(91, 23)
         Me.開始日期_dtp.TabIndex = 1189
         '台幣現金_tb
         '
         Me.台幣現金_tb.ForeColor = System.Drawing.Color.Green
-        Me.台幣現金_tb.Location = New System.Drawing.Point(657, 30)
+        Me.台幣現金_tb.Location = New System.Drawing.Point(647, 30)
         Me.台幣現金_tb.Name = "台幣現金_tb"
         Me.台幣現金_tb.Size = New System.Drawing.Size(85, 23)
         Me.台幣現金_tb.TabIndex = 1188
         '
         Me.Label10.AutoSize = True
         Me.Label10.ForeColor = System.Drawing.Color.Green
-        Me.Label10.Location = New System.Drawing.Point(625, 33)
+        Me.Label10.Location = New System.Drawing.Point(615, 33)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(32, 16)
         Me.Label10.TabIndex = 1187
         '
         Me.支付單列印成EXCEL.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.支付單列印成EXCEL.ForeColor = System.Drawing.Color.Blue
-        Me.支付單列印成EXCEL.Location = New System.Drawing.Point(1010, 29)
+        Me.支付單列印成EXCEL.Location = New System.Drawing.Point(1000, 29)
         Me.支付單列印成EXCEL.Name = "支付單列印成EXCEL"
         Me.支付單列印成EXCEL.Size = New System.Drawing.Size(79, 51)
         Me.支付單列印成EXCEL.TabIndex = 1186
         '
         Me.Label8.AutoSize = True
         Me.Label8.ForeColor = System.Drawing.Color.Blue
-        Me.Label8.Location = New System.Drawing.Point(957, 7)
+        Me.Label8.Location = New System.Drawing.Point(947, 7)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(32, 16)
         Me.Label8.TabIndex = 1185
         '
         Me.Label7.AutoSize = True
         Me.Label7.ForeColor = System.Drawing.Color.Blue
-        Me.Label7.Location = New System.Drawing.Point(697, 7)
+        Me.Label7.Location = New System.Drawing.Point(687, 7)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(32, 16)
         Me.Label7.TabIndex = 1184
         '審核日期_dtp
         '
         Me.審核日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.審核日期_dtp.Location = New System.Drawing.Point(989, 4)
+        Me.審核日期_dtp.Location = New System.Drawing.Point(979, 4)
         Me.審核日期_dtp.Name = "審核日期_dtp"
         Me.審核日期_dtp.Size = New System.Drawing.Size(99, 23)
         Me.審核日期_dtp.TabIndex = 1183
         '申請日期_dtp
         '
         Me.申請日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.申請日期_dtp.Location = New System.Drawing.Point(729, 4)
+        Me.申請日期_dtp.Location = New System.Drawing.Point(719, 4)
         Me.申請日期_dtp.Name = "申請日期_dtp"
         Me.申請日期_dtp.Size = New System.Drawing.Size(99, 23)
         Me.申請日期_dtp.TabIndex = 1182
         '
         Me.Label5.AutoSize = True
         Me.Label5.ForeColor = System.Drawing.Color.Blue
-        Me.Label5.Location = New System.Drawing.Point(834, 7)
+        Me.Label5.Location = New System.Drawing.Point(824, 7)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(44, 16)
         Me.Label5.TabIndex = 1181
         '審核人_tb
         '
         Me.審核人_tb.ForeColor = System.Drawing.Color.Blue
-        Me.審核人_tb.Location = New System.Drawing.Point(878, 4)
+        Me.審核人_tb.Location = New System.Drawing.Point(868, 4)
         Me.審核人_tb.Name = "審核人_tb"
         Me.審核人_tb.Size = New System.Drawing.Size(74, 23)
         Me.審核人_tb.TabIndex = 1180
         '申請人_tb
         '
         Me.申請人_tb.ForeColor = System.Drawing.Color.Blue
-        Me.申請人_tb.Location = New System.Drawing.Point(617, 4)
+        Me.申請人_tb.Location = New System.Drawing.Point(607, 4)
         Me.申請人_tb.Name = "申請人_tb"
         Me.申請人_tb.Size = New System.Drawing.Size(74, 23)
         Me.申請人_tb.TabIndex = 1177
         '收支單號_tb
         '
         Me.收支單號_tb.ForeColor = System.Drawing.Color.Blue
-        Me.收支單號_tb.Location = New System.Drawing.Point(417, 4)
+        Me.收支單號_tb.Location = New System.Drawing.Point(407, 4)
         Me.收支單號_tb.Name = "收支單號_tb"
         Me.收支單號_tb.Size = New System.Drawing.Size(150, 23)
         Me.收支單號_tb.TabIndex = 1175
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(12, 9)
+        Me.Label6.Location = New System.Drawing.Point(-1, 5)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(140, 16)
         Me.Label6.TabIndex = 1174
         '
         '單據彙總_dgv
         '
-        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
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.單據彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         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.單據彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.單據彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.單據彙總_dgv.Location = New System.Drawing.Point(16, 82)
+        Me.單據彙總_dgv.Location = New System.Drawing.Point(3, 78)
         Me.單據彙總_dgv.Name = "單據彙總_dgv"
         Me.單據彙總_dgv.RowHeadersWidth = 5
         Me.單據彙總_dgv.RowTemplate.Height = 24
-        Me.單據彙總_dgv.Size = New System.Drawing.Size(315, 483)
+        Me.單據彙總_dgv.Size = New System.Drawing.Size(315, 499)
         Me.單據彙總_dgv.TabIndex = 1173
         '
         'Label1
         '
         Me.Label1.AutoSize = True
         Me.Label1.ForeColor = System.Drawing.Color.Blue
-        Me.Label1.Location = New System.Drawing.Point(336, 7)
+        Me.Label1.Location = New System.Drawing.Point(326, 7)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(80, 16)
         Me.Label1.TabIndex = 1176
         '
         Me.Label3.AutoSize = True
         Me.Label3.ForeColor = System.Drawing.Color.Blue
-        Me.Label3.Location = New System.Drawing.Point(573, 7)
+        Me.Label3.Location = New System.Drawing.Point(563, 7)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(44, 16)
         Me.Label3.TabIndex = 1178
         '
         '明細_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
         Me.明細_dgv.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.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.明細_dgv.Location = New System.Drawing.Point(342, 82)
+        Me.明細_dgv.Location = New System.Drawing.Point(321, 82)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle19
         Me.明細_dgv.RowTemplate.Height = 24
-        Me.明細_dgv.Size = New System.Drawing.Size(1045, 537)
+        Me.明細_dgv.Size = New System.Drawing.Size(1075, 546)
         Me.明細_dgv.TabIndex = 1179
         '
         '財務彙總_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.財務彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.財務彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
         Me.財務彙總_dgv.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.財務彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.財務彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.財務彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.財務彙總_dgv.Location = New System.Drawing.Point(342, 82)
+        Me.財務彙總_dgv.Location = New System.Drawing.Point(321, 82)
         Me.財務彙總_dgv.Name = "財務彙總_dgv"
         Me.財務彙總_dgv.RowHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.None
         Me.財務彙總_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.財務彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.財務彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle21
         Me.財務彙總_dgv.RowTemplate.Height = 24
-        Me.財務彙總_dgv.Size = New System.Drawing.Size(1045, 537)
+        Me.財務彙總_dgv.Size = New System.Drawing.Size(1075, 546)
         Me.財務彙總_dgv.TabIndex = 1224
         '
         '字體大小調整_lb
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1153, 58)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1143, 58)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
         Me.字體大小調整_lb.TabIndex = 1495
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.字體_NUD.DecimalPlaces = 1
         Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
-        Me.字體_NUD.Location = New System.Drawing.Point(1214, 55)
+        Me.字體_NUD.Location = New System.Drawing.Point(1204, 55)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
         '非稅_ch
         '
         Me.非稅_ch.AutoSize = True
-        Me.非稅_ch.Location = New System.Drawing.Point(1096, 56)
+        Me.非稅_ch.Location = New System.Drawing.Point(1086, 56)
         Me.非稅_ch.Name = "非稅_ch"
         Me.非稅_ch.Size = New System.Drawing.Size(51, 20)
         Me.非稅_ch.TabIndex = 1498
         '含稅_ch
         '
         Me.含稅_ch.AutoSize = True
-        Me.含稅_ch.Location = New System.Drawing.Point(1095, 30)
+        Me.含稅_ch.Location = New System.Drawing.Point(1085, 30)
         Me.含稅_ch.Name = "含稅_ch"
         Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
         Me.含稅_ch.TabIndex = 1497
         Me.全部_ch.AutoSize = True
         Me.全部_ch.Checked = True
         Me.全部_ch.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.全部_ch.Location = New System.Drawing.Point(1095, 4)
+        Me.全部_ch.Location = New System.Drawing.Point(1085, 4)
         Me.全部_ch.Name = "全部_ch"
         Me.全部_ch.Size = New System.Drawing.Size(51, 20)
         Me.全部_ch.TabIndex = 1496
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1399, 631)
+        Me.Controls.Add(Me.單據彙總_dgv)
         Me.Controls.Add(Me.非稅_ch)
         Me.Controls.Add(Me.含稅_ch)
         Me.Controls.Add(Me.全部_ch)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.單據彙總_dgv)
         Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.財務彙總_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.ForeColor = System.Drawing.Color.CornflowerBlue
+        Me.ForeColor = System.Drawing.Color.Black
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "財務_收支單一覽表"
         Me.Text = "財務收支單一覽表"

YD-ERP-SYS/財務系統管理/財務_收支單一覽表.vb

                 人民幣支票_tb.Text = Val(人民幣支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
             End If
         Next i
-        台幣現金餘額_tb.Text = Val(台幣零用金_tb.Text) + Val(台幣現金_tb.Text) - Val(台幣支出_tb.Text) : 人民幣現金餘額_tb.Text = Val(人民幣零用金_tb.Text) + Val(人民幣現金_tb.Text) - Val(人民幣支出_tb.Text)
+        台幣現金餘額_tb.Text = Val(台幣零用金_tb.Text) + Val(台幣現金_tb.Text) - Val(台幣支出_tb.Text)
+        人民幣現金餘額_tb.Text = Val(人民幣零用金_tb.Text) + Val(人民幣現金_tb.Text) - Val(人民幣支出_tb.Text)
         If Val(台幣現金餘額_tb.Text) > 0 Then : 台幣現金餘額_tb.ForeColor = Color.Blue : Else : 台幣現金餘額_tb.ForeColor = Color.Red : End If
         If Val(人民幣現金餘額_tb.Text) > 0 Then : 人民幣現金餘額_tb.ForeColor = Color.Blue : Else : 台幣現金餘額_tb.ForeColor = Color.Red : End If
-        台幣現金_tb.Text = Strings.Format(Val(台幣現金_tb.Text), "#,##0.00") : 台幣支出_tb.Text = Strings.Format(Val(台幣支出_tb.Text), "#,##0.00") : 台幣現金餘額_tb.Text = Strings.Format(Val(台幣現金餘額_tb.Text), "#,##0.00")
+        台幣現金_tb.Text = Strings.Format(Val(台幣現金_tb.Text), "#,##0.00") : 台幣支出_tb.Text = Strings.Format(Val(台幣支出_tb.Text), "#,##0.00")
+        台幣現金餘額_tb.Text = Strings.Format(Val(台幣現金餘額_tb.Text), "#,##0.00")
         台幣零用金_tb.Text = Strings.Format(Val(台幣零用金_tb.Text), "#,##0.00") : 台幣支票_tb.Text = Strings.Format(Val(台幣支票_tb.Text), "#,##0.00")
-        人民幣零用金_tb.Text = Strings.Format(Val(人民幣零用金_tb.Text), "#,##0.00") : 人民幣支票_tb.Text = Strings.Format(Val(人民幣支票_tb.Text), "#,##0.00") : 人民幣現金_tb.Text = Strings.Format(Val(人民幣現金_tb.Text), "#,##0.00")
+        人民幣零用金_tb.Text = Strings.Format(Val(人民幣零用金_tb.Text), "#,##0.00") : 人民幣支票_tb.Text = Strings.Format(Val(人民幣支票_tb.Text), "#,##0.00")
+        人民幣現金_tb.Text = Strings.Format(Val(人民幣現金_tb.Text), "#,##0.00")
         人民幣支出_tb.Text = Strings.Format(Val(人民幣支出_tb.Text), "#,##0.00") : 人民幣現金餘額_tb.Text = Strings.Format(Val(人民幣現金餘額_tb.Text), "#,##0.00")
     End Sub
     Private Sub 日期格式()
             台幣現金餘額_tb.Text = Val(台幣零用金_tb.Text) + Val(台幣現金_tb.Text) - Val(台幣支出_tb.Text) : 人民幣現金餘額_tb.Text = Val(人民幣零用金_tb.Text) + Val(人民幣現金_tb.Text) - Val(人民幣支出_tb.Text)
             If Val(台幣現金餘額_tb.Text) > 0 Then : 台幣現金餘額_tb.ForeColor = Color.Blue : Else : 台幣現金餘額_tb.ForeColor = Color.Red : End If
             If Val(人民幣現金餘額_tb.Text) > 0 Then : 人民幣現金餘額_tb.ForeColor = Color.Blue : Else : 台幣現金餘額_tb.ForeColor = Color.Red : End If
-            台幣現金_tb.Text = Strings.Format(Val(台幣現金_tb.Text), "#,##0.00") : 台幣支出_tb.Text = Strings.Format(Val(台幣支出_tb.Text), "#,##0.00") : 台幣現金餘額_tb.Text = Strings.Format(Val(台幣現金餘額_tb.Text), "#,##0.00")
+            台幣現金_tb.Text = Strings.Format(Val(台幣現金_tb.Text), "#,##0.00") : 台幣支出_tb.Text = Strings.Format(Val(台幣支出_tb.Text), "#,##0.00")
+            台幣現金餘額_tb.Text = Strings.Format(Val(台幣現金餘額_tb.Text), "#,##0.00")
             台幣零用金_tb.Text = Strings.Format(Val(台幣零用金_tb.Text), "#,##0.00") : 台幣支票_tb.Text = Strings.Format(Val(台幣支票_tb.Text), "#,##0.00")
-            人民幣零用金_tb.Text = Strings.Format(Val(人民幣零用金_tb.Text), "#,##0.00") : 人民幣支票_tb.Text = Strings.Format(Val(人民幣支票_tb.Text), "#,##0.00") : 人民幣現金_tb.Text = Strings.Format(Val(人民幣現金_tb.Text), "#,##0.00")
+            人民幣零用金_tb.Text = Strings.Format(Val(人民幣零用金_tb.Text), "#,##0.00") : 人民幣支票_tb.Text = Strings.Format(Val(人民幣支票_tb.Text), "#,##0.00")
+            人民幣現金_tb.Text = Strings.Format(Val(人民幣現金_tb.Text), "#,##0.00")
             人民幣支出_tb.Text = Strings.Format(Val(人民幣支出_tb.Text), "#,##0.00") : 人民幣現金餘額_tb.Text = Strings.Format(Val(人民幣現金餘額_tb.Text), "#,##0.00")
         End If
     End Sub

YD-ERP-SYS/資料庫系統管理/系統編碼規則.Designer.vb

     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.Label3 = New System.Windows.Forms.Label()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
         Me.級別修改_bt = New System.Windows.Forms.Button()
         Me.級別_cb = New System.Windows.Forms.ComboBox()
         Me.年份_tb = New System.Windows.Forms.TextBox()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.伺服器狀態2_dgv = New System.Windows.Forms.DataGridView()
+        Me.LOG檔截斷3_bt = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.重新讀取_bt = New System.Windows.Forms.Button()
+        Me.伺服器_lb = New System.Windows.Forms.Label()
+        Me.MAX_nud = New System.Windows.Forms.NumericUpDown()
+        Me.資料庫清單1_dgv = New System.Windows.Forms.DataGridView()
         Me.GroupBox2.SuspendLayout()
         CType(Me.職稱_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox6.SuspendLayout()
         CType(Me.年份_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.伺服器狀態2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MAX_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.資料庫清單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label3.ForeColor = System.Drawing.Color.Red
-        Me.Label3.Location = New System.Drawing.Point(2, 2)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(986, 34)
-        Me.Label3.TabIndex = 241
-        Me.Label3.Text = "*  編碼原則對於系統非常重要，如有更動需求請與系統開發商進行討論後再行修改"
-        '
         'GroupBox2
         '
-        Me.GroupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.GroupBox2.Controls.Add(Me.級別修改_bt)
         Me.GroupBox2.Controls.Add(Me.級別_cb)
         Me.GroupBox2.Controls.Add(Me.Label32)
         Me.GroupBox2.Controls.Add(Me.職稱新增_bt)
         Me.GroupBox2.Controls.Add(Me.職稱刪除_bt)
         Me.GroupBox2.Controls.Add(Me.職稱_tb)
-        Me.GroupBox2.Location = New System.Drawing.Point(12, 39)
+        Me.GroupBox2.Location = New System.Drawing.Point(2, 1)
         Me.GroupBox2.Name = "GroupBox2"
-        Me.GroupBox2.Size = New System.Drawing.Size(210, 586)
+        Me.GroupBox2.Size = New System.Drawing.Size(210, 409)
         Me.GroupBox2.TabIndex = 242
         Me.GroupBox2.TabStop = False
         Me.GroupBox2.Text = "職稱清單管理"
         '
         '職稱_dgv
         '
-        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
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.職稱_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
         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.職稱_dgv.Name = "職稱_dgv"
         Me.職稱_dgv.RowHeadersWidth = 5
         Me.職稱_dgv.RowTemplate.Height = 24
-        Me.職稱_dgv.Size = New System.Drawing.Size(197, 484)
+        Me.職稱_dgv.Size = New System.Drawing.Size(197, 307)
         Me.職稱_dgv.TabIndex = 222
         '
         '職稱修改_bt
         Me.GroupBox1.Controls.Add(Me.地區碼新增_bt)
         Me.GroupBox1.Controls.Add(Me.地區碼刪除_bt)
         Me.GroupBox1.Controls.Add(Me.地區_tb)
-        Me.GroupBox1.Location = New System.Drawing.Point(228, 39)
+        Me.GroupBox1.Location = New System.Drawing.Point(216, 1)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(210, 586)
+        Me.GroupBox1.Size = New System.Drawing.Size(210, 675)
         Me.GroupBox1.TabIndex = 243
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "地區碼管理"
         '
         '地區碼_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
+        DataGridViewCellStyle22.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.地區碼_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22
         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.地區碼_dgv.Name = "地區碼_dgv"
         Me.地區碼_dgv.RowHeadersWidth = 5
         Me.地區碼_dgv.RowTemplate.Height = 24
-        Me.地區碼_dgv.Size = New System.Drawing.Size(197, 510)
+        Me.地區碼_dgv.Size = New System.Drawing.Size(197, 599)
         Me.地區碼_dgv.TabIndex = 222
         '
         '地區碼修改_bt
         Me.GroupBox3.Controls.Add(Me.倉狀碼新增_bt)
         Me.GroupBox3.Controls.Add(Me.倉狀碼刪除_bt)
         Me.GroupBox3.Controls.Add(Me.倉儲狀態_tb)
-        Me.GroupBox3.Location = New System.Drawing.Point(444, 39)
+        Me.GroupBox3.Location = New System.Drawing.Point(2, 411)
         Me.GroupBox3.Name = "GroupBox3"
-        Me.GroupBox3.Size = New System.Drawing.Size(210, 586)
+        Me.GroupBox3.Size = New System.Drawing.Size(210, 265)
         Me.GroupBox3.TabIndex = 244
         Me.GroupBox3.TabStop = False
         Me.GroupBox3.Text = "倉儲狀態"
         '
         '倉儲狀態_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.倉儲狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.倉儲狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
         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.倉儲狀態_dgv.Name = "倉儲狀態_dgv"
         Me.倉儲狀態_dgv.RowHeadersWidth = 5
         Me.倉儲狀態_dgv.RowTemplate.Height = 24
-        Me.倉儲狀態_dgv.Size = New System.Drawing.Size(197, 510)
+        Me.倉儲狀態_dgv.Size = New System.Drawing.Size(197, 189)
         Me.倉儲狀態_dgv.TabIndex = 222
         '
         '倉狀碼修改_bt
         Me.GroupBox4.Controls.Add(Me.料定新增_bt)
         Me.GroupBox4.Controls.Add(Me.料定刪除_bt)
         Me.GroupBox4.Controls.Add(Me.訂製內容_tb)
-        Me.GroupBox4.Location = New System.Drawing.Point(660, 39)
+        Me.GroupBox4.Location = New System.Drawing.Point(430, 411)
         Me.GroupBox4.Name = "GroupBox4"
-        Me.GroupBox4.Size = New System.Drawing.Size(276, 586)
+        Me.GroupBox4.Size = New System.Drawing.Size(276, 265)
         Me.GroupBox4.TabIndex = 245
         Me.GroupBox4.TabStop = False
         Me.GroupBox4.Text = "物料訂製狀態"
         '
         '料定狀態_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.料定狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle24.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.料定狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle24
         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.料定狀態_dgv.Name = "料定狀態_dgv"
         Me.料定狀態_dgv.RowHeadersWidth = 5
         Me.料定狀態_dgv.RowTemplate.Height = 24
-        Me.料定狀態_dgv.Size = New System.Drawing.Size(262, 510)
+        Me.料定狀態_dgv.Size = New System.Drawing.Size(262, 189)
         Me.料定狀態_dgv.TabIndex = 222
         '
         '料定修改_bt
         '
         'GroupBox5
         '
-        Me.GroupBox5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.GroupBox5.Controls.Add(Me.低售_tb)
         Me.GroupBox5.Controls.Add(Me.Label11)
         Me.GroupBox5.Controls.Add(Me.運費_tb)
         Me.GroupBox5.Controls.Add(Me.送貨新增_bt)
         Me.GroupBox5.Controls.Add(Me.送貨刪除_bt)
         Me.GroupBox5.Controls.Add(Me.地點_tb)
-        Me.GroupBox5.Location = New System.Drawing.Point(942, 39)
+        Me.GroupBox5.Location = New System.Drawing.Point(430, 1)
         Me.GroupBox5.Name = "GroupBox5"
-        Me.GroupBox5.Size = New System.Drawing.Size(276, 586)
+        Me.GroupBox5.Size = New System.Drawing.Size(276, 409)
         Me.GroupBox5.TabIndex = 246
         Me.GroupBox5.TabStop = False
         Me.GroupBox5.Text = "送貨起車參數"
         '
         '送貨運費_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.送貨運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.送貨運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
         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.送貨運費_dgv.Name = "送貨運費_dgv"
         Me.送貨運費_dgv.RowHeadersWidth = 5
         Me.送貨運費_dgv.RowTemplate.Height = 24
-        Me.送貨運費_dgv.Size = New System.Drawing.Size(262, 484)
+        Me.送貨運費_dgv.Size = New System.Drawing.Size(262, 307)
         Me.送貨運費_dgv.TabIndex = 222
         '
         '送貨修改_bt
         Me.GroupBox6.Controls.Add(Me.年份_新增_bt)
         Me.GroupBox6.Controls.Add(Me.年份_刪除_bt)
         Me.GroupBox6.Controls.Add(Me.年份_tb)
-        Me.GroupBox6.Location = New System.Drawing.Point(1224, 39)
+        Me.GroupBox6.Location = New System.Drawing.Point(711, 161)
         Me.GroupBox6.Name = "GroupBox6"
-        Me.GroupBox6.Size = New System.Drawing.Size(99, 586)
+        Me.GroupBox6.Size = New System.Drawing.Size(99, 515)
         Me.GroupBox6.TabIndex = 681
         Me.GroupBox6.TabStop = False
         Me.GroupBox6.Text = "報表及對帳單年份清單"
         '
         '年份_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.年份_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.年份_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
         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.年份_dgv.Name = "年份_dgv"
         Me.年份_dgv.RowHeadersWidth = 5
         Me.年份_dgv.RowTemplate.Height = 24
-        Me.年份_dgv.Size = New System.Drawing.Size(86, 446)
+        Me.年份_dgv.Size = New System.Drawing.Size(86, 375)
         Me.年份_dgv.TabIndex = 222
         '
         '年份_修改_bt
         '
         '字體大小調整_lb
         '
+        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.字體大小調整_lb.AutoSize = True
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(994, 9)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1224, 4)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
         Me.字體大小調整_lb.TabIndex = 1497
         '
         '字體_NUD
         '
-        Me.字體_NUD.Location = New System.Drawing.Point(1065, 8)
+        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.Location = New System.Drawing.Point(1295, 3)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {12, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
         Me.字體_NUD.TabIndex = 1496
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
         '
+        '伺服器狀態2_dgv
+        '
+        DataGridViewCellStyle27.BackColor = System.Drawing.Color.White
+        Me.伺服器狀態2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27
+        Me.伺服器狀態2_dgv.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.伺服器狀態2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.伺服器狀態2_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle28.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle28.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.伺服器狀態2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle28
+        Me.伺服器狀態2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.伺服器狀態2_dgv.Location = New System.Drawing.Point(711, 30)
+        Me.伺服器狀態2_dgv.Name = "伺服器狀態2_dgv"
+        Me.伺服器狀態2_dgv.RowHeadersWidth = 5
+        Me.伺服器狀態2_dgv.RowTemplate.Height = 24
+        Me.伺服器狀態2_dgv.Size = New System.Drawing.Size(634, 126)
+        Me.伺服器狀態2_dgv.TabIndex = 1498
+        '
+        'LOG檔截斷3_bt
+        '
+        Me.LOG檔截斷3_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LOG檔截斷3_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.LOG檔截斷3_bt.Location = New System.Drawing.Point(770, 4)
+        Me.LOG檔截斷3_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.LOG檔截斷3_bt.Name = "LOG檔截斷3_bt"
+        Me.LOG檔截斷3_bt.Size = New System.Drawing.Size(72, 23)
+        Me.LOG檔截斷3_bt.TabIndex = 1503
+        Me.LOG檔截斷3_bt.Text = "LOG檔截斷"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.BackColor = System.Drawing.SystemColors.Control
+        Me.Label3.Location = New System.Drawing.Point(712, 7)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(56, 16)
+        Me.Label3.TabIndex = 1502
+        Me.Label3.Text = "主伺服器"
+        '
+        '重新讀取_bt
+        '
+        Me.重新讀取_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.重新讀取_bt.Location = New System.Drawing.Point(1151, 3)
+        Me.重新讀取_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.重新讀取_bt.Name = "重新讀取_bt"
+        Me.重新讀取_bt.Size = New System.Drawing.Size(72, 23)
+        Me.重新讀取_bt.TabIndex = 1501
+        Me.重新讀取_bt.Text = "重新讀取"
+        '
+        '伺服器_lb
+        '
+        Me.伺服器_lb.AutoSize = True
+        Me.伺服器_lb.BackColor = System.Drawing.SystemColors.Control
+        Me.伺服器_lb.Location = New System.Drawing.Point(848, 6)
+        Me.伺服器_lb.Name = "伺服器_lb"
+        Me.伺服器_lb.Size = New System.Drawing.Size(230, 16)
+        Me.伺服器_lb.TabIndex = 1500
+        Me.伺服器_lb.Text = "伺服器中資料庫極限容量監控設定值 (MB)"
+        '
+        'MAX_nud
+        '
+        Me.MAX_nud.Location = New System.Drawing.Point(1083, 3)
+        Me.MAX_nud.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.MAX_nud.Name = "MAX_nud"
+        Me.MAX_nud.Size = New System.Drawing.Size(67, 23)
+        Me.MAX_nud.TabIndex = 1499
+        Me.MAX_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.MAX_nud.ThousandsSeparator = True
+        Me.MAX_nud.Value = New Decimal(New Integer() {1024, 0, 0, 0})
+        '
+        '資料庫清單1_dgv
+        '
+        DataGridViewCellStyle29.BackColor = System.Drawing.Color.White
+        Me.資料庫清單1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
+        Me.資料庫清單1_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.資料庫清單1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.資料庫清單1_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle30.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle30.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.資料庫清單1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30
+        Me.資料庫清單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.資料庫清單1_dgv.Location = New System.Drawing.Point(816, 161)
+        Me.資料庫清單1_dgv.Name = "資料庫清單1_dgv"
+        Me.資料庫清單1_dgv.RowHeadersWidth = 5
+        Me.資料庫清單1_dgv.RowTemplate.Height = 24
+        Me.資料庫清單1_dgv.Size = New System.Drawing.Size(220, 81)
+        Me.資料庫清單1_dgv.TabIndex = 1504
+        '
         '系統編碼規則
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1329, 630)
+        Me.ClientSize = New System.Drawing.Size(1350, 681)
+        Me.Controls.Add(Me.資料庫清單1_dgv)
+        Me.Controls.Add(Me.LOG檔截斷3_bt)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.重新讀取_bt)
+        Me.Controls.Add(Me.伺服器_lb)
+        Me.Controls.Add(Me.MAX_nud)
+        Me.Controls.Add(Me.伺服器狀態2_dgv)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.GroupBox6)
         Me.Controls.Add(Me.GroupBox3)
         Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.GroupBox2)
-        Me.Controls.Add(Me.Label3)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "系統編碼規則"
         Me.GroupBox6.PerformLayout()
         CType(Me.年份_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.伺服器狀態2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MAX_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.資料庫清單1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
-
-    Friend WithEvents Label3 As Windows.Forms.Label
     Friend WithEvents GroupBox2 As Windows.Forms.GroupBox
     Friend WithEvents 級別修改_bt As Windows.Forms.Button
     Friend WithEvents 級別_cb As Windows.Forms.ComboBox
     Friend WithEvents 年份_tb As TextBox
     Friend WithEvents 字體大小調整_lb As Label
     Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 伺服器狀態2_dgv As DataGridView
+    Friend WithEvents LOG檔截斷3_bt As Button
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 重新讀取_bt As Button
+    Friend WithEvents 伺服器_lb As Label
+    Friend WithEvents MAX_nud As NumericUpDown
+    Friend WithEvents 資料庫清單1_dgv As DataGridView
 End Class

YD-ERP-SYS/資料庫系統管理/系統編碼規則.vb

         da.Fill(ds3) : 倉儲狀態_dgv.DataSource = ds3.Tables(0) : conn.Close()
         倉儲狀態_dgv.Columns(0).FillWeight = 100 : 倉儲狀態_dgv.Columns(1).FillWeight = 50
     End Sub
+    Private Sub Set_主伺服器狀態()
+        Dim ds8 As New DataSet : 伺服器狀態2_dgv.DataSource = Nothing : ds8.Clear()
+        伺服器狀態2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        伺服器狀態2_dgv.ColumnHeadersHeight = 25
+        伺服器狀態2_dgv.AllowUserToAddRows = False
+        SQL_主資料庫狀態()
+        da.Fill(ds8) : 伺服器狀態2_dgv.DataSource = ds8.Tables(0) : conn.Close()
+        Set_進度條顯示2()
+        伺服器狀態2_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.000"
+        伺服器狀態2_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        伺服器狀態2_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        伺服器狀態2_dgv.Columns(0).FillWeight = 100 : 伺服器狀態2_dgv.Columns(1).FillWeight = 200
+        伺服器狀態2_dgv.Columns(2).FillWeight = 50 : 伺服器狀態2_dgv.Columns(3).FillWeight = 50
+        伺服器狀態2_dgv.Columns(4).Visible = False
+    End Sub
+    Private Sub Set_進度條顯示2()
+        Dim Col As New DataGridViewProgressColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "容量"
+        }
+        Col.HeaderText = "檔案大小(MB)" : Col.Name = "容量" : Col.DataPropertyName = "檔案大小(MB)"
+        伺服器狀態2_dgv.Columns.Insert(5, Col)
+    End Sub
+    Private Sub Set_伺服器1清單()
+        Dim ds8 As New DataSet : 資料庫清單1_dgv.DataSource = Nothing : ds8.Clear()
+        資料庫清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        資料庫清單1_dgv.ColumnHeadersHeight = 25
+        資料庫清單1_dgv.AllowUserToAddRows = False
+        SQL_伺服器1清單()
+        da.Fill(ds8) : 資料庫清單1_dgv.DataSource = ds8.Tables(0) : conn.Close()
+    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
         訂製編碼_tb.Enabled = False
         首次開啟 = False : 式共用1() : 首次開啟 = True
         職稱_dgv.RowTemplate.Height = 25 : 地區碼_dgv.RowTemplate.Height = 25 : 倉儲狀態_dgv.RowTemplate.Height = 25
         料定狀態_dgv.RowTemplate.Height = 25 : 送貨運費_dgv.RowTemplate.Height = 25 : 年份_dgv.RowTemplate.Height = 25
+        重新讀取_bt.PerformClick()
     End Sub
     Private Sub 送貨運費_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 送貨運費_dgv.CellEnter
         If 首次開啟 = True Then
         送貨運費_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
         年份_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
     End Sub
+    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
+        分母 = MAX_nud.Value : 分段1 = 0.2 : 分段2 = 0.19 : 分段3 = 0.8 : 分段4 = 0.79 : 進度條後墜 = " MB"
+        Set_主伺服器狀態() : Set_伺服器1清單()
+    End Sub
+    Private Sub LOG檔截斷3_bt_Click(sender As Object, e As EventArgs) Handles LOG檔截斷3_bt.Click
+        For I As Integer = 0 To 資料庫清單1_dgv.Rows.Count - 1
+            PA = 資料庫清單1_dgv(0, I).Value.ToString : SQL_主資料庫LOG檔案截斷()
+        Next
+        重新讀取_bt.PerformClick()
+    End Sub
 End Class