20230902備份

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

@@ -3,7 +3,7 @@
     Public g_conn_type, gUserName, 登入人職稱, 登入人級別, 登入人組別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 業務號碼, AA(99), 類別 As String
     Public BB(99), CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023080301"
+    Public 版本 As String = "2023082101"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

YD-ERP-SYS/財務系統管理/財務_對帳表.Designer.vb

@@ -102,7 +102,7 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.未兌現支票1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.未兌現支票1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.未兌現支票1_tb.Location = New System.Drawing.Point(256, 56)
+        Me.未兌現支票1_tb.Location = New System.Drawing.Point(95, 105)
         Me.未兌現支票1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.未兌現支票1_tb.Name = "未兌現支票1_tb"
         Me.未兌現支票1_tb.Size = New System.Drawing.Size(100, 23)
@@ -114,7 +114,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label13.AutoSize = True
         Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label13.Location = New System.Drawing.Point(186, 59)
+        Me.Label13.Location = New System.Drawing.Point(25, 108)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(67, 16)
         Me.Label13.TabIndex = 1071
@@ -124,7 +124,7 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.未兌現支票_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.未兌現支票_tb.ForeColor = System.Drawing.Color.Green
-        Me.未兌現支票_tb.Location = New System.Drawing.Point(256, 30)
+        Me.未兌現支票_tb.Location = New System.Drawing.Point(95, 79)
         Me.未兌現支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.未兌現支票_tb.Name = "未兌現支票_tb"
         Me.未兌現支票_tb.Size = New System.Drawing.Size(100, 23)
@@ -136,7 +136,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label14.AutoSize = True
         Me.Label14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label14.ForeColor = System.Drawing.Color.Green
-        Me.Label14.Location = New System.Drawing.Point(186, 35)
+        Me.Label14.Location = New System.Drawing.Point(25, 84)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(67, 16)
         Me.Label14.TabIndex = 1069
@@ -146,7 +146,7 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.已兌現支票1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.已兌現支票1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.已兌現支票1_tb.Location = New System.Drawing.Point(428, 56)
+        Me.已兌現支票1_tb.Location = New System.Drawing.Point(95, 159)
         Me.已兌現支票1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.已兌現支票1_tb.Name = "已兌現支票1_tb"
         Me.已兌現支票1_tb.Size = New System.Drawing.Size(100, 23)
@@ -158,7 +158,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label11.AutoSize = True
         Me.Label11.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label11.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label11.Location = New System.Drawing.Point(358, 60)
+        Me.Label11.Location = New System.Drawing.Point(25, 163)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(67, 16)
         Me.Label11.TabIndex = 1067
@@ -168,7 +168,7 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.已兌現支票_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.已兌現支票_tb.ForeColor = System.Drawing.Color.Green
-        Me.已兌現支票_tb.Location = New System.Drawing.Point(428, 29)
+        Me.已兌現支票_tb.Location = New System.Drawing.Point(95, 132)
         Me.已兌現支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.已兌現支票_tb.Name = "已兌現支票_tb"
         Me.已兌現支票_tb.Size = New System.Drawing.Size(100, 23)
@@ -180,7 +180,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label12.AutoSize = True
         Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label12.ForeColor = System.Drawing.Color.Green
-        Me.Label12.Location = New System.Drawing.Point(358, 34)
+        Me.Label12.Location = New System.Drawing.Point(25, 137)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(67, 16)
         Me.Label12.TabIndex = 1065
@@ -190,7 +190,7 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.零用金1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.零用金1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.零用金1_tb.Location = New System.Drawing.Point(575, 56)
+        Me.零用金1_tb.Location = New System.Drawing.Point(95, 213)
         Me.零用金1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.零用金1_tb.Name = "零用金1_tb"
         Me.零用金1_tb.Size = New System.Drawing.Size(100, 23)
@@ -202,7 +202,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label1.Location = New System.Drawing.Point(529, 59)
+        Me.Label1.Location = New System.Drawing.Point(49, 216)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(43, 16)
         Me.Label1.TabIndex = 1063
@@ -212,7 +212,7 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.零用金_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.零用金_tb.ForeColor = System.Drawing.Color.Green
-        Me.零用金_tb.Location = New System.Drawing.Point(575, 29)
+        Me.零用金_tb.Location = New System.Drawing.Point(95, 186)
         Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.零用金_tb.Name = "零用金_tb"
         Me.零用金_tb.Size = New System.Drawing.Size(100, 23)
