營運成本收支_決算表修改完成

Signed-off-by: B70340 <b70340@gmail.com>

MaoOrange-Hongji/MAOJI-ERP-SYS.Designer.vb

@@ -92,11 +92,11 @@ Partial Class MAOJI_ERP_SYS
         Me.營運費用支付單一覽表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.營運成本收支單對帳表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
+        Me.應付賬款控制表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.應收帳款控制表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator()
         Me.業務佣金計算ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.司機佣金計算ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator()
-        Me.應付賬款ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.應收帳款ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
         Me.營運成本收支決算表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.營運狀態彙總檢視表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -226,7 +226,7 @@ Partial Class MAOJI_ERP_SYS
         '
         Me.車輛保養紀錄表ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.車輛保養紀錄表ToolStripMenuItem.Name = "車輛保養紀錄表ToolStripMenuItem"
-        Me.車輛保養紀錄表ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.車輛保養紀錄表ToolStripMenuItem.Size = New System.Drawing.Size(158, 22)
         Me.車輛保養紀錄表ToolStripMenuItem.Text = "車輛保養紀錄表"
         '
         '業務系統管理ToolStripMenuItem
@@ -241,116 +241,116 @@ Partial Class MAOJI_ERP_SYS
         '
         Me.銷售控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.銷售控制表ToolStripMenuItem.Name = "銷售控制表ToolStripMenuItem"
-        Me.銷售控制表ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.銷售控制表ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.銷售控制表ToolStripMenuItem.Text = "銷售控制表"
         '
         'ToolStripSeparator6
         '
         Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
-        Me.ToolStripSeparator6.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator6.Size = New System.Drawing.Size(172, 6)
         '
         '訂單管理控制表ToolStripMenuItem
         '
         Me.訂單管理控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.訂單管理控制表ToolStripMenuItem.Name = "訂單管理控制表ToolStripMenuItem"
-        Me.訂單管理控制表ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.訂單管理控制表ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.訂單管理控制表ToolStripMenuItem.Text = "訂單管理控制表"
         '
         '訂單採購需求申請ToolStripMenuItem
         '
         Me.訂單採購需求申請ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.訂單採購需求申請ToolStripMenuItem.Name = "訂單採購需求申請ToolStripMenuItem"
-        Me.訂單採購需求申請ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.訂單採購需求申請ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.訂單採購需求申請ToolStripMenuItem.Text = "訂單採購需求申請"
         '
         '訂單出貨控制表ToolStripMenuItem
         '
         Me.訂單出貨控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.訂單出貨控制表ToolStripMenuItem.Name = "訂單出貨控制表ToolStripMenuItem"
-        Me.訂單出貨控制表ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.訂單出貨控制表ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.訂單出貨控制表ToolStripMenuItem.Text = "訂單出貨控制表"
         '
         'ToolStripSeparator11
         '
         Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
-        Me.ToolStripSeparator11.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator11.Size = New System.Drawing.Size(172, 6)
         '
         '出貨單申請ToolStripMenuItem
         '
         Me.出貨單申請ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.出貨單申請ToolStripMenuItem.Name = "出貨單申請ToolStripMenuItem"
-        Me.出貨單申請ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.出貨單申請ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.出貨單申請ToolStripMenuItem.Text = "出貨單申請"
         '
         '出貨確認ToolStripMenuItem
         '
         Me.出貨確認ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.出貨確認ToolStripMenuItem.Name = "出貨確認ToolStripMenuItem"
-        Me.出貨確認ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.出貨確認ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.出貨確認ToolStripMenuItem.Text = "出貨確認-倉儲出庫"
         '
         'ToolStripSeparator14
         '
         Me.ToolStripSeparator14.Name = "ToolStripSeparator14"
-        Me.ToolStripSeparator14.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator14.Size = New System.Drawing.Size(172, 6)
         '
         '維修單申請ToolStripMenuItem
         '
         Me.維修單申請ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.維修單申請ToolStripMenuItem.Name = "維修單申請ToolStripMenuItem"
-        Me.維修單申請ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.維修單申請ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.維修單申請ToolStripMenuItem.Text = "維修單申請"
         '
         '維修單出庫確認ToolStripMenuItem
         '
         Me.維修單出庫確認ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.維修單出庫確認ToolStripMenuItem.Name = "維修單出庫確認ToolStripMenuItem"
-        Me.維修單出庫確認ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.維修單出庫確認ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.維修單出庫確認ToolStripMenuItem.Text = "維修單出庫確認"
         '
         'ToolStripSeparator5
         '
         Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
-        Me.ToolStripSeparator5.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator5.Size = New System.Drawing.Size(172, 6)
         '
         '銷售退貨清單ToolStripMenuItem
         '
         Me.銷售退貨清單ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.銷售退貨清單ToolStripMenuItem.Name = "銷售退貨清單ToolStripMenuItem"
-        Me.銷售退貨清單ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.銷售退貨清單ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.銷售退貨清單ToolStripMenuItem.Text = "銷售退貨清單"
         '
         '銷售退貨申請ToolStripMenuItem
         '
         Me.銷售退貨申請ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.銷售退貨申請ToolStripMenuItem.Name = "銷售退貨申請ToolStripMenuItem"
-        Me.銷售退貨申請ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.銷售退貨申請ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.銷售退貨申請ToolStripMenuItem.Text = "銷售退貨申請"
         '
         '銷售退貨確認ToolStripMenuItem
         '
         Me.銷售退貨確認ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.銷售退貨確認ToolStripMenuItem.Name = "銷售退貨確認ToolStripMenuItem"
-        Me.銷售退貨確認ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.銷售退貨確認ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.銷售退貨確認ToolStripMenuItem.Text = "銷售退貨確認"
         '
         'ToolStripSeparator17
         '
         Me.ToolStripSeparator17.Name = "ToolStripSeparator17"
-        Me.ToolStripSeparator17.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator17.Size = New System.Drawing.Size(172, 6)
         '
         '客戶資料管理ToolStripMenuItem
         '
         Me.客戶資料管理ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.客戶資料管理ToolStripMenuItem.Name = "客戶資料管理ToolStripMenuItem"
-        Me.客戶資料管理ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.客戶資料管理ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.客戶資料管理ToolStripMenuItem.Text = "客戶資料管理"
         '
         '零售客戶記錄表ToolStripMenuItem
         '
         Me.零售客戶記錄表ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.零售客戶記錄表ToolStripMenuItem.Name = "零售客戶記錄表ToolStripMenuItem"
-        Me.零售客戶記錄表ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.零售客戶記錄表ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.零售客戶記錄表ToolStripMenuItem.Text = "零售客戶記錄表"
         '
         '生產系統管理ToolStripMenuItem
@@ -365,26 +365,26 @@ Partial Class MAOJI_ERP_SYS
         '
         Me.生產控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.Teal
         Me.生產控制表ToolStripMenuItem.Name = "生產控制表ToolStripMenuItem"
-        Me.生產控制表ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.生產控制表ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.生產控制表ToolStripMenuItem.Text = "生產控制表"
         '
         'ToolStripSeparator7
         '
         Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
-        Me.ToolStripSeparator7.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator7.Size = New System.Drawing.Size(172, 6)
         '
         '生產確認ToolStripMenuItem
         '
         Me.生產確認ToolStripMenuItem.ForeColor = System.Drawing.Color.Teal
         Me.生產確認ToolStripMenuItem.Name = "生產確認ToolStripMenuItem"
-        Me.生產確認ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.生產確認ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.生產確認ToolStripMenuItem.Text = "生產確認-倉儲出庫"
         '
         '生產入庫ToolStripMenuItem
         '
         Me.生產入庫ToolStripMenuItem.ForeColor = System.Drawing.Color.Teal
         Me.生產入庫ToolStripMenuItem.Name = "生產入庫ToolStripMenuItem"
-        Me.生產入庫ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.生產入庫ToolStripMenuItem.Size = New System.Drawing.Size(175, 22)
         Me.生產入庫ToolStripMenuItem.Text = "生產入庫-倉儲入庫"
         '
         '採購系統管理ToolStripMenuItem
@@ -399,64 +399,64 @@ Partial Class MAOJI_ERP_SYS
         '
         Me.採購控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
         Me.採購控制表ToolStripMenuItem.Name = "採購控制表ToolStripMenuItem"
-        Me.採購控制表ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.採購控制表ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.採購控制表ToolStripMenuItem.Text = "採購控制表"
         '
         'ToolStripSeparator16
         '
         Me.ToolStripSeparator16.Name = "ToolStripSeparator16"
-        Me.ToolStripSeparator16.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator16.Size = New System.Drawing.Size(167, 6)
         '
         '採購單申請ToolStripMenuItem
         '
         Me.採購單申請ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
         Me.採購單申請ToolStripMenuItem.Name = "採購單申請ToolStripMenuItem"
-        Me.採購單申請ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.採購單申請ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.採購單申請ToolStripMenuItem.Text = "採購單申請"
         '
         '訂單採購需求申請ToolStripMenuItem1
         '
         Me.訂單採購需求申請ToolStripMenuItem1.ForeColor = System.Drawing.Color.Green
         Me.訂單採購需求申請ToolStripMenuItem1.Name = "訂單採購需求申請ToolStripMenuItem1"
-        Me.訂單採購需求申請ToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
+        Me.訂單採購需求申請ToolStripMenuItem1.Size = New System.Drawing.Size(170, 22)
         Me.訂單採購需求申請ToolStripMenuItem1.Text = "訂單採購需求申請"
         '
         'ToolStripSeparator8
         '
         Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
-        Me.ToolStripSeparator8.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator8.Size = New System.Drawing.Size(167, 6)
         '
         '採購退貨清單ToolStripMenuItem
         '
         Me.採購退貨清單ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
         Me.採購退貨清單ToolStripMenuItem.Name = "採購退貨清單ToolStripMenuItem"
-        Me.採購退貨清單ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.採購退貨清單ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.採購退貨清單ToolStripMenuItem.Text = "採購退貨清單"
         '
         '採購退貨申請ToolStripMenuItem
         '
         Me.採購退貨申請ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
         Me.採購退貨申請ToolStripMenuItem.Name = "採購退貨申請ToolStripMenuItem"
-        Me.採購退貨申請ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.採購退貨申請ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.採購退貨申請ToolStripMenuItem.Text = "採購退貨申請"
         '
         '採購退貨確認ToolStripMenuItem
         '
         Me.採購退貨確認ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
         Me.採購退貨確認ToolStripMenuItem.Name = "採購退貨確認ToolStripMenuItem"
-        Me.採購退貨確認ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.採購退貨確認ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.採購退貨確認ToolStripMenuItem.Text = "採購退貨確認"
         '
         'ToolStripSeparator2
         '
         Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(167, 6)
         '
         '供應商資料管理ToolStripMenuItem
         '
         Me.供應商資料管理ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
         Me.供應商資料管理ToolStripMenuItem.Name = "供應商資料管理ToolStripMenuItem"
-        Me.供應商資料管理ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.供應商資料管理ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.供應商資料管理ToolStripMenuItem.Text = "供應商資料管理"
         '
         '倉儲系統管理ToolStripMenuItem
@@ -528,7 +528,7 @@ Partial Class MAOJI_ERP_SYS
         '
         '財務系統管理ToolStripMenuItem
         '
-        Me.財務系統管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.營運費用支付申請ToolStripMenuItem, Me.營運費用支付審核ToolStripMenuItem, Me.營運費用支付單一覽表ToolStripMenuItem, Me.營運成本收支單對帳表ToolStripMenuItem, Me.ToolStripSeparator13, Me.應付賬款ToolStripMenuItem, Me.應收帳款ToolStripMenuItem, Me.ToolStripSeparator15, Me.業務佣金計算ToolStripMenuItem, Me.司機佣金計算ToolStripMenuItem, Me.ToolStripSeparator3, Me.營運成本收支決算表ToolStripMenuItem, Me.營運狀態彙總檢視表ToolStripMenuItem})
+        Me.財務系統管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.營運費用支付申請ToolStripMenuItem, Me.營運費用支付審核ToolStripMenuItem, Me.營運費用支付單一覽表ToolStripMenuItem, Me.營運成本收支單對帳表ToolStripMenuItem, Me.ToolStripSeparator13, Me.應付賬款控制表ToolStripMenuItem, Me.應收帳款控制表ToolStripMenuItem, Me.ToolStripSeparator15, Me.業務佣金計算ToolStripMenuItem, Me.司機佣金計算ToolStripMenuItem, Me.ToolStripSeparator3, Me.營運成本收支決算表ToolStripMenuItem, Me.營運狀態彙總檢視表ToolStripMenuItem})
         Me.財務系統管理ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.財務系統管理ToolStripMenuItem.Name = "財務系統管理ToolStripMenuItem"
         Me.財務系統管理ToolStripMenuItem.Size = New System.Drawing.Size(91, 20)
@@ -567,6 +567,25 @@ Partial Class MAOJI_ERP_SYS
         Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
         Me.ToolStripSeparator13.Size = New System.Drawing.Size(196, 6)
         '
+        '應付賬款控制表ToolStripMenuItem
+        '
+        Me.應付賬款控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.應付賬款控制表ToolStripMenuItem.Name = "應付賬款控制表ToolStripMenuItem"
+        Me.應付賬款控制表ToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
+        Me.應付賬款控制表ToolStripMenuItem.Text = "應付賬款控制表"
+        '
+        '應收帳款控制表ToolStripMenuItem
+        '
+        Me.應收帳款控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.應收帳款控制表ToolStripMenuItem.Name = "應收帳款控制表ToolStripMenuItem"
+        Me.應收帳款控制表ToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
+        Me.應收帳款控制表ToolStripMenuItem.Text = "應收帳款控制表"
+        '
+        'ToolStripSeparator15
+        '
+        Me.ToolStripSeparator15.Name = "ToolStripSeparator15"
+        Me.ToolStripSeparator15.Size = New System.Drawing.Size(196, 6)
+        '
         '業務佣金計算ToolStripMenuItem
         '
         Me.業務佣金計算ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -581,25 +600,6 @@ Partial Class MAOJI_ERP_SYS
         Me.司機佣金計算ToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
         Me.司機佣金計算ToolStripMenuItem.Text = "司機佣金計算"
         '
