B70340 před 2 roky
rodič
revize
ac36bf7eb9

binární
.vs/GA-ERP-SYS/FileContentIndex/102279ec-afe7-4bff-ad7b-9d72a4c63b3f.vsidx Zobrazit soubor


binární
.vs/GA-ERP-SYS/FileContentIndex/294d9360-872a-4080-9af3-56e9fda8a6a7.vsidx Zobrazit soubor


binární
.vs/GA-ERP-SYS/v17/.suo Zobrazit soubor


+ 8
- 4
GA-ERP-SYS/Module/SQL_子系統管理.vb Zobrazit soubor

1099
     Friend Sub SQL_水差名出帳()
1099
     Friend Sub SQL_水差名出帳()
1100
         ConnOpen_子SQL() : SQL1 = "SELECT 所得另算 AS 水差, 所得另算 AS 交割金額, 所得另算 AS [交割金額.] FROM 下行客戶 WHERE (水差另算 NOT LIKE '') GROUP BY 所得另算" : CmdSet_For_DGV()
1100
         ConnOpen_子SQL() : SQL1 = "SELECT 所得另算 AS 水差, 所得另算 AS 交割金額, 所得另算 AS [交割金額.] FROM 下行客戶 WHERE (水差另算 NOT LIKE '') GROUP BY 所得另算" : CmdSet_For_DGV()
1101
     End Sub
1101
     End Sub