@@ -224,7 +224,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label3.ForeColor = System.Drawing.Color.Green
-        Me.Label3.Location = New System.Drawing.Point(529, 34)
+        Me.Label3.Location = New System.Drawing.Point(49, 191)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 1061
@@ -272,10 +272,10 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.損益1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.損益1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.損益1_tb.Location = New System.Drawing.Point(984, 56)
+        Me.損益1_tb.Location = New System.Drawing.Point(996, 29)
         Me.損益1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.損益1_tb.Name = "損益1_tb"
-        Me.損益1_tb.Size = New System.Drawing.Size(100, 23)
+        Me.損益1_tb.Size = New System.Drawing.Size(90, 23)
         Me.損益1_tb.TabIndex = 1057
         Me.損益1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
@@ -284,7 +284,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label7.AutoSize = True
         Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label7.Location = New System.Drawing.Point(950, 59)
+        Me.Label7.Location = New System.Drawing.Point(964, 32)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(31, 16)
         Me.Label7.TabIndex = 1056
@@ -294,10 +294,10 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.支出1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.支出1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.支出1_tb.Location = New System.Drawing.Point(848, 56)
+        Me.支出1_tb.Location = New System.Drawing.Point(870, 29)
         Me.支出1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.支出1_tb.Name = "支出1_tb"
-        Me.支出1_tb.Size = New System.Drawing.Size(100, 23)
+        Me.支出1_tb.Size = New System.Drawing.Size(90, 23)
         Me.支出1_tb.TabIndex = 1055
         Me.支出1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
@@ -306,7 +306,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label8.AutoSize = True
         Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label8.Location = New System.Drawing.Point(814, 60)
+        Me.Label8.Location = New System.Drawing.Point(838, 33)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(31, 16)
         Me.Label8.TabIndex = 1054
@@ -316,10 +316,10 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.現金1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.現金1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.現金1_tb.Location = New System.Drawing.Point(712, 56)
+        Me.現金1_tb.Location = New System.Drawing.Point(744, 29)
         Me.現金1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.現金1_tb.Name = "現金1_tb"
-        Me.現金1_tb.Size = New System.Drawing.Size(100, 23)
+        Me.現金1_tb.Size = New System.Drawing.Size(90, 23)
         Me.現金1_tb.TabIndex = 1053
         Me.現金1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
@@ -328,7 +328,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label10.AutoSize = True
         Me.Label10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label10.Location = New System.Drawing.Point(677, 60)
+        Me.Label10.Location = New System.Drawing.Point(712, 33)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(31, 16)
         Me.Label10.TabIndex = 1052
@@ -338,10 +338,10 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.損益_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.損益_tb.ForeColor = System.Drawing.Color.Green
-        Me.損益_tb.Location = New System.Drawing.Point(984, 29)
+        Me.損益_tb.Location = New System.Drawing.Point(616, 29)
         Me.損益_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.損益_tb.Name = "損益_tb"
-        Me.損益_tb.Size = New System.Drawing.Size(100, 23)
+        Me.損益_tb.Size = New System.Drawing.Size(90, 23)
         Me.損益_tb.TabIndex = 1051
         Me.損益_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
@@ -350,7 +350,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label6.AutoSize = True
         Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label6.ForeColor = System.Drawing.Color.Green
-        Me.Label6.Location = New System.Drawing.Point(950, 34)
+        Me.Label6.Location = New System.Drawing.Point(584, 33)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(31, 16)
         Me.Label6.TabIndex = 1050
@@ -360,10 +360,10 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.支出_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.支出_tb.ForeColor = System.Drawing.Color.Green
-        Me.支出_tb.Location = New System.Drawing.Point(848, 29)
+        Me.支出_tb.Location = New System.Drawing.Point(490, 29)
         Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.支出_tb.Name = "支出_tb"
-        Me.支出_tb.Size = New System.Drawing.Size(100, 23)
+        Me.支出_tb.Size = New System.Drawing.Size(90, 23)
         Me.支出_tb.TabIndex = 1049
         Me.支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
@@ -372,7 +372,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label5.AutoSize = True
         Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label5.ForeColor = System.Drawing.Color.Green
-        Me.Label5.Location = New System.Drawing.Point(814, 34)
+        Me.Label5.Location = New System.Drawing.Point(458, 33)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(31, 16)
         Me.Label5.TabIndex = 1048
@@ -383,7 +383,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label4.AutoSize = True
         Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label4.ForeColor = System.Drawing.Color.Green
