20220323備份

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

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

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

@@ -59,15 +59,15 @@ Partial Class 帳務彙總計算表
         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 DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle45 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 DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -189,11 +189,11 @@ Partial Class 帳務彙總計算表
         Me.所得合帳1_dgv = New System.Windows.Forms.DataGridView()
         Me.所得2_tb = New System.Windows.Forms.TextBox()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
-        Me.紅利整合_dgv = New System.Windows.Forms.DataGridView()
         Me.股份表一_tb = New System.Windows.Forms.Button()
         Me.股份表二_tb = New System.Windows.Forms.Button()
         Me.紅利支出_dgv = New System.Windows.Forms.DataGridView()
         Me.紅利收入_dgv = New System.Windows.Forms.DataGridView()
+        Me.紅利整合_dgv = New System.Windows.Forms.DataGridView()
         Me.紙帳前期_dgv = New System.Windows.Forms.DataGridView()
         Me.手工帳務存檔_bt = New System.Windows.Forms.Button()
         Me.紙帳非前期_dgv = New System.Windows.Forms.DataGridView()
@@ -260,9 +260,9 @@ Partial Class 帳務彙總計算表
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
         Me.SplitContainer1.SuspendLayout()
-        CType(Me.紅利整合_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.紅利支出_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.紅利收入_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.紅利整合_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.紙帳前期_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.紙帳非前期_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel3.SuspendLayout()
@@ -1769,40 +1769,6 @@ Partial Class 帳務彙總計算表
         Me.SplitContainer1.SplitterDistance = 503
         Me.SplitContainer1.TabIndex = 1700
         '
-        '紅利整合_dgv
-        '
-        Me.紅利整合_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.紅利整合_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.紅利整合_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle43.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle43.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.紅利整合_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43
-        Me.紅利整合_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle44.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Info
-        DataGridViewCellStyle44.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.紅利整合_dgv.DefaultCellStyle = DataGridViewCellStyle44
-        Me.紅利整合_dgv.Location = New System.Drawing.Point(-1, -1)
-        Me.紅利整合_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.紅利整合_dgv.Name = "紅利整合_dgv"
-        Me.紅利整合_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle45.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紅利整合_dgv.RowsDefaultCellStyle = DataGridViewCellStyle45
-        Me.紅利整合_dgv.RowTemplate.Height = 24
-        Me.紅利整合_dgv.Size = New System.Drawing.Size(170, 476)
-        Me.紅利整合_dgv.TabIndex = 1695
-        '
         '股份表一_tb
         '
         Me.股份表一_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -1896,6 +1862,40 @@ Partial Class 帳務彙總計算表
         Me.紅利收入_dgv.Size = New System.Drawing.Size(170, 322)
         Me.紅利收入_dgv.TabIndex = 1694
         '
+        '紅利整合_dgv
+        '
+        Me.紅利整合_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.紅利整合_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.紅利整合_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle43.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle43.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.紅利整合_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43
+        Me.紅利整合_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle44.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Info
+        DataGridViewCellStyle44.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.紅利整合_dgv.DefaultCellStyle = DataGridViewCellStyle44
+        Me.紅利整合_dgv.Location = New System.Drawing.Point(-1, -1)
+        Me.紅利整合_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.紅利整合_dgv.Name = "紅利整合_dgv"
+        Me.紅利整合_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle45.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紅利整合_dgv.RowsDefaultCellStyle = DataGridViewCellStyle45
+        Me.紅利整合_dgv.RowTemplate.Height = 24
+        Me.紅利整合_dgv.Size = New System.Drawing.Size(170, 476)
+        Me.紅利整合_dgv.TabIndex = 1695
+        '
         '紙帳前期_dgv
         '
         Me.紙帳前期_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -2309,10 +2309,10 @@ Partial Class 帳務彙總計算表
         Me.Controls.Add(Me.合帳_dgv)
         Me.Controls.Add(Me.彙總_dgv)
         Me.Controls.Add(Me.Panel3)
-        Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.流水帳_dgv)
         Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Panel2)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "帳務彙總計算表"
