20230513備份

GA-ERP-SYS/Module/SQL_子系統管理.vb

@@ -1099,6 +1099,13 @@ FROM 流水帳"
     Friend Sub SQL_水差名出帳()
         ConnOpen_子SQL() : SQL1 = "SELECT 所得另算 AS 水差, 所得另算 AS 交割金額, 所得另算 AS [交割金額.] FROM 下行客戶 WHERE (水差另算 NOT LIKE '') GROUP BY 所得另算" : CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_紙單出帳()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT  客戶, 商品, 商品 AS 金額, 交收金額  FROM  電板紙板流水帳  
+                WHERE  (開始日期 LIKE '" & Strings.Left(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (交收金額 <> 0)
+                ORDER BY   客戶 DESC, 商品"
+        CmdSet_For_DGV()
+    End Sub
     Friend Sub SQL_上下層核帳()
         ConnOpen_子SQL()
         SQL1 = "SELECT TOP(" & NN1 & ") 下注明細s AS 商品, 下注明細s AS 上帳戶, 下注明細s AS 下帳戶, 下注明細s AS 天帳, 下注明細s AS 地帳, 下注明細s AS 所得, 下注明細s AS 水差, 下注明細s AS 核帳 
@@ -1183,10 +1190,7 @@ FROM 流水帳"
     End Sub
     Friend Sub SQL_電板紙帳查詢0()
         ConnOpen_子SQL()
-        SQL1 = "SELECT    電板紙板流水帳.客戶, 電板紙板流水帳.商品, 電板紙板流水帳.商品 AS 金額, 電板紙板流水帳.交收金額
-                FROM      電板紙板流水帳 INNER JOIN 流水帳1 ON 電板紙板流水帳.客戶 = 流水帳1.帳號
-                WHERE    (電板紙板流水帳.開始日期 LIKE '" & PA47 & "')  " & SQL2 & "
-                ORDER BY  電板紙板流水帳.客戶 DESC, 電板紙板流水帳.商品"
+        SQL1 = "SELECT  客戶, 商品, 商品 AS 金額, 交收金額  FROM  電板紙板流水帳  WHERE  (開始日期 LIKE '" & PA47 & "')  " & SQL2 & "  ORDER BY  客戶 DESC, 商品"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_電板紙帳查詢1()

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

@@ -7,7 +7,7 @@
     Public 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 登入客戶, 登入資料庫, 業務名稱, AA(99), QA1, QA2, QA3, QA4, 到期 As String
     Public BB(99), CC(99), 登入判斷, IP印尼, IP台灣 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023041002"
+    Public 版本 As String = "2023050801"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登, 內外網, 重登確認, 主頁開啟, 無KEY登入, 內網區域, 關閉系統, 內網確認 As Boolean

GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.Designer.vb

@@ -47,7 +47,6 @@ Partial Class 電板帳務彙總計算表
         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()
@@ -81,6 +80,8 @@ Partial Class 電板帳務彙總計算表
         Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle57 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle58 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle59 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
         Me.資料_cb = New System.Windows.Forms.ComboBox()
         Me.Label1 = New System.Windows.Forms.Label()
@@ -245,13 +246,14 @@ Partial Class 電板帳務彙總計算表
         Me.核帳0_tb = New System.Windows.Forms.TextBox()
         Me.Label20 = New System.Windows.Forms.Label()
         Me.SplitContainer4 = New System.Windows.Forms.SplitContainer()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label22 = New System.Windows.Forms.Label()
         Me.控制隱藏_ch = New System.Windows.Forms.CheckBox()
         Me.紙板帳務編輯_bt = New System.Windows.Forms.Button()
         Me.其他操作功能_bt = New System.Windows.Forms.Button()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.Label23 = New System.Windows.Forms.Label()
-        Me.Label22 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.紙帳總表_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -313,6 +315,7 @@ Partial Class 電板帳務彙總計算表
         Me.SplitContainer4.Panel2.SuspendLayout()
         Me.SplitContainer4.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.紙帳總表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '流水帳_dgv
@@ -1401,6 +1404,7 @@ Partial Class 電板帳務彙總計算表
         '
         Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.Controls.Add(Me.紙帳總表_dgv)
         Me.Panel1.Controls.Add(Me.水差名1_dgv)
         Me.Panel1.Controls.Add(Me.紅利分表_dgv)
         Me.Panel1.Controls.Add(Me.所得名1_dgv)
@@ -1425,8 +1429,8 @@ Partial Class 電板帳務彙總計算表
         Me.水差名1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.水差名1_dgv.Name = "水差名1_dgv"
         Me.水差名1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle25.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.水差名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle25
+        DataGridViewCellStyle26.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.水差名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle26
         Me.水差名1_dgv.RowTemplate.Height = 24
         Me.水差名1_dgv.Size = New System.Drawing.Size(154, 465)
         Me.水差名1_dgv.TabIndex = 1684
@@ -1440,8 +1444,8 @@ Partial Class 電板帳務彙總計算表
         Me.紅利分表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紅利分表_dgv.Name = "紅利分表_dgv"
         Me.紅利分表_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle26.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紅利分表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle26
+        DataGridViewCellStyle27.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紅利分表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle27
         Me.紅利分表_dgv.RowTemplate.Height = 24
         Me.紅利分表_dgv.Size = New System.Drawing.Size(365, 334)
         Me.紅利分表_dgv.TabIndex = 1682
@@ -1457,8 +1461,8 @@ Partial Class 電板帳務彙總計算表
         Me.所得名1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.所得名1_dgv.Name = "所得名1_dgv"
         Me.所得名1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle27.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.所得名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle27
+        DataGridViewCellStyle28.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.所得名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
         Me.所得名1_dgv.RowTemplate.Height = 24
         Me.所得名1_dgv.Size = New System.Drawing.Size(182, 573)
         Me.所得名1_dgv.TabIndex = 1681
@@ -1470,14 +1474,14 @@ Partial Class 電板帳務彙總計算表
         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(524, 337)
+        Me.紅利總表_dgv.Location = New System.Drawing.Point(524, 445)
         Me.紅利總表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紅利總表_dgv.Name = "紅利總表_dgv"
         Me.紅利總表_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle28.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紅利總表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
+        DataGridViewCellStyle29.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紅利總表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle29
         Me.紅利總表_dgv.RowTemplate.Height = 24
-        Me.紅利總表_dgv.Size = New System.Drawing.Size(210, 573)
+        Me.紅利總表_dgv.Size = New System.Drawing.Size(210, 465)
         Me.紅利總表_dgv.TabIndex = 1683
         '
         '上下所水分流表_bt
@@ -1582,29 +1586,29 @@ Partial Class 電板帳務彙總計算表
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.水差合帳2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.水差合帳2_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle29.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle29.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle29.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle29.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle29.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.水差合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle29
-        Me.水差合帳2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle30.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle30.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.水差合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle30
+        DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle30.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.水差合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30
+        Me.水差合帳2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle31.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle31.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.水差合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle31
         Me.水差合帳2_dgv.Location = New System.Drawing.Point(-1, -1)
         Me.水差合帳2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.水差合帳2_dgv.Name = "水差合帳2_dgv"
         Me.水差合帳2_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle31.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.水差合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle31
+        DataGridViewCellStyle32.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.水差合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle32
         Me.水差合帳2_dgv.RowTemplate.Height = 24
         Me.水差合帳2_dgv.Size = New System.Drawing.Size(280, 353)
         Me.水差合帳2_dgv.TabIndex = 1699
@@ -1655,29 +1659,29 @@ Partial Class 電板帳務彙總計算表
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.所得合帳2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.所得合帳2_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle32.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle32.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle32.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle32.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle32.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.所得合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle32
-        Me.所得合帳2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle33.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle33.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.所得合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle33
+        DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle33.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.所得合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle33
+        Me.所得合帳2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle34.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle34.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.所得合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle34
         Me.所得合帳2_dgv.Location = New System.Drawing.Point(-1, -1)
         Me.所得合帳2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.所得合帳2_dgv.Name = "所得合帳2_dgv"
         Me.所得合帳2_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle34.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.所得合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle34
+        DataGridViewCellStyle35.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.所得合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle35
         Me.所得合帳2_dgv.RowTemplate.Height = 24
         Me.所得合帳2_dgv.Size = New System.Drawing.Size(280, 353)
         Me.所得合帳2_dgv.TabIndex = 1630
@@ -1692,8 +1696,8 @@ Partial Class 電板帳務彙總計算表
         Me.所得合帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.所得合帳1_dgv.Name = "所得合帳1_dgv"
         Me.所得合帳1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle35.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.所得合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle35
+        DataGridViewCellStyle36.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.所得合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle36
         Me.所得合帳1_dgv.RowTemplate.Height = 24
         Me.所得合帳1_dgv.Size = New System.Drawing.Size(280, 84)
         Me.所得合帳1_dgv.TabIndex = 1629
@@ -1767,29 +1771,29 @@ Partial Class 電板帳務彙總計算表
             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
-        DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle36.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle36.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.紅利整合_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle36
-        Me.紅利整合_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle37.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle37.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.紅利整合_dgv.DefaultCellStyle = DataGridViewCellStyle37
+        DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle37.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.紅利整合_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle37
+        Me.紅利整合_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle38.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle38.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle38.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle38.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle38.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle38.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.紅利整合_dgv.DefaultCellStyle = DataGridViewCellStyle38
         Me.紅利整合_dgv.Location = New System.Drawing.Point(-1, -1)
         Me.紅利整合_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紅利整合_dgv.Name = "紅利整合_dgv"
         Me.紅利整合_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle38.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紅利整合_dgv.RowsDefaultCellStyle = DataGridViewCellStyle38
+        DataGridViewCellStyle39.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紅利整合_dgv.RowsDefaultCellStyle = DataGridViewCellStyle39
         Me.紅利整合_dgv.RowTemplate.Height = 24
         Me.紅利整合_dgv.Size = New System.Drawing.Size(170, 476)
         Me.紅利整合_dgv.TabIndex = 1695
@@ -1802,29 +1806,29 @@ Partial Class 電板帳務彙總計算表
         Me.紅利收入_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.紅利收入_dgv.BackgroundColor = System.Drawing.Color.White
         Me.紅利收入_dgv.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
-        DataGridViewCellStyle39.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle39.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle39.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle39.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle39.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle39.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle39.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.紅利收入_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle39
-        Me.紅利收入_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle40.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle40.SelectionBackColor = System.Drawing.Color.Gainsboro
-        DataGridViewCellStyle40.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.紅利收入_dgv.DefaultCellStyle = DataGridViewCellStyle40
+        DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle40.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.紅利收入_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40
+        Me.紅利收入_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle41.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle41.SelectionBackColor = System.Drawing.Color.Gainsboro
+        DataGridViewCellStyle41.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.紅利收入_dgv.DefaultCellStyle = DataGridViewCellStyle41
         Me.紅利收入_dgv.Location = New System.Drawing.Point(-1, 153)
         Me.紅利收入_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紅利收入_dgv.Name = "紅利收入_dgv"
         Me.紅利收入_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle41.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紅利收入_dgv.RowsDefaultCellStyle = DataGridViewCellStyle41
+        DataGridViewCellStyle42.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紅利收入_dgv.RowsDefaultCellStyle = DataGridViewCellStyle42
         Me.紅利收入_dgv.RowTemplate.Height = 24
         Me.紅利收入_dgv.Size = New System.Drawing.Size(170, 322)
         Me.紅利收入_dgv.TabIndex = 1694
@@ -1836,29 +1840,29 @@ Partial Class 電板帳務彙總計算表
         Me.紅利支出_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.紅利支出_dgv.BackgroundColor = System.Drawing.Color.White
         Me.紅利支出_dgv.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
-        DataGridViewCellStyle42.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle42.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle42.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle42.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle42.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle42.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.紅利支出_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle42
-        Me.紅利支出_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle43.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle43.SelectionBackColor = System.Drawing.Color.Gainsboro
-        DataGridViewCellStyle43.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.紅利支出_dgv.DefaultCellStyle = DataGridViewCellStyle43
+        DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle43.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.紅利支出_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43
+        Me.紅利支出_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle44.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle44.SelectionBackColor = System.Drawing.Color.Gainsboro
+        DataGridViewCellStyle44.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.紅利支出_dgv.DefaultCellStyle = DataGridViewCellStyle44
         Me.紅利支出_dgv.Location = New System.Drawing.Point(-1, -1)
         Me.紅利支出_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紅利支出_dgv.Name = "紅利支出_dgv"
         Me.紅利支出_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle44.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紅利支出_dgv.RowsDefaultCellStyle = DataGridViewCellStyle44
+        DataGridViewCellStyle45.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紅利支出_dgv.RowsDefaultCellStyle = DataGridViewCellStyle45
         Me.紅利支出_dgv.RowTemplate.Height = 24
         Me.紅利支出_dgv.Size = New System.Drawing.Size(170, 155)
         Me.紅利支出_dgv.TabIndex = 1693
@@ -1869,20 +1873,20 @@ Partial Class 電板帳務彙總計算表
         Me.紙帳前期_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.紙帳前期_dgv.BackgroundColor = System.Drawing.Color.White
         Me.紙帳前期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle45.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle45.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle45.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle45.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle45.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle45.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle45.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.紙帳前期_dgv.DefaultCellStyle = DataGridViewCellStyle45
+        DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle46.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle46.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.紙帳前期_dgv.DefaultCellStyle = DataGridViewCellStyle46
         Me.紙帳前期_dgv.Location = New System.Drawing.Point(-1, 302)
         Me.紙帳前期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紙帳前期_dgv.Name = "紙帳前期_dgv"
         Me.紙帳前期_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle46.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紙帳前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle46
+        DataGridViewCellStyle47.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紙帳前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle47
         Me.紙帳前期_dgv.RowTemplate.Height = 24
         Me.紙帳前期_dgv.Size = New System.Drawing.Size(170, 51)
         Me.紙帳前期_dgv.TabIndex = 1631
@@ -1905,29 +1909,29 @@ Partial Class 電板帳務彙總計算表
             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
-        DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle47.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle47.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.紙帳非前期_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle47
-        Me.紙帳非前期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle48.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle48.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle48.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle48.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle48.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle48.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle48.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.紙帳非前期_dgv.DefaultCellStyle = DataGridViewCellStyle48
+        DataGridViewCellStyle48.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle48.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle48.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.紙帳非前期_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle48
+        Me.紙帳非前期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle49.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle49.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.紙帳非前期_dgv.DefaultCellStyle = DataGridViewCellStyle49
         Me.紙帳非前期_dgv.Location = New System.Drawing.Point(-1, -1)
         Me.紙帳非前期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.紙帳非前期_dgv.Name = "紙帳非前期_dgv"
         Me.紙帳非前期_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle49.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紙帳非前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle49
+        DataGridViewCellStyle50.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紙帳非前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle50
         Me.紙帳非前期_dgv.RowTemplate.Height = 24
         Me.紙帳非前期_dgv.Size = New System.Drawing.Size(170, 304)
         Me.紙帳非前期_dgv.TabIndex = 1632
@@ -1953,8 +1957,8 @@ Partial Class 電板帳務彙總計算表
         Me.水差合帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.水差合帳1_dgv.Name = "水差合帳1_dgv"
         Me.水差合帳1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle50.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.水差合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle50
+        DataGridViewCellStyle51.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.水差合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle51
         Me.水差合帳1_dgv.RowTemplate.Height = 24
         Me.水差合帳1_dgv.Size = New System.Drawing.Size(280, 110)
         Me.水差合帳1_dgv.TabIndex = 1698
@@ -2045,8 +2049,8 @@ Partial Class 電板帳務彙總計算表
         '
         '電板客戶_dgv
         '
-        DataGridViewCellStyle51.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.電板客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51
+        DataGridViewCellStyle52.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.電板客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle52
         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)
