20210905備份

YD-ERP-SYS/Module/SQL_倉儲系統管理.vb

@@ -84,7 +84,15 @@
     End Sub
     '---------------------倉儲控制表-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_倉儲控制表_控制表()
-        If 倉儲控制表.不顯示歸零_ch.Checked = True Then : SQL3 = " AND (RR.庫存 <> 0)" : Else : SQL3 = "" : End If
+        If 倉儲控制表.不顯示歸零_ch.Checked = True And 倉儲控制表.料號2_tb.Text = "" Then
+            SQL3 = " AND (RR.庫存 <> 0)"
+        ElseIf 倉儲控制表.不顯示歸零_ch.Checked = True And 倉儲控制表.料號2_tb.Text <> "" Then
+            SQL3 = " AND (RR.庫存 <> 0) AND BB.料號 LIKE '" & 倉儲控制表.料號2_tb.Text & "%'"
+        ElseIf 倉儲控制表.不顯示歸零_ch.Checked = False And 倉儲控制表.料號2_tb.Text <> "" Then
+            SQL3 = " AND BB.料號 LIKE '" & 倉儲控制表.料號2_tb.Text & "%'"
+        Else
+            SQL3 = ""
+        End If
 
         If 倉儲控制表.指定倉庫_cb.Text = "" And 倉儲控制表.倉儲狀態_cb.Text = "" Then
             SQL2 = " WHERE (BB.訂製 IS NOT NULL)" & SQL3

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

@@ -246,4 +246,23 @@
                 WHERE 單號 LIKE N'" & 業績單據完單設定.業務單號_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_業績運費()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.轉業績日期 AS 完單日期, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.運費, 銷售控制表.運費已付, 
+                           客戶資料表.地址, 銷售控制表.合載 AS 備註
+                FROM       銷售控制表 LEFT OUTER JOIN
+                           銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號 LEFT OUTER JOIN
+                           客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編
+                WHERE     (銷售控制表.轉業績日期 NOT LIKE '') AND 
+                          (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績運費明細表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 
+                                                         '" & Strings.Format(業績運費明細表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 
+                          (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0)
+                ORDER BY   完單日期, 銷售控制表.單號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_業績運費_修正()
+        ConnOpen()
+        SQL1 = "UPDATE 銷售控制表 SET 運費已付 = N'" & PA1 & "', 合載 = N'" & PA2 & "' WHERE 單號 LIKE N'" & PA & "'"
+        CmdSet_For_dr()
+    End Sub
 End Module

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

@@ -4,7 +4,7 @@
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean : Public 業務號碼 As String
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021083001"
+    Public 版本 As String = "2021090501"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String

YD-ERP-SYS/YD-ERP-SYS.Designer.vb

@@ -25,8 +25,9 @@ Partial Class YD_ERP_SYS
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(YD_ERP_SYS))
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.業績運費明細表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip = New System.Windows.Forms.MenuStrip()
         Me.FileMenu = New System.Windows.Forms.ToolStripMenuItem()
         Me.個人帳號管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -117,6 +118,14 @@ Partial Class YD_ERP_SYS
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
+        '業績運費明細表_tsm
+        '
+        Me.業績運費明細表_tsm.ForeColor = System.Drawing.Color.Red
+        Me.業績運費明細表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Shipping5
+        Me.業績運費明細表_tsm.Name = "業績運費明細表_tsm"
+        Me.業績運費明細表_tsm.Size = New System.Drawing.Size(181, 22)
+        Me.業績運費明細表_tsm.Text = "業績運費明細表"
+        '
         'MenuStrip
         '
         Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileMenu, Me.WindowsMenu, Me.人事系統管理_tsm, Me.業務系統管理_tsm, Me.採購系統管理_tsm, Me.倉儲系統管理_tsm, Me.財務系統管理_tsm, Me.資料庫系統管理_tsm})
@@ -501,7 +510,7 @@ Partial Class YD_ERP_SYS
         '
         '財務系統管理_tsm
         '