1102
+    Friend Sub SQL_紙單出帳()
1103
+        ConnOpen_子SQL()
1104
+        SQL1 = "SELECT  客戶, 商品, 商品 AS 金額, 交收金額  FROM  電板紙板流水帳  
1105
+                WHERE  (開始日期 LIKE '" & Strings.Left(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (交收金額 <> 0)
1106
+                ORDER BY   客戶 DESC, 商品"
1107
+        CmdSet_For_DGV()
1108
+    End Sub
1102
     Friend Sub SQL_上下層核帳()
1109
     Friend Sub SQL_上下層核帳()
1103
         ConnOpen_子SQL()
1110
         ConnOpen_子SQL()
1104
         SQL1 = "SELECT TOP(" & NN1 & ") 下注明細s AS 商品, 下注明細s AS 上帳戶, 下注明細s AS 下帳戶, 下注明細s AS 天帳, 下注明細s AS 地帳, 下注明細s AS 所得, 下注明細s AS 水差, 下注明細s AS 核帳 
1111
         SQL1 = "SELECT TOP(" & NN1 & ") 下注明細s AS 商品, 下注明細s AS 上帳戶, 下注明細s AS 下帳戶, 下注明細s AS 天帳, 下注明細s AS 地帳, 下注明細s AS 所得, 下注明細s AS 水差, 下注明細s AS 核帳 
1183
     End Sub
1190
     End Sub
1184
     Friend Sub SQL_電板紙帳查詢0()
1191
     Friend Sub SQL_電板紙帳查詢0()
1185
         ConnOpen_子SQL()
1192
         ConnOpen_子SQL()
1186
-        SQL1 = "SELECT    電板紙板流水帳.客戶, 電板紙板流水帳.商品, 電板紙板流水帳.商品 AS 金額, 電板紙板流水帳.交收金額
1187
-                FROM      電板紙板流水帳 INNER JOIN 流水帳1 ON 電板紙板流水帳.客戶 = 流水帳1.帳號
1188
-                WHERE    (電板紙板流水帳.開始日期 LIKE '" & PA47 & "')  " & SQL2 & "
1189
-                ORDER BY  電板紙板流水帳.客戶 DESC, 電板紙板流水帳.商品"
1193
+        SQL1 = "SELECT  客戶, 商品, 商品 AS 金額, 交收金額  FROM  電板紙板流水帳  WHERE  (開始日期 LIKE '" & PA47 & "')  " & SQL2 & "  ORDER BY  客戶 DESC, 商品"
1190
         CmdSet_For_DGV()
1194
         CmdSet_For_DGV()
1191
     End Sub
1195
     End Sub
1192
     Friend Sub SQL_電板紙帳查詢1()
1196
     Friend Sub SQL_電板紙帳查詢1()

+ 1
- 1
GA-ERP-SYS/Module/全域變數.vb Zobrazit soubor

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

binární
GA-ERP-SYS/bin/Debug/Auto.exe Zobrazit soubor


+ 0
- 0
GA-ERP-SYS/bin/Debug/B.txt Zobrazit soubor


binární
GA-ERP-SYS/bin/Debug/GA-ERP-SYS.exe Zobrazit soubor


binární
GA-ERP-SYS/bin/Debug/GA-ERP-SYS.pdb Zobrazit soubor


binární
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.exe Zobrazit soubor


binární
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.pdb Zobrazit soubor


binární
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.GenerateResource.cache Zobrazit soubor


binární
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.ResolveComReference.cache Zobrazit soubor


binární
GA-ERP-SYS/obj/Debug/GA_ERP_SYS.系統公告.resources Zobrazit soubor


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

47
         Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
47
         Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
48
         Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
48
         Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
49
         Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
49
         Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
50
-        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
51
         Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
50
         Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
52
         Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
51
         Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
53
         Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
52
         Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
81
         Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
80
         Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
82
         Dim DataGridViewCellStyle57 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
81
         Dim DataGridViewCellStyle57 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
83
         Dim DataGridViewCellStyle58 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
82
         Dim DataGridViewCellStyle58 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
83
+        Dim DataGridViewCellStyle59 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
84
+        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
84
         Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
85
         Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
85
         Me.資料_cb = New System.Windows.Forms.ComboBox()
86
         Me.資料_cb = New System.Windows.Forms.ComboBox()
86
         Me.Label1 = New System.Windows.Forms.Label()
87
         Me.Label1 = New System.Windows.Forms.Label()
245
         Me.核帳0_tb = New System.Windows.Forms.TextBox()
246
         Me.核帳0_tb = New System.Windows.Forms.TextBox()
246
         Me.Label20 = New System.Windows.Forms.Label()
247
         Me.Label20 = New System.Windows.Forms.Label()
247
         Me.SplitContainer4 = New System.Windows.Forms.SplitContainer()
248
         Me.SplitContainer4 = New System.Windows.Forms.SplitContainer()
249
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
250
+        Me.Label22 = New System.Windows.Forms.Label()
248
         Me.控制隱藏_ch = New System.Windows.Forms.CheckBox()
251
         Me.控制隱藏_ch = New System.Windows.Forms.CheckBox()
249
         Me.紙板帳務編輯_bt = New System.Windows.Forms.Button()
252
         Me.紙板帳務編輯_bt = New System.Windows.Forms.Button()
250
         Me.其他操作功能_bt = New System.Windows.Forms.Button()
253
         Me.其他操作功能_bt = New System.Windows.Forms.Button()
251
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
252
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
253
         Me.Label23 = New System.Windows.Forms.Label()
254
         Me.Label23 = New System.Windows.Forms.Label()
254
-        Me.Label22 = New System.Windows.Forms.Label()
255
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
256
+        Me.紙帳總表_dgv = New System.Windows.Forms.DataGridView()
255
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
257
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
256
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
258
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
257
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
259
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
313
         Me.SplitContainer4.Panel2.SuspendLayout()
315
         Me.SplitContainer4.Panel2.SuspendLayout()
314
         Me.SplitContainer4.SuspendLayout()
316
         Me.SplitContainer4.SuspendLayout()
315
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
317
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
318
+        CType(Me.紙帳總表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
316
         Me.SuspendLayout()
319
         Me.SuspendLayout()
317
         '
320
         '
318
         '流水帳_dgv
321
         '流水帳_dgv
1401
         '
1404
         '
1402
         Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
1405
         Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
1403
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1406
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1407
+        Me.Panel1.Controls.Add(Me.紙帳總表_dgv)
1404
         Me.Panel1.Controls.Add(Me.水差名1_dgv)
1408
         Me.Panel1.Controls.Add(Me.水差名1_dgv)
1405
         Me.Panel1.Controls.Add(Me.紅利分表_dgv)
1409
         Me.Panel1.Controls.Add(Me.紅利分表_dgv)
1406
         Me.Panel1.Controls.Add(Me.所得名1_dgv)
1410
         Me.Panel1.Controls.Add(Me.所得名1_dgv)
1425
         Me.水差名1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1429
         Me.水差名1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1426
         Me.水差名1_dgv.Name = "水差名1_dgv"
1430
         Me.水差名1_dgv.Name = "水差名1_dgv"
1427
         Me.水差名1_dgv.RowHeadersWidth = 4
1431
         Me.水差名1_dgv.RowHeadersWidth = 4
1428
-        DataGridViewCellStyle25.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1429
-        Me.水差名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle25
1432
+        DataGridViewCellStyle26.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1433
+        Me.水差名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle26
1430
         Me.水差名1_dgv.RowTemplate.Height = 24
1434
         Me.水差名1_dgv.RowTemplate.Height = 24
1431
         Me.水差名1_dgv.Size = New System.Drawing.Size(154, 465)
1435
         Me.水差名1_dgv.Size = New System.Drawing.Size(154, 465)
1432
         Me.水差名1_dgv.TabIndex = 1684
1436
         Me.水差名1_dgv.TabIndex = 1684
1440
         Me.紅利分表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1444
         Me.紅利分表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1441
         Me.紅利分表_dgv.Name = "紅利分表_dgv"
1445
         Me.紅利分表_dgv.Name = "紅利分表_dgv"
1442
         Me.紅利分表_dgv.RowHeadersWidth = 4
1446
         Me.紅利分表_dgv.RowHeadersWidth = 4
1443
-        DataGridViewCellStyle26.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1444
-        Me.紅利分表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle26
1447
+        DataGridViewCellStyle27.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1448
+        Me.紅利分表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle27
1445
         Me.紅利分表_dgv.RowTemplate.Height = 24
1449
         Me.紅利分表_dgv.RowTemplate.Height = 24
1446
         Me.紅利分表_dgv.Size = New System.Drawing.Size(365, 334)
1450
         Me.紅利分表_dgv.Size = New System.Drawing.Size(365, 334)
1447
         Me.紅利分表_dgv.TabIndex = 1682
1451
         Me.紅利分表_dgv.TabIndex = 1682
1457
         Me.所得名1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1461
         Me.所得名1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1458
         Me.所得名1_dgv.Name = "所得名1_dgv"
1462
         Me.所得名1_dgv.Name = "所得名1_dgv"
1459
         Me.所得名1_dgv.RowHeadersWidth = 4
1463
         Me.所得名1_dgv.RowHeadersWidth = 4
1460
-        DataGridViewCellStyle27.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1461
-        Me.所得名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle27
1464
+        DataGridViewCellStyle28.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1465
+        Me.所得名1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
1462
         Me.所得名1_dgv.RowTemplate.Height = 24
1466
         Me.所得名1_dgv.RowTemplate.Height = 24
1463
         Me.所得名1_dgv.Size = New System.Drawing.Size(182, 573)
1467
         Me.所得名1_dgv.Size = New System.Drawing.Size(182, 573)
1464
         Me.所得名1_dgv.TabIndex = 1681
1468
         Me.所得名1_dgv.TabIndex = 1681
1470
         Me.紅利總表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1474
         Me.紅利總表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1471
         Me.紅利總表_dgv.BackgroundColor = System.Drawing.Color.White
1475
         Me.紅利總表_dgv.BackgroundColor = System.Drawing.Color.White
1472
         Me.紅利總表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1476
         Me.紅利總表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1473
-        Me.紅利總表_dgv.Location = New System.Drawing.Point(524, 337)
1477
+        Me.紅利總表_dgv.Location = New System.Drawing.Point(524, 445)
1474
         Me.紅利總表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1478
         Me.紅利總表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1475
         Me.紅利總表_dgv.Name = "紅利總表_dgv"
1479
         Me.紅利總表_dgv.Name = "紅利總表_dgv"
1476
         Me.紅利總表_dgv.RowHeadersWidth = 4
1480
         Me.紅利總表_dgv.RowHeadersWidth = 4
1477
-        DataGridViewCellStyle28.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1478
-        Me.紅利總表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
1481
+        DataGridViewCellStyle29.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1482
+        Me.紅利總表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle29
1479
         Me.紅利總表_dgv.RowTemplate.Height = 24
1483
         Me.紅利總表_dgv.RowTemplate.Height = 24
1480
-        Me.紅利總表_dgv.Size = New System.Drawing.Size(210, 573)
1484
+        Me.紅利總表_dgv.Size = New System.Drawing.Size(210, 465)
1481
         Me.紅利總表_dgv.TabIndex = 1683
1485
         Me.紅利總表_dgv.TabIndex = 1683
1482
         '
1486
         '
1483
         '上下所水分流表_bt
1487
         '上下所水分流表_bt
1582
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1586
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1583
         Me.水差合帳2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1587
         Me.水差合帳2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1584
         Me.水差合帳2_dgv.BackgroundColor = System.Drawing.Color.White
1588
         Me.水差合帳2_dgv.BackgroundColor = System.Drawing.Color.White
1585
-        DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1586
-        DataGridViewCellStyle29.BackColor = System.Drawing.SystemColors.Control
1587
-        DataGridViewCellStyle29.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1588
-        DataGridViewCellStyle29.ForeColor = System.Drawing.SystemColors.WindowText
1589
-        DataGridViewCellStyle29.SelectionBackColor = System.Drawing.Color.White
1590
-        DataGridViewCellStyle29.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1591
-        DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1592
-        Me.水差合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle29
1593
-        Me.水差合帳2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1594
         DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1589
         DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1595
-        DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Window
1590
+        DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Control
1596
         DataGridViewCellStyle30.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1591
         DataGridViewCellStyle30.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1597
-        DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.ControlText
1598
-        DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Info
1599
-        DataGridViewCellStyle30.SelectionForeColor = System.Drawing.Color.Black
1600
-        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1601
-        Me.水差合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle30
1592
+        DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText
1593
+        DataGridViewCellStyle30.SelectionBackColor = System.Drawing.Color.White
1594
+        DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1595
+        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1596
+        Me.水差合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30
1597
+        Me.水差合帳2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1598
+        DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1599
+        DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Window
1600
+        DataGridViewCellStyle31.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1601
+        DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.ControlText
1602
+        DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Info
1603
+        DataGridViewCellStyle31.SelectionForeColor = System.Drawing.Color.Black
1604
+        DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1605
+        Me.水差合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle31
1602
         Me.水差合帳2_dgv.Location = New System.Drawing.Point(-1, -1)
1606
         Me.水差合帳2_dgv.Location = New System.Drawing.Point(-1, -1)
1603
         Me.水差合帳2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1607
         Me.水差合帳2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1604
         Me.水差合帳2_dgv.Name = "水差合帳2_dgv"
1608
         Me.水差合帳2_dgv.Name = "水差合帳2_dgv"
1605
         Me.水差合帳2_dgv.RowHeadersWidth = 4
1609
         Me.水差合帳2_dgv.RowHeadersWidth = 4
1606
-        DataGridViewCellStyle31.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1607
-        Me.水差合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle31
1610
+        DataGridViewCellStyle32.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1611
+        Me.水差合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle32
1608
         Me.水差合帳2_dgv.RowTemplate.Height = 24
1612
         Me.水差合帳2_dgv.RowTemplate.Height = 24
1609
         Me.水差合帳2_dgv.Size = New System.Drawing.Size(280, 353)
1613
         Me.水差合帳2_dgv.Size = New System.Drawing.Size(280, 353)
1610
         Me.水差合帳2_dgv.TabIndex = 1699
1614
         Me.水差合帳2_dgv.TabIndex = 1699
1655
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1659
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1656
         Me.所得合帳2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1660
         Me.所得合帳2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1657
         Me.所得合帳2_dgv.BackgroundColor = System.Drawing.Color.White
1661
         Me.所得合帳2_dgv.BackgroundColor = System.Drawing.Color.White
1658
-        DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1659
-        DataGridViewCellStyle32.BackColor = System.Drawing.SystemColors.Control
1660
-        DataGridViewCellStyle32.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1661
-        DataGridViewCellStyle32.ForeColor = System.Drawing.SystemColors.WindowText
1662
-        DataGridViewCellStyle32.SelectionBackColor = System.Drawing.Color.White
1663
-        DataGridViewCellStyle32.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1664
-        DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1665
-        Me.所得合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle32
1666
-        Me.所得合帳2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1667
         DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1662
         DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1668
-        DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Window
1663
+        DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Control
1669
         DataGridViewCellStyle33.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1664
         DataGridViewCellStyle33.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1670
-        DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.ControlText
1671
-        DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Info
1672
-        DataGridViewCellStyle33.SelectionForeColor = System.Drawing.Color.Black
1673
-        DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1674
-        Me.所得合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle33
1665
+        DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.WindowText
1666
+        DataGridViewCellStyle33.SelectionBackColor = System.Drawing.Color.White
1667
+        DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1668
+        DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1669
+        Me.所得合帳2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle33
1670
+        Me.所得合帳2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1671
+        DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1672
+        DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Window
1673
+        DataGridViewCellStyle34.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1674
+        DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.ControlText
1675
+        DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Info
1676
+        DataGridViewCellStyle34.SelectionForeColor = System.Drawing.Color.Black
1677
+        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1678
+        Me.所得合帳2_dgv.DefaultCellStyle = DataGridViewCellStyle34
1675
         Me.所得合帳2_dgv.Location = New System.Drawing.Point(-1, -1)
1679
         Me.所得合帳2_dgv.Location = New System.Drawing.Point(-1, -1)
1676
         Me.所得合帳2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1680
         Me.所得合帳2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1677
         Me.所得合帳2_dgv.Name = "所得合帳2_dgv"
1681
         Me.所得合帳2_dgv.Name = "所得合帳2_dgv"
1678
         Me.所得合帳2_dgv.RowHeadersWidth = 4
1682
         Me.所得合帳2_dgv.RowHeadersWidth = 4
1679
-        DataGridViewCellStyle34.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1680
-        Me.所得合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle34
1683
+        DataGridViewCellStyle35.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1684
+        Me.所得合帳2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle35
1681
         Me.所得合帳2_dgv.RowTemplate.Height = 24
1685
         Me.所得合帳2_dgv.RowTemplate.Height = 24
1682
         Me.所得合帳2_dgv.Size = New System.Drawing.Size(280, 353)
1686
         Me.所得合帳2_dgv.Size = New System.Drawing.Size(280, 353)
1683
         Me.所得合帳2_dgv.TabIndex = 1630
1687
         Me.所得合帳2_dgv.TabIndex = 1630
1692
         Me.所得合帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1696
         Me.所得合帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1693
         Me.所得合帳1_dgv.Name = "所得合帳1_dgv"
1697
         Me.所得合帳1_dgv.Name = "所得合帳1_dgv"
1694
         Me.所得合帳1_dgv.RowHeadersWidth = 4
1698
         Me.所得合帳1_dgv.RowHeadersWidth = 4
1695
-        DataGridViewCellStyle35.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1696
-        Me.所得合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle35
1699
+        DataGridViewCellStyle36.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1700
+        Me.所得合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle36
1697
         Me.所得合帳1_dgv.RowTemplate.Height = 24
1701
         Me.所得合帳1_dgv.RowTemplate.Height = 24
1698
         Me.所得合帳1_dgv.Size = New System.Drawing.Size(280, 84)
1702
         Me.所得合帳1_dgv.Size = New System.Drawing.Size(280, 84)
1699
         Me.所得合帳1_dgv.TabIndex = 1629
1703
         Me.所得合帳1_dgv.TabIndex = 1629
1767
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
1771
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
1768
         Me.紅利整合_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1772
         Me.紅利整合_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1769
         Me.紅利整合_dgv.BackgroundColor = System.Drawing.Color.White
1773
         Me.紅利整合_dgv.BackgroundColor = System.Drawing.Color.White
1770
-        DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1771
-        DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Control
1772
-        DataGridViewCellStyle36.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1773
-        DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.WindowText
1774
-        DataGridViewCellStyle36.SelectionBackColor = System.Drawing.Color.White
1775
-        DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1776
-        DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1777
-        Me.紅利整合_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle36
1778
-        Me.紅利整合_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1779
         DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1774
         DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1780
-        DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Window
1775
+        DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Control
1781
         DataGridViewCellStyle37.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1776
         DataGridViewCellStyle37.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1782
-        DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.ControlText
1783
-        DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Info
1784
-        DataGridViewCellStyle37.SelectionForeColor = System.Drawing.Color.Black
1785
-        DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1786
-        Me.紅利整合_dgv.DefaultCellStyle = DataGridViewCellStyle37
1777
+        DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText
1778
+        DataGridViewCellStyle37.SelectionBackColor = System.Drawing.Color.White
1779
+        DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1780
+        DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1781
+        Me.紅利整合_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle37
1782
+        Me.紅利整合_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1783
+        DataGridViewCellStyle38.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1784
+        DataGridViewCellStyle38.BackColor = System.Drawing.SystemColors.Window
1785
+        DataGridViewCellStyle38.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1786
+        DataGridViewCellStyle38.ForeColor = System.Drawing.SystemColors.ControlText
1787
+        DataGridViewCellStyle38.SelectionBackColor = System.Drawing.SystemColors.Info
1788
+        DataGridViewCellStyle38.SelectionForeColor = System.Drawing.Color.Black
1789
+        DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1790
+        Me.紅利整合_dgv.DefaultCellStyle = DataGridViewCellStyle38
1787
         Me.紅利整合_dgv.Location = New System.Drawing.Point(-1, -1)
1791
         Me.紅利整合_dgv.Location = New System.Drawing.Point(-1, -1)
1788
         Me.紅利整合_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1792
         Me.紅利整合_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1789
         Me.紅利整合_dgv.Name = "紅利整合_dgv"
1793
         Me.紅利整合_dgv.Name = "紅利整合_dgv"
1790
         Me.紅利整合_dgv.RowHeadersWidth = 4
1794
         Me.紅利整合_dgv.RowHeadersWidth = 4
1791
-        DataGridViewCellStyle38.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1792
-        Me.紅利整合_dgv.RowsDefaultCellStyle = DataGridViewCellStyle38
1795
+        DataGridViewCellStyle39.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1796
+        Me.紅利整合_dgv.RowsDefaultCellStyle = DataGridViewCellStyle39
1793
         Me.紅利整合_dgv.RowTemplate.Height = 24
1797
         Me.紅利整合_dgv.RowTemplate.Height = 24
1794
         Me.紅利整合_dgv.Size = New System.Drawing.Size(170, 476)
1798
         Me.紅利整合_dgv.Size = New System.Drawing.Size(170, 476)
1795
         Me.紅利整合_dgv.TabIndex = 1695
1799
         Me.紅利整合_dgv.TabIndex = 1695
1802
         Me.紅利收入_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1806
         Me.紅利收入_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1803
         Me.紅利收入_dgv.BackgroundColor = System.Drawing.Color.White
1807
         Me.紅利收入_dgv.BackgroundColor = System.Drawing.Color.White
1804
         Me.紅利收入_dgv.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
1808
         Me.紅利收入_dgv.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
1805
-        DataGridViewCellStyle39.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1806
-        DataGridViewCellStyle39.BackColor = System.Drawing.SystemColors.Control
1807
-        DataGridViewCellStyle39.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1808
-        DataGridViewCellStyle39.ForeColor = System.Drawing.SystemColors.WindowText
1809
-        DataGridViewCellStyle39.SelectionBackColor = System.Drawing.Color.White
1810
-        DataGridViewCellStyle39.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1811
-        DataGridViewCellStyle39.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1812
-        Me.紅利收入_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle39
1813
-        Me.紅利收入_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1814
         DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1809
         DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1815
-        DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Window
1810
+        DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control
1816
         DataGridViewCellStyle40.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1811
         DataGridViewCellStyle40.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1817
-        DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.ControlText
1818
-        DataGridViewCellStyle40.SelectionBackColor = System.Drawing.Color.Gainsboro
1819
-        DataGridViewCellStyle40.SelectionForeColor = System.Drawing.Color.Black
1820
-        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1821
-        Me.紅利收入_dgv.DefaultCellStyle = DataGridViewCellStyle40
1812
+        DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText
1813
+        DataGridViewCellStyle40.SelectionBackColor = System.Drawing.Color.White
1814
+        DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1815
+        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1816
+        Me.紅利收入_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40
1817
+        Me.紅利收入_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1818
+        DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1819
+        DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window
1820
+        DataGridViewCellStyle41.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1821
+        DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText
1822
+        DataGridViewCellStyle41.SelectionBackColor = System.Drawing.Color.Gainsboro
1823
+        DataGridViewCellStyle41.SelectionForeColor = System.Drawing.Color.Black
1824
+        DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1825
+        Me.紅利收入_dgv.DefaultCellStyle = DataGridViewCellStyle41
1822
         Me.紅利收入_dgv.Location = New System.Drawing.Point(-1, 153)
1826
         Me.紅利收入_dgv.Location = New System.Drawing.Point(-1, 153)
1823
         Me.紅利收入_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1827
         Me.紅利收入_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1824
         Me.紅利收入_dgv.Name = "紅利收入_dgv"
1828
         Me.紅利收入_dgv.Name = "紅利收入_dgv"
1825
         Me.紅利收入_dgv.RowHeadersWidth = 4
1829
         Me.紅利收入_dgv.RowHeadersWidth = 4
1826
-        DataGridViewCellStyle41.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1827
-        Me.紅利收入_dgv.RowsDefaultCellStyle = DataGridViewCellStyle41
1830
+        DataGridViewCellStyle42.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1831
+        Me.紅利收入_dgv.RowsDefaultCellStyle = DataGridViewCellStyle42
1828
         Me.紅利收入_dgv.RowTemplate.Height = 24
1832
         Me.紅利收入_dgv.RowTemplate.Height = 24
1829
         Me.紅利收入_dgv.Size = New System.Drawing.Size(170, 322)
1833
         Me.紅利收入_dgv.Size = New System.Drawing.Size(170, 322)
1830
         Me.紅利收入_dgv.TabIndex = 1694
1834
         Me.紅利收入_dgv.TabIndex = 1694
1836
         Me.紅利支出_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1840
         Me.紅利支出_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1837
         Me.紅利支出_dgv.BackgroundColor = System.Drawing.Color.White
1841
         Me.紅利支出_dgv.BackgroundColor = System.Drawing.Color.White
1838
         Me.紅利支出_dgv.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
1842
         Me.紅利支出_dgv.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
1839
-        DataGridViewCellStyle42.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1840
-        DataGridViewCellStyle42.BackColor = System.Drawing.SystemColors.Control
1841
-        DataGridViewCellStyle42.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1842
-        DataGridViewCellStyle42.ForeColor = System.Drawing.SystemColors.WindowText
1843
-        DataGridViewCellStyle42.SelectionBackColor = System.Drawing.Color.White
1844
-        DataGridViewCellStyle42.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1845
-        DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1846
-        Me.紅利支出_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle42
1847
-        Me.紅利支出_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1848
         DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1843
         DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1849
-        DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Window
1844
+        DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control
1850
         DataGridViewCellStyle43.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1845
         DataGridViewCellStyle43.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1851
-        DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.ControlText
1852
-        DataGridViewCellStyle43.SelectionBackColor = System.Drawing.Color.Gainsboro
1853
-        DataGridViewCellStyle43.SelectionForeColor = System.Drawing.Color.Black
1854
-        DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1855
-        Me.紅利支出_dgv.DefaultCellStyle = DataGridViewCellStyle43
1846
+        DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
1847
+        DataGridViewCellStyle43.SelectionBackColor = System.Drawing.Color.White
1848
+        DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1849
+        DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1850
+        Me.紅利支出_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43
1851
+        Me.紅利支出_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1852
+        DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1853
+        DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window
1854
+        DataGridViewCellStyle44.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1855
+        DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText
1856
+        DataGridViewCellStyle44.SelectionBackColor = System.Drawing.Color.Gainsboro
1857
+        DataGridViewCellStyle44.SelectionForeColor = System.Drawing.Color.Black
1858
+        DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1859
+        Me.紅利支出_dgv.DefaultCellStyle = DataGridViewCellStyle44
1856
         Me.紅利支出_dgv.Location = New System.Drawing.Point(-1, -1)
1860
         Me.紅利支出_dgv.Location = New System.Drawing.Point(-1, -1)
1857
         Me.紅利支出_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1861
         Me.紅利支出_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1858
         Me.紅利支出_dgv.Name = "紅利支出_dgv"
1862
         Me.紅利支出_dgv.Name = "紅利支出_dgv"
1859
         Me.紅利支出_dgv.RowHeadersWidth = 4
1863
         Me.紅利支出_dgv.RowHeadersWidth = 4
1860
-        DataGridViewCellStyle44.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1861
-        Me.紅利支出_dgv.RowsDefaultCellStyle = DataGridViewCellStyle44
1864
+        DataGridViewCellStyle45.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1865
+        Me.紅利支出_dgv.RowsDefaultCellStyle = DataGridViewCellStyle45
1862
         Me.紅利支出_dgv.RowTemplate.Height = 24
1866
         Me.紅利支出_dgv.RowTemplate.Height = 24
1863
         Me.紅利支出_dgv.Size = New System.Drawing.Size(170, 155)
1867
         Me.紅利支出_dgv.Size = New System.Drawing.Size(170, 155)
1864
         Me.紅利支出_dgv.TabIndex = 1693
1868
         Me.紅利支出_dgv.TabIndex = 1693
1869
         Me.紙帳前期_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1873
         Me.紙帳前期_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1870
         Me.紙帳前期_dgv.BackgroundColor = System.Drawing.Color.White
1874
         Me.紙帳前期_dgv.BackgroundColor = System.Drawing.Color.White
1871
         Me.紙帳前期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1875
         Me.紙帳前期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1872
-        DataGridViewCellStyle45.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1873
-        DataGridViewCellStyle45.BackColor = System.Drawing.SystemColors.Window
1874
-        DataGridViewCellStyle45.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1875
-        DataGridViewCellStyle45.ForeColor = System.Drawing.SystemColors.ControlText
1876
-        DataGridViewCellStyle45.SelectionBackColor = System.Drawing.SystemColors.Info
1877
-        DataGridViewCellStyle45.SelectionForeColor = System.Drawing.Color.Black
1878
-        DataGridViewCellStyle45.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1879
-        Me.紙帳前期_dgv.DefaultCellStyle = DataGridViewCellStyle45
1876
+        DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1877
+        DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Window
1878
+        DataGridViewCellStyle46.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1879
+        DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.ControlText
1880
+        DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Info
1881
+        DataGridViewCellStyle46.SelectionForeColor = System.Drawing.Color.Black
1882
+        DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1883
+        Me.紙帳前期_dgv.DefaultCellStyle = DataGridViewCellStyle46
1880
         Me.紙帳前期_dgv.Location = New System.Drawing.Point(-1, 302)
1884
         Me.紙帳前期_dgv.Location = New System.Drawing.Point(-1, 302)
1881
         Me.紙帳前期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1885
         Me.紙帳前期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1882
         Me.紙帳前期_dgv.Name = "紙帳前期_dgv"
1886
         Me.紙帳前期_dgv.Name = "紙帳前期_dgv"
1883
         Me.紙帳前期_dgv.RowHeadersWidth = 4
1887
         Me.紙帳前期_dgv.RowHeadersWidth = 4
1884
-        DataGridViewCellStyle46.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1885
-        Me.紙帳前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle46
1888
+        DataGridViewCellStyle47.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1889
+        Me.紙帳前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle47
1886
         Me.紙帳前期_dgv.RowTemplate.Height = 24
1890
         Me.紙帳前期_dgv.RowTemplate.Height = 24
1887
         Me.紙帳前期_dgv.Size = New System.Drawing.Size(170, 51)
1891
         Me.紙帳前期_dgv.Size = New System.Drawing.Size(170, 51)
1888
         Me.紙帳前期_dgv.TabIndex = 1631
1892
         Me.紙帳前期_dgv.TabIndex = 1631
1905
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1909
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
1906
         Me.紙帳非前期_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1910
         Me.紙帳非前期_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1907
         Me.紙帳非前期_dgv.BackgroundColor = System.Drawing.Color.White
1911
         Me.紙帳非前期_dgv.BackgroundColor = System.Drawing.Color.White
1908
-        DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1909
-        DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Control
1910
-        DataGridViewCellStyle47.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1911
-        DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.WindowText
1912
-        DataGridViewCellStyle47.SelectionBackColor = System.Drawing.Color.White
1913
-        DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1914
-        DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1915
-        Me.紙帳非前期_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle47
1916
-        Me.紙帳非前期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1917
         DataGridViewCellStyle48.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1912
         DataGridViewCellStyle48.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1918
-        DataGridViewCellStyle48.BackColor = System.Drawing.SystemColors.Window
1913
+        DataGridViewCellStyle48.BackColor = System.Drawing.SystemColors.Control
1919
         DataGridViewCellStyle48.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1914
         DataGridViewCellStyle48.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1920
-        DataGridViewCellStyle48.ForeColor = System.Drawing.SystemColors.ControlText
1921
-        DataGridViewCellStyle48.SelectionBackColor = System.Drawing.SystemColors.Info
1922
-        DataGridViewCellStyle48.SelectionForeColor = System.Drawing.Color.Black
1923
-        DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1924
-        Me.紙帳非前期_dgv.DefaultCellStyle = DataGridViewCellStyle48
1915
+        DataGridViewCellStyle48.ForeColor = System.Drawing.SystemColors.WindowText
1916
+        DataGridViewCellStyle48.SelectionBackColor = System.Drawing.Color.White
1917
+        DataGridViewCellStyle48.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1918
+        DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1919
+        Me.紙帳非前期_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle48
1920
+        Me.紙帳非前期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1921
+        DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1922
+        DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Window
1923
+        DataGridViewCellStyle49.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1924
+        DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.ControlText
1925
+        DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Info
1926
+        DataGridViewCellStyle49.SelectionForeColor = System.Drawing.Color.Black
1927
+        DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
1928
+        Me.紙帳非前期_dgv.DefaultCellStyle = DataGridViewCellStyle49
1925
         Me.紙帳非前期_dgv.Location = New System.Drawing.Point(-1, -1)
1929
         Me.紙帳非前期_dgv.Location = New System.Drawing.Point(-1, -1)
1926
         Me.紙帳非前期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1930
         Me.紙帳非前期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1927
         Me.紙帳非前期_dgv.Name = "紙帳非前期_dgv"
1931
         Me.紙帳非前期_dgv.Name = "紙帳非前期_dgv"
1928
         Me.紙帳非前期_dgv.RowHeadersWidth = 4
1932
         Me.紙帳非前期_dgv.RowHeadersWidth = 4
1929
-        DataGridViewCellStyle49.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1930
-        Me.紙帳非前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle49
1933
+        DataGridViewCellStyle50.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1934
+        Me.紙帳非前期_dgv.RowsDefaultCellStyle = DataGridViewCellStyle50
1931
         Me.紙帳非前期_dgv.RowTemplate.Height = 24
1935
         Me.紙帳非前期_dgv.RowTemplate.Height = 24
1932
         Me.紙帳非前期_dgv.Size = New System.Drawing.Size(170, 304)
1936
         Me.紙帳非前期_dgv.Size = New System.Drawing.Size(170, 304)
1933
         Me.紙帳非前期_dgv.TabIndex = 1632
1937
         Me.紙帳非前期_dgv.TabIndex = 1632
1953
         Me.水差合帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1957
         Me.水差合帳1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
1954
         Me.水差合帳1_dgv.Name = "水差合帳1_dgv"
1958
         Me.水差合帳1_dgv.Name = "水差合帳1_dgv"
1955
         Me.水差合帳1_dgv.RowHeadersWidth = 4
1959
         Me.水差合帳1_dgv.RowHeadersWidth = 4
1956
-        DataGridViewCellStyle50.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1957
-        Me.水差合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle50
1960
+        DataGridViewCellStyle51.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1961
+        Me.水差合帳1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle51
1958
         Me.水差合帳1_dgv.RowTemplate.Height = 24
1962
         Me.水差合帳1_dgv.RowTemplate.Height = 24
1959
         Me.水差合帳1_dgv.Size = New System.Drawing.Size(280, 110)
1963
         Me.水差合帳1_dgv.Size = New System.Drawing.Size(280, 110)
1960
         Me.水差合帳1_dgv.TabIndex = 1698
1964
         Me.水差合帳1_dgv.TabIndex = 1698
2045
         '
2049
         '
2046
         '電板客戶_dgv
2050
         '電板客戶_dgv
2047
         '
2051
         '
2048
-        DataGridViewCellStyle51.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2049
-        Me.電板客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51
2052
+        DataGridViewCellStyle52.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2053
+        Me.電板客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle52
2050
         Me.電板客戶_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2054
         Me.電板客戶_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2051
             Or System.Windows.Forms.AnchorStyles.Left) _
2055
             Or System.Windows.Forms.AnchorStyles.Left) _
