20230624備份

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

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

 
             If 獎金彙總_dgv.Visible = True Then
                 xlSheet.Cells(1, 1) = "雅邸家居" : xlSheet.Cells(2, 1) = "業績獎金彙總表" : xlSheet.Cells(3, 1) = "日期區間:" & 開始日期_dtp.Value & " ~ " & 結束日期_dtp.Value
-                xlSheet.Cells(4, 1) = "編號" : xlSheet.Cells(4, 2) = "業務姓名" : xlSheet.Cells(4, 3) = "銷貨總額" : xlSheet.Cells(4, 4) = "成本" : xlSheet.Cells(4, 5) = "運費"
-                xlSheet.Cells(4, 6) = "稅額(發票)" : xlSheet.Cells(4, 7) = "其他(傭金)" : xlSheet.Cells(4, 8) = "手續費(刷卡)" : xlSheet.Cells(4, 9) = "業績毛利"
-                xlSheet.Cells(4, 10) = "獎金"
+                xlSheet.Cells(4, 1) = "編號" : xlSheet.Cells(4, 2) = "業務姓名" : xlSheet.Cells(4, 3) = "銷貨總額" : xlSheet.Cells(4, 4) = "成本" : xlSheet.Cells(4, 6) = "運費"
+                xlSheet.Cells(4, 7) = "稅額(發票)" : xlSheet.Cells(4, 8) = "其他(傭金)" : xlSheet.Cells(4, 9) = "手續費(刷卡)" : xlSheet.Cells(4, 10) = "業績毛利"
+                xlSheet.Cells(4, 11) = "獎金" : xlSheet.Cells(4, 5) = "管銷"
                 For I As Integer = 0 To 獎金彙總_dgv.Rows.Count - 1
                     xlSheet.Cells(I + 5, 1) = 獎金彙總_dgv.Rows(I).Cells("編號").Value : xlSheet.Cells(I + 5, 2) = 獎金彙總_dgv.Rows(I).Cells("姓名").Value
                     xlSheet.Cells(I + 5, 3) = 獎金彙總_dgv.Rows(I).Cells("銷貨總額").Value : xlSheet.Cells(I + 5, 4) = 獎金彙總_dgv.Rows(I).Cells("成本").Value
-                    xlSheet.Cells(I + 5, 5) = 獎金彙總_dgv.Rows(I).Cells("運費").Value : xlSheet.Cells(I + 5, 6) = 獎金彙總_dgv.Rows(I).Cells("稅額(發票)").Value
-                    xlSheet.Cells(I + 5, 7) = 獎金彙總_dgv.Rows(I).Cells("其他(傭金)").Value : xlSheet.Cells(I + 5, 8) = 獎金彙總_dgv.Rows(I).Cells("手續費(刷卡)").Value
-                    xlSheet.Cells(I + 5, 9) = 獎金彙總_dgv.Rows(I).Cells("毛利").Value : xlSheet.Cells(I + 5, 10) = 獎金彙總_dgv.Rows(I).Cells("獎金").Value
+                    xlSheet.Cells(I + 5, 6) = 獎金彙總_dgv.Rows(I).Cells("運費").Value : xlSheet.Cells(I + 5, 7) = 獎金彙總_dgv.Rows(I).Cells("稅額(發票)").Value
+                    xlSheet.Cells(I + 5, 8) = 獎金彙總_dgv.Rows(I).Cells("其他(傭金)").Value : xlSheet.Cells(I + 5, 9) = 獎金彙總_dgv.Rows(I).Cells("手續費(刷卡)").Value
+                    xlSheet.Cells(I + 5, 10) = 獎金彙總_dgv.Rows(I).Cells("毛利").Value : xlSheet.Cells(I + 5, 11) = 獎金彙總_dgv.Rows(I).Cells("獎金").Value
+                    xlSheet.Cells(I + 5, 5) = 獎金彙總_dgv.Rows(I).Cells("管銷").Value
                     N1 = I
                 Next
             Else
                 xlSheet.Cells(1, 1) = "雅邸家居" : xlSheet.Cells(2, 1) = "業績明細表" : xlSheet.Cells(3, 1) = "日期區間:" & 開始日期_dtp.Value & " ~ " & 結束日期_dtp.Value