-        Me.財務系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.業績獎金彙總表_tsm, Me.業績單據完單設定_tsm, Me.ToolStripSeparator15, Me.營運成本收支單申請_tsm, Me.營運成本收支單審核_tsm, Me.營運成本收支單一覽表_tsm, Me.ToolStripSeparator12, Me.營運成本收支單對帳表_tsm, Me.營運報表_tsm, Me.ToolStripSeparator13, Me.薪資轉帳表_tsm, Me.匯率管理_tsm, Me.會計科目管理_tsm, Me.業務獎金計算基礎_tcm})
+        Me.財務系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.業績獎金彙總表_tsm, Me.業績運費明細表_tsm, Me.業績單據完單設定_tsm, Me.ToolStripSeparator15, Me.營運成本收支單申請_tsm, Me.營運成本收支單審核_tsm, Me.營運成本收支單一覽表_tsm, Me.ToolStripSeparator12, Me.營運成本收支單對帳表_tsm, Me.營運報表_tsm, Me.ToolStripSeparator13, Me.薪資轉帳表_tsm, Me.匯率管理_tsm, Me.會計科目管理_tsm, Me.業務獎金計算基礎_tcm})
         Me.財務系統管理_tsm.ForeColor = System.Drawing.Color.Red
         Me.財務系統管理_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Payment1
         Me.財務系統管理_tsm.Name = "財務系統管理_tsm"
@@ -723,16 +732,16 @@ Partial Class YD_ERP_SYS
         '
         '銷售單據_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.銷售單據_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售單據_dgv.Location = New System.Drawing.Point(639, 90)
         Me.銷售單據_dgv.Name = "銷售單據_dgv"
         Me.銷售單據_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.銷售單據_dgv.RowTemplate.Height = 24
         Me.銷售單據_dgv.Size = New System.Drawing.Size(542, 465)
         Me.銷售單據_dgv.TabIndex = 1257
@@ -856,4 +865,5 @@ Partial Class YD_ERP_SYS
     Friend WithEvents 業績獎金彙總表_tsm As ToolStripMenuItem
     Friend WithEvents 業務獎金計算基礎_tcm As ToolStripMenuItem
     Friend WithEvents 業績單據完單設定_tsm As ToolStripMenuItem
+    Friend WithEvents 業績運費明細表_tsm As ToolStripMenuItem
 End Class

YD-ERP-SYS/YD-ERP-SYS.vb

@@ -88,7 +88,8 @@ Public Class YD_ERP_SYS
             If 銷售單據_dgv.Rows.Count > 0 Then
                 單數 = (Strings.Right(銷售單據_dgv.Rows(0).Cells("單號").Value, 6) - Strings.Right(銷售單據_dgv.Rows(銷售單據_dgv.Rows.Count - 1).Cells("單號").Value, 6)) - 銷售單據_dgv.Rows.Count
                 狀態1 = 業務_cb.Text & " 號業務單最後入單單號 [ " & 銷售單據_dgv.Rows(0).Cells("單號").Value & " ]，開單日期是 [ " & 銷售單據_dgv.Rows(0).Cells("開單日期").Value & " ]。 
-   由單號 [" & 銷售單據_dgv.Rows(銷售單據_dgv.Rows.Count - 1).Cells("單號").Value & "]  到系統中最後一單，約有 " & 單數 & " 張單據未補齊。"
+   由單號 [" & 銷售單據_dgv.Rows(銷售單據_dgv.Rows.Count - 1).Cells("單號").Value & "]  到系統中最後一單，約有 " & 單數 & " 張單據未補齊。" & vbCrLf &
+   "-------------------------------------------------------------------"
                 狀態 = 狀態 & vbCrLf &
                            狀態1
             End If
@@ -245,6 +246,10 @@ Public Class YD_ERP_SYS
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 業績單據完單設定.Show() : 業績單據完單設定.BringToFront()
     End Sub
+    Private Sub 業績運費明細表_tsm_Click(sender As Object, e As EventArgs) Handles 業績運費明細表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 業績運費明細表.Show() : 業績運費明細表.BringToFront()
+    End Sub
     Private Sub 營運成本收支單一覽表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單一覽表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : PA18 = "" : PA19 = "" : PA20 = "" : 營運成本收支單一覽表.Show() : 營運成本收支單一覽表.BringToFront()

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

@@ -330,6 +330,12 @@
     <Compile Include="財務系統管理\業績獎金彙總表.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="財務系統管理\業績運費明細表.Designer.vb">
+      <DependentUpon>業績運費明細表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\業績運費明細表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="財務系統管理\營運報表.Designer.vb">
       <DependentUpon>營運報表.vb</DependentUpon>
     </Compile>
@@ -542,6 +548,9 @@
     <EmbeddedResource Include="財務系統管理\業績獎金彙總表.resx">
       <DependentUpon>業績獎金彙總表.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\業績運費明細表.resx">
