20220722備份

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

YD-ERP-SYS/bin/Debug/YD-ERP-SYS.exe.config

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

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

-62c59e7c1b9e66e55d481c6948615ce77109a26c
+6fb3fca42b6bd1f05d37328ddc7b52edd1ee8f66

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

 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績結單控制表.resources
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運日報表.resources
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.高層客製報表.resources
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbprojAssemblyReference.cache
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.AssemblyReference.cache
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.SuggestedBindingRedirects.cache

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

             If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
                 通知_lb.Text = "無稅金"
             ElseIf Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) <> 0 Then
-                通知_lb.Text = "應刷卡稅金小，有刷卡帶入的稅金，所以拆售價以未稅顯示" : 稅金_tb.Text = Val(稅金_tb.Text) : 售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
+                通知_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
-                通知_lb.Text = "應所拆售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
+                通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
             ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
                 通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
             End If

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

             If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
                 通知_lb.Text = "無稅金"
             ElseIf Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) <> 0 Then
-                通知_lb.Text = "應刷卡稅金小，有刷卡帶入的稅金，所以拆售價以未稅顯示" : 稅金_tb.Text = Val(稅金_tb.Text) : 售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
+                通知_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
-                通知_lb.Text = "應所拆售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
+                通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
             ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
                 通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
             End If
         If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_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)
+            通知_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
-            通知_lb.Text = "應所拆售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
+            通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
         ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
             通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
         End If
         If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_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)
+            通知_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
-            通知_lb.Text = "應所拆售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
+            通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
         ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
             通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
         End If

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

             If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
                 通知_lb.Text = "無稅金"
             ElseIf Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) <> 0 Then
-                通知_lb.Text = "應刷卡稅金小，有刷卡帶入的稅金，所以拆售價以未稅顯示" : 稅金_tb.Text = Val(稅金_tb.Text) : 售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
+                通知_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
-                通知_lb.Text = "應所拆售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
-                '--------------------------------------------------------------------------------------------------------------------------
+                通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
             ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
                 通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
             End If
             If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
                 通知_lb.Text = "無稅金"
             ElseIf Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) <> 0 Then
-                通知_lb.Text = "應刷卡稅金小，有刷卡帶入的稅金，所以拆售價以未稅顯示" : 稅金_tb.Text = Val(稅金_tb.Text) : 售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.Text)
+                通知_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
-                通知_lb.Text = "應所拆售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
+                通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
             ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
                 通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
             End If
 
             If Val(稅金_tb.Text) = 0 And Val(刷卡稅金_tb.Text) = 0 Then
                 通知_lb.Text = "無稅金"
-            ElseIf Val(稅金_tb.Text) = 0 Or Val(刷卡稅金_tb.Text) <> 0 Then
-                通知_lb.Text = "應刷卡稅金小，有刷卡帶入的稅金，所以拆售價以未稅顯示" : 稅金_tb.Text = 刷卡稅金_tb.Text : 售價小計_tb.Text = Val(銷售合計_tb.Text) - Val(稅金_tb.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
-                通知_lb.Text = "應所拆售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
+                通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金"
             ElseIf (Val(稅金_tb.Text) <> 0 Or Val(刷卡稅金_tb.Text) <> 0) And Val(稅金_tb.Text) < Val(刷卡稅金_tb.Text) Then
                 通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。"
             End If
                 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.Cells(i + 9, 8) = 銷售明細_dgv.Rows(i).Cells("數量").Value : xlSheet.Cells(i + 9, 9) = 銷售明細_dgv.Rows(i).Cells("單價").Value
-                xlSheet.Cells(i + 9, 11) = 銷售明細_dgv.Rows(i).Cells("售價").Value : xlSheet.Cells(i + 9, 13) = 銷售明細_dgv.Rows(i).Cells("成本").Value
-                xlSheet.Cells(i + 9, 12) = 銷售明細_dgv.Rows(i).Cells("成本").Value * 1.06
+                xlSheet.Cells(i + 9, 11) = 銷售明細_dgv.Rows(i).Cells("售價").Value : xlSheet.Cells(i + 9, 13) = 銷售明細_dgv.Rows(i).Cells("成本").Value * 銷售明細_dgv.Rows(i).Cells("數量").Value
+                xlSheet.Cells(i + 9, 12) = 銷售明細_dgv.Rows(i).Cells("成本").Value * 1.06 * 銷售明細_dgv.Rows(i).Cells("數量").Value
                 PA30 = Strings.Left(銷售明細_dgv.Rows(i).Cells("料號").Value.ToString, 4) : Set_料號轉簡稱() : xlSheet.Cells(i + 9, 14) = 轉換_tb.Text
                 With xlApp.Selection
                     .Font.Bold = True