20230305備份

YD-ERP-SYS/Module/SQL_資料庫系統管理.vb

         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_主資料庫LOG檔案截斷()
+        Dim DSF(1) As String : Dim NB1 As Integer = 0
         ConnOpen() : SQL1 = "USE [" & PA & "]" : CmdSet_For_dr()
-        ConnOpen() : SQL1 = "select name from sys.database_files where name not like '%_log';" : CmdSet_For_dr()
-        If dr.Read Then : PA1 = dr("name").ToString : End If
-        If PA = PA1 Then : Else
-            ConnOpen() : SQL1 = "alter database [" & PA & "] modify file(name=[" & PA1 & "], newname =[" & PA & "])" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "select name from sys.database_files;" : CmdSet_For_dr()
+        While (dr.Read()) : DSF(NB1) = dr("name").ToString : NB1 += 1 : End While
+
+        If PA = DSF(0) Then : Else
+            ConnOpen() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(0) & "], newname =[" & PA & "])" : CmdSet_For_dr()
         End If
 
-        ConnOpen() : SQL1 = "select name from sys.database_files where name like '%_log';" : CmdSet_For_dr()
-        If dr.Read Then : PA1 = dr("name").ToString : End If
-        If PA & "_log" = PA1 Then : Else
-            ConnOpen() : SQL1 = "alter database [" & PA & "] modify file(name=[" & PA1 & "], newname=[" & PA & "_log])" : CmdSet_For_dr()
+        If PA & "_log" = DSF(1) Then : Else
+            ConnOpen() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(1) & "], newname=[" & PA & "_log])" : CmdSet_For_dr()
         End If
 
         ConnOpen() : SQL1 = "ALTER DATABASE [" & PA & "]

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

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

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

         Me.過度表_dgv.RowTemplate.Height = 24
         Me.過度表_dgv.Size = New System.Drawing.Size(1322, 206)
         Me.過度表_dgv.TabIndex = 1517
+        Me.過度表_dgv.Visible = False
         '
         'Label2
         '
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.下個月_bt)
         Me.Controls.Add(Me.上個月_bt)
-        Me.Controls.Add(Me.中間日期_dtp)
         Me.Controls.Add(Me.結束日期_dtp)
         Me.Controls.Add(Me.開始日期_dtp)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.獎金明細表_dgv)
         Me.Controls.Add(Me.過度表_dgv)
         Me.Controls.Add(Me.彙總1_dgv)
+        Me.Controls.Add(Me.中間日期_dtp)
         Me.Controls.Add(Me.衍生運費_dgv)
         Me.Controls.Add(Me.外車車資_dgv)
         Me.Controls.Add(Me.備註運費_dgv)

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

                         獎金明細表_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 備註運費_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

YD-ERP-SYS/資料庫系統管理/系統編碼規則.vb

             For I As Integer = 0 To 資料庫清單1_dgv.Rows.Count - 1
                 PA = 資料庫清單1_dgv(0, I).Value.ToString : SQL_主資料庫LOG檔案截斷()
             Next
-            重新讀取_bt.PerformClick()
+            重新讀取_bt.PerformClick() : MsgBox("伺服器截斷完成!!!")
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try