+      <DependentUpon>業績運費明細表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="財務系統管理\營運報表.resx">
       <DependentUpon>營運報表.vb</DependentUpon>
     </EmbeddedResource>

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-925f96eada3b8933ee6d9a387b39de39c623d377
+7306029ad47280a03329fef82e4399e994c6e258

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -510,3 +510,4 @@ D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購應付帳款.resou
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績獎金彙總表.resources
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業務獎金計算基礎.resources
 D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績單據完單設定.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績運費明細表.resources

YD-ERP-SYS/倉儲系統管理/倉儲控制表.Designer.vb

@@ -23,10 +23,10 @@ Partial Class 倉儲控制表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.控制表_dgv = New System.Windows.Forms.DataGridView()
         Me.明細表_dgv = New System.Windows.Forms.DataGridView()
         Me.物料圖_pb = New System.Windows.Forms.PictureBox()
@@ -61,6 +61,9 @@ Partial Class 倉儲控制表
         Me.中間距_ch = New System.Windows.Forms.CheckBox()
         Me.小間距_ch = New System.Windows.Forms.CheckBox()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.查詢_bt = New System.Windows.Forms.Button()
+        Me.清空1_bt = New System.Windows.Forms.Button()
+        Me.料號2_tb = New System.Windows.Forms.TextBox()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.訂製狀態_tb = New System.Windows.Forms.TextBox()
@@ -87,6 +90,7 @@ Partial Class 倉儲控制表
         Me.刪除_bt = New System.Windows.Forms.Button()
         Me.Label11 = New System.Windows.Forms.Label()
         Me.倉儲流水_tb = New System.Windows.Forms.TextBox()
+        Me.Label20 = New System.Windows.Forms.Label()
         CType(Me.控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -102,8 +106,8 @@ Partial Class 倉儲控制表
         '
         '控制表_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.White
-        Me.控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.White
+        Me.控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.控制表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -112,16 +116,16 @@ Partial Class 倉儲控制表
         Me.控制表_dgv.Location = New System.Drawing.Point(467, 29)
         Me.控制表_dgv.Name = "控制表_dgv"
         Me.控制表_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.控制表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.控制表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.控制表_dgv.RowTemplate.Height = 24
         Me.控制表_dgv.Size = New System.Drawing.Size(823, 382)
         Me.控制表_dgv.TabIndex = 1039
         '
         '明細表_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.明細表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -130,8 +134,8 @@ Partial Class 倉儲控制表
         Me.明細表_dgv.Location = New System.Drawing.Point(3, 29)
         Me.明細表_dgv.Name = "明細表_dgv"
         Me.明細表_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.明細表_dgv.RowTemplate.Height = 24
         Me.明細表_dgv.Size = New System.Drawing.Size(1287, 188)
         Me.明細表_dgv.TabIndex = 1040
@@ -449,6 +453,10 @@ Partial Class 倉儲控制表
         '
         'SplitContainer1.Panel1
         '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label20)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.查詢_bt)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.清空1_bt)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.料號2_tb)
         Me.SplitContainer1.Panel1.Controls.Add(Me.控制表_dgv)
         Me.SplitContainer1.Panel1.Controls.Add(Me.字體大小調整_lb)
         Me.SplitContainer1.Panel1.Controls.Add(Me.字體_NUD)
@@ -512,6 +520,35 @@ Partial Class 倉儲控制表
         Me.SplitContainer1.SplitterDistance = 416
         Me.SplitContainer1.TabIndex = 1380
         '
+        '查詢_bt
+        '
+        Me.查詢_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.查詢_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.查詢_bt.Location = New System.Drawing.Point(949, 3)
+        Me.查詢_bt.Name = "查詢_bt"
+        Me.查詢_bt.Size = New System.Drawing.Size(61, 24)
+        Me.查詢_bt.TabIndex = 1494
+        Me.查詢_bt.Text = "查詢"
+        Me.查詢_bt.UseVisualStyleBackColor = True
+        '
+        '清空1_bt
+        '
+        Me.清空1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.清空1_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.清空1_bt.Location = New System.Drawing.Point(885, 3)
+        Me.清空1_bt.Name = "清空1_bt"
+        Me.清空1_bt.Size = New System.Drawing.Size(61, 24)
+        Me.清空1_bt.TabIndex = 1493
+        Me.清空1_bt.Text = "清除"
+        Me.清空1_bt.UseVisualStyleBackColor = True
+        '
+        '料號2_tb
+        '
+        Me.料號2_tb.Location = New System.Drawing.Point(751, 3)
+        Me.料號2_tb.Name = "料號2_tb"
+        Me.料號2_tb.Size = New System.Drawing.Size(131, 23)
+        Me.料號2_tb.TabIndex = 1492
+        '
         '字體大小調整_lb
         '
         Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -746,6 +783,15 @@ Partial Class 倉儲控制表
         Me.倉儲流水_tb.Size = New System.Drawing.Size(98, 23)
         Me.倉儲流水_tb.TabIndex = 1380
         '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Location = New System.Drawing.Point(598, 6)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(152, 16)
+        Me.Label20.TabIndex = 1495
+        Me.Label20.Text = "請輸入供應商編號或是料號"
+        '
         '倉儲控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -834,4 +880,8 @@ Partial Class 倉儲控制表
     Friend WithEvents 倉名編號_tb As TextBox
     Friend WithEvents 倉級_tb As TextBox
     Friend WithEvents 訂製狀態_tb As TextBox
+    Friend WithEvents 料號2_tb As TextBox
+    Friend WithEvents 查詢_bt As Button
+    Friend WithEvents 清空1_bt As Button
+    Friend WithEvents Label20 As Label
 End Class

YD-ERP-SYS/倉儲系統管理/倉儲控制表.vb

@@ -588,4 +588,10 @@ Public Class 倉儲控制表
             MsgBox("調整帳務完成!!") : Set_清單() : Set_清單1()
         End If
     End Sub
+    Private Sub 清空1_bt_Click(sender As Object, e As EventArgs) Handles 清空1_bt.Click
+        料號2_tb.Text = "" : Set_清單() : Set_清單1()
+    End Sub
+    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
+        Set_清單() : Set_清單1()
+    End Sub
 End Class

YD-ERP-SYS/業務系統管理/訂單控制表.vb

@@ -257,7 +257,7 @@ Public Class 訂單控制表
                 If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
                     司機運費_tb.Text = 最低運費_cb.Text
                 ElseIf (不含1類銷售小記 - Val(其他成本_tb.Text)) > Val(最低售價_cb.Text) Then
-                    司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text)) / 100 * 3 ' - Val(其他成本_tb.Text)
+                    司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text) - Val(其他成本_tb.Text)) / 100 * 3
                 End If
             Else
                 司機運費_tb.Text = 運費

