20240302備份

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

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

         Else
             MsgBox("沒有滿足可以轉財務的需求!!!")
         End If
+        Dim 確認有帳 As Boolean = True
         For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
-            If 收款事項_dgv("內容", i).Value.ToString = "未收餘額" And 收款事項_dgv.Rows(i).Cells("金額").Value = 0 Then
-                轉高層_cb.Checked = True : 交貨日期_dtp.Value = 申請日期_dtp.Value
-                DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text
-                PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text
-                NU3 = 稅金_tb.Text : NU4 = 刷卡傭金_tb.Text : NU5 = 銷售合計_tb.Text : BL7 = 轉高層_cb.Checked : SQL5 = ", 轉高層 = N'" & BL7 & "', 稅金另扣 = N'" & 稅金25_tb.Text & "'"
-                SQL_銷售控制表_修改() : Exit For  '--------------------資料修改
+            If 收款事項_dgv("內容", i).Value.ToString = "未收餘額" And 收款事項_dgv.Rows(i).Cells("金額").Value = 0 And 收款事項_dgv.Rows.Count > 1 Then
+                For ii As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                    If 收款事項_dgv("內容", i).Value.ToString = "" Then
+                        確認有帳 = False
+                    End If
+                Next
+                If 確認有帳 = True Then
+                    轉高層_cb.Checked = True
+                    交貨日期_dtp.Value = 申請日期_dtp.Value
+                    DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text
+                    PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text
+                    NU3 = 稅金_tb.Text : NU4 = 刷卡傭金_tb.Text : NU5 = 銷售合計_tb.Text : BL7 = 轉高層_cb.Checked : SQL5 = ", 轉高層 = N'" & BL7 & "', 稅金另扣 = N'" & 稅金25_tb.Text & "'"
+                    SQL_銷售控制表_修改() : SQL5 = "" : Exit For  '--------------------資料修改
+                End If
             End If
         Next : Set_清單1()
     End Sub