-                xlSheet.Cells(4, 1) = "編號" : xlSheet.Cells(4, 2) = "客戶姓名" : xlSheet.Cells(4, 3) = "銷貨總額" : xlSheet.Cells(4, 4) = "成本" : xlSheet.Cells(4, 5) = "運費"
-                xlSheet.Cells(4, 6) = "稅額(發票)" : xlSheet.Cells(4, 7) = "其他(傭金)" : xlSheet.Cells(4, 8) = "手續費(刷卡)" : xlSheet.Cells(4, 9) = "業績毛利"
-                xlSheet.Cells(4, 10) = "獎金基礎"
+                xlSheet.Cells(4, 1) = "編號" : xlSheet.Cells(4, 2) = "客戶姓名" : xlSheet.Cells(4, 3) = "銷貨總額" : xlSheet.Cells(4, 4) = "成本" : xlSheet.Cells(4, 6) = "運費"
+                xlSheet.Cells(4, 7) = "稅額(發票)" : xlSheet.Cells(4, 8) = "其他(傭金)" : xlSheet.Cells(4, 9) = "手續費(刷卡)" : xlSheet.Cells(4, 10) = "業績毛利"
+                xlSheet.Cells(4, 11) = "獎金" : xlSheet.Cells(4, 5) = "管銷"
                 For I As Integer = 0 To 獎金明細表_dgv.Rows.Count - 1
                     xlSheet.Cells(I + 5, 1) = 獎金明細表_dgv.Rows(I).Cells("編號").Value : xlSheet.Cells(I + 5, 2) = 獎金明細表_dgv.Rows(I).Cells("名稱").Value
                     xlSheet.Cells(I + 5, 3) = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value : xlSheet.Cells(I + 5, 4) = 獎金明細表_dgv.Rows(I).Cells("成本").Value
-                    xlSheet.Cells(I + 5, 5) = 獎金明細表_dgv.Rows(I).Cells("運費").Value : xlSheet.Cells(I + 5, 6) = 獎金明細表_dgv.Rows(I).Cells("稅額(發票)").Value
-                    xlSheet.Cells(I + 5, 7) = 獎金明細表_dgv.Rows(I).Cells("其他(傭金)").Value : xlSheet.Cells(I + 5, 8) = 獎金明細表_dgv.Rows(I).Cells("手續費(刷卡)").Value
-                    xlSheet.Cells(I + 5, 9) = 獎金明細表_dgv.Rows(I).Cells("毛利").Value : xlSheet.Cells(I + 5, 10) = 獎金明細表_dgv.Rows(I).Cells("獎金基礎").Value
+                    xlSheet.Cells(I + 5, 6) = 獎金明細表_dgv.Rows(I).Cells("運費").Value : xlSheet.Cells(I + 5, 7) = 獎金明細表_dgv.Rows(I).Cells("稅額(發票)").Value
+                    xlSheet.Cells(I + 5, 8) = 獎金明細表_dgv.Rows(I).Cells("其他(傭金)").Value : xlSheet.Cells(I + 5, 9) = 獎金明細表_dgv.Rows(I).Cells("手續費(刷卡)").Value
+                    xlSheet.Cells(I + 5, 10) = 獎金明細表_dgv.Rows(I).Cells("毛利").Value : xlSheet.Cells(I + 5, 11) = 獎金明細表_dgv.Rows(I).Cells("獎金基礎").Value
+                    xlSheet.Cells(I + 5, 5) = 獎金明細表_dgv.Rows(I).Cells("管銷費用").Value
                     N1 = I
                 Next
             End If
             xlSheet.Cells(N1 + 6, 2) = "合計"
             xlSheet.Cells(N1 + 6, 3) = "=SUM(C5:C" & N1 + 5 & ")" : xlSheet.Cells(N1 + 6, 4) = "=SUM(D5:D" & N1 + 5 & ")"