-        'ToolStripSeparator15
-        '
-        Me.ToolStripSeparator15.Name = "ToolStripSeparator15"
-        Me.ToolStripSeparator15.Size = New System.Drawing.Size(196, 6)
-        '
-        '應付賬款ToolStripMenuItem
-        '
-        Me.應付賬款ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.應付賬款ToolStripMenuItem.Name = "應付賬款ToolStripMenuItem"
-        Me.應付賬款ToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
-        Me.應付賬款ToolStripMenuItem.Text = "應付賬款"
-        '
-        '應收帳款ToolStripMenuItem
-        '
-        Me.應收帳款ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.應收帳款ToolStripMenuItem.Name = "應收帳款ToolStripMenuItem"
-        Me.應收帳款ToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
-        Me.應收帳款ToolStripMenuItem.Text = "應收帳款"
-        '
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
@@ -829,8 +829,8 @@ Partial Class MAOJI_ERP_SYS
     Friend WithEvents 維修單申請ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 維修單出庫確認ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator15 As ToolStripSeparator
-    Friend WithEvents 應付賬款ToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents 應收帳款ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 應付賬款控制表ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 應收帳款控制表ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 採購退貨申請ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator16 As ToolStripSeparator
     Friend WithEvents 採購退貨清單ToolStripMenuItem As ToolStripMenuItem

MaoOrange-Hongji/MAOJI-ERP-SYS.vb

@@ -88,7 +88,7 @@ Public Class MAOJI_ERP_SYS
         PA = "" : 系統使用者管理.Show() : 系統使用者管理.BringToFront()
     End Sub
     Private Sub 系統通用變數管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理ToolStripMenuItem.Click
-
+        PA = "" : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront()
     End Sub
     Private Sub 系統編碼規則1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統編碼規則1ToolStripMenuItem.Click
         PA = "" : 系統編碼規則_1.Show() : 系統編碼規則_1.BringToFront()
@@ -229,10 +229,10 @@ Public Class MAOJI_ERP_SYS
     Private Sub 銷售退貨確認ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 銷售退貨確認ToolStripMenuItem.Click
         PA = "" : 銷售退貨確認.Show() : 銷售退貨確認.BringToFront()
     End Sub
-    Private Sub 應付賬款ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 應付賬款ToolStripMenuItem.Click
-        PA = "" : 應付賬款.Show() : 應付賬款.BringToFront()
+    Private Sub 應付賬款ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 應付賬款控制表ToolStripMenuItem.Click
+        PA = "" : 應付賬款控制表.Show() : 應付賬款控制表.BringToFront()
     End Sub
-    Private Sub 應收帳款ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 應收帳款ToolStripMenuItem.Click
-        PA = "" : 應收帳款.Show() : 應收帳款.BringToFront()
+    Private Sub 應收帳款ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 應收帳款控制表ToolStripMenuItem.Click
+        PA = "" : 應收帳款控制表.Show() : 應收帳款控制表.BringToFront()
     End Sub
 End Class

MaoOrange-Hongji/MAOJI-ERP-SYS.vbproj

@@ -127,16 +127,22 @@
     <Compile Include="倉儲系統管理\倉儲入庫驗收.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\應付賬款.Designer.vb">
-      <DependentUpon>應付賬款.vb</DependentUpon>
+    <Compile Include="資料庫系統管理\系統通用變數管理.Designer.vb">
+      <DependentUpon>系統通用變數管理.vb</DependentUpon>
     </Compile>
-    <Compile Include="財務系統管理\應付賬款.vb">
+    <Compile Include="資料庫系統管理\系統通用變數管理.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\應收帳款.Designer.vb">
-      <DependentUpon>應收帳款.vb</DependentUpon>
+    <Compile Include="財務系統管理\應付賬款控制表.Designer.vb">
+      <DependentUpon>應付賬款控制表.vb</DependentUpon>
     </Compile>
-    <Compile Include="財務系統管理\應收帳款.vb">
+    <Compile Include="財務系統管理\應付賬款控制表.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="財務系統管理\應收帳款控制表.Designer.vb">
+      <DependentUpon>應收帳款控制表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\應收帳款控制表.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="資料庫系統管理\列印_產品標籤介面.Designer.vb">
@@ -451,11 +457,14 @@
     <EmbeddedResource Include="倉儲系統管理\倉儲入庫驗收.resx">
       <DependentUpon>倉儲入庫驗收.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\應付賬款.resx">
-      <DependentUpon>應付賬款.vb</DependentUpon>
+    <EmbeddedResource Include="資料庫系統管理\系統通用變數管理.resx">
+      <DependentUpon>系統通用變數管理.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\應付賬款控制表.resx">
+      <DependentUpon>應付賬款控制表.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\應收帳款.resx">
-      <DependentUpon>應收帳款.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\應收帳款控制表.resx">
+      <DependentUpon>應收帳款控制表.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\列印_產品標籤介面.resx">
       <DependentUpon>列印_產品標籤介面.vb</DependentUpon>

MaoOrange-Hongji/Module1/Module1.vb

@@ -7,7 +7,7 @@
     Public 版本 As String = "2020052601"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
-
+    Public 關鍵字編號 As String
     Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = "" : Public PA6 As String = ""
     Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = "" : Public PA12 As String = "" : Public PA13 As String = ""
     Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = "" : Public PA18 As String = "" : Public PA19 As String = ""

MaoOrange-Hongji/Module1/SQL_Module.vb

@@ -140,6 +140,9 @@ Module SQL_Module
     Friend Sub SQL_出貨單申請_零售客戶記錄表流水號最後一筆()
         ConnOpen() : SQL1 = "SELECT TOP (1) 零售流水號 FROM 零售客戶記錄表 ORDER BY 零售流水號 DESC" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_通用預設值管理查詢()
+        ConnOpen() : SQL1 = "SELECT 預設值 FROM 通用預設值管理表一 WHERE ( 流水號 LIKE N'" & 關鍵字編號 & "')" : CmdSet_For_dr()
+    End Sub
 
 
     '---------------------LoginForm1-----------------------------------------------------------------------------------------------------------------
@@ -157,7 +160,7 @@ Module SQL_Module
     End Sub
     '---------------------MAOJI_ERP_SYS-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_公司選擇清單()
-        ConnOpen() : SQL1 = "SELECT 公司編號, 公司名, 統編, 電話, 地址 FROM MJ公司基本資料 ORDER BY 公司名" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT 公司編號, 公司名, 統編, 電話, 地址 FROM MJ公司基本資料 ORDER BY 公司編號" : CmdSet_For_dr()
     End Sub
     '---------------------車輛保養紀錄表-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_車輛保養紀錄表()
@@ -830,7 +833,8 @@ Module SQL_Module
     '---------------------營運成本收支_決算表-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_營運成本收支_決算表年清單()
         ConnOpen()
-        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, EERR.細項金額
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
+                            EERR.細項金額, 會計科目.抵銷科目 AS 抵銷, QQWW.主項金額 AS 主項彙總, WWEE.子項金額 AS 子項彙總, EERR.細項金額 AS 細項彙總
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 營運成本明細表_3.會計科目 AS 細項, SUM(營運成本明細表_3.零用金) + SUM(營運成本明細表_3.支票數) + SUM(營運成本明細表_3.收款) - 
                                        SUM(營運成本明細表_3.金額) AS 細項金額
@@ -859,7 +863,7 @@ Module SQL_Module
     Friend Sub SQL_營運成本收支_決算表月清單()
         ConnOpen()
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, EERR.細項金額, 
-                            EERR.細項金額 AS [金額]
+                            EERR.細項金額 AS [金額], 會計科目.抵銷科目 AS 抵銷, EERR.細項金額 AS [彙總]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 營運成本明細表_3.會計科目 AS 細項, SUM(營運成本明細表_3.零用金) + SUM(營運成本明細表_3.支票數) + SUM(營運成本明細表_3.收款) - 
                                        SUM(營運成本明細表_3.金額) AS 細項金額
@@ -892,7 +896,10 @@ Module SQL_Module
         ConnOpen() : SQL1 = "UPDATE 財務決算表合計預設 SET  名稱 = N'" & PA1 & "', 年度合計 = N'" & 布林1 & "' WHERE (項次 LIKE '" & PA2 & "')" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支_決算表_會計科目()
-        ConnOpen() : SQL1 = "SELECT 會計科目 FROM 會計科目 WHERE (層級 LIKE '1') ORDER BY  會計科目" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT 會計科目 FROM 會計科目 WHERE (層級 LIKE '1') AND (停用 IS NULL OR 停用 = 0) ORDER BY  會計科目" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_營運成本收支_決算表_彙總借貸()
+        ConnOpen() : SQL1 = "SELECT 抵銷科目 FROM dbo.會計科目 WHERE (層級 LIKE 1) AND (會計科目 LIKE '" & PA1 & "')" : CmdSet_For_dr()
     End Sub
     '---------------------營運成本收支單_對帳表-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_營運成本收支_決算表_清單()
@@ -2068,12 +2075,12 @@ Module SQL_Module
     End Sub
     '---------------------應付賬款-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_應付賬款清單()
-        If 應付賬款.CheckBox3.Checked = False Then
+        If 應付賬款控制表.CheckBox3.Checked = False Then
             KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(應付賬款.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款.DateTimePicker2.Value, "yyyy/MM/dd") & "') "
-        ElseIf 應付賬款.CheckBox3.Checked = True Then
+                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') "
+        ElseIf 應付賬款控制表.CheckBox3.Checked = True Then
             KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(應付賬款.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款.DateTimePicker2.Value, "yyyy/MM/dd") & "') AND 
+                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') AND 
                             (倉儲明細表.應付立帳 IS NULL OR 倉儲明細表.應付立帳 = 0)"
         End If
         ConnOpen()
@@ -2091,4 +2098,20 @@ Module SQL_Module
     Friend Sub SQL_應付賬款_倉儲明細應付立帳修改()
         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 應付立帳 = 1 WHERE 資料流水號 LIKE '" & PA6 & "'" : CmdSet_For_dr()
     End Sub
+    '---------------------系統通用變數管理-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_通用預設值管理清單一()
+        ConnOpen() : SQL1 = "SELECT 流水號, 使用介面, 說明, 預設值 FROM 通用預設值管理表一 ORDER BY 使用介面" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_系統通用變數管理流水號查詢()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 通用預設值管理表一 ORDER BY 流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_系統通用變數管理新增()
+        SQL1 = "INSERT INTO 通用預設值管理表一 (流水號, 使用介面, 說明, 預設值) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
+    End Sub
+    Friend Sub SQL_系統通用變數管理修改()
+        SQL1 = "UPDATE 通用預設值管理表一 SET 使用介面 = N'" & PA2 & "', 說明 = N'" & PA3 & "', 預設值 = N'" & PA4 & "' WHERE 流水號 LIKE N'" & PA1 & "'"
+    End Sub
+    Friend Sub SQL_系統通用變數管理刪除()
+        SQL1 = "DELETE FROM 通用預設值管理表一 WHERE (流水號 = N'" & PA1 & "')"
+    End Sub
 End Module

MaoOrange-Hongji/obj/Debug/MAOJI-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-84a65d51099e001819ad25f73750d6cf42c2d237
+00cd1c6306df0c5d8944e0bca02266ab61e77410

MaoOrange-Hongji/obj/Debug/MAOJI-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -194,5 +194,6 @@ G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.銷售退貨申請.
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.銷售退貨清單.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.銷售退貨確認.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.列印_產品標籤介面.resources
-G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.應付賬款.resources
-G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.應收帳款.resources
+G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.應付賬款控制表.resources
+G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.應收帳款控制表.resources
+G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.系統通用變數管理.resources

MaoOrange-Hongji/財務系統管理/應付賬款.Designer.vb → MaoOrange-Hongji/財務系統管理/應付賬款控制表.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 應付賬款
+Partial Class 應付賬款控制表
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -22,8 +22,8 @@ Partial Class 應付賬款
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.一般月 = New System.Windows.Forms.CheckBox()
         Me.會計月 = New System.Windows.Forms.CheckBox()
@@ -139,8 +139,8 @@ Partial Class 應付賬款
         '
         'DataGridView1
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.DataGridView1.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)
@@ -150,8 +150,8 @@ Partial Class 應付賬款
         Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.DataGridView1.Name = "DataGridView1"
         Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.DataGridView1.RowTemplate.Height = 24
         Me.DataGridView1.Size = New System.Drawing.Size(1225, 518)
         Me.DataGridView1.TabIndex = 1108
@@ -453,7 +453,7 @@ Partial Class 應付賬款
         Me.TextBox5.Size = New System.Drawing.Size(190, 23)
         Me.TextBox5.TabIndex = 1165
         '
-        '應付賬款
+        '應付賬款控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -498,8 +498,8 @@ Partial Class 應付賬款
         Me.Controls.Add(Me.DataGridView1)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "應付賬款"
-        Me.Text = "應付賬款"
+        Me.Name = "應付賬款控制表"
+        Me.Text = "應付賬款控制表"
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()

MaoOrange-Hongji/財務系統管理/應付賬款.vb → MaoOrange-Hongji/財務系統管理/應付賬款控制表.vb

@@ -8,7 +8,7 @@ Imports Microsoft.Office.Interop.Excel.XlThemeFont
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports Microsoft.Office.Interop.Excel
-Public Class 應付賬款
+Public Class 應付賬款控制表
     ReadOnly ds As New DataSet
     Dim N1 As Integer : Dim 新項次 As String
     Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
@@ -71,11 +71,15 @@ Public Class 應付賬款
             DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & iDays : DateTimePicker2.Value = DTP
         End If
     End Sub
+    Private Sub 預設關鍵字()
+        關鍵字編號 = "DV002" : SQL_通用預設值管理查詢() : If dr.Read() Then : TextBox9.Text = dr("預設值") : End If
+    End Sub
     Private Sub 應付賬款_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         ComboBox6.Visible = False : TextBox1.Visible = False : TextBox4.Visible = False : TextBox5.Visible = False
         TextBox1.Text = "0" : TextBox2.Text = "0"
         ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入() : 日期格式() : Set_賬款清單()
+        預設關鍵字()
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(-1) : Set_賬款清單()
@@ -189,7 +193,7 @@ Public Class 應付賬款
                 For i As Integer = 0 To DataGridView1.Rows.Count - 1
                     If DataGridView1.Rows(i).Cells("選擇").Value = True Then
                         MsgBox("該採購單已經開立過傳票，如是之前開立有誤需要從新開立，請先點擊--依據單號取消立帳選擇--按鈕。如是因採購退貨需要開立收支單(傳票)請先勾選--已立帳資料隱藏--再行操作。")
-                        確認 = True : Exit Sub
+                        Exit Sub
                     End If
                 Next
                 If 確認 = False Then : MsgBox("沒有選擇任何一筆要轉收支帳(傳票)的採購單號。")
