20230930備份

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 = "2023082101"
+    Public 版本 As String = "2023092201"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

YD-ERP-SYS/業務系統管理/應收帳款已收.vb

@@ -191,7 +191,7 @@
         While (dr.Read()) : 業務_cb.Items.Add(dr("業務號")) : End While : conn.Close()
     End Sub
     Private Sub 應收帳款已收_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : SQL2 = ""
+        營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : SQL2 = "" : Panel2.SendToBack()
         SQL_應收帳款未收_轉財務Null為False() : 業務_cb_下拉表單資料載入()
         首次開啟 = False : 業務_cb.Text = 業務號碼 : Set_清單1() : 首次開啟 = True '--------------------資料讀取
         ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""

YD-ERP-SYS/業務系統管理/訂單控制表.vb

@@ -240,7 +240,10 @@ Public Class 訂單控制表
             稅金_tb.Text = 稅金存檔
             銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
             售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
-        End If : If 稅金另算有資料 = False Then : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2 : End If
+        End If
+        If 稅金另算有資料 = False Then
+            '稅金25_tb.Text = CLng(稅金_tb.Text) / 2
+        End If
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
             收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value

YD-ERP-SYS/業務系統管理/銷售單審核.vb

@@ -298,7 +298,10 @@ Public Class 銷售單審核
             稅金_tb.Text = 稅金存檔
             銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
             售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
-        End If : If 稅金另算有資料 = False Then : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2 : End If
+        End If
+        If 稅金另算有資料 = False Then
+            '稅金25_tb.Text = CLng(稅金_tb.Text) / 2
+        End If
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
             收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
@@ -1227,7 +1230,10 @@ Public Class 銷售單審核
             稅金_tb.Text = 稅金存檔
             銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
             售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
-        End If : If 稅金另算有資料 = False Then : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2 : End If
+        End If
+        If 稅金另算有資料 = False Then
+            '稅金25_tb.Text = CLng(稅金_tb.Text) / 2
+        End If
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
             收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
@@ -1339,7 +1345,10 @@ Public Class 銷售單審核
             通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
         End If
 
-        稅金存檔 = CLng(稅金_tb.Text) : If 稅金另算有資料 = False Then : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2 : End If
+        稅金存檔 = CLng(稅金_tb.Text)
+        If 稅金另算有資料 = False Then
+            '稅金25_tb.Text = CLng(稅金_tb.Text) / 2
+        End If
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
             收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value

YD-ERP-SYS/業務系統管理/銷售單申請.vb

@@ -310,7 +310,10 @@ Public Class 銷售單申請
             稅金_tb.Text = 稅金存檔
             銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
             售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
-        End If : If 稅金另算有資料 = False Then : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2 : End If
+        End If
+        If 稅金另算有資料 = False Then
+            '稅金25_tb.Text = CLng(稅金_tb.Text) / 2
+        End If
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
             收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
@@ -1520,7 +1523,10 @@ Public Class 銷售單申請
             稅金_tb.Text = 稅金存檔
             銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
             售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
-        End If : If 稅金另算有資料 = False Then : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2 : End If
+        End If
+        If 稅金另算有資料 = False Then
+            '稅金25_tb.Text = CLng(稅金_tb.Text) / 2 :
+        End If
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
             收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
@@ -1628,7 +1634,10 @@ Public Class 銷售單申請
             通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
         End If
 
-        稅金存檔 = CLng(稅金_tb.Text) : If 稅金另算有資料 = False Then : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2 : End If
+        稅金存檔 = CLng(稅金_tb.Text)
+        If 稅金另算有資料 = False Then
+            '稅金25_tb.Text = CLng(稅金_tb.Text) / 2
+        End If
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
             收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value