2052
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2056
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2062
         '
2066
         '
2063
         '電板紙帳1_dgv
2067
         '電板紙帳1_dgv
2064
         '
2068
         '
2065
-        DataGridViewCellStyle52.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2066
-        Me.電板紙帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle52
2069
+        DataGridViewCellStyle53.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2070
+        Me.電板紙帳1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle53
2067
         Me.電板紙帳1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2071
         Me.電板紙帳1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2068
             Or System.Windows.Forms.AnchorStyles.Left) _
2072
             Or System.Windows.Forms.AnchorStyles.Left) _
2069
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2073
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2079
         '
2083
         '
2080
         '紙帳流水1_dgv
2084
         '紙帳流水1_dgv
2081
         '
2085
         '
2082
-        DataGridViewCellStyle53.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2083
-        Me.紙帳流水1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle53
2086
+        DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2087
+        Me.紙帳流水1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54
2084
         Me.紙帳流水1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2088
         Me.紙帳流水1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2085
             Or System.Windows.Forms.AnchorStyles.Left) _
2089
             Or System.Windows.Forms.AnchorStyles.Left) _
2086
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2090
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2119
         '
2123
         '
2120
         '紙帳導入_dgv
2124
         '紙帳導入_dgv
2121
         '
2125
         '
2122
-        DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2123
-        Me.紙帳導入_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54
2126
+        DataGridViewCellStyle55.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2127
+        Me.紙帳導入_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle55
2124
         Me.紙帳導入_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2128
         Me.紙帳導入_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2125
             Or System.Windows.Forms.AnchorStyles.Left) _