@@ -2062,8 +2066,8 @@ Partial Class 電板帳務彙總計算表
         '
         '電板紙帳1_dgv
         '
-        DataGridViewCellStyle52.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.電板紙帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle52
+        DataGridViewCellStyle53.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.電板紙帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle53
         Me.電板紙帳1_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)
@@ -2079,8 +2083,8 @@ Partial Class 電板帳務彙總計算表
         '
         '紙帳流水1_dgv
         '
-        DataGridViewCellStyle53.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.紙帳流水1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle53
+        DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.紙帳流水1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54
         Me.紙帳流水1_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)
@@ -2119,8 +2123,8 @@ Partial Class 電板帳務彙總計算表
         '
         '紙帳導入_dgv
         '
-        DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.紙帳導入_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54
+        DataGridViewCellStyle55.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.紙帳導入_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle55
         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)
@@ -2136,8 +2140,8 @@ Partial Class 電板帳務彙總計算表
         '
         '電板所得_dgv
         '
-        DataGridViewCellStyle55.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.電板所得_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle55
+        DataGridViewCellStyle56.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.電板所得_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle56
         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)
@@ -2165,8 +2169,8 @@ Partial Class 電板帳務彙總計算表
         '
         '網址修正_dgv
         '
-        DataGridViewCellStyle56.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.網址修正_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle56
+        DataGridViewCellStyle57.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.網址修正_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle57
         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)
