From 6f5f2e38adb335e7b04261724af0c74d458da8f1 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 4 Dec 2024 14:02:58 +0100 Subject: [PATCH] vk --- .../FormulareBaukasten/usrCntlQualitaetskontrolle.vb | 1 + SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/kunden/Vorauskasse/frmVorauskasse.vb | 4 ++-- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb index 02387134..432509dc 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb @@ -252,6 +252,7 @@ Public Class usrCntlQualitaetskontrolle " FROM zsAnmRefs" & " WHERE (VorgangID = 'EF') AND (LRN = '" & EZA_Nr & "')" & " ORDER BY GeaendertAm DESC", EZOLL_SQL) + If dEZOLL Is Nothing Then MsgBox("Keine Daten im EZOLL vorhanden, Daten können nicht geladen werden!") : Exit Sub If dEZOLL.Rows.Count = 0 Then MsgBox("Keine Daten im EZOLL vorhanden, Daten können nicht geladen werden!") : Exit Sub diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 7be6477d..f0a0d2de 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/kunden/Vorauskasse/frmVorauskasse.vb b/SDL/kunden/Vorauskasse/frmVorauskasse.vb index e56b409a..db5eaee5 100644 --- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb +++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb @@ -691,9 +691,9 @@ Public Class cVorauskasseOptions Dim HinweisZusatzTXT = If(HinweisZusatz <> "", ", [Vermerk: " & HinweisZusatz.ToString.Trim & "]", "") Select Case VermerkCodeId Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert" & betragTXT & HinweisZusatzTXT - Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten" & HinweisZusatzTXT : insertBenachrichtigung(myVermerk.Hinweis_Vermerk & betragTXT2 & HinweisZusatzTXT, myVermerk.AvisoID, myVermerk.SendungID, vk_QS_SachbearbeiterId) + Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten" & HinweisZusatzTXT : insertBenachrichtigung(myVermerk.Hinweis_Vermerk & betragTXT2, myVermerk.AvisoID, myVermerk.SendungID, vk_QS_SachbearbeiterId) If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" And (VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ORDU" Or Array.IndexOf(New String() {"VRR", "BH", "GF"}, VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG) > -1) Then myVermerk.Mitarbeiter = "VERRECHNUNG (AUTO)" - Case 59 : myVermerk.Hinweis_Vermerk = "Vorauskasse freigegeben" & HinweisZusatzTXT : insertBenachrichtigung(myVermerk.Hinweis_Vermerk & betragTXT2 & HinweisZusatzTXT, myVermerk.AvisoID, myVermerk.SendungID, vk_QS_SachbearbeiterId) + Case 59 : myVermerk.Hinweis_Vermerk = "Vorauskasse freigegeben" & HinweisZusatzTXT : insertBenachrichtigung(myVermerk.Hinweis_Vermerk & betragTXT2, myVermerk.AvisoID, myVermerk.SendungID, vk_QS_SachbearbeiterId) If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" And (VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ORDU" Or Array.IndexOf(New String() {"VRR", "BH", "GF"}, VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG) > -1) Then myVermerk.Mitarbeiter = "VERRECHNUNG (AUTO)" Case Else : Exit Sub End Select