YD-ERP-SYS/業務系統管理/銷售單審核.vb

@@ -377,7 +377,7 @@ Public Class 銷售單審核
                 If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
                     司機運費_tb.Text = 最低運費_cb.Text
                 ElseIf (不含1類銷售小記 - Val(其他成本_tb.Text)) > Val(最低售價_cb.Text) Then
-                    司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text)) / 100 * 3 ' - Val(其他成本_tb.Text)
+                    司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text) - Val(其他成本_tb.Text)) / 100 * 3
                 End If
             Else
                 司機運費_tb.Text = 運費
@@ -1302,7 +1302,7 @@ Public Class 銷售單審核
             If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
                 司機運費_tb.Text = 最低運費_cb.Text
             ElseIf (不含1類銷售小記 - Val(其他成本_tb.Text)) > Val(最低售價_cb.Text) Then
-                司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text)) / 100 * 3 ' - Val(其他成本_tb.Text)
+                司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text) - Val(其他成本_tb.Text)) / 100 * 3
             End If
         End If
         存檔1()
@@ -1408,7 +1408,7 @@ Public Class 銷售單審核
                 If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
                     司機運費_tb.Text = 最低運費_cb.Text
                 ElseIf (不含1類銷售小記 - Val(其他成本_tb.Text)) > Val(最低售價_cb.Text) Then
-                    司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text)) / 100 * 3 ' - Val(其他成本_tb.Text)
+                    司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text) - Val(其他成本_tb.Text)) / 100 * 3
                 End If
             Else
                 司機運費_tb.Text = 運費

YD-ERP-SYS/業務系統管理/銷售單申請.vb

@@ -377,7 +377,7 @@ Public Class 銷售單申請
                 If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
                     司機運費_tb.Text = 最低運費_cb.Text
                 ElseIf (不含1類銷售小記 - Val(其他成本_tb.Text)) > Val(最低售價_cb.Text) Then
