20230722備份

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

     Friend Sub SQL_業績主表3()
         ConnOpen()
         SQL1 = "SELECT     LEFT(銷售控制表.單號, 2) AS 編號, QQ.姓名, SUM(銷售控制表.銷貨總額) AS 銷貨總額, SUM(銷售控制表.運費) 
-                           AS 成本, SUM(銷售控制表.管銷費用) AS 管銷, SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)],
+                           AS 成本, SUM(銷售控制表.管銷費用) AS 管銷, SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(2.5%)], SUM(銷售控制表.運費) AS [稅額(發票)],
                            SUM(銷售控制表.運費) AS [其他(傭金)], SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, 
                            SUM(銷售控制表.運費) AS 獎金, 銷售控制表.獎金基礎, 業績機算基礎.階級1, 業績機算基礎.比例1, 
                            業績機算基礎.階級2, 業績機算基礎.比例2, 業績機算基礎.階級3, 業績機算基礎.比例3, 業績機算基礎.階級4, 
     Friend Sub SQL_業績主表2()
         ConnOpen()
         SQL1 = "SELECT     銷售控制表.單號 AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, 銷售控制表.管銷費用, 
-                           SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 
+                           SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(2.5%)], SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 
                            SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, SUM(銷售控制表.運費) AS 獎金, 
                            銷售控制表.獎金基礎, 客戶資料表.名稱, 客戶資料表.地址
                 FROM       銷售控制表 INNER JOIN
     Friend Sub SQL_業績主表1()
         ConnOpen()
         SQL1 = "SELECT     LEFT(銷售控制表.單號, 2) AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, SUM(銷售控制表.運費) AS 管銷, 
-                           SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 
+                           SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(2.5%)], SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 
                            SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, SUM(銷售控制表.運費) AS 獎金
                 FROM       銷售控制表 LEFT OUTER JOIN
                                 (SELECT   舊編, 姓名
     Friend Sub SQL_業績彙總1()
         ConnOpen()
         SQL1 = "SELECT     銷售控制表.單號, 銷貨總額, SUM(銷售明細表.成本 * 銷售明細表.數量) 
-                           AS 成本, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 管銷費用
+                           AS 成本, 銷售控制表.運費, 銷售控制表.稅金 / 2 AS [稅金2.5%], 銷售控制表.稅金, 銷售控制表.刷卡費用, 管銷費用
                 FROM       銷售控制表 LEFT OUTER JOIN
                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN
                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號

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

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

     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        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 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()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.業務_cb = New System.Windows.Forms.ComboBox()
         Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
         Me.未審核_lb = New System.Windows.Forms.Label()
         Me.重新整理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.查詢1_bt = New System.Windows.Forms.Button()
+        Me.帳務關鍵字_tb = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
         Me.批量刷銷售_bt = New System.Windows.Forms.Button()
         Me.查詢_bt = New System.Windows.Forms.Button()
         Me.物料關鍵字_tb = New System.Windows.Forms.TextBox()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.顯示_bt = New System.Windows.Forms.Button()
         Me.隱藏_bt = New System.Windows.Forms.Button()
-        Me.查詢1_bt = New System.Windows.Forms.Button()
-        Me.帳務關鍵字_tb = New System.Windows.Forms.TextBox()
-        Me.Label16 = New System.Windows.Forms.Label()
+        Me.稅金25_tb = New System.Windows.Forms.TextBox()
+        Me.Label51 = New System.Windows.Forms.Label()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.銷售衍生運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         '
         '銷售單據_dgv
         '
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        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
         Me.銷售單據_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.銷售單據_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.銷售單據_dgv.BackgroundColor = System.Drawing.Color.White
         Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售單據_dgv.Location = New System.Drawing.Point(3, 77)
         Me.銷售單據_dgv.Name = "銷售單據_dgv"
         Me.銷售單據_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.銷售單據_dgv.RowTemplate.Height = 24
         Me.銷售單據_dgv.Size = New System.Drawing.Size(548, 636)
         Me.銷售單據_dgv.TabIndex = 1256
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.稅金25_tb)
+        Me.Panel1.Controls.Add(Me.Label51)
         Me.Panel1.Controls.Add(Me.項次4_tb)
         Me.Panel1.Controls.Add(Me.Label49)
         Me.Panel1.Controls.Add(Me.銷售衍生運費_dgv)
         '
         '銷售衍生運費_dgv
         '
-        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.銷售衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.銷售衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         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
+        Me.銷售衍生運費_dgv.BackgroundColor = System.Drawing.Color.White
         Me.銷售衍生運費_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售衍生運費_dgv.Location = New System.Drawing.Point(3, 540)
         Me.銷售衍生運費_dgv.Name = "銷售衍生運費_dgv"
         Me.銷售衍生運費_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle16.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
+        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(574, 102)
         Me.銷售衍生運費_dgv.TabIndex = 1350
         '
         Me.其他成本_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.其他成本_tb.ForeColor = System.Drawing.Color.Green
-        Me.其他成本_tb.Location = New System.Drawing.Point(666, 698)
+        Me.其他成本_tb.Location = New System.Drawing.Point(666, 727)
         Me.其他成本_tb.Name = "其他成本_tb"
         Me.其他成本_tb.Size = New System.Drawing.Size(81, 23)
         Me.其他成本_tb.TabIndex = 1337
         Me.Label45.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label45.AutoSize = True
         Me.Label45.ForeColor = System.Drawing.Color.Green
-        Me.Label45.Location = New System.Drawing.Point(583, 701)
+        Me.Label45.Location = New System.Drawing.Point(583, 730)
         Me.Label45.Name = "Label45"
         Me.Label45.Size = New System.Drawing.Size(82, 16)
         Me.Label45.TabIndex = 1336
         '
         Me.物料成本_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.物料成本_tb.ForeColor = System.Drawing.Color.Green
-        Me.物料成本_tb.Location = New System.Drawing.Point(666, 673)
+        Me.物料成本_tb.Location = New System.Drawing.Point(666, 702)
         Me.物料成本_tb.Name = "物料成本_tb"
         Me.物料成本_tb.Size = New System.Drawing.Size(81, 23)
         Me.物料成本_tb.TabIndex = 1318
         Me.Label43.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label43.AutoSize = True
         Me.Label43.ForeColor = System.Drawing.Color.Green
-        Me.Label43.Location = New System.Drawing.Point(583, 676)
+        Me.Label43.Location = New System.Drawing.Point(583, 705)
         Me.Label43.Name = "Label43"
         Me.Label43.Size = New System.Drawing.Size(82, 16)
         Me.Label43.TabIndex = 1317
         '
         Me.預估利潤_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.預估利潤_tb.ForeColor = System.Drawing.Color.Green
-        Me.預估利潤_tb.Location = New System.Drawing.Point(666, 748)
+        Me.預估利潤_tb.Location = New System.Drawing.Point(666, 777)
         Me.預估利潤_tb.Name = "預估利潤_tb"
         Me.預估利潤_tb.Size = New System.Drawing.Size(81, 23)
         Me.預估利潤_tb.TabIndex = 1316
         Me.Label42.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label42.AutoSize = True
         Me.Label42.ForeColor = System.Drawing.Color.Green
-        Me.Label42.Location = New System.Drawing.Point(584, 751)
+        Me.Label42.Location = New System.Drawing.Point(584, 780)
         Me.Label42.Name = "Label42"
         Me.Label42.Size = New System.Drawing.Size(82, 16)
         Me.Label42.TabIndex = 1315
         '
         Me.管銷費用_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.管銷費用_tb.ForeColor = System.Drawing.Color.Green
-        Me.管銷費用_tb.Location = New System.Drawing.Point(666, 723)
+        Me.管銷費用_tb.Location = New System.Drawing.Point(666, 752)
         Me.管銷費用_tb.Name = "管銷費用_tb"
         Me.管銷費用_tb.Size = New System.Drawing.Size(81, 23)
         Me.管銷費用_tb.TabIndex = 1314
         Me.Label41.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label41.AutoSize = True
         Me.Label41.ForeColor = System.Drawing.Color.Green
-        Me.Label41.Location = New System.Drawing.Point(584, 726)
+        Me.Label41.Location = New System.Drawing.Point(584, 755)
         Me.Label41.Name = "Label41"
         Me.Label41.Size = New System.Drawing.Size(82, 16)
         Me.Label41.TabIndex = 1313
         '
         '客戶資料_dgv
         '
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.客戶資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        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.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), 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(17, 12531)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 12793)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle18.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.客戶資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle18
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.客戶資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.客戶資料_dgv.RowTemplate.Height = 24
         Me.客戶資料_dgv.Size = New System.Drawing.Size(191, 92)
         Me.客戶資料_dgv.TabIndex = 1254
         '
         '銷售備註_dgv
         '
-        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.銷售備註_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.銷售備註_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         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
+        Me.銷售備註_dgv.BackgroundColor = System.Drawing.Color.White
         Me.銷售備註_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售備註_dgv.Location = New System.Drawing.Point(3, 411)
         Me.銷售備註_dgv.Name = "銷售備註_dgv"
         Me.銷售備註_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle20.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle20
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.銷售備註_dgv.RowTemplate.Height = 24
         Me.銷售備註_dgv.Size = New System.Drawing.Size(571, 102)
         Me.銷售備註_dgv.TabIndex = 1250
         '
         '收款事項_dgv
         '
-        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, 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
+        Me.收款事項_dgv.BackgroundColor = System.Drawing.Color.White
         Me.收款事項_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.收款事項_dgv.Location = New System.Drawing.Point(3, 668)
         Me.收款事項_dgv.Name = "收款事項_dgv"
         Me.收款事項_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle22.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle22
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.收款事項_dgv.RowTemplate.Height = 24
-        Me.收款事項_dgv.Size = New System.Drawing.Size(574, 102)
+        Me.收款事項_dgv.Size = New System.Drawing.Size(574, 131)
         Me.收款事項_dgv.TabIndex = 1282
         '
         'Label28
         '
         '銷售明細_dgv
         '
-        DataGridViewCellStyle23.BackColor = System.Drawing.Color.White
-        Me.銷售明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.White
+        Me.銷售明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         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
+        Me.銷售明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.銷售明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售明細_dgv.Location = New System.Drawing.Point(3, 29)
         Me.銷售明細_dgv.Name = "銷售明細_dgv"
         Me.銷售明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle24.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle24
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
         Me.銷售明細_dgv.RowTemplate.Height = 24
         Me.銷售明細_dgv.Size = New System.Drawing.Size(760, 355)
         Me.銷售明細_dgv.TabIndex = 1199
         Me.Panel2.Size = New System.Drawing.Size(556, 719)
         Me.Panel2.TabIndex = 1339
         '
+        '查詢1_bt
+        '
+        Me.查詢1_bt.Location = New System.Drawing.Point(365, 51)
+        Me.查詢1_bt.Name = "查詢1_bt"
+        Me.查詢1_bt.Size = New System.Drawing.Size(81, 25)
+        Me.查詢1_bt.TabIndex = 1345
+        Me.查詢1_bt.Text = "查詢"
+        Me.查詢1_bt.UseVisualStyleBackColor = True
+        '
+        '帳務關鍵字_tb
+        '
+        Me.帳務關鍵字_tb.ForeColor = System.Drawing.Color.Black
+        Me.帳務關鍵字_tb.Location = New System.Drawing.Point(70, 52)
+        Me.帳務關鍵字_tb.Name = "帳務關鍵字_tb"
+        Me.帳務關鍵字_tb.Size = New System.Drawing.Size(292, 23)
+        Me.帳務關鍵字_tb.TabIndex = 1344
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.Black
+        Me.Label16.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label16.Location = New System.Drawing.Point(0, 56)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(67, 16)
+        Me.Label16.TabIndex = 1343
+        Me.Label16.Text = "帳務關鍵字"
+        '
         '批量刷銷售_bt
         '
         Me.批量刷銷售_bt.Location = New System.Drawing.Point(473, 26)
         Me.隱藏_bt.Text = "隱藏" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "控件"
         Me.隱藏_bt.UseVisualStyleBackColor = True
         '
-        '查詢1_bt
+        '稅金25_tb
         '
-        Me.查詢1_bt.Location = New System.Drawing.Point(365, 51)
-        Me.查詢1_bt.Name = "查詢1_bt"
-        Me.查詢1_bt.Size = New System.Drawing.Size(81, 25)
-        Me.查詢1_bt.TabIndex = 1345
-        Me.查詢1_bt.Text = "查詢"
-        Me.查詢1_bt.UseVisualStyleBackColor = True
+        Me.稅金25_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.稅金25_tb.ForeColor = System.Drawing.Color.Green
+        Me.稅金25_tb.Location = New System.Drawing.Point(666, 676)
+        Me.稅金25_tb.Name = "稅金25_tb"
+        Me.稅金25_tb.Size = New System.Drawing.Size(81, 23)
+        Me.稅金25_tb.TabIndex = 1565
+        Me.稅金25_tb.Text = "0"
+        Me.稅金25_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
-        '帳務關鍵字_tb
+        'Label51
         '
-        Me.帳務關鍵字_tb.ForeColor = System.Drawing.Color.Black
-        Me.帳務關鍵字_tb.Location = New System.Drawing.Point(70, 52)
-        Me.帳務關鍵字_tb.Name = "帳務關鍵字_tb"
-        Me.帳務關鍵字_tb.Size = New System.Drawing.Size(292, 23)
-        Me.帳務關鍵字_tb.TabIndex = 1344
-        '
-        'Label16
-        '
-        Me.Label16.AutoSize = True
-        Me.Label16.ForeColor = System.Drawing.Color.Black
-        Me.Label16.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label16.Location = New System.Drawing.Point(0, 56)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(67, 16)
-        Me.Label16.TabIndex = 1343
-        Me.Label16.Text = "帳務關鍵字"
+        Me.Label51.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label51.AutoSize = True
+        Me.Label51.ForeColor = System.Drawing.Color.Green
+        Me.Label51.Location = New System.Drawing.Point(583, 679)
+        Me.Label51.Name = "Label51"
+        Me.Label51.Size = New System.Drawing.Size(77, 16)
+        Me.Label51.TabIndex = 1564
+        Me.Label51.Text = "稅   金   2.5%"
         '
         '訂單控制表
         '
     Friend WithEvents 查詢1_bt As Button
     Friend WithEvents 帳務關鍵字_tb As TextBox
     Friend WithEvents Label16 As Label
+    Friend WithEvents 稅金25_tb As TextBox
+    Friend WithEvents Label51 As Label
 End Class

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

     Private Sub Set_合記計算()
         Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
-        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0"
+        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0" : 稅金25_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             If 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
-                刷卡總和_tb.Text = Val(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
+                刷卡總和_tb.Text = CLng(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
             End If
         Next
-        刷卡稅金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.02))
+        刷卡稅金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.02))
         '-------002-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
-            銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
-            售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
+            銷售合計_tb.Text = CLng(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
+            售價小計_tb.Text = CLng(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 End If
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
-                物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                物料成本_tb.Text = CLng(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
-                其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                其他成本_tb.Text = CLng(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
 
             If 銷售明細_dgv("含稅", i).Value = True Then
-                稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
+                稅金_tb.Text = CLng(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
         管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
 
-        If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
+        If CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) = 0 Then
             通知_lb.Text = "無稅金"
-        ElseIf Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) <> 0 Then
-            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) > Val(刷卡稅金_tb.Text) Then
+        ElseIf CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) <> 0 Then
+            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) > CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) < CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
         End If
 
-        If 稅金存檔 <> Val(稅金_tb.Text) Then
+        If 稅金存檔 <> CLng(稅金_tb.Text) Then
             稅金_tb.Text = 稅金存檔
-            售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-            銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
-        ElseIf 稅金存檔 = Val(稅金_tb.Text) Then
+            售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+            銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
+        ElseIf 稅金存檔 = CLng(稅金_tb.Text) Then
             稅金_tb.Text = 稅金存檔