@@ -2210,20 +2214,20 @@ Partial Class 電板帳務彙總計算表
         Me.自定帳務_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.自定帳務_dgv.BackgroundColor = System.Drawing.Color.White
         Me.自定帳務_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle57.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle57.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle57.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle57.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle57.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle57.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle57.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.自定帳務_dgv.DefaultCellStyle = DataGridViewCellStyle57
+        DataGridViewCellStyle58.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle58.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle58.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle58.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle58.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle58.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle58.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.自定帳務_dgv.DefaultCellStyle = DataGridViewCellStyle58
         Me.自定帳務_dgv.Location = New System.Drawing.Point(-1, 19)
         Me.自定帳務_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.自定帳務_dgv.Name = "自定帳務_dgv"
         Me.自定帳務_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle58.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.自定帳務_dgv.RowsDefaultCellStyle = DataGridViewCellStyle58
+        DataGridViewCellStyle59.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.自定帳務_dgv.RowsDefaultCellStyle = DataGridViewCellStyle59
         Me.自定帳務_dgv.RowTemplate.Height = 24
         Me.自定帳務_dgv.Size = New System.Drawing.Size(408, 139)
         Me.自定帳務_dgv.TabIndex = 1703
@@ -2607,6 +2611,26 @@ Partial Class 電板帳務彙總計算表
         Me.SplitContainer4.SplitterDistance = 807
         Me.SplitContainer4.TabIndex = 1716
         '