-        Me.Label4.Location = New System.Drawing.Point(2, 35)
+        Me.Label4.Location = New System.Drawing.Point(150, 34)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(31, 16)
         Me.Label4.TabIndex = 1047
@@ -393,7 +393,7 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.收支單號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.收支單號_tb.ForeColor = System.Drawing.Color.Green
-        Me.收支單號_tb.Location = New System.Drawing.Point(36, 31)
+        Me.收支單號_tb.Location = New System.Drawing.Point(184, 30)
         Me.收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.收支單號_tb.Name = "收支單號_tb"
         Me.收支單號_tb.Size = New System.Drawing.Size(149, 23)
@@ -404,10 +404,10 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.現金_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.現金_tb.ForeColor = System.Drawing.Color.Green
-        Me.現金_tb.Location = New System.Drawing.Point(712, 29)
+        Me.現金_tb.Location = New System.Drawing.Point(364, 29)
         Me.現金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.現金_tb.Name = "現金_tb"
-        Me.現金_tb.Size = New System.Drawing.Size(100, 23)
+        Me.現金_tb.Size = New System.Drawing.Size(90, 23)
         Me.現金_tb.TabIndex = 1045
         Me.現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
@@ -416,7 +416,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Label9.AutoSize = True
         Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label9.ForeColor = System.Drawing.Color.Green
-        Me.Label9.Location = New System.Drawing.Point(677, 34)
+        Me.Label9.Location = New System.Drawing.Point(332, 33)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(31, 16)
         Me.Label9.TabIndex = 1044
@@ -465,14 +465,14 @@ Partial Class 營運成本收支單_對帳表
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.明細_dgv.Location = New System.Drawing.Point(6, 82)
+        Me.明細_dgv.Location = New System.Drawing.Point(6, 54)
         Me.明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.明細_dgv.RowTemplate.Height = 24
-        Me.明細_dgv.Size = New System.Drawing.Size(1243, 524)
+        Me.明細_dgv.Size = New System.Drawing.Size(1243, 552)
         Me.明細_dgv.TabIndex = 1073
         '
         'ContextMenuStrip1
@@ -504,9 +504,9 @@ Partial Class 營運成本收支單_對帳表
         '對帳記錄存檔_bt
         '
         Me.對帳記錄存檔_bt.ForeColor = System.Drawing.Color.Green
-        Me.對帳記錄存檔_bt.Location = New System.Drawing.Point(6, 56)
+        Me.對帳記錄存檔_bt.Location = New System.Drawing.Point(6, 28)
         Me.對帳記錄存檔_bt.Name = "對帳記錄存檔_bt"
-        Me.對帳記錄存檔_bt.Size = New System.Drawing.Size(179, 23)
+        Me.對帳記錄存檔_bt.Size = New System.Drawing.Size(117, 23)
         Me.對帳記錄存檔_bt.TabIndex = 1077
         Me.對帳記錄存檔_bt.Text = "對帳記錄存檔"
         Me.對帳記錄存檔_bt.UseVisualStyleBackColor = True
@@ -567,7 +567,7 @@ Partial Class 營運成本收支單_對帳表
         '非稅_ch
         '
         Me.非稅_ch.AutoSize = True
-        Me.非稅_ch.Location = New System.Drawing.Point(1092, 58)
+        Me.非稅_ch.Location = New System.Drawing.Point(1092, 36)
         Me.非稅_ch.Name = "非稅_ch"
         Me.非稅_ch.Size = New System.Drawing.Size(50, 20)
         Me.非稅_ch.TabIndex = 1501
@@ -577,7 +577,7 @@ Partial Class 營運成本收支單_對帳表
         '含稅_ch
         '
         Me.含稅_ch.AutoSize = True
-        Me.含稅_ch.Location = New System.Drawing.Point(1091, 32)
+        Me.含稅_ch.Location = New System.Drawing.Point(1091, 18)
         Me.含稅_ch.Name = "含稅_ch"
         Me.含稅_ch.Size = New System.Drawing.Size(50, 20)
         Me.含稅_ch.TabIndex = 1500
@@ -589,7 +589,7 @@ Partial Class 營運成本收支單_對帳表
         Me.全部_ch.AutoSize = True
         Me.全部_ch.Checked = True
         Me.全部_ch.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.全部_ch.Location = New System.Drawing.Point(1091, 6)
+        Me.全部_ch.Location = New System.Drawing.Point(1091, 0)
         Me.全部_ch.Name = "全部_ch"
         Me.全部_ch.Size = New System.Drawing.Size(50, 20)
         Me.全部_ch.TabIndex = 1499