@@ -209,8 +213,8 @@ Public Class 應付賬款
                     If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
                     If NUM1 < 10 Then : 新項次 = "0" & NUM1
                     ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
-
-                    PA1 = TextBox4.Text : PA2 = 新項次 : PA3 = "B-02-02-02" : PA4 = TextBox5.Text & " - " & DateTimePicker1.Value & " 到 " & DateTimePicker2.Value & " 應付帳款"
+                    關鍵字編號 = "DV001" : SQL_通用預設值管理查詢() : If dr.Read() Then : PA3 = dr("預設值") : End If
+                    PA1 = TextBox4.Text : PA2 = 新項次 : PA4 = TextBox5.Text & " - " & DateTimePicker1.Value & " 到 " & DateTimePicker2.Value & " 應付帳款"
                     NU1 = NumericUpDown1.Value : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0
                     SQL_營運成本明細表新增()
 

MaoOrange-Hongji/財務系統管理/應收帳款.Designer.vb → MaoOrange-Hongji/財務系統管理/應收帳款控制表.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 應收帳款
+Partial Class 應收帳款控制表
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -124,7 +124,7 @@ Partial Class 應收帳款
         Me.DataGridView1.Size = New System.Drawing.Size(1225, 545)
         Me.DataGridView1.TabIndex = 1116
         '
-        '應收帳款
+        '應收帳款控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -139,8 +139,8 @@ Partial Class 應收帳款
         Me.Controls.Add(Me.DataGridView1)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "應收帳款"
-        Me.Text = "應收帳款"
+        Me.Name = "應收帳款控制表"
+        Me.Text = "應收帳款控制表"
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()

MaoOrange-Hongji/財務系統管理/應收帳款.vb → MaoOrange-Hongji/財務系統管理/應收帳款控制表.vb

@@ -1,5 +1,5 @@
 Option Strict Off
-Public Class 應收帳款
+Public Class 應收帳款控制表
     Private Sub 應收帳款_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
     End Sub

MaoOrange-Hongji/財務系統管理/營運成本收支_決算表.Designer.vb

@@ -23,20 +23,20 @@ Partial Class 營運成本收支_決算表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.重新整理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Button2 = New System.Windows.Forms.Button()
@@ -197,6 +197,14 @@ Partial Class 營運成本收支_決算表
         Me.CheckBox7 = New System.Windows.Forms.CheckBox()
         Me.DataGridView14 = New System.Windows.Forms.DataGridView()
         Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.TextBox105 = New System.Windows.Forms.TextBox()
+        Me.TextBox106 = New System.Windows.Forms.TextBox()
+        Me.TextBox107 = New System.Windows.Forms.TextBox()
+        Me.TextBox108 = New System.Windows.Forms.TextBox()
+        Me.TextBox109 = New System.Windows.Forms.TextBox()
+        Me.TextBox110 = New System.Windows.Forms.TextBox()
+        Me.TextBox111 = New System.Windows.Forms.TextBox()
         Me.ContextMenuStrip1.SuspendLayout()
         CType(Me.DataGridView13, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView12, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -386,9 +394,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView13.Location = New System.Drawing.Point(1780, 27)
         Me.DataGridView13.Name = "DataGridView13"
         Me.DataGridView13.RowHeadersWidth = 5
-        DataGridViewCellStyle29.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView13.RowsDefaultCellStyle = DataGridViewCellStyle29
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView13.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.DataGridView13.RowTemplate.Height = 24
         Me.DataGridView13.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView13.Size = New System.Drawing.Size(116, 740)
@@ -403,9 +411,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView12.Location = New System.Drawing.Point(1662, 27)
         Me.DataGridView12.Name = "DataGridView12"
         Me.DataGridView12.RowHeadersWidth = 5
-        DataGridViewCellStyle30.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView12.RowsDefaultCellStyle = DataGridViewCellStyle30
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView12.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.DataGridView12.RowTemplate.Height = 24
         Me.DataGridView12.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView12.Size = New System.Drawing.Size(116, 740)
@@ -420,9 +428,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView11.Location = New System.Drawing.Point(1544, 27)
         Me.DataGridView11.Name = "DataGridView11"
         Me.DataGridView11.RowHeadersWidth = 5
-        DataGridViewCellStyle31.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView11.RowsDefaultCellStyle = DataGridViewCellStyle31
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView11.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.DataGridView11.RowTemplate.Height = 24
         Me.DataGridView11.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView11.Size = New System.Drawing.Size(116, 740)
@@ -437,9 +445,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView10.Location = New System.Drawing.Point(1426, 27)
         Me.DataGridView10.Name = "DataGridView10"
         Me.DataGridView10.RowHeadersWidth = 5
-        DataGridViewCellStyle32.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView10.RowsDefaultCellStyle = DataGridViewCellStyle32
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView10.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.DataGridView10.RowTemplate.Height = 24
         Me.DataGridView10.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView10.Size = New System.Drawing.Size(116, 740)
@@ -454,9 +462,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView9.Location = New System.Drawing.Point(1308, 27)
         Me.DataGridView9.Name = "DataGridView9"
         Me.DataGridView9.RowHeadersWidth = 5
-        DataGridViewCellStyle33.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView9.RowsDefaultCellStyle = DataGridViewCellStyle33
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView9.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.DataGridView9.RowTemplate.Height = 24
         Me.DataGridView9.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView9.Size = New System.Drawing.Size(116, 740)
@@ -471,9 +479,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView8.Location = New System.Drawing.Point(1190, 27)
         Me.DataGridView8.Name = "DataGridView8"
         Me.DataGridView8.RowHeadersWidth = 5
-        DataGridViewCellStyle34.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView8.RowsDefaultCellStyle = DataGridViewCellStyle34
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView8.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.DataGridView8.RowTemplate.Height = 24
         Me.DataGridView8.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView8.Size = New System.Drawing.Size(116, 740)
@@ -488,9 +496,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView7.Location = New System.Drawing.Point(1072, 27)
         Me.DataGridView7.Name = "DataGridView7"
         Me.DataGridView7.RowHeadersWidth = 5
-        DataGridViewCellStyle35.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle35.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView7.RowsDefaultCellStyle = DataGridViewCellStyle35
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView7.RowsDefaultCellStyle = DataGridViewCellStyle7
         Me.DataGridView7.RowTemplate.Height = 24
         Me.DataGridView7.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView7.Size = New System.Drawing.Size(116, 740)
@@ -505,9 +513,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView6.Location = New System.Drawing.Point(954, 27)
         Me.DataGridView6.Name = "DataGridView6"
         Me.DataGridView6.RowHeadersWidth = 5
-        DataGridViewCellStyle36.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView6.RowsDefaultCellStyle = DataGridViewCellStyle36
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView6.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.DataGridView6.RowTemplate.Height = 24
         Me.DataGridView6.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView6.Size = New System.Drawing.Size(116, 740)
@@ -522,9 +530,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView5.Location = New System.Drawing.Point(836, 27)
         Me.DataGridView5.Name = "DataGridView5"
         Me.DataGridView5.RowHeadersWidth = 5
-        DataGridViewCellStyle37.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView5.RowsDefaultCellStyle = DataGridViewCellStyle37
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView5.RowsDefaultCellStyle = DataGridViewCellStyle9
         Me.DataGridView5.RowTemplate.Height = 24
         Me.DataGridView5.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView5.Size = New System.Drawing.Size(116, 740)
@@ -539,9 +547,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView4.Location = New System.Drawing.Point(718, 27)
         Me.DataGridView4.Name = "DataGridView4"
         Me.DataGridView4.RowHeadersWidth = 5
-        DataGridViewCellStyle38.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView4.RowsDefaultCellStyle = DataGridViewCellStyle38
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView4.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.DataGridView4.RowTemplate.Height = 24
         Me.DataGridView4.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView4.Size = New System.Drawing.Size(116, 740)
@@ -556,9 +564,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView3.Location = New System.Drawing.Point(600, 27)
         Me.DataGridView3.Name = "DataGridView3"
         Me.DataGridView3.RowHeadersWidth = 5
-        DataGridViewCellStyle39.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle39.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView3.RowsDefaultCellStyle = DataGridViewCellStyle39
+        DataGridViewCellStyle11.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView3.RowsDefaultCellStyle = DataGridViewCellStyle11
         Me.DataGridView3.RowTemplate.Height = 24
         Me.DataGridView3.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView3.Size = New System.Drawing.Size(116, 740)
@@ -573,9 +581,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView1.Location = New System.Drawing.Point(482, 27)
         Me.DataGridView1.Name = "DataGridView1"
         Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle40.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle40
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle12
         Me.DataGridView1.RowTemplate.Height = 24
         Me.DataGridView1.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView1.Size = New System.Drawing.Size(116, 740)
@@ -611,9 +619,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView2.Location = New System.Drawing.Point(7, 27)
         Me.DataGridView2.Name = "DataGridView2"
         Me.DataGridView2.RowHeadersWidth = 5
-        DataGridViewCellStyle41.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle41
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle13
         Me.DataGridView2.RowTemplate.Height = 24
         Me.DataGridView2.Size = New System.Drawing.Size(473, 740)
         Me.DataGridView2.TabIndex = 1191
@@ -623,7 +631,7 @@ Partial Class 營運成本收支_決算表
         Me.Label19.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label19.AutoSize = True
         Me.Label19.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label19.Location = New System.Drawing.Point(213, 946)
+        Me.Label19.Location = New System.Drawing.Point(217, 946)
         Me.Label19.Name = "Label19"
         Me.Label19.Size = New System.Drawing.Size(91, 19)
         Me.Label19.TabIndex = 1301
@@ -633,7 +641,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.TextBox64.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.TextBox64.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox64.Location = New System.Drawing.Point(335, 945)
+        Me.TextBox64.Location = New System.Drawing.Point(339, 945)
         Me.TextBox64.Name = "TextBox64"
         Me.TextBox64.Size = New System.Drawing.Size(116, 23)
         Me.TextBox64.TabIndex = 1300
@@ -763,7 +771,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.TextBox63.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.TextBox63.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox63.Location = New System.Drawing.Point(335, 820)
+        Me.TextBox63.Location = New System.Drawing.Point(339, 820)
         Me.TextBox63.Name = "TextBox63"
         Me.TextBox63.Size = New System.Drawing.Size(116, 23)
         Me.TextBox63.TabIndex = 1287
@@ -773,7 +781,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.TextBox62.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.TextBox62.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox62.Location = New System.Drawing.Point(335, 795)
+        Me.TextBox62.Location = New System.Drawing.Point(339, 795)
         Me.TextBox62.Name = "TextBox62"
         Me.TextBox62.Size = New System.Drawing.Size(116, 23)
         Me.TextBox62.TabIndex = 1286
@@ -783,7 +791,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.TextBox61.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.TextBox61.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox61.Location = New System.Drawing.Point(335, 770)
+        Me.TextBox61.Location = New System.Drawing.Point(339, 770)
         Me.TextBox61.Name = "TextBox61"
         Me.TextBox61.Size = New System.Drawing.Size(116, 23)
         Me.TextBox61.TabIndex = 1285
@@ -1093,7 +1101,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.Label18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label18.AutoSize = True
-        Me.Label18.Location = New System.Drawing.Point(172, 873)
+        Me.Label18.Location = New System.Drawing.Point(176, 873)
         Me.Label18.Name = "Label18"
         Me.Label18.Size = New System.Drawing.Size(27, 16)
         Me.Label18.TabIndex = 1254
@@ -1373,7 +1381,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.Label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(172, 848)
+        Me.Label17.Location = New System.Drawing.Point(176, 848)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(27, 16)
         Me.Label17.TabIndex = 1226
@@ -1393,7 +1401,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.Label16.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label16.AutoSize = True
-        Me.Label16.Location = New System.Drawing.Point(172, 823)
+        Me.Label16.Location = New System.Drawing.Point(176, 823)
         Me.Label16.Name = "Label16"
         Me.Label16.Size = New System.Drawing.Size(27, 16)
         Me.Label16.TabIndex = 1224
@@ -1413,7 +1421,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.Label15.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label15.AutoSize = True
-        Me.Label15.Location = New System.Drawing.Point(172, 798)
+        Me.Label15.Location = New System.Drawing.Point(176, 798)
         Me.Label15.Name = "Label15"
         Me.Label15.Size = New System.Drawing.Size(27, 16)
         Me.Label15.TabIndex = 1222
@@ -1433,7 +1441,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.Label14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label14.AutoSize = True
-        Me.Label14.Location = New System.Drawing.Point(172, 773)
+        Me.Label14.Location = New System.Drawing.Point(176, 773)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(27, 16)
         Me.Label14.TabIndex = 1220
@@ -1445,7 +1453,7 @@ Partial Class 營運成本收支_決算表
         Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox2.FormattingEnabled = True
         Me.ComboBox2.Items.AddRange(New Object() {"2019"})
-        Me.ComboBox2.Location = New System.Drawing.Point(201, 770)
+        Me.ComboBox2.Location = New System.Drawing.Point(205, 770)
         Me.ComboBox2.Name = "ComboBox2"
         Me.ComboBox2.Size = New System.Drawing.Size(128, 24)
         Me.ComboBox2.TabIndex = 1302
@@ -1456,7 +1464,7 @@ Partial Class 營運成本收支_決算表
         Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox3.FormattingEnabled = True
         Me.ComboBox3.Items.AddRange(New Object() {"2019"})
-        Me.ComboBox3.Location = New System.Drawing.Point(201, 795)
+        Me.ComboBox3.Location = New System.Drawing.Point(205, 795)
         Me.ComboBox3.Name = "ComboBox3"
         Me.ComboBox3.Size = New System.Drawing.Size(128, 24)
         Me.ComboBox3.TabIndex = 1303
@@ -1467,7 +1475,7 @@ Partial Class 營運成本收支_決算表
         Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox4.FormattingEnabled = True
         Me.ComboBox4.Items.AddRange(New Object() {"2019"})
-        Me.ComboBox4.Location = New System.Drawing.Point(201, 820)
+        Me.ComboBox4.Location = New System.Drawing.Point(205, 820)
         Me.ComboBox4.Name = "ComboBox4"
         Me.ComboBox4.Size = New System.Drawing.Size(128, 24)
         Me.ComboBox4.TabIndex = 1304
@@ -1478,7 +1486,7 @@ Partial Class 營運成本收支_決算表
         Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox5.FormattingEnabled = True
         Me.ComboBox5.Items.AddRange(New Object() {"2019"})
-        Me.ComboBox5.Location = New System.Drawing.Point(201, 845)
+        Me.ComboBox5.Location = New System.Drawing.Point(205, 845)
         Me.ComboBox5.Name = "ComboBox5"
         Me.ComboBox5.Size = New System.Drawing.Size(128, 24)
         Me.ComboBox5.TabIndex = 1305
@@ -1487,7 +1495,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.TextBox77.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.TextBox77.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox77.Location = New System.Drawing.Point(335, 845)
+        Me.TextBox77.Location = New System.Drawing.Point(339, 845)
         Me.TextBox77.Name = "TextBox77"
         Me.TextBox77.Size = New System.Drawing.Size(116, 23)
         Me.TextBox77.TabIndex = 1306
@@ -1499,7 +1507,7 @@ Partial Class 營運成本收支_決算表
         Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox6.FormattingEnabled = True
         Me.ComboBox6.Items.AddRange(New Object() {"2019"})
-        Me.ComboBox6.Location = New System.Drawing.Point(201, 870)
+        Me.ComboBox6.Location = New System.Drawing.Point(205, 870)
         Me.ComboBox6.Name = "ComboBox6"
         Me.ComboBox6.Size = New System.Drawing.Size(128, 24)
         Me.ComboBox6.TabIndex = 1307
@@ -1508,7 +1516,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.TextBox78.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.TextBox78.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox78.Location = New System.Drawing.Point(335, 870)
+        Me.TextBox78.Location = New System.Drawing.Point(339, 870)
         Me.TextBox78.Name = "TextBox78"
         Me.TextBox78.Size = New System.Drawing.Size(116, 23)
         Me.TextBox78.TabIndex = 1320
@@ -1638,7 +1646,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.TextBox91.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.TextBox91.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox91.Location = New System.Drawing.Point(335, 895)
+        Me.TextBox91.Location = New System.Drawing.Point(339, 895)
         Me.TextBox91.Name = "TextBox91"
         Me.TextBox91.Size = New System.Drawing.Size(116, 23)
         Me.TextBox91.TabIndex = 1323
@@ -1650,7 +1658,7 @@ Partial Class 營運成本收支_決算表
         Me.ComboBox7.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox7.FormattingEnabled = True
         Me.ComboBox7.Items.AddRange(New Object() {"2019"})
-        Me.ComboBox7.Location = New System.Drawing.Point(201, 895)
+        Me.ComboBox7.Location = New System.Drawing.Point(205, 895)
         Me.ComboBox7.Name = "ComboBox7"
         Me.ComboBox7.Size = New System.Drawing.Size(128, 24)
         Me.ComboBox7.TabIndex = 1322
@@ -1659,7 +1667,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label20.AutoSize = True
-        Me.Label20.Location = New System.Drawing.Point(172, 898)
+        Me.Label20.Location = New System.Drawing.Point(176, 898)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(27, 16)
         Me.Label20.TabIndex = 1321
@@ -1789,7 +1797,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.TextBox104.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.TextBox104.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox104.Location = New System.Drawing.Point(335, 920)
+        Me.TextBox104.Location = New System.Drawing.Point(339, 920)
         Me.TextBox104.Name = "TextBox104"
         Me.TextBox104.Size = New System.Drawing.Size(116, 23)
         Me.TextBox104.TabIndex = 1338
@@ -1801,7 +1809,7 @@ Partial Class 營運成本收支_決算表
         Me.ComboBox8.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox8.FormattingEnabled = True
         Me.ComboBox8.Items.AddRange(New Object() {"2019"})
-        Me.ComboBox8.Location = New System.Drawing.Point(201, 920)
+        Me.ComboBox8.Location = New System.Drawing.Point(205, 920)
         Me.ComboBox8.Name = "ComboBox8"
         Me.ComboBox8.Size = New System.Drawing.Size(128, 24)
         Me.ComboBox8.TabIndex = 1337
@@ -1810,7 +1818,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.Label21.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label21.AutoSize = True
-        Me.Label21.Location = New System.Drawing.Point(172, 923)
+        Me.Label21.Location = New System.Drawing.Point(176, 923)
         Me.Label21.Name = "Label21"
         Me.Label21.Size = New System.Drawing.Size(27, 16)
         Me.Label21.TabIndex = 1336
@@ -1820,7 +1828,7 @@ Partial Class 營運成本收支_決算表
         '
         Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label22.AutoSize = True
-        Me.Label22.Location = New System.Drawing.Point(172, 948)
+        Me.Label22.Location = New System.Drawing.Point(176, 948)
         Me.Label22.Name = "Label22"
         Me.Label22.Size = New System.Drawing.Size(27, 16)
         Me.Label22.TabIndex = 1339
@@ -1910,9 +1918,9 @@ Partial Class 營運成本收支_決算表
         Me.DataGridView14.Location = New System.Drawing.Point(37, 583)
         Me.DataGridView14.Name = "DataGridView14"
         Me.DataGridView14.RowHeadersWidth = 5
-        DataGridViewCellStyle42.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView14.RowsDefaultCellStyle = DataGridViewCellStyle42
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView14.RowsDefaultCellStyle = DataGridViewCellStyle14
         Me.DataGridView14.RowTemplate.Height = 24
         Me.DataGridView14.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.DataGridView14.Size = New System.Drawing.Size(253, 162)
@@ -1928,12 +1936,100 @@ Partial Class 營運成本收支_決算表
         Me.Button3.Text = "預設合計存檔"
         Me.Button3.UseVisualStyleBackColor = True
         '
+        'Button4
+        '
+        Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button4.Location = New System.Drawing.Point(111, 944)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(52, 25)
+        Me.Button4.TabIndex = 1349
+        Me.Button4.Text = "清空"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'TextBox105
+        '
+        Me.TextBox105.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TextBox105.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.TextBox105.Location = New System.Drawing.Point(113, 920)
+        Me.TextBox105.Name = "TextBox105"
+        Me.TextBox105.Size = New System.Drawing.Size(48, 23)
+        Me.TextBox105.TabIndex = 1356
+        Me.TextBox105.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox106
+        '
+        Me.TextBox106.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TextBox106.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.TextBox106.Location = New System.Drawing.Point(113, 895)
+        Me.TextBox106.Name = "TextBox106"
+        Me.TextBox106.Size = New System.Drawing.Size(48, 23)
+        Me.TextBox106.TabIndex = 1355
+        Me.TextBox106.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox107
+        '
+        Me.TextBox107.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TextBox107.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.TextBox107.Location = New System.Drawing.Point(113, 870)
+        Me.TextBox107.Name = "TextBox107"
+        Me.TextBox107.Size = New System.Drawing.Size(48, 23)
+        Me.TextBox107.TabIndex = 1354
+        Me.TextBox107.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox108
+        '
+        Me.TextBox108.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TextBox108.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.TextBox108.Location = New System.Drawing.Point(113, 845)
+        Me.TextBox108.Name = "TextBox108"
+        Me.TextBox108.Size = New System.Drawing.Size(48, 23)
+        Me.TextBox108.TabIndex = 1353
+        Me.TextBox108.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox109
+        '
+        Me.TextBox109.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TextBox109.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.TextBox109.Location = New System.Drawing.Point(113, 820)
+        Me.TextBox109.Name = "TextBox109"
+        Me.TextBox109.Size = New System.Drawing.Size(48, 23)
+        Me.TextBox109.TabIndex = 1352
+        Me.TextBox109.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox110
+        '
+        Me.TextBox110.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TextBox110.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.TextBox110.Location = New System.Drawing.Point(113, 795)
+        Me.TextBox110.Name = "TextBox110"
+        Me.TextBox110.Size = New System.Drawing.Size(48, 23)
+        Me.TextBox110.TabIndex = 1351
+        Me.TextBox110.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox111
+        '
+        Me.TextBox111.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TextBox111.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.TextBox111.Location = New System.Drawing.Point(113, 770)
+        Me.TextBox111.Name = "TextBox111"
+        Me.TextBox111.Size = New System.Drawing.Size(48, 23)
+        Me.TextBox111.TabIndex = 1350
+        Me.TextBox111.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
         '營運成本收支_決算表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 981)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.TextBox105)
+        Me.Controls.Add(Me.TextBox106)
+        Me.Controls.Add(Me.TextBox107)
+        Me.Controls.Add(Me.TextBox108)
+        Me.Controls.Add(Me.TextBox109)
+        Me.Controls.Add(Me.TextBox110)
+        Me.Controls.Add(Me.TextBox111)
+        Me.Controls.Add(Me.Button4)
         Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.DataGridView14)
         Me.Controls.Add(Me.CheckBox7)