+        'TextBox1
+        '
+        Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBox1.ForeColor = System.Drawing.Color.Red
+        Me.TextBox1.Location = New System.Drawing.Point(493, 1)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(61, 23)
+        Me.TextBox1.TabIndex = 1720
+        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label22
+        '
+        Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label22.AutoSize = True
+        Me.Label22.Location = New System.Drawing.Point(474, 4)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(19, 16)
+        Me.Label22.TabIndex = 1718
+        Me.Label22.Text = "共"
+        '
         '控制隱藏_ch
         '
         Me.控制隱藏_ch.AutoSize = True
@@ -2640,6 +2664,16 @@ Partial Class 電板帳務彙總計算表
         Me.其他操作功能_bt.Text = "其他操作功能"
         Me.其他操作功能_bt.UseVisualStyleBackColor = True
         '
+        'Label23
+        '
+        Me.Label23.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label23.AutoSize = True
+        Me.Label23.Location = New System.Drawing.Point(554, 4)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(43, 16)
+        Me.Label23.TabIndex = 1719
+        Me.Label23.Text = "筆資料"
+        '
         'PictureBox1
         '
         Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -2651,35 +2685,22 @@ Partial Class 電板帳務彙總計算表
         Me.PictureBox1.TabIndex = 1619
         Me.PictureBox1.TabStop = False
         '
