20220610備份

YD-ERP-SYS/App.config

@@ -1,6 +1,6 @@
-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <startup> 
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
     </startup>
-</configuration>
+</configuration>

YD-ERP-SYS/Module/SQL_業績計算系統.vb

@@ -1,25 +1,24 @@
 Module SQL_業績計算系統
     Friend Sub SQL_業績主表3()
         ConnOpen()
-        SQL1 = "SELECT     LEFT(銷售控制表.單號, 2) AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, SUM(銷售控制表.運費) AS 管銷, 
-                           SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 
-                           SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, SUM(銷售控制表.運費) AS 獎金, 
-                           銷售控制表.獎金基礎, 業績機算基礎.階級1, 業績機算基礎.比例1, 業績機算基礎.階級2, 業績機算基礎.比例2, 
-                           業績機算基礎.階級3, 業績機算基礎.比例3, 業績機算基礎.階級4, 業績機算基礎.比例4, 業績機算基礎.階級5, 
-                           業績機算基礎.比例5, 業績機算基礎.階級6, 業績機算基礎.比例6, 業績機算基礎.階級7, 業績機算基礎.比例7, 
-                           業績機算基礎.階級8, 業績機算基礎.比例8, 業績機算基礎.階級9, 業績機算基礎.比例9, 業績機算基礎.階級10, 
-                           業績機算基礎.比例10
+        SQL1 = "SELECT     LEFT(銷售控制表.單號, 2) AS 編號, QQ.姓名, SUM(銷售控制表.銷貨總額) AS 銷貨總額, SUM(銷售控制表.運費) 
+                           AS 成本, SUM(銷售控制表.管銷費用) AS 管銷, SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)],
+                           SUM(銷售控制表.運費) AS [其他(傭金)], SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, 
+                           SUM(銷售控制表.運費) AS 獎金, 銷售控制表.獎金基礎, 業績機算基礎.階級1, 業績機算基礎.比例1, 
+                           業績機算基礎.階級2, 業績機算基礎.比例2, 業績機算基礎.階級3, 業績機算基礎.比例3, 業績機算基礎.階級4, 
+                           業績機算基礎.比例4, 業績機算基礎.階級5, 業績機算基礎.比例5, 業績機算基礎.階級6, 業績機算基礎.比例6, 
+                           業績機算基礎.階級7, 業績機算基礎.比例7, 業績機算基礎.階級8, 業績機算基礎.比例8, 業績機算基礎.階級9, 
+                           業績機算基礎.比例9, 業績機算基礎.階級10, 業績機算基礎.比例10
                 FROM       銷售控制表 INNER JOIN
                            業績機算基礎 ON 銷售控制表.獎金基礎 = 業績機算基礎.獎金計算 LEFT OUTER JOIN
-                                (SELECT     舊編, 姓名
-                                 FROM       人事資料表) AS QQ ON LEFT(銷售控制表.單號, 2) = QQ.舊編 LEFT OUTER JOIN
-                           銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN
+                          (SELECT  舊編, 姓名
+                           FROM    人事資料表) AS QQ ON LEFT(銷售控制表.單號, 2) = QQ.舊編 LEFT OUTER JOIN
                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