2129
             Or System.Windows.Forms.AnchorStyles.Left) _
2126
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2130
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2136
         '
2140
         '
2137
         '電板所得_dgv
2141
         '電板所得_dgv
2138
         '
2142
         '
2139
-        DataGridViewCellStyle55.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2140
-        Me.電板所得_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle55
2143
+        DataGridViewCellStyle56.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2144
+        Me.電板所得_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle56
2141
         Me.電板所得_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2145
         Me.電板所得_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2142
             Or System.Windows.Forms.AnchorStyles.Left) _
2146
             Or System.Windows.Forms.AnchorStyles.Left) _
2143
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2147
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2165
         '
2169
         '
2166
         '網址修正_dgv
2170
         '網址修正_dgv
2167
         '
2171
         '
2168
-        DataGridViewCellStyle56.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2169
-        Me.網址修正_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle56
2172
+        DataGridViewCellStyle57.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
2173
+        Me.網址修正_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle57
2170
         Me.網址修正_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2174
         Me.網址修正_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2171
             Or System.Windows.Forms.AnchorStyles.Left) _
2175
             Or System.Windows.Forms.AnchorStyles.Left) _
2172
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2176
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2210
         Me.自定帳務_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2214
         Me.自定帳務_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2211
         Me.自定帳務_dgv.BackgroundColor = System.Drawing.Color.White
