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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-11-06 16:31:56 +01:00
parent e2c05a5ea3
commit d4dfcd1744
46 changed files with 3412 additions and 678 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
UID/frmActiveReprotViewer.vb
View File

@@ -74,7 +74,7 @@ Public Class frmActiveReprotViewer
p.Parameters("date").Value = semiCert.datum
p.Parameters("titel").Value = semiCert.titel
p.Parameters("inhalt").Value = semiCert.inhalt
'p.Parameters("referent").Value = semiCert.referent
' p.Parameters("referent").Value = semiCert.referent
If semiCert.unterzeichnender = "" Then
Dim u As String = InputBox("Bitte geben Sie den Unterzeichnenden an:")
p.Parameters("unterz").Value = If(u <> "", u, "Johann Luxbauer")