-                    司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text)) / 100 * 3 ' - Val(其他成本_tb.Text)
+                    司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text) - Val(其他成本_tb.Text)) / 100 * 3
                 End If
             Else
                 司機運費_tb.Text = 運費
@@ -1380,7 +1380,7 @@ Public Class 銷售單申請
             If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
                 司機運費_tb.Text = 最低運費_cb.Text
             ElseIf (不含1類銷售小記 - Val(其他成本_tb.Text)) > Val(最低售價_cb.Text) Then
-                司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text)) / 100 * 3 ' - Val(其他成本_tb.Text)
+                司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text) - Val(其他成本_tb.Text)) / 100 * 3
             End If
         End If
         存檔1()
@@ -1480,7 +1480,7 @@ Public Class 銷售單申請
                 If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
                     司機運費_tb.Text = 最低運費_cb.Text
                 ElseIf (不含1類銷售小記 - Val(其他成本_tb.Text)) > Val(最低售價_cb.Text) Then
-                    司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text)) / 100 * 3 ' - Val(其他成本_tb.Text)
+                    司機運費_tb.Text = (不含1類銷售小記 - Val(稅金_tb.Text) - Val(刷卡傭金_tb.Text) - Val(其他成本_tb.Text)) / 100 * 3
                 End If
             Else
                 司機運費_tb.Text = 運費

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

@@ -22,15 +22,15 @@ Partial Class 業績獎金彙總表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.彙總1_dgv = New System.Windows.Forms.DataGridView()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
@@ -81,8 +81,8 @@ Partial Class 業績獎金彙總表
         '
         '彙總1_dgv
         '
-        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.彙總1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.彙總1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.彙總1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -123,8 +123,8 @@ Partial Class 業績獎金彙總表
         '
         '衍生運費_dgv
         '
-        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.衍生運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.衍生運費_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.衍生運費_dgv.Location = New System.Drawing.Point(470, 33)
@@ -138,8 +138,8 @@ Partial Class 業績獎金彙總表
         '
         '其他_dgv
         '
-        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.其他_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.其他_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.其他_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.其他_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.其他_dgv.Location = New System.Drawing.Point(1177, 33)
@@ -153,8 +153,8 @@ Partial Class 業績獎金彙總表
         '
         '外車車資_dgv
         '
-        DataGridViewCellStyle22.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.外車車資_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.外車車資_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.外車車資_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.外車車資_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.外車車資_dgv.Location = New System.Drawing.Point(627, 33)
@@ -168,8 +168,8 @@ Partial Class 業績獎金彙總表
         '
         '料號一_dgv
         '
-        DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.料號一_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.料號一_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.料號一_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.料號一_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.料號一_dgv.Location = New System.Drawing.Point(992, 33)
@@ -183,8 +183,8 @@ Partial Class 業績獎金彙總表
         '
         '備註運費_dgv
         '
-        DataGridViewCellStyle24.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.備註運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle24
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.備註運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.備註運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.備註運費_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.備註運費_dgv.Location = New System.Drawing.Point(835, 33)
@@ -257,8 +257,8 @@ Partial Class 業績獎金彙總表
         '
         '獎金彙總_dgv
         '
-        DataGridViewCellStyle25.BackColor = System.Drawing.Color.Lavender
-        Me.獎金彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.Lavender
+        Me.獎金彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.獎金彙總_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -296,8 +296,8 @@ Partial Class 業績獎金彙總表
         '
         '獎金明細表_dgv
         '
-        DataGridViewCellStyle26.BackColor = System.Drawing.Color.LavenderBlush
-        Me.獎金明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.LavenderBlush
+        Me.獎金明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
         Me.獎金明細表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -313,8 +313,8 @@ Partial Class 業績獎金彙總表
         '
         '過度表_dgv
         '
-        DataGridViewCellStyle27.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.過度表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.過度表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.過度表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.過度表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill

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