@@ -2095,7 +2191,7 @@ Partial Class 營運成本收支_決算表
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "營運成本收支_決算表"
-        Me.Text = "營運報表"
+        Me.Text = "營運成本收支_決算表"
         Me.ContextMenuStrip1.ResumeLayout(False)
         CType(Me.DataGridView13, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DataGridView12, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2275,4 +2371,12 @@ Partial Class 營運成本收支_決算表
     Friend WithEvents CheckBox7 As CheckBox
     Friend WithEvents DataGridView14 As DataGridView
     Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents TextBox105 As TextBox
+    Friend WithEvents TextBox106 As TextBox
+    Friend WithEvents TextBox107 As TextBox
+    Friend WithEvents TextBox108 As TextBox
+    Friend WithEvents TextBox109 As TextBox
+    Friend WithEvents TextBox110 As TextBox
+    Friend WithEvents TextBox111 As TextBox
 End Class

MaoOrange-Hongji/財務系統管理/營運成本收支_決算表.vb

@@ -16,6 +16,18 @@ Public Class 營運成本收支_決算表
             If DataGridView2.Rows(i).Cells("主項金額").Value.ToString = "" Then : DataGridView2.Rows(i).Cells("主項金額").Value = 0 : End If
             If DataGridView2.Rows(i).Cells("子項金額").Value.ToString = "" Then : DataGridView2.Rows(i).Cells("子項金額").Value = 0 : End If
             If DataGridView2.Rows(i).Cells("細項金額").Value.ToString = "" Then : DataGridView2.Rows(i).Cells("細項金額").Value = 0 : End If
+
+            If DataGridView2.Rows(i).Cells("主項彙總").Value.ToString = "" Then : DataGridView2.Rows(i).Cells("主項彙總").Value = 0 : End If
+            If DataGridView2.Rows(i).Cells("子項彙總").Value.ToString = "" Then : DataGridView2.Rows(i).Cells("子項彙總").Value = 0 : End If
+            If DataGridView2.Rows(i).Cells("細項彙總").Value.ToString = "" Then : DataGridView2.Rows(i).Cells("細項彙總").Value = 0 : End If
+            If DataGridView2.Rows(i).Cells("抵銷").Value = True Then
+                DataGridView2.Rows(i).Cells("主項彙總").Value = DataGridView2.Rows(i).Cells("主項彙總").Value * -1
+                DataGridView2.Rows(i).Cells("子項彙總").Value = DataGridView2.Rows(i).Cells("子項彙總").Value * -1
+                DataGridView2.Rows(i).Cells("細項彙總").Value = DataGridView2.Rows(i).Cells("細項彙總").Value * -1
+            End If
+            If DataGridView2.Rows(i).Cells("層級").Value.ToString <> "1" Then : DataGridView2.Rows(i).Cells("主項彙總").Value = 0 : End If
+            If DataGridView2.Rows(i).Cells("層級").Value.ToString <> "2" Then : DataGridView2.Rows(i).Cells("子項彙總").Value = 0 : End If
+
             If DataGridView2.Rows(i).Cells("層級").Value.ToString <> "1" Then : DataGridView2.Rows(i).Cells("主項金額").Value = 0 : End If
             If DataGridView2.Rows(i).Cells("層級").Value.ToString <> "2" Then : DataGridView2.Rows(i).Cells("子項金額").Value = 0 : End If
             If DataGridView2.Rows(i).Cells("層級").Value.ToString <> "2" Then : DataGridView2.Rows(i).Cells("子項").Value = "" : End If
@@ -58,6 +70,10 @@ Public Class 營運成本收支_決算表
             ElseIf DataGridView1.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : DataGridView1.Rows(i).Cells("金額").Value = DataGridView1.Rows(i).Cells("子項金額").Value
             ElseIf DataGridView1.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : DataGridView1.Rows(i).Cells("金額").Value = DataGridView1.Rows(i).Cells("細項金額").Value
             Else : DataGridView1.Rows(i).Cells("金額").Value = 0 : End If
+
+            DataGridView1.Rows(i).Cells("彙總").Value = DataGridView1.Rows(i).Cells("金額").Value
+            If DataGridView1.Rows(i).Cells("抵銷").Value = True Then : DataGridView1.Rows(i).Cells("彙總").Value = DataGridView1.Rows(i).Cells("彙總").Value * -1 : End If
+
             If ComboBox2.Text = "" Then : Else
                 If DataGridView1.Rows(i).Cells("第一階").Value.ToString = ComboBox2.Text Then : TextBox1.Text = Val(TextBox1.Text) + DataGridView1.Rows(i).Cells("主項金額").Value : End If : End If
             If ComboBox3.Text = "" Then : Else
@@ -92,6 +108,10 @@ Public Class 營運成本收支_決算表
             ElseIf DataGridView3.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : DataGridView3.Rows(i).Cells("金額").Value = DataGridView3.Rows(i).Cells("子項金額").Value
             ElseIf DataGridView3.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : DataGridView3.Rows(i).Cells("金額").Value = DataGridView3.Rows(i).Cells("細項金額").Value
             Else : DataGridView3.Rows(i).Cells("金額").Value = 0 : End If
+
+            DataGridView3.Rows(i).Cells("彙總").Value = DataGridView3.Rows(i).Cells("金額").Value
+            If DataGridView3.Rows(i).Cells("抵銷").Value = True Then : DataGridView3.Rows(i).Cells("彙總").Value = DataGridView3.Rows(i).Cells("彙總").Value * -1 : End If
+
             If ComboBox2.Text = "" Then : Else
                 If DataGridView3.Rows(i).Cells("第一階").Value.ToString = ComboBox2.Text Then : TextBox5.Text = Val(TextBox5.Text) + DataGridView3.Rows(i).Cells("主項金額").Value : End If : End If
             If ComboBox3.Text = "" Then : Else
@@ -126,6 +146,10 @@ Public Class 營運成本收支_決算表
             ElseIf DataGridView4.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : DataGridView4.Rows(i).Cells("金額").Value = DataGridView4.Rows(i).Cells("子項金額").Value
             ElseIf DataGridView4.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : DataGridView4.Rows(i).Cells("金額").Value = DataGridView4.Rows(i).Cells("細項金額").Value
             Else : DataGridView4.Rows(i).Cells("金額").Value = 0 : End If
+
+            DataGridView4.Rows(i).Cells("彙總").Value = DataGridView4.Rows(i).Cells("金額").Value
+            If DataGridView4.Rows(i).Cells("抵銷").Value = True Then : DataGridView4.Rows(i).Cells("彙總").Value = DataGridView4.Rows(i).Cells("彙總").Value * -1 : End If
+
             If ComboBox2.Text = "" Then : Else
                 If DataGridView4.Rows(i).Cells("第一階").Value.ToString = ComboBox2.Text Then : TextBox9.Text = Val(TextBox9.Text) + DataGridView4.Rows(i).Cells("主項金額").Value : End If : End If
             If ComboBox3.Text = "" Then : Else
@@ -160,6 +184,10 @@ Public Class 營運成本收支_決算表
             ElseIf DataGridView5.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : DataGridView5.Rows(i).Cells("金額").Value = DataGridView5.Rows(i).Cells("子項金額").Value
             ElseIf DataGridView5.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : DataGridView5.Rows(i).Cells("金額").Value = DataGridView5.Rows(i).Cells("細項金額").Value
             Else : DataGridView5.Rows(i).Cells("金額").Value = 0 : End If
+
+            DataGridView5.Rows(i).Cells("彙總").Value = DataGridView5.Rows(i).Cells("金額").Value
+            If DataGridView5.Rows(i).Cells("抵銷").Value = True Then : DataGridView5.Rows(i).Cells("彙總").Value = DataGridView5.Rows(i).Cells("彙總").Value * -1 : End If
+
             If ComboBox2.Text = "" Then : Else
                 If DataGridView5.Rows(i).Cells("第一階").Value.ToString = ComboBox2.Text Then : TextBox13.Text = Val(TextBox13.Text) + DataGridView5.Rows(i).Cells("主項金額").Value : End If : End If
             If ComboBox3.Text = "" Then : Else
@@ -194,6 +222,10 @@ Public Class 營運成本收支_決算表
             ElseIf DataGridView6.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : DataGridView6.Rows(i).Cells("金額").Value = DataGridView6.Rows(i).Cells("子項金額").Value
             ElseIf DataGridView6.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : DataGridView6.Rows(i).Cells("金額").Value = DataGridView6.Rows(i).Cells("細項金額").Value
             Else : DataGridView6.Rows(i).Cells("金額").Value = 0 : End If
+
+            DataGridView6.Rows(i).Cells("彙總").Value = DataGridView6.Rows(i).Cells("金額").Value
+            If DataGridView6.Rows(i).Cells("抵銷").Value = True Then : DataGridView6.Rows(i).Cells("彙總").Value = DataGridView6.Rows(i).Cells("彙總").Value * -1 : End If
+
             If ComboBox2.Text = "" Then : Else
                 If DataGridView6.Rows(i).Cells("第一階").Value.ToString = ComboBox2.Text Then : TextBox17.Text = Val(TextBox17.Text) + DataGridView6.Rows(i).Cells("主項金額").Value : End If : End If
             If ComboBox3.Text = "" Then : Else
@@ -228,6 +260,10 @@ Public Class 營運成本收支_決算表
             ElseIf DataGridView7.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : DataGridView7.Rows(i).Cells("金額").Value = DataGridView7.Rows(i).Cells("子項金額").Value
             ElseIf DataGridView7.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : DataGridView7.Rows(i).Cells("金額").Value = DataGridView7.Rows(i).Cells("細項金額").Value
             Else : DataGridView7.Rows(i).Cells("金額").Value = 0 : End If
+
+            DataGridView7.Rows(i).Cells("彙總").Value = DataGridView7.Rows(i).Cells("金額").Value
+            If DataGridView7.Rows(i).Cells("抵銷").Value = True Then : DataGridView7.Rows(i).Cells("彙總").Value = DataGridView7.Rows(i).Cells("彙總").Value * -1 : End If
+
             If ComboBox2.Text = "" Then : Else
                 If DataGridView7.Rows(i).Cells("第一階").Value.ToString = ComboBox2.Text Then : TextBox21.Text = Val(TextBox21.Text) + DataGridView7.Rows(i).Cells("主項金額").Value : End If : End If
             If ComboBox3.Text = "" Then : Else
@@ -262,6 +298,10 @@ Public Class 營運成本收支_決算表
             ElseIf DataGridView8.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : DataGridView8.Rows(i).Cells("金額").Value = DataGridView8.Rows(i).Cells("子項金額").Value
             ElseIf DataGridView8.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : DataGridView8.Rows(i).Cells("金額").Value = DataGridView8.Rows(i).Cells("細項金額").Value
             Else : DataGridView8.Rows(i).Cells("金額").Value = 0 : End If
+
+            DataGridView8.Rows(i).Cells("彙總").Value = DataGridView8.Rows(i).Cells("金額").Value
+            If DataGridView8.Rows(i).Cells("抵銷").Value = True Then : DataGridView8.Rows(i).Cells("彙總").Value = DataGridView8.Rows(i).Cells("彙總").Value * -1 : End If
+
             If ComboBox2.Text = "" Then : Else
                 If DataGridView8.Rows(i).Cells("第一階").Value.ToString = ComboBox2.Text Then : TextBox35.Text = Val(TextBox35.Text) + DataGridView8.Rows(i).Cells("主項金額").Value : End If : End If
             If ComboBox3.Text = "" Then : Else
@@ -296,6 +336,10 @@ Public Class 營運成本收支_決算表
             ElseIf DataGridView9.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : DataGridView9.Rows(i).Cells("金額").Value = DataGridView9.Rows(i).Cells("子項金額").Value
             ElseIf DataGridView9.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : DataGridView9.Rows(i).Cells("金額").Value = DataGridView9.Rows(i).Cells("細項金額").Value
             Else : DataGridView9.Rows(i).Cells("金額").Value = 0 : End If
+
+            DataGridView9.Rows(i).Cells("彙總").Value = DataGridView9.Rows(i).Cells("金額").Value
+            If DataGridView9.Rows(i).Cells("抵銷").Value = True Then : DataGridView9.Rows(i).Cells("彙總").Value = DataGridView9.Rows(i).Cells("彙總").Value * -1 : End If
+
             If ComboBox2.Text = "" Then : Else
                 If DataGridView9.Rows(i).Cells("第一階").Value.ToString = ComboBox2.Text Then : TextBox40.Text = Val(TextBox40.Text) + DataGridView9.Rows(i).Cells("主項金額").Value : End If : End If
             If ComboBox3.Text = "" Then : Else
@@ -330,6 +374,10 @@ Public Class 營運成本收支_決算表
             ElseIf DataGridView10.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : DataGridView10.Rows(i).Cells("金額").Value = DataGridView10.Rows(i).Cells("子項金額").Value
             ElseIf DataGridView10.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : DataGridView10.Rows(i).Cells("金額").Value = DataGridView10.Rows(i).Cells("細項金額").Value
             Else : DataGridView10.Rows(i).Cells("金額").Value = 0 : End If
+
+            DataGridView10.Rows(i).Cells("彙總").Value = DataGridView10.Rows(i).Cells("金額").Value
+            If DataGridView10.Rows(i).Cells("抵銷").Value = True Then : DataGridView10.Rows(i).Cells("彙總").Value = DataGridView10.Rows(i).Cells("彙總").Value * -1 : End If
+
             If ComboBox2.Text = "" Then : Else
                 If DataGridView10.Rows(i).Cells("第一階").Value.ToString = ComboBox2.Text Then : TextBox45.Text = Val(TextBox45.Text) + DataGridView10.Rows(i).Cells("主項金額").Value : End If : End If
             If ComboBox3.Text = "" Then : Else
@@ -364,6 +412,10 @@ Public Class 營運成本收支_決算表
             ElseIf DataGridView11.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : DataGridView11.Rows(i).Cells("金額").Value = DataGridView11.Rows(i).Cells("子項金額").Value
             ElseIf DataGridView11.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : DataGridView11.Rows(i).Cells("金額").Value = DataGridView11.Rows(i).Cells("細項金額").Value
             Else : DataGridView11.Rows(i).Cells("金額").Value = 0 : End If
+
+            DataGridView11.Rows(i).Cells("彙總").Value = DataGridView11.Rows(i).Cells("金額").Value
+            If DataGridView11.Rows(i).Cells("抵銷").Value = True Then : DataGridView11.Rows(i).Cells("彙總").Value = DataGridView11.Rows(i).Cells("彙總").Value * -1 : End If
+
             If ComboBox2.Text = "" Then : Else
                 If DataGridView11.Rows(i).Cells("第一階").Value.ToString = ComboBox2.Text Then : TextBox50.Text = Val(TextBox50.Text) + DataGridView11.Rows(i).Cells("主項金額").Value : End If : End If
             If ComboBox3.Text = "" Then : Else
@@ -398,6 +450,10 @@ Public Class 營運成本收支_決算表
             ElseIf DataGridView12.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : DataGridView12.Rows(i).Cells("金額").Value = DataGridView12.Rows(i).Cells("子項金額").Value
             ElseIf DataGridView12.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : DataGridView12.Rows(i).Cells("金額").Value = DataGridView12.Rows(i).Cells("細項金額").Value
             Else : DataGridView12.Rows(i).Cells("金額").Value = 0 : End If
+
+            DataGridView12.Rows(i).Cells("彙總").Value = DataGridView12.Rows(i).Cells("金額").Value
+            If DataGridView12.Rows(i).Cells("抵銷").Value = True Then : DataGridView12.Rows(i).Cells("彙總").Value = DataGridView12.Rows(i).Cells("彙總").Value * -1 : End If
+
             If ComboBox2.Text = "" Then : Else
                 If DataGridView12.Rows(i).Cells("第一階").Value.ToString = ComboBox2.Text Then : TextBox55.Text = Val(TextBox55.Text) + DataGridView12.Rows(i).Cells("主項金額").Value : End If : End If
             If ComboBox3.Text = "" Then : Else
@@ -432,6 +488,10 @@ Public Class 營運成本收支_決算表
             ElseIf DataGridView13.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : DataGridView13.Rows(i).Cells("金額").Value = DataGridView13.Rows(i).Cells("子項金額").Value
             ElseIf DataGridView13.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : DataGridView13.Rows(i).Cells("金額").Value = DataGridView13.Rows(i).Cells("細項金額").Value
             Else : DataGridView13.Rows(i).Cells("金額").Value = 0 : End If
+
+            DataGridView13.Rows(i).Cells("彙總").Value = DataGridView13.Rows(i).Cells("金額").Value
+            If DataGridView13.Rows(i).Cells("抵銷").Value = True Then : DataGridView13.Rows(i).Cells("彙總").Value = DataGridView13.Rows(i).Cells("彙總").Value * -1 : End If
+
             If ComboBox2.Text = "" Then : Else
                 If DataGridView13.Rows(i).Cells("第一階").Value.ToString = ComboBox2.Text Then : TextBox60.Text = Val(TextBox60.Text) + DataGridView13.Rows(i).Cells("主項金額").Value : End If : End If
             If ComboBox3.Text = "" Then : Else
@@ -472,33 +532,180 @@ Public Class 營運成本收支_決算表
             Dim DataGridViewOO As DataGridView = CType(Me.Controls.Find("DataGridView" + i.ToString(), True)(0), DataGridView)
             If i = 2 Then
                 DataGridViewOO.Columns(0).FillWeight = 50 : DataGridViewOO.Columns(1).Visible = False : DataGridViewOO.Columns(2).Visible = False : DataGridViewOO.Columns(3).FillWeight = 90
-                DataGridViewOO.Columns(4).FillWeight = 90 : DataGridViewOO.Columns(5).FillWeight = 120 : DataGridViewOO.Columns(6).FillWeight = 80 : DataGridViewOO.Columns(7).FillWeight = 80
-                DataGridViewOO.Columns(8).FillWeight = 80
-                DataGridViewOO.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridViewOO.Columns(7).DefaultCellStyle.Format = "#,##0" : DataGridViewOO.Columns(8).DefaultCellStyle.Format = "#,##0"
-                DataGridViewOO.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-                DataGridViewOO.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-                DataGridViewOO.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-                DataGridViewOO.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-                DataGridViewOO.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-                DataGridViewOO.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+                DataGridViewOO.Columns(4).FillWeight = 90 : DataGridViewOO.Columns(5).FillWeight = 120 : DataGridViewOO.Columns(6).Visible = False : DataGridViewOO.Columns(7).Visible = False
+                DataGridViewOO.Columns(8).Visible = False : DataGridViewOO.Columns(9).Visible = False : DataGridViewOO.Columns(10).FillWeight = 80 : DataGridViewOO.Columns(11).FillWeight = 80
+                DataGridViewOO.Columns(12).FillWeight = 80
+                DataGridViewOO.Columns(10).DefaultCellStyle.Format = "#,##0" : DataGridViewOO.Columns(11).DefaultCellStyle.Format = "#,##0" : DataGridViewOO.Columns(12).DefaultCellStyle.Format = "#,##0"
+                DataGridViewOO.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                DataGridViewOO.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+                DataGridViewOO.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                DataGridViewOO.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+                DataGridViewOO.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                DataGridViewOO.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
                 DataGridViewOO.Columns(0).ReadOnly = True : DataGridViewOO.Columns(1).ReadOnly = True : DataGridViewOO.Columns(2).ReadOnly = True : DataGridViewOO.Columns(3).ReadOnly = True
-                DataGridViewOO.Columns(4).ReadOnly = True : DataGridViewOO.Columns(5).ReadOnly = True : DataGridViewOO.Columns(6).ReadOnly = True : DataGridViewOO.Columns(7).ReadOnly = True
-                DataGridViewOO.Columns(8).ReadOnly = True
+                DataGridViewOO.Columns(4).ReadOnly = True : DataGridViewOO.Columns(5).ReadOnly = True : DataGridViewOO.Columns(10).ReadOnly = True : DataGridViewOO.Columns(11).ReadOnly = True
+                DataGridViewOO.Columns(12).ReadOnly = True
             Else
                 DataGridViewOO.Columns(0).FillWeight = 20 : DataGridViewOO.Columns(1).Visible = False : DataGridViewOO.Columns(2).Visible = False : DataGridViewOO.Columns(3).Visible = False
                 DataGridViewOO.Columns(4).Visible = False : DataGridViewOO.Columns(5).Visible = False : DataGridViewOO.Columns(6).Visible = False : DataGridViewOO.Columns(7).Visible = False
-                DataGridViewOO.Columns(9).FillWeight = 75 : DataGridViewOO.Columns(8).Visible = False
-                DataGridViewOO.Columns(9).DefaultCellStyle.Format = "#,##0"
-                DataGridViewOO.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-                DataGridViewOO.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-                DataGridViewOO.Columns(9).ReadOnly = True
+                DataGridViewOO.Columns(9).Visible = False : DataGridViewOO.Columns(8).Visible = False : DataGridViewOO.Columns(10).Visible = False : DataGridViewOO.Columns(11).FillWeight = 75
+                DataGridViewOO.Columns(11).DefaultCellStyle.Format = "#,##0"
+                DataGridViewOO.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                DataGridViewOO.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+                DataGridViewOO.Columns(11).ReadOnly = True
             End If
         Next
 
+        If TextBox111.Text = "貸" Then
+            TextBox61.Text = Val(TextBox61.Text) * -1 : TextBox1.Text = Val(TextBox1.Text) * -1 : TextBox5.Text = Val(TextBox5.Text) * -1 : TextBox9.Text = Val(TextBox9.Text) * -1
+            TextBox13.Text = Val(TextBox13.Text) * -1 : TextBox17.Text = Val(TextBox17.Text) * -1 : TextBox21.Text = Val(TextBox21.Text) * -1 : TextBox35.Text = Val(TextBox35.Text) * -1
+            TextBox40.Text = Val(TextBox40.Text) * -1 : TextBox45.Text = Val(TextBox45.Text) * -1 : TextBox50.Text = Val(TextBox50.Text) * -1 : TextBox55.Text = Val(TextBox55.Text) * -1
+            TextBox60.Text = Val(TextBox60.Text) * -1
+
+            TextBox61.ForeColor = Color.Red : TextBox1.ForeColor = Color.Red : TextBox5.ForeColor = Color.Red : TextBox9.ForeColor = Color.Red : TextBox13.ForeColor = Color.Red
+            TextBox17.ForeColor = Color.Red : TextBox21.ForeColor = Color.Red : TextBox35.ForeColor = Color.Red : TextBox40.ForeColor = Color.Red : TextBox45.ForeColor = Color.Red
+            TextBox50.ForeColor = Color.Red : TextBox55.ForeColor = Color.Red : TextBox60.ForeColor = Color.Red
+        ElseIf TextBox111.Text = "借" Then
+            TextBox61.ForeColor = Color.Blue : TextBox1.ForeColor = Color.Blue : TextBox5.ForeColor = Color.Blue : TextBox9.ForeColor = Color.Blue : TextBox13.ForeColor = Color.Blue
+            TextBox17.ForeColor = Color.Blue : TextBox21.ForeColor = Color.Blue : TextBox35.ForeColor = Color.Blue : TextBox40.ForeColor = Color.Blue : TextBox45.ForeColor = Color.Blue
+            TextBox50.ForeColor = Color.Blue : TextBox55.ForeColor = Color.Blue : TextBox60.ForeColor = Color.Blue
+        ElseIf TextBox111.Text = "" Then
+            TextBox61.ForeColor = Color.Black : TextBox1.ForeColor = Color.Black : TextBox5.ForeColor = Color.Black : TextBox9.ForeColor = Color.Black : TextBox13.ForeColor = Color.Black
+            TextBox17.ForeColor = Color.Black : TextBox21.ForeColor = Color.Black : TextBox35.ForeColor = Color.Black : TextBox40.ForeColor = Color.Black : TextBox45.ForeColor = Color.Black
+            TextBox50.ForeColor = Color.Black : TextBox55.ForeColor = Color.Black : TextBox60.ForeColor = Color.Black
+        End If
+
+        If TextBox110.Text = "貸" Then
+            TextBox62.Text = Val(TextBox62.Text) * -1 : TextBox2.Text = Val(TextBox2.Text) * -1 : TextBox6.Text = Val(TextBox6.Text) * -1 : TextBox10.Text = Val(TextBox10.Text) * -1
+            TextBox14.Text = Val(TextBox14.Text) * -1 : TextBox18.Text = Val(TextBox18.Text) * -1 : TextBox22.Text = Val(TextBox22.Text) * -1 : TextBox34.Text = Val(TextBox34.Text) * -1
+            TextBox39.Text = Val(TextBox39.Text) * -1 : TextBox44.Text = Val(TextBox44.Text) * -1 : TextBox49.Text = Val(TextBox49.Text) * -1 : TextBox54.Text = Val(TextBox54.Text) * -1
+            TextBox59.Text = Val(TextBox59.Text) * -1
+
+            TextBox62.ForeColor = Color.Red : TextBox2.ForeColor = Color.Red : TextBox6.ForeColor = Color.Red : TextBox10.ForeColor = Color.Red : TextBox14.ForeColor = Color.Red
+            TextBox18.ForeColor = Color.Red : TextBox22.ForeColor = Color.Red : TextBox34.ForeColor = Color.Red : TextBox39.ForeColor = Color.Red : TextBox44.ForeColor = Color.Red
+            TextBox49.ForeColor = Color.Red : TextBox54.ForeColor = Color.Red : TextBox59.ForeColor = Color.Red
+        ElseIf TextBox110.Text = "借" Then
+            TextBox62.ForeColor = Color.Blue : TextBox2.ForeColor = Color.Blue : TextBox6.ForeColor = Color.Blue : TextBox10.ForeColor = Color.Blue : TextBox14.ForeColor = Color.Blue
+            TextBox18.ForeColor = Color.Blue : TextBox22.ForeColor = Color.Blue : TextBox34.ForeColor = Color.Blue : TextBox39.ForeColor = Color.Blue : TextBox44.ForeColor = Color.Blue
+            TextBox49.ForeColor = Color.Blue : TextBox54.ForeColor = Color.Blue : TextBox59.ForeColor = Color.Blue
+        ElseIf TextBox110.Text = "" Then
+            TextBox62.ForeColor = Color.Black : TextBox2.ForeColor = Color.Black : TextBox6.ForeColor = Color.Black : TextBox10.ForeColor = Color.Black : TextBox14.ForeColor = Color.Black
+            TextBox18.ForeColor = Color.Black : TextBox22.ForeColor = Color.Black : TextBox34.ForeColor = Color.Black : TextBox39.ForeColor = Color.Black : TextBox44.ForeColor = Color.Black
+            TextBox49.ForeColor = Color.Black : TextBox54.ForeColor = Color.Black : TextBox59.ForeColor = Color.Black
+        End If
+
+        If TextBox109.Text = "貸" Then
+            TextBox63.Text = Val(TextBox63.Text) * -1 : TextBox3.Text = Val(TextBox3.Text) * -1 : TextBox7.Text = Val(TextBox7.Text) * -1 : TextBox11.Text = Val(TextBox11.Text) * -1
+            TextBox15.Text = Val(TextBox15.Text) * -1 : TextBox19.Text = Val(TextBox19.Text) * -1 : TextBox23.Text = Val(TextBox23.Text) * -1 : TextBox33.Text = Val(TextBox33.Text) * -1
+            TextBox38.Text = Val(TextBox38.Text) * -1 : TextBox43.Text = Val(TextBox43.Text) * -1 : TextBox48.Text = Val(TextBox48.Text) * -1 : TextBox53.Text = Val(TextBox53.Text) * -1
+            TextBox58.Text = Val(TextBox58.Text) * -1
+
+            TextBox63.ForeColor = Color.Red : TextBox3.ForeColor = Color.Red : TextBox7.ForeColor = Color.Red : TextBox11.ForeColor = Color.Red : TextBox15.ForeColor = Color.Red
+            TextBox19.ForeColor = Color.Red : TextBox23.ForeColor = Color.Red : TextBox33.ForeColor = Color.Red : TextBox38.ForeColor = Color.Red : TextBox43.ForeColor = Color.Red
+            TextBox48.ForeColor = Color.Red : TextBox53.ForeColor = Color.Red : TextBox58.ForeColor = Color.Red
+        ElseIf TextBox109.Text = "借" Then
+            TextBox63.ForeColor = Color.Blue : TextBox3.ForeColor = Color.Blue : TextBox7.ForeColor = Color.Blue : TextBox11.ForeColor = Color.Blue : TextBox15.ForeColor = Color.Blue
+            TextBox19.ForeColor = Color.Blue : TextBox23.ForeColor = Color.Blue : TextBox33.ForeColor = Color.Blue : TextBox38.ForeColor = Color.Blue : TextBox43.ForeColor = Color.Blue
+            TextBox48.ForeColor = Color.Blue : TextBox53.ForeColor = Color.Blue : TextBox58.ForeColor = Color.Blue
+        ElseIf TextBox109.Text = "" Then
+            TextBox63.ForeColor = Color.Black : TextBox3.ForeColor = Color.Black : TextBox7.ForeColor = Color.Black : TextBox11.ForeColor = Color.Black : TextBox15.ForeColor = Color.Black
+            TextBox19.ForeColor = Color.Black : TextBox23.ForeColor = Color.Black : TextBox33.ForeColor = Color.Black : TextBox38.ForeColor = Color.Black : TextBox43.ForeColor = Color.Black
+            TextBox48.ForeColor = Color.Black : TextBox53.ForeColor = Color.Black : TextBox58.ForeColor = Color.Black
+        End If
+
+        If TextBox108.Text = "貸" Then
+            TextBox77.Text = Val(TextBox77.Text) * -1 : TextBox76.Text = Val(TextBox76.Text) * -1 : TextBox75.Text = Val(TextBox75.Text) * -1 : TextBox74.Text = Val(TextBox74.Text) * -1
+            TextBox73.Text = Val(TextBox73.Text) * -1 : TextBox72.Text = Val(TextBox72.Text) * -1 : TextBox71.Text = Val(TextBox71.Text) * -1 : TextBox70.Text = Val(TextBox70.Text) * -1
+            TextBox69.Text = Val(TextBox69.Text) * -1 : TextBox68.Text = Val(TextBox68.Text) * -1 : TextBox67.Text = Val(TextBox67.Text) * -1 : TextBox66.Text = Val(TextBox66.Text) * -1
+            TextBox65.Text = Val(TextBox65.Text) * -1
+
+            TextBox77.ForeColor = Color.Red : TextBox76.ForeColor = Color.Red : TextBox75.ForeColor = Color.Red : TextBox74.ForeColor = Color.Red : TextBox73.ForeColor = Color.Red
+            TextBox72.ForeColor = Color.Red : TextBox71.ForeColor = Color.Red : TextBox70.ForeColor = Color.Red : TextBox69.ForeColor = Color.Red : TextBox68.ForeColor = Color.Red
+            TextBox67.ForeColor = Color.Red : TextBox66.ForeColor = Color.Red : TextBox65.ForeColor = Color.Red
+        ElseIf TextBox108.Text = "借" Then
+            TextBox77.ForeColor = Color.Blue : TextBox76.ForeColor = Color.Blue : TextBox75.ForeColor = Color.Blue : TextBox74.ForeColor = Color.Blue : TextBox73.ForeColor = Color.Blue
+            TextBox72.ForeColor = Color.Blue : TextBox71.ForeColor = Color.Blue : TextBox70.ForeColor = Color.Blue : TextBox69.ForeColor = Color.Blue : TextBox68.ForeColor = Color.Blue
+            TextBox67.ForeColor = Color.Blue : TextBox66.ForeColor = Color.Blue : TextBox65.ForeColor = Color.Blue
+        ElseIf TextBox108.Text = "" Then
+            TextBox77.ForeColor = Color.Black : TextBox76.ForeColor = Color.Black : TextBox75.ForeColor = Color.Black : TextBox74.ForeColor = Color.Black : TextBox73.ForeColor = Color.Black
+            TextBox72.ForeColor = Color.Black : TextBox71.ForeColor = Color.Black : TextBox70.ForeColor = Color.Black : TextBox69.ForeColor = Color.Black : TextBox68.ForeColor = Color.Black
+            TextBox67.ForeColor = Color.Black : TextBox66.ForeColor = Color.Black : TextBox65.ForeColor = Color.Black
+        End If
+
+        If TextBox107.Text = "貸" Then
+            TextBox78.Text = Val(TextBox78.Text) * -1 : TextBox90.Text = Val(TextBox90.Text) * -1 : TextBox89.Text = Val(TextBox89.Text) * -1 : TextBox88.Text = Val(TextBox88.Text) * -1
+            TextBox87.Text = Val(TextBox87.Text) * -1 : TextBox86.Text = Val(TextBox86.Text) * -1 : TextBox85.Text = Val(TextBox85.Text) * -1 : TextBox84.Text = Val(TextBox84.Text) * -1
+            TextBox83.Text = Val(TextBox83.Text) * -1 : TextBox82.Text = Val(TextBox82.Text) * -1 : TextBox81.Text = Val(TextBox81.Text) * -1 : TextBox80.Text = Val(TextBox80.Text) * -1
+            TextBox79.Text = Val(TextBox79.Text) * -1
+
+            TextBox78.ForeColor = Color.Red : TextBox90.ForeColor = Color.Red : TextBox89.ForeColor = Color.Red : TextBox88.ForeColor = Color.Red : TextBox87.ForeColor = Color.Red
+            TextBox86.ForeColor = Color.Red : TextBox85.ForeColor = Color.Red : TextBox84.ForeColor = Color.Red : TextBox83.ForeColor = Color.Red : TextBox82.ForeColor = Color.Red
+            TextBox81.ForeColor = Color.Red : TextBox80.ForeColor = Color.Red : TextBox79.ForeColor = Color.Red
+        ElseIf TextBox107.Text = "借" Then
+            TextBox78.ForeColor = Color.Blue : TextBox90.ForeColor = Color.Blue : TextBox89.ForeColor = Color.Blue : TextBox88.ForeColor = Color.Blue : TextBox87.ForeColor = Color.Blue
+            TextBox86.ForeColor = Color.Blue : TextBox85.ForeColor = Color.Blue : TextBox84.ForeColor = Color.Blue : TextBox83.ForeColor = Color.Blue : TextBox82.ForeColor = Color.Blue
+            TextBox81.ForeColor = Color.Blue : TextBox80.ForeColor = Color.Blue : TextBox79.ForeColor = Color.Blue
+        ElseIf TextBox107.Text = "" Then
+            TextBox78.ForeColor = Color.Black : TextBox90.ForeColor = Color.Black : TextBox89.ForeColor = Color.Black : TextBox88.ForeColor = Color.Black : TextBox87.ForeColor = Color.Black
+            TextBox86.ForeColor = Color.Black : TextBox85.ForeColor = Color.Black : TextBox84.ForeColor = Color.Black : TextBox83.ForeColor = Color.Black : TextBox82.ForeColor = Color.Black
+            TextBox81.ForeColor = Color.Black : TextBox80.ForeColor = Color.Black : TextBox79.ForeColor = Color.Black
+        End If
+
+        If TextBox106.Text = "貸" Then
+            TextBox91.Text = Val(TextBox91.Text) * -1 : TextBox103.Text = Val(TextBox103.Text) * -1 : TextBox102.Text = Val(TextBox102.Text) * -1 : TextBox101.Text = Val(TextBox101.Text) * -1
+            TextBox100.Text = Val(TextBox100.Text) * -1 : TextBox99.Text = Val(TextBox99.Text) * -1 : TextBox98.Text = Val(TextBox98.Text) * -1 : TextBox97.Text = Val(TextBox97.Text) * -1
+            TextBox96.Text = Val(TextBox96.Text) * -1 : TextBox95.Text = Val(TextBox95.Text) * -1 : TextBox94.Text = Val(TextBox94.Text) * -1 : TextBox93.Text = Val(TextBox93.Text) * -1
+            TextBox92.Text = Val(TextBox92.Text) * -1
+
+            TextBox91.ForeColor = Color.Red : TextBox103.ForeColor = Color.Red : TextBox102.ForeColor = Color.Red : TextBox101.ForeColor = Color.Red : TextBox100.ForeColor = Color.Red
+            TextBox99.ForeColor = Color.Red : TextBox98.ForeColor = Color.Red : TextBox97.ForeColor = Color.Red : TextBox96.ForeColor = Color.Red : TextBox95.ForeColor = Color.Red
+            TextBox94.ForeColor = Color.Red : TextBox93.ForeColor = Color.Red : TextBox92.ForeColor = Color.Red
+        ElseIf TextBox106.Text = "借" Then
+            TextBox91.ForeColor = Color.Blue : TextBox103.ForeColor = Color.Blue : TextBox102.ForeColor = Color.Blue : TextBox101.ForeColor = Color.Blue : TextBox100.ForeColor = Color.Blue
+            TextBox99.ForeColor = Color.Blue : TextBox98.ForeColor = Color.Blue : TextBox97.ForeColor = Color.Blue : TextBox96.ForeColor = Color.Blue : TextBox95.ForeColor = Color.Blue
+            TextBox94.ForeColor = Color.Blue : TextBox93.ForeColor = Color.Blue : TextBox92.ForeColor = Color.Blue
+        ElseIf TextBox106.Text = "" Then
+            TextBox91.ForeColor = Color.Black : TextBox103.ForeColor = Color.Black : TextBox102.ForeColor = Color.Black : TextBox101.ForeColor = Color.Black : TextBox100.ForeColor = Color.Black
+            TextBox99.ForeColor = Color.Black : TextBox98.ForeColor = Color.Black : TextBox97.ForeColor = Color.Black : TextBox96.ForeColor = Color.Black : TextBox95.ForeColor = Color.Black
+            TextBox94.ForeColor = Color.Black : TextBox93.ForeColor = Color.Black : TextBox92.ForeColor = Color.Black
+        End If
+
+        If TextBox105.Text = "貸" Then
+            TextBox104.Text = Val(TextBox104.Text) * -1 : TextBox30.Text = Val(TextBox30.Text) * -1 : TextBox29.Text = Val(TextBox29.Text) * -1 : TextBox28.Text = Val(TextBox28.Text) * -1
+            TextBox27.Text = Val(TextBox27.Text) * -1 : TextBox26.Text = Val(TextBox26.Text) * -1 : TextBox25.Text = Val(TextBox25.Text) * -1 : TextBox31.Text = Val(TextBox31.Text) * -1
+            TextBox36.Text = Val(TextBox36.Text) * -1 : TextBox41.Text = Val(TextBox41.Text) * -1 : TextBox46.Text = Val(TextBox46.Text) * -1 : TextBox51.Text = Val(TextBox51.Text) * -1
+            TextBox56.Text = Val(TextBox56.Text) * -1
+
+            TextBox104.ForeColor = Color.Red : TextBox30.ForeColor = Color.Red : TextBox29.ForeColor = Color.Red : TextBox28.ForeColor = Color.Red : TextBox27.ForeColor = Color.Red
+            TextBox26.ForeColor = Color.Red : TextBox25.ForeColor = Color.Red : TextBox31.ForeColor = Color.Red : TextBox36.ForeColor = Color.Red : TextBox41.ForeColor = Color.Red
+            TextBox46.ForeColor = Color.Red : TextBox51.ForeColor = Color.Red : TextBox56.ForeColor = Color.Red
+        ElseIf TextBox105.Text = "借" Then
+            TextBox104.ForeColor = Color.Blue : TextBox30.ForeColor = Color.Blue : TextBox29.ForeColor = Color.Blue : TextBox28.ForeColor = Color.Blue : TextBox27.ForeColor = Color.Blue
+            TextBox26.ForeColor = Color.Blue : TextBox25.ForeColor = Color.Blue : TextBox31.ForeColor = Color.Blue : TextBox36.ForeColor = Color.Blue : TextBox41.ForeColor = Color.Blue
+            TextBox46.ForeColor = Color.Blue : TextBox51.ForeColor = Color.Blue : TextBox56.ForeColor = Color.Blue
+        ElseIf TextBox105.Text = "" Then
+            TextBox104.ForeColor = Color.Black : TextBox30.ForeColor = Color.Black : TextBox29.ForeColor = Color.Black : TextBox28.ForeColor = Color.Black : TextBox27.ForeColor = Color.Black
+            TextBox26.ForeColor = Color.Black : TextBox25.ForeColor = Color.Black : TextBox31.ForeColor = Color.Black : TextBox36.ForeColor = Color.Black : TextBox41.ForeColor = Color.Black
+            TextBox46.ForeColor = Color.Black : TextBox51.ForeColor = Color.Black : TextBox56.ForeColor = Color.Black
+        End If
+
+        If Val(TextBox64.Text) < 0 Then : TextBox64.ForeColor = Color.Red : Else : TextBox64.ForeColor = Color.Blue : End If
+        If Val(TextBox4.Text) < 0 Then : TextBox4.ForeColor = Color.Red : Else : TextBox4.ForeColor = Color.Blue : End If
+        If Val(TextBox8.Text) < 0 Then : TextBox8.ForeColor = Color.Red : Else : TextBox8.ForeColor = Color.Blue : End If
+        If Val(TextBox12.Text) < 0 Then : TextBox12.ForeColor = Color.Red : Else : TextBox12.ForeColor = Color.Blue : End If
+        If Val(TextBox16.Text) < 0 Then : TextBox16.ForeColor = Color.Red : Else : TextBox16.ForeColor = Color.Blue : End If
+        If Val(TextBox20.Text) < 0 Then : TextBox20.ForeColor = Color.Red : Else : TextBox20.ForeColor = Color.Blue : End If
+        If Val(TextBox24.Text) < 0 Then : TextBox24.ForeColor = Color.Red : Else : TextBox24.ForeColor = Color.Blue : End If
+        If Val(TextBox32.Text) < 0 Then : TextBox32.ForeColor = Color.Red : Else : TextBox32.ForeColor = Color.Blue : End If
+        If Val(TextBox37.Text) < 0 Then : TextBox37.ForeColor = Color.Red : Else : TextBox37.ForeColor = Color.Blue : End If
+        If Val(TextBox42.Text) < 0 Then : TextBox42.ForeColor = Color.Red : Else : TextBox42.ForeColor = Color.Blue : End If
+        If Val(TextBox47.Text) < 0 Then : TextBox47.ForeColor = Color.Red : Else : TextBox47.ForeColor = Color.Blue : End If
+        If Val(TextBox52.Text) < 0 Then : TextBox52.ForeColor = Color.Red : Else : TextBox52.ForeColor = Color.Blue : End If
+        If Val(TextBox57.Text) < 0 Then : TextBox57.ForeColor = Color.Red : Else : TextBox57.ForeColor = Color.Blue : End If
+
         For no As Integer = 1 To 104
             Dim TextBoxOO As TextBox = CType(Me.Controls.Find("TextBox" + no.ToString(), True)(0), TextBox)
-            If Val(TextBoxOO.Text) > 1 Then : TextBoxOO.ForeColor = Color.Blue : ElseIf Val(TextBoxOO.Text) < 1 Then : TextBoxOO.ForeColor = Color.Red : End If
             TextBoxOO.Text = Format(Val(TextBoxOO.Text), "#,##0 ")
         Next
     End Sub
@@ -513,6 +720,9 @@ Public Class 營運成本收支_決算表
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         DataGridView14.Visible = False : ComboBox2下拉表單資料載入() : 合計預設值() : ComboBox1下拉表單資料載入() : ComboBox1.Text = Year(Today)
     End Sub
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        ComboBox2下拉表單資料載入()
+    End Sub
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
         Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12()
         格式設定()
@@ -537,6 +747,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView2.Rows.Count - 1
                 If DataGridView2("層級", i).Value = 1 Then : DataGridView2.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView2("層級", i).Value = 2 Then : DataGridView2.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView2("抵銷", i).Value = True Then : DataGridView2.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView2("抵銷", i).Value = False Then : DataGridView2.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -556,6 +768,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView1.Rows.Count - 1
                 If DataGridView1("層級", i).Value = 1 Then : DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView1("層級", i).Value = 2 Then : DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView1("抵銷", i).Value = True Then : DataGridView1.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView1("抵銷", i).Value = False Then : DataGridView1.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -575,6 +789,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView3.Rows.Count - 1
                 If DataGridView3("層級", i).Value = 1 Then : DataGridView3.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView3("層級", i).Value = 2 Then : DataGridView3.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView3("抵銷", i).Value = True Then : DataGridView3.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView3("抵銷", i).Value = False Then : DataGridView3.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -594,6 +810,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView4.Rows.Count - 1
                 If DataGridView4("層級", i).Value = 1 Then : DataGridView4.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView4("層級", i).Value = 2 Then : DataGridView4.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView4("抵銷", i).Value = True Then : DataGridView4.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView4("抵銷", i).Value = False Then : DataGridView4.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -613,6 +831,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView5.Rows.Count - 1
                 If DataGridView5("層級", i).Value = 1 Then : DataGridView5.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView5("層級", i).Value = 2 Then : DataGridView5.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView5("抵銷", i).Value = True Then : DataGridView5.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView5("抵銷", i).Value = False Then : DataGridView5.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -632,6 +852,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView6.Rows.Count - 1
                 If DataGridView6("層級", i).Value = 1 Then : DataGridView6.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView6("層級", i).Value = 2 Then : DataGridView6.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView6("抵銷", i).Value = True Then : DataGridView6.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView6("抵銷", i).Value = False Then : DataGridView6.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -651,6 +873,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView7.Rows.Count - 1
                 If DataGridView7("層級", i).Value = 1 Then : DataGridView7.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView7("層級", i).Value = 2 Then : DataGridView7.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView7("抵銷", i).Value = True Then : DataGridView7.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView7("抵銷", i).Value = False Then : DataGridView7.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -670,6 +894,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView8.Rows.Count - 1
                 If DataGridView8("層級", i).Value = 1 Then : DataGridView8.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView8("層級", i).Value = 2 Then : DataGridView8.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView8("抵銷", i).Value = True Then : DataGridView8.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView8("抵銷", i).Value = False Then : DataGridView8.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -689,6 +915,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView9.Rows.Count - 1
                 If DataGridView9("層級", i).Value = 1 Then : DataGridView9.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView9("層級", i).Value = 2 Then : DataGridView9.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView9("抵銷", i).Value = True Then : DataGridView9.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView9("抵銷", i).Value = False Then : DataGridView9.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -708,6 +936,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView10.Rows.Count - 1
                 If DataGridView10("層級", i).Value = 1 Then : DataGridView10.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView10("層級", i).Value = 2 Then : DataGridView10.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView10("抵銷", i).Value = True Then : DataGridView10.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView10("抵銷", i).Value = False Then : DataGridView10.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -727,6 +957,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView11.Rows.Count - 1
                 If DataGridView11("層級", i).Value = 1 Then : DataGridView11.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView11("層級", i).Value = 2 Then : DataGridView11.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView11("抵銷", i).Value = True Then : DataGridView11.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView11("抵銷", i).Value = False Then : DataGridView11.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -746,6 +978,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView12.Rows.Count - 1
                 If DataGridView12("層級", i).Value = 1 Then : DataGridView12.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView12("層級", i).Value = 2 Then : DataGridView12.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView12("抵銷", i).Value = True Then : DataGridView12.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView12("抵銷", i).Value = False Then : DataGridView12.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -765,6 +999,8 @@ Public Class 營運成本收支_決算表
             For i As Integer = 0 To DataGridView13.Rows.Count - 1
                 If DataGridView13("層級", i).Value = 1 Then : DataGridView13.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                 ElseIf DataGridView13("層級", i).Value = 2 Then : DataGridView13.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+                If DataGridView13("抵銷", i).Value = True Then : DataGridView13.Rows(i).DefaultCellStyle.ForeColor = Color.Red
+                ElseIf DataGridView13("抵銷", i).Value = False Then : DataGridView13.Rows(i).DefaultCellStyle.ForeColor = Color.Blue : End If
             Next
         End If
     End Sub
@@ -776,10 +1012,33 @@ Public Class 營運成本收支_決算表
         DataGridView10.FirstDisplayedScrollingRowIndex = DataGridView2.FirstDisplayedScrollingRowIndex : DataGridView11.FirstDisplayedScrollingRowIndex = DataGridView2.FirstDisplayedScrollingRowIndex
         DataGridView12.FirstDisplayedScrollingRowIndex = DataGridView2.FirstDisplayedScrollingRowIndex : DataGridView13.FirstDisplayedScrollingRowIndex = DataGridView2.FirstDisplayedScrollingRowIndex
     End Sub
-    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
-    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
-        合計預設值() : Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
-        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
+        PA1 = ComboBox2.Text : SQL_營運成本收支_決算表_彙總借貸()
+        If dr.Read() Then : If dr("抵銷科目") = True Then : TextBox111.Text = "貸" : ElseIf dr("抵銷科目") = False Then : TextBox111.Text = "借" : End If : Else : TextBox111.Text = "" : End If
+    End Sub
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
+        PA1 = ComboBox3.Text : SQL_營運成本收支_決算表_彙總借貸()
+        If dr.Read() Then : If dr("抵銷科目") = True Then : TextBox110.Text = "貸" : ElseIf dr("抵銷科目") = False Then : TextBox110.Text = "借" : End If : Else : TextBox110.Text = "" : End If
+    End Sub
+    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
+        PA1 = ComboBox4.Text : SQL_營運成本收支_決算表_彙總借貸()
+        If dr.Read() Then : If dr("抵銷科目") = True Then : TextBox109.Text = "貸" : ElseIf dr("抵銷科目") = False Then : TextBox109.Text = "借" : End If : Else : TextBox109.Text = "" : End If
+    End Sub
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
+        PA1 = ComboBox5.Text : SQL_營運成本收支_決算表_彙總借貸()
+        If dr.Read() Then : If dr("抵銷科目") = True Then : TextBox108.Text = "貸" : ElseIf dr("抵銷科目") = False Then : TextBox108.Text = "借" : End If : Else : TextBox108.Text = "" : End If
+    End Sub
+    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
+        PA1 = ComboBox6.Text : SQL_營運成本收支_決算表_彙總借貸()
+        If dr.Read() Then : If dr("抵銷科目") = True Then : TextBox107.Text = "貸" : ElseIf dr("抵銷科目") = False Then : TextBox107.Text = "借" : End If : Else : TextBox107.Text = "" : End If
+    End Sub
+    Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged
+        PA1 = ComboBox7.Text : SQL_營運成本收支_決算表_彙總借貸()
+        If dr.Read() Then : If dr("抵銷科目") = True Then : TextBox106.Text = "貸" : ElseIf dr("抵銷科目") = False Then : TextBox106.Text = "借" : End If : Else : TextBox106.Text = "" : End If
+    End Sub
+    Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox8.SelectedIndexChanged
+        PA1 = ComboBox8.Text : SQL_營運成本收支_決算表_彙總借貸()
+        If dr.Read() Then : If dr("抵銷科目") = True Then : TextBox105.Text = "貸" : ElseIf dr("抵銷科目") = False Then : TextBox105.Text = "借" : End If : Else : TextBox105.Text = "" : End If
     End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         For i As Integer = 0 To DataGridView14.Rows.Count - 1
@@ -788,4 +1047,9 @@ Public Class 營運成本收支_決算表
             PA1 = ComboBoxOO.Text : 布林1 = CheckBoxOO.Checked : PA2 = (i + 1) : SQL_財務決算表合計預設修改() : conn.Close()
         Next : MsgBox("存檔完畢。") : Me.重新整理ToolStripMenuItem.PerformClick()
     End Sub
+    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
+        合計預設值() : Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
+        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
+    End Sub
 End Class

MaoOrange-Hongji/資料庫系統管理/列印_產品標籤介面.Designer.vb

@@ -22,7 +22,7 @@ Partial Class 列印_產品標籤介面
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.DataGridView1 = New System.Windows.Forms.DataGridView()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Button11 = New System.Windows.Forms.Button()
@@ -39,8 +39,8 @@ Partial Class 列印_產品標籤介面
         Me.DataGridView1.Location = New System.Drawing.Point(12, 111)
         Me.DataGridView1.Name = "DataGridView1"
         Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.DataGridView1.RowTemplate.Height = 24
         Me.DataGridView1.Size = New System.Drawing.Size(570, 237)
         Me.DataGridView1.TabIndex = 1155

MaoOrange-Hongji/資料庫系統管理/列印_產品標籤介面.vb

@@ -58,17 +58,17 @@ Public Class 列印_產品標籤介面
                     xlSheet.Cells(4 + N1, 1) = "系統料號 : " : xlSheet.Cells(4 + N1, 2) = DataGridView1.Rows(I).Cells("料號").Value : xlSheet.Cells(4 + N1, 3) = TextBox1.Text
                     xlSheet.Cells(5 + N1, 1) = "產品頁碼 : " : xlSheet.Cells(5 + N1, 2) = DataGridView1.Rows(I).Cells("頁碼").Value
                     xlSheet.Cells(6 + N1, 1) = "產品名稱 : " : xlSheet.Cells(6 + N1, 2) = DataGridView1.Rows(I).Cells("品名").Value
-                    xlSheet.Cells(7 + N1, 1) = "產品件數 : 共 (                    )"
+                    xlSheet.Cells(7 + N1, 1) = "產品件數 : 共 (                              )"
                     BB(xlApp, xlSheet)
                     N1 += 8
                 Next
             Else
                 xlSheet.Cells(1, 1) = MAOJI_ERP_SYS.ComboBox2.Text : xlSheet.Cells(2, 1) = PA1
-                xlSheet.Cells(3, 1) = "系統單號 : " : xlSheet.Cells(3, 2) = DataGridView1.Rows(I).Cells("項次").Value : xlSheet.Cells(6, 3) = "單據數量"
-                xlSheet.Cells(4, 1) = "系統料號 : " : xlSheet.Cells(4, 2) = DataGridView1.Rows(I).Cells("項次").Value : xlSheet.Cells(4, 3) = TextBox1.Text
-                xlSheet.Cells(5, 1) = "產品頁碼 : " : xlSheet.Cells(5, 2) = DataGridView1.Rows(I).Cells("項次").Value
-                xlSheet.Cells(6, 1) = "產品名稱 : " : xlSheet.Cells(6, 2) = DataGridView1.Rows(I).Cells("項次").Value
-                xlSheet.Cells(7, 1) = "產品件數 : 共 (                    )"
+                xlSheet.Cells(3, 1) = "系統單號 : " : xlSheet.Cells(3, 2) = DataGridView1.Rows(I).Cells("單據編號").Value : xlSheet.Cells(3, 3) = "單據數量"
+                xlSheet.Cells(4, 1) = "系統料號 : " : xlSheet.Cells(4, 2) = DataGridView1.Rows(I).Cells("料號").Value : xlSheet.Cells(4, 3) = TextBox1.Text
+                xlSheet.Cells(5, 1) = "產品頁碼 : " : xlSheet.Cells(5, 2) = DataGridView1.Rows(I).Cells("頁碼").Value
+                xlSheet.Cells(6, 1) = "產品名稱 : " : xlSheet.Cells(6, 2) = DataGridView1.Rows(I).Cells("品名").Value
+                xlSheet.Cells(7, 1) = "產品件數 : 共 (                              )"
                 BB(xlApp, xlSheet)
             End If
             CC(xlApp, xlSheet)
@@ -167,4 +167,10 @@ Public Class 列印_產品標籤介面
         End With
         myExcel.Application.PrintCommunication = True
     End Sub
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.Click
+        CheckBox1.Checked = True : CheckBox2.Checked = False
+    End Sub
+    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.Click
+        CheckBox1.Checked = False : CheckBox2.Checked = True
+    End Sub
 End Class

MaoOrange-Hongji/資料庫系統管理/系統通用變數管理.Designer.vb

@@ -0,0 +1,219 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 系統通用變數管理
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.GroupBox1.SuspendLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label3.ForeColor = System.Drawing.Color.Red
+        Me.Label3.Location = New System.Drawing.Point(3, -1)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(766, 27)
+        Me.Label3.TabIndex = 242
+        Me.Label3.Text = "*  編碼原則對於系統非常重要，如有更動需求請與系統開發商進行討論後再行修改"
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.TextBox4)
+        Me.GroupBox1.Controls.Add(Me.Label5)
+        Me.GroupBox1.Controls.Add(Me.TextBox3)
+        Me.GroupBox1.Controls.Add(Me.Label4)
+        Me.GroupBox1.Controls.Add(Me.TextBox2)
+        Me.GroupBox1.Controls.Add(Me.Label2)
+        Me.GroupBox1.Controls.Add(Me.TextBox1)
+        Me.GroupBox1.Controls.Add(Me.Label1)
+        Me.GroupBox1.Controls.Add(Me.Button1)
+        Me.GroupBox1.Controls.Add(Me.Button2)
+        Me.GroupBox1.Controls.Add(Me.Button3)
+        Me.GroupBox1.Controls.Add(Me.DataGridView1)
+        Me.GroupBox1.Location = New System.Drawing.Point(8, 29)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(761, 467)
+        Me.GroupBox1.TabIndex = 253
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "付款方式"
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Location = New System.Drawing.Point(54, 67)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(398, 23)
+        Me.TextBox4.TabIndex = 681
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(9, 70)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(44, 16)
+        Me.Label5.TabIndex = 680
+        Me.Label5.Text = "預設值"
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Location = New System.Drawing.Point(54, 42)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(398, 23)
+        Me.TextBox3.TabIndex = 679
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(9, 45)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.TabIndex = 678
+        Me.Label4.Text = "說明"
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(281, 17)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(171, 23)
+        Me.TextBox2.TabIndex = 677
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(225, 21)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(56, 16)
+        Me.Label2.TabIndex = 676
+        Me.Label2.Text = "運用介面"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(54, 17)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(165, 23)
+        Me.TextBox1.TabIndex = 675
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(9, 20)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(44, 16)
+        Me.Label1.TabIndex = 674
+        Me.Label1.Text = "流水號"
+        '
+        'Button1
+        '
+        Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button1.ForeColor = System.Drawing.Color.Red
+        Me.Button1.Location = New System.Drawing.Point(660, 16)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(95, 74)
+        Me.Button1.TabIndex = 673
+        Me.Button1.Text = "刪除"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button2.ForeColor = System.Drawing.Color.Blue
+        Me.Button2.Location = New System.Drawing.Point(458, 16)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(95, 74)
+        Me.Button2.TabIndex = 671
+        Me.Button2.Text = "新增"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button3.ForeColor = System.Drawing.Color.DarkGreen
+        Me.Button3.Location = New System.Drawing.Point(559, 16)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(95, 74)
+        Me.Button3.TabIndex = 672
+        Me.Button3.Text = "修改"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'DataGridView1
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Location = New System.Drawing.Point(6, 93)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 5
+        Me.DataGridView1.RowTemplate.Height = 24
+        Me.DataGridView1.Size = New System.Drawing.Size(749, 365)
+        Me.DataGridView1.TabIndex = 663
+        '
+        '系統通用變數管理
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.Label3)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "系統通用變數管理"
+        Me.Text = "系統通用變數管理"
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label3 As Label
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents TextBox4 As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents DataGridView1 As DataGridView
+End Class