-            銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
-            售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-        End If
+            銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
+            售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+        End If : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
-            收入小計_tb.Text = Val(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
-            支出小計_tb.Text = Val(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
+            收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
+            支出小計_tb.Text = CLng(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
         Next
-        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
+        額外收支_tb.Text = CLng(收入小計_tb.Text) - CLng(支出小計_tb.Text)
         '-------004-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim 金額 As Integer = 0
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
                 金額 = 金額 + 收款事項_dgv("金額", i).Value
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
-                收款事項_dgv("金額", i).Value = CInt(Val(銷售合計_tb.Text)) - 金額
+                收款事項_dgv("金額", i).Value = CInt(CLng(銷售合計_tb.Text)) - 金額
             End If
         Next
         '-------005-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
             司機運費_tb.Text = "0"
         Else
             If 運費 = 0 Then
-                If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
+                If (不含1類銷售小記 - CLng(其他成本_tb.Text)) <= CLng(最低售價_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) - Val(其他成本_tb.Text)) / 100 * 3
+                ElseIf (不含1類銷售小記 - CLng(其他成本_tb.Text)) > CLng(最低售價_cb.Text) Then
+                    司機運費_tb.Text = (不含1類銷售小記 - CLng(稅金_tb.Text) - CLng(刷卡傭金_tb.Text) - CLng(其他成本_tb.Text)) / 100 * 3
                 End If
             Else
                 司機運費_tb.Text = 運費
             End If
         End If
         '-------006-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text) - Val(刷卡傭金_tb.Text)
+        預估利潤_tb.Text = CLng(售價小計_tb.Text) + CLng(額外收支_tb.Text) - CLng(其他成本_tb.Text) - CLng(物料成本_tb.Text) -
+                           CLng(司機運費_tb.Text) - CLng(管銷費用_tb.Text) - CLng(刷卡傭金_tb.Text) + (CLng(稅金_tb.Text) / 2)
         If 銷售衍生運費_dgv.Rows.Count > 0 Then
             For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
-                預估利潤_tb.Text = Val(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+                預估利潤_tb.Text = CLng(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
             Next
         End If
         '-------007-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
-        收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
-        司機運費_tb.Text = Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(Val(預估利潤_tb.Text), "#,##0")
-        物料成本_tb.Text = Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(Val(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Format(Val(刷卡總和_tb.Text), "#,##0")
-        刷卡稅金_tb.Text = Format(Val(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Format(Val(刷卡傭金_tb.Text), "#,##0")
+        售價小計_tb.Text = Format(CLng(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(CLng(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(CLng(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Format(CLng(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(CLng(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(CLng(額外收支_tb.Text), "#,##0")
+        司機運費_tb.Text = Format(CLng(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(CLng(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(CLng(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Format(CLng(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(CLng(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Format(CLng(刷卡總和_tb.Text), "#,##0")
+        刷卡稅金_tb.Text = Format(CLng(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Format(CLng(刷卡傭金_tb.Text), "#,##0") : 稅金25_tb.Text = Strings.Format(CLng(稅金25_tb.Text), "#,##0.0")
     End Sub
     Private Sub 業務_cb_下拉表單資料載入()
         SQL_業務編號_下拉清單()
     Private Sub 銷售單據_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售單據_dgv.MouseUp
         If 銷售單據_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
         If 銷售單據_dgv.SelectedCells.Count > 0 Then
-                If 銷售單據_dgv.SelectedCells(0).ColumnIndex = 9 Or 銷售單據_dgv.SelectedCells(0).ColumnIndex = 22 Then
-                    If 已超出 = False Then
-                        Dim x As Double = 0
-                        For i As Integer = 0 To 銷售單據_dgv.SelectedCells.Count - 1
-                            x += Val(銷售單據_dgv.Rows(銷售單據_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售單據_dgv.SelectedCells.Item(i).ColumnIndex).Value)
-                        Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
-                    Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
-                Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
-                End If
+            If 銷售單據_dgv.SelectedCells(0).ColumnIndex = 9 Or 銷售單據_dgv.SelectedCells(0).ColumnIndex = 22 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售單據_dgv.SelectedCells.Count - 1
+                        x += CLng(銷售單據_dgv.Rows(銷售單據_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售單據_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
             End If
+        End If
         'If 銷售單據_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售單據_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售單據_dgv.SelectedCells(0).RowIndex) : End If
     End Sub
     Private Sub 銷售明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售明細_dgv.MouseUp
         If 銷售明細_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
         If 銷售明細_dgv.SelectedCells.Count > 0 Then
-                If 銷售明細_dgv.SelectedCells(0).ColumnIndex = 12 Then
-                    If 已超出 = False Then
-                        Dim x As Double = 0
-                        For i As Integer = 0 To 銷售明細_dgv.SelectedCells.Count - 1
-                            x += Val(銷售明細_dgv.Rows(銷售明細_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售明細_dgv.SelectedCells.Item(i).ColumnIndex).Value)
-                        Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
-                    Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
-                Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
-                End If
+            If 銷售明細_dgv.SelectedCells(0).ColumnIndex = 12 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售明細_dgv.SelectedCells.Count - 1
+                        x += CLng(銷售明細_dgv.Rows(銷售明細_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售明細_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
             End If
+        End If
         'If 銷售明細_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售明細_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售明細_dgv.SelectedCells(0).RowIndex) : End If
     End Sub
     Private Sub 銷售備註_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售備註_dgv.MouseUp
         If 銷售備註_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
         If 銷售備註_dgv.SelectedCells.Count > 0 Then
-                If 銷售備註_dgv.SelectedCells(0).ColumnIndex >= 3 And 銷售備註_dgv.SelectedCells(0).ColumnIndex <= 4 Then
-                    If 已超出 = False Then
-                        Dim x As Double = 0
-                        For i As Integer = 0 To 銷售備註_dgv.SelectedCells.Count - 1
-                            x += Val(銷售備註_dgv.Rows(銷售備註_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售備註_dgv.SelectedCells.Item(i).ColumnIndex).Value)
-                        Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
-                    Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
-                Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
-                End If
+            If 銷售備註_dgv.SelectedCells(0).ColumnIndex >= 3 And 銷售備註_dgv.SelectedCells(0).ColumnIndex <= 4 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售備註_dgv.SelectedCells.Count - 1
+                        x += CLng(銷售備註_dgv.Rows(銷售備註_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售備註_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
             End If
+        End If
         'If 銷售備註_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售備註_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售備註_dgv.SelectedCells(0).RowIndex) : End If
     End Sub
     Private Sub 銷售衍生運費_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷售衍生運費_dgv.MouseUp
         If 銷售衍生運費_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
         If 銷售衍生運費_dgv.SelectedCells.Count > 0 Then
-                If 銷售衍生運費_dgv.SelectedCells(0).ColumnIndex = 4 Then
-                    If 已超出 = False Then
-                        Dim x As Double = 0
-                        For i As Integer = 0 To 銷售衍生運費_dgv.SelectedCells.Count - 1
-                            x += Val(銷售衍生運費_dgv.Rows(銷售衍生運費_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售衍生運費_dgv.SelectedCells.Item(i).ColumnIndex).Value)
-                        Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
-                    Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
-                Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
-                End If
+            If 銷售衍生運費_dgv.SelectedCells(0).ColumnIndex = 4 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 銷售衍生運費_dgv.SelectedCells.Count - 1
+                        x += CLng(銷售衍生運費_dgv.Rows(銷售衍生運費_dgv.SelectedCells.Item(i).RowIndex).Cells(銷售衍生運費_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
             End If
+        End If
         'If 銷售衍生運費_dgv.SelectedCells.Count = 1 Then : MsgBox(銷售衍生運費_dgv.SelectedCells(0).ColumnIndex & "  " & 銷售衍生運費_dgv.SelectedCells(0).RowIndex) : End If
     End Sub
     Private Sub 收款事項_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 收款事項_dgv.MouseUp
                 If 已超出 = False Then
                     Dim x As Double = 0
                     For i As Integer = 0 To 收款事項_dgv.SelectedCells.Count - 1
-                        x += Val(收款事項_dgv.Rows(收款事項_dgv.SelectedCells.Item(i).RowIndex).Cells(收款事項_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                        x += CLng(收款事項_dgv.Rows(收款事項_dgv.SelectedCells.Item(i).RowIndex).Cells(收款事項_dgv.SelectedCells.Item(i).ColumnIndex).Value)
                     Next i : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                 Else : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
             Else : 已超出 = True : YD_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
         End If
     End Sub
     Private Sub 銷售備註_dgvCellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售備註_dgv.CellEndEdit
-        If (Val(銷售備註_dgv.Rows(e.RowIndex).Cells("收入").Value) <> 0 And Val(銷售備註_dgv.Rows(e.RowIndex).Cells("支出").Value) <> 0) Then
+        If (CLng(銷售備註_dgv.Rows(e.RowIndex).Cells("收入").Value) <> 0 And CLng(銷售備註_dgv.Rows(e.RowIndex).Cells("支出").Value) <> 0) Then
             MsgBox("支出與收入不能同時有金額")
             Set_清單5()
             Exit Sub

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

         Me.運費資料流水號_tb = New System.Windows.Forms.TextBox()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.顯示_bt = New System.Windows.Forms.Button()
+        Me.稅金25_tb = New System.Windows.Forms.TextBox()
+        Me.Label51 = New System.Windows.Forms.Label()
         CType(Me.售價_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.區域庫存_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.成本_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Label22.ForeColor = System.Drawing.Color.Green
         Me.Label22.Location = New System.Drawing.Point(322, 623)
         Me.Label22.Name = "Label22"
-        Me.Label22.Size = New System.Drawing.Size(68, 16)
+        Me.Label22.Size = New System.Drawing.Size(67, 16)
         Me.Label22.TabIndex = 1324
         Me.Label22.Text = "售            價"
         '
         Me.盤損數_lb.ForeColor = System.Drawing.Color.Green
         Me.盤損數_lb.Location = New System.Drawing.Point(323, 575)
         Me.盤損數_lb.Name = "盤損數_lb"
-        Me.盤損數_lb.Size = New System.Drawing.Size(68, 16)
+        Me.盤損數_lb.Size = New System.Drawing.Size(67, 16)
         Me.盤損數_lb.TabIndex = 1320
         Me.盤損數_lb.Text = "訂  購 數 量"
         '
         Me.盤盈數_lb.ForeColor = System.Drawing.Color.Green
         Me.盤盈數_lb.Location = New System.Drawing.Point(323, 599)
         Me.盤盈數_lb.Name = "盤盈數_lb"
-        Me.盤盈數_lb.Size = New System.Drawing.Size(68, 16)
+        Me.盤盈數_lb.Size = New System.Drawing.Size(67, 16)
         Me.盤盈數_lb.TabIndex = 1312
         Me.盤盈數_lb.Text = "成            本"
         '
         Me.庫存量_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.庫存量_lb.Location = New System.Drawing.Point(323, 504)
         Me.庫存量_lb.Name = "庫存量_lb"
-        Me.庫存量_lb.Size = New System.Drawing.Size(68, 16)
+        Me.庫存量_lb.Size = New System.Drawing.Size(67, 16)
         Me.庫存量_lb.TabIndex = 1315
         Me.庫存量_lb.Text = "庫    存    量"
         '
         Me.最大庫存量_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.最大庫存量_lb.Location = New System.Drawing.Point(323, 528)
         Me.最大庫存量_lb.Name = "最大庫存量_lb"
-        Me.最大庫存量_lb.Size = New System.Drawing.Size(68, 16)
+        Me.最大庫存量_lb.Size = New System.Drawing.Size(67, 16)
         Me.最大庫存量_lb.TabIndex = 1317
         Me.最大庫存量_lb.Text = "最大庫存量"
         '
         Me.可盤損數_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.可盤損數_lb.Location = New System.Drawing.Point(323, 552)
         Me.可盤損數_lb.Name = "可盤損數_lb"
-        Me.可盤損數_lb.Size = New System.Drawing.Size(71, 16)
+        Me.可盤損數_lb.Size = New System.Drawing.Size(70, 16)
         Me.可盤損數_lb.TabIndex = 1318
         Me.可盤損數_lb.Text = "可  出  庫 數"
         '
         Me.Label12.AutoSize = True
         Me.Label12.Location = New System.Drawing.Point(322, 453)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.Size = New System.Drawing.Size(55, 16)
         Me.Label12.TabIndex = 1311
         Me.Label12.Text = "倉儲狀態"
         '
         Me.Label13.AutoSize = True
         Me.Label13.Location = New System.Drawing.Point(322, 479)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(56, 16)
+        Me.Label13.Size = New System.Drawing.Size(55, 16)
         Me.Label13.TabIndex = 1309
         Me.Label13.Text = "訂製狀態"
         '
         Me.Label14.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label14.Location = New System.Drawing.Point(473, 56)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(44, 16)
+        Me.Label14.Size = New System.Drawing.Size(43, 16)
         Me.Label14.TabIndex = 1307
         Me.Label14.Text = "筆資料"
         '
         Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label15.Location = New System.Drawing.Point(416, 56)
         Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(20, 16)
+        Me.Label15.Size = New System.Drawing.Size(19, 16)
         Me.Label15.TabIndex = 1305
         Me.Label15.Text = "共"
         '
         Me.指定倉庫_lb.AutoSize = True
         Me.指定倉庫_lb.Location = New System.Drawing.Point(322, 412)
         Me.指定倉庫_lb.Name = "指定倉庫_lb"
-        Me.指定倉庫_lb.Size = New System.Drawing.Size(56, 16)
+        Me.指定倉庫_lb.Size = New System.Drawing.Size(55, 16)
         Me.指定倉庫_lb.TabIndex = 1303
         Me.指定倉庫_lb.Text = "庫存區域"
         '
         Me.Label16.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label16.Location = New System.Drawing.Point(116, 56)
         Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(32, 16)
+        Me.Label16.Size = New System.Drawing.Size(31, 16)
         Me.Label16.TabIndex = 1297
         Me.Label16.Text = "品名"
         '
         Me.Label17.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label17.Location = New System.Drawing.Point(-1, 57)
         Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(32, 16)
+        Me.Label17.Size = New System.Drawing.Size(31, 16)
         Me.Label17.TabIndex = 1295
         Me.Label17.Text = "料號"
         '
         Me.Label29.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label29.Location = New System.Drawing.Point(252, 5)
         Me.Label29.Name = "Label29"
-        Me.Label29.Size = New System.Drawing.Size(68, 16)
+        Me.Label29.Size = New System.Drawing.Size(67, 16)
         Me.Label29.TabIndex = 1294
         Me.Label29.Text = "關鍵字查詢"
         '
         Me.Label18.ForeColor = System.Drawing.Color.Red
         Me.Label18.Location = New System.Drawing.Point(117, 6)
         Me.Label18.Name = "Label18"
-        Me.Label18.Size = New System.Drawing.Size(56, 16)
+        Me.Label18.Size = New System.Drawing.Size(55, 16)
         Me.Label18.TabIndex = 1291
         Me.Label18.Text = "廠商編碼"
         '
         Me.Label19.ForeColor = System.Drawing.Color.Red
         Me.Label19.Location = New System.Drawing.Point(-1, 31)
         Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(44, 16)
+        Me.Label19.Size = New System.Drawing.Size(43, 16)
         Me.Label19.TabIndex = 1289
         Me.Label19.Text = "供應商"
         '
         Me.Label21.ForeColor = System.Drawing.Color.Red
         Me.Label21.Location = New System.Drawing.Point(0, 6)
         Me.Label21.Name = "Label21"
-        Me.Label21.Size = New System.Drawing.Size(32, 16)
+        Me.Label21.Size = New System.Drawing.Size(31, 16)
         Me.Label21.TabIndex = 1284
         Me.Label21.Text = "地區"
         '
         Me.物料清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.物料清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.物料清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.物料清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.物料清單_dgv.Location = New System.Drawing.Point(2, 77)
         Me.物料清單_dgv.Name = "物料清單_dgv"
         Me.需要全部庫存區域清單_ch.AutoSize = True
         Me.需要全部庫存區域清單_ch.Location = New System.Drawing.Point(348, 432)
         Me.需要全部庫存區域清單_ch.Name = "需要全部庫存區域清單_ch"
-        Me.需要全部庫存區域清單_ch.Size = New System.Drawing.Size(147, 20)
+        Me.需要全部庫存區域清單_ch.Size = New System.Drawing.Size(146, 20)
         Me.需要全部庫存區域清單_ch.TabIndex = 1322
         Me.需要全部庫存區域清單_ch.Text = "需要全部庫存區域清單"
         Me.需要全部庫存區域清單_ch.UseVisualStyleBackColor = True
         Me.含稅_ch.AutoSize = True
         Me.含稅_ch.Location = New System.Drawing.Point(190, 103)
         Me.含稅_ch.Name = "含稅_ch"
-        Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.含稅_ch.Size = New System.Drawing.Size(50, 20)
         Me.含稅_ch.TabIndex = 1278
         Me.含稅_ch.Text = "含稅"
         Me.含稅_ch.UseVisualStyleBackColor = True
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label9.Location = New System.Drawing.Point(314, 29)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(56, 16)
+        Me.Label9.Size = New System.Drawing.Size(55, 16)
         Me.Label9.TabIndex = 1276
         Me.Label9.Text = "交貨日期"
         '
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label4.Location = New System.Drawing.Point(314, 4)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(56, 16)
+        Me.Label4.Size = New System.Drawing.Size(55, 16)
         Me.Label4.TabIndex = 1274
         Me.Label4.Text = "開單日期"
         '
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label11.Location = New System.Drawing.Point(319, 104)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(56, 16)
+        Me.Label11.Size = New System.Drawing.Size(55, 16)
         Me.Label11.TabIndex = 1272
         Me.Label11.Text = "統一編號"
         '
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label10.Location = New System.Drawing.Point(150, 54)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.Size = New System.Drawing.Size(31, 16)
         Me.Label10.TabIndex = 1269
         Me.Label10.Text = "公司"
         '
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label8.Location = New System.Drawing.Point(338, 79)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(39, 16)
+        Me.Label8.Size = New System.Drawing.Size(38, 16)
         Me.Label8.TabIndex = 1264
         Me.Label8.Text = "電話2"
         '
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label7.Location = New System.Drawing.Point(150, 79)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(39, 16)
+        Me.Label7.Size = New System.Drawing.Size(38, 16)
         Me.Label7.TabIndex = 1263
         Me.Label7.Text = "電話1"
         '
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label6.Location = New System.Drawing.Point(150, 129)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(32, 16)
+        Me.Label6.Size = New System.Drawing.Size(31, 16)
         Me.Label6.TabIndex = 1262
         Me.Label6.Text = "住址"
         '
         Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label3.Location = New System.Drawing.Point(150, 31)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(32, 16)
+        Me.Label3.Size = New System.Drawing.Size(31, 16)
         Me.Label3.TabIndex = 1261
         Me.Label3.Text = "客戶"
         '
         Me.Label2.ForeColor = System.Drawing.Color.Red
         Me.Label2.Location = New System.Drawing.Point(150, 4)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(32, 16)
+        Me.Label2.Size = New System.Drawing.Size(31, 16)
         Me.Label2.TabIndex = 1260
         Me.Label2.Text = "單號"
         '
         Me.未審核_lb.AutoSize = True
         Me.未審核_lb.Location = New System.Drawing.Point(5, 7)
         Me.未審核_lb.Name = "未審核_lb"
-        Me.未審核_lb.Size = New System.Drawing.Size(68, 16)
+        Me.未審核_lb.Size = New System.Drawing.Size(67, 16)
         Me.未審核_lb.TabIndex = 1257
         Me.未審核_lb.Text = "業務銷售單"
         '
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.稅金25_tb)
+        Me.Panel1.Controls.Add(Me.Label51)
         Me.Panel1.Controls.Add(Me.刷卡可刪除_ch)
         Me.Panel1.Controls.Add(Me.Reset1_bt)
         Me.Panel1.Controls.Add(Me.刪除衍生運費_bt)
         '
         Me.刷卡可刪除_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.刷卡可刪除_ch.AutoSize = True
-        Me.刷卡可刪除_ch.Location = New System.Drawing.Point(531, 652)
+        Me.刷卡可刪除_ch.Location = New System.Drawing.Point(532, 652)
         Me.刷卡可刪除_ch.Name = "刷卡可刪除_ch"
-        Me.刷卡可刪除_ch.Size = New System.Drawing.Size(87, 20)
+        Me.刷卡可刪除_ch.Size = New System.Drawing.Size(86, 20)
         Me.刷卡可刪除_ch.TabIndex = 1368
         Me.刷卡可刪除_ch.Text = "刷卡可刪除"
         Me.刷卡可刪除_ch.TextAlign = System.Drawing.ContentAlignment.BottomRight
         Me.Label49.AutoSize = True
         Me.Label49.Location = New System.Drawing.Point(-3, 526)
         Me.Label49.Name = "Label49"
-        Me.Label49.Size = New System.Drawing.Size(32, 16)
+        Me.Label49.Size = New System.Drawing.Size(31, 16)
         Me.Label49.TabIndex = 1346
         Me.Label49.Text = "項次"
         '
         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
+        Me.銷售衍生運費_dgv.BackgroundColor = System.Drawing.Color.White
         Me.銷售衍生運費_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售衍生運費_dgv.Location = New System.Drawing.Point(3, 547)
         Me.銷售衍生運費_dgv.Name = "銷售衍生運費_dgv"
         Me.Label46.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.Label46.Location = New System.Drawing.Point(730, 423)
         Me.Label46.Name = "Label46"
-        Me.Label46.Size = New System.Drawing.Size(83, 16)
+        Me.Label46.Size = New System.Drawing.Size(82, 16)
         Me.Label46.TabIndex = 1341
         Me.Label46.Text = "刷   卡   稅   金"
         '
         Me.Label47.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.Label47.Location = New System.Drawing.Point(730, 399)
         Me.Label47.Name = "Label47"
-        Me.Label47.Size = New System.Drawing.Size(83, 16)
+        Me.Label47.Size = New System.Drawing.Size(82, 16)
         Me.Label47.TabIndex = 1339
         Me.Label47.Text = "刷   卡   總   和"
         '
         Me.Label48.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.Label48.Location = New System.Drawing.Point(730, 447)
         Me.Label48.Name = "Label48"
-        Me.Label48.Size = New System.Drawing.Size(83, 16)
+        Me.Label48.Size = New System.Drawing.Size(82, 16)
         Me.Label48.TabIndex = 1337
         Me.Label48.Text = "刷   卡   傭   金"
         '
         '
         Me.其他成本_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.其他成本_tb.ForeColor = System.Drawing.Color.Green
-        Me.其他成本_tb.Location = New System.Drawing.Point(814, 704)
+        Me.其他成本_tb.Location = New System.Drawing.Point(814, 732)
         Me.其他成本_tb.Name = "其他成本_tb"
         Me.其他成本_tb.Size = New System.Drawing.Size(81, 23)
         Me.其他成本_tb.TabIndex = 1335
         Me.Label45.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label45.AutoSize = True
         Me.Label45.ForeColor = System.Drawing.Color.Green
-        Me.Label45.Location = New System.Drawing.Point(731, 707)
+        Me.Label45.Location = New System.Drawing.Point(731, 735)
         Me.Label45.Name = "Label45"
-        Me.Label45.Size = New System.Drawing.Size(83, 16)
+        Me.Label45.Size = New System.Drawing.Size(82, 16)
         Me.Label45.TabIndex = 1334
         Me.Label45.Text = "其   他   成   本"
         '
         '
         Me.物料成本_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.物料成本_tb.ForeColor = System.Drawing.Color.Green
-        Me.物料成本_tb.Location = New System.Drawing.Point(814, 680)
+        Me.物料成本_tb.Location = New System.Drawing.Point(814, 708)
         Me.物料成本_tb.Name = "物料成本_tb"
         Me.物料成本_tb.Size = New System.Drawing.Size(81, 23)
         Me.物料成本_tb.TabIndex = 1311
         Me.Label43.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label43.AutoSize = True
         Me.Label43.ForeColor = System.Drawing.Color.Green
-        Me.Label43.Location = New System.Drawing.Point(731, 683)
+        Me.Label43.Location = New System.Drawing.Point(731, 711)
         Me.Label43.Name = "Label43"
-        Me.Label43.Size = New System.Drawing.Size(83, 16)
+        Me.Label43.Size = New System.Drawing.Size(82, 16)
         Me.Label43.TabIndex = 1310
         Me.Label43.Text = "物   料   成   本"
         '
         '
         Me.預估利潤_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.預估利潤_tb.ForeColor = System.Drawing.Color.Green
-        Me.預估利潤_tb.Location = New System.Drawing.Point(814, 752)
+        Me.預估利潤_tb.Location = New System.Drawing.Point(814, 780)
         Me.預估利潤_tb.Name = "預估利潤_tb"
         Me.預估利潤_tb.Size = New System.Drawing.Size(81, 23)
         Me.預估利潤_tb.TabIndex = 1309
         Me.Label42.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label42.AutoSize = True
         Me.Label42.ForeColor = System.Drawing.Color.Green
-        Me.Label42.Location = New System.Drawing.Point(732, 755)
+        Me.Label42.Location = New System.Drawing.Point(732, 783)
         Me.Label42.Name = "Label42"
-        Me.Label42.Size = New System.Drawing.Size(83, 16)
+        Me.Label42.Size = New System.Drawing.Size(82, 16)
         Me.Label42.TabIndex = 1308
         Me.Label42.Text = "預   估   利   潤"
         '
         '
         Me.管銷費用_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.管銷費用_tb.ForeColor = System.Drawing.Color.Green
-        Me.管銷費用_tb.Location = New System.Drawing.Point(814, 728)
+        Me.管銷費用_tb.Location = New System.Drawing.Point(814, 756)
         Me.管銷費用_tb.Name = "管銷費用_tb"
         Me.管銷費用_tb.Size = New System.Drawing.Size(81, 23)
         Me.管銷費用_tb.TabIndex = 1307
         Me.Label41.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label41.AutoSize = True
         Me.Label41.ForeColor = System.Drawing.Color.Green
-        Me.Label41.Location = New System.Drawing.Point(732, 731)
+        Me.Label41.Location = New System.Drawing.Point(732, 759)
         Me.Label41.Name = "Label41"
-        Me.Label41.Size = New System.Drawing.Size(83, 16)
+        Me.Label41.Size = New System.Drawing.Size(82, 16)
         Me.Label41.TabIndex = 1306
         Me.Label41.Text = "管   銷   費   用"
         '
         Me.Label38.ForeColor = System.Drawing.Color.Black
         Me.Label38.Location = New System.Drawing.Point(730, 580)
         Me.Label38.Name = "Label38"
-        Me.Label38.Size = New System.Drawing.Size(83, 16)
+        Me.Label38.Size = New System.Drawing.Size(82, 16)
         Me.Label38.TabIndex = 1300
         Me.Label38.Text = "司   機   運   費"
         '
         Me.Label39.AutoSize = True
         Me.Label39.Location = New System.Drawing.Point(727, 554)
         Me.Label39.Name = "Label39"
-        Me.Label39.Size = New System.Drawing.Size(56, 16)
+        Me.Label39.Size = New System.Drawing.Size(55, 16)
         Me.Label39.TabIndex = 1299
         Me.Label39.Text = "送貨地點"
         '
         Me.Label36.AutoSize = True
         Me.Label36.Location = New System.Drawing.Point(2, 653)
         Me.Label36.Name = "Label36"
-        Me.Label36.Size = New System.Drawing.Size(32, 16)
+        Me.Label36.Size = New System.Drawing.Size(31, 16)
         Me.Label36.TabIndex = 1285
         Me.Label36.Text = "項次"
         '
         Me.Label35.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label35.Location = New System.Drawing.Point(729, 655)
         Me.Label35.Name = "Label35"
-        Me.Label35.Size = New System.Drawing.Size(86, 16)
+        Me.Label35.Size = New System.Drawing.Size(85, 16)
         Me.Label35.TabIndex = 1280
         Me.Label35.Text = "額    外   收   支"
         '
         Me.Label34.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label34.Location = New System.Drawing.Point(729, 524)
         Me.Label34.Name = "Label34"
-        Me.Label34.Size = New System.Drawing.Size(86, 16)
+        Me.Label34.Size = New System.Drawing.Size(85, 16)
         Me.Label34.TabIndex = 1278
         Me.Label34.Text = "銷    售   合   計"
         '
         Me.Label33.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label33.Location = New System.Drawing.Point(729, 500)
         Me.Label33.Name = "Label33"
-        Me.Label33.Size = New System.Drawing.Size(61, 16)
+        Me.Label33.Size = New System.Drawing.Size(60, 16)
         Me.Label33.TabIndex = 1276
         Me.Label33.Text = "明細-稅金"
         '
         Me.Label32.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label32.Location = New System.Drawing.Point(730, 631)
         Me.Label32.Name = "Label32"
-        Me.Label32.Size = New System.Drawing.Size(85, 16)
+        Me.Label32.Size = New System.Drawing.Size(84, 16)
         Me.Label32.TabIndex = 1274
         Me.Label32.Text = "備註-支出小計"
         '
         Me.Label31.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label31.Location = New System.Drawing.Point(728, 607)
         Me.Label31.Name = "Label31"
-        Me.Label31.Size = New System.Drawing.Size(85, 16)
+        Me.Label31.Size = New System.Drawing.Size(84, 16)
         Me.Label31.TabIndex = 1272
         Me.Label31.Text = "備註-收入小計"
         '
         Me.Label30.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label30.Location = New System.Drawing.Point(729, 477)
         Me.Label30.Name = "Label30"
-        Me.Label30.Size = New System.Drawing.Size(85, 16)
+        Me.Label30.Size = New System.Drawing.Size(84, 16)
         Me.Label30.TabIndex = 1270
         Me.Label30.Text = "明細-售價小計"
         '
         Me.Label26.AutoSize = True
         Me.Label26.Location = New System.Drawing.Point(2, 398)
         Me.Label26.Name = "Label26"
-        Me.Label26.Size = New System.Drawing.Size(32, 16)
+        Me.Label26.Size = New System.Drawing.Size(31, 16)
         Me.Label26.TabIndex = 1265
         Me.Label26.Text = "項次"
         '
         Me.Label25.AutoSize = True
         Me.Label25.Location = New System.Drawing.Point(3, 6)
         Me.Label25.Name = "Label25"
-        Me.Label25.Size = New System.Drawing.Size(32, 16)
+        Me.Label25.Size = New System.Drawing.Size(31, 16)
         Me.Label25.TabIndex = 1263
         Me.Label25.Text = "項次"
         '
         Me.倉儲單號_lb.AutoSize = True
         Me.倉儲單號_lb.Location = New System.Drawing.Point(564, 335)
         Me.倉儲單號_lb.Name = "倉儲單號_lb"
-        Me.倉儲單號_lb.Size = New System.Drawing.Size(56, 16)
+        Me.倉儲單號_lb.Size = New System.Drawing.Size(55, 16)
         Me.倉儲單號_lb.TabIndex = 1256
         Me.倉儲單號_lb.Text = "倉儲單號"
         Me.倉儲單號_lb.Visible = False
         Me.客戶資料_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), 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(17, 11966)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 12278)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label1.AutoSize = True
         Me.Label1.Location = New System.Drawing.Point(39, 334)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(44, 16)
+        Me.Label1.Size = New System.Drawing.Size(43, 16)
         Me.Label1.TabIndex = 1173
         Me.Label1.Text = "流水號"
         Me.Label1.Visible = False
         Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label5.Location = New System.Drawing.Point(35, 359)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.Size = New System.Drawing.Size(55, 16)
         Me.Label5.TabIndex = 1178
         Me.Label5.Text = "編號客戶"
         Me.Label5.Visible = False
         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
+        Me.銷售明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.銷售明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售明細_dgv.Location = New System.Drawing.Point(3, 29)
         Me.銷售明細_dgv.Name = "銷售明細_dgv"
         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
+        Me.銷售備註_dgv.BackgroundColor = System.Drawing.Color.White
         Me.銷售備註_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售備註_dgv.Location = New System.Drawing.Point(3, 419)
         Me.銷售備註_dgv.Name = "銷售備註_dgv"
         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
+        Me.收款事項_dgv.BackgroundColor = System.Drawing.Color.White
         Me.收款事項_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.收款事項_dgv.Location = New System.Drawing.Point(3, 674)
         Me.收款事項_dgv.Name = "收款事項_dgv"
         DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
         Me.收款事項_dgv.RowTemplate.Height = 24
-        Me.收款事項_dgv.Size = New System.Drawing.Size(725, 102)
+        Me.收款事項_dgv.Size = New System.Drawing.Size(725, 129)
         Me.收款事項_dgv.TabIndex = 1282
         '
         'Label28
         Me.Label28.AutoSize = True
         Me.Label28.Location = New System.Drawing.Point(728, 539)
         Me.Label28.Name = "Label28"
-        Me.Label28.Size = New System.Drawing.Size(168, 16)
+        Me.Label28.Size = New System.Drawing.Size(167, 16)
         Me.Label28.TabIndex = 1283
         Me.Label28.Text = "--------------------------------"
         '
         Me.Label40.AutoSize = True
         Me.Label40.Location = New System.Drawing.Point(730, 670)
         Me.Label40.Name = "Label40"
-        Me.Label40.Size = New System.Drawing.Size(168, 16)
+        Me.Label40.Size = New System.Drawing.Size(167, 16)
         Me.Label40.TabIndex = 1305
         Me.Label40.Text = "--------------------------------"
         '
         Me.Label20.AutoSize = True
         Me.Label20.Location = New System.Drawing.Point(728, 594)
         Me.Label20.Name = "Label20"
-        Me.Label20.Size = New System.Drawing.Size(168, 16)
+        Me.Label20.Size = New System.Drawing.Size(167, 16)
         Me.Label20.TabIndex = 1297
         Me.Label20.Text = "--------------------------------"
         '
         Me.Label44.AutoSize = True
         Me.Label44.Location = New System.Drawing.Point(728, 462)
         Me.Label44.Name = "Label44"
-        Me.Label44.Size = New System.Drawing.Size(168, 16)
+        Me.Label44.Size = New System.Drawing.Size(167, 16)
         Me.Label44.TabIndex = 1367
         Me.Label44.Text = "--------------------------------"
         '
         Me.Label37.AutoSize = True
         Me.Label37.Location = New System.Drawing.Point(46, 529)
         Me.Label37.Name = "Label37"
-        Me.Label37.Size = New System.Drawing.Size(92, 16)
+        Me.Label37.Size = New System.Drawing.Size(91, 16)
         Me.Label37.TabIndex = 1289
         Me.Label37.Text = "銷售收款流水號"
         Me.Label37.Visible = False
         Me.Label24.AutoSize = True
         Me.Label24.Location = New System.Drawing.Point(46, 451)
         Me.Label24.Name = "Label24"
-        Me.Label24.Size = New System.Drawing.Size(92, 16)
+        Me.Label24.Size = New System.Drawing.Size(91, 16)
         Me.Label24.TabIndex = 1260
         Me.Label24.Text = "倉儲資料流水號"
         Me.Label24.Visible = False
         Me.Label27.AutoSize = True
         Me.Label27.Location = New System.Drawing.Point(46, 491)
         Me.Label27.Name = "Label27"
-        Me.Label27.Size = New System.Drawing.Size(92, 16)
+        Me.Label27.Size = New System.Drawing.Size(91, 16)
         Me.Label27.TabIndex = 1267
         Me.Label27.Text = "銷售備註流水號"
         Me.Label27.Visible = False
         Me.Label23.AutoSize = True
         Me.Label23.Location = New System.Drawing.Point(46, 413)
         Me.Label23.Name = "Label23"
-        Me.Label23.Size = New System.Drawing.Size(92, 16)
+        Me.Label23.Size = New System.Drawing.Size(91, 16)
         Me.Label23.TabIndex = 1258
         Me.Label23.Text = "銷售資料流水號"
         Me.Label23.Visible = False
         Me.大間距_ch.AutoSize = True
         Me.大間距_ch.Location = New System.Drawing.Point(435, 151)
         Me.大間距_ch.Name = "大間距_ch"
-        Me.大間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.大間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.大間距_ch.TabIndex = 1334
         Me.大間距_ch.Text = "大間距"
         Me.大間距_ch.UseVisualStyleBackColor = True
         Me.中間距_ch.AutoSize = True
         Me.中間距_ch.Location = New System.Drawing.Point(366, 151)
         Me.中間距_ch.Name = "中間距_ch"
-        Me.中間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.中間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.中間距_ch.TabIndex = 1333
         Me.中間距_ch.Text = "中間距"
         Me.中間距_ch.UseVisualStyleBackColor = True
         Me.小間距_ch.AutoSize = True
         Me.小間距_ch.Location = New System.Drawing.Point(297, 151)
         Me.小間距_ch.Name = "小間距_ch"
-        Me.小間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.小間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.小間距_ch.TabIndex = 1332
         Me.小間距_ch.Text = "小間距"
         Me.小間距_ch.UseVisualStyleBackColor = True
         Me.已審核資料_ch.AutoSize = True
         Me.已審核資料_ch.Location = New System.Drawing.Point(154, 151)
         Me.已審核資料_ch.Name = "已審核資料_ch"
-        Me.已審核資料_ch.Size = New System.Drawing.Size(111, 20)
+        Me.已審核資料_ch.Size = New System.Drawing.Size(110, 20)
         Me.已審核資料_ch.TabIndex = 1335
         Me.已審核資料_ch.Text = "已審核資料顯示"
         Me.已審核資料_ch.TextAlign = System.Drawing.ContentAlignment.BottomRight
         Me.Label50.AutoSize = True
         Me.Label50.Location = New System.Drawing.Point(46, 631)
         Me.Label50.Name = "Label50"
-        Me.Label50.Size = New System.Drawing.Size(92, 16)
+        Me.Label50.Size = New System.Drawing.Size(91, 16)
         Me.Label50.TabIndex = 1338
         Me.Label50.Text = "運費資料流水號"
         Me.Label50.Visible = False
         Me.顯示_bt.Text = "顯示物料控件"
         Me.顯示_bt.UseVisualStyleBackColor = True
         '
+        '稅金25_tb
+        '
+        Me.稅金25_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.稅金25_tb.ForeColor = System.Drawing.Color.Green
+        Me.稅金25_tb.Location = New System.Drawing.Point(814, 683)
+        Me.稅金25_tb.Name = "稅金25_tb"
+        Me.稅金25_tb.Size = New System.Drawing.Size(81, 23)
+        Me.稅金25_tb.TabIndex = 1563
+        Me.稅金25_tb.Text = "0"
+        Me.稅金25_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label51
+        '
+        Me.Label51.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label51.AutoSize = True
+        Me.Label51.ForeColor = System.Drawing.Color.Green
+        Me.Label51.Location = New System.Drawing.Point(731, 686)
+        Me.Label51.Name = "Label51"
+        Me.Label51.Size = New System.Drawing.Size(77, 16)
+        Me.Label51.TabIndex = 1562
+        Me.Label51.Text = "稅   金   2.5%"
+        '
         '銷售單審核
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
     Friend WithEvents Reset1_bt As Button
     Friend WithEvents Label44 As Label
     Friend WithEvents 刷卡可刪除_ch As CheckBox
+    Friend WithEvents 稅金25_tb As TextBox
+    Friend WithEvents Label51 As Label
 End Class

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

     Private Sub Set_合記計算()
         Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
-        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0"
+        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0" : 稅金25_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             If 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
-                刷卡總和_tb.Text = Val(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
+                刷卡總和_tb.Text = CLng(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
             End If
         Next
-        刷卡稅金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.02))
+        刷卡稅金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.02))
         '-------002-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
-            銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
-            售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
+            銷售合計_tb.Text = CLng(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
+            售價小計_tb.Text = CLng(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                 If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
-                物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                物料成本_tb.Text = CLng(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
-                其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                其他成本_tb.Text = CLng(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
 
             If 銷售明細_dgv("含稅", i).Value = True Then
-                稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
+                稅金_tb.Text = CLng(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
         管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
 
-        If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
+        If CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) = 0 Then
             通知_lb.Text = "無稅金"
-        ElseIf Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) <> 0 Then
-            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) > Val(刷卡稅金_tb.Text) Then
+        ElseIf CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) <> 0 Then
+            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) > CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) < CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
         End If
 
-        If 稅金存檔 <> Val(稅金_tb.Text) Then
+        If 稅金存檔 <> CLng(稅金_tb.Text) Then
             稅金_tb.Text = 稅金存檔
-            售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-            銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
-        ElseIf 稅金存檔 = Val(稅金_tb.Text) Then
+            售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+            銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
+        ElseIf 稅金存檔 = CLng(稅金_tb.Text) Then
             稅金_tb.Text = 稅金存檔
-            銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
-            售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-        End If
+            銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
+            售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+        End If : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
-            收入小計_tb.Text = Val(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
-            支出小計_tb.Text = Val(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
+            收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
+            支出小計_tb.Text = CLng(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
         Next
-        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
+        額外收支_tb.Text = CLng(收入小計_tb.Text) - CLng(支出小計_tb.Text)
         '-------004-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim 金額 As Integer = 0
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
                 金額 = 金額 + 收款事項_dgv("金額", i).Value
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
-                收款事項_dgv("金額", i).Value = CInt(Val(銷售合計_tb.Text)) - 金額
+                收款事項_dgv("金額", i).Value = CInt(CLng(銷售合計_tb.Text)) - 金額
             End If
         Next
         '-------005-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
             司機運費_tb.Text = "0"
         Else
             If 運費 = 0 Then
-                If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
+                If (不含1類銷售小記 - CLng(其他成本_tb.Text)) <= CLng(最低售價_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) - Val(其他成本_tb.Text)) / 100 * 3
+                ElseIf (不含1類銷售小記 - CLng(其他成本_tb.Text)) > CLng(最低售價_cb.Text) Then
+                    司機運費_tb.Text = (不含1類銷售小記 - CLng(稅金_tb.Text) - CLng(刷卡傭金_tb.Text) - CLng(其他成本_tb.Text)) / 100 * 3
                 End If
             Else
                 司機運費_tb.Text = 運費
             End If
         End If
         '-------006-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text) - Val(刷卡傭金_tb.Text)
+        預估利潤_tb.Text = CLng(售價小計_tb.Text) + CLng(額外收支_tb.Text) - CLng(其他成本_tb.Text) - CLng(物料成本_tb.Text) -
+                           CLng(司機運費_tb.Text) - CLng(管銷費用_tb.Text) - CLng(刷卡傭金_tb.Text) + (CLng(稅金_tb.Text) / 2)
         If 銷售衍生運費_dgv.Rows.Count > 0 Then
             For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
-                預估利潤_tb.Text = Val(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+                預估利潤_tb.Text = CLng(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
             Next
         End If
         '-------007-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
-        收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
-        司機運費_tb.Text = Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(Val(預估利潤_tb.Text), "#,##0")
-        物料成本_tb.Text = Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(Val(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Format(Val(刷卡總和_tb.Text), "#,##0")
-        刷卡稅金_tb.Text = Format(Val(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Format(Val(刷卡傭金_tb.Text), "#,##0")
+        售價小計_tb.Text = Format(CLng(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(CLng(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(CLng(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Format(CLng(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(CLng(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(CLng(額外收支_tb.Text), "#,##0")
+        司機運費_tb.Text = Format(CLng(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(CLng(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(CLng(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Format(CLng(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(CLng(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Format(CLng(刷卡總和_tb.Text), "#,##0")
+        刷卡稅金_tb.Text = Format(CLng(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Format(CLng(刷卡傭金_tb.Text), "#,##0") : 稅金25_tb.Text = Strings.Format(CLng(稅金25_tb.Text), "#,##0.0")
     End Sub
     Private Sub 指定倉庫_cb_下拉表單資料載入()
         If 需要全部庫存區域清單_ch.Checked = True Then
         料號_tb.Enabled = False : 供應商編碼_tb.Visible = False : 中間距_ch.Checked = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定
 
         指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入() : 送貨地點_cb_下拉表單資料載入()
-        首次開啟 = False : Set_清單() : Set_清單1() :: 首次開啟 = True '--------------------資料讀取
+        首次開啟 = False : Set_清單() : Set_清單1() : 首次開啟 = True '--------------------資料讀取
 
         If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
             字體_NUD.Value = 9
         End If
     End Sub
     Private Sub 銷售備註_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售備註_dgv.CellEndEdit
-        If (Val(銷售備註_dgv.Rows(e.RowIndex).Cells("收入").Value) <> 0 And Val(銷售備註_dgv.Rows(e.RowIndex).Cells("支出").Value) <> 0) Then
+        If (CLng(銷售備註_dgv.Rows(e.RowIndex).Cells("收入").Value) <> 0 And CLng(銷售備註_dgv.Rows(e.RowIndex).Cells("支出").Value) <> 0) Then
             MsgBox("支出與收入不能同時有金額")
             Set_清單5()
             Exit Sub
             If e.RowIndex = -1 Then : Else
                 料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = 物料清單_dgv("供應商", e.RowIndex).Value.ToString
                 品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString : 最大庫存量_tb.Text = 物料清單_dgv("最低庫存量", e.RowIndex).Value.ToString
-                庫存量_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
-                可申請_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - Val(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
+                庫存量_tb.Text = CLng(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
+                可申請_tb.Text = CLng(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - CLng(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
 
                 物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖()
                 If dr.Read() Then
 
                                 Dim 排序 As Integer
                                 SQL_銷售明細表_排序()
-                                If dr.Read() Then : 排序 = Val(dr("排序")) + 1 : Else : 排序 = 1 : End If : PA11 = 排序
+                                If dr.Read() Then : 排序 = CLng(dr("排序")) + 1 : Else : 排序 = 1 : End If : PA11 = 排序
 
                                 SQL_銷售單申請_銷售明細表_新增() : conn.Close()
                                 Set_清單4() : Set_清單()
     Private Sub Reset_bt_Click(sender As Object, e As EventArgs) Handles Reset_bt.Click
         Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
-        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0"
+        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 稅金25_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             If 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
-                刷卡總和_tb.Text = Val(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
+                刷卡總和_tb.Text = CLng(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
             End If
         Next
-        刷卡稅金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.02))
+        刷卡稅金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.02))
         '-------002-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
-            銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
-            售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
+            銷售合計_tb.Text = CLng(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
+            售價小計_tb.Text = CLng(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                 If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
-                物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                物料成本_tb.Text = CLng(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                 If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
-                其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                其他成本_tb.Text = CLng(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
 
             If 銷售明細_dgv("含稅", i).Value = True Then
-                稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
+                稅金_tb.Text = CLng(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
         管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
 
-        If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
+        If CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) = 0 Then
             通知_lb.Text = "無稅金"
-        ElseIf Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) <> 0 Then
-            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) > Val(刷卡稅金_tb.Text) Then
+        ElseIf CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) <> 0 Then
+            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) > CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) < CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
         End If
 
-        If 稅金存檔 <> Val(稅金_tb.Text) Then
+        If 稅金存檔 <> CLng(稅金_tb.Text) Then
             稅金_tb.Text = 稅金存檔
-            售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-            銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
-        ElseIf 稅金存檔 = Val(稅金_tb.Text) Then
+            售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+            銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
+        ElseIf 稅金存檔 = CLng(稅金_tb.Text) Then
             稅金_tb.Text = 稅金存檔
-            銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
-            售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-        End If
+            銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
+            售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+        End If : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
-            收入小計_tb.Text = Val(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
-            支出小計_tb.Text = Val(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
+            收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
+            支出小計_tb.Text = CLng(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
         Next
-        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
+        額外收支_tb.Text = CLng(收入小計_tb.Text) - CLng(支出小計_tb.Text)
         '-------004-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim 金額 As Integer = 0
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
                 金額 = 金額 + 收款事項_dgv("金額", i).Value
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
-                收款事項_dgv("金額", i).Value = CInt(Val(銷售合計_tb.Text)) - 金額
+                收款事項_dgv("金額", i).Value = CInt(CLng(銷售合計_tb.Text)) - 金額
             End If
         Next
         '-------005-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         If 送貨地點_cb.Text = "" Or 送貨地點_cb.Text = "自取" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then
             司機運費_tb.Text = "0"
         Else
-            If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
+            If (不含1類銷售小記 - CLng(其他成本_tb.Text)) <= CLng(最低售價_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) - Val(其他成本_tb.Text)) / 100 * 3
+            ElseIf (不含1類銷售小記 - CLng(其他成本_tb.Text)) > CLng(最低售價_cb.Text) Then
+                司機運費_tb.Text = (不含1類銷售小記 - CLng(稅金_tb.Text) - CLng(刷卡傭金_tb.Text) - CLng(其他成本_tb.Text)) / 100 * 3
             End If
         End If
         存檔1()
         '-------004-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text) - Val(刷卡傭金_tb.Text)
+        預估利潤_tb.Text = CLng(售價小計_tb.Text) + CLng(額外收支_tb.Text) - CLng(其他成本_tb.Text) - CLng(物料成本_tb.Text) -
+                           CLng(司機運費_tb.Text) - CLng(管銷費用_tb.Text) - CLng(刷卡傭金_tb.Text) + (CLng(稅金_tb.Text) / 2)
         If 銷售衍生運費_dgv.Rows.Count > 0 Then
             For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
-                預估利潤_tb.Text = Val(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+                預估利潤_tb.Text = CLng(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
             Next
         End If
         '-------004-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
-        收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
-        司機運費_tb.Text = Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(Val(預估利潤_tb.Text), "#,##0")
-        物料成本_tb.Text = Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(Val(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Format(Val(刷卡總和_tb.Text), "#,##0")
-        刷卡稅金_tb.Text = Format(Val(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Format(Val(刷卡傭金_tb.Text), "#,##0")
+        售價小計_tb.Text = Format(CLng(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(CLng(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(CLng(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Format(CLng(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(CLng(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(CLng(額外收支_tb.Text), "#,##0")
+        司機運費_tb.Text = Format(CLng(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(CLng(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(CLng(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Format(CLng(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(CLng(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Format(CLng(刷卡總和_tb.Text), "#,##0")
+        刷卡稅金_tb.Text = Format(CLng(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Format(CLng(刷卡傭金_tb.Text), "#,##0") : 稅金25_tb.Text = Strings.Format(CLng(稅金25_tb.Text), "#,##0.0")
     End Sub
     Private Sub 司機運費_tb_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 司機運費_tb.KeyPress
         If e.KeyChar = Chr(13) Then
     Private Sub Reset1_bt_Click(sender As Object, e As EventArgs) Handles Reset1_bt.Click
         Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
-        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0"
+        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0" : 稅金25_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             If 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
-                刷卡總和_tb.Text = Val(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
+                刷卡總和_tb.Text = CLng(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
             End If
         Next
-        刷卡稅金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(Val(刷卡總和_tb.Text) * 0.02)
+        刷卡稅金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(CLng(刷卡總和_tb.Text) * 0.02)
         '-------002-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
-            銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
-            售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
+            銷售合計_tb.Text = CLng(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
+            售價小計_tb.Text = CLng(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                 If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
-                物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                物料成本_tb.Text = CLng(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                 If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
-                其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                其他成本_tb.Text = CLng(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
 
             If 銷售明細_dgv("含稅", i).Value = True Then
-                稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
+                稅金_tb.Text = CLng(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
         管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
-        銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
+        銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
 
-        If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
+        If CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) = 0 Then
             通知_lb.Text = "無稅金"
-        ElseIf Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) <> 0 Then
-            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) > Val(刷卡稅金_tb.Text) Then
+        ElseIf CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) <> 0 Then
+            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) > CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) < CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
         End If
 
-        稅金存檔 = Val(稅金_tb.Text)
+        稅金存檔 = CLng(稅金_tb.Text) : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
-            收入小計_tb.Text = Val(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
-            支出小計_tb.Text = Val(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
+            收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
+            支出小計_tb.Text = CLng(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
         Next
-        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
+        額外收支_tb.Text = CLng(收入小計_tb.Text) - CLng(支出小計_tb.Text)
         '-------004-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim 金額 As Integer = 0
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
                 金額 = 金額 + 收款事項_dgv("金額", i).Value
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
-                收款事項_dgv("金額", i).Value = CInt(Val(銷售合計_tb.Text)) - 金額
+                收款事項_dgv("金額", i).Value = CInt(CLng(銷售合計_tb.Text)) - 金額
             End If
         Next
         '-------005-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
             司機運費_tb.Text = "0"
         Else
             If 運費 = 0 Then
-                If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
+                If (不含1類銷售小記 - CLng(其他成本_tb.Text)) <= CLng(最低售價_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) - Val(其他成本_tb.Text)) / 100 * 3
+                ElseIf (不含1類銷售小記 - CLng(其他成本_tb.Text)) > CLng(最低售價_cb.Text) Then
+                    司機運費_tb.Text = (不含1類銷售小記 - CLng(稅金_tb.Text) - CLng(刷卡傭金_tb.Text) - CLng(其他成本_tb.Text)) / 100 * 3
                 End If
             Else
                 司機運費_tb.Text = 運費
             End If
         End If
         '-------006-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text) - Val(刷卡傭金_tb.Text)
+        預估利潤_tb.Text = CLng(售價小計_tb.Text) + CLng(額外收支_tb.Text) - CLng(其他成本_tb.Text) - CLng(物料成本_tb.Text) -
+                           CLng(司機運費_tb.Text) - CLng(管銷費用_tb.Text) - CLng(刷卡傭金_tb.Text) + (CLng(稅金_tb.Text) / 2)
         If 銷售衍生運費_dgv.Rows.Count > 0 Then
             For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
-                預估利潤_tb.Text = Val(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+                預估利潤_tb.Text = CLng(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
             Next
         End If
         '-------007-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        售價小計_tb.Text = Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(Val(銷售合計_tb.Text), "#,##0")
-        收入小計_tb.Text = Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(Val(額外收支_tb.Text), "#,##0")
-        司機運費_tb.Text = Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(Val(預估利潤_tb.Text), "#,##0")
-        物料成本_tb.Text = Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(Val(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Format(Val(刷卡總和_tb.Text), "#,##0")
-        刷卡稅金_tb.Text = Format(Val(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Format(Val(刷卡傭金_tb.Text), "#,##0")
+        售價小計_tb.Text = Format(CLng(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Format(CLng(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Format(CLng(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Format(CLng(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Format(CLng(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Format(CLng(額外收支_tb.Text), "#,##0")
+        司機運費_tb.Text = Format(CLng(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Format(CLng(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Format(CLng(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Format(CLng(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Format(CLng(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Format(CLng(刷卡總和_tb.Text), "#,##0")
+        刷卡稅金_tb.Text = Format(CLng(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Format(CLng(刷卡傭金_tb.Text), "#,##0") : 稅金25_tb.Text = Strings.Format(CLng(稅金25_tb.Text), "#,##0.0")
     End Sub
     Private Sub 刷卡收款_bt_Click(sender As Object, e As EventArgs) Handles 刷卡收款_bt.Click
         If 流水號_tb.Text = "" Then

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

     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        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()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
         Me.未審核_lb = New System.Windows.Forms.Label()
         Me.開立庫存調整單_bt = New System.Windows.Forms.Button()
         Me.ComboBox6 = New System.Windows.Forms.ComboBox()
         Me.幣別_cb = New System.Windows.Forms.ComboBox()
         Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.轉高層_cb = New System.Windows.Forms.CheckBox()
         Me.查_bt = New System.Windows.Forms.Button()
         Me.列印_bt = New System.Windows.Forms.Button()
         Me.顯示_bt = New System.Windows.Forms.Button()
-        Me.轉高層_cb = New System.Windows.Forms.CheckBox()
+        Me.稅金25_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.銷售明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.區域庫存_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         '
         '銷售單據_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
+        DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33
         Me.銷售單據_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.銷售單據_dgv.BackgroundColor = System.Drawing.Color.White
         Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售單據_dgv.Location = New System.Drawing.Point(1, 27)
         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
+        DataGridViewCellStyle34.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle34
         Me.銷售單據_dgv.RowTemplate.Height = 24
         Me.銷售單據_dgv.Size = New System.Drawing.Size(192, 141)
         Me.銷售單據_dgv.TabIndex = 1154
         '
         '銷售明細_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.White
-        Me.銷售明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle35.BackColor = System.Drawing.Color.White
+        Me.銷售明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle35
         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
         Me.銷售明細_dgv.Location = New System.Drawing.Point(2, 29)
         Me.銷售明細_dgv.Name = "銷售明細_dgv"
         Me.銷售明細_dgv.RowHeadersWidth = 5
-        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
+        DataGridViewCellStyle36.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle36
         Me.銷售明細_dgv.RowTemplate.Height = 24
         Me.銷售明細_dgv.Size = New System.Drawing.Size(910, 360)
         Me.銷售明細_dgv.TabIndex = 1199
         '
         '區域庫存_dgv
         '
-        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
+        DataGridViewCellStyle37.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.區域庫存_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle37
         Me.區域庫存_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.區域庫存_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.區域庫存_dgv.Location = New System.Drawing.Point(3, 3)
         Me.區域庫存_dgv.Name = "區域庫存_dgv"
         Me.區域庫存_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.區域庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle38.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.區域庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle38
         Me.區域庫存_dgv.RowTemplate.Height = 24
         Me.區域庫存_dgv.Size = New System.Drawing.Size(81, 70)
         Me.區域庫存_dgv.TabIndex = 1245
         '
         '物料清單_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.物料清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.物料清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39
         Me.物料清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.物料清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.物料清單_dgv.Location = New System.Drawing.Point(2, 79)
         Me.物料清單_dgv.Name = "物料清單_dgv"
         Me.物料清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle40.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle40
         Me.物料清單_dgv.RowTemplate.Height = 24
         Me.物料清單_dgv.Size = New System.Drawing.Size(518, 326)
         Me.物料清單_dgv.TabIndex = 1205
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.稅金25_tb)
+        Me.Panel1.Controls.Add(Me.Label1)
         Me.Panel1.Controls.Add(Me.流水號2_bt)
         Me.Panel1.Controls.Add(Me.轉財務系統_bt)
         Me.Panel1.Controls.Add(Me.財務單據退回_bt)
         Me.Panel1.Controls.Add(Me.今天_bt)
-        Me.Panel1.Controls.Add(Me.Label55)
-        Me.Panel1.Controls.Add(Me.申請人_tb)
         Me.Panel1.Controls.Add(Me.營運成本收支單號_tb)
         Me.Panel1.Controls.Add(Me.Label56)
         Me.Panel1.Controls.Add(Me.Label57)
         Me.Panel1.Controls.Add(Me.申請日期_dtp)
-        Me.Panel1.Controls.Add(Me.ComboBox4)
         Me.Panel1.Controls.Add(Me.ComboBox3)
-        Me.Panel1.Controls.Add(Me.會科碼1_ch)
         Me.Panel1.Controls.Add(Me.會科1_ch)
         Me.Panel1.Controls.Add(Me.ComboBox1)
         Me.Panel1.Controls.Add(Me.Label52)
         '
         Me.流水號2_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.流水號2_bt.Enabled = False
-        Me.流水號2_bt.Location = New System.Drawing.Point(586, 1463)
+        Me.流水號2_bt.Location = New System.Drawing.Point(586, 1793)
         Me.流水號2_bt.Name = "流水號2_bt"
         Me.流水號2_bt.Size = New System.Drawing.Size(75, 23)
         Me.流水號2_bt.TabIndex = 1557
         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(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
         Me.轉財務系統_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.轉財務系統_bt.Location = New System.Drawing.Point(660, 777)
+        Me.轉財務系統_bt.Location = New System.Drawing.Point(447, 777)
         Me.轉財務系統_bt.Name = "轉財務系統_bt"
         Me.轉財務系統_bt.Size = New System.Drawing.Size(115, 25)
         Me.轉財務系統_bt.TabIndex = 1558
         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.Red
         Me.財務單據退回_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.財務單據退回_bt.Location = New System.Drawing.Point(660, 802)
+        Me.財務單據退回_bt.Location = New System.Drawing.Point(447, 802)
         Me.財務單據退回_bt.Name = "財務單據退回_bt"
         Me.財務單據退回_bt.Size = New System.Drawing.Size(115, 25)
         Me.財務單據退回_bt.TabIndex = 1557
         '
         Me.Label55.AutoSize = True
         Me.Label55.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label55.Location = New System.Drawing.Point(227, 808)
+        Me.Label55.Location = New System.Drawing.Point(243, 433)
         Me.Label55.Name = "Label55"
         Me.Label55.Size = New System.Drawing.Size(43, 16)
         Me.Label55.TabIndex = 1546
         Me.Label55.Text = "申請人"
+        Me.Label55.Visible = False
         '
         '申請人_tb
         '
-        Me.申請人_tb.Location = New System.Drawing.Point(273, 804)
+        Me.申請人_tb.Location = New System.Drawing.Point(199, 544)
         Me.申請人_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.申請人_tb.Name = "申請人_tb"
-        Me.申請人_tb.Size = New System.Drawing.Size(118, 23)
+        Me.申請人_tb.Size = New System.Drawing.Size(81, 23)
         Me.申請人_tb.TabIndex = 1545
         Me.申請人_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.申請人_tb.WordWrap = False
         '
         '營運成本收支單號_tb
         '
-        Me.營運成本收支單號_tb.Location = New System.Drawing.Point(451, 804)
+        Me.營運成本收支單號_tb.Location = New System.Drawing.Point(312, 804)
         Me.營運成本收支單號_tb.Name = "營運成本收支單號_tb"
         Me.營運成本收支單號_tb.Size = New System.Drawing.Size(134, 23)
         Me.營運成本收支單號_tb.TabIndex = 1544
         '
         Me.Label56.AutoSize = True
         Me.Label56.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label56.Location = New System.Drawing.Point(394, 808)
+        Me.Label56.Location = New System.Drawing.Point(255, 808)
         Me.Label56.Name = "Label56"
         Me.Label56.Size = New System.Drawing.Size(55, 16)
         Me.Label56.TabIndex = 1543
         '
         Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox4.FormattingEnabled = True
-        Me.ComboBox4.Location = New System.Drawing.Point(367, 778)
+        Me.ComboBox4.Location = New System.Drawing.Point(202, 504)
         Me.ComboBox4.Name = "ComboBox4"
         Me.ComboBox4.Size = New System.Drawing.Size(78, 24)
         Me.ComboBox4.TabIndex = 1537
+        Me.ComboBox4.Visible = False
         '
         'ComboBox3
         '
         Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox3.FormattingEnabled = True
-        Me.ComboBox3.Location = New System.Drawing.Point(245, 778)
+        Me.ComboBox3.Location = New System.Drawing.Point(184, 778)
         Me.ComboBox3.Name = "ComboBox3"
         Me.ComboBox3.Size = New System.Drawing.Size(121, 24)
         Me.ComboBox3.TabIndex = 1536
         '
         Me.會科碼1_ch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.會科碼1_ch.FormattingEnabled = True
-        Me.會科碼1_ch.Location = New System.Drawing.Point(183, 778)
+        Me.會科碼1_ch.Location = New System.Drawing.Point(202, 465)
         Me.會科碼1_ch.Name = "會科碼1_ch"
         Me.會科碼1_ch.Size = New System.Drawing.Size(61, 24)
         Me.會科碼1_ch.TabIndex = 1535
+        Me.會科碼1_ch.Visible = False
         '
         '會科1_ch
         '
         '
         Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox1.FormattingEnabled = True
-        Me.ComboBox1.Location = New System.Drawing.Point(446, 778)
+        Me.ComboBox1.Location = New System.Drawing.Point(307, 778)
         Me.ComboBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.ComboBox1.Name = "ComboBox1"
         Me.ComboBox1.Size = New System.Drawing.Size(139, 24)
         '
         Me.刷卡總和_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.刷卡總和_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.刷卡總和_tb.Location = New System.Drawing.Point(836, 391)
+        Me.刷卡總和_tb.Location = New System.Drawing.Point(836, 393)
         Me.刷卡總和_tb.Name = "刷卡總和_tb"
         Me.刷卡總和_tb.Size = New System.Drawing.Size(81, 23)
         Me.刷卡總和_tb.TabIndex = 1314
         '
         Me.刷卡稅金_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.刷卡稅金_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.刷卡稅金_tb.Location = New System.Drawing.Point(836, 415)
+        Me.刷卡稅金_tb.Location = New System.Drawing.Point(836, 419)
         Me.刷卡稅金_tb.Name = "刷卡稅金_tb"
         Me.刷卡稅金_tb.Size = New System.Drawing.Size(81, 23)
         Me.刷卡稅金_tb.TabIndex = 1316
         '
         Me.刷卡傭金_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.刷卡傭金_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.刷卡傭金_tb.Location = New System.Drawing.Point(836, 439)
+        Me.刷卡傭金_tb.Location = New System.Drawing.Point(836, 445)
         Me.刷卡傭金_tb.Name = "刷卡傭金_tb"
         Me.刷卡傭金_tb.Size = New System.Drawing.Size(81, 23)
         Me.刷卡傭金_tb.TabIndex = 1312
         '
         Me.其他成本_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.其他成本_tb.ForeColor = System.Drawing.Color.Green
-        Me.其他成本_tb.Location = New System.Drawing.Point(836, 701)
+        Me.其他成本_tb.Location = New System.Drawing.Point(836, 751)
         Me.其他成本_tb.Name = "其他成本_tb"
         Me.其他成本_tb.Size = New System.Drawing.Size(81, 23)
         Me.其他成本_tb.TabIndex = 1309
         Me.Reset_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Reset_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Reset_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Reset_bt.Location = New System.Drawing.Point(889, 545)
+        Me.Reset_bt.Location = New System.Drawing.Point(889, 558)
         Me.Reset_bt.Name = "Reset_bt"
         Me.Reset_bt.Size = New System.Drawing.Size(30, 24)
         Me.Reset_bt.TabIndex = 1306
         '
         Me.物料成本_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.物料成本_tb.ForeColor = System.Drawing.Color.Green
-        Me.物料成本_tb.Location = New System.Drawing.Point(836, 677)
+        Me.物料成本_tb.Location = New System.Drawing.Point(836, 726)
         Me.物料成本_tb.Name = "物料成本_tb"
         Me.物料成本_tb.Size = New System.Drawing.Size(81, 23)
         Me.物料成本_tb.TabIndex = 1304
         '
         Me.預估利潤_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.預估利潤_tb.ForeColor = System.Drawing.Color.Green
-        Me.預估利潤_tb.Location = New System.Drawing.Point(836, 749)
+        Me.預估利潤_tb.Location = New System.Drawing.Point(836, 801)
         Me.預估利潤_tb.Name = "預估利潤_tb"
         Me.預估利潤_tb.Size = New System.Drawing.Size(81, 23)
         Me.預估利潤_tb.TabIndex = 1302
         '
         Me.管銷費用_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.管銷費用_tb.ForeColor = System.Drawing.Color.Green
-        Me.管銷費用_tb.Location = New System.Drawing.Point(836, 725)
+        Me.管銷費用_tb.Location = New System.Drawing.Point(836, 776)
         Me.管銷費用_tb.Name = "管銷費用_tb"
         Me.管銷費用_tb.Size = New System.Drawing.Size(81, 23)
         Me.管銷費用_tb.TabIndex = 1300
         '
         Me.司機運費_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.司機運費_tb.ForeColor = System.Drawing.Color.Black
-        Me.司機運費_tb.Location = New System.Drawing.Point(836, 571)
+        Me.司機運費_tb.Location = New System.Drawing.Point(836, 587)
         Me.司機運費_tb.Name = "司機運費_tb"
         Me.司機運費_tb.Size = New System.Drawing.Size(81, 23)
         Me.司機運費_tb.TabIndex = 1296
         '
         Me.額外收支_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.額外收支_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.額外收支_tb.Location = New System.Drawing.Point(836, 648)
+        Me.額外收支_tb.Location = New System.Drawing.Point(836, 669)
         Me.額外收支_tb.Name = "額外收支_tb"
         Me.額外收支_tb.Size = New System.Drawing.Size(81, 23)
         Me.額外收支_tb.TabIndex = 1281
         '
         Me.銷售合計_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.銷售合計_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售合計_tb.Location = New System.Drawing.Point(836, 516)
+        Me.銷售合計_tb.Location = New System.Drawing.Point(836, 528)
         Me.銷售合計_tb.Name = "銷售合計_tb"
         Me.銷售合計_tb.Size = New System.Drawing.Size(81, 23)
         Me.銷售合計_tb.TabIndex = 1279
         '
         Me.稅金_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.稅金_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.稅金_tb.Location = New System.Drawing.Point(836, 492)
+        Me.稅金_tb.Location = New System.Drawing.Point(836, 503)
         Me.稅金_tb.Name = "稅金_tb"
         Me.稅金_tb.Size = New System.Drawing.Size(81, 23)
         Me.稅金_tb.TabIndex = 1277
         '
         Me.支出小計_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.支出小計_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.支出小計_tb.Location = New System.Drawing.Point(836, 624)
+        Me.支出小計_tb.Location = New System.Drawing.Point(836, 644)
         Me.支出小計_tb.Name = "支出小計_tb"
         Me.支出小計_tb.Size = New System.Drawing.Size(81, 23)
         Me.支出小計_tb.TabIndex = 1275
         '
         Me.收入小計_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.收入小計_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.收入小計_tb.Location = New System.Drawing.Point(836, 600)
+        Me.收入小計_tb.Location = New System.Drawing.Point(836, 619)
         Me.收入小計_tb.Name = "收入小計_tb"
         Me.收入小計_tb.Size = New System.Drawing.Size(81, 23)
         Me.收入小計_tb.TabIndex = 1273
         '
         Me.售價小計_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.售價小計_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.售價小計_tb.Location = New System.Drawing.Point(836, 468)
+        Me.售價小計_tb.Location = New System.Drawing.Point(836, 477)
         Me.售價小計_tb.Name = "售價小計_tb"
         Me.售價小計_tb.Size = New System.Drawing.Size(81, 23)
         Me.售價小計_tb.TabIndex = 1271
         '
         '客戶資料_dgv
         '
-        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
+        DataGridViewCellStyle41.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.客戶資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle41
         Me.客戶資料_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), 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(17, 18444)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 18774)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.客戶資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle42.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.客戶資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle42
         Me.客戶資料_dgv.RowTemplate.Height = 24
         Me.客戶資料_dgv.Size = New System.Drawing.Size(191, 92)
         Me.客戶資料_dgv.TabIndex = 1254
         '
         '收款事項_dgv
         '
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle43.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle43
         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
         Me.收款事項_dgv.Location = New System.Drawing.Point(2, 669)
         Me.收款事項_dgv.Name = "收款事項_dgv"
         Me.收款事項_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle44.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle44
         Me.收款事項_dgv.RowTemplate.Height = 24
         Me.收款事項_dgv.Size = New System.Drawing.Size(750, 102)
         Me.收款事項_dgv.TabIndex = 1282
         '
         '銷售衍生運費_dgv
         '
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.銷售衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.銷售衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45
         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
         Me.銷售衍生運費_dgv.Location = New System.Drawing.Point(2, 542)
         Me.銷售衍生運費_dgv.Name = "銷售衍生運費_dgv"
         Me.銷售衍生運費_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle46.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle46
         Me.銷售衍生運費_dgv.RowTemplate.Height = 24
         Me.銷售衍生運費_dgv.Size = New System.Drawing.Size(750, 102)
         Me.銷售衍生運費_dgv.TabIndex = 1334
         '
         '銷售備註_dgv
         '
-        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.銷售備註_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle47.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.銷售備註_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle47
         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
         Me.銷售備註_dgv.Location = New System.Drawing.Point(2, 414)
         Me.銷售備註_dgv.Name = "銷售備註_dgv"
         Me.銷售備註_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle16.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
+        DataGridViewCellStyle48.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle48
         Me.銷售備註_dgv.RowTemplate.Height = 24
         Me.銷售備註_dgv.Size = New System.Drawing.Size(750, 102)
         Me.銷售備註_dgv.TabIndex = 1250
         Me.Label53.AutoSize = True
         Me.Label53.Location = New System.Drawing.Point(1, 761)
         Me.Label53.Name = "Label53"
-        Me.Label53.Size = New System.Drawing.Size(712, 16)
+        Me.Label53.Size = New System.Drawing.Size(487, 16)
         Me.Label53.TabIndex = 1539
         Me.Label53.Text = "_________________________________________________________________________________" &
-    "____________________________________________________________"
+    "_______________"
         '
         'Reset1_bt
         '
         Me.Reset1_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Reset1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Reset1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Reset1_bt.Location = New System.Drawing.Point(810, 491)
+        Me.Reset1_bt.Location = New System.Drawing.Point(810, 502)
         Me.Reset1_bt.Name = "Reset1_bt"
         Me.Reset1_bt.Size = New System.Drawing.Size(25, 24)
         Me.Reset1_bt.TabIndex = 1364
         Me.Label46.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label46.AutoSize = True
         Me.Label46.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.Label46.Location = New System.Drawing.Point(751, 418)
+        Me.Label46.Location = New System.Drawing.Point(751, 422)
         Me.Label46.Name = "Label46"
         Me.Label46.Size = New System.Drawing.Size(82, 16)
         Me.Label46.TabIndex = 1315
         Me.Label47.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label47.AutoSize = True
         Me.Label47.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.Label47.Location = New System.Drawing.Point(751, 394)
+        Me.Label47.Location = New System.Drawing.Point(751, 396)
         Me.Label47.Name = "Label47"
         Me.Label47.Size = New System.Drawing.Size(82, 16)
         Me.Label47.TabIndex = 1313
         Me.Label48.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label48.AutoSize = True
         Me.Label48.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.Label48.Location = New System.Drawing.Point(751, 442)
+        Me.Label48.Location = New System.Drawing.Point(751, 448)
         Me.Label48.Name = "Label48"
         Me.Label48.Size = New System.Drawing.Size(82, 16)
         Me.Label48.TabIndex = 1311
         Me.Label45.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label45.AutoSize = True
         Me.Label45.ForeColor = System.Drawing.Color.Green
-        Me.Label45.Location = New System.Drawing.Point(753, 704)
+        Me.Label45.Location = New System.Drawing.Point(753, 754)
         Me.Label45.Name = "Label45"
         Me.Label45.Size = New System.Drawing.Size(82, 16)
         Me.Label45.TabIndex = 1308
         Me.Label43.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label43.AutoSize = True
         Me.Label43.ForeColor = System.Drawing.Color.Green
-        Me.Label43.Location = New System.Drawing.Point(753, 680)
+        Me.Label43.Location = New System.Drawing.Point(753, 729)
         Me.Label43.Name = "Label43"
         Me.Label43.Size = New System.Drawing.Size(82, 16)
         Me.Label43.TabIndex = 1303
         Me.Label42.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label42.AutoSize = True
         Me.Label42.ForeColor = System.Drawing.Color.Green
-        Me.Label42.Location = New System.Drawing.Point(754, 752)
+        Me.Label42.Location = New System.Drawing.Point(754, 804)
         Me.Label42.Name = "Label42"
         Me.Label42.Size = New System.Drawing.Size(82, 16)
         Me.Label42.TabIndex = 1301
         Me.Label41.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label41.AutoSize = True
         Me.Label41.ForeColor = System.Drawing.Color.Green
-        Me.Label41.Location = New System.Drawing.Point(754, 728)
+        Me.Label41.Location = New System.Drawing.Point(754, 779)
         Me.Label41.Name = "Label41"
         Me.Label41.Size = New System.Drawing.Size(82, 16)
         Me.Label41.TabIndex = 1299
         Me.Label38.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label38.AutoSize = True
         Me.Label38.ForeColor = System.Drawing.Color.Black
-        Me.Label38.Location = New System.Drawing.Point(753, 575)
+        Me.Label38.Location = New System.Drawing.Point(753, 591)
         Me.Label38.Name = "Label38"
         Me.Label38.Size = New System.Drawing.Size(82, 16)
         Me.Label38.TabIndex = 1295
         Me.送貨地點_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.送貨地點_cb.FormattingEnabled = True
         Me.送貨地點_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "Y"})
-        Me.送貨地點_cb.Location = New System.Drawing.Point(809, 545)
+        Me.送貨地點_cb.Location = New System.Drawing.Point(809, 560)
         Me.送貨地點_cb.Name = "送貨地點_cb"
         Me.送貨地點_cb.Size = New System.Drawing.Size(78, 24)
         Me.送貨地點_cb.TabIndex = 1291
         Me.Label35.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label35.AutoSize = True
         Me.Label35.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label35.Location = New System.Drawing.Point(751, 651)
+        Me.Label35.Location = New System.Drawing.Point(751, 672)
         Me.Label35.Name = "Label35"
         Me.Label35.Size = New System.Drawing.Size(85, 16)
         Me.Label35.TabIndex = 1280
         Me.Label34.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label34.AutoSize = True
         Me.Label34.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label34.Location = New System.Drawing.Point(751, 519)
+        Me.Label34.Location = New System.Drawing.Point(751, 531)
         Me.Label34.Name = "Label34"
         Me.Label34.Size = New System.Drawing.Size(85, 16)
         Me.Label34.TabIndex = 1278
         Me.Label33.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label33.AutoSize = True
         Me.Label33.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label33.Location = New System.Drawing.Point(754, 495)
+        Me.Label33.Location = New System.Drawing.Point(754, 506)
         Me.Label33.Name = "Label33"
         Me.Label33.Size = New System.Drawing.Size(60, 16)
         Me.Label33.TabIndex = 1276
         Me.Label30.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label30.AutoSize = True
         Me.Label30.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label30.Location = New System.Drawing.Point(751, 472)
+        Me.Label30.Location = New System.Drawing.Point(751, 481)
         Me.Label30.Name = "Label30"
         Me.Label30.Size = New System.Drawing.Size(84, 16)
         Me.Label30.TabIndex = 1270
         '
         Me.Label28.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label28.AutoSize = True
-        Me.Label28.Location = New System.Drawing.Point(751, 589)
+        Me.Label28.Location = New System.Drawing.Point(751, 606)
         Me.Label28.Name = "Label28"
         Me.Label28.Size = New System.Drawing.Size(167, 16)
         Me.Label28.TabIndex = 1283
         '
         Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label20.AutoSize = True
-        Me.Label20.Location = New System.Drawing.Point(753, 549)
+        Me.Label20.Location = New System.Drawing.Point(753, 564)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(55, 16)
         Me.Label20.TabIndex = 1292
         '
         Me.Label39.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label39.AutoSize = True
-        Me.Label39.Location = New System.Drawing.Point(753, 534)
+        Me.Label39.Location = New System.Drawing.Point(753, 547)
         Me.Label39.Name = "Label39"
         Me.Label39.Size = New System.Drawing.Size(167, 16)
         Me.Label39.TabIndex = 1297
         '
         Me.Label40.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label40.AutoSize = True
-        Me.Label40.Location = New System.Drawing.Point(752, 666)
+        Me.Label40.Location = New System.Drawing.Point(752, 688)
         Me.Label40.Name = "Label40"
         Me.Label40.Size = New System.Drawing.Size(167, 16)
         Me.Label40.TabIndex = 1298
         '
         Me.Label51.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label51.AutoSize = True
-        Me.Label51.Location = New System.Drawing.Point(752, 457)
+        Me.Label51.Location = New System.Drawing.Point(752, 463)
         Me.Label51.Name = "Label51"
         Me.Label51.Size = New System.Drawing.Size(167, 16)
         Me.Label51.TabIndex = 1365
         '
         Me.Label54.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label54.AutoSize = True
-        Me.Label54.Location = New System.Drawing.Point(207, 761)
+        Me.Label54.Location = New System.Drawing.Point(366, 761)
         Me.Label54.Name = "Label54"
-        Me.Label54.Size = New System.Drawing.Size(712, 16)
+        Me.Label54.Size = New System.Drawing.Size(387, 16)
         Me.Label54.TabIndex = 1540
-        Me.Label54.Text = "_________________________________________________________________________________" &
-    "____________________________________________________________"
+        Me.Label54.Text = "____________________________________________________________________________"
         '
         'Label32
         '
         Me.Label32.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label32.AutoSize = True
         Me.Label32.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label32.Location = New System.Drawing.Point(752, 627)
+        Me.Label32.Location = New System.Drawing.Point(752, 647)
         Me.Label32.Name = "Label32"
         Me.Label32.Size = New System.Drawing.Size(84, 16)
         Me.Label32.TabIndex = 1274
         Me.Label31.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label31.AutoSize = True
         Me.Label31.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label31.Location = New System.Drawing.Point(751, 603)
+        Me.Label31.Location = New System.Drawing.Point(751, 622)
         Me.Label31.Name = "Label31"
         Me.Label31.Size = New System.Drawing.Size(84, 16)
         Me.Label31.TabIndex = 1272
         Me.Panel2.Controls.Add(Me.Label27)
         Me.Panel2.Controls.Add(Me.銷售收款流水號_tb)
         Me.Panel2.Controls.Add(Me.最低售價_cb)
+        Me.Panel2.Controls.Add(Me.申請人_tb)
+        Me.Panel2.Controls.Add(Me.Label55)
         Me.Panel2.Controls.Add(Me.地區_cb)
         Me.Panel2.Controls.Add(Me.最低運費_cb)
         Me.Panel2.Controls.Add(Me.清空_bt)
         Me.Panel2.Controls.Add(Me.Label37)
         Me.Panel2.Controls.Add(Me.供應商_cb)
         Me.Panel2.Controls.Add(Me.售價_nud)
+        Me.Panel2.Controls.Add(Me.ComboBox4)
         Me.Panel2.Controls.Add(Me.Label22)
         Me.Panel2.Controls.Add(Me.供應商編碼_cb)
+        Me.Panel2.Controls.Add(Me.會科碼1_ch)
         Me.Panel2.Controls.Add(Me.查詢_tb)
         Me.Panel2.Controls.Add(Me.成本_nud)
         Me.Panel2.Controls.Add(Me.Label17)
         Me.Panel3.Size = New System.Drawing.Size(934, 685)
         Me.Panel3.TabIndex = 1339
         '
+        '轉高層_cb
+        '
+        Me.轉高層_cb.AutoSize = True
+        Me.轉高層_cb.ForeColor = System.Drawing.Color.Green
+        Me.轉高層_cb.Location = New System.Drawing.Point(544, 28)
+        Me.轉高層_cb.Name = "轉高層_cb"
+        Me.轉高層_cb.Size = New System.Drawing.Size(62, 20)
+        Me.轉高層_cb.TabIndex = 1366
+        Me.轉高層_cb.Text = "轉高層"
+        Me.轉高層_cb.UseVisualStyleBackColor = True
+        '
         '查_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.Text = "顯示物料控件"
         Me.顯示_bt.UseVisualStyleBackColor = True
         '
-        '轉高層_cb
+        '稅金25_tb
         '
-        Me.轉高層_cb.AutoSize = True
-        Me.轉高層_cb.ForeColor = System.Drawing.Color.Green
-        Me.轉高層_cb.Location = New System.Drawing.Point(544, 28)
-        Me.轉高層_cb.Name = "轉高層_cb"
-        Me.轉高層_cb.Size = New System.Drawing.Size(62, 20)
-        Me.轉高層_cb.TabIndex = 1366
-        Me.轉高層_cb.Text = "轉高層"
-        Me.轉高層_cb.UseVisualStyleBackColor = True
+        Me.稅金25_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.稅金25_tb.ForeColor = System.Drawing.Color.Green
+        Me.稅金25_tb.Location = New System.Drawing.Point(836, 699)
+        Me.稅金25_tb.Name = "稅金25_tb"
+        Me.稅金25_tb.Size = New System.Drawing.Size(81, 23)
+        Me.稅金25_tb.TabIndex = 1561
+        Me.稅金25_tb.Text = "0"
+        Me.稅金25_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.Green
+        Me.Label1.Location = New System.Drawing.Point(753, 702)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(77, 16)
+        Me.Label1.TabIndex = 1560
+        Me.Label1.Text = "稅   金   2.5%"
         '
         '銷售單申請
         '
     Friend WithEvents 關鍵字查詢會計科目_tb As TextBox
     Friend WithEvents 流水號2_bt As TextBox
     Friend WithEvents 轉高層_cb As CheckBox
+    Friend WithEvents 稅金25_tb As TextBox
+    Friend WithEvents Label1 As Label
 End Class

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

     Private Sub Set_清單()
         物料清單_dgv.DataSource = Nothing : ds.Clear()
         物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        物料清單_dgv.ColumnHeadersHeight = 40
-        物料清單_dgv.AllowUserToAddRows = False
-        物料清單_dgv.RowTemplate.Height = 25
-
-        PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
-        SQL_盤盈盤損申請_物料清單()
+        物料清單_dgv.ColumnHeadersHeight = 40 : 物料清單_dgv.AllowUserToAddRows = False : 物料清單_dgv.RowTemplate.Height = 25
+        PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text : SQL_盤盈盤損申請_物料清單()
         da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
         物料清單_dgv.Columns(0).FillWeight = 90 : 物料清單_dgv.Columns(1).FillWeight = 100 : 物料清單_dgv.Columns(2).FillWeight = 250
         物料清單_dgv.Columns(3).FillWeight = 60 : 物料清單_dgv.Columns(4).Visible = False
     Private Sub Set_清單1()
         銷售單據_dgv.DataSource = Nothing : ds1.Clear()
         銷售單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        銷售單據_dgv.ColumnHeadersHeight = 25
-        銷售單據_dgv.AllowUserToAddRows = False
-        銷售單據_dgv.RowTemplate.Height = 25
-
-        PA19 = 業務_cb.Text
-        SQL_銷售控制表()
+        銷售單據_dgv.ColumnHeadersHeight = 25 : 銷售單據_dgv.AllowUserToAddRows = False : 銷售單據_dgv.RowTemplate.Height = 25
+        PA19 = 業務_cb.Text : SQL_銷售控制表()
         da.Fill(ds1) : 銷售單據_dgv.DataSource = ds1.Tables(0) : conn.Close()
         銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 100 : 銷售單據_dgv.Columns(2).Visible = False : 銷售單據_dgv.Columns(3).Visible = False
         銷售單據_dgv.Columns(4).Visible = False : 銷售單據_dgv.Columns(5).Visible = False : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).Visible = False
     Private Sub Set_清單2()
         客戶資料_dgv.DataSource = Nothing : ds2.Clear()
         客戶資料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        客戶資料_dgv.ColumnHeadersHeight = 25
-        客戶資料_dgv.AllowUserToAddRows = False
-        客戶資料_dgv.RowTemplate.Height = 25
-
-        PA16 = 客戶_tb.Text
-        SQL_銷售單申請_客戶資料驗證()
+        客戶資料_dgv.ColumnHeadersHeight = 25 : 客戶資料_dgv.AllowUserToAddRows = False : 客戶資料_dgv.RowTemplate.Height = 25
+        PA16 = 客戶_tb.Text : SQL_銷售單申請_客戶資料驗證()
         da.Fill(ds2) : 客戶資料_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_清單3()
         區域庫存_dgv.DataSource = Nothing : ds3.Clear()
         區域庫存_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        區域庫存_dgv.ColumnHeadersHeight = 25
-        區域庫存_dgv.AllowUserToAddRows = False
-        區域庫存_dgv.RowTemplate.Height = 25
-
+        區域庫存_dgv.ColumnHeadersHeight = 25 : 區域庫存_dgv.AllowUserToAddRows = False : 區域庫存_dgv.RowTemplate.Height = 25
         PA20 = 料號_tb.Text : SQL_倉名_物料分配查詢()
         da.Fill(ds3) : 區域庫存_dgv.DataSource = ds3.Tables(0) : conn.Close()
         區域庫存_dgv.Columns(0).FillWeight = 200 : 區域庫存_dgv.Columns(1).FillWeight = 80
     Private Sub Set_清單4()
         銷售明細_dgv.DataSource = Nothing : ds4.Clear()
         銷售明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        銷售明細_dgv.ColumnHeadersHeight = 40
-        銷售明細_dgv.AllowUserToAddRows = False
-
-        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then
-            銷售明細_dgv.RowTemplate.Height = 95
-        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then
-            銷售明細_dgv.RowTemplate.Height = 60
-        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then
-            銷售明細_dgv.RowTemplate.Height = 25
-        End If
-
-        PA2 = "" : PA2 = 單號_tb.Text
-        SQL_銷售明細表()
+        銷售明細_dgv.ColumnHeadersHeight = 40 : 銷售明細_dgv.AllowUserToAddRows = False
+        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 銷售明細_dgv.RowTemplate.Height = 95
+        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 銷售明細_dgv.RowTemplate.Height = 60
+        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 銷售明細_dgv.RowTemplate.Height = 25 : End If
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售明細表()
         da.Fill(ds4) : 銷售明細_dgv.DataSource = ds4.Tables(0) : conn.Close()
         Set_銷售明細_dgv_下拉式清單1() : Set_銷售明細_dgv_下拉式清單2() : Set_銷售明細_dgv_下拉式清單3()
         銷售明細_dgv.Columns(0).Visible = False : 銷售明細_dgv.Columns(1).FillWeight = 40 : 銷售明細_dgv.Columns(2).FillWeight = 110 : 銷售明細_dgv.Columns(3).FillWeight = 200
     Private Sub Set_合記計算()
         Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
-        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0"
+        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0" : 稅金25_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             If 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
-                刷卡總和_tb.Text = Val(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
+                刷卡總和_tb.Text = CLng(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
             End If
         Next
-        刷卡稅金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(Val(刷卡總和_tb.Text) * 0.02)
+        刷卡稅金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(CLng(刷卡總和_tb.Text) * 0.02)
         '-------002-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
-            銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
-            售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
+            銷售合計_tb.Text = CLng(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
+            售價小計_tb.Text = CLng(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                 If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
-                物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                物料成本_tb.Text = CLng(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                 If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
-                其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                其他成本_tb.Text = CLng(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
 
             If 銷售明細_dgv("含稅", i).Value = True Then
-                稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
+                稅金_tb.Text = CLng(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
         管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
 
-        If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
+        If CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) = 0 Then
             通知_lb.Text = "無稅金"
-        ElseIf Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) <> 0 Then
-            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) > Val(刷卡稅金_tb.Text) Then
+        ElseIf CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) <> 0 Then
+            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) > CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) < CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
         End If
 
-        If 稅金存檔 <> Val(稅金_tb.Text) Then
+        If 稅金存檔 <> CLng(稅金_tb.Text) Then
             稅金_tb.Text = 稅金存檔
-            售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-            銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
-        ElseIf 稅金存檔 = Val(稅金_tb.Text) Then
+            售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+            銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
+        ElseIf 稅金存檔 = CLng(稅金_tb.Text) Then
             稅金_tb.Text = 稅金存檔
-            銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
-            售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-        End If
+            銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
+            售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+        End If : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
-            收入小計_tb.Text = Val(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
-            支出小計_tb.Text = Val(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
+            收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
+            支出小計_tb.Text = CLng(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
         Next
-        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
+        額外收支_tb.Text = CLng(收入小計_tb.Text) - CLng(支出小計_tb.Text)
         '-------004-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim 金額 As Integer = 0
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
                 金額 = 金額 + 收款事項_dgv("金額", i).Value
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
-                收款事項_dgv("金額", i).Value = CInt(Val(銷售合計_tb.Text)) - 金額
+                收款事項_dgv("金額", i).Value = CInt(CLng(銷售合計_tb.Text)) - 金額
             End If
         Next
         '-------005-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
             司機運費_tb.Text = "0"
         Else
             If 運費 = 0 Then
-                If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
+                If (不含1類銷售小記 - CLng(其他成本_tb.Text)) <= CLng(最低售價_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) - Val(其他成本_tb.Text)) / 100 * 3
+                ElseIf (不含1類銷售小記 - CLng(其他成本_tb.Text)) > CLng(最低售價_cb.Text) Then
+                    司機運費_tb.Text = (不含1類銷售小記 - CLng(稅金_tb.Text) - CLng(刷卡傭金_tb.Text) - CLng(其他成本_tb.Text)) / 100 * 3
                 End If
             Else
                 司機運費_tb.Text = 運費
             End If
         End If
         '-------006-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text) - Val(刷卡傭金_tb.Text)
+        預估利潤_tb.Text = CLng(售價小計_tb.Text) + CLng(額外收支_tb.Text) - CLng(其他成本_tb.Text) - CLng(物料成本_tb.Text) -
+                           CLng(司機運費_tb.Text) - CLng(管銷費用_tb.Text) - CLng(刷卡傭金_tb.Text) + (CLng(稅金_tb.Text) / 2)
         If 銷售衍生運費_dgv.Rows.Count > 0 Then
             For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
-                預估利潤_tb.Text = Val(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+                預估利潤_tb.Text = CLng(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
             Next
         End If
         '-------007-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        售價小計_tb.Text = Strings.Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Strings.Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Strings.Format(Val(銷售合計_tb.Text), "#,##0")
-        收入小計_tb.Text = Strings.Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Strings.Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Strings.Format(Val(額外收支_tb.Text), "#,##0")
-        司機運費_tb.Text = Strings.Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Strings.Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Strings.Format(Val(預估利潤_tb.Text), "#,##0")
-        物料成本_tb.Text = Strings.Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Strings.Format(Val(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Strings.Format(Val(刷卡總和_tb.Text), "#,##0")
-        刷卡稅金_tb.Text = Strings.Format(Val(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Strings.Format(Val(刷卡傭金_tb.Text), "#,##0")
+        售價小計_tb.Text = Strings.Format(CLng(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Strings.Format(CLng(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Strings.Format(CLng(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Strings.Format(CLng(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Strings.Format(CLng(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Strings.Format(CLng(額外收支_tb.Text), "#,##0")
+        司機運費_tb.Text = Strings.Format(CLng(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Strings.Format(CLng(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Strings.Format(CLng(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Strings.Format(CLng(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Strings.Format(CLng(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Strings.Format(CLng(刷卡總和_tb.Text), "#,##0")
+        刷卡稅金_tb.Text = Strings.Format(CLng(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Strings.Format(CLng(刷卡傭金_tb.Text), "#,##0") : 稅金25_tb.Text = Strings.Format(CLng(稅金25_tb.Text), "#,##0")
     End Sub
     Private Sub 指定倉庫_cb_下拉表單資料載入()
         If 需要全部庫存區域清單_ch.Checked = True Then
         End If
     End Sub
     Private Sub 銷售備註_dgvCellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售備註_dgv.CellEndEdit
-        If (Val(銷售備註_dgv.Rows(e.RowIndex).Cells("收入").Value) <> 0 And Val(銷售備註_dgv.Rows(e.RowIndex).Cells("支出").Value) <> 0) Then
+        If (CLng(銷售備註_dgv.Rows(e.RowIndex).Cells("收入").Value) <> 0 And CLng(銷售備註_dgv.Rows(e.RowIndex).Cells("支出").Value) <> 0) Then
             MsgBox("支出與收入不能同時有金額")
             Set_清單5()
             Exit Sub
             If e.RowIndex = -1 Then : Else
                 料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = 物料清單_dgv("供應商", e.RowIndex).Value.ToString
                 品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString : 最大庫存量_tb.Text = 物料清單_dgv("最低庫存量", e.RowIndex).Value.ToString
-                庫存量_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
-                可申請_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - Val(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
+                庫存量_tb.Text = CLng(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
+                可申請_tb.Text = CLng(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - CLng(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
 
                 物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖()
                 If dr.Read() Then
 
                             Dim 排序 As Integer
                             SQL_銷售明細表_排序()
-                            If dr.Read() Then : 排序 = Val(dr("排序")) + 1 : Else : 排序 = 1 : End If : PA11 = 排序
+                            If dr.Read() Then : 排序 = CLng(dr("排序")) + 1 : Else : 排序 = 1 : End If : PA11 = 排序
 
                             SQL_銷售單申請_銷售明細表_新增() : conn.Close()
                             Set_清單4() : Set_清單()
         If 流水號_tb.Text = "" Then
             MsgBox("沒有銷售單號，無法作業。")
         Else
-            If Val(Strings.Left(單號_tb.Text, 1)) = Val(業務號碼) Or Val(登入人級別) <= 1 Then
+            If CLng(Strings.Left(單號_tb.Text, 1)) = CLng(業務號碼) Or CLng(登入人級別) <= 1 Then
                 Dim aa1 As MsgBoxResult = MsgBox("刪除銷售單會連同該單據串連的採購，倉儲等聯繫單據都依同刪除，請再次確定是否刪除該單據?", MsgBoxStyle.OkCancel)
                 If aa1 = MsgBoxResult.Ok Then
                     Dim SSA As String
             If Month(申請日期_dtp.Value) < 10 Then : d = "0" & CStr(Month(申請日期_dtp.Value))
             Else : d = CStr(Month(申請日期_dtp.Value))
             End If
-            If Val(Strings.Right(申請日期_dtp.Value, 2)) < 10 Then : f = "0" & Val(Strings.Right(申請日期_dtp.Value, 2))
-            Else : f = Val(Strings.Right(申請日期_dtp.Value, 2))
+            If CLng(Strings.Right(申請日期_dtp.Value, 2)) < 10 Then : f = "0" & CLng(Strings.Right(申請日期_dtp.Value, 2))
+            Else : f = CLng(Strings.Right(申請日期_dtp.Value, 2))
             End If
             If NUM1 < 10 Then : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(申請日期_dtp.Value)), 2) & d & f & "0" & NUM1
             Else : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(申請日期_dtp.Value)), 2) & d & f & NUM1
     Private Sub Reset_bt_Click(sender As Object, e As EventArgs) Handles Reset_bt.Click
         Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
-        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0"
+        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0" : 稅金25_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             If 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
-                刷卡總和_tb.Text = Val(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
+                刷卡總和_tb.Text = CLng(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
             End If
         Next
-        刷卡稅金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.02))
+        刷卡稅金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.02))
         '-------002-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
-            銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
-            售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
+            銷售合計_tb.Text = CLng(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
+            售價小計_tb.Text = CLng(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                 If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
-                物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                物料成本_tb.Text = CLng(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                 If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
-                其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                其他成本_tb.Text = CLng(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
 
             If 銷售明細_dgv("含稅", i).Value = True Then
-                稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
+                稅金_tb.Text = CLng(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
         管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
 
-        If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
+        If CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) = 0 Then
             通知_lb.Text = "無稅金"
-        ElseIf Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) <> 0 Then
-            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) > Val(刷卡稅金_tb.Text) Then
+        ElseIf CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) <> 0 Then
+            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) > CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) < CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
         End If
 
-        If 稅金存檔 <> Val(稅金_tb.Text) Then
+        If 稅金存檔 <> CLng(稅金_tb.Text) Then
             稅金_tb.Text = 稅金存檔
-            售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-            銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
-        ElseIf 稅金存檔 = Val(稅金_tb.Text) Then
+            售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+            銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
+        ElseIf 稅金存檔 = CLng(稅金_tb.Text) Then
             稅金_tb.Text = 稅金存檔
-            銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
-            售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-        End If
+            銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
+            售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+        End If : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
-            收入小計_tb.Text = Val(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
-            支出小計_tb.Text = Val(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
+            收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
+            支出小計_tb.Text = CLng(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
         Next
-        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
+        額外收支_tb.Text = CLng(收入小計_tb.Text) - CLng(支出小計_tb.Text)
         '-------004-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim 金額 As Integer = 0
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
                 金額 = 金額 + 收款事項_dgv("金額", i).Value
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
-                收款事項_dgv("金額", i).Value = CInt(Val(銷售合計_tb.Text)) - 金額
+                收款事項_dgv("金額", i).Value = CInt(CLng(銷售合計_tb.Text)) - 金額
             End If
         Next
         '-------005-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         If 送貨地點_cb.Text = "" Or 送貨地點_cb.Text = "自取" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then
             司機運費_tb.Text = "0"
         Else
-            If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
+            If (不含1類銷售小記 - CLng(其他成本_tb.Text)) <= CLng(最低售價_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) - Val(其他成本_tb.Text)) / 100 * 3
+            ElseIf (不含1類銷售小記 - CLng(其他成本_tb.Text)) > CLng(最低售價_cb.Text) Then
+                司機運費_tb.Text = (不含1類銷售小記 - CLng(稅金_tb.Text) - CLng(刷卡傭金_tb.Text) - CLng(其他成本_tb.Text)) / 100 * 3
             End If
         End If
         存檔1()
         '-------006-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text) - Val(刷卡傭金_tb.Text)
+        預估利潤_tb.Text = CLng(售價小計_tb.Text) + CLng(額外收支_tb.Text) - CLng(其他成本_tb.Text) - CLng(物料成本_tb.Text) -
+                           CLng(司機運費_tb.Text) - CLng(管銷費用_tb.Text) - CLng(刷卡傭金_tb.Text) + (CLng(稅金_tb.Text) / 2)
         If 銷售衍生運費_dgv.Rows.Count > 0 Then
             For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
-                預估利潤_tb.Text = Val(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+                預估利潤_tb.Text = CLng(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
             Next
         End If
         '-------007-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        售價小計_tb.Text = Strings.Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Strings.Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Strings.Format(Val(銷售合計_tb.Text), "#,##0")
-        收入小計_tb.Text = Strings.Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Strings.Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Strings.Format(Val(額外收支_tb.Text), "#,##0")
-        司機運費_tb.Text = Strings.Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Strings.Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Strings.Format(Val(預估利潤_tb.Text), "#,##0")
-        物料成本_tb.Text = Strings.Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Strings.Format(Val(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Strings.Format(Val(刷卡總和_tb.Text), "#,##0")
-        刷卡稅金_tb.Text = Strings.Format(Val(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Strings.Format(Val(刷卡傭金_tb.Text), "#,##0")
+        售價小計_tb.Text = Strings.Format(CLng(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Strings.Format(CLng(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Strings.Format(CLng(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Strings.Format(CLng(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Strings.Format(CLng(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Strings.Format(CLng(額外收支_tb.Text), "#,##0")
+        司機運費_tb.Text = Strings.Format(CLng(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Strings.Format(CLng(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Strings.Format(CLng(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Strings.Format(CLng(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Strings.Format(CLng(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Strings.Format(CLng(刷卡總和_tb.Text), "#,##0")
+        刷卡稅金_tb.Text = Strings.Format(CLng(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Strings.Format(CLng(刷卡傭金_tb.Text), "#,##0") : 稅金25_tb.Text = Strings.Format(CLng(稅金25_tb.Text), "#,##0")
     End Sub
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
         銷售單據_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
     Private Sub Reset1_bt_Click(sender As Object, e As EventArgs) Handles Reset1_bt.Click
         Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer
         售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0"
-        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0"
+        司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0" : 稅金25_tb.Text = "0"
         '-------001-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             If 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
-                刷卡總和_tb.Text = Val(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
+                刷卡總和_tb.Text = CLng(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value
             End If
         Next
-        刷卡稅金_tb.Text = CInt(Val(Val(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(Val(刷卡總和_tb.Text) * 0.02)
+        刷卡稅金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(CLng(刷卡總和_tb.Text) * 0.02)
         '-------002-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
-            銷售合計_tb.Text = Val(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
-            售價小計_tb.Text = Val(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
+            銷售合計_tb.Text = CLng(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value
+            售價小計_tb.Text = CLng(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)
             If 銷售明細_dgv("無管銷", i).Value = False Then
                 If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                     If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then
                 If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                 If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
-                物料成本_tb.Text = Val(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                物料成本_tb.Text = CLng(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value
             End If
             If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then
                 If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If
                 If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If
-                其他成本_tb.Text = Val(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
+                其他成本_tb.Text = CLng(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value)
                 '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value
             End If
 
             If 銷售明細_dgv("含稅", i).Value = True Then
-                稅金_tb.Text = Val(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
+                稅金_tb.Text = CLng(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value))
             End If
         Next
         管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料
-        銷售合計_tb.Text = Val(售價小計_tb.Text) + Val(稅金_tb.Text)
+        銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text)
 
-        If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
+        If CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) = 0 Then
             通知_lb.Text = "無稅金"
-        ElseIf Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) <> 0 Then
-            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) > Val(刷卡稅金_tb.Text) Then
+        ElseIf CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) <> 0 Then
+            通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text)
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) > CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
-        ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
+        ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) < CLng(刷卡稅金_tb.Text) Then
             通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
         End If
 
-        稅金存檔 = Val(稅金_tb.Text)
+        稅金存檔 = CLng(稅金_tb.Text) : 稅金25_tb.Text = CLng(稅金_tb.Text) / 2
         '-------003-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
-            收入小計_tb.Text = Val(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
-            支出小計_tb.Text = Val(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
+            收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value
+            支出小計_tb.Text = CLng(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value
         Next
-        額外收支_tb.Text = Val(收入小計_tb.Text) - Val(支出小計_tb.Text)
+        額外收支_tb.Text = CLng(收入小計_tb.Text) - CLng(支出小計_tb.Text)
         '-------004-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim 金額 As Integer = 0
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
                 金額 = 金額 + 收款事項_dgv("金額", i).Value
             ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
-                收款事項_dgv("金額", i).Value = CInt(Val(銷售合計_tb.Text)) - 金額
+                收款事項_dgv("金額", i).Value = CInt(CLng(銷售合計_tb.Text)) - 金額
             End If
         Next
         '-------005-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
             司機運費_tb.Text = "0"
         Else
             If 運費 = 0 Then
-                If (不含1類銷售小記 - Val(其他成本_tb.Text)) <= Val(最低售價_cb.Text) Then
+                If (不含1類銷售小記 - CLng(其他成本_tb.Text)) <= CLng(最低售價_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) - Val(其他成本_tb.Text)) / 100 * 3
+                ElseIf (不含1類銷售小記 - CLng(其他成本_tb.Text)) > CLng(最低售價_cb.Text) Then
+                    司機運費_tb.Text = (不含1類銷售小記 - CLng(稅金_tb.Text) - CLng(刷卡傭金_tb.Text) - CLng(其他成本_tb.Text)) / 100 * 3
                 End If
             Else
                 司機運費_tb.Text = 運費
             End If
         End If
         '-------006-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        預估利潤_tb.Text = Val(售價小計_tb.Text) + Val(額外收支_tb.Text) - Val(其他成本_tb.Text) - Val(物料成本_tb.Text) - Val(司機運費_tb.Text) - Val(管銷費用_tb.Text) - Val(刷卡傭金_tb.Text)
+        預估利潤_tb.Text = CLng(售價小計_tb.Text) + CLng(額外收支_tb.Text) - CLng(其他成本_tb.Text) - CLng(物料成本_tb.Text) -
+                           CLng(司機運費_tb.Text) - CLng(管銷費用_tb.Text) - CLng(刷卡傭金_tb.Text) + (CLng(稅金_tb.Text) / 2)
         If 銷售衍生運費_dgv.Rows.Count > 0 Then
             For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1
-                預估利潤_tb.Text = Val(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
+                預估利潤_tb.Text = CLng(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value
             Next
         End If
         '-------007-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        售價小計_tb.Text = Strings.Format(Val(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Strings.Format(Val(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Strings.Format(Val(銷售合計_tb.Text), "#,##0")
-        收入小計_tb.Text = Strings.Format(Val(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Strings.Format(Val(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Strings.Format(Val(額外收支_tb.Text), "#,##0")
-        司機運費_tb.Text = Strings.Format(Val(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Strings.Format(Val(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Strings.Format(Val(預估利潤_tb.Text), "#,##0")
-        物料成本_tb.Text = Strings.Format(Val(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Strings.Format(Val(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Strings.Format(Val(刷卡總和_tb.Text), "#,##0")
-        刷卡稅金_tb.Text = Strings.Format(Val(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Strings.Format(Val(刷卡傭金_tb.Text), "#,##0")
+        售價小計_tb.Text = Strings.Format(CLng(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Strings.Format(CLng(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Strings.Format(CLng(銷售合計_tb.Text), "#,##0")
+        收入小計_tb.Text = Strings.Format(CLng(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Strings.Format(CLng(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Strings.Format(CLng(額外收支_tb.Text), "#,##0")
+        司機運費_tb.Text = Strings.Format(CLng(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Strings.Format(CLng(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Strings.Format(CLng(預估利潤_tb.Text), "#,##0")
+        物料成本_tb.Text = Strings.Format(CLng(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Strings.Format(CLng(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Strings.Format(CLng(刷卡總和_tb.Text), "#,##0")
+        刷卡稅金_tb.Text = Strings.Format(CLng(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Strings.Format(CLng(刷卡傭金_tb.Text), "#,##0") : 稅金25_tb.Text = Strings.Format(CLng(稅金25_tb.Text), "#,##0.0")
     End Sub
     Private Sub 司機運費_tb_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 司機運費_tb.KeyPress
         If e.KeyChar = Chr(13) Then
         xlSheet.Cells(6, 5) = CInt(稅金_tb.Text) : xlSheet.Cells(6, 6) = "手續:" : xlSheet.Cells(6, 7) = 刷卡傭金_tb.Text : xlSheet.Cells(6, 8) = "總額:"
         xlSheet.Cells(6, 9) = 銷售合計_tb.Text : xlSheet.Cells(6, 10) = "餘額:" : xlSheet.Cells(6, 11) = N2 : xlSheet.Cells(8, 2) = "品號"
         xlSheet.Cells(8, 5) = "品名規格" : xlSheet.Cells(8, 8) = "數量" : xlSheet.Cells(8, 9) = "單價" : xlSheet.Cells(8, 11) = "金額" : xlSheet.Cells(8, 12) = "含管銷"
-        xlSheet.Cells(8, 13) = "成本價" : xlSheet.Cells(8, 14) = "廠商名稱"
+        xlSheet.Cells(8, 13) = "成本價" : xlSheet.Cells(8, 14) = "廠商名稱" : xlSheet.Cells(7, 4) = "稅金2.5%:" : xlSheet.Cells(7, 5) = CInt(稅金_tb.Text) / 2
         For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
             xlSheet.Cells(i + 9, 1) = 銷售明細_dgv.Rows(i).Cells("料號").Value
             xlSheet.Cells(i + 9, 3) = 銷售明細_dgv.Rows(i).Cells("品名").Value & " " & 銷售明細_dgv.Rows(i).Cells("備註").Value
         xlSheet.Columns("A:N").Select
         myExcel.Application.PrintCommunication = False : With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "" : .PrintTitleColumns = "" : End With
         myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False
-        With myExcel.ActiveSheet.PageSetup : .LeftHeader = "" : .CenterHeader = "" : .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "" : .RightFooter = ""
-            .LeftMargin = myExcel.Application.InchesToPoints(0.7) : .RightMargin = myExcel.Application.InchesToPoints(0.7) : .TopMargin = myExcel.Application.InchesToPoints(0.75)
-            .BottomMargin = myExcel.Application.InchesToPoints(0.75) : .HeaderMargin = myExcel.Application.InchesToPoints(0.3) : .FooterMargin = myExcel.Application.InchesToPoints(0.3)
-            .PrintHeadings = False : .PrintGridlines = False : .PrintQuality = 1200 : .CenterHorizontally = False : .CenterVertically = False : .Draft = False
-            .FirstPageNumber = xlAutomatic : .BlackAndWhite = False : .Zoom = False : .FitToPagesWide = 1 : .FitToPagesTall = 0
-            .OddAndEvenPagesHeaderFooter = False : .DifferentFirstPageHeaderFooter = False : .ScaleWithDocHeaderFooter = True : .AlignMarginsHeaderFooter = True
-            .EvenPage.LeftHeader.Text = "" : .EvenPage.CenterHeader.Text = "" : .EvenPage.RightHeader.Text = "" : .EvenPage.LeftFooter.Text = "" : .EvenPage.CenterFooter.Text = ""
-            .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = "" : .FirstPage.RightHeader.Text = "" : .FirstPage.LeftFooter.Text = ""
-            .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = ""
-        End With
-        myExcel.Application.PrintCommunication = True : myExcel.Application.PrintCommunication = False
-        With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "" : .PrintTitleColumns = "" : End With
-        myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False
         With myExcel.ActiveSheet.PageSetup : .LeftHeader = "" : .CenterHeader = "" : .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "" : .RightFooter = ""
             .LeftMargin = myExcel.Application.InchesToPoints(0.25) : .RightMargin = myExcel.Application.InchesToPoints(0.25) : .TopMargin = myExcel.Application.InchesToPoints(0.75)
             .BottomMargin = myExcel.Application.InchesToPoints(0.75) : .HeaderMargin = myExcel.Application.InchesToPoints(0.3) : .FooterMargin = myExcel.Application.InchesToPoints(0.3)
             .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = "" : .FirstPage.RightHeader.Text = "" : .FirstPage.LeftFooter.Text = ""
             .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = ""
         End With
-        myExcel.Application.PrintCommunication = True
     End Sub
 End Class

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

             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.BackgroundColor = System.Drawing.Color.White
         Me.獎金彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.獎金彙總_dgv.Location = New System.Drawing.Point(4, 30)
         Me.獎金彙總_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
             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.BackgroundColor = System.Drawing.Color.White
         Me.獎金明細表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.獎金明細表_dgv.Location = New System.Drawing.Point(4, 30)
         Me.獎金明細表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Controls.Add(Me.獎金明細表_dgv)
         Me.Controls.Add(Me.過度表_dgv)
         Me.Controls.Add(Me.彙總1_dgv)
-        Me.Controls.Add(Me.中間日期_dtp)
         Me.Controls.Add(Me.衍生運費_dgv)
+        Me.Controls.Add(Me.中間日期_dtp)
         Me.Controls.Add(Me.外車車資_dgv)
         Me.Controls.Add(Me.備註運費_dgv)
         Me.Controls.Add(Me.料號一_dgv)

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

             If 彙總1_dgv.Rows(I).Cells(3).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(3).Value = 0 : End If
             If 彙總1_dgv.Rows(I).Cells(4).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(4).Value = 0 : End If
             If 彙總1_dgv.Rows(I).Cells(5).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(5).Value = 0 : End If
+            If 彙總1_dgv.Rows(I).Cells(6).Value.ToString = "" Then : 彙總1_dgv.Rows(I).Cells(6).Value = 0 : End If
         Next
     End Sub
     Private Sub Set_清單2()
         獎金明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 獎金明細表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
         獎金明細表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 獎金明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
         獎金明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 獎金明細表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
-
+        獎金明細表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
         獎金明細表_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金明細表_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金明細表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金明細表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金明細表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金明細表_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-
+        獎金明細表_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金明細表_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金明細表_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金明細表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金明細表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金明細表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金明細表_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-
+        獎金明細表_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         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("稅額(2.5%)").Value = "0"
             '--------------銷貨總額---------------------------------------------------------------------------------------------------------------------------------------------
             For II As Integer = 0 To 彙總1_dgv.Rows.Count - 1
                 If 彙總1_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
             For II As Integer = 0 To 彙總1_dgv.Rows.Count - 1
                 If 彙總1_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
                     獎金明細表_dgv.Rows(I).Cells("稅額(發票)").Value = 獎金明細表_dgv.Rows(I).Cells("稅額(發票)").Value + 彙總1_dgv.Rows(II).Cells("稅金").Value
+                    獎金明細表_dgv.Rows(I).Cells("稅額(2.5%)").Value = 獎金明細表_dgv.Rows(I).Cells("稅額(2.5%)").Value + 彙總1_dgv.Rows(II).Cells("稅金2.5%").Value
                 End If
             Next
             '--------------其他(傭金)---------------------------------------------------------------------------------------------------------------------------------------------
         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 = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value - 獎金明細表_dgv.Rows(I).Cells("成本").Value -
-                                                             獎金明細表_dgv.Rows(I).Cells("運費").Value - 獎金明細表_dgv.Rows(I).Cells("稅額(發票)").Value -
+                                                             獎金明細表_dgv.Rows(I).Cells("運費").Value - 獎金明細表_dgv.Rows(I).Cells("稅額(2.5%)").Value -
                                                              獎金明細表_dgv.Rows(I).Cells("其他(傭金)").Value - 獎金明細表_dgv.Rows(I).Cells("手續費(刷卡)").Value -
                                                              獎金明細表_dgv.Rows(I).Cells("管銷費用").Value
         Next
     Private Sub Set_彙總過度表()
         過度表_dgv.DataSource = Nothing : ds8.Clear()
         過度表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        過度表_dgv.ColumnHeadersHeight = 25
-        過度表_dgv.AllowUserToAddRows = False
-        過度表_dgv.RowTemplate.Height = 25
+        過度表_dgv.ColumnHeadersHeight = 25 : 過度表_dgv.AllowUserToAddRows = False : 過度表_dgv.RowTemplate.Height = 25
 
         SQL_業績主表3()
         da.Fill(ds8) : 過度表_dgv.DataSource = ds8.Tables(0) : conn.Close()
         過度表_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
         過度表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
         過度表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 過度表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
+        過度表_dgv.Columns(11).DefaultCellStyle.Format = "#,##0"
         過度表_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         過度表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         過度表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         過度表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        過度表_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        過度表_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         過度表_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         過度表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         過度表_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         過度表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        過度表_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        過度表_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 過度表_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         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("稅額(2.5%)").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
                     過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value = 過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value + 獎金明細表_dgv.Rows(II).Cells("手續費(刷卡)").Value
                 End If
             Next
+            過度表_dgv.Rows(I).Cells("稅額(2.5%)").Value = 過度表_dgv.Rows(I).Cells("稅額(發票)").Value / 2
         Next
         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 = 過度表_dgv.Rows(I).Cells("銷貨總額").Value - 過度表_dgv.Rows(I).Cells("成本").Value - 過度表_dgv.Rows(I).Cells("運費").Value -
-                                                         過度表_dgv.Rows(I).Cells("稅額(發票)").Value - 過度表_dgv.Rows(I).Cells("其他(傭金)").Value - 過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value -
+                                                         過度表_dgv.Rows(I).Cells("稅額(2.5%)").Value - 過度表_dgv.Rows(I).Cells("其他(傭金)").Value - 過度表_dgv.Rows(I).Cells("手續費(刷卡)").Value -
                                                          過度表_dgv.Rows(I).Cells("管銷").Value
 
             Dim 毛利遞減 As Integer = 過度表_dgv.Rows(I).Cells("毛利").Value
         獎金彙總_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
         獎金彙總_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
         獎金彙總_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 獎金彙總_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
+        獎金彙總_dgv.Columns(11).DefaultCellStyle.Format = "#,##0"
         獎金彙總_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金彙總_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金彙總_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        獎金彙總_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金彙總_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金彙總_dgv.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金彙總_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金彙總_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         獎金彙總_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        獎金彙總_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 獎金彙總_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
         NUD1.Value = 0 : NUD2.Value = 0 : NUD3.Value = 0 : NUD4.Value = 0 : NUD5.Value = 0
         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" : 獎金彙總_dgv.Rows(I).Cells("獎金").Value = "0" : 獎金彙總_dgv.Rows(I).Cells("管銷").Value = "0"
+            獎金彙總_dgv.Rows(I).Cells("稅額(2.5%)").Value = "0"
             For II As Integer = 0 To 過度表_dgv.Rows.Count - 1
                 If 過度表_dgv.Rows(II).Cells("姓名").Value.ToString = 獎金彙總_dgv.Rows(I).Cells("姓名").Value.ToString Then
                     獎金彙總_dgv.Rows(I).Cells("銷貨總額").Value = 獎金彙總_dgv.Rows(I).Cells("銷貨總額").Value + 過度表_dgv.Rows(II).Cells("銷貨總額").Value
                     獎金彙總_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("稅額(2.5%)").Value = 獎金彙總_dgv.Rows(I).Cells("稅額(2.5%)").Value + 過度表_dgv.Rows(II).Cells("稅額(2.5%)").Value
                 End If
             Next
             NUD1.Value = NUD1.Value + 獎金彙總_dgv.Rows(I).Cells("運費").Value
         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, 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) = "管銷"
+            xlSheet.Cells(4, 7) = "稅額(2.5%)" : xlSheet.Cells(4, 8) = "稅額(發票)" : xlSheet.Cells(4, 9) = "其他(傭金)" : xlSheet.Cells(4, 10) = "手續費(刷卡)" : xlSheet.Cells(4, 11) = "業績毛利"
+            xlSheet.Cells(4, 12) = "獎金" : 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, 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
+                xlSheet.Cells(I + 5, 6) = 獎金彙總_dgv.Rows(I).Cells("運費").Value : xlSheet.Cells(I + 5, 7) = 獎金彙總_dgv.Rows(I).Cells("稅額(2.5%)").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, 12) = 獎金彙總_dgv.Rows(I).Cells("獎金").Value
+                xlSheet.Cells(I + 5, 5) = 獎金彙總_dgv.Rows(I).Cells("管銷").Value : xlSheet.Cells(I + 5, 8) = 獎金彙總_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, 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) = "管銷"
+            xlSheet.Cells(4, 7) = "稅額(2.5%)" : xlSheet.Cells(4, 8) = "稅額(發票)" : xlSheet.Cells(4, 9) = "其他(傭金)" : xlSheet.Cells(4, 10) = "手續費(刷卡)" : xlSheet.Cells(4, 11) = "業績毛利"
+            xlSheet.Cells(4, 12) = "獎金" : 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, 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
+                xlSheet.Cells(I + 5, 6) = 獎金明細表_dgv.Rows(I).Cells("運費").Value : xlSheet.Cells(I + 5, 7) = 獎金明細表_dgv.Rows(I).Cells("稅額(2.5%)").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, 12) = 獎金明細表_dgv.Rows(I).Cells("獎金基礎").Value
+                xlSheet.Cells(I + 5, 5) = 獎金明細表_dgv.Rows(I).Cells("管銷費用").Value : xlSheet.Cells(I + 5, 8) = 獎金明細表_dgv.Rows(I).Cells("稅額(發票)").Value
                 N1 = I
             Next
         End If
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
 
         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 5
-        xlSheet.Range("C5:K" & N1 + 6 & "").Select() : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
+        xlSheet.Range("C5:L" & 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 & ":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:K1").Select()
+        xlSheet.Range("A1:L1").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: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:K3").Select()
+        xlSheet.Range("A3:L3").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:K1").Select()
+        xlSheet.Range("A1:L1").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:K4").Select()
+        xlSheet.Range("A4:L4").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:K3").Select()
+        xlSheet.Range("A3:L3").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 & ":K" & N1 + 5 & "").Select()
+        xlSheet.Range("A" & N1 + 5 & ":L" & 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