20220323備份

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

YD-ERP-SYS/財務系統管理/業績運費明細表.vb

@@ -8,7 +8,7 @@ Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports Microsoft.Office.Interop.Excel
 Public Class 業績運費明細表
-    ReadOnly ds As New DataSet : Dim N1 As Integer
+    ReadOnly ds As New DataSet : Dim N1, 總數 As Integer : Dim 首次開啟 As Boolean
     Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
     Private Sub Set_清單1()
         運費明細表_dgv.DataSource = Nothing : ds.Clear()
@@ -27,12 +27,12 @@ Public Class 業績運費明細表
         運費明細表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         運費明細表_dgv.Columns(0).ReadOnly = True : 運費明細表_dgv.Columns(1).ReadOnly = True : 運費明細表_dgv.Columns(2).ReadOnly = True : 運費明細表_dgv.Columns(3).ReadOnly = True
         運費明細表_dgv.Columns(5).ReadOnly = True
-
-        計算()
+        總數 = 運費明細表_dgv.Rows.Count - 1
+        '計算()
     End Sub
     Private Sub 計算()
         NUD1.Value = 0 : NUD2.Value = 0
-        For I As Integer = 0 To 運費明細表_dgv.Rows.Count - 1
+        For I As Integer = 0 To 總數
             If IsDBNull(運費明細表_dgv.Rows(I).Cells("運費已付").Value) = True Then
                 運費明細表_dgv.Rows(I).Cells("運費已付").Value = False
             End If
@@ -56,13 +56,17 @@ Public Class 業績運費明細表
     End Sub
     Private Sub 業績運費明細表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        日期格式() : Set_清單1()
+        首次開啟 = True
+        日期格式() : Set_清單1() : 計算()
         If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
             字體_NUD.Value = 9
         ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
             字體_NUD.Value = 8
         End If
     End Sub
+    Private Sub 業績運費明細表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        首次開啟 = False
+    End Sub
     Private Sub 業績獎金彙總表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
         If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
             字體_NUD.Value = 9
@@ -102,19 +106,21 @@ Public Class 業績運費明細表
         End Try
     End Sub
     Private Sub 運費明細表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 運費明細表_dgv.CellEnter
-        計算()
+        If 首次開啟 = False Then
+            計算()
+        End If
     End Sub
     Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
         中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
         開始日期_dtp.Value = 中間日期_dtp.Value
         結束日期_dtp.Value = 中間日期_dtp.Value
-        日期格式() : Set_清單1()
+        日期格式() : Set_清單1() : 計算()
     End Sub
     Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
         中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
         開始日期_dtp.Value = 中間日期_dtp.Value
         結束日期_dtp.Value = 中間日期_dtp.Value
-        日期格式() : Set_清單1()
+        日期格式() : Set_清單1() : 計算()
     End Sub
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
         運費明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
@@ -127,7 +133,7 @@ Public Class 業績運費明細表
                 PA = 運費明細表_dgv.Rows(I).Cells("單號").Value : PA1 = 運費明細表_dgv.Rows(I).Cells("運費已付").Value : PA2 = 運費明細表_dgv.Rows(I).Cells("備註").Value
                 SQL_業績運費_修正()
             Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
-            MsgBox("存檔完成!!!") : Set_清單1()
+            MsgBox("存檔完成!!!") : Set_清單1() : 計算()
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
@@ -189,7 +195,7 @@ Public Class 業績運費明細表
         xlSheet.Range("D5:D" & N1 + 5).Select() : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
         xlSheet.Range("B" & N1 + 6).Select() : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
         xlSheet.Range("D" & N1 + 6).Select() : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
-        xlSheet.Range("F" & N1 + 6).Select() : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
+        xlSheet.Range("F" & N1 + 6).Select() : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "#,##0_ ;[紅色]-#,##0 "
         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
 
@@ -220,7 +226,7 @@ Public Class 業績運費明細表
         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
 
-        xlSheet.Range("A20:G" & N1 + 5).Select()
+        xlSheet.Range("A" & N1 + 5 & ":G" & N1 + 5).Select()
         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With