diff --git a/app/.vs/windream-Result-Handler/FileContentIndex/2767459c-a475-4fc6-9b9d-b6007e244b23.vsidx b/app/.vs/windream-Result-Handler/FileContentIndex/2767459c-a475-4fc6-9b9d-b6007e244b23.vsidx new file mode 100644 index 0000000..8a57b26 Binary files /dev/null and b/app/.vs/windream-Result-Handler/FileContentIndex/2767459c-a475-4fc6-9b9d-b6007e244b23.vsidx differ diff --git a/app/.vs/windream-Result-Handler/FileContentIndex/597288ca-94fa-4b38-a1c6-bcf6c43000e1.vsidx b/app/.vs/windream-Result-Handler/FileContentIndex/597288ca-94fa-4b38-a1c6-bcf6c43000e1.vsidx new file mode 100644 index 0000000..69661c4 Binary files /dev/null and b/app/.vs/windream-Result-Handler/FileContentIndex/597288ca-94fa-4b38-a1c6-bcf6c43000e1.vsidx differ diff --git a/app/.vs/windream-Result-Handler/FileContentIndex/66905edb-4aee-4e16-8134-e9bd9ddd3a69.vsidx b/app/.vs/windream-Result-Handler/FileContentIndex/66905edb-4aee-4e16-8134-e9bd9ddd3a69.vsidx new file mode 100644 index 0000000..e471cc5 Binary files /dev/null and b/app/.vs/windream-Result-Handler/FileContentIndex/66905edb-4aee-4e16-8134-e9bd9ddd3a69.vsidx differ diff --git a/app/.vs/windream-Result-Handler/FileContentIndex/read.lock b/app/.vs/windream-Result-Handler/FileContentIndex/read.lock new file mode 100644 index 0000000..e69de29 diff --git a/app/ClassWMResulthandler/DD_WMResulthandler.vbproj b/app/ClassWMResulthandler/DD_WMResulthandler.vbproj index 538bc32..86b682f 100644 --- a/app/ClassWMResulthandler/DD_WMResulthandler.vbproj +++ b/app/ClassWMResulthandler/DD_WMResulthandler.vbproj @@ -10,7 +10,8 @@ DD_WMResulthandler 512 Windows - v4.6.1 + v4.6.2 + true @@ -43,11 +44,15 @@ On - - ..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll + + ..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll - - P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Email .NET\Bin\Independentsoft.Email.dll + + False + ..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll + + + ..\..\..\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll @@ -69,8 +74,8 @@ ..\packages\Newtonsoft.Json.11.0.2\lib\net45\Newtonsoft.Json.dll - - ..\packages\NLog.4.7.15\lib\net45\NLog.dll + + ..\packages\NLog.5.0.5\lib\net46\NLog.dll P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll @@ -103,7 +108,6 @@ - @@ -115,6 +119,7 @@ True Application.myapp + True True diff --git a/app/ClassWMResulthandler/ModCurrent.vb b/app/ClassWMResulthandler/ModCurrent.vb index 738063c..d8dd370 100644 --- a/app/ClassWMResulthandler/ModCurrent.vb +++ b/app/ClassWMResulthandler/ModCurrent.vb @@ -3,5 +3,6 @@ Public CURRENToWMConnect As Object Public CURRENToWMSession As Object Public CURRENT_WMDriveLetter As String = "W" + Public CURRENT_TempFiles As List(Of String) End Module diff --git a/app/ClassWMResulthandler/My Project/AssemblyInfo.vb b/app/ClassWMResulthandler/My Project/AssemblyInfo.vb index 6f0c2ef..7abb7cd 100644 --- a/app/ClassWMResulthandler/My Project/AssemblyInfo.vb +++ b/app/ClassWMResulthandler/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/app/ClassWMResulthandler/My Project/Resources.Designer.vb b/app/ClassWMResulthandler/My Project/Resources.Designer.vb index 9ec0e70..f04625a 100644 --- a/app/ClassWMResulthandler/My Project/Resources.Designer.vb +++ b/app/ClassWMResulthandler/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ diff --git a/app/ClassWMResulthandler/My Project/Settings.Designer.vb b/app/ClassWMResulthandler/My Project/Settings.Designer.vb index 103a81f..0720041 100644 --- a/app/ClassWMResulthandler/My Project/Settings.Designer.vb +++ b/app/ClassWMResulthandler/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase diff --git a/app/ClassWMResulthandler/app.config b/app/ClassWMResulthandler/app.config index fe177de..2b521e1 100644 --- a/app/ClassWMResulthandler/app.config +++ b/app/ClassWMResulthandler/app.config @@ -1,11 +1,11 @@ - + - - + + - \ No newline at end of file + diff --git a/app/ClassWMResulthandler/clsDateiverarbeitung.vb b/app/ClassWMResulthandler/clsDateiverarbeitung.vb index 56979ee..3e03485 100644 --- a/app/ClassWMResulthandler/clsDateiverarbeitung.vb +++ b/app/ClassWMResulthandler/clsDateiverarbeitung.vb @@ -4,6 +4,7 @@ Imports System.Text Imports System.Text.RegularExpressions Imports DigitalData.Modules.Logging Imports Newtonsoft.Json +Imports Newtonsoft.Json.Linq Imports WINDREAMLib Public Class clsDateiverarbeitung @@ -211,7 +212,7 @@ Public Class clsDateiverarbeitung Try Const WMObjectEditModeLifeCycleEdit = "&H00000080" Const WMLifeCycleTypeArchivePeriod = 2 - + Logger.Debug($"ArchiveDate for WMFile shall be changed: pFromDate [{pFromDate}] pDateOperator [{pDateOperator}]...") pWMObject.LockFor(WMObjectEditModeLifeCycleEdit) Dim oLC = pWMObject.aWMLifeCycle() @@ -236,6 +237,7 @@ Public Class clsDateiverarbeitung Return False End Select Dim archBis = DateAdd(oDateIntervall, pIntervall, oDateFrom) + Logger.Debug($"...archBis is [{archBis.ToShortDateString}]!") 'Dim pArchiveDate As String = archBis.ToString("yyyy-MM-dd") oLC.SetPeriodEndDate(WMLifeCycleTypeArchivePeriod, archBis) @@ -699,6 +701,18 @@ Public Class clsDateiverarbeitung wdIndexwert = wdIndexwert.ToString.TrimEnd wdIndexwert = wdIndexwert.ToString.TrimStart Logger.Debug("indexvalue read is: '" & wdIndexwert & "'") + Try + Dim oConvertDT As DateTime + If DateTime.TryParse(wdIndexwert, oConvertDT) Then + Logger.Debug("indexvalue is datetime - converting to date") + Dim myDate As Date = wdIndexwert + wdIndexwert = Format(myDate, "yyyy-MM-dd") + End If + Catch ex As Exception + Logger.Warn("clsDateiverarbeitung: Error checking datetime: " & ex.Message) + End Try + + _STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString) Logger.Debug("REGEX_String (" & i & ") " & _STRING) i += 1 diff --git a/app/ClassWMResulthandler/clsEmail.vb b/app/ClassWMResulthandler/clsEmail.vb deleted file mode 100644 index 8fca829..0000000 --- a/app/ClassWMResulthandler/clsEmail.vb +++ /dev/null @@ -1,84 +0,0 @@ - -Imports System -Imports Independentsoft.Email -Imports Independentsoft.Email.Smtp -Imports Independentsoft.Email.Mime -Imports DigitalData.Modules.Logging -Imports System.Net.Mail -Imports System.Net -Imports System.Net.Mime - -Public Class clsEmail - Dim Logger As DigitalData.Modules.Logging.Logger - Private Shared MailAktiv As Boolean = False - Sub New(MyLogger As LogConfig) - Logger = MyLogger.GetLogger() - End Sub - Public Function Email_Send(ByVal pMailSubject As String, ByVal pMailBody As String, pMailto As String, - pMailfrom As String, pMailSmtp As String, pMailport As Integer, pMailUser As String, pMailPW As String, - pAUTH_TYPE As String, Optional pAttment As String = "", Optional pTest As Boolean = False) - Try - Dim oError As Boolean = False - Dim oReceipiants As String() - If pMailto.Contains(";") Then - oReceipiants = pMailto.Split(";") - Else - ReDim Preserve oReceipiants(0) - oReceipiants(0) = pMailto - End If - For Each oMailReceipiant As String In oReceipiants - Dim sClient = New Net.Mail.SmtpClient(pMailSmtp) - Dim mymesssage As New MailMessage - sClient.Port = pMailport - If pAUTH_TYPE = "SSL" Then - sClient.EnableSsl = True - Else - sClient.EnableSsl = False - End If - - sClient.Credentials = New NetworkCredential(pMailUser, pMailPW) - sClient.UseDefaultCredentials = False - If pTest = True Then - mymesssage.Body = $"This is the body (text will be replaced within profile)!
mailsmtp: {pMailSmtp}
mailport: {pMailport}
mailUser: {pMailUser}
mailPW: XXXX
AUTH_TYPE: {pAUTH_TYPE}" - Else - mymesssage.Body = pMailBody - End If - - 'mymesssage.IsBodyHtml = True - Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString(mymesssage.Body) - htmlView.ContentType = New System.Net.Mime.ContentType("text/html") - mymesssage.AlternateViews.Add(htmlView) - pAttment = pAttment.Replace("W:\", "\\windream\objects\") - If pAttment <> String.Empty Then - If System.IO.File.Exists(pAttment) Then - Logger.Debug($"working on attachment {pAttment.ToString}...") - Dim oAttachment As New System.Net.Mail.Attachment(pAttment) - mymesssage.Attachments.Add(oAttachment) - Else - Logger.Warn($"Attachment {pAttment.ToString} is not existing - Mail won't be send!") - oError = True - - End If - End If - - - mymesssage.From = New MailAddress(pMailfrom) - mymesssage.Subject = pMailSubject - mymesssage.To.Add(New MailAddress(oMailReceipiant)) - sClient.Send(mymesssage) - Logger.Info($"Email successfully send to: [{oMailReceipiant}]!") - Logger.Debug($"Email successfully send to: [{oMailReceipiant}]!") - Next - If oError = False Then - Return True - Else - Return False - End If - - Catch ex As Exception - Logger.Error(ex) - Return False - End Try - - End Function -End Class diff --git a/app/ClassWMResulthandler/clsJob_Work.vb b/app/ClassWMResulthandler/clsJob_Work.vb index 5cb8760..5b3b12d 100644 --- a/app/ClassWMResulthandler/clsJob_Work.vb +++ b/app/ClassWMResulthandler/clsJob_Work.vb @@ -1,9 +1,11 @@ Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Messaging + Public Class clsJob_Work Dim Logger As Logger Private MyLogger As LogConfig - Private _mail As clsEmail - Public Sub New(MyLoggerConf As LogConfig, _email As clsEmail) + Private _mail As MailSender + Public Sub New(MyLoggerConf As LogConfig, _email As MailSender) Logger = MyLoggerConf.GetLogger() MyLogger = MyLoggerConf _mail = _email @@ -44,11 +46,25 @@ Public Class clsJob_Work Logger.Warn("PWPlain is Nothing - Could not decrypt passwort 44") Return False End If - If _mail.Email_Send(Email_subject, Email_Body, Email_receipiants, oMAILFROM, oMAILSMTP, oMAIL_PORT, oMAIL_USER, oMAIL_USER_PW, oMAIL_AUTH_TYPE, Attachment_Filename) = True Then - Return True - Else - Logger.Warn("Email_Send_Independentsoft was not successfull!") - Return False + Dim oSendto As New List(Of String) + Dim oSplit = Email_receipiants.Split(";") + For Each oMailAdress In oSplit + oSendto.Add(oMailAdress) + Next + + Dim oAttMt As New List(Of String) + If Attachment_Filename <> String.Empty Then + oAttMt.Add(Attachment_Filename) + End If + If _mail.ConnectToServer(oMAILSMTP, oMAIL_PORT, oMAIL_USER, oPWPlain, oMAIL_AUTH_TYPE) = True Then + Logger.Info($"MAIL: Connection to {oMAILSMTP} successfull!") + If _mail.SendMail(oSendto, oMAILFROM, Email_subject, Email_Body, Now, oAttMt, 0) = True Then + Return True + + Else + Logger.Warn("ConnectToServer was not successfull!") + Return False + End If End If Catch ex As Exception Logger.Error(ex) diff --git a/app/ClassWMResulthandler/clsProfil.vb b/app/ClassWMResulthandler/clsProfil.vb index 26d5da7..7c88fdb 100644 --- a/app/ClassWMResulthandler/clsProfil.vb +++ b/app/ClassWMResulthandler/clsProfil.vb @@ -3,6 +3,7 @@ Imports System.IO Imports System.Text Imports Newtonsoft.Json Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Messaging Public Class clsProfil Inherits clsCURRENT @@ -14,7 +15,7 @@ Public Class clsProfil Private _database As clsDatabase Private _dateiverarbeitung As clsDateiverarbeitung Private _JobWork As clsJob_Work - Private _email As clsEmail + Private _email As MailSender Private Shared WD_aktivesDokument As WMObject #End Region Sub New(MyLogger As LogConfig, PROFIL_ID As Integer) @@ -23,7 +24,7 @@ Public Class clsProfil windream_index = New clsWindream_Index(MyLogger) _database = New clsDatabase(MyLogger) _dateiverarbeitung = New clsDateiverarbeitung(MyLogger) - _email = New clsEmail(MyLogger) + _email = New MailSender(MyLogger) _JobWork = New clsJob_Work(MyLogger, _email) End Sub @@ -167,6 +168,7 @@ Public Class clsProfil oGesamtFiles = windreamSucheErgebnisse.Count Dim oCountDocs As Integer = 0 Dim oEmailAttachment_path As String + For Each WMdok As WMObject In windreamSucheErgebnisse oEmailAttachment_path = String.Empty @@ -256,14 +258,39 @@ Public Class clsProfil If oAttachment_FullFilename <> String.Empty Then Logger.Warn($"Email Attachment {oAttachment_FullFilename}") End If - If _email.Email_Send(oEmail_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE, oAttachment_FullFilename) = True Then + Dim oSendto As New List(Of String) + Dim oSplit = Email_Empfänger.split(";") + For Each oMailAdress In oSplit + oSendto.Add(oMailAdress) + Next + Dim oAttMt As New List(Of String) + If oAttachment_FullFilename <> String.Empty Then + oAttMt.Add(oAttachment_FullFilename) + clsCURRENT.TEMP_FILES.Add(oAttachment_FullFilename) + End If + If Not IsNothing(_email) And _email.Connected2Server = False Then + If _email.ConnectToServer(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE) = True Then + Logger.Info($"MAIL: Connection to {MAILSMTP} successfull!") + Else + Logger.Warn($"{oFileRunNo} Email_ConnectToServer was not successfull!") + FileJobSuccessful = False + End If + + End If + If Not IsNothing(_email) And _email.SendMail(oSendto, MAILFROM, oEmail_Betreff, Email_Body, Now, oAttMt, 0) = True Then FileJobSuccessful = True Else - - Logger.Warn($"{oFileRunNo} Email_Send_Independentsoft 1 was not successfull!") FileJobSuccessful = False + If IsNothing(_email) Then + Logger.Info($"_email is nothing") + Else + Logger.Info($"{oFileRunNo} Email_SendMail was not successfull!") + + End If + End If + Else Logger.Warn($"{oFileRunNo} DT_TBDD_EMAIL is nothing or contains no rows") Return False @@ -312,6 +339,8 @@ Public Class clsProfil End Select Next + + '################################## 'JETZT DER DURCHLAUF DER DATEI-JOBS '################################## @@ -446,8 +475,18 @@ Public Class clsProfil Else Logger.Warn("KEINE File-JOBS für Profil '" & _Profilname & "' angelegt!") End If - Next + Next + Try + If Not IsNothing(_email) Then + If _email.Connected2Server = True Then + _email.DisconnectFromServer() + End If + + End If + Catch ex As Exception + + End Try 'Jetzt nochmal ein Durchlauf für Profiljobs wo alle Dateien abgearbeitet wurden. For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows Logger.Info("New run for " & DR_PR_JB.Item("JOB_TYP").ToString.ToUpper) @@ -594,14 +633,30 @@ Public Class clsProfil Return False End If + Dim oSendto As New List(Of String) + Dim oSplit = Email_Empfänger.split(";") + For Each oMailAdress In oSplit + oSendto.Add(oMailAdress) + Next - If _email.Email_Send(Email_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE, clsCURRENT.CONCATTED_FILE) = True Then - FileJobSuccessful = True - Else - Logger.Warn("Email_Send_Independentsoft 2 was not successfull!") - FileJobSuccessful = False + Dim oAttMt As New List(Of String) + If clsCURRENT.CONCATTED_FILE <> String.Empty Then + oAttMt.Add(clsCURRENT.CONCATTED_FILE) + clsCURRENT.TEMP_FILES.Add(clsCURRENT.CONCATTED_FILE) End If + If _email.ConnectToServer(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE) = True Then + If _email.SendMail(oSendto, MAILFROM, Email_Betreff, Email_Body, Now, oAttMt, 0) = True Then + FileJobSuccessful = True + Else + Logger.Warn("Email_SendMail2 was not successfull!") + FileJobSuccessful = False + End If + _email.DisconnectFromServer() + Else + Logger.Warn($"Email_ConnectToServer2 was not successfull!") + FileJobSuccessful = False + End If Else Logger.Warn("DT_TBDD_EMAIL is nothing or contains no rows") @@ -619,10 +674,12 @@ Public Class clsProfil Try Dim myproc As Process = New Process() myproc.StartInfo.FileName = """" & oFileString & """" - myproc.StartInfo.Verb = "printto" + myproc.StartInfo.Verb = "printto" '"printto" myproc.StartInfo.Arguments = oPrintername myproc.StartInfo.UseShellExecute = True + Logger.Debug($"Send2Printer [{ myproc.StartInfo.FileName} # Verb:{myproc.StartInfo.Verb} # Arguments: {myproc.StartInfo.Arguments}] ") myproc.Start() + System.Threading.Thread.Sleep(500) Dim p As Process p = Process.GetProcessById(myproc.Id) Dim sw As Stopwatch = New Stopwatch() @@ -636,15 +693,24 @@ Public Class clsProfil End If Loop Logger.Debug("...process has exited: ") - Logger.Info($"Send2Printer [{ myproc.StartInfo.FileName} # Verb:{myproc.StartInfo.Verb} # Arguments: {myproc.StartInfo.Arguments}]successfull! ") FileJobSuccessful = True sw.Stop() - ' myproc.Kill() + Logger.Info($"Send2Printer successfully [{ myproc.StartInfo.FileName} # Verb:{myproc.StartInfo.Verb} # Arguments: {myproc.StartInfo.Arguments}] ") + File.Delete(oFileString) Logger.Debug($"Deleted oFileString [{oFileString}]!") Catch ex As Exception - Logger.Warn("Could not print (printto) file: " & oFileString) - Logger.Error(ex) + Dim omsg = "ERROR: Could not print (printto) file: " & oFileString + omsg &= vbNewLine & ex.Message + Logger.Info(omsg) + Logger.Error(ex, omsg) + FileJobSuccessful = False + Try + File.Delete(oFileString) + Catch ex1 As Exception + + End Try + End Try Next Case "Send InfoMail with WM-Search".ToUpper diff --git a/app/ClassWMResulthandler/packages.config b/app/ClassWMResulthandler/packages.config index 7d6ddef..551fb56 100644 --- a/app/ClassWMResulthandler/packages.config +++ b/app/ClassWMResulthandler/packages.config @@ -1,5 +1,5 @@  - + \ No newline at end of file diff --git a/app/DDWDResultHandler/App.config b/app/DDWDResultHandler/App.config index 44be410..819f882 100644 --- a/app/DDWDResultHandler/App.config +++ b/app/DDWDResultHandler/App.config @@ -9,7 +9,7 @@ - + @@ -41,6 +41,10 @@ + + + + - \ No newline at end of file + diff --git a/app/DDWDResultHandler/DDWDResultHandler.vb b/app/DDWDResultHandler/DDWDResultHandler.vb index 19492c6..2e2a358 100644 --- a/app/DDWDResultHandler/DDWDResultHandler.vb +++ b/app/DDWDResultHandler/DDWDResultHandler.vb @@ -171,6 +171,17 @@ Public Class DDWDResultHandler If initresult = True Then '##### Profildurchlauf ######## _profil.Profil_Durchlauf(False) + For Each oFile As String In clsCURRENT.TEMP_FILES + If File.Exists(oFile) Then + Try + File.Delete(oFile) + Catch ex As Exception + + End Try + + End If + Next + ElseIf initresult = False Then Logger.Warn("clsProfil konnte nicht initialisiert werden") notcompleted = True diff --git a/app/DDWDResultHandler/My Project/AssemblyInfo.vb b/app/DDWDResultHandler/My Project/AssemblyInfo.vb index 0a1a781..ffe81eb 100644 --- a/app/DDWDResultHandler/My Project/AssemblyInfo.vb +++ b/app/DDWDResultHandler/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/app/DDWDResultHandler/My Project/Resources.Designer.vb b/app/DDWDResultHandler/My Project/Resources.Designer.vb index 07a8b49..7e99260 100644 --- a/app/DDWDResultHandler/My Project/Resources.Designer.vb +++ b/app/DDWDResultHandler/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ diff --git a/app/DDWDResultHandler/My Project/Settings.Designer.vb b/app/DDWDResultHandler/My Project/Settings.Designer.vb index 7523fa5..1619ffa 100644 --- a/app/DDWDResultHandler/My Project/Settings.Designer.vb +++ b/app/DDWDResultHandler/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase diff --git a/app/DDWDResultHandler/MyDataset.Designer.vb b/app/DDWDResultHandler/MyDataset.Designer.vb index 22bee2d..2d1b26c 100644 --- a/app/DDWDResultHandler/MyDataset.Designer.vb +++ b/app/DDWDResultHandler/MyDataset.Designer.vb @@ -30,7 +30,7 @@ Partial Public Class MyDataset Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -42,7 +42,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -77,7 +77,7 @@ Partial Public Class MyDataset End Sub _ Public ReadOnly Property TBVEKTOR_INDEX() As TBVEKTOR_INDEXDataTable @@ -87,7 +87,7 @@ Partial Public Class MyDataset End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -100,7 +100,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -109,7 +109,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -118,7 +118,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -126,7 +126,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As MyDataset = CType(MyBase.Clone,MyDataset) cln.InitVars @@ -135,19 +135,19 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -171,7 +171,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -180,13 +180,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBVEKTOR_INDEX = CType(MyBase.Tables("TBVEKTOR_INDEX"),TBVEKTOR_INDEXDataTable) If (initTable = true) Then @@ -197,7 +197,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "MyDataset" Me.Prefix = "" @@ -209,13 +209,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBVEKTOR_INDEX() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -223,7 +223,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As MyDataset = New MyDataset() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -272,7 +272,7 @@ Partial Public Class MyDataset Return type End Function - _ + _ Public Delegate Sub TBVEKTOR_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBVEKTOR_INDEXRowChangeEvent) ''' @@ -288,7 +288,7 @@ Partial Public Class MyDataset Private columnValue As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBVEKTOR_INDEX" @@ -298,7 +298,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -316,14 +316,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexname @@ -331,7 +331,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn Get Return Me.columnValue @@ -339,7 +339,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -348,33 +348,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBVEKTOR_INDEXRow Get Return CType(Me.Rows(index),TBVEKTOR_INDEXRow) End Get End Property - _ + _ Public Event TBVEKTOR_INDEXRowChanging As TBVEKTOR_INDEXRowChangeEventHandler - _ + _ Public Event TBVEKTOR_INDEXRowChanged As TBVEKTOR_INDEXRowChangeEventHandler - _ + _ Public Event TBVEKTOR_INDEXRowDeleting As TBVEKTOR_INDEXRowChangeEventHandler - _ + _ Public Event TBVEKTOR_INDEXRowDeleted As TBVEKTOR_INDEXRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBVEKTOR_INDEXRow(ByVal row As TBVEKTOR_INDEXRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBVEKTOR_INDEXRow(ByVal Indexname As String, ByVal Value As String) As TBVEKTOR_INDEXRow Dim rowTBVEKTOR_INDEXRow As TBVEKTOR_INDEXRow = CType(Me.NewRow,TBVEKTOR_INDEXRow) Dim columnValuesArray() As Object = New Object() {Indexname, Value} @@ -384,7 +384,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBVEKTOR_INDEXDataTable = CType(MyBase.Clone,TBVEKTOR_INDEXDataTable) cln.InitVars @@ -392,20 +392,20 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBVEKTOR_INDEXDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnIndexname = MyBase.Columns("Indexname") Me.columnValue = MyBase.Columns("Value") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIndexname) @@ -414,25 +414,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBVEKTOR_INDEXRow() As TBVEKTOR_INDEXRow Return CType(Me.NewRow,TBVEKTOR_INDEXRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBVEKTOR_INDEXRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBVEKTOR_INDEXRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBVEKTOR_INDEXRowChangedEvent) Is Nothing) Then @@ -441,7 +441,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBVEKTOR_INDEXRowChangingEvent) Is Nothing) Then @@ -450,7 +450,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBVEKTOR_INDEXRowDeletedEvent) Is Nothing) Then @@ -459,7 +459,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBVEKTOR_INDEXRowDeletingEvent) Is Nothing) Then @@ -468,13 +468,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBVEKTOR_INDEXRow(ByVal row As TBVEKTOR_INDEXRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -549,14 +549,14 @@ Partial Public Class MyDataset Private tableTBVEKTOR_INDEX As TBVEKTOR_INDEXDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBVEKTOR_INDEX = CType(Me.Table,TBVEKTOR_INDEXDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Indexname() As String Get Try @@ -571,7 +571,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Value() As String Get Try @@ -586,25 +586,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsIndexnameNull() As Boolean Return Me.IsNull(Me.tableTBVEKTOR_INDEX.IndexnameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetIndexnameNull() Me(Me.tableTBVEKTOR_INDEX.IndexnameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsValueNull() As Boolean Return Me.IsNull(Me.tableTBVEKTOR_INDEX.ValueColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetValueNull() Me(Me.tableTBVEKTOR_INDEX.ValueColumn) = Global.System.Convert.DBNull End Sub @@ -613,7 +613,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBVEKTOR_INDEXRowChangeEvent Inherits Global.System.EventArgs @@ -622,7 +622,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBVEKTOR_INDEXRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -630,7 +630,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBVEKTOR_INDEXRow Get Return Me.eventRow @@ -638,7 +638,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction diff --git a/app/DDWDResultHandler/ServiceDDWDResultHandler.vbproj b/app/DDWDResultHandler/ServiceDDWDResultHandler.vbproj index 21eb855..9a63c11 100644 --- a/app/DDWDResultHandler/ServiceDDWDResultHandler.vbproj +++ b/app/DDWDResultHandler/ServiceDDWDResultHandler.vbproj @@ -12,7 +12,7 @@ DDWDResultHandler 512 Console - v4.6.1 + v4.6.2 true @@ -53,7 +53,7 @@ - ..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll + ..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll ..\packages\EntityFramework.6.4.4\lib\net45\EntityFramework.dll @@ -69,8 +69,8 @@ ..\packages\Newtonsoft.Json.11.0.2\lib\net45\Newtonsoft.Json.dll - - ..\packages\NLog.4.7.15\lib\net45\NLog.dll + + ..\packages\NLog.5.0.5\lib\net46\NLog.dll @@ -105,6 +105,7 @@ True Application.myapp + True Component diff --git a/app/DDWDResultHandler/packages.config b/app/DDWDResultHandler/packages.config index c575af3..d755623 100644 --- a/app/DDWDResultHandler/packages.config +++ b/app/DDWDResultHandler/packages.config @@ -2,5 +2,5 @@ - + \ No newline at end of file diff --git a/app/ResultHandler_Konfig/App.config b/app/ResultHandler_Konfig/App.config index a891e9c..e5a2184 100644 --- a/app/ResultHandler_Konfig/App.config +++ b/app/ResultHandler_Konfig/App.config @@ -11,7 +11,7 @@ - + @@ -58,6 +58,10 @@ + + + + - \ No newline at end of file + diff --git a/app/ResultHandler_Konfig/My Project/Resources.Designer.vb b/app/ResultHandler_Konfig/My Project/Resources.Designer.vb index 3e727e5..d1721a7 100644 --- a/app/ResultHandler_Konfig/My Project/Resources.Designer.vb +++ b/app/ResultHandler_Konfig/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ diff --git a/app/ResultHandler_Konfig/My Project/Settings.Designer.vb b/app/ResultHandler_Konfig/My Project/Settings.Designer.vb index 4ecd903..4e53a59 100644 --- a/app/ResultHandler_Konfig/My Project/Settings.Designer.vb +++ b/app/ResultHandler_Konfig/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase diff --git a/app/ResultHandler_Konfig/My Project/licenses.licx b/app/ResultHandler_Konfig/My Project/licenses.licx index e69de29..887f673 100644 --- a/app/ResultHandler_Konfig/My Project/licenses.licx +++ b/app/ResultHandler_Konfig/My Project/licenses.licx @@ -0,0 +1 @@ +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/ResultHandler_Konfig/MyDataset.Designer.vb b/app/ResultHandler_Konfig/MyDataset.Designer.vb index 1e244e2..5903cc0 100644 --- a/app/ResultHandler_Konfig/MyDataset.Designer.vb +++ b/app/ResultHandler_Konfig/MyDataset.Designer.vb @@ -42,7 +42,7 @@ Partial Public Class MyDataset Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -54,7 +54,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -101,7 +101,7 @@ Partial Public Class MyDataset End Sub _ Public ReadOnly Property TBWMRH_KONFIGURATION() As TBWMRH_KONFIGURATIONDataTable @@ -111,7 +111,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWMRH_PROFIL() As TBWMRH_PROFILDataTable @@ -121,7 +121,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWMRH_PROFIL_FILE_JOB() As TBWMRH_PROFIL_FILE_JOBDataTable @@ -131,7 +131,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWMRH_PROFIL_JOB() As TBWMRH_PROFIL_JOBDataTable @@ -141,7 +141,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBDD_EMAIL_ACCOUNT() As TBDD_EMAIL_ACCOUNTDataTable @@ -151,7 +151,7 @@ Partial Public Class MyDataset End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -164,7 +164,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -173,7 +173,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -182,7 +182,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -190,7 +190,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As MyDataset = CType(MyBase.Clone,MyDataset) cln.InitVars @@ -199,19 +199,19 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -247,7 +247,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -256,13 +256,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBWMRH_KONFIGURATION = CType(MyBase.Tables("TBWMRH_KONFIGURATION"),TBWMRH_KONFIGURATIONDataTable) If (initTable = true) Then @@ -299,7 +299,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "MyDataset" Me.Prefix = "" @@ -323,37 +323,37 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBWMRH_KONFIGURATION() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBWMRH_PROFIL() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBWMRH_PROFIL_FILE_JOB() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBWMRH_PROFIL_JOB() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function ShouldSerializeTBDD_EMAIL_ACCOUNT() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -361,7 +361,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As MyDataset = New MyDataset() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -410,19 +410,19 @@ Partial Public Class MyDataset Return type End Function - _ + _ Public Delegate Sub TBWMRH_KONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWMRH_KONFIGURATIONRowChangeEvent) - _ + _ Public Delegate Sub TBWMRH_PROFILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWMRH_PROFILRowChangeEvent) - _ + _ Public Delegate Sub TBWMRH_PROFIL_FILE_JOBRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWMRH_PROFIL_FILE_JOBRowChangeEvent) - _ + _ Public Delegate Sub TBWMRH_PROFIL_JOBRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWMRH_PROFIL_JOBRowChangeEvent) - _ + _ Public Delegate Sub TBDD_EMAIL_ACCOUNTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_ACCOUNTRowChangeEvent) ''' @@ -452,7 +452,7 @@ Partial Public Class MyDataset Private columnPDF_XCHANGE_LOCATION As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWMRH_KONFIGURATION" @@ -462,7 +462,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -480,14 +480,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -495,7 +495,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property WD_LAUFWERKColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_LAUFWERK @@ -503,7 +503,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property INTERVALLColumn() As Global.System.Data.DataColumn Get Return Me.columnINTERVALL @@ -511,7 +511,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property LAST_TICKColumn() As Global.System.Data.DataColumn Get Return Me.columnLAST_TICK @@ -519,7 +519,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property LOG_ERRORS_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_ERRORS_ONLY @@ -527,7 +527,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEAENDERT_WERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERT_WER @@ -535,7 +535,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -543,7 +543,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PDF_TK_LOCATIONColumn() As Global.System.Data.DataColumn Get Return Me.columnPDF_TK_LOCATION @@ -551,7 +551,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PDF_XCHANGE_LOCATIONColumn() As Global.System.Data.DataColumn Get Return Me.columnPDF_XCHANGE_LOCATION @@ -559,7 +559,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -568,33 +568,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWMRH_KONFIGURATIONRow Get Return CType(Me.Rows(index),TBWMRH_KONFIGURATIONRow) End Get End Property - _ + _ Public Event TBWMRH_KONFIGURATIONRowChanging As TBWMRH_KONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBWMRH_KONFIGURATIONRowChanged As TBWMRH_KONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBWMRH_KONFIGURATIONRowDeleting As TBWMRH_KONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBWMRH_KONFIGURATIONRowDeleted As TBWMRH_KONFIGURATIONRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBWMRH_KONFIGURATIONRow(ByVal row As TBWMRH_KONFIGURATIONRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBWMRH_KONFIGURATIONRow(ByVal GUID As Integer, ByVal WD_LAUFWERK As String, ByVal INTERVALL As Integer, ByVal LAST_TICK As Date, ByVal LOG_ERRORS_ONLY As Boolean, ByVal GEAENDERT_WER As String, ByVal GEAENDERTWANN As Date, ByVal PDF_TK_LOCATION As String, ByVal PDF_XCHANGE_LOCATION As String) As TBWMRH_KONFIGURATIONRow Dim rowTBWMRH_KONFIGURATIONRow As TBWMRH_KONFIGURATIONRow = CType(Me.NewRow,TBWMRH_KONFIGURATIONRow) Dim columnValuesArray() As Object = New Object() {GUID, WD_LAUFWERK, INTERVALL, LAST_TICK, LOG_ERRORS_ONLY, GEAENDERT_WER, GEAENDERTWANN, PDF_TK_LOCATION, PDF_XCHANGE_LOCATION} @@ -604,13 +604,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWMRH_KONFIGURATIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWMRH_KONFIGURATIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWMRH_KONFIGURATIONDataTable = CType(MyBase.Clone,TBWMRH_KONFIGURATIONDataTable) cln.InitVars @@ -618,13 +618,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWMRH_KONFIGURATIONDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnWD_LAUFWERK = MyBase.Columns("WD_LAUFWERK") @@ -638,7 +638,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -674,25 +674,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBWMRH_KONFIGURATIONRow() As TBWMRH_KONFIGURATIONRow Return CType(Me.NewRow,TBWMRH_KONFIGURATIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWMRH_KONFIGURATIONRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWMRH_KONFIGURATIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWMRH_KONFIGURATIONRowChangedEvent) Is Nothing) Then @@ -701,7 +701,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWMRH_KONFIGURATIONRowChangingEvent) Is Nothing) Then @@ -710,7 +710,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWMRH_KONFIGURATIONRowDeletedEvent) Is Nothing) Then @@ -719,7 +719,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWMRH_KONFIGURATIONRowDeletingEvent) Is Nothing) Then @@ -728,13 +728,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBWMRH_KONFIGURATIONRow(ByVal row As TBWMRH_KONFIGURATIONRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -839,7 +839,7 @@ Partial Public Class MyDataset Private Shared columnLetzter_Durchlauf_defaultValue As Date = Date.Parse("1900-01-01T00:00:00") _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWMRH_PROFIL" @@ -849,7 +849,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -867,14 +867,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -882,7 +882,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ProfilnameColumn() As Global.System.Data.DataColumn Get Return Me.columnProfilname @@ -890,7 +890,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property AktivColumn() As Global.System.Data.DataColumn Get Return Me.columnAktiv @@ -898,7 +898,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ObjekttypColumn() As Global.System.Data.DataColumn Get Return Me.columnObjekttyp @@ -906,7 +906,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property WindreamSucheColumn() As Global.System.Data.DataColumn Get Return Me.columnWindreamSuche @@ -914,7 +914,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property DayColumn() As Global.System.Data.DataColumn Get Return Me.columnDay @@ -922,7 +922,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property RunColumn() As Global.System.Data.DataColumn Get Return Me.columnRun @@ -930,7 +930,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Letzter_DurchlaufColumn() As Global.System.Data.DataColumn Get Return Me.columnLetzter_Durchlauf @@ -938,7 +938,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property RunningColumn() As Global.System.Data.DataColumn Get Return Me.columnRunning @@ -946,7 +946,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ReihenfolgeColumn() As Global.System.Data.DataColumn Get Return Me.columnReihenfolge @@ -954,7 +954,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER @@ -962,7 +962,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -970,7 +970,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -978,7 +978,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -986,7 +986,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -995,33 +995,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWMRH_PROFILRow Get Return CType(Me.Rows(index),TBWMRH_PROFILRow) End Get End Property - _ + _ Public Event TBWMRH_PROFILRowChanging As TBWMRH_PROFILRowChangeEventHandler - _ + _ Public Event TBWMRH_PROFILRowChanged As TBWMRH_PROFILRowChangeEventHandler - _ + _ Public Event TBWMRH_PROFILRowDeleting As TBWMRH_PROFILRowChangeEventHandler - _ + _ Public Event TBWMRH_PROFILRowDeleted As TBWMRH_PROFILRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBWMRH_PROFILRow(ByVal row As TBWMRH_PROFILRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBWMRH_PROFILRow(ByVal Profilname As String, ByVal Aktiv As Boolean, ByVal Objekttyp As String, ByVal WindreamSuche As String, ByVal Day As String, ByVal Run As String, ByVal Letzter_Durchlauf As Date, ByVal Running As Boolean, ByVal Reihenfolge As Integer, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBWMRH_PROFILRow Dim rowTBWMRH_PROFILRow As TBWMRH_PROFILRow = CType(Me.NewRow,TBWMRH_PROFILRow) Dim columnValuesArray() As Object = New Object() {Nothing, Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzter_Durchlauf, Running, Reihenfolge, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN} @@ -1031,13 +1031,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWMRH_PROFILRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWMRH_PROFILRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWMRH_PROFILDataTable = CType(MyBase.Clone,TBWMRH_PROFILDataTable) cln.InitVars @@ -1045,13 +1045,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWMRH_PROFILDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnProfilname = MyBase.Columns("Profilname") @@ -1070,7 +1070,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1128,25 +1128,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBWMRH_PROFILRow() As TBWMRH_PROFILRow Return CType(Me.NewRow,TBWMRH_PROFILRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWMRH_PROFILRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWMRH_PROFILRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWMRH_PROFILRowChangedEvent) Is Nothing) Then @@ -1155,7 +1155,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWMRH_PROFILRowChangingEvent) Is Nothing) Then @@ -1164,7 +1164,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWMRH_PROFILRowDeletedEvent) Is Nothing) Then @@ -1173,7 +1173,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWMRH_PROFILRowDeletingEvent) Is Nothing) Then @@ -1182,13 +1182,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBWMRH_PROFILRow(ByVal row As TBWMRH_PROFILRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1297,7 +1297,7 @@ Partial Public Class MyDataset Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWMRH_PROFIL_FILE_JOB" @@ -1307,7 +1307,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1325,14 +1325,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1340,7 +1340,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFIL_ID @@ -1348,7 +1348,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property TYPColumn() As Global.System.Data.DataColumn Get Return Me.columnTYP @@ -1356,7 +1356,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING1 @@ -1364,7 +1364,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING2 @@ -1372,7 +1372,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING3Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING3 @@ -1380,7 +1380,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING4Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING4 @@ -1388,7 +1388,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BOOL1Column() As Global.System.Data.DataColumn Get Return Me.columnBOOL1 @@ -1396,7 +1396,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BOOL2Column() As Global.System.Data.DataColumn Get Return Me.columnBOOL2 @@ -1404,7 +1404,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BOOL3Column() As Global.System.Data.DataColumn Get Return Me.columnBOOL3 @@ -1412,7 +1412,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BOOL4Column() As Global.System.Data.DataColumn Get Return Me.columnBOOL4 @@ -1420,7 +1420,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV @@ -1428,7 +1428,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property REIHENFOLGEColumn() As Global.System.Data.DataColumn Get Return Me.columnREIHENFOLGE @@ -1436,7 +1436,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER @@ -1444,7 +1444,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -1452,7 +1452,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -1460,7 +1460,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -1468,7 +1468,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -1477,33 +1477,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWMRH_PROFIL_FILE_JOBRow Get Return CType(Me.Rows(index),TBWMRH_PROFIL_FILE_JOBRow) End Get End Property - _ + _ Public Event TBWMRH_PROFIL_FILE_JOBRowChanging As TBWMRH_PROFIL_FILE_JOBRowChangeEventHandler - _ + _ Public Event TBWMRH_PROFIL_FILE_JOBRowChanged As TBWMRH_PROFIL_FILE_JOBRowChangeEventHandler - _ + _ Public Event TBWMRH_PROFIL_FILE_JOBRowDeleting As TBWMRH_PROFIL_FILE_JOBRowChangeEventHandler - _ + _ Public Event TBWMRH_PROFIL_FILE_JOBRowDeleted As TBWMRH_PROFIL_FILE_JOBRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBWMRH_PROFIL_FILE_JOBRow(ByVal row As TBWMRH_PROFIL_FILE_JOBRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBWMRH_PROFIL_FILE_JOBRow( _ ByVal parentTBWMRH_PROFILRowByFK_FILE_JOB_PROFILID As TBWMRH_PROFILRow, _ ByVal TYP As String, _ @@ -1532,13 +1532,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWMRH_PROFIL_FILE_JOBRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWMRH_PROFIL_FILE_JOBRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWMRH_PROFIL_FILE_JOBDataTable = CType(MyBase.Clone,TBWMRH_PROFIL_FILE_JOBDataTable) cln.InitVars @@ -1546,13 +1546,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWMRH_PROFIL_FILE_JOBDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") @@ -1574,7 +1574,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1640,25 +1640,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBWMRH_PROFIL_FILE_JOBRow() As TBWMRH_PROFIL_FILE_JOBRow Return CType(Me.NewRow,TBWMRH_PROFIL_FILE_JOBRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWMRH_PROFIL_FILE_JOBRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWMRH_PROFIL_FILE_JOBRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWMRH_PROFIL_FILE_JOBRowChangedEvent) Is Nothing) Then @@ -1667,7 +1667,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWMRH_PROFIL_FILE_JOBRowChangingEvent) Is Nothing) Then @@ -1676,7 +1676,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWMRH_PROFIL_FILE_JOBRowDeletedEvent) Is Nothing) Then @@ -1685,7 +1685,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWMRH_PROFIL_FILE_JOBRowDeletingEvent) Is Nothing) Then @@ -1694,13 +1694,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBWMRH_PROFIL_FILE_JOBRow(ByVal row As TBWMRH_PROFIL_FILE_JOBRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1813,7 +1813,7 @@ Partial Public Class MyDataset Private columnSTRING6 As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWMRH_PROFIL_JOB" @@ -1823,7 +1823,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1841,14 +1841,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1856,7 +1856,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFIL_ID @@ -1864,7 +1864,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property JOB_TYPColumn() As Global.System.Data.DataColumn Get Return Me.columnJOB_TYP @@ -1872,7 +1872,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING1 @@ -1880,7 +1880,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING2 @@ -1888,7 +1888,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING3Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING3 @@ -1896,7 +1896,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING4Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING4 @@ -1904,7 +1904,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BOOL1Column() As Global.System.Data.DataColumn Get Return Me.columnBOOL1 @@ -1912,7 +1912,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BOOL2Column() As Global.System.Data.DataColumn Get Return Me.columnBOOL2 @@ -1920,7 +1920,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BOOL3Column() As Global.System.Data.DataColumn Get Return Me.columnBOOL3 @@ -1928,7 +1928,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property BOOL4Column() As Global.System.Data.DataColumn Get Return Me.columnBOOL4 @@ -1936,7 +1936,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV @@ -1944,7 +1944,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property REIHENFOLGEColumn() As Global.System.Data.DataColumn Get Return Me.columnREIHENFOLGE @@ -1952,7 +1952,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER @@ -1960,7 +1960,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -1968,7 +1968,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -1976,7 +1976,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -1984,7 +1984,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING5Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING5 @@ -1992,7 +1992,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property STRING6Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING6 @@ -2000,7 +2000,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -2009,33 +2009,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWMRH_PROFIL_JOBRow Get Return CType(Me.Rows(index),TBWMRH_PROFIL_JOBRow) End Get End Property - _ + _ Public Event TBWMRH_PROFIL_JOBRowChanging As TBWMRH_PROFIL_JOBRowChangeEventHandler - _ + _ Public Event TBWMRH_PROFIL_JOBRowChanged As TBWMRH_PROFIL_JOBRowChangeEventHandler - _ + _ Public Event TBWMRH_PROFIL_JOBRowDeleting As TBWMRH_PROFIL_JOBRowChangeEventHandler - _ + _ Public Event TBWMRH_PROFIL_JOBRowDeleted As TBWMRH_PROFIL_JOBRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBWMRH_PROFIL_JOBRow(ByVal row As TBWMRH_PROFIL_JOBRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBWMRH_PROFIL_JOBRow( _ ByVal parentTBWMRH_PROFILRowByFK_TBPROFIL_JOB_PROFILID As TBWMRH_PROFILRow, _ ByVal JOB_TYP As String, _ @@ -2066,13 +2066,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWMRH_PROFIL_JOBRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWMRH_PROFIL_JOBRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWMRH_PROFIL_JOBDataTable = CType(MyBase.Clone,TBWMRH_PROFIL_JOBDataTable) cln.InitVars @@ -2080,13 +2080,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWMRH_PROFIL_JOBDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") @@ -2110,7 +2110,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2176,25 +2176,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBWMRH_PROFIL_JOBRow() As TBWMRH_PROFIL_JOBRow Return CType(Me.NewRow,TBWMRH_PROFIL_JOBRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWMRH_PROFIL_JOBRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWMRH_PROFIL_JOBRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWMRH_PROFIL_JOBRowChangedEvent) Is Nothing) Then @@ -2203,7 +2203,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWMRH_PROFIL_JOBRowChangingEvent) Is Nothing) Then @@ -2212,7 +2212,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWMRH_PROFIL_JOBRowDeletedEvent) Is Nothing) Then @@ -2221,7 +2221,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWMRH_PROFIL_JOBRowDeletingEvent) Is Nothing) Then @@ -2230,13 +2230,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBWMRH_PROFIL_JOBRow(ByVal row As TBWMRH_PROFIL_JOBRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2339,7 +2339,7 @@ Partial Public Class MyDataset Private columnAUTH_TYPE As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_EMAIL_ACCOUNT" @@ -2349,7 +2349,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2367,14 +2367,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2382,7 +2382,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -2390,7 +2390,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_FROM @@ -2398,7 +2398,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SMTP @@ -2406,7 +2406,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_USER @@ -2414,7 +2414,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_PW @@ -2422,7 +2422,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property PORTColumn() As Global.System.Data.DataColumn Get Return Me.columnPORT @@ -2430,7 +2430,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -2438,7 +2438,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -2446,7 +2446,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -2454,7 +2454,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -2462,7 +2462,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -2470,7 +2470,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property SSL_AUTHColumn() As Global.System.Data.DataColumn Get Return Me.columnSSL_AUTH @@ -2478,7 +2478,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property AUTH_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnAUTH_TYPE @@ -2486,7 +2486,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -2495,33 +2495,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_ACCOUNTRow Get Return CType(Me.Rows(index),TBDD_EMAIL_ACCOUNTRow) End Get End Property - _ + _ Public Event TBDD_EMAIL_ACCOUNTRowChanging As TBDD_EMAIL_ACCOUNTRowChangeEventHandler - _ + _ Public Event TBDD_EMAIL_ACCOUNTRowChanged As TBDD_EMAIL_ACCOUNTRowChangeEventHandler - _ + _ Public Event TBDD_EMAIL_ACCOUNTRowDeleting As TBDD_EMAIL_ACCOUNTRowChangeEventHandler - _ + _ Public Event TBDD_EMAIL_ACCOUNTRowDeleted As TBDD_EMAIL_ACCOUNTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Sub AddTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SSL_AUTH As Boolean, ByVal AUTH_TYPE As String) As TBDD_EMAIL_ACCOUNTRow Dim rowTBDD_EMAIL_ACCOUNTRow As TBDD_EMAIL_ACCOUNTRow = CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE} @@ -2531,13 +2531,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_ACCOUNTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_ACCOUNTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_EMAIL_ACCOUNTDataTable = CType(MyBase.Clone,TBDD_EMAIL_ACCOUNTDataTable) cln.InitVars @@ -2545,13 +2545,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_EMAIL_ACCOUNTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -2570,7 +2570,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2632,25 +2632,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function NewTBDD_EMAIL_ACCOUNTRow() As TBDD_EMAIL_ACCOUNTRow Return CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_EMAIL_ACCOUNTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_EMAIL_ACCOUNTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangedEvent) Is Nothing) Then @@ -2659,7 +2659,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangingEvent) Is Nothing) Then @@ -2668,7 +2668,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletedEvent) Is Nothing) Then @@ -2677,7 +2677,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletingEvent) Is Nothing) Then @@ -2686,13 +2686,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub RemoveTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2767,14 +2767,14 @@ Partial Public Class MyDataset Private tableTBWMRH_KONFIGURATION As TBWMRH_KONFIGURATIONDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWMRH_KONFIGURATION = CType(Me.Table,TBWMRH_KONFIGURATIONDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWMRH_KONFIGURATION.GUIDColumn),Integer) @@ -2785,7 +2785,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property WD_LAUFWERK() As String Get Return CType(Me(Me.tableTBWMRH_KONFIGURATION.WD_LAUFWERKColumn),String) @@ -2796,7 +2796,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property INTERVALL() As Integer Get Return CType(Me(Me.tableTBWMRH_KONFIGURATION.INTERVALLColumn),Integer) @@ -2807,7 +2807,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property LAST_TICK() As Date Get Return CType(Me(Me.tableTBWMRH_KONFIGURATION.LAST_TICKColumn),Date) @@ -2818,7 +2818,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property LOG_ERRORS_ONLY() As Boolean Get Return CType(Me(Me.tableTBWMRH_KONFIGURATION.LOG_ERRORS_ONLYColumn),Boolean) @@ -2829,7 +2829,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEAENDERT_WER() As String Get Try @@ -2844,7 +2844,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -2859,7 +2859,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PDF_TK_LOCATION() As String Get Return CType(Me(Me.tableTBWMRH_KONFIGURATION.PDF_TK_LOCATIONColumn),String) @@ -2870,7 +2870,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PDF_XCHANGE_LOCATION() As String Get Return CType(Me(Me.tableTBWMRH_KONFIGURATION.PDF_XCHANGE_LOCATIONColumn),String) @@ -2881,25 +2881,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEAENDERT_WERNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_KONFIGURATION.GEAENDERT_WERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEAENDERT_WERNull() Me(Me.tableTBWMRH_KONFIGURATION.GEAENDERT_WERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_KONFIGURATION.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBWMRH_KONFIGURATION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub @@ -2914,14 +2914,14 @@ Partial Public Class MyDataset Private tableTBWMRH_PROFIL As TBWMRH_PROFILDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWMRH_PROFIL = CType(Me.Table,TBWMRH_PROFILDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWMRH_PROFIL.GUIDColumn),Integer) @@ -2932,7 +2932,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Profilname() As String Get Return CType(Me(Me.tableTBWMRH_PROFIL.ProfilnameColumn),String) @@ -2943,7 +2943,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Aktiv() As Boolean Get Try @@ -2958,7 +2958,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Objekttyp() As String Get Return CType(Me(Me.tableTBWMRH_PROFIL.ObjekttypColumn),String) @@ -2969,7 +2969,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property WindreamSuche() As String Get Try @@ -2984,7 +2984,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Day() As String Get Return CType(Me(Me.tableTBWMRH_PROFIL.DayColumn),String) @@ -2995,7 +2995,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Run() As String Get Return CType(Me(Me.tableTBWMRH_PROFIL.RunColumn),String) @@ -3006,7 +3006,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Letzter_Durchlauf() As Date Get Return CType(Me(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn),Date) @@ -3017,7 +3017,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Running() As Boolean Get Return CType(Me(Me.tableTBWMRH_PROFIL.RunningColumn),Boolean) @@ -3028,7 +3028,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property Reihenfolge() As Integer Get Return CType(Me(Me.tableTBWMRH_PROFIL.ReihenfolgeColumn),Integer) @@ -3039,7 +3039,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERSTELLTWER() As String Get Try @@ -3054,7 +3054,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Try @@ -3069,7 +3069,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -3084,7 +3084,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -3099,79 +3099,79 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsAktivNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL.AktivColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetAktivNull() Me(Me.tableTBWMRH_PROFIL.AktivColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsWindreamSucheNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL.WindreamSucheColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetWindreamSucheNull() Me(Me.tableTBWMRH_PROFIL.WindreamSucheColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsERSTELLTWERNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL.ERSTELLTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetERSTELLTWERNull() Me(Me.tableTBWMRH_PROFIL.ERSTELLTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL.ERSTELLTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBWMRH_PROFIL.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBWMRH_PROFIL.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBWMRH_PROFIL.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function GetTBWMRH_PROFIL_FILE_JOBRows() As TBWMRH_PROFIL_FILE_JOBRow() If (Me.Table.ChildRelations("FK_FILE_JOB_PROFILID") Is Nothing) Then Return New TBWMRH_PROFIL_FILE_JOBRow(-1) {} @@ -3181,7 +3181,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function GetTBWMRH_PROFIL_JOBRows() As TBWMRH_PROFIL_JOBRow() If (Me.Table.ChildRelations("FK_TBPROFIL_JOB_PROFILID") Is Nothing) Then Return New TBWMRH_PROFIL_JOBRow(-1) {} @@ -3200,14 +3200,14 @@ Partial Public Class MyDataset Private tableTBWMRH_PROFIL_FILE_JOB As TBWMRH_PROFIL_FILE_JOBDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWMRH_PROFIL_FILE_JOB = CType(Me.Table,TBWMRH_PROFIL_FILE_JOBDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWMRH_PROFIL_FILE_JOB.GUIDColumn),Integer) @@ -3218,7 +3218,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PROFIL_ID() As Integer Get Return CType(Me(Me.tableTBWMRH_PROFIL_FILE_JOB.PROFIL_IDColumn),Integer) @@ -3229,7 +3229,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TYP() As String Get Return CType(Me(Me.tableTBWMRH_PROFIL_FILE_JOB.TYPColumn),String) @@ -3240,7 +3240,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING1() As String Get Try @@ -3255,7 +3255,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING2() As String Get Try @@ -3270,7 +3270,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING3() As String Get Try @@ -3285,7 +3285,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING4() As String Get Try @@ -3300,7 +3300,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BOOL1() As Boolean Get Return CType(Me(Me.tableTBWMRH_PROFIL_FILE_JOB.BOOL1Column),Boolean) @@ -3311,7 +3311,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BOOL2() As Boolean Get Return CType(Me(Me.tableTBWMRH_PROFIL_FILE_JOB.BOOL2Column),Boolean) @@ -3322,7 +3322,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BOOL3() As Boolean Get Return CType(Me(Me.tableTBWMRH_PROFIL_FILE_JOB.BOOL3Column),Boolean) @@ -3333,7 +3333,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BOOL4() As Boolean Get Return CType(Me(Me.tableTBWMRH_PROFIL_FILE_JOB.BOOL4Column),Boolean) @@ -3344,7 +3344,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBWMRH_PROFIL_FILE_JOB.AKTIVColumn),Boolean) @@ -3355,7 +3355,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property REIHENFOLGE() As Integer Get Return CType(Me(Me.tableTBWMRH_PROFIL_FILE_JOB.REIHENFOLGEColumn),Integer) @@ -3366,7 +3366,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERSTELLTWER() As String Get Try @@ -3381,7 +3381,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Try @@ -3396,7 +3396,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -3411,7 +3411,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -3426,7 +3426,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TBWMRH_PROFILRow() As TBWMRH_PROFILRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_FILE_JOB_PROFILID")),TBWMRH_PROFILRow) @@ -3437,97 +3437,97 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING1Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_FILE_JOB.STRING1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING1Null() Me(Me.tableTBWMRH_PROFIL_FILE_JOB.STRING1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING2Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_FILE_JOB.STRING2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING2Null() Me(Me.tableTBWMRH_PROFIL_FILE_JOB.STRING2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING3Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_FILE_JOB.STRING3Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING3Null() Me(Me.tableTBWMRH_PROFIL_FILE_JOB.STRING3Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING4Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_FILE_JOB.STRING4Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING4Null() Me(Me.tableTBWMRH_PROFIL_FILE_JOB.STRING4Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsERSTELLTWERNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_FILE_JOB.ERSTELLTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetERSTELLTWERNull() Me(Me.tableTBWMRH_PROFIL_FILE_JOB.ERSTELLTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_FILE_JOB.ERSTELLTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBWMRH_PROFIL_FILE_JOB.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_FILE_JOB.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBWMRH_PROFIL_FILE_JOB.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_FILE_JOB.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBWMRH_PROFIL_FILE_JOB.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub @@ -3542,14 +3542,14 @@ Partial Public Class MyDataset Private tableTBWMRH_PROFIL_JOB As TBWMRH_PROFIL_JOBDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWMRH_PROFIL_JOB = CType(Me.Table,TBWMRH_PROFIL_JOBDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWMRH_PROFIL_JOB.GUIDColumn),Integer) @@ -3560,7 +3560,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PROFIL_ID() As Integer Get Try @@ -3575,7 +3575,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property JOB_TYP() As String Get Return CType(Me(Me.tableTBWMRH_PROFIL_JOB.JOB_TYPColumn),String) @@ -3586,7 +3586,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING1() As String Get Try @@ -3601,7 +3601,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING2() As String Get Try @@ -3616,7 +3616,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING3() As String Get Try @@ -3631,7 +3631,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING4() As String Get Try @@ -3646,7 +3646,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BOOL1() As Boolean Get Try @@ -3661,7 +3661,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BOOL2() As Boolean Get Try @@ -3676,7 +3676,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BOOL3() As Boolean Get Try @@ -3691,7 +3691,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BOOL4() As Boolean Get Try @@ -3706,7 +3706,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property AKTIV() As Boolean Get Try @@ -3721,7 +3721,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property REIHENFOLGE() As Integer Get Return CType(Me(Me.tableTBWMRH_PROFIL_JOB.REIHENFOLGEColumn),Integer) @@ -3732,7 +3732,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERSTELLTWER() As String Get Try @@ -3747,7 +3747,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Try @@ -3762,7 +3762,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -3777,7 +3777,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -3792,7 +3792,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING5() As String Get Try @@ -3807,7 +3807,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property STRING6() As String Get Try @@ -3822,7 +3822,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property TBWMRH_PROFILRow() As TBWMRH_PROFILRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPROFIL_JOB_PROFILID")),TBWMRH_PROFILRow) @@ -3833,193 +3833,193 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsPROFIL_IDNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.PROFIL_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetPROFIL_IDNull() Me(Me.tableTBWMRH_PROFIL_JOB.PROFIL_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING1Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.STRING1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING1Null() Me(Me.tableTBWMRH_PROFIL_JOB.STRING1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING2Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.STRING2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING2Null() Me(Me.tableTBWMRH_PROFIL_JOB.STRING2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING3Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.STRING3Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING3Null() Me(Me.tableTBWMRH_PROFIL_JOB.STRING3Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING4Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.STRING4Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING4Null() Me(Me.tableTBWMRH_PROFIL_JOB.STRING4Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsBOOL1Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.BOOL1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetBOOL1Null() Me(Me.tableTBWMRH_PROFIL_JOB.BOOL1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsBOOL2Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.BOOL2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetBOOL2Null() Me(Me.tableTBWMRH_PROFIL_JOB.BOOL2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsBOOL3Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.BOOL3Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetBOOL3Null() Me(Me.tableTBWMRH_PROFIL_JOB.BOOL3Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsBOOL4Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.BOOL4Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetBOOL4Null() Me(Me.tableTBWMRH_PROFIL_JOB.BOOL4Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsAKTIVNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.AKTIVColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetAKTIVNull() Me(Me.tableTBWMRH_PROFIL_JOB.AKTIVColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsERSTELLTWERNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.ERSTELLTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetERSTELLTWERNull() Me(Me.tableTBWMRH_PROFIL_JOB.ERSTELLTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.ERSTELLTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBWMRH_PROFIL_JOB.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBWMRH_PROFIL_JOB.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBWMRH_PROFIL_JOB.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING5Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.STRING5Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING5Null() Me(Me.tableTBWMRH_PROFIL_JOB.STRING5Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsSTRING6Null() As Boolean Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.STRING6Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetSTRING6Null() Me(Me.tableTBWMRH_PROFIL_JOB.STRING6Column) = Global.System.Convert.DBNull End Sub @@ -4034,14 +4034,14 @@ Partial Public Class MyDataset Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_EMAIL_ACCOUNT = CType(Me.Table,TBDD_EMAIL_ACCOUNTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn),Integer) @@ -4052,7 +4052,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property NAME() As String Get Try @@ -4067,7 +4067,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_FROM() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn),String) @@ -4078,7 +4078,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_SMTP() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn),String) @@ -4089,7 +4089,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_USER() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn),String) @@ -4100,7 +4100,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property EMAIL_PW() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn),String) @@ -4111,7 +4111,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property PORT() As Integer Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.PORTColumn),Integer) @@ -4122,7 +4122,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn),Boolean) @@ -4133,7 +4133,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn),String) @@ -4144,7 +4144,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -4159,7 +4159,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -4174,7 +4174,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -4189,7 +4189,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property SSL_AUTH() As Boolean Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.SSL_AUTHColumn),Boolean) @@ -4200,7 +4200,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property AUTH_TYPE() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn),String) @@ -4211,49 +4211,49 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -4262,7 +4262,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWMRH_KONFIGURATIONRowChangeEvent Inherits Global.System.EventArgs @@ -4271,7 +4271,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBWMRH_KONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -4279,7 +4279,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBWMRH_KONFIGURATIONRow Get Return Me.eventRow @@ -4287,7 +4287,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4298,7 +4298,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWMRH_PROFILRowChangeEvent Inherits Global.System.EventArgs @@ -4307,7 +4307,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBWMRH_PROFILRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -4315,7 +4315,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBWMRH_PROFILRow Get Return Me.eventRow @@ -4323,7 +4323,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4334,7 +4334,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWMRH_PROFIL_FILE_JOBRowChangeEvent Inherits Global.System.EventArgs @@ -4343,7 +4343,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBWMRH_PROFIL_FILE_JOBRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -4351,7 +4351,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBWMRH_PROFIL_FILE_JOBRow Get Return Me.eventRow @@ -4359,7 +4359,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4370,7 +4370,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWMRH_PROFIL_JOBRowChangeEvent Inherits Global.System.EventArgs @@ -4379,7 +4379,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBWMRH_PROFIL_JOBRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -4387,7 +4387,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBWMRH_PROFIL_JOBRow Get Return Me.eventRow @@ -4395,7 +4395,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4406,7 +4406,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_EMAIL_ACCOUNTRowChangeEvent Inherits Global.System.EventArgs @@ -4415,7 +4415,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New(ByVal row As TBDD_EMAIL_ACCOUNTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -4423,7 +4423,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Row() As TBDD_EMAIL_ACCOUNTRow Get Return Me.eventRow @@ -4431,7 +4431,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -4465,14 +4465,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -4483,7 +4483,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -4513,7 +4513,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -4541,7 +4541,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -4552,7 +4552,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -4563,7 +4563,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -4598,14 +4598,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ResultHandler_Konfig.My.MySettings.Default.SQLSERVER_CS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -4617,7 +4617,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWMRH_KONFIGURATIONDataTable) As Integer @@ -4630,7 +4630,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBWMRH_KONFIGURATIONDataTable @@ -4641,35 +4641,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBWMRH_KONFIGURATIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBWMRH_KONFIGURATION") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Update(ByVal GUID As Integer, ByVal WD_LAUFWERK As String, ByVal INTERVALL As Integer, ByVal LAST_TICK As Date, ByVal LOG_ERRORS_ONLY As Boolean, ByVal GEAENDERT_WER As String, ByVal PDF_TK_LOCATION As String, ByVal PDF_XCHANGE_LOCATION As String) As Integer @@ -4736,14 +4736,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -4754,7 +4754,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -4784,7 +4784,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -4812,7 +4812,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -4823,7 +4823,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -4834,7 +4834,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -4905,14 +4905,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ResultHandler_Konfig.My.MySettings.Default.SQLSERVER_CS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -4930,7 +4930,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWMRH_PROFILDataTable) As Integer @@ -4943,7 +4943,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBWMRH_PROFILDataTable @@ -4954,35 +4954,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBWMRH_PROFILDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBWMRH_PROFIL") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -5003,7 +5003,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal Profilname As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Objekttyp As String, ByVal WindreamSuche As String, ByVal Day As String, ByVal Run As String, ByVal Letzter_Durchlauf As Global.System.Nullable(Of Date), ByVal Running As Boolean, ByVal Reihenfolge As Integer, ByVal ERSTELLTWER As String) As Integer @@ -5065,7 +5065,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal Profilname As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Objekttyp As String, ByVal WindreamSuche As String, ByVal Day As String, ByVal Run As String, ByVal Letzter_Durchlauf As Global.System.Nullable(Of Date), ByVal Running As Boolean, ByVal Reihenfolge As Integer, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -5129,7 +5129,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdateRunningnow(ByVal Original_GUID As Integer) As Integer @@ -5175,14 +5175,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -5193,7 +5193,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -5223,7 +5223,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -5251,7 +5251,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -5262,7 +5262,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -5273,7 +5273,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -5355,14 +5355,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ResultHandler_Konfig.My.MySettings.Default.SQLSERVER_CS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -5381,7 +5381,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWMRH_PROFIL_FILE_JOBDataTable, ByVal PID As Integer) As Integer @@ -5395,7 +5395,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal PID As Integer) As MyDataset.TBWMRH_PROFIL_FILE_JOBDataTable @@ -5407,35 +5407,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBWMRH_PROFIL_FILE_JOBDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBWMRH_PROFIL_FILE_JOB") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -5456,7 +5456,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal PROFIL_ID As Integer, ByVal TYP As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal BOOL1 As Boolean, ByVal BOOL2 As Boolean, ByVal BOOL3 As Boolean, ByVal BOOL4 As Boolean, ByVal AKTIV As Boolean, ByVal REIHENFOLGE As Integer, ByVal ERSTELLTWER As String, ByVal GEAENDERTWER As String) As Integer @@ -5518,7 +5518,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal TYP As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal BOOL1 As Boolean, ByVal BOOL2 As Boolean, ByVal BOOL3 As Boolean, ByVal BOOL4 As Boolean, ByVal AKTIV As Boolean, ByVal REIHENFOLGE As Integer, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -5576,7 +5576,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function DeleteForProfil(ByVal PROFILID As Integer) As Integer @@ -5622,14 +5622,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -5640,7 +5640,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -5670,7 +5670,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -5698,7 +5698,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -5709,7 +5709,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -5720,7 +5720,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -5808,14 +5808,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ResultHandler_Konfig.My.MySettings.Default.SQLSERVER_CS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -5834,7 +5834,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWMRH_PROFIL_JOBDataTable, ByVal PID As Global.System.Nullable(Of Integer)) As Integer @@ -5852,7 +5852,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal PID As Global.System.Nullable(Of Integer)) As MyDataset.TBWMRH_PROFIL_JOBDataTable @@ -5868,35 +5868,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBWMRH_PROFIL_JOBDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBWMRH_PROFIL_JOB") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -5917,7 +5917,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal PROFIL_ID As Global.System.Nullable(Of Integer), ByVal JOB_TYP As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal BOOL1 As Global.System.Nullable(Of Boolean), ByVal BOOL2 As Global.System.Nullable(Of Boolean), ByVal BOOL3 As Global.System.Nullable(Of Boolean), ByVal BOOL4 As Global.System.Nullable(Of Boolean), ByVal AKTIV As Global.System.Nullable(Of Boolean), ByVal REIHENFOLGE As Integer, ByVal ERSTELLTWER As String, ByVal STRING5 As String, ByVal STRING6 As String) As Integer @@ -6008,7 +6008,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -6118,7 +6118,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function DeleteforPROFIL(ByVal PID As Global.System.Nullable(Of Integer)) As Integer @@ -6168,14 +6168,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -6186,7 +6186,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -6216,7 +6216,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -6244,7 +6244,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -6255,7 +6255,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -6266,7 +6266,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -6336,14 +6336,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.ResultHandler_Konfig.My.MySettings.Default.SQLSERVER_CS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -6355,7 +6355,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_EMAIL_ACCOUNTDataTable) As Integer @@ -6368,7 +6368,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBDD_EMAIL_ACCOUNTDataTable @@ -6379,35 +6379,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_EMAIL_ACCOUNTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_ACCOUNT") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -6428,7 +6428,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SSL_AUTH As Boolean, ByVal AUTH_TYPE As String) As Integer @@ -6486,7 +6486,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SSL_AUTH As Boolean, ByVal AUTH_TYPE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -6574,7 +6574,7 @@ Namespace MyDatasetTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -6585,7 +6585,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -6599,7 +6599,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -6613,7 +6613,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -6627,7 +6627,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -6641,7 +6641,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -6655,7 +6655,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -6666,7 +6666,7 @@ Namespace MyDatasetTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -6701,7 +6701,7 @@ Namespace MyDatasetTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -6729,7 +6729,7 @@ Namespace MyDatasetTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBWMRH_PROFILTableAdapter) Is Nothing) Then @@ -6784,7 +6784,7 @@ Namespace MyDatasetTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBWMRH_PROFILTableAdapter) Is Nothing) Then @@ -6834,7 +6834,7 @@ Namespace MyDatasetTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then @@ -6884,7 +6884,7 @@ Namespace MyDatasetTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then @@ -6910,7 +6910,7 @@ Namespace MyDatasetTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -7117,13 +7117,13 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true @@ -7141,7 +7141,7 @@ Namespace MyDatasetTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -7152,7 +7152,7 @@ Namespace MyDatasetTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -7162,7 +7162,7 @@ Namespace MyDatasetTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -7174,7 +7174,7 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row @@ -7213,7 +7213,7 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 diff --git a/app/ResultHandler_Konfig/ResultHandler_Konfig.vbproj b/app/ResultHandler_Konfig/ResultHandler_Konfig.vbproj index 3f03007..29f5ef4 100644 --- a/app/ResultHandler_Konfig/ResultHandler_Konfig.vbproj +++ b/app/ResultHandler_Konfig/ResultHandler_Konfig.vbproj @@ -12,7 +12,7 @@ ResultHandler_Konfig 512 WindowsForms - v4.6.1 + v4.6.2 true @@ -68,11 +68,17 @@ - - ..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll + + False + ..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll - - ..\..\..\DDMonorepo\Message\bin\Debug\DigitalData.Modules.Messaging.dll + + False + ..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll + + + False + ..\..\..\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll ..\packages\EntityFramework.6.4.4\lib\net45\EntityFramework.dll @@ -96,12 +102,15 @@ P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll True + + P:\Visual Studio Projekte\Bibliotheken\Limilabs\Mail.dll\Mail.dll + ..\packages\Newtonsoft.Json.11.0.2\lib\net45\Newtonsoft.Json.dll - - ..\packages\NLog.4.7.15\lib\net45\NLog.dll + + ..\packages\NLog.5.0.5\lib\net46\NLog.dll @@ -147,6 +156,7 @@ True Application.myapp + True True diff --git a/app/ResultHandler_Konfig/frmMain.vb b/app/ResultHandler_Konfig/frmMain.vb index 0d8bb27..d2ca7ab 100644 --- a/app/ResultHandler_Konfig/frmMain.vb +++ b/app/ResultHandler_Konfig/frmMain.vb @@ -910,19 +910,38 @@ Public Class frmMain End Sub Private Sub btnsendtestmail_Click(sender As Object, e As EventArgs) Handles btnsendtestmail.Click - Dim _ss2email As New Email(MyLogger) + ' Dim _ss2email As New Email(MyLogger) + Dim llmail As New MailSender(MyLogger) If txtTestmailTo.Text <> String.Empty Then My.Settings.Save() Dim wrapper As New clsEncryption("!35452didalog=") Dim PWPlain = wrapper.DecryptData(EMAIL_PWTextBox.Text) - If _ss2email.NewEmail(txtTestmailTo.Text, "Testmail from GUI WMResultHandler", "This is the body (text will be replaced within profile)", EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, - PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, "GUI WMRH - Test") = True Then - MsgBox("Email(s) has/have been sent successfully.", MsgBoxStyle.Information) + If llmail.ConnectToServer(EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text) = True Then + Dim oSendto As New List(Of String) + oSendto.Add(txtTestmailTo.Text) + Dim oAttMt As New List(Of String) + If txtAttachment.Text <> String.Empty Then + oAttMt.Add(txtAttachment.Text) + End If + If llmail.SendMail(oSendto, EMAIL_FROMTextBox.Text, "Testmail from GUI WMResultHandler", "TEST", Now, oAttMt, 1) = True Then + MsgBox("Email has been sent successfully.", MsgBoxStyle.Information) + Else + MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation) + End If + llmail.DisconnectFromServer() Else - MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation) + MsgBox("Could not connect to server. Please check the log.", MsgBoxStyle.Exclamation) + End If + ' Dim oSMTP As SmtpClient = llmail.New_SMTPConnection(Nothing, EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, PORTTextBox.Text) + 'If _ss2email.NewEmail(txtTestmailTo.Text, "Testmail from GUI WMResultHandler", "This is the body (text will be replaced within profile)", EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, + ' PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, "GUI WMRH - Test") = True Then + ' MsgBox("Email(s) has/have been sent successfully.", MsgBoxStyle.Information) + ' Else + ' MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation) + ' End If End If End Sub diff --git a/app/ResultHandler_Konfig/packages.config b/app/ResultHandler_Konfig/packages.config index 5721330..b580f72 100644 --- a/app/ResultHandler_Konfig/packages.config +++ b/app/ResultHandler_Konfig/packages.config @@ -2,6 +2,6 @@ - + \ No newline at end of file