2215
         Me.自定帳務_dgv.BackgroundColor = System.Drawing.Color.White
2212
         Me.自定帳務_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
2216
         Me.自定帳務_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
2213
-        DataGridViewCellStyle57.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
2214
-        DataGridViewCellStyle57.BackColor = System.Drawing.SystemColors.Window
2215
-        DataGridViewCellStyle57.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2216
-        DataGridViewCellStyle57.ForeColor = System.Drawing.SystemColors.ControlText
2217
-        DataGridViewCellStyle57.SelectionBackColor = System.Drawing.SystemColors.Info
2218
-        DataGridViewCellStyle57.SelectionForeColor = System.Drawing.Color.Black
2219
-        DataGridViewCellStyle57.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
2220
-        Me.自定帳務_dgv.DefaultCellStyle = DataGridViewCellStyle57
2217
+        DataGridViewCellStyle58.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
2218
+        DataGridViewCellStyle58.BackColor = System.Drawing.SystemColors.Window
2219
+        DataGridViewCellStyle58.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2220
+        DataGridViewCellStyle58.ForeColor = System.Drawing.SystemColors.ControlText
2221
+        DataGridViewCellStyle58.SelectionBackColor = System.Drawing.SystemColors.Info
2222
+        DataGridViewCellStyle58.SelectionForeColor = System.Drawing.Color.Black
2223
+        DataGridViewCellStyle58.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
2224
+        Me.自定帳務_dgv.DefaultCellStyle = DataGridViewCellStyle58
2221
         Me.自定帳務_dgv.Location = New System.Drawing.Point(-1, 19)