@@ -2364,9 +2364,9 @@ Partial Class 帳務彙總計算表
         Me.SplitContainer1.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer1.ResumeLayout(False)
-        CType(Me.紅利整合_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.紅利支出_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.紅利收入_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.紅利整合_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.紙帳前期_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.紙帳非前期_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel3.ResumeLayout(False)

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

@@ -1423,7 +1423,7 @@ Public Class 帳務彙總計算表
                     If 周 = 周1 Then : Exit For : End If
                 End If
             ElseIf 月_ch.Checked = True Then
-                If DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) > 27 And DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) < 32 Then
+                If DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) >= 27 And DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) < 32 Then
                     月1 += 1
                     資料_cb.Items.Add(日期_dgv.Rows(I).Cells("開始日期").Value & " / " & 日期_dgv.Rows(I).Cells("結束日期").Value)
                     If 月 = 月1 Then : Exit For : End If
@@ -2525,7 +2525,7 @@ Public Class 帳務彙總計算表
                     不需加 = False : If 下收名_dgv.Rows(I).Cells("下收").Value.ToString = 暫存(II) Or 下收名_dgv.Rows(I).Cells("下收").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                 Next
                 If 下收名_dgv.Rows(I).Cells("交割金額").Value.ToString <> "0" Then
-                    If 不需加 = False Then : MN1 += 1 : 合帳數 += 1 : 暫存(MN1) = 下收名_dgv.Rows(I).Cells("下收").Value.ToString : End If
+                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 下收名_dgv.Rows(I).Cells("下收").Value.ToString : End If
                 End If
             Next
 
@@ -2535,7 +2535,7 @@ Public Class 帳務彙總計算表
                     不需加 = False : If 所得名_dgv.Rows(I).Cells("所得").Value.ToString = 暫存(II) Or 所得名_dgv.Rows(I).Cells("所得").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                 Next
                 If 所得名_dgv.Rows(I).Cells("交割金額").Value.ToString <> "0" Then
-                    If 不需加 = False Then : MN1 += 1 : 合帳數 += 1 : 暫存(MN1) = 所得名_dgv.Rows(I).Cells("所得").Value.ToString : End If
+                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 所得名_dgv.Rows(I).Cells("所得").Value.ToString : End If
                 End If
             Next
 
@@ -2545,7 +2545,7 @@ Public Class 帳務彙總計算表
                     不需加 = False : If 所得名1_dgv.Rows(I).Cells("所得").Value.ToString = 暫存(II) Or 所得名1_dgv.Rows(I).Cells("所得").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                 Next
                 If 所得名1_dgv.Rows(I).Cells("交割金額").Value.ToString <> "0" Then
-                    If 不需加 = False Then : MN1 += 1 : 合帳數 += 1 : 暫存(MN1) = 所得名1_dgv.Rows(I).Cells("所得").Value.ToString : End If
+                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 所得名1_dgv.Rows(I).Cells("所得").Value.ToString : End If
                 End If
             Next
 
@@ -2555,7 +2555,7 @@ Public Class 帳務彙總計算表
                     不需加 = False : If 水差名_dgv.Rows(I).Cells("水差").Value.ToString = 暫存(II) Or 水差名_dgv.Rows(I).Cells("水差").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                 Next
                 If 水差名_dgv.Rows(I).Cells("交割金額").Value.ToString <> "0" Then
-                    If 不需加 = False Then : MN1 += 1 : 合帳數 += 1 : 暫存(MN1) = 水差名_dgv.Rows(I).Cells("水差").Value.ToString : End If
+                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 水差名_dgv.Rows(I).Cells("水差").Value.ToString : End If
                 End If
             Next
 
@@ -2565,18 +2565,17 @@ Public Class 帳務彙總計算表
                     不需加 = False : If 水差名1_dgv.Rows(I).Cells("水差").Value.ToString = 暫存(II) Or 水差名1_dgv.Rows(I).Cells("水差").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                 Next
                 If 水差名1_dgv.Rows(I).Cells("交割金額").Value.ToString <> "0" Then