@@ -0,0 +1,321 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 業績運費明細表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.列印成EXCEL_bt = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.下個月_bt = New System.Windows.Forms.Button()
+        Me.上個月_bt = New System.Windows.Forms.Button()
+        Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.運費明細表_dgv = New System.Windows.Forms.DataGridView()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.NUD2 = New System.Windows.Forms.NumericUpDown()
+        Me.NUD1 = New System.Windows.Forms.NumericUpDown()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.NUD3 = New System.Windows.Forms.NumericUpDown()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.全部取消_bt = New System.Windows.Forms.Button()
+        Me.全部選擇_bt = New System.Windows.Forms.Button()
+        CType(Me.運費明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NUD2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NUD1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NUD3, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '列印成EXCEL_bt
+        '
+        Me.列印成EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.列印成EXCEL_bt.ForeColor = System.Drawing.Color.Green
+        Me.列印成EXCEL_bt.Location = New System.Drawing.Point(336, 3)
+        Me.列印成EXCEL_bt.Name = "列印成EXCEL_bt"
+        Me.列印成EXCEL_bt.Size = New System.Drawing.Size(107, 23)
+        Me.列印成EXCEL_bt.TabIndex = 1541
+        Me.列印成EXCEL_bt.Text = "列印成EXCEL"
+        Me.列印成EXCEL_bt.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(99, 6)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(20, 16)
+        Me.Label1.TabIndex = 1538
+        Me.Label1.Text = "到"
+        '
+        '下個月_bt
+        '
+        Me.下個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.下個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.下個月_bt.Location = New System.Drawing.Point(274, 3)
+        Me.下個月_bt.Name = "下個月_bt"
+        Me.下個月_bt.Size = New System.Drawing.Size(57, 23)
+        Me.下個月_bt.TabIndex = 1537
+        Me.下個月_bt.Text = "下個月"
+        Me.下個月_bt.UseVisualStyleBackColor = True
+        '
+        '上個月_bt
+        '
+        Me.上個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.上個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.上個月_bt.Location = New System.Drawing.Point(216, 3)
+        Me.上個月_bt.Name = "上個月_bt"
+        Me.上個月_bt.Size = New System.Drawing.Size(57, 23)
+        Me.上個月_bt.TabIndex = 1536
+        Me.上個月_bt.Text = "上個月"
+        Me.上個月_bt.UseVisualStyleBackColor = True
+        '
+        '結束日期_dtp
+        '
+        Me.結束日期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.結束日期_dtp.Location = New System.Drawing.Point(119, 3)
+        Me.結束日期_dtp.Name = "結束日期_dtp"
+        Me.結束日期_dtp.Size = New System.Drawing.Size(91, 23)
+        Me.結束日期_dtp.TabIndex = 1535
+        '
+        '開始日期_dtp
+        '
+        Me.開始日期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.開始日期_dtp.Location = New System.Drawing.Point(4, 3)
+        Me.開始日期_dtp.Name = "開始日期_dtp"
+        Me.開始日期_dtp.Size = New System.Drawing.Size(91, 23)
+        Me.開始日期_dtp.TabIndex = 1534
+        '
+        '運費明細表_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.LavenderBlush
+        Me.運費明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.運費明細表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.運費明細表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.運費明細表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.運費明細表_dgv.Location = New System.Drawing.Point(4, 29)
+        Me.運費明細表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.運費明細表_dgv.Name = "運費明細表_dgv"
+        Me.運費明細表_dgv.RowHeadersWidth = 5
+        Me.運費明細表_dgv.RowTemplate.Height = 24
+        Me.運費明細表_dgv.Size = New System.Drawing.Size(1330, 541)
+        Me.運費明細表_dgv.TabIndex = 1542
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
+        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(1218, 6)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(56, 16)
+        Me.字體大小調整_lb.TabIndex = 1544
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.DecimalPlaces = 1
+        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
+        Me.字體_NUD.Location = New System.Drawing.Point(1274, 3)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(52, 23)
+        Me.字體_NUD.TabIndex = 1543
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '中間日期_dtp
+        '
+        Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.中間日期_dtp.Location = New System.Drawing.Point(52, 41)
+        Me.中間日期_dtp.Name = "中間日期_dtp"
+        Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23)
+        Me.中間日期_dtp.TabIndex = 1545
+        Me.中間日期_dtp.Visible = False
+        '
+        'NUD2
+        '
+        Me.NUD2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.NUD2.Location = New System.Drawing.Point(236, 574)
+        Me.NUD2.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NUD2.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
+        Me.NUD2.Name = "NUD2"
+        Me.NUD2.Size = New System.Drawing.Size(100, 23)
+        Me.NUD2.TabIndex = 1549
+        Me.NUD2.ThousandsSeparator = True
+        '
+        'NUD1
+        '
+        Me.NUD1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.NUD1.Location = New System.Drawing.Point(67, 574)
+        Me.NUD1.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NUD1.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
+        Me.NUD1.Name = "NUD1"
+        Me.NUD1.Size = New System.Drawing.Size(100, 23)
+        Me.NUD1.TabIndex = 1548
+        Me.NUD1.ThousandsSeparator = True
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(1, 577)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(68, 16)
+        Me.Label5.TabIndex = 1547
+        Me.Label5.Text = "已付總額："
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(170, 577)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(68, 16)
+        Me.Label2.TabIndex = 1546
+        Me.Label2.Text = "未付總額："
+        '
+        'NUD3
+        '
+        Me.NUD3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.NUD3.Location = New System.Drawing.Point(405, 574)
+        Me.NUD3.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.NUD3.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NUD3.Name = "NUD3"
+        Me.NUD3.Size = New System.Drawing.Size(100, 23)
+        Me.NUD3.TabIndex = 1551
+        Me.NUD3.ThousandsSeparator = True
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(342, 577)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(65, 16)
+        Me.Label3.TabIndex = 1550
+        Me.Label3.Text = "運費總額 : "
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.存檔_bt.Location = New System.Drawing.Point(659, 574)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(107, 24)
+        Me.存檔_bt.TabIndex = 1552
+        Me.存檔_bt.Text = "存檔"
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        '全部取消_bt
+        '
+        Me.全部取消_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.全部取消_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.全部取消_bt.ForeColor = System.Drawing.Color.Olive
+        Me.全部取消_bt.Location = New System.Drawing.Point(583, 574)
+        Me.全部取消_bt.Name = "全部取消_bt"
+        Me.全部取消_bt.Size = New System.Drawing.Size(70, 24)
+        Me.全部取消_bt.TabIndex = 1554
+        Me.全部取消_bt.Text = "全部取消"
+        Me.全部取消_bt.UseVisualStyleBackColor = True
+        '
+        '全部選擇_bt
+        '
+        Me.全部選擇_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.全部選擇_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.全部選擇_bt.ForeColor = System.Drawing.Color.Olive
+        Me.全部選擇_bt.Location = New System.Drawing.Point(511, 574)
+        Me.全部選擇_bt.Name = "全部選擇_bt"
+        Me.全部選擇_bt.Size = New System.Drawing.Size(70, 24)
+        Me.全部選擇_bt.TabIndex = 1553
+        Me.全部選擇_bt.Text = "全部選擇"
+        Me.全部選擇_bt.UseVisualStyleBackColor = True
+        '
+        '業績運費明細表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1338, 603)
+        Me.Controls.Add(Me.全部取消_bt)
+        Me.Controls.Add(Me.全部選擇_bt)
+        Me.Controls.Add(Me.存檔_bt)
+        Me.Controls.Add(Me.NUD3)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.NUD2)
+        Me.Controls.Add(Me.NUD1)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.中間日期_dtp)
+        Me.Controls.Add(Me.字體大小調整_lb)
+        Me.Controls.Add(Me.字體_NUD)
+        Me.Controls.Add(Me.運費明細表_dgv)
+        Me.Controls.Add(Me.列印成EXCEL_bt)
+        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.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "業績運費明細表"
+        Me.Text = "業績運費明細表"
+        CType(Me.運費明細表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NUD2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NUD1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NUD3, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 列印成EXCEL_bt As Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 下個月_bt As Button
+    Friend WithEvents 上個月_bt As Button
+    Friend WithEvents 結束日期_dtp As DateTimePicker
+    Friend WithEvents 開始日期_dtp As DateTimePicker
+    Friend WithEvents 運費明細表_dgv As DataGridView
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 中間日期_dtp As DateTimePicker
+    Friend WithEvents NUD2 As NumericUpDown
+    Friend WithEvents NUD1 As NumericUpDown
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents NUD3 As NumericUpDown
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents 全部取消_bt As Button
+    Friend WithEvents 全部選擇_bt As Button
+End Class

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

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

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

@@ -0,0 +1,209 @@
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
+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
+    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
+    Private Sub Set_清單1()
+        運費明細表_dgv.DataSource = Nothing : ds.Clear()
+        運費明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        運費明細表_dgv.ColumnHeadersHeight = 25
+        運費明細表_dgv.AllowUserToAddRows = False
+        運費明細表_dgv.RowTemplate.Height = 25
+
+        SQL_業績運費()
+        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 = 180 : 運費明細表_dgv.Columns(6).FillWeight = 200
+
+        運費明細表_dgv.Columns("運費").DefaultCellStyle.Format = "#,##0"
+        運費明細表_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
+
+        計算()
+    End Sub
+    Private Sub 計算()
+        NUD1.Value = 0 : NUD2.Value = 0
+        For I As Integer = 0 To 運費明細表_dgv.Rows.Count - 1
+            If IsDBNull(運費明細表_dgv.Rows(I).Cells("運費已付").Value) = True Then
+                運費明細表_dgv.Rows(I).Cells("運費已付").Value = False
+            End If
+            If IsDBNull(運費明細表_dgv.Rows(I).Cells("備註").Value) = True Then
+                運費明細表_dgv.Rows(I).Cells("備註").Value = ""
+            End If
+            If 運費明細表_dgv.Rows(I).Cells("運費已付").Value = True Then
+                NUD1.Value += 運費明細表_dgv.Rows(I).Cells("運費").Value
+            Else
+                NUD2.Value += 運費明細表_dgv.Rows(I).Cells("運費").Value
+            End If
+        Next
+        NUD3.Value = NUD2.Value + NUD1.Value
+    End Sub
+    Private Sub 日期格式()
+        '-------------日期一----------------------------------------------------------------------------------------
+        DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+        '-------------日期二----------------------------------------------------------------------------------------
+        DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+        結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+    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()
+        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 業績獎金彙總表_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
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 8
+        End If
+    End Sub
+    Private Sub 運費明細表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 運費明細表_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            If 運費明細表_dgv.Rows(e.RowIndex).Cells("運費已付").Value = True Then
+                運費明細表_dgv.Rows(e.RowIndex).Cells("運費已付").Value = False
+            Else
+                運費明細表_dgv.Rows(e.RowIndex).Cells("運費已付").Value = True
+            End If
+        End If
+    End Sub
+    Private Sub 運費明細表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 運費明細表_dgv.CellEnter
+        計算()
+    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()
+    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()
+    End Sub
+    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
+        運費明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        資料數 = 運費明細表_dgv.Rows.Count
+        For I As Integer = 0 To 運費明細表_dgv.Rows.Count - 1
+            MyModule1.進度條()
+            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()
+    End Sub
+    Private Sub 全部選擇_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇_bt.Click
+        For i As Integer = 0 To 運費明細表_dgv.Rows.Count - 1 : 運費明細表_dgv.Rows(i).Cells("運費已付").Value = True : Next i : 計算()
+    End Sub
+    Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click
+        For i As Integer = 0 To 運費明細表_dgv.Rows.Count - 1 : 運費明細表_dgv.Rows(i).Cells("運費已付").Value = False : Next i : 計算()
+    End Sub
+    Private Sub 列印成EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.Click
+        xlApp = CType(CreateObject("Excel.Application"), Application)
+        xlBook = xlApp.Workbooks.Add
+        xlApp.DisplayAlerts = True
+        xlBook.Activate()
+        xlSheet = NewMethod(xlBook)
+        xlSheet.Activate()
+        xlApp.Visible = True
+        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) = "備註"
+        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
+            N1 = I
+        Next
+        xlSheet.Cells(N1 + 6, 1) = "已付總額" : xlSheet.Cells(N1 + 6, 2) = NUD1.Value
+        xlSheet.Cells(N1 + 6, 3) = "未付總額" : xlSheet.Cells(N1 + 6, 4) = NUD2.Value
+        xlSheet.Cells(N1 + 6, 5) = "運費總額" : xlSheet.Cells(N1 + 6, 6) = NUD3.Value
+
+        BB(xlApp, xlSheet)
+
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlSheet.Range("B1").Select()
+        xlApp.Application.WindowState = xlMinimized
+        xlSheet.Cells.Select()
+        MsgBox("列印完成。")
+    End Sub
+    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
+        Return CType(xlBook.Worksheets.Add, Worksheet)
+    End Function
+    Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
+
+        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_-;_-* ""-""??_-;_-@_-"
+        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+
+        xlSheet.Columns("B:G").Select
+        xlSheet.Columns("B:G").EntireColumn.AutoFit
+        xlSheet.Range("A1:G1").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
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 24 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
+
+        xlSheet.Range("A2:G2").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("A4:G4").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
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlDouble : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThick : End With
+        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
+        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+
+        xlSheet.Range("A3:G3").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("A20: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
+        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
+        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+
+        xlSheet.Range("A" & N1 + 6).Select()
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+
+        xlSheet.Range("C" & N1 + 6).Select()
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+        myExcel.ActiveWindow.DisplayGridlines = False
+    End Sub
+End Class