-        'TextBox1
-        '
-        Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBox1.ForeColor = System.Drawing.Color.Red
-        Me.TextBox1.Location = New System.Drawing.Point(493, 1)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(61, 23)
-        Me.TextBox1.TabIndex = 1720
-        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label23
-        '
-        Me.Label23.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label23.AutoSize = True
-        Me.Label23.Location = New System.Drawing.Point(554, 4)
-        Me.Label23.Name = "Label23"
-        Me.Label23.Size = New System.Drawing.Size(43, 16)
-        Me.Label23.TabIndex = 1719
-        Me.Label23.Text = "筆資料"
-        '
-        'Label22
+        '紙帳總表_dgv
         '
-        Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label22.AutoSize = True
-        Me.Label22.Location = New System.Drawing.Point(474, 4)
-        Me.Label22.Name = "Label22"
-        Me.Label22.Size = New System.Drawing.Size(19, 16)
-        Me.Label22.TabIndex = 1718
-        Me.Label22.Text = "共"
+        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.BackgroundColor = System.Drawing.Color.White
+        Me.紙帳總表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.紙帳總表_dgv.Location = New System.Drawing.Point(524, 337)
+        Me.紙帳總表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.紙帳總表_dgv.Name = "紙帳總表_dgv"
+        Me.紙帳總表_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle25.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紙帳總表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle25
+        Me.紙帳總表_dgv.RowTemplate.Height = 24
+        Me.紙帳總表_dgv.Size = New System.Drawing.Size(210, 107)
+        Me.紙帳總表_dgv.TabIndex = 1685
         '
         '電板帳務彙總計算表
         '