-                    If 不需加 = False Then : MN1 += 1 : 合帳數 += 1 : 暫存(MN1) = 水差名1_dgv.Rows(I).Cells("水差").Value.ToString : End If
+                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 水差名1_dgv.Rows(I).Cells("水差").Value.ToString : End If
                 End If
             Next
 
             MN2 = MN1
             For I As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
                 For II As Integer = 0 To MN2 + 1
-                    不需加 = False
-                    If 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString = 暫存(II) Or 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString = "" Then : 不需加 = True : Exit For : End If
+                    不需加 = False : If 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString = 暫存(II) Or 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                 Next
                 If 紅利分表_dgv.Rows(I).Cells("紅利").Value.ToString <> "0" Then
-                    If 不需加 = False Then : MN1 += 1 : 合帳數 += 1 : 暫存(MN1) = 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString : End If
+                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString : End If
                 End If
             Next
 
@@ -2587,7 +2586,7 @@ Public Class 帳務彙總計算表
                     If 紅利分表_dgv.Rows(I).Cells("所得戶").Value.ToString = 暫存(II) Then : 不需加 = True : Exit For : End If
                 Next
                 If 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString = "" Then
-                    If 不需加 = False Then : MN1 += 1 : 合帳數 += 1 : 暫存(MN1) = 紅利分表_dgv.Rows(I).Cells("所得戶").Value.ToString : End If
+                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 紅利分表_dgv.Rows(I).Cells("所得戶").Value.ToString : End If
                 End If
             Next
             NU1 = 合帳數 + 1

GA-ERP-SYS/報表系統管理/帳務明細查詢表.vb

@@ -241,7 +241,7 @@ Public Class 帳務明細查詢表
                     If 周 = 周1 Then : Exit For : End If
                 End If
             ElseIf 月_ch.Checked = True Then
-                If DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) > 27 And DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) < 32 Then
+                If DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) >= 27 And DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) < 32 Then
                     月1 += 1
                     資料_cb.Items.Add(日期_dgv.Rows(I).Cells("開始日期").Value & " / " & 日期_dgv.Rows(I).Cells("結束日期").Value)
                     If 月 = 月1 Then : Exit For : End If

GA-ERP-SYS/報表系統管理/電板股東紅利設定.Designer.vb

@@ -222,8 +222,8 @@ Partial Class 電板股東紅利設定
         '
         Me.nud2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.nud2.Location = New System.Drawing.Point(171, 535)
-        Me.nud2.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
-        Me.nud2.Minimum = New Decimal(New Integer() {10000, 0, 0, -2147483648})
+        Me.nud2.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.nud2.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
         Me.nud2.Name = "nud2"
         Me.nud2.Size = New System.Drawing.Size(172, 23)
         Me.nud2.TabIndex = 1659

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

@@ -61,8 +61,7 @@ Partial Class 系統公告
         Me.TextBox3.Name = "TextBox3"
         Me.TextBox3.Size = New System.Drawing.Size(680, 479)
         Me.TextBox3.TabIndex = 2
-        Me.TextBox3.Text = "版本號 : 2022022401_1.32" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、系統更新時忘記或是誤按防火牆防毒等軟體導致更新失敗時，系統自動從新運行更新 (功能測試中)。" &
-    ""
+        Me.TextBox3.Text = "版本號 : 2022030901_1.32" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、修正股東紅利設定時名稱一致卻重複判斷造成彙總出現名稱重複的BUG。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         '
         'TextBox4
         '

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

@@ -118,7 +118,15 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="TextBox1.Text" xml:space="preserve">
-    <value>版本號 : 2022022001_1.32
+    <value>版本號 : 2022030302_1.32
+更新內容如下 :
+1、修正明細查詢表，與彙總表遇到2/28號(月份不足30天)，明細查詢不出來的邏輯錯誤。
+
+版本號 : 2022022401_1.32
+更新內容如下 :
+1、系統更新時忘記或是誤按防火牆防毒等軟體導致更新失敗時，系統自動從新運行更新 (功能測試中)。
+
+版本號 : 2022022001_1.32
 更新內容如下 :
 1、修正明細表中修改上繳時如遇到指定帳戶會導致指定帳戶資料異常的BUG。
 2、修正明細表快速設定時對話框中的內容 (使選擇比較簡易)。