-                WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
+                 WHERE    (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 
                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND
                           (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
                                                        '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
-                          LEFT(銷售控制表.單號, 2) LIKE N'" & 業績獎金彙總表.業務_cb.Text & "%'
+                           銷售控制表.單號 LIKE N'" & 業績獎金彙總表.業務_cb.Text & "%'
                 GROUP BY   LEFT(銷售控制表.單號, 2), QQ.姓名, 銷售控制表.獎金基礎, 業績機算基礎.階級1, 業績機算基礎.比例1, 
                            業績機算基礎.階級2, 業績機算基礎.比例2, 業績機算基礎.階級3, 業績機算基礎.比例3, 業績機算基礎.階級4, 
                            業績機算基礎.比例4, 業績機算基礎.階級5, 業績機算基礎.比例5, 業績機算基礎.階級6, 業績機算基礎.比例6, 
@@ -30,7 +29,7 @@
     End Sub
     Friend Sub SQL_業績主表2()
         ConnOpen()
-        SQL1 = "SELECT     銷售控制表.單號 AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, 管銷費用, 
+        SQL1 = "SELECT     銷售控制表.單號 AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, 銷售控制表.管銷費用, 
                            SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 
                            SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, SUM(銷售控制表.運費) AS 獎金, 
                            銷售控制表.獎金基礎, 客戶資料表.名稱, 客戶資料表.地址
@@ -294,7 +293,8 @@
     Friend Sub SQL_業績運費1()
         ConnOpen()
         SQL1 = "SELECT     銷售控制表.轉業績日期 AS 完單日期, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.運費, 銷售控制表.已付運費, 
-                           銷售控制表.運費已付 AS 付清, 銷售控制表.運費已付, 客戶資料表.地址, 銷售控制表.合載 AS 備註, 運費付款, QQ.支出
+                           銷售控制表.運費已付 AS 付清, 銷售控制表.運費已付, 客戶資料表.地址, 銷售控制表.合載 AS 備註, 運費付款, 
+                           QQ.支出 AS 衍伸運費, 銷售控制表.銷貨總額 - 銷售控制表.稅金 - 銷售控制表.刷卡費用 AS 銷售小計
                 FROM       銷售控制表 LEFT OUTER JOIN
                            (SELECT      單號, SUM(支出) AS 支出
                             FROM        銷售衍生運費
@@ -309,7 +309,8 @@
     Friend Sub SQL_業績運費2()
         ConnOpen()
         SQL1 = "SELECT     銷售控制表.轉業績日期 AS 完單日期, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.運費, 銷售控制表.已付運費, 
-                           銷售控制表.運費已付 AS 付清, 銷售控制表.運費已付, 客戶資料表.地址, 銷售控制表.合載 AS 備註, 運費付款, QQ.支出
+                           銷售控制表.運費已付 AS 付清, 銷售控制表.運費已付, 客戶資料表.地址, 銷售控制表.合載 AS 備註, 運費付款, 
+                           QQ.支出 AS 衍伸運費, 銷售控制表.銷貨總額 - 銷售控制表.稅金 - 銷售控制表.刷卡費用 AS 銷售小計
                 FROM       銷售控制表 LEFT OUTER JOIN
                           (SELECT      單號, SUM(支出) AS 支出
                            FROM        銷售衍生運費
@@ -322,7 +323,8 @@
     Friend Sub SQL_業績運費3()
         ConnOpen()
         SQL1 = "SELECT     銷售控制表.轉業績日期 AS 完單日期, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.運費, 銷售控制表.已付運費, 
-                           銷售控制表.運費已付 AS 付清, 銷售控制表.運費已付, 客戶資料表.地址, 銷售控制表.合載 AS 備註, 運費付款, QQ.支出
+                           銷售控制表.運費已付 AS 付清, 銷售控制表.運費已付, 客戶資料表.地址, 銷售控制表.合載 AS 備註, 運費付款, 
+                           QQ.支出 AS 衍伸運費, 銷售控制表.銷貨總額 - 銷售控制表.稅金 - 銷售控制表.刷卡費用 AS 銷售小計
                 FROM       銷售控制表 LEFT OUTER JOIN
                           (SELECT      單號, SUM(支出) AS 支出
                            FROM        銷售衍生運費
@@ -337,7 +339,8 @@
     Friend Sub SQL_業績運費4()
         ConnOpen()
         SQL1 = "SELECT     銷售控制表.轉業績日期 AS 完單日期, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.運費, 銷售控制表.已付運費, 
-                           銷售控制表.運費已付 AS 付清, 銷售控制表.運費已付, 客戶資料表.地址, 銷售控制表.合載 AS 備註, 運費付款, QQ.支出
+                           銷售控制表.運費已付 AS 付清, 銷售控制表.運費已付, 客戶資料表.地址, 銷售控制表.合載 AS 備註, 運費付款, 
+                           QQ.支出 AS 衍伸運費, 銷售控制表.銷貨總額 - 銷售控制表.稅金 - 銷售控制表.刷卡費用 AS 銷售小計
                 FROM       銷售控制表 LEFT OUTER JOIN
                           (SELECT      單號, SUM(支出) AS 支出
                            FROM        銷售衍生運費

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

YD-ERP-SYS/My Project/Resources.Designer.vb

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  用於查詢當地語系化字串等的強類型資源類別。
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _

YD-ERP-SYS/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.5.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.2.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase

YD-ERP-SYS/YD-ERP-SYS.vbproj

@@ -11,7 +11,7 @@
     <AssemblyName>YD-ERP-SYS</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
     <Deterministic>true</Deterministic>
     <IsWebBootstrapper>false</IsWebBootstrapper>
     <PublishUrl>publish\</PublishUrl>
@@ -28,6 +28,7 @@
     <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <BootstrapperEnabled>true</BootstrapperEnabled>
+    <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>

YD-ERP-SYS/obj/Debug/.NETFramework,Version=v4.8.AssemblyAttributes.vb

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.8", FrameworkDisplayName:=".NET Framework 4.8")>

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

@@ -256,7 +256,6 @@ Public Class 業績獎金彙總表
             For I As Integer = 0 To 過度表_dgv.Rows.Count - 1
                 過度表_dgv.Rows(I).Cells("銷貨總額").Value = "0" : 過度表_dgv.Rows(I).Cells("成本").Value = "0" : 過度表_dgv.Rows(I).Cells("運費").Value = "0"
                 過度表_dgv.Rows(I).Cells("稅額(發票)").Value = "0" : 過度表_dgv.Rows(I).Cells("其他(傭金)").Value = "0" : 過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value = "0"
-                過度表_dgv.Rows(I).Cells("管銷").Value = "0"
                 For II As Integer = 0 To 獎金明細表_dgv.Rows.Count - 1
                     If Strings.Left(獎金明細表_dgv.Rows(II).Cells("編號").Value.ToString, 2) = 過度表_dgv.Rows(I).Cells("編號").Value.ToString And
                        獎金明細表_dgv.Rows(II).Cells("獎金基礎").Value.ToString = 過度表_dgv.Rows(I).Cells("獎金基礎").Value.ToString Then
@@ -268,7 +267,6 @@ Public Class 業績獎金彙總表
                         過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value = 過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value + 獎金明細表_dgv.Rows(II).Cells("手續費(刷卡)").Value
                     End If
                 Next
-                過度表_dgv.Rows(I).Cells("管銷").Value = 過度表_dgv.Rows(I).Cells("成本").Value * 0.06
             Next
             For I As Integer = 0 To 過度表_dgv.Rows.Count - 1
                 過度表_dgv.Rows(I).Cells("毛利").Value = "0" : 過度表_dgv.Rows(I).Cells("獎金").Value = "0"
@@ -390,10 +388,9 @@ Public Class 業績獎金彙總表
                         獎金彙總_dgv.Rows(I).Cells("手續費(刷卡)").Value = 獎金彙總_dgv.Rows(I).Cells("手續費(刷卡)").Value + 過度表_dgv.Rows(II).Cells("手續費(刷卡)").Value
                         獎金彙總_dgv.Rows(I).Cells("毛利").Value = 獎金彙總_dgv.Rows(I).Cells("毛利").Value + 過度表_dgv.Rows(II).Cells("毛利").Value
                         獎金彙總_dgv.Rows(I).Cells("獎金").Value = 獎金彙總_dgv.Rows(I).Cells("獎金").Value + 過度表_dgv.Rows(II).Cells("獎金").Value
+                        獎金彙總_dgv.Rows(I).Cells("管銷").Value = 獎金彙總_dgv.Rows(I).Cells("管銷").Value + 過度表_dgv.Rows(II).Cells("管銷").Value
                     End If
                 Next
-                獎金彙總_dgv.Rows(I).Cells("管銷").Value = 獎金彙總_dgv.Rows(I).Cells("成本").Value * 0.06
-                '獎金彙總_dgv.Rows(I).Cells("毛利").Value = 獎金彙總_dgv.Rows(I).Cells("毛利").Value - 獎金彙總_dgv.Rows(I).Cells("管銷").Value
                 NUD1.Value = NUD1.Value + 獎金彙總_dgv.Rows(I).Cells("運費").Value
             Next
             SQL_業績運費計算_查詢()

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

@@ -24,20 +24,22 @@ Public Class 業績運費明細表
         End If
 
         da.Fill(ds) : 運費明細表_dgv.DataSource = ds.Tables(0) : conn.Close()
-        運費明細表_dgv.Columns(0).FillWeight = 80 : 運費明細表_dgv.Columns(1).FillWeight = 80 : 運費明細表_dgv.Columns(2).FillWeight = 100 : 運費明細表_dgv.Columns(3).FillWeight = 80
-        運費明細表_dgv.Columns(4).FillWeight = 80 : 運費明細表_dgv.Columns(5).FillWeight = 80 : 運費明細表_dgv.Columns(6).FillWeight = 80 : 運費明細表_dgv.Columns(7).FillWeight = 180
-        運費明細表_dgv.Columns(8).FillWeight = 200 : 運費明細表_dgv.Columns(9).FillWeight = 80
-        運費明細表_dgv.Columns(10).Visible = False
+        運費明細表_dgv.Columns(0).FillWeight = 80 : 運費明細表_dgv.Columns(1).FillWeight = 70 : 運費明細表_dgv.Columns(2).FillWeight = 100 : 運費明細表_dgv.Columns(3).FillWeight = 80
+        運費明細表_dgv.Columns(4).FillWeight = 80 : 運費明細表_dgv.Columns(5).FillWeight = 70 : 運費明細表_dgv.Columns(6).FillWeight = 70 : 運費明細表_dgv.Columns(7).FillWeight = 230
+        運費明細表_dgv.Columns(8).FillWeight = 150 : 運費明細表_dgv.Columns(9).FillWeight = 70 : 運費明細表_dgv.Columns(10).FillWeight = 70 : 運費明細表_dgv.Columns(11).FillWeight = 70
         運費明細表_dgv.Columns("運費").DefaultCellStyle.Format = "#,##0" : 運費明細表_dgv.Columns("已付運費").DefaultCellStyle.Format = "#,##0"
+        運費明細表_dgv.Columns("衍伸運費").DefaultCellStyle.Format = "#,##0" : 運費明細表_dgv.Columns("銷售小計").DefaultCellStyle.Format = "#,##0"
         運費明細表_dgv.Columns("已付運費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         運費明細表_dgv.Columns("運費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        運費明細表_dgv.Columns("衍伸運費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        運費明細表_dgv.Columns("銷售小計").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         運費明細表_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
         For I As Integer = 0 To 運費明細表_dgv.Rows.Count - 1
             If IsDBNull(運費明細表_dgv.Rows(I).Cells("已付運費").Value) Then : 運費明細表_dgv.Rows(I).Cells("已付運費").Value = 0 : End If
-            If 運費明細表_dgv.Rows(I).Cells("支出").Value.ToString = "" Then : 運費明細表_dgv.Rows(I).Cells("支出").Value = "0" : End If
-            運費明細表_dgv.Rows(I).Cells("運費").Value = CInt(運費明細表_dgv.Rows(I).Cells("運費").Value) + CInt(運費明細表_dgv.Rows(I).Cells("支出").Value.ToString)
+            If 運費明細表_dgv.Rows(I).Cells("衍伸運費").Value.ToString = "" Then : 運費明細表_dgv.Rows(I).Cells("衍伸運費").Value = "0" : End If
+            運費明細表_dgv.Rows(I).Cells("運費").Value = CInt(運費明細表_dgv.Rows(I).Cells("運費").Value) + CInt(運費明細表_dgv.Rows(I).Cells("衍伸運費").Value.ToString)
         Next
         計算()
     End Sub
@@ -193,17 +195,17 @@ Public Class 業績運費明細表
             xlApp.Application.WindowState = xlMaximized
 
             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, 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) = "衍伸運費"
             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, 6) = 運費明細表_dgv.Rows(I).Cells("銷售小計").Value
+                xlSheet.Cells(I + 5, 7) = "=D" & I + 5 & "-H" & I + 5
+                xlSheet.Cells(I + 5, 8) = 運費明細表_dgv.Rows(I).Cells("衍伸運費").Value
                 N1 = I
             Next
             xlSheet.Cells(N1 + 6, 1) = "已付總額" : xlSheet.Cells(N1 + 6, 2) = NUD1.Value
@@ -239,6 +241,11 @@ Public Class 業績運費明細表
 
         xlSheet.Columns("B:H").Select
         xlSheet.Columns("B:H").EntireColumn.AutoFit
+        xlSheet.Columns("F:H").Select : myExcel.Selection.NumberFormatLocal = "#,##0_ "
+        xlSheet.Columns("B:B").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : End With
+
         xlSheet.Range("A1:H1").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