@@ -620,7 +620,7 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.特別計算_bt.Location = New System.Drawing.Point(1147, 2)
         Me.特別計算_bt.Name = "特別計算_bt"
-        Me.特別計算_bt.Size = New System.Drawing.Size(73, 77)
+        Me.特別計算_bt.Size = New System.Drawing.Size(73, 50)
         Me.特別計算_bt.TabIndex = 1504
         Me.特別計算_bt.Text = "特別計算"
         Me.特別計算_bt.UseVisualStyleBackColor = True
@@ -632,7 +632,7 @@ Partial Class 營運成本收支單_對帳表
         Me.視窗2_pl.Controls.Add(Me.Panel3)
         Me.視窗2_pl.Controls.Add(Me.Label16)
         Me.視窗2_pl.Controls.Add(Me.CanceL2_bt)
-        Me.視窗2_pl.Location = New System.Drawing.Point(724, 12)
+        Me.視窗2_pl.Location = New System.Drawing.Point(520, 32)
         Me.視窗2_pl.Name = "視窗2_pl"
         Me.視窗2_pl.Size = New System.Drawing.Size(334, 543)
         Me.視窗2_pl.TabIndex = 1505
@@ -788,9 +788,21 @@ Partial Class 營運成本收支單_對帳表
         '
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.Panel1.Controls.Add(Me.剔除存檔_dgv)
+        Me.Panel1.Controls.Add(Me.未兌現支票_tb)
+        Me.Panel1.Controls.Add(Me.Label14)
+        Me.Panel1.Controls.Add(Me.Label13)
+        Me.Panel1.Controls.Add(Me.未兌現支票1_tb)
+        Me.Panel1.Controls.Add(Me.已兌現支票_tb)
+        Me.Panel1.Controls.Add(Me.Label12)
+        Me.Panel1.Controls.Add(Me.Label11)
+        Me.Panel1.Controls.Add(Me.已兌現支票1_tb)
+        Me.Panel1.Controls.Add(Me.零用金_tb)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.零用金1_tb)
         Me.Panel1.Location = New System.Drawing.Point(256, 138)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(200, 100)
+        Me.Panel1.Size = New System.Drawing.Size(200, 250)
         Me.Panel1.TabIndex = 1506
         '
         '剔除存檔_dgv
@@ -805,7 +817,7 @@ Partial Class 營運成本收支單_對帳表
         Me.剔除存檔_dgv.Name = "剔除存檔_dgv"
         Me.剔除存檔_dgv.RowHeadersWidth = 5
         Me.剔除存檔_dgv.RowTemplate.Height = 24
-        Me.剔除存檔_dgv.Size = New System.Drawing.Size(192, 92)
+        Me.剔除存檔_dgv.Size = New System.Drawing.Size(192, 73)
         Me.剔除存檔_dgv.TabIndex = 1386
         '
         '營運成本收支單_對帳表
@@ -819,7 +831,6 @@ Partial Class 營運成本收支單_對帳表
         Me.Controls.Add(Me.特別計算_bt)
         Me.Controls.Add(Me.只有支出_cb)
         Me.Controls.Add(Me.只有收入_cb)
-        Me.Controls.Add(Me.非稅_ch)
         Me.Controls.Add(Me.含稅_ch)
         Me.Controls.Add(Me.全部_ch)
         Me.Controls.Add(Me.字體大小調整_lb)
@@ -828,18 +839,6 @@ Partial Class 營運成本收支單_對帳表
         Me.Controls.Add(Me.清除查詢資料_bt)
         Me.Controls.Add(Me.對帳記錄存檔_bt)
         Me.Controls.Add(Me.關鍵字查詢_bt)
-        Me.Controls.Add(Me.未兌現支票1_tb)
-        Me.Controls.Add(Me.Label13)
-        Me.Controls.Add(Me.未兌現支票_tb)
-        Me.Controls.Add(Me.Label14)
-        Me.Controls.Add(Me.已兌現支票1_tb)
-        Me.Controls.Add(Me.Label11)
-        Me.Controls.Add(Me.已兌現支票_tb)
-        Me.Controls.Add(Me.Label12)
-        Me.Controls.Add(Me.零用金1_tb)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.零用金_tb)
-        Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.只顯示支票資料_cb)
         Me.Controls.Add(Me.隱藏作帳點交資訊_cb)
         Me.Controls.Add(Me.隱藏申請審核資訊_cb)