-            xlSheet.Cells(N1 + 6, 5) = "=SUM(E5:E" & N1 + 5 & ")" : xlSheet.Cells(N1 + 6, 6) = "=SUM(F5:F" & N1 + 5 & ")"
-            xlSheet.Cells(N1 + 6, 7) = "=SUM(G5:G" & N1 + 5 & ")" : xlSheet.Cells(N1 + 6, 8) = "=SUM(H5:H" & N1 + 5 & ")"
-            xlSheet.Cells(N1 + 6, 9) = "=SUM(I5:I" & N1 + 5 & ")" : xlSheet.Cells(N1 + 6, 10) = "=SUM(J5:J" & N1 + 5 & ")"
-            xlSheet.Cells(N1 + 7, 3) = "扣運費(上月已結)" : xlSheet.Cells(N1 + 7, 5) = NUD2.Value
-            xlSheet.Cells(N1 + 8, 3) = "已出貨未扣款" : xlSheet.Cells(N1 + 8, 5) = NUD3.Value
-            xlSheet.Cells(N1 + 9, 3) = "代運費" : xlSheet.Cells(N1 + 9, 5) = NUD4.Value
-            xlSheet.Cells(N1 + 10, 3) = "共計" : xlSheet.Cells(N1 + 10, 5) = NUD5.Value
+            xlSheet.Cells(N1 + 6, 6) = "=SUM(F5:F" & N1 + 5 & ")" : xlSheet.Cells(N1 + 6, 7) = "=SUM(G5:G" & N1 + 5 & ")"
+            xlSheet.Cells(N1 + 6, 8) = "=SUM(H5:H" & N1 + 5 & ")" : xlSheet.Cells(N1 + 6, 9) = "=SUM(I5:I" & N1 + 5 & ")"
+            xlSheet.Cells(N1 + 6, 10) = "=SUM(J5:J" & N1 + 5 & ")" : xlSheet.Cells(N1 + 6, 11) = "=SUM(K5:K" & N1 + 5 & ")"
+            xlSheet.Cells(N1 + 6, 5) = "=SUM(E5:E" & N1 + 5 & ")"
+            xlSheet.Cells(N1 + 7, 3) = "扣運費(上月已結)" : xlSheet.Cells(N1 + 7, 6) = NUD2.Value
+            xlSheet.Cells(N1 + 8, 3) = "已出貨未扣款" : xlSheet.Cells(N1 + 8, 6) = NUD3.Value
+            xlSheet.Cells(N1 + 9, 3) = "代運費" : xlSheet.Cells(N1 + 9, 6) = NUD4.Value
+            xlSheet.Cells(N1 + 10, 3) = "共計" : xlSheet.Cells(N1 + 10, 6) = NUD5.Value
             BB(xlApp, xlSheet)
 
             xlSheet.PageSetup.PrintArea = ""
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
 
-        xlSheet.Range("C4:J4").Select()
+        xlSheet.Range("C4:K4").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
 
         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 5
-        xlSheet.Range("C5:J" & N1 + 6 & "").Select() : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
-        xlSheet.Range("E" & N1 + 7 & ":E" & N1 + 10 & "").Select() : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
-        xlSheet.Columns("C:J").EntireColumn.AutoFit
+        xlSheet.Range("C5:K" & N1 + 6 & "").Select() : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
+        xlSheet.Range("F" & N1 + 7 & ":F" & N1 + 10 & "").Select() : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
+        xlSheet.Columns("C:K").EntireColumn.AutoFit
 
-        xlSheet.Range("B" & N1 + 7 & ":D" & N1 + 7 & "").Select()
+        xlSheet.Range("B" & N1 + 7 & ":E" & N1 + 7 & "").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
-        xlSheet.Range("B" & N1 + 8 & ":D" & N1 + 8 & "").Select()
+        xlSheet.Range("B" & N1 + 8 & ":E" & N1 + 8 & "").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
-        xlSheet.Range("B" & N1 + 9 & ":D" & N1 + 9 & "").Select()
+        xlSheet.Range("B" & N1 + 9 & ":E" & N1 + 9 & "").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
-        xlSheet.Range("B" & N1 + 10 & ":D" & N1 + 10 & "").Select()
+        xlSheet.Range("B" & N1 + 10 & ":E" & N1 + 10 & "").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
 
-        xlSheet.Range("B" & N1 + 7 & ":D" & N1 + 10 & "").Select()
+        xlSheet.Range("B" & N1 + 7 & ":E" & N1 + 10 & "").Select()
         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : End With
-        xlSheet.Range("A1:J1").Select()
+        xlSheet.Range("A1:K1").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
-        xlSheet.Range("A2:J2").Select()
+        xlSheet.Range("A2:K2").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
-        xlSheet.Range("A3:J3").Select()
+        xlSheet.Range("A3:K3").Select()
         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
-        xlSheet.Range("A1:J1").Select()
+        xlSheet.Range("A1:K1").Select()
         With myExcel.Selection.Font : .Name = "新細明體" : .Size = 24 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontMinor : End With
 
-        xlSheet.Range("A4:J4").Select()
+        xlSheet.Range("A4:K4").Select()
         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
 
-        xlSheet.Range("A3:J3").Select()
+        xlSheet.Range("A3:K3").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
         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
 
-        xlSheet.Range("A" & N1 + 5 & ":J" & N1 + 5 & "").Select()
+        xlSheet.Range("A" & N1 + 5 & ":K" & 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
         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
 
-        xlSheet.Range("A" & N1 + 9 & ":E" & N1 + 9 & "").Select()
+        xlSheet.Range("A" & N1 + 9 & ":F" & N1 + 9 & "").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