20230610備份

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

YD-ERP-SYS/財務系統管理/業績獎金彙總表.vb

@@ -160,11 +160,11 @@ Public Class 業績獎金彙總表
                         獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value + 彙總1_dgv.Rows(II).Cells("銷貨總額").Value
                     End If
                 Next
-                For II As Integer = 0 To 外車車資_dgv.Rows.Count - 1
-                    If 外車車資_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
-                        獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value + 外車車資_dgv.Rows(II).Cells("外車_收").Value
-                    End If
-                Next
+                'For II As Integer = 0 To 外車車資_dgv.Rows.Count - 1
+                '    If 外車車資_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
+                '        獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value + 外車車資_dgv.Rows(II).Cells("外車_收").Value
+                '    End If
+                'Next
                 '--------------成本---------------------------------------------------------------------------------------------------------------------------------------------
                 For II As Integer = 0 To 彙總1_dgv.Rows.Count - 1
                     If 彙總1_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then