@@ -861,6 +860,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Controls.Add(Me.查詢日期_cb)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.明細_dgv)
+        Me.Controls.Add(Me.非稅_ch)
         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 = "營運成本收支單_對帳表"
@@ -874,6 +874,7 @@ Partial Class 營運成本收支單_對帳表
         Me.Panel3.PerformLayout()
         CType(Me.會科_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
         CType(Me.剔除存檔_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()

YD-ERP-SYS/財務系統管理/財務_對帳表.vb

@@ -271,14 +271,17 @@ Public Class 營運成本收支單_對帳表
         xlSheet.Cells(1, 1) = "雅邸家具有限公司-營運費用收支明細表" : xlSheet.Cells(2, 1) = "收支單號 " : xlSheet.Cells(2, 2) = "申請人" : xlSheet.Cells(2, 3) = "申請日期 "
         xlSheet.Cells(2, 4) = "審核人" : xlSheet.Cells(2, 5) = "審核日期" : xlSheet.Cells(2, 6) = "項次" : xlSheet.Cells(2, 7) = "會計科目 " : xlSheet.Cells(2, 8) = "用途與內容"
         xlSheet.Cells(2, 9) = "零用金" : xlSheet.Cells(2, 10) = "支票" : xlSheet.Cells(2, 11) = "收入" : xlSheet.Cells(2, 12) = "支出"
+        N2 = 3
         For i As Integer = 0 To 明細_dgv.Rows.Count - 1
-            xlSheet.Cells(i + 3, 1) = 明細_dgv.Rows(i).Cells("收支單號").Value : xlSheet.Cells(i + 3, 2) = 明細_dgv.Rows(i).Cells("申請人").Value
-            xlSheet.Cells(i + 3, 3) = 明細_dgv.Rows(i).Cells("申請日期").Value : xlSheet.Cells(i + 3, 4) = 明細_dgv.Rows(i).Cells("審核人").Value
-            xlSheet.Cells(i + 3, 5) = 明細_dgv.Rows(i).Cells("審核日期").Value : xlSheet.Cells(i + 3, 6) = 明細_dgv.Rows(i).Cells("項次").Value
-            xlSheet.Cells(i + 3, 7) = 明細_dgv.Rows(i).Cells("會計科目").Value : xlSheet.Cells(i + 3, 8) = 明細_dgv.Rows(i).Cells("用途與內容").Value
-            xlSheet.Cells(i + 3, 9) = 明細_dgv.Rows(i).Cells("零用金").Value : xlSheet.Cells(i + 3, 10) = 明細_dgv.Rows(i).Cells("支票").Value
-            xlSheet.Cells(i + 3, 11) = 明細_dgv.Rows(i).Cells("收入").Value : xlSheet.Cells(i + 3, 12) = 明細_dgv.Rows(i).Cells("支出").Value
-            N2 = i + 3
+            If 明細_dgv.Rows(i).Cells("備註").Value.ToString <> "剔除" Then
+                xlSheet.Cells(N2, 1) = 明細_dgv.Rows(i).Cells("收支單號").Value : xlSheet.Cells(N2, 2) = 明細_dgv.Rows(i).Cells("申請人").Value
+                xlSheet.Cells(N2, 3) = 明細_dgv.Rows(i).Cells("申請日期").Value : xlSheet.Cells(N2, 4) = 明細_dgv.Rows(i).Cells("審核人").Value
+                xlSheet.Cells(N2, 5) = 明細_dgv.Rows(i).Cells("審核日期").Value : xlSheet.Cells(N2, 6) = 明細_dgv.Rows(i).Cells("項次").Value
+                xlSheet.Cells(N2, 7) = 明細_dgv.Rows(i).Cells("會計科目").Value : xlSheet.Cells(N2, 8) = 明細_dgv.Rows(i).Cells("用途與內容").Value
+                xlSheet.Cells(N2, 9) = 明細_dgv.Rows(i).Cells("零用金").Value : xlSheet.Cells(N2, 10) = 明細_dgv.Rows(i).Cells("支票").Value
+                xlSheet.Cells(N2, 11) = 明細_dgv.Rows(i).Cells("收入").Value : xlSheet.Cells(N2, 12) = 明細_dgv.Rows(i).Cells("支出").Value
+                N2 += 1
+            End If
         Next i
         xlSheet.Cells(N2 + 1, 8) = "合計"
         xlSheet.Cells(N2 + 1, 9) = "=SUM(I3:I" & N2 & ")" : xlSheet.Cells(N2 + 1, 10) = "=SUM(J3:J" & N2 & ")"