2225
         Me.自定帳務_dgv.Location = New System.Drawing.Point(-1, 19)
2222
         Me.自定帳務_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
2226
         Me.自定帳務_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
2223
         Me.自定帳務_dgv.Name = "自定帳務_dgv"
2227
         Me.自定帳務_dgv.Name = "自定帳務_dgv"
2224
         Me.自定帳務_dgv.RowHeadersWidth = 4
2228
         Me.自定帳務_dgv.RowHeadersWidth = 4
2225
-        DataGridViewCellStyle58.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2226
-        Me.自定帳務_dgv.RowsDefaultCellStyle = DataGridViewCellStyle58
2229
+        DataGridViewCellStyle59.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2230
+        Me.自定帳務_dgv.RowsDefaultCellStyle = DataGridViewCellStyle59
2227
         Me.自定帳務_dgv.RowTemplate.Height = 24
2231
         Me.自定帳務_dgv.RowTemplate.Height = 24
2228
         Me.自定帳務_dgv.Size = New System.Drawing.Size(408, 139)
2232
         Me.自定帳務_dgv.Size = New System.Drawing.Size(408, 139)
2229
         Me.自定帳務_dgv.TabIndex = 1703
2233
         Me.自定帳務_dgv.TabIndex = 1703
2607
         Me.SplitContainer4.SplitterDistance = 807
2611
         Me.SplitContainer4.SplitterDistance = 807
2608
         Me.SplitContainer4.TabIndex = 1716
2612
         Me.SplitContainer4.TabIndex = 1716
2609
         '
2613
         '
2614
+        'TextBox1
2615
+        '
2616
+        Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2617
+        Me.TextBox1.ForeColor = System.Drawing.Color.Red
2618
+        Me.TextBox1.Location = New System.Drawing.Point(493, 1)
2619
+        Me.TextBox1.Name = "TextBox1"
2620
+        Me.TextBox1.Size = New System.Drawing.Size(61, 23)
2621
+        Me.TextBox1.TabIndex = 1720
2622
+        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
2623
+        '
2624
+        'Label22
2625
+        '
2626
+        Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2627
+        Me.Label22.AutoSize = True
2628
+        Me.Label22.Location = New System.Drawing.Point(474, 4)
2629
+        Me.Label22.Name = "Label22"
2630
+        Me.Label22.Size = New System.Drawing.Size(19, 16)
2631
+        Me.Label22.TabIndex = 1718
2632
+        Me.Label22.Text = "共"
2633
+        '
2610
         '控制隱藏_ch
