20220528備份

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

@@ -1237,4 +1237,14 @@ FROM 流水帳"
     Friend Sub SQL_查詢9()
         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶 FROM 電板客戶_所得 WHERE (所得戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_DGV()
     End Sub
+    '--------------------------流水帳備用網址修正---------------------------------------------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_網址修正()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT     流水帳.網址, 商客基本資料表.網址 AS 主網址  FROM  流水帳 INNER JOIN 商客基本資料表 ON 流水帳.網址 = 商客基本資料表.備用網址 AND 流水帳.網址 <> 商客基本資料表.網址
+                GROUP BY   流水帳.網址, 商客基本資料表.網址"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_網址修正執行()
+        ConnOpen_子SQL() : SQL1 = "UPDATE 流水帳 SET 網址 = N'" & PA2 & "' WHERE (網址 LIKE N'" & PA1 & "')" : CmdSet_For_dr()
+    End Sub
 End Module

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

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

GA-ERP-SYS/bin/Debug/000.csv

@@ -1,3 +0,0 @@
-8888,
-KU08,
-9f681847806e653b120a5a8b6c4d997a0d27fe16d194f0fbc7d36356e6d5c1d88b4bc4831819c7f4e3f727a933dc15e2a98b7172700ee1410997caa35eef6ffc92db46a87e91a379eb9295985493e83bf8fe2da16e93e6bacd8910e5bd0a432aa40e1f6932499a55ff755cdcbc47bdf43f8b58cace48fe52d26811895c87d2e6781a187f2e03fb16f9956679472b9f0238b6b9f19e6eae5cbc4b40df3e0b559e1d058f139a55121e992c21fc957c41974ba32ca75abcbfae2bfc4b6c0e1f0660dede57c0250be4659630063ee5de1ebdc30749d94c93dee8685ada53c3d63b002a23a95aba5d4ef32b353ea2d1ddcbb681202ab3f526ffd0b9e8ddb36c0fbd807fd653857644a82319de20e2b16deaa4fcd489ad91ca53c0ca3a572c1e6530aefe8694877b299d14eb5884a6d3862800fa382a0b4ef996dd988be409ea75fc74fabc3b4b1fd07aa40805481c4d7f52db08d58463790a5e5071a428441b7648b7f05b4e9e702e1b4f765aca86d1b5d8d4c0f08e8513cea63a2c985108895e7407301e8c4a7b51d5da9076d4ee24ee2edb99789cfb5043d4dd4959484ae869be261de7bd220ce2e9de22d050eb5c303299522ddf85cbe4ab05ef5ca303858533b906d0ec4593324a960540d29097372b4cda04ecd613cdb9928e5d23b645d2e3f4eda09fc566753fd25589f479c50d9d8780304f510c0a80f3ecb2b63f9c417a79,

GA-ERP-SYS/基本資料管理/電板基本資料.vb

@@ -586,7 +586,7 @@ Public Class 電板基本資料
             層級_cb.Items.Clear() : 層級_cb.Items.Add("管理/會員")
             備用_cb.Items.Clear() : 備用_cb.Items.Add("wa") : 備用_cb.Items.Add("wb") : 備用_cb.Items.Add("wc")
         End If
-        層級_cb.SelectedIndex = 0 : 備用_cb.SelectedIndex = 0 : Set_商品清單()
+        層級_cb.SelectedIndex = 0 : 備用_cb.SelectedIndex = 0 : PA16 = "" : Set_商品清單()
     End Sub
     Private Sub 商品2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 商品2_cb.SelectedIndexChanged
         PA15 = 商品2_cb.Text : SQL_商客清單讀取1()
@@ -672,7 +672,7 @@ Public Class 電板基本資料
                         If dr.Read() Then
                             MsgBox("網址不可重複，請重新確認!!!")
                         Else
-                            SQL_商品寫入() : PA1 = "" : PA = "" : Set_商品清單() : Set_商品下拉讀取() : Set_客戶下清單() : MsgBox("新增完成!!")
+                            SQL_商品寫入() : PA1 = "" : PA = "" : PA16 = "" : Set_商品清單() : Set_商品下拉讀取() : Set_客戶下清單() : MsgBox("新增完成!!")
                             新增1_bt.Enabled = True : 商品_tb.Enabled = False : 網址2_tb.Enabled = False : 編號_tb.Enabled = False : 商品_dgv.Enabled = True : 備用網址_tb.Enabled = False
                             系統_cb.Enabled = True
                         End If
@@ -680,7 +680,7 @@ Public Class 電板基本資料
                 End If
             ElseIf 修正1_bt.Enabled = False Then
                 SQL_商品修改() : SQL_同步修正網址1() : SQL_同步修正網址2() : SQL_同步修正網址3() : SQL_同步修正網址4()
-                PA1 = "" : PA = "" : Set_商品清單() : Set_商品下拉讀取() : Set_客戶下清單() : Set_商客清單() : MsgBox("儲存完成!!")
+                PA1 = "" : PA = "" : PA16 = "" : Set_商品清單() : Set_商品下拉讀取() : Set_客戶下清單() : Set_商客清單() : MsgBox("儲存完成!!")
                 修正1_bt.Enabled = True : 商品_tb.Enabled = False : 網址2_tb.Enabled = False : 編號_tb.Enabled = False : 商品_dgv.Enabled = True : 備用網址_tb.Enabled = False
                 系統_cb.Enabled = True
             Else

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

@@ -78,6 +78,7 @@ Partial Class 帳務彙總計算表
         Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
         Me.資料_cb = New System.Windows.Forms.ComboBox()
         Me.Label1 = New System.Windows.Forms.Label()
@@ -219,6 +220,7 @@ Partial Class 帳務彙總計算表
         Me.核帳0_tb = New System.Windows.Forms.TextBox()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.網址修正_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -272,6 +274,7 @@ Partial Class 帳務彙總計算表
         CType(Me.紙帳導入_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.電板所得_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.網址修正_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '流水帳_dgv
@@ -2259,11 +2262,29 @@ Partial Class 帳務彙總計算表
         Me.PictureBox1.TabIndex = 1619
         Me.PictureBox1.TabStop = False
         '
+        '網址修正_dgv
+        '
+        DataGridViewCellStyle56.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.網址修正_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle56
+        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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.網址修正_dgv.Location = New System.Drawing.Point(155, 124)
+        Me.網址修正_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.網址修正_dgv.Name = "網址修正_dgv"
+        Me.網址修正_dgv.RowHeadersWidth = 4
+        Me.網址修正_dgv.RowTemplate.Height = 24
+        Me.網址修正_dgv.Size = New System.Drawing.Size(111, 70)
+        Me.網址修正_dgv.TabIndex = 1700
+        Me.網址修正_dgv.Visible = False
+        '
         '帳務彙總計算表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1924, 971)
+        Me.Controls.Add(Me.網址修正_dgv)
         Me.Controls.Add(Me.核帳0_tb)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.通知1_lb)
@@ -2377,6 +2398,7 @@ Partial Class 帳務彙總計算表
         CType(Me.紙帳導入_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.電板所得_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.網址修正_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -2523,4 +2545,5 @@ Partial Class 帳務彙總計算表
     Friend WithEvents SplitContainer3 As SplitContainer
     Friend WithEvents SplitContainer2 As SplitContainer
     Friend WithEvents 紙帳非前期_dgv As DataGridView
+    Friend WithEvents 網址修正_dgv As DataGridView
 End Class

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

@@ -17,6 +17,21 @@ Public Class 帳務彙總計算表
     Dim xlApp As Microsoft.Office.Interop.Excel.Application
     Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
+    Private Sub Set_網址修正()
+        Try
+            網址修正_dgv.DataSource = Nothing : ds15.Clear()
+            網址修正_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            網址修正_dgv.ColumnHeadersHeight = 25
+            網址修正_dgv.AllowUserToAddRows = False
+            SQL_網址修正()
+            da.Fill(ds15) : 網址修正_dgv.DataSource = ds15.Tables(0) : conn.Close()
+            For II As Integer = 0 To 網址修正_dgv.Rows.Count - 1
+                PA1 = 網址修正_dgv.Rows(II).Cells("網址").Value.ToString : PA2 = 網址修正_dgv.Rows(II).Cells("主網址").Value.ToString : SQL_網址修正執行()
+            Next : PA1 = "" : PA2 = ""
+        Catch ex As Exception
+            MsgBox(ex.Message) '錯誤訊息
+        End Try
+    End Sub
     Private Sub Set_上繳名()
         Try
             上繳名_dgv.DataSource = Nothing : ds15.Clear()
@@ -939,7 +954,8 @@ Public Class 帳務彙總計算表
         Next
         For I As Integer = 0 To 所得合帳1_dgv.Rows.Count - 1
             If Val(所得合帳1_dgv.Rows(I).Cells("所得").Value.ToString) <> 0 Then
-                If 所得合帳_dgv.Rows.Count > 0 Then : MN1 += 1 : End If
+                If 所得合帳_dgv.Rows.Count > 0 Then ': MN1 += 1
+                End If
                 商品(MN1) = 所得合帳1_dgv.Rows(I).Cells("商品").Value.ToString : 帳號(MN1) = 所得合帳1_dgv.Rows(I).Cells("帳號").Value.ToString
                 客戶(MN1) = 所得合帳1_dgv.Rows(I).Cells("客戶").Value.ToString : 所得(MN1) = 所得合帳1_dgv.Rows(I).Cells("所得").Value.ToString
                 If 所得合帳_dgv.Rows.Count = 0 Then : MN1 += 1 : End If : NN6 += 1
@@ -1464,7 +1480,7 @@ Public Class 帳務彙總計算表
         資料_cb.Items.Add("")
     End Sub
     Private Sub 帳務彙總計算表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : GA_ERP_SYS.WindowState = 0
+        Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : GA_ERP_SYS.WindowState = 0 : Set_網址修正()
         天_ch.Checked = False : 周_ch.Checked = True : 月_ch.Checked = False : DA1_bt.Text = "上一週" : DA2_bt.Text = "本週" : DA3_bt.Text = "下一週"
         L50.Visible = False : 客戶下_dgv.Visible = False : 流水帳_dgv.Visible = False : 彙總_dgv.Visible = False : 彙總1_dgv.Visible = False
         上繳合帳_dgv.Visible = True : 所得合帳_dgv.Visible = True : PictureBox1.Visible = True : PictureBox1.BringToFront() : Panel1.Visible = False

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

@@ -28,6 +28,7 @@ Partial Class 帳務明細查詢表
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(帳務明細查詢表))
         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()
         Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
         Me.客戶下_dgv = New System.Windows.Forms.DataGridView()
         Me.日期_dgv = New System.Windows.Forms.DataGridView()
@@ -124,6 +125,7 @@ Partial Class 帳務明細查詢表
         Me.LOG檔開啟_bt = New System.Windows.Forms.Button()
         Me.Label19 = New System.Windows.Forms.Label()
         Me.Label24 = New System.Windows.Forms.Label()
+        Me.網址修正_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.客戶下_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.日期_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -137,6 +139,7 @@ Partial Class 帳務明細查詢表
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel3.SuspendLayout()
         Me.Panel4.SuspendLayout()
+        CType(Me.網址修正_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '流水帳_dgv
@@ -1158,11 +1161,29 @@ Partial Class 帳務明細查詢表
         Me.Label24.TabIndex = 1638
         Me.Label24.Text = "查詢條件 :"
         '
+        '網址修正_dgv
+        '
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.網址修正_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.網址修正_dgv.Location = New System.Drawing.Point(732, 118)
+        Me.網址修正_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.網址修正_dgv.Name = "網址修正_dgv"
+        Me.網址修正_dgv.RowHeadersWidth = 4
+        Me.網址修正_dgv.RowTemplate.Height = 24
+        Me.網址修正_dgv.Size = New System.Drawing.Size(111, 70)
+        Me.網址修正_dgv.TabIndex = 1701
+        Me.網址修正_dgv.Visible = False
+        '
         '帳務明細查詢表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1350, 701)
+        Me.Controls.Add(Me.網址修正_dgv)
         Me.Controls.Add(Me.LOG檔開啟_bt)
         Me.Controls.Add(Me.下拉3_bt)
         Me.Controls.Add(Me.下拉2_bt)
@@ -1244,6 +1265,7 @@ Partial Class 帳務明細查詢表
         Me.Panel3.ResumeLayout(False)
         Me.Panel4.ResumeLayout(False)
         Me.Panel4.PerformLayout()
+        CType(Me.網址修正_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -1345,4 +1367,5 @@ Partial Class 帳務明細查詢表
     Friend WithEvents LOG檔開啟_bt As Button
     Friend WithEvents Label19 As Label
     Friend WithEvents Label24 As Label
+    Friend WithEvents 網址修正_dgv As DataGridView
 End Class

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

@@ -10,7 +10,7 @@ Imports Microsoft.Office.Interop.Excel.XlThemeFont
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Public Class 帳務明細查詢表
-    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds7 As New DataSet
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds7, ds15 As New DataSet
     Private N1, N2, YY, 選擇記憶 As Integer
     Dim GP As Integer = 0 : Dim GPP As String
     Dim 首次登入 As Boolean = True : Dim 修改客戶, 可否開啟, 是否重算, 暫不計算, 暫不計算1, 再讀一次, 再讀一次1, 減輕計算 As Boolean
@@ -18,6 +18,21 @@ Public Class 帳務明細查詢表
     Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
     Dim 本周周一 As Date
+    Private Sub Set_網址修正()
+        Try
+            網址修正_dgv.DataSource = Nothing : ds15.Clear()
+            網址修正_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            網址修正_dgv.ColumnHeadersHeight = 25
+            網址修正_dgv.AllowUserToAddRows = False
+            SQL_網址修正()
+            da.Fill(ds15) : 網址修正_dgv.DataSource = ds15.Tables(0) : conn.Close()
+            For II As Integer = 0 To 網址修正_dgv.Rows.Count - 1
+                PA1 = 網址修正_dgv.Rows(II).Cells("網址").Value.ToString : PA2 = 網址修正_dgv.Rows(II).Cells("主網址").Value.ToString : SQL_網址修正執行()
+            Next : PA1 = "" : PA2 = ""
+        Catch ex As Exception
+            MsgBox(ex.Message) '錯誤訊息
+        End Try
+    End Sub
     Private Sub Set_所得彙總()
         所得彙總_dgv.DataSource = Nothing : ds1.Clear()
         所得彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -814,7 +829,7 @@ Public Class 帳務明細查詢表
         所得_tb.Text = Strings.Format(Val(所得_tb.Text), "#,##0") : 核帳_tb.Text = Strings.Format(Val(核帳_tb.Text), "#,##0")
     End Sub
     Private Sub 帳務明細查詢表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.Width = 1366 : Me.Height = 768
+        Me.Width = 1366 : Me.Height = 768 : Set_網址修正()
         日期_dgv.Visible = False : 客戶下_dgv.Visible = False : PictureBox1.BringToFront() : Panel1.Visible = False : Panel2.Visible = False
         天_ch.Checked = False : 周_ch.Checked = True : 月_ch.Checked = False : 選取1_ch.Checked = True : 暫不計算 = True
         '商品_cb.Enabled = False : 老闆_cb.Enabled = False : 客戶_cb.Enabled = False

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

@@ -35,11 +35,11 @@ Partial Class 系統公告
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox1.Location = New System.Drawing.Point(2, 155)
+        Me.TextBox1.Location = New System.Drawing.Point(2, 140)
         Me.TextBox1.Multiline = True
         Me.TextBox1.Name = "TextBox1"
         Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
-        Me.TextBox1.Size = New System.Drawing.Size(680, 389)
+        Me.TextBox1.Size = New System.Drawing.Size(680, 404)
         Me.TextBox1.TabIndex = 0
         Me.TextBox1.Text = resources.GetString("TextBox1.Text")
         '
@@ -61,7 +61,8 @@ Partial Class 系統公告
         Me.TextBox3.Name = "TextBox3"
         Me.TextBox3.Size = New System.Drawing.Size(680, 479)
         Me.TextBox3.TabIndex = 2
-        Me.TextBox3.Text = "版本號 : 2022050501" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、更新365系統，風雲、豐田網站更換SSL加密憑證，帳務抓不下來的問題。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.TextBox3.Text = "版本號 : 2022052501" & 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) & "2、修正帳務匯總表部分設定會使個人帳務計算時產生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>版本號 : 2022043001
+    <value>版本號 : 2022052301
+更新內容如下 :
+1、因應網站更新，修正備用網址抓帳後計算問題。
+
+版本號 : 2022050501
+更新內容如下 :
+1、更新365系統，風雲、豐田網站更換SSL加密憑證，帳務抓不下來的問題。
+
+版本號 : 2022043001
 更新內容如下 :
 1、修正101系統新增威力彩商品後帳務少抓的問題。