diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index 0b6f644..65defb5 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -67,8 +67,8 @@ Module Mail 'Exit Sub - PARAM = "THYSSENKRUPP_AUSWERTUNG" - PARAM = "RED_BULL" + 'PARAM = "THYSSENKRUPP_AUSWERTUNG" + 'PARAM = "RED_BULL" '------------------------------------------------------------------------------------ ' PARAM = "NCTSLIST_TOBB" @@ -200,7 +200,7 @@ Module Mail Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1) Dim KdNr As String = "756313" - System.Console.WriteLine("OPTION erkannt: RED_BULL _ Erstellt eine monaltiche Auswertung der DAKSOY-Abfertigungen für RED_BULL.") + System.Console.WriteLine("OPTION erkannt: RED_BULL _ Erstellt eine monaltiche Auswertung der DAKSOY-Abfertigungen für RED_BULL/Alpha Tauri.") System.Console.WriteLine("Auswertung Details gestartet...") If SendEmail_RED_BULL("customs.documents.ata@redbull.com", KdNr, von, bis) Then 'für Andreas Details System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") @@ -537,7 +537,7 @@ Module Mail Dim anhenge As New List(Of String) anhenge.Add(excel) - If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mailto, Subject, Body,,, False,, "d.breimaier@verag.ag", anhenge) Then + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mailto, Subject, Body,,, False,, "d.breimaier@verag.ag;schulung@verag.ag", anhenge) Then System.Console.WriteLine("E-Mail gesendet.") System.Console.WriteLine("Erfolgreich!") Else diff --git a/UID/ADMIN.vbproj b/UID/ADMIN.vbproj index 41b4033..521a2d9 100644 --- a/UID/ADMIN.vbproj +++ b/UID/ADMIN.vbproj @@ -914,6 +914,14 @@ Component Always + + Component + Always + + + Component + Always + Component Always diff --git a/UID/frmSeminarDetails.vb b/UID/frmSeminarDetails.vb index b5b3cda..8b7e93f 100644 --- a/UID/frmSeminarDetails.vb +++ b/UID/frmSeminarDetails.vb @@ -34,6 +34,8 @@ Public Class frmSeminarDetails 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 + cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung IMEX", "rptIntAusbIMEX.rpx")) '3 + cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung FRONT-OFFICE", "rptIntAusbFRONTOFFICE.rpx")) '3 datVon.Format = DateTimePickerFormat.Long diff --git a/UID/rptIntAusbFRONTOFFICE.rpx b/UID/rptIntAusbFRONTOFFICE.rpx new file mode 100644 index 0000000..a6cfc80 --- /dev/null +++ b/UID/rptIntAusbFRONTOFFICE.rpx @@ -0,0 +1,43 @@ + + + +