2634
         '控制隱藏_ch
2611
         '
2635
         '
2612
         Me.控制隱藏_ch.AutoSize = True
2636
         Me.控制隱藏_ch.AutoSize = True
2640
         Me.其他操作功能_bt.Text = "其他操作功能"
2664
         Me.其他操作功能_bt.Text = "其他操作功能"
2641
         Me.其他操作功能_bt.UseVisualStyleBackColor = True
2665
         Me.其他操作功能_bt.UseVisualStyleBackColor = True
2642
         '
2666
         '
2667
+        'Label23
2668
+        '
2669
+        Me.Label23.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2670
+        Me.Label23.AutoSize = True
2671
+        Me.Label23.Location = New System.Drawing.Point(554, 4)
2672
+        Me.Label23.Name = "Label23"
2673
+        Me.Label23.Size = New System.Drawing.Size(43, 16)
2674
+        Me.Label23.TabIndex = 1719
2675
+        Me.Label23.Text = "筆資料"
2676
+        '
2643
         'PictureBox1
2677
         'PictureBox1
2644
         '
2678
         '
2645
         Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
2679
         Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
2651
         Me.PictureBox1.TabIndex = 1619
2685
         Me.PictureBox1.TabIndex = 1619
2652
         Me.PictureBox1.TabStop = False
2686
         Me.PictureBox1.TabStop = False
2653
         '
2687
         '
2654
-        'TextBox1
2655
-        '
2656
-        Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2657
-        Me.TextBox1.ForeColor = System.Drawing.Color.Red
2658
-        Me.TextBox1.Location = New System.Drawing.Point(493, 1)
2659
-        Me.TextBox1.Name = "TextBox1"
2660
-        Me.TextBox1.Size = New System.Drawing.Size(61, 23)
2661
-        Me.TextBox1.TabIndex = 1720
2662
-        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
2663
-        '
2664
-        'Label23
2665
-        '
2666
-        Me.Label23.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2667
-        Me.Label23.AutoSize = True
2668
-        Me.Label23.Location = New System.Drawing.Point(554, 4)
2669
-        Me.Label23.Name = "Label23"
2670
-        Me.Label23.Size = New System.Drawing.Size(43, 16)
2671
-        Me.Label23.TabIndex = 1719
2672
-        Me.Label23.Text = "筆資料"
2673
-        '
2674
-        'Label22
2688
+        '紙帳總表_dgv
2675
         '
2689
         '
2676
-        Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2677
-        Me.Label22.AutoSize = True
2678
-        Me.Label22.Location = New System.Drawing.Point(474, 4)
2679
-        Me.Label22.Name = "Label22"
2680
-        Me.Label22.Size = New System.Drawing.Size(19, 16)
2681
-        Me.Label22.TabIndex = 1718
2682
-        Me.Label22.Text = "共"
2690
+        Me.紙帳總表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
2691
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2692
+        Me.紙帳總表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2693
+        Me.紙帳總表_dgv.BackgroundColor = System.Drawing.Color.White
2694
+        Me.紙帳總表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
2695
+        Me.紙帳總表_dgv.Location = New System.Drawing.Point(524, 337)
2696
+        Me.紙帳總表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
2697
+        Me.紙帳總表_dgv.Name = "紙帳總表_dgv"
2698
+        Me.紙帳總表_dgv.RowHeadersWidth = 4
2699
+        DataGridViewCellStyle25.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2700
+        Me.紙帳總表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle25
2701
+        Me.紙帳總表_dgv.RowTemplate.Height = 24
2702
+        Me.紙帳總表_dgv.Size = New System.Drawing.Size(210, 107)
2703
+        Me.紙帳總表_dgv.TabIndex = 1685
2683
         '
2704
         '
2684
         '電板帳務彙總計算表
2705
         '電板帳務彙總計算表
2685
         '
2706
         '
2714
         Me.Controls.Add(Me.彙總1_dgv)
2735
         Me.Controls.Add(Me.彙總1_dgv)
2715
         Me.Controls.Add(Me.客戶下_dgv)
2736
         Me.Controls.Add(Me.客戶下_dgv)
2716
         Me.Controls.Add(Me.L50)
2737
         Me.Controls.Add(Me.L50)
2717
-        Me.Controls.Add(Me.Panel2)
2718
         Me.Controls.Add(Me.Panel1)
2738
         Me.Controls.Add(Me.Panel1)
2719
         Me.Controls.Add(Me.流水帳_dgv)
2739
         Me.Controls.Add(Me.流水帳_dgv)
2720
         Me.Controls.Add(Me.Label4)
2740
         Me.Controls.Add(Me.Label4)
2724
         Me.Controls.Add(Me.Label16)
2744
         Me.Controls.Add(Me.Label16)
2725
         Me.Controls.Add(Me.SplitContainer4)
2745
         Me.Controls.Add(Me.SplitContainer4)
2726
         Me.Controls.Add(Me.Panel3)
2746
         Me.Controls.Add(Me.Panel3)
2747
+        Me.Controls.Add(Me.Panel2)
2727
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2748
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2728
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
2749
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
2729
         Me.Name = "電板帳務彙總計算表"
2750
         Me.Name = "電板帳務彙總計算表"
2800
         CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).EndInit()
2821
         CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).EndInit()
2801
         Me.SplitContainer4.ResumeLayout(False)
2822
         Me.SplitContainer4.ResumeLayout(False)
