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

6
UID/frmSeminarDetails.vb
View File

@@ -30,6 +30,7 @@ Public Class frmSeminarDetails
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. Vorstand + Vortr.Name (Standard)", "rptSeminatZert.rpx"))
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. Vorstand", "rptSeminatZertVorst.rpx"))
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. Vorstand + Vortr.Allg / nur Inh. 1", "rptSeminatZertAllgUnter.rpx"))
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. XXX", "rptSeminatZertVorst.rpx"))
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung CS", "rptIntAusb.rpx")) '3
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung AG", "rptIntAusbAG.rpx")) '3
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung ATILLA", "rptIntAusbATILLA.rpx")) '3
@@ -271,7 +272,7 @@ Public Class frmSeminarDetails
semiCert.teilnehmer = teilnehmer
If datBis.Text = datVon.Text Then
semiCert.datum = lblBez.Text
'semiCert.datum = lblBez.Text
semiCert.datum = "hat am " & datVon.Value.ToShortDateString & " am Seminar"
Else
semiCert.datum = "hat vom " & datVon.Value.ToShortDateString & " bis zum " & datBis.Value.ToShortDateString & " am Seminar"
@@ -281,10 +282,11 @@ Public Class frmSeminarDetails
semiCert.inhalt = rtbInhalt.Text
semiCert.inhalt2 = rtbInhalt2.Text
semiCert.referent = txtVortragender.Text
semiCert.unterzeichnender = lblBez.Text
If Not cboReportVorlage.SelectedItem Is Nothing Then frmActiveReprotViewer.report = CType(cboReportVorlage.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value
'frmActiveReprotViewer.semiCert = semiCert
If cbxIntAusbildung.Checked Then
semiCert.datum = lblBez.Text
' semiCert.datum = lblBez.Text
frmActiveReprotViewer.BefüllenSeminarZertifikatIntern(semiCert)
Else
frmActiveReprotViewer.BefüllenSeminarZertifikat(semiCert)