@@ -2714,7 +2735,6 @@ Partial Class 電板帳務彙總計算表
         Me.Controls.Add(Me.彙總1_dgv)
         Me.Controls.Add(Me.客戶下_dgv)
         Me.Controls.Add(Me.L50)
-        Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.流水帳_dgv)
         Me.Controls.Add(Me.Label4)
@@ -2724,6 +2744,7 @@ Partial Class 電板帳務彙總計算表
         Me.Controls.Add(Me.Label16)
         Me.Controls.Add(Me.SplitContainer4)
         Me.Controls.Add(Me.Panel3)
+        Me.Controls.Add(Me.Panel2)
         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 = "電板帳務彙總計算表"
@@ -2800,6 +2821,7 @@ Partial Class 電板帳務彙總計算表
         CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer4.ResumeLayout(False)
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.紙帳總表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -2976,4 +2998,5 @@ Partial Class 電板帳務彙總計算表
     Friend WithEvents TextBox1 As TextBox
     Friend WithEvents Label22 As Label
     Friend WithEvents Label23 As Label
+    Friend WithEvents 紙帳總表_dgv As DataGridView
 End Class

GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.vb

@@ -10,7 +10,7 @@ Imports Microsoft.Office.Interop.Excel.XlThemeFont
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Public Class 電板帳務彙總計算表
-    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10, ds15, ds16, ds17, ds18, ds19, ds20 As New DataSet
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10, ds15, ds16, ds17, ds18, ds19, ds20, ds21 As New DataSet
     Dim GP As Integer = 0 : Dim NH1, 批次, 選擇記憶 As Integer
     Dim GPP As String : Dim 本周周一 As Date
     Dim 暫不計算, 是否明細, 是否子明細, 上繳反轉, 紙帳存檔, 其他控制 As Boolean
@@ -123,6 +123,20 @@ Public Class 電板帳務彙總計算表
             MsgBox(ex.Message) '錯誤訊息
         End Try
     End Sub
