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

Merge branch 'ADMIN' of https://verag.visualstudio.com/ADMIN/_git/ADMIN into ADMIN

Browse Source
This commit is contained in:
d.breimaier
2023-07-21 13:42:58 +02:00
parent fef5d98ade dc72cdaf4b
commit 3ea02ae688
5 changed files with 100 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
MailSender/MAILSender.vb
View File

@@ -67,8 +67,8 @@ Module Mail
'Exit Sub 'Exit Sub
PARAM = "THYSSENKRUPP_AUSWERTUNG" 'PARAM = "THYSSENKRUPP_AUSWERTUNG"
PARAM = "RED_BULL" 'PARAM = "RED_BULL"
'------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------
' PARAM = "NCTSLIST_TOBB" ' PARAM = "NCTSLIST_TOBB"
@@ -200,7 +200,7 @@ Module Mail
Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1) Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1)
Dim KdNr As String = "756313" 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...") System.Console.WriteLine("Auswertung Details gestartet...")
If SendEmail_RED_BULL("customs.documents.ata@redbull.com", KdNr, von, bis) Then 'für Andreas Details If SendEmail_RED_BULL("customs.documents.ata@redbull.com", KdNr, von, bis) Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
@@ -537,7 +537,7 @@ Module Mail
Dim anhenge As New List(Of String) Dim anhenge As New List(Of String)
anhenge.Add(excel) 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("E-Mail gesendet.")
System.Console.WriteLine("Erfolgreich!") System.Console.WriteLine("Erfolgreich!")
Else Else

8
UID/ADMIN.vbproj
View File

@@ -914,6 +914,14 @@
<SubType>Component</SubType> <SubType>Component</SubType>
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None> </None>
<None Include="rptIntAusbIMEX.rpx">
<SubType>Component</SubType>
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="rptIntAusbFRONTOFFICE.rpx">
<SubType>Component</SubType>
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="rptIntAusbATILLA.rpx"> <None Include="rptIntAusbATILLA.rpx">
<SubType>Component</SubType> <SubType>Component</SubType>
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>

2
UID/frmSeminarDetails.vb
View File

@@ -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 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 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 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 datVon.Format = DateTimePickerFormat.Long

43
UID/rptIntAusbFRONTOFFICE.rpx Normal file
View File

File diff suppressed because one or more lines are too long

43
UID/rptIntAusbIMEX.rpx Normal file
View File

File diff suppressed because one or more lines are too long