edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

vk

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-12-04 14:02:58 +01:00
parent 670949cf6b
commit 6f5f2e38ad
3 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb
View File

@@ -252,6 +252,7 @@ Public Class usrCntlQualitaetskontrolle
" FROM zsAnmRefs" & " FROM zsAnmRefs" &
" WHERE (VorgangID = 'EF') AND (LRN = '" & EZA_Nr & "')" & " WHERE (VorgangID = 'EF') AND (LRN = '" & EZA_Nr & "')" &
" ORDER BY GeaendertAm DESC", EZOLL_SQL) " 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 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 If dEZOLL.Rows.Count = 0 Then MsgBox("Keine Daten im EZOLL vorhanden, Daten können nicht geladen werden!") : Exit Sub

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.3.1")> <Assembly: AssemblyVersion("1.3.3.2")>
<Assembly: AssemblyFileVersion("1.3.3.1")> <Assembly: AssemblyFileVersion("1.3.3.2")>

4
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -691,9 +691,9 @@ Public Class cVorauskasseOptions
Dim HinweisZusatzTXT = If(HinweisZusatz <> "", ", [Vermerk: " & HinweisZusatz.ToString.Trim & "]", "") Dim HinweisZusatzTXT = If(HinweisZusatz <> "", ", [Vermerk: " & HinweisZusatz.ToString.Trim & "]", "")
Select Case VermerkCodeId Select Case VermerkCodeId
Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert" & betragTXT & HinweisZusatzTXT 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)" 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)" 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 Case Else : Exit Sub
End Select End Select