MaoOrange-Hongji/資料庫系統管理/系統通用變數管理.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

MaoOrange-Hongji/資料庫系統管理/系統通用變數管理.vb

@@ -0,0 +1,64 @@
+Option Strict Off
+Public Class 系統通用變數管理
+    ReadOnly ds As New DataSet
+    Dim EDR As Integer = 0 : Dim ESTR As String
+    Private Sub Set_通用預設值一()
+        DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        DataGridView1.ColumnHeadersHeight = 25 : DataGridView1.AllowUserToAddRows = False
+        SQL_通用預設值管理清單一()
+        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        DataGridView1.Columns(0).FillWeight = 60 : DataGridView1.Columns(1).FillWeight = 100 : DataGridView1.Columns(2).FillWeight = 300 : DataGridView1.Columns(3).FillWeight = 100
+    End Sub
+    Private Sub 系統通用變數管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        Set_通用預設值一()
+    End Sub
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox1.Text = DataGridView1(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView1(1, e.RowIndex).Value.ToString
+            TextBox3.Text = DataGridView1(2, e.RowIndex).Value.ToString : TextBox4.Text = DataGridView1(3, e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub SET_新增按鈕程式共用2()
+        CmdSet_For_dr() : Dim unused = MsgBox("新增完成") : conn.Close() : dr.Close()
+    End Sub
+    Private Sub SET_修改按鈕程式共用1()
+        CmdSet_For_dr() : Dim unused = MsgBox("修改完成") : conn.Close()
+    End Sub
+    Private Sub SET_刪除按鈕程式共用1()
+        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+        If aa = MsgBoxResult.Ok Then : ConnOpen() : CmdSet_For_dr() : MsgBox("刪除完成") : End If : conn.Close() : 式共用1()
+    End Sub
+    Private Sub 式共用1()
+        Set_通用預設值一() : PA = ""
+    End Sub
+    Private Sub 式共用2()
+        dr.Close() : ConnOpen()
+    End Sub
+    Private Sub 式共用3()
+        ConnOpen()
+    End Sub
+    '------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then : MsgBox("資料缺失，不可有空白")
+        Else
+            '----------------------自动生成流水号-------------------------------------------------------------------------
+            SQL_系統通用變數管理流水號查詢()
+            If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 3)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
+            If EDR < 10 Then : ESTR = "DV" & "00" & EDR
+            ElseIf EDR > 9 And EDR < 100 Then : ESTR = "DV" & "0" & EDR
+            ElseIf EDR > 99 Then : ESTR = "DV" & EDR : End If : PA1 = ESTR : PA2 = TextBox2.Text : PA3 = TextBox3.Text : PA4 = TextBox4.Text
+            式共用2() : SQL_系統通用變數管理新增() : SET_新增按鈕程式共用2()
+        End If : 式共用1()
+    End Sub
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If TextBox1.Text = "" Or TextBox3.Text = "" Or TextBox2.Text = "" Or TextBox4.Text = "" Then : MsgBox("資料有缺或有誤，請重新檢查")
+        Else
+            PA1 = TextBox1.Text : PA2 = TextBox2.Text : PA3 = TextBox3.Text : PA4 = TextBox4.Text
+            式共用3() : SQL_系統通用變數管理修改() : SET_修改按鈕程式共用1()
+        End If : 式共用1()
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        PA1 = TextBox1.Text : SQL_系統通用變數管理刪除() : SET_刪除按鈕程式共用1()
+    End Sub
+End Class