+    Private Sub Set_紙單出帳1()
+        Try
+            紙帳總表_dgv.DataSource = Nothing : ds21.Clear()
+            紙帳總表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            紙帳總表_dgv.ColumnHeadersHeight = 25
+            紙帳總表_dgv.AllowUserToAddRows = False
+            SQL_紙單出帳()
+            da.Fill(ds21) : 紙帳總表_dgv.DataSource = ds21.Tables(0) : conn.Close()
+            紙帳總表_dgv.Columns("交收金額").Visible = False
+            紙帳總表_dgv.Columns("交收金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Catch ex As Exception
+            MsgBox(ex.Message) '錯誤訊息
+        End Try
+    End Sub
     Private Sub Set_客戶下清單()
         客戶下_dgv.DataSource = Nothing : ds4.Clear()
         客戶下_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -170,7 +184,7 @@ Public Class 電板帳務彙總計算表
         For i As Integer = 0 To 紅利分表_dgv.Rows.Count - 1 : 紅利分表_dgv("紅利", i).Value = 0 : Next
     End Sub
     Private Sub Set_流水帳清單1()
-        Set_上繳名() : Set_下收名() : Set_所得名() : Set_所得名只算所得() : Set_水差名() : Set_水差出帳1()
+        Set_上繳名() : Set_下收名() : Set_所得名() : Set_所得名只算所得() : Set_水差名() : Set_水差出帳1() : Set_紙單出帳1()
         流水帳_dgv.DataSource = Nothing : ds.Clear() : 流水帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         流水帳_dgv.ColumnHeadersHeight = 25
         流水帳_dgv.AllowUserToAddRows = False
@@ -2761,6 +2775,14 @@ Public Class 電板帳務彙總計算表
                     If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 紅利分表_dgv.Rows(I).Cells("所得戶").Value.ToString : End If
                 End If
             Next
+
+            MN2 = MN1
+            For I As Integer = 0 To 紙帳總表_dgv.Rows.Count - 1
+                For II As Integer = 0 To MN2 + 1
+                    不需加 = False : If 紙帳總表_dgv.Rows(I).Cells("客戶").Value.ToString = 暫存(II) Or 紙帳總表_dgv.Rows(I).Cells("客戶").Value.ToString = "" Then : 不需加 = True : Exit For : End If
+                Next
+                If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 紙帳總表_dgv.Rows(I).Cells("客戶").Value.ToString : End If
+            Next
             NU1 = 合帳數 + 1
 
             Dim DS As New DataSet : 合帳_dgv.DataSource = Nothing : DS.Clear()
@@ -3131,21 +3153,24 @@ Public Class 電板帳務彙總計算表
         依電板習慣_ch.Checked = False : 依球版習慣_ch.Checked = True
     End Sub
     Private Sub 紙帳計算_bt_Click(sender As Object, e As EventArgs) Handles 紙帳計算_bt.Click
-        手工帳資料自動判斷() : 紙帳計算()
+        Set_紙單出帳1() : 合帳_bt.PerformClick() : 紙帳計算()
+        '手工帳資料自動判斷() : 紙帳計算()
     End Sub
     Private Sub 紙板帳務編輯_bt_Click(sender As Object, e As EventArgs) Handles 紙板帳務編輯_bt.Click
         SQL_暫存檔清空() : SQL2 = ""
-        If 合帳_dgv.Rows.Count = 1 Then
-            SQL2 = "('" & 合帳_dgv("客戶", 0).Value.ToString & "')"
-        End If
-        For i As Integer = 0 To 合帳_dgv.Rows.Count - 1
-            If i = 合帳_dgv.Rows.Count - 1 Then
-                SQL2 += "('" & 合帳_dgv("客戶", i).Value.ToString & "')"
-            Else
-                SQL2 += "('" & 合帳_dgv("客戶", i).Value.ToString & "'),"
+        If 合帳_dgv.Rows.Count > 0 Then
+            If 合帳_dgv.Rows.Count = 1 Then
+                SQL2 = "('" & 合帳_dgv("客戶", 0).Value.ToString & "')"
             End If
-        Next
-        SQL_暫存檔新增()
+            For i As Integer = 0 To 合帳_dgv.Rows.Count - 1
+                If i = 合帳_dgv.Rows.Count - 1 Then
+                    SQL2 += "('" & 合帳_dgv("客戶", i).Value.ToString & "')"
+                Else
+                    SQL2 += "('" & 合帳_dgv("客戶", i).Value.ToString & "'),"
+                End If
+            Next
+            SQL_暫存檔新增()
+        End If
         PA47 = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 紙板帳務.Show()
     End Sub
     Private Sub 自動調整存檔_bt_Click_1(sender As Object, e As EventArgs) Handles 自動調整存檔_bt.Click

GA-ERP-SYS/特殊操作功能/系統公告.Designer.vb

@@ -65,7 +65,8 @@ Partial Class 系統公告
         Me.TextBox3.Name = "TextBox3"
         Me.TextBox3.Size = New System.Drawing.Size(569, 514)
         Me.TextBox3.TabIndex = 2
-        Me.TextBox3.Text = "版本號 : 2023041001" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、前台與後台基本資料介面開網站的功能，加入網頁加密方式判斷。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2、後台彙總表縮減呈現方式。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.TextBox3.Text = "版本號 : 2023050801" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、電板 帳務彙總表 修正 客人如果本周 [只有紙單] 或是只有 [前期未收] 時，在彙總表的 [紙板帳務" &
+    "編輯] " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "      中修改後會自動加入總表。不受到客人一定要在板上下單總表才會有帳務的限制。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         '
         'TextBox4
         '

GA-ERP-SYS/特殊操作功能/系統公告.resx

@@ -118,7 +118,12 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="TextBox1.Text" xml:space="preserve">
-    <value>版本號 : 2023040501
+    <value>版本號 : 2023041001
+更新內容如下 :
+1、前台與後台基本資料介面開網站的功能，加入網頁加密方式判斷。
+2、後台彙總表縮減呈現方式。
+
+版本號 : 2023040501
 更新內容如下 :
 1、明細表與彙總表加入資料筆數顯示。
 2、後台彙總表加入年度貢獻度資料。