2802
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
2823
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
2824
+        CType(Me.紙帳總表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
2803
         Me.ResumeLayout(False)
2825
         Me.ResumeLayout(False)
2804
         Me.PerformLayout()
2826
         Me.PerformLayout()
2805
 
2827
 
2976
     Friend WithEvents TextBox1 As TextBox
2998
     Friend WithEvents TextBox1 As TextBox
2977
     Friend WithEvents Label22 As Label
2999
     Friend WithEvents Label22 As Label
2978
     Friend WithEvents Label23 As Label
3000
     Friend WithEvents Label23 As Label
3001
+    Friend WithEvents 紙帳總表_dgv As DataGridView
2979
 End Class
3002
 End Class

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

10
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
10
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
11
 Imports Microsoft.Office.Interop.Excel.XlWindowState
11
 Imports Microsoft.Office.Interop.Excel.XlWindowState
12
 Public Class 電板帳務彙總計算表
12
 Public Class 電板帳務彙總計算表
13
-    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10, ds15, ds16, ds17, ds18, ds19, ds20 As New DataSet
13
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10, ds15, ds16, ds17, ds18, ds19, ds20, ds21 As New DataSet
14
     Dim GP As Integer = 0 : Dim NH1, 批次, 選擇記憶 As Integer
14
     Dim GP As Integer = 0 : Dim NH1, 批次, 選擇記憶 As Integer
15
     Dim GPP As String : Dim 本周周一 As Date
15
     Dim GPP As String : Dim 本周周一 As Date
16
     Dim 暫不計算, 是否明細, 是否子明細, 上繳反轉, 紙帳存檔, 其他控制 As Boolean
16
     Dim 暫不計算, 是否明細, 是否子明細, 上繳反轉, 紙帳存檔, 其他控制 As Boolean
123
             MsgBox(ex.Message) '錯誤訊息
123
             MsgBox(ex.Message) '錯誤訊息
124
         End Try
124
         End Try
125
     End Sub
125
     End Sub
126
+    Private Sub Set_紙單出帳1()
127
+        Try
128
+            紙帳總表_dgv.DataSource = Nothing : ds21.Clear()
129
+            紙帳總表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
130
+            紙帳總表_dgv.ColumnHeadersHeight = 25
131
+            紙帳總表_dgv.AllowUserToAddRows = False
132
+            SQL_紙單出帳()
133
+            da.Fill(ds21) : 紙帳總表_dgv.DataSource = ds21.Tables(0) : conn.Close()
134
+            紙帳總表_dgv.Columns("交收金額").Visible = False
135
+            紙帳總表_dgv.Columns("交收金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
136
+        Catch ex As Exception
137
+            MsgBox(ex.Message) '錯誤訊息
138
+        End Try
139
+    End Sub
126
     Private Sub Set_客戶下清單()
140
     Private Sub Set_客戶下清單()
127
         客戶下_dgv.DataSource = Nothing : ds4.Clear()
141
         客戶下_dgv.DataSource = Nothing : ds4.Clear()
128
         客戶下_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
142
         客戶下_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
170
         For i As Integer = 0 To 紅利分表_dgv.Rows.Count - 1 : 紅利分表_dgv("紅利", i).Value = 0 : Next
184
         For i As Integer = 0 To 紅利分表_dgv.Rows.Count - 1 : 紅利分表_dgv("紅利", i).Value = 0 : Next
171
     End Sub
185
     End Sub
172
     Private Sub Set_流水帳清單1()
186
     Private Sub Set_流水帳清單1()
173
-        Set_上繳名() : Set_下收名() : Set_所得名() : Set_所得名只算所得() : Set_水差名() : Set_水差出帳1()
187
+        Set_上繳名() : Set_下收名() : Set_所得名() : Set_所得名只算所得() : Set_水差名() : Set_水差出帳1() : Set_紙單出帳1()
174
         流水帳_dgv.DataSource = Nothing : ds.Clear() : 流水帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
188
         流水帳_dgv.DataSource = Nothing : ds.Clear() : 流水帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
175
         流水帳_dgv.ColumnHeadersHeight = 25
189
         流水帳_dgv.ColumnHeadersHeight = 25
176
         流水帳_dgv.AllowUserToAddRows = False
190
         流水帳_dgv.AllowUserToAddRows = False
2761
                     If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 紅利分表_dgv.Rows(I).Cells("所得戶").Value.ToString : End If
2775
                     If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 紅利分表_dgv.Rows(I).Cells("所得戶").Value.ToString : End If
2762
                 End If
2776
                 End If
2763
             Next
2777
             Next
2778
+
2779
+            MN2 = MN1
2780
+            For I As Integer = 0 To 紙帳總表_dgv.Rows.Count - 1
2781
+                For II As Integer = 0 To MN2 + 1
2782
+                    不需加 = False : If 紙帳總表_dgv.Rows(I).Cells("客戶").Value.ToString = 暫存(II) Or 紙帳總表_dgv.Rows(I).Cells("客戶").Value.ToString = "" Then : 不需加 = True : Exit For : End If
2783
+                Next
2784
+                If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 紙帳總表_dgv.Rows(I).Cells("客戶").Value.ToString : End If
2785
+            Next
2764
             NU1 = 合帳數 + 1
2786
             NU1 = 合帳數 + 1
2765
 
2787
 
2766
             Dim DS As New DataSet : 合帳_dgv.DataSource = Nothing : DS.Clear()
2788
             Dim DS As New DataSet : 合帳_dgv.DataSource = Nothing : DS.Clear()
3131
         依電板習慣_ch.Checked = False : 依球版習慣_ch.Checked = True
3153
         依電板習慣_ch.Checked = False : 依球版習慣_ch.Checked = True
3132
     End Sub
3154
     End Sub
3133
     Private Sub 紙帳計算_bt_Click(sender As Object, e As EventArgs) Handles 紙帳計算_bt.Click
3155
     Private Sub 紙帳計算_bt_Click(sender As Object, e As EventArgs) Handles 紙帳計算_bt.Click
3134
-        手工帳資料自動判斷() : 紙帳計算()
3156
+        Set_紙單出帳1() : 合帳_bt.PerformClick() : 紙帳計算()
3157
+        '手工帳資料自動判斷() : 紙帳計算()
3135
     End Sub
3158
     End Sub
3136
     Private Sub 紙板帳務編輯_bt_Click(sender As Object, e As EventArgs) Handles 紙板帳務編輯_bt.Click
3159
     Private Sub 紙板帳務編輯_bt_Click(sender As Object, e As EventArgs) Handles 紙板帳務編輯_bt.Click
3137
         SQL_暫存檔清空() : SQL2 = ""
3160
         SQL_暫存檔清空() : SQL2 = ""
3138
-        If 合帳_dgv.Rows.Count = 1 Then
3139
-            SQL2 = "('" & 合帳_dgv("客戶", 0).Value.ToString & "')"
3140
-        End If
3141
-        For i As Integer = 0 To 合帳_dgv.Rows.Count - 1
3142
-            If i = 合帳_dgv.Rows.Count - 1 Then
3143
-                SQL2 += "('" & 合帳_dgv("客戶", i).Value.ToString & "')"
3144
-            Else
3145
-                SQL2 += "('" & 合帳_dgv("客戶", i).Value.ToString & "'),"
3161
+        If 合帳_dgv.Rows.Count > 0 Then
3162
+            If 合帳_dgv.Rows.Count = 1 Then
3163
+                SQL2 = "('" & 合帳_dgv("客戶", 0).Value.ToString & "')"
3146
             End If
3164
             End If
3147
-        Next
3148
-        SQL_暫存檔新增()
3165
+            For i As Integer = 0 To 合帳_dgv.Rows.Count - 1
3166
+                If i = 合帳_dgv.Rows.Count - 1 Then
3167
+                    SQL2 += "('" & 合帳_dgv("客戶", i).Value.ToString & "')"
3168
+                Else
3169
+                    SQL2 += "('" & 合帳_dgv("客戶", i).Value.ToString & "'),"
3170
+                End If
3171
+            Next
3172
+            SQL_暫存檔新增()
3173
+        End If
3149
         PA47 = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 紙板帳務.Show()
3174
         PA47 = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 紙板帳務.Show()
3150
     End Sub
3175
     End Sub
3151
     Private Sub 自動調整存檔_bt_Click_1(sender As Object, e As EventArgs) Handles 自動調整存檔_bt.Click
3176
     Private Sub 自動調整存檔_bt_Click_1(sender As Object, e As EventArgs) Handles 自動調整存檔_bt.Click

+ 2
- 1
GA-ERP-SYS/特殊操作功能/系統公告.Designer.vb Zobrazit soubor

65
         Me.TextBox3.Name = "TextBox3"
65
         Me.TextBox3.Name = "TextBox3"
66
         Me.TextBox3.Size = New System.Drawing.Size(569, 514)
66
         Me.TextBox3.Size = New System.Drawing.Size(569, 514)
67
         Me.TextBox3.TabIndex = 2
67
         Me.TextBox3.TabIndex = 2
68
-        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)
68
+        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、電板 帳務彙總表 修正 客人如果本周 [只有紙單] 或是只有 [前期未收] 時,在彙總表的 [紙板帳務" &
69
+    "編輯] " & 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)
69
         '
70
         '
70
         'TextBox4
71
         'TextBox4
71
         '
72
         '

+ 6
- 1
GA-ERP-SYS/特殊操作功能/系統公告.resx Zobrazit soubor

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

Loading…
Zrušit
Uložit