commit 1901ee6cb11b52901249ff87bf2eecbf2d077575 Author: Digital Data - Marlon Schreiber Date: Mon Apr 10 15:50:24 2017 +0200 MS Initial diff --git a/MC_SUPPLYWATCH.sln b/MC_SUPPLYWATCH.sln new file mode 100644 index 0000000..a16c33c --- /dev/null +++ b/MC_SUPPLYWATCH.sln @@ -0,0 +1,43 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 15 +VisualStudioVersion = 15.0.26228.9 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Supplywatch", "Supplywatch\Supplywatch.vbproj", "{2199461A-FD8B-41DA-A9EA-7AF1819CD641}" +EndProject +Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "Setup", "Setup\Setup.wixproj", "{8633FE47-33F0-46EA-A807-22B7A49662F6}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + CD_ROM|x86 = CD_ROM|x86 + Debug|x86 = Debug|x86 + DVD-5|x86 = DVD-5|x86 + Release|x86 = Release|x86 + SingleImage|x86 = SingleImage|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {2199461A-FD8B-41DA-A9EA-7AF1819CD641}.CD_ROM|x86.ActiveCfg = Release|x86 + {2199461A-FD8B-41DA-A9EA-7AF1819CD641}.CD_ROM|x86.Build.0 = Release|x86 + {2199461A-FD8B-41DA-A9EA-7AF1819CD641}.Debug|x86.ActiveCfg = Debug|x86 + {2199461A-FD8B-41DA-A9EA-7AF1819CD641}.Debug|x86.Build.0 = Debug|x86 + {2199461A-FD8B-41DA-A9EA-7AF1819CD641}.DVD-5|x86.ActiveCfg = Debug|x86 + {2199461A-FD8B-41DA-A9EA-7AF1819CD641}.DVD-5|x86.Build.0 = Debug|x86 + {2199461A-FD8B-41DA-A9EA-7AF1819CD641}.Release|x86.ActiveCfg = Release|x86 + {2199461A-FD8B-41DA-A9EA-7AF1819CD641}.Release|x86.Build.0 = Release|x86 + {2199461A-FD8B-41DA-A9EA-7AF1819CD641}.SingleImage|x86.ActiveCfg = Release|x86 + {2199461A-FD8B-41DA-A9EA-7AF1819CD641}.SingleImage|x86.Build.0 = Release|x86 + {8633FE47-33F0-46EA-A807-22B7A49662F6}.CD_ROM|x86.ActiveCfg = Release|x86 + {8633FE47-33F0-46EA-A807-22B7A49662F6}.CD_ROM|x86.Build.0 = Release|x86 + {8633FE47-33F0-46EA-A807-22B7A49662F6}.Debug|x86.ActiveCfg = Debug|x86 + {8633FE47-33F0-46EA-A807-22B7A49662F6}.Debug|x86.Build.0 = Debug|x86 + {8633FE47-33F0-46EA-A807-22B7A49662F6}.DVD-5|x86.ActiveCfg = Debug|x86 + {8633FE47-33F0-46EA-A807-22B7A49662F6}.DVD-5|x86.Build.0 = Debug|x86 + {8633FE47-33F0-46EA-A807-22B7A49662F6}.Release|x86.ActiveCfg = Release|x86 + {8633FE47-33F0-46EA-A807-22B7A49662F6}.Release|x86.Build.0 = Release|x86 + {8633FE47-33F0-46EA-A807-22B7A49662F6}.SingleImage|x86.ActiveCfg = Release|x86 + {8633FE47-33F0-46EA-A807-22B7A49662F6}.SingleImage|x86.Build.0 = Release|x86 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/Setup/Config.wxi b/Setup/Config.wxi new file mode 100644 index 0000000..abe1a17 --- /dev/null +++ b/Setup/Config.wxi @@ -0,0 +1,9 @@ + + + + + + + + + \ No newline at end of file diff --git a/Setup/Product.wxs b/Setup/Product.wxs new file mode 100644 index 0000000..712702e --- /dev/null +++ b/Setup/Product.wxs @@ -0,0 +1,121 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 1 + 1 + + + \ No newline at end of file diff --git a/Setup/Setup.wixproj b/Setup/Setup.wixproj new file mode 100644 index 0000000..0be7593 --- /dev/null +++ b/Setup/Setup.wixproj @@ -0,0 +1,71 @@ + + + Debug + x86 + 3.10 + 8633fe47-33f0-46ea-a807-22b7a49662f6 + 2.0 + Setup + Package + $(MSBuildExtensionsPath32)\Microsoft\WiX\v3.x\Wix.targets + $(MSBuildExtensionsPath)\Microsoft\WiX\v3.x\Wix.targets + + + bin\$(Configuration)\ + obj\$(Configuration)\ + Debug + + + bin\$(Configuration)\ + obj\$(Configuration)\ + + + + + + + $(WixExtDir)\WixUtilExtension.dll + WixUtilExtension + + + $(WixExtDir)\WixUIExtension.dll + WixUIExtension + + + + + + + + + + + +     +     +       +     + +     +     +       +     + +     +     +       +     + +     +     +       +     + + \ No newline at end of file diff --git a/Supplywatch/ClassBWExportEmail.vb b/Supplywatch/ClassBWExportEmail.vb new file mode 100644 index 0000000..55240bd --- /dev/null +++ b/Supplywatch/ClassBWExportEmail.vb @@ -0,0 +1,83 @@ +Imports System.Net.Mail +Imports System.Net +Imports System.Net.Mail.SmtpClient + +Public Class ClassBWExportEmail + Private Message As MailMessage = New MailMessage() + ' // Anlage + Private Attach As Attachment + ' // Authenticated + Private SmtpUser As New NetworkCredential() + + ' // Versenden über SMTPClient + Private Smtp As New SmtpClient() + ' // Absender + Public Function Absender(ByVal Address As String, ByVal DisplayName As String) As String + Message.From = New MailAddress(Address, DisplayName) + Return Address & " (" & DisplayName & ")" + End Function + ' // Empfänger + Public Function Empfänger(ByVal Address As String, ByVal DisplayName As String) As String + Message.To.Add(New MailAddress(Address, DisplayName)) + Return Address & " (" & DisplayName & ")" + End Function + Public Function WeitereEmpfänger(ByVal Addresses As String) As String + Dim sText As String = "" + Message.CC.Add(Addresses) + For iIndex As Integer = 0 To Message.CC.Count - 1 + sText &= Message.CC(iIndex).Address & "; " + Next + If sText.EndsWith("; ") Then + sText = sText.Substring(0, sText.Length - 2) + End If + Return sText + End Function + + ' // Betreff & Nachricht + Public Function Nachricht(ByVal Betreff As String, ByVal Text As String) As MailMessage + Message.Subject = Betreff + Message.Body = Text + Return Message + End Function + + ' // Einstellungen der Nachricht (Als HTML oder nicht & Priorität der Nachricht) + Public Function Nachricht_Einstellungen(ByVal IsTextHTML As Boolean, ByVal Priorität As _ + MailPriority) As MailMessage + Message.IsBodyHtml = IsTextHTML + Message.Priority = Priorität + Return Message + End Function + ' // Anlage Einzeln + Public Sub Anlage(ByVal Pfad As String) + Attach = New System.Net.Mail.Attachment(Pfad) + Message.Attachments.Add(Attach) + End Sub + ' // Getestet + Public Function Senden_MitAuthenzierung(ByVal Kontoname As String, ByVal Password As _ + String, ByVal SmtpAddress As String, Optional ByVal test As Boolean = False) As Boolean + ' // Authenzierung + SmtpUser.UserName = Kontoname + SmtpUser.Password = Password + ' -- Send Message + Smtp.UseDefaultCredentials = False + Smtp.Credentials = SmtpUser + Smtp.Host = SmtpAddress + Smtp.DeliveryMethod = SmtpDeliveryMethod.Network + Try + Smtp.Send(Message) + + If test = True Then + MsgBox("Email erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:") + Else + ' ClassLogger.Add(" => Erfolgsmeldung: Email wurde ERFOLGREICH VERSENDET ", True) + End If + Return True + Catch ex As Exception + If test = True Then + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Send_EMail") + End If + ClassLogger.Add("ACHTUNG_ FEHLERAUSNAHME", "Fehler in Send_EMail.", ex) + Return False + End Try + End Function +End Class diff --git a/Supplywatch/ClassBWProfil.vb b/Supplywatch/ClassBWProfil.vb new file mode 100644 index 0000000..818f7a1 --- /dev/null +++ b/Supplywatch/ClassBWProfil.vb @@ -0,0 +1,537 @@ +Public Class ClassBWProfilExport + + Private _originalProfilname As String + Private _originalSQLAnweisung As String + Private _originaldays As String + Private _originalFormat As String + Private _originalPath As String + Private _originalEmail As Boolean + Private _originalEmailto As String + Private _originalEmailAbsender As String + Private _originalEmailBetreff As String + Private _originalEmailBody As String + Private _originalemailfrom As String + Private _originalemailsmtp As String + Private _originalemailuser As String + Private _originalemailPW As String + Private _originalemailbest As String + Private _originallastExport As String + + Private _profilname As String + Private _SQLAnweisung As String + Private _days As String + Private _Format As String + Private _Path As String + Private _Email As Boolean + + Private _Emailto As String + Private _EmailBetreff As String + Private _EmailBody As String + Private _emailfrom As String + Private _EmailAbsender As String + Private _emailsmtp As String + Private _emailuser As String + Private _emailPW As String + Private _emailbest As String + Public _lastExport As String + + Private _saved As Boolean + ''' + ''' Konstruktor zum Anlegen oder Laden eines Profils + ''' + ''' Profilname + ''' + ''' + ''' + Sub New(ByVal profilname As String, _ + ByVal SQLAnweisung As String, _ + ByVal days As String, ByVal Format As String, ByVal Pfad As String, ByVal email As Boolean, ByVal emailto As String, ByVal emailBetreff As String, ByVal emailBody As String, _ + ByVal emailfrom As String, ByVal emailAbsender As String, ByVal emailsmtp As String, ByVal emailuser As String, ByVal emailPW As String, ByVal emailbest As String, ByVal lastExport As String) + + Me._originalProfilname = profilname + Me._originalSQLAnweisung = SQLAnweisung + Me._originaldays = days + Me._originalFormat = Format + Me._originalPath = Pfad + Me._originalEmail = email + + + Me._originalEmailto = emailto + Me._originalEmailBetreff = emailBetreff + Me._originalEmailBody = emailBody + Me._originalemailfrom = emailfrom + Me._originalEmailAbsender = emailAbsender + Me._originalemailsmtp = emailsmtp + Me._originalemailuser = emailuser + Me._originalemailPW = emailPW + Me._originalemailbest = emailbest + Me._originallastExport = lastExport + + + Me._profilname = profilname + Me._SQLAnweisung = SQLAnweisung + Me._days = days + Me._Format = Format + Me._Path = Pfad + Me._Email = email + Me._Emailto = emailto + Me._EmailBetreff = emailBetreff + Me._EmailBody = emailBody + Me._emailfrom = emailfrom + Me._EmailAbsender = emailAbsender + Me._emailsmtp = emailsmtp + Me._emailuser = emailuser + Me._emailPW = emailPW + Me._emailbest = emailbest + Me._lastExport = lastExport + + Me._saved = True + End Sub + + + ''' + ''' Konstruktor ohne Tätigkeit + ''' + ''' wenn im Konstruktor kein Parameter übergeben wurde soll auch nichts gemacht werden + Sub New() + End Sub + + + + ''' + ''' Speichert das Profil + ''' + ''' + ''' + Public Function Save(ByVal mitMeldung As Boolean) + + Try + ' wenn das Profil nicht gespeichert ist + If Not Me.IsSaved Then + ' wenn ein Profilname für dieses Profil gesetzt ist + If Me._profilname IsNot Nothing And Me._originalProfilname IsNot Nothing Then + ' XML-Datei initialisieren + Dim xml As New Xml.XmlDocument() + ' Profil initialisieren + Dim xmlProfil As Xml.XmlElement + + ' XML-Datei öffnen und laden + xml.Load(My.Settings.conFile_Reporting) + + ' den XML-Knoten des Profils laden + xmlProfil = xml.SelectSingleNode("//Settings/Profile/Profil[@profilname='" & Me._originalProfilname & "']") + + ' wenn der Knoten NICHT gefunden wurde -> Vorgang abbrechen + If xmlProfil Is Nothing Then Return False + + ' die neuen Werte den Originalwerten zuweisen + Me._originalProfilname = Me._profilname + Me._originalSQLAnweisung = Me._SQLAnweisung + Me._originaldays = Me._days + Me._originalemailbest = Me._emailbest + + ' die neuen Werte in die XML-Datei schreiben + xmlProfil.Attributes("profilname").Value = Me._profilname + xmlProfil.Attributes("sqlanweisung").Value = Me._SQLAnweisung + xmlProfil.Attributes("days").Value = Me._days + xmlProfil.Attributes("format").Value = Me._Format + xmlProfil.Attributes("path").Value = Me._Path + xmlProfil.Attributes("email").Value = Me._Email + xmlProfil.Attributes("emailto").Value = Me._Emailto + xmlProfil.Attributes("emailBetreff").Value = Me._EmailBetreff + xmlProfil.Attributes("emailBody").Value = Me._EmailBody + xmlProfil.Attributes("emailfrom").Value = Me._emailfrom + xmlProfil.Attributes("emailabsender").Value = Me._EmailAbsender + xmlProfil.Attributes("emailsmtp").Value = Me._emailsmtp + xmlProfil.Attributes("emailuser").Value = Me._emailuser + xmlProfil.Attributes("emailPW").Value = Me._emailPW + xmlProfil.Attributes("emailbest").Value = Me._emailbest + xmlProfil.Attributes("lastExport").Value = Me._lastExport + ' XML-Datei speichern + xml.Save(My.Settings.conFile_Reporting) + + ' Profil auf gespeichert setzen + Me._saved = True + + If mitMeldung = True Then MsgBox("Das Profil '" & Me._originalProfilname & "' wurde erfolgreich gespeichert.", MsgBoxStyle.Information, "Profil gespeichert") + + Return True + Else + If mitMeldung = True Then MsgBox("Es wurde kein Profilname für das Profil definiert.", MsgBoxStyle.Information, "Profil konnte nicht gespeichert werden") + Return False + End If + End If + + Return False + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern eines Profils") + Return False + End Try + + + End Function + + ''' + ''' Setzt im aktuellen Profil alle Einstellungen auf die Originalwerte zurück. + ''' + ''' + Public Sub SetBackToOriginal() + Me._profilname = _originalProfilname + Me._SQLAnweisung = _originalSQLAnweisung + Me._days = _originaldays + Me._Format = _originalFormat + Me._Path = _originalPath + Me._Email = _originalEmail + Me._Emailto = _originalEmailto + Me._EmailBetreff = _originalEmailBetreff + Me._EmailBody = _originalEmailBody + Me._emailfrom = _originalemailfrom + Me._emailsmtp = _originalemailsmtp + Me._emailuser = _originalemailuser + Me._emailPW = _originalemailPW + Me._emailbest = _originalemailbest + Me._lastExport = _originallastExport + + Me._originalProfilname = Me._profilname + + End Sub + + ''' + ''' Setzt das Profil auf geändert. + ''' + ''' + Public Sub setChanged() + ' Profil auf geändert setzen + Me._saved = False + End Sub + + ''' + ''' Setzt das Profil auf gespeichert. + ''' + ''' + Public Sub setSaved() + ' Profil auf gespeichert setzen + Me._saved = True + End Sub + + + + + Public ReadOnly Property HasChanges() As Boolean + Get + If Me._profilname = Me._originalProfilname And _ + Me._days = _originaldays And _ + Me._Format = _originalFormat And _ + Me._Path = _originalPath And _ + Me._SQLAnweisung = _originalSQLAnweisung And _ + Me._Email = _originalEmail And _ + Me._EmailAbsender = _originalEmailAbsender And _ + Me._Emailto = _originalEmailto And _ + Me._EmailBetreff = _originalEmailBetreff And _ + Me._EmailBody = _originalEmailBody And _ + Me._emailfrom = _originalemailfrom And _ + Me._emailsmtp = _originalemailsmtp And _ + Me._emailuser = _originalemailuser And _ + Me._emailPW = _originalemailPW And + Me._emailbest = _originalemailbest And + Me._lastExport = _originallastExport Then + Return False + Else + Return True + End If + End Get + End Property + + Public ReadOnly Property IsSaved() As Boolean + Get + Return Me._saved + End Get + End Property + + + Public Property OriginalProfilname() As String + Get + Return Me._originalProfilname + End Get + Set(ByVal value As String) + Me._originalProfilname = value + End Set + End Property + + Public Property Profilname() As String + Get + Return Me._profilname + End Get + Set(ByVal value As String) + Me._profilname = value + + ' Profil auf geändert setzen + Me.setChanged() + End Set + End Property + Public Property OriginalvSQL_Anweisung() As String + Get + Return Me._originalSQLAnweisung + End Get + Set(ByVal value As String) + Me._originalSQLAnweisung = value + End Set + End Property + + Public Property vSQL_Anweisung() As String + Get + Return Me._SQLAnweisung + End Get + Set(ByVal value As String) + Me._SQLAnweisung = value + Me.setChanged() + End Set + End Property + Public Property originaldays() As String + Get + Return Me._originaldays + End Get + Set(ByVal value As String) + Me._originaldays = value + End Set + End Property + + Public Property Days() As String + Get + Return Me._days + End Get + Set(ByVal value As String) + Me._days = value + Me.setChanged() + End Set + End Property + Public Property originalFormat() As String + Get + Return Me._originalFormat + End Get + Set(ByVal value As String) + Me._originalFormat = value + End Set + End Property + + Public Property Format() As String + Get + Return Me._Format + End Get + Set(ByVal value As String) + Me._Format = value + Me.setChanged() + End Set + End Property + Public Property originalpath() As String + Get + Return Me._originalPath + End Get + Set(ByVal value As String) + Me._originalPath = value + End Set + End Property + + Public Property Path() As String + Get + Return Me._Path + End Get + Set(ByVal value As String) + Me._Path = value + Me.setChanged() + End Set + End Property + + Public Property originalEmail() As String + Get + Return Me._originalEmail + End Get + Set(ByVal value As String) + Me._originalEmail = value + End Set + End Property + + Public Property Email() As String + Get + Return Me._Email + End Get + Set(ByVal value As String) + Me._Email = value + Me.setChanged() + End Set + End Property + Public Property originalEmailabsender() As String + Get + Return Me._originalEmailAbsender + End Get + Set(ByVal value As String) + Me._originalEmailAbsender = value + End Set + End Property + + Public Property EmailAbsender() As String + Get + Return Me._EmailAbsender + End Get + Set(ByVal value As String) + Me._EmailAbsender = value + Me.setChanged() + End Set + End Property + Public Property originalEmailto() As String + Get + Return Me._originalEmailto + End Get + Set(ByVal value As String) + Me._originalEmailto = value + End Set + End Property + + Public Property Emailto() As String + Get + Return Me._Emailto + End Get + Set(ByVal value As String) + Me._Emailto = value + Me.setChanged() + End Set + End Property + Public Property originalEmailBetreff() As String + Get + Return Me._originalEmailBetreff + End Get + Set(ByVal value As String) + Me._originalEmailBetreff = value + End Set + End Property + + Public Property EmailBetreff() As String + Get + Return Me._EmailBetreff + End Get + Set(ByVal value As String) + Me._EmailBetreff = value + Me.setChanged() + End Set + End Property + Public Property originalEmailBody() As String + Get + Return Me._originalEmailBody + End Get + Set(ByVal value As String) + Me._originalEmailBody = value + End Set + End Property + + Public Property EmailBody() As String + Get + Return Me._EmailBody + End Get + Set(ByVal value As String) + Me._EmailBody = value + Me.setChanged() + End Set + End Property + ''##### + Public Property originalEmailfrom() As String + Get + Return Me._originalemailfrom + End Get + Set(ByVal value As String) + Me._originalemailfrom = value + End Set + End Property + + Public Property Emailfrom() As String + Get + Return Me._emailfrom + End Get + Set(ByVal value As String) + Me._emailfrom = value + Me.setChanged() + End Set + End Property + Public Property originalEmailSMTP() As String + Get + Return Me._originalemailsmtp + End Get + Set(ByVal value As String) + Me._originalemailsmtp = value + End Set + End Property + + Public Property EmailSMTP() As String + Get + Return Me._emailsmtp + End Get + Set(ByVal value As String) + Me._emailsmtp = value + Me.setChanged() + End Set + End Property + Public Property originalEmailUser() As String + Get + Return Me._originalemailuser + End Get + Set(ByVal value As String) + Me._originalemailuser = value + End Set + End Property + + Public Property EmailUser() As String + Get + Return Me._emailuser + End Get + Set(ByVal value As String) + Me._emailuser = value + Me.setChanged() + End Set + End Property + Public Property originalEmailPW() As String + Get + Return Me._originalemailPW + End Get + Set(ByVal value As String) + Me._originalemailPW = value + End Set + End Property + + Public Property EmailPW() As String + Get + Return Me._emailPW + End Get + Set(ByVal value As String) + Me._emailPW = value + Me.setChanged() + End Set + End Property + Public Property originalEmailBest() As String + Get + Return Me._originalemailbest + End Get + Set(ByVal value As String) + Me._originalemailbest = value + End Set + End Property + + Public Property emailbest() As String + Get + Return Me._emailbest + End Get + Set(ByVal value As String) + Me._emailbest = value + Me.setChanged() + End Set + End Property + Public Property lastExport() As String + Get + Return Me._lastExport + End Get + Set(ByVal value As String) + Me._lastExport = value + Me.setChanged() + End Set + End Property + +End Class diff --git a/Supplywatch/ClassBWProfile.vb b/Supplywatch/ClassBWProfile.vb new file mode 100644 index 0000000..7390697 --- /dev/null +++ b/Supplywatch/ClassBWProfile.vb @@ -0,0 +1,307 @@ +Public Class ClassBWProfileExport + + Private Shared _profiles() As ClassBWProfilExport + Public Shared xmlConfigFile As String + + Public Shared Sub Init() + xmlConfigFile = My.Application.Info.DirectoryPath & "\" & My.Settings.conFile_Reporting + ClassBWProfileExport.LoadFromXmlFile() + End Sub + Public Shared Function IsXmlAccessable() + Dim xml As New Xml.XmlDocument + + Try + ' XML-Datei laden und speichern um Zugriff zu testen + xml.Load(xmlConfigFile) + xml.Save(xmlConfigFile) + + Return True + + Catch ex As Exception + Try + Dim fw As System.IO.StreamWriter = New System.IO.StreamWriter(xmlConfigFile) + + fw.WriteLine("") + fw.WriteLine("") + fw.WriteLine("") + fw.WriteLine("") + fw.WriteLine("") + + fw.Close() + Return True + Catch e2 As Exception + Return False + End Try + + End Try + End Function + Public Shared Sub LoadFromXmlFile() + Dim i As Integer = 0 + Dim xml As Xml.XmlDocument + + ClassBWProfileExport._profiles = Nothing + + If xmlConfigFile Is Nothing Then + Exit Sub + End If + + + If Not xmlConfigFile = "" Then + + If IsXmlAccessable() Then + xml = New Xml.XmlDocument() + xml.Load(xmlConfigFile) + + ' Anzahl der Profilelemente in der XML-Datei zählen + Dim anzProfile = xml.SelectNodes("Settings/Profile/Profil").Count + + ' wenn mindestens ein Profilelement eingetragen ist + If anzProfile > 0 Then + ' alle Profile laden + Dim xmlNodes As Xml.XmlNodeList = xml.SelectNodes("Settings/Profile/Profil") + + ' alle Profile der XML-Datei durchlaufen + For Each xmlProfil As Xml.XmlNode In xmlNodes + + ' prüfen ob ein Profilname angegeben wurde + If xmlProfil.Attributes("profilname") IsNot Nothing Then + + ' ein Element an Items anhängen + ReDim Preserve ClassBWProfileExport._profiles(i) + + ClassBWProfileExport._profiles(i) = New ClassBWProfilExport() + ' das Profilobjekt erstellen + ClassBWProfileExport._profiles(i) = New ClassBWProfilExport( _ + xmlProfil.Attributes("profilname").Value, _ + xmlProfil.Attributes("sqlanweisung").Value, _ + xmlProfil.Attributes("days").Value, _ + xmlProfil.Attributes("format").Value, _ + xmlProfil.Attributes("path").Value, _ + xmlProfil.Attributes("email").Value, _ + xmlProfil.Attributes("emailto").Value, _ + xmlProfil.Attributes("emailBetreff").Value, _ + xmlProfil.Attributes("emailBody").Value, _ + xmlProfil.Attributes("emailfrom").Value, _ + xmlProfil.Attributes("emailabsender").Value, _ + xmlProfil.Attributes("emailsmtp").Value, _ + xmlProfil.Attributes("emailuser").Value, _ + xmlProfil.Attributes("emailPW").Value, _ + xmlProfil.Attributes("emailbest").Value, _ + xmlProfil.Attributes("lastExport").Value) + ' Zähler für Profile erhöhen + i += 1 + End If + + Next + End If + End If + End If + End Sub + + ' erstellt ein neues Profil + Public Shared Sub Add(ByVal profilname As String, ByVal SQLAnweisung As String, _ + ByVal days As String, ByVal Format As String, ByVal Path As String, ByVal email As Boolean, ByVal emailto As String, ByVal emailBetreff As String, ByVal emailBody As String, _ + ByVal emailfrom As String, ByVal emailAbsender As String, ByVal emailsmtp As String, ByVal emailuser As String, ByVal emailPW As String, ByVal emailbest As String) + + Try + If Not ClassBWProfileExport.Exists(profilname) Then + Dim xml As New Xml.XmlDocument + Dim xmlProfil As Xml.XmlElement + + If ClassBWProfileExport.IsXmlAccessable() Then + + ' XML-Datei laden + xml.Load(xmlConfigFile) + + Try + ' versuchen die XML-Beschreibung zu schreiben + xml.InsertBefore(xml.CreateXmlDeclaration("1.0", "ISO-8859-1", "yes"), xml.ChildNodes(0)) + Catch ex As Exception + ' wenn dies nicht funktioniert, ist die Beschreibung schon vorhanden + End Try + + ' wenn die Hauptknoten noch nicht eingetragen wurden, sollen diese angelegt werden + If xml.DocumentElement Is Nothing Then xml.AppendChild(xml.CreateElement("Settings")) + If xml.SelectSingleNode("Settings/Profile") Is Nothing Then xml.SelectSingleNode("Settings").AppendChild(xml.CreateElement("Profile")) + + + ' dann ein neues Profil anlegen + xmlProfil = xml.CreateElement("Profil") + + ' dem Profil die Attribute zuweisen + xmlProfil.SetAttribute("profilname", profilname) + xmlProfil.SetAttribute("days", days) + xmlProfil.SetAttribute("format", Format) + xmlProfil.SetAttribute("path", Path) + xmlProfil.SetAttribute("email", email) + xmlProfil.SetAttribute("emailto", emailto) + xmlProfil.SetAttribute("emailBetreff", emailBetreff) + xmlProfil.SetAttribute("emailBody", emailBody) + xmlProfil.SetAttribute("emailfrom", emailfrom) + xmlProfil.SetAttribute("emailabsender", emailAbsender) + xmlProfil.SetAttribute("emailsmtp", emailsmtp) + xmlProfil.SetAttribute("emailuser", emailuser) + xmlProfil.SetAttribute("emailPW", emailPW) + xmlProfil.SetAttribute("emailbest", emailbest) + xmlProfil.SetAttribute("lastExport", "01.01.1990") + + xmlProfil.SetAttribute("sqlanweisung", SQLAnweisung) + ' und in den Hauptknoten 'Profile' einhängen + xml.SelectSingleNode("Settings/Profile").AppendChild(xmlProfil) + + ' XML-Datei speichern + xml.Save(xmlConfigFile) + + ' die Liste der Profile im Objekt vergrößern + ReDim Preserve ClassBWProfileExport._profiles(ClassBWProfileExport.Count) + ' ByVal profilname As String, _ + 'ByVal dbArt As String, ByVal dataSource As String, ByVal userId As String, _ + ' ByVal password As String, ByVal initialCatalog As String, ByVal SQLAnweisung As String, ByVal DLIntervall As Boolean, ByVal Intervall As String, ByVal time As String + + ' das Profilobjekt erstellen + ClassBWProfileExport._profiles(ClassBWProfileExport.Count - 1) = New ClassBWProfilExport(profilname, _ + SQLAnweisung, _ + days, _ + Format, _ + Path, _ + email, _ + emailto, _ + emailBetreff, _ + emailBody, _ + emailfrom, _ + emailAbsender, _ + emailsmtp, _ + emailuser, _ + emailPW, _ + emailbest, "") + MsgBox("Das Profil '" & profilname & "' wurde erfolgreich angelegt!", MsgBoxStyle.Information, "Erfolgsmeldung:") + + End If + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Anlegen eines Profils") + End Try + + End Sub + + + Public Shared Function DeleteProfil(ByVal profilname As String) As Boolean + + Try + If ClassBWProfileExport.Exists(profilname) Then + + ' XML-Objekt initialisieren + Dim xml As New Xml.XmlDocument + + If ClassBWProfileExport.IsXmlAccessable() Then + + ' XML-Datei laden + xml.Load(xmlConfigFile) + + + ' ***** Zuerst einmal das Profil heraus löschen ***** ' + + ' XML-Element auswählen + Dim node As Xml.XmlElement = xml.SelectSingleNode("Settings/Profile/Profil[@profilname='" & profilname & "']") + + If node IsNot Nothing Then + ' Element löschen + node.ParentNode.RemoveChild(node) + + ' XML-Datei speichern + xml.Save(xmlConfigFile) + End If + + + If ClassBWProfileExport.Exists(profilname) Then + ' temporäres Array erzeugen + Dim tempItems() As ClassBWProfilExport = ClassBWProfileExport._profiles + ClassBWProfileExport._profiles = Nothing + Dim i As Integer = 0 + + + ' alle Verknüpfungen durchlaufen + For Each item As ClassBWProfilExport In tempItems + + ' wenn es sich nicht um das gelöschte handelt + If Not item.OriginalProfilname = profilname Then + + ' Größe anpassen + ReDim Preserve ClassBWProfileExport._profiles(i) + + ' die Verknüpfung in das Items-Array übertragen + ClassBWProfileExport._profiles(i) = item + + ' Counter hochzählen + i += 1 + End If + Next + + Return True + Else + Return False + End If + Else + Return False + End If + Else + Return False + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Löschen eines Profils") + Return False + End Try + End Function + + + Public Shared Function Exists(ByVal profilname As String) + + If ClassBWProfileExport.Count > 0 Then + For Each profil As ClassBWProfilExport In ClassBWProfileExport._profiles + If profil.OriginalProfilname = profilname Then + Return True + End If + Next + End If + + Return False + + End Function + + ' gibt ein einzelnes Profil-Objekt zurück + Public Shared Function getProfilByName(ByVal profilname As String) As ClassBWProfilExport + + ' alle Profile durchlaufen + For Each profil As ClassBWProfilExport In _profiles + + ' wenn der aktuelle Profilname mit dem gesuchten Profilnamen übereinstimmt + If profil.Profilname = profilname Then + + ' das Profil zurückgeben + Return profil + End If + Next + + ' sonst nichts zurückgeben + Return Nothing + + End Function + Public Shared ReadOnly Property Profile() As ClassBWProfilExport() + Get + Return ClassBWProfileExport._profiles + End Get + End Property + Public Shared ReadOnly Property Count() As Integer + Get + ' Anzahl der Profile zurückgeben + If ClassBWProfileExport._profiles IsNot Nothing Then + Return ClassBWProfileExport._profiles.Length + Else + Return 0 + End If + End Get + End Property + + +End Class diff --git a/Supplywatch/ClassDatabase.vb b/Supplywatch/ClassDatabase.vb new file mode 100644 index 0000000..99378e0 --- /dev/null +++ b/Supplywatch/ClassDatabase.vb @@ -0,0 +1,110 @@ +Public Class ClassDatabase + ' Private Shared SQLSERVERConnectionString As String + Private Shared OracleConnectionString As String + 'Public Shared Function Init() + ' Try + ' SQLSERVERConnectionString = MyConnectionString + ' Dim SQLconnect As New SqlClient.SqlConnection + ' SQLconnect.ConnectionString = SQLSERVERConnectionString + ' SQLconnect.Open() + ' SQLconnect.Close() + ' Return True + ' Catch ex As Exception + ' ClassLogger.Add("Fehler bei Database-Init: " & ex.Message, True) + ' Return False + ' End Try + 'End Function + + Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False) + Try + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = My.Settings.ConfigConnectionString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + SQLcommand.CommandText = Select_anweisung + + Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) + Dim dt As DataTable = New DataTable() + adapter1.Fill(dt) + SQLconnect.Close() + Return dt + Catch ex As Exception + If userInput = True Then + MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei Return_Datatable: " & ex.Message, True) + ClassLogger.Add("#SQL: " & Select_anweisung, False) + Return Nothing + End Try + End Function + Public Shared Function Return_Datatable_CS(Select_anweisung As String, ConString As String, Optional userInput As Boolean = False) + Try + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = ConString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + SQLcommand.CommandText = Select_anweisung + + Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) + Dim dt As DataTable = New DataTable() + adapter1.Fill(dt) + SQLconnect.Close() + Return dt + Catch ex As Exception + If userInput = True Then + MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei Return_Datatable_CS: " & ex.Message, True) + ClassLogger.Add("#SQL: " & Select_anweisung, False) + Return Nothing + End Try + End Function + Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional userInput As Boolean = False) + Try + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = My.Settings.ConfigConnectionString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + 'Update Last Created Record in Foo + SQLcommand.CommandText = ExecuteCMD + SQLcommand.ExecuteNonQuery() + SQLcommand.Dispose() + SQLconnect.Close() + Return True + Catch ex As Exception + If userInput = True Then + MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei Execute_non_Query: " & ex.Message, True) + ClassLogger.Add("#SQL: " & ExecuteCMD, False) + + Return False + End Try + End Function + Public Shared Function Execute_Scalar(cmdscalar As String, Optional userInput As Boolean = False) + Dim result + Try + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = My.Settings.ConfigConnectionString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + 'Update Last Created Record in Foo + SQLcommand.CommandText = cmdscalar + result = SQLcommand.ExecuteScalar() + SQLcommand.Dispose() + SQLconnect.Close() + Return result + Catch ex As Exception + If userInput = True Then + MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei Execute_Scalar: " & ex.Message, True) + ClassLogger.Add("#SQL: " & cmdscalar, False) + Return Nothing + End Try + End Function +End Class diff --git a/Supplywatch/ClassHelper.vb b/Supplywatch/ClassHelper.vb new file mode 100644 index 0000000..fe929a5 --- /dev/null +++ b/Supplywatch/ClassHelper.vb @@ -0,0 +1,18 @@ +Public Class ClassHelper + Public Function FileExists(ByVal FileFullPath As String) As Boolean + + Dim f As New IO.FileInfo(FileFullPath) + Return f.Exists + + End Function + + Public Function FolderExists(ByVal FolderPath As String) As Boolean + + Dim f As New IO.DirectoryInfo(FolderPath) + Return f.Exists + + End Function + Public Shared Function GetSelectionGridName(Name As String) + Return System.IO.Path.Combine(Application.UserAppDataPath(), Name & "-UserLayout.xml") + End Function +End Class diff --git a/Supplywatch/ClassLogger.vb b/Supplywatch/ClassLogger.vb new file mode 100644 index 0000000..d3c8619 --- /dev/null +++ b/Supplywatch/ClassLogger.vb @@ -0,0 +1,276 @@ +Public Class ClassLogger + + Private Shared DateiSpeicherort As String = Nothing + Private Shared DateiPrefix As String = "" + Private Shared Datei As IO.File = Nothing + Private Shared Dateiname As String = "" + Private Shared StreamWriter As IO.StreamWriter = Nothing + Private Shared _Helper As New ClassHelper + Private Shared HasInformedAboutError As Boolean = False + + ' eine Art Konstruktor + Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True) + + ' initialisiert den Speicherort + ClassLogger.SetSpeicherort(speicherort) + + ' wenn ein Prfix gesetzt wurde + If Not prefix = "" Then + + ' initialisiert das Prefix + ClassLogger.SetPrefix(prefix) + End If + + ClassLogger.Dateiname = ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt" + If _Helper.FileExists(ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt") = False Then + My.Computer.FileSystem.WriteAllText(ClassLogger.Dateiname, String.Empty, False) + End If + + If Not appendFile Then + ' der Versuch die Datei zu löschen + 'Try + ' My.Computer.FileSystem.DeleteFile(ClassNILogger.Dateiname, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently) + 'Catch ex As Exception + ' ' bei Fehler besteht kein Schreibrecht auf die Datei oder Datei existiert nicht + ' ' ALSO: alles Okay soweit + 'End Try + + + End If + ' testen ob sich die Datei öffnen und beschreiben lässt + ClassLogger.CheckIsLogWritable() + + End Sub + + ' legt den Speicherort fest + Public Shared Sub SetSpeicherort(ByVal speicherort As String) + Dim _dir As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log") + If speicherort = "" Then + If _dir.Exists = False Then + IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Log") + End If + ClassLogger.DateiSpeicherort = My.Application.Info.DirectoryPath & "\Log\" + Else + ClassLogger.DateiSpeicherort = speicherort + End If + End Sub + + ' legt das Prefix für den Dateinamen fest + Public Shared Sub SetPrefix(ByVal prefix As String) + ClassLogger.DateiPrefix = prefix + End Sub + + Public Shared Sub Add(ByVal information As String, Optional ByVal mit_prefix As Boolean = True) + If ClassLogger.OpenFile Then + Try + If mit_prefix Then + ClassLogger.StreamWriter.WriteLine("Nachricht (" & System.DateTime.Now & "): " & information) + Else + ClassLogger.StreamWriter.WriteLine(information) + End If + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + End Try + Else + ClassLogger.ShowErrorMessage() + End If + End Sub + + Public Shared Sub Add(ByVal ClassFunction As String, ByVal information As String) + If ClassLogger.OpenFile Then + Try + ClassLogger.StreamWriter.WriteLine("Exception (" & System.DateTime.Now & "): " & ClassFunction & " => " & information) + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + End Try + Else + ClassLogger.ShowErrorMessage() + End If + End Sub + + Public Shared Sub Add(ByVal ex As Exception) + If ClassLogger.OpenFile Then + Try + ClassLogger.StreamWriter.WriteLine("Exception (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "]") + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + End Try + Else + ClassLogger.ShowErrorMessage() + End If + End Sub + + 'Public Shared Sub Add(ByVal ex As Oracle.DataAccess.Client.OracleException) + ' If ClassLogger.OpenFile Then + ' Try + ' ClassLogger.StreamWriter.WriteLine("OracleException (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "][" & ex.ErrorCode & "]") + ' ClassLogger.CloseFile() + ' Catch e As Exception + ' ClassLogger.ShowErrorMessage() + ' End Try + ' Else + ' ClassLogger.ShowErrorMessage() + ' End If + 'End Sub + + Public Shared Sub Add(ByVal ClassFunction As String, ByVal ex As Exception) + If ClassLogger.OpenFile Then + Try + ClassLogger.StreamWriter.WriteLine("Exception (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "] => " & ClassFunction) + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + End Try + Else + ClassLogger.ShowErrorMessage() + End If + End Sub + + 'Public Shared Sub Add(ByVal ClassFunction As String, ByVal ex As Oracle.DataAccess.Client.OracleException) + ' If ClassLogger.OpenFile Then + ' Try + ' ClassLogger.StreamWriter.WriteLine("OracleException (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "][" & ex.ErrorCode & "] => " & ClassFunction) + ' ClassLogger.CloseFile() + ' Catch e As Exception + ' ClassLogger.ShowErrorMessage() + ' End Try + ' Else + ' ClassLogger.ShowErrorMessage() + ' End If + 'End Sub + + Public Shared Sub Add(ByVal ClassFunction As String, ByVal information As String, ByVal ex As Exception) + + If ClassLogger.OpenFile Then + Try + ClassLogger.StreamWriter.WriteLine("Exception (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "] => " & ClassFunction & " => " & information) + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + End Try + Else + ClassLogger.ShowErrorMessage() + End If + + End Sub + + ' öffnet eine Datei zum Schreiben + Private Shared Function OpenFile() + + Try + + ' wenn ein Speicherort festgelegt wurde + If Not ClassLogger.DateiSpeicherort = Nothing Then + + ' den Dateienamen definieren + Dim dateiname As String = ClassLogger.Dateiname + + ' Datei anlegen wenn noch nicht vorhanden + My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True) + + ' die Datei zum Schreiben öffnen + ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8) + End If + + ' wenn die Datei erfolgreich geöffnet wurde + If ClassLogger.StreamWriter IsNot Nothing Then + Return True + Else + Return False + End If + + Catch ex As Exception + Return False + End Try + + End Function + + ' öffnet eine Datei zum Schreiben + Private Shared Function OpenFile(ByVal DateiSpeicherort As String, ByVal DateiPrefix As String) + + Try + + ' wenn ein Speicherort festgelegt wurde + If Not DateiSpeicherort = Nothing And ClassLogger.CheckIsLogWritable() Then + + ' den Dateienamen definieren + Dim dateiname As String = ClassLogger.Dateiname + ' Datei anlegen wenn noch nicht vorhanden + My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True) + + ' die Datei zum Schreiben öffnen + ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8) + End If + + ' wenn die Datei erfolgreich geöffnet wurde + If ClassLogger.StreamWriter IsNot Nothing Then + Return True + Else + Return False + End If + + Catch ex As Exception + Return False + End Try + + End Function + + + ' schliesst die geöffnete Datei + Private Shared Sub CloseFile() + + ' wenn eine Datei geöffnet ist + If ClassLogger.StreamWriter IsNot Nothing Then + ' die Datei schliessen + ClassLogger.StreamWriter.Close() + ClassLogger.StreamWriter = Nothing + End If + End Sub + + + Public Shared Function CheckIsLogWritable() + + If ClassLogger.OpenFile Then + Try + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + Return False + End Try + Else + ClassLogger.ShowErrorMessage() + Return False + End If + + Return True + End Function + + + Public Shared Function CheckIsLogWritable(ByVal vDateiSpeicherort As String, ByVal vDateiPrefix As String) + + If ClassLogger.OpenFile(vDateiSpeicherort, vDateiPrefix) Then + Try + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + Return False + End Try + Else + ClassLogger.ShowErrorMessage() + Return False + End If + + Return True + End Function + Private Shared Sub ShowErrorMessage() + If Not ClassLogger.HasInformedAboutError Then + ' MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & vbNewLine & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf der Nachindexierung nicht zu stören.", MsgBoxStyle.Information, "Fehler beim Öffnen der Logdatei") + ClassLogger.HasInformedAboutError = True + End If + End Sub + + +End Class diff --git a/Supplywatch/ClassLogger_SW.vb b/Supplywatch/ClassLogger_SW.vb new file mode 100644 index 0000000..c1014ea --- /dev/null +++ b/Supplywatch/ClassLogger_SW.vb @@ -0,0 +1,276 @@ +Public Class ClassLoggerSW + + Private Shared DateiSpeicherort As String = Nothing + Private Shared DateiPrefix As String = "" + Private Shared Datei As IO.File = Nothing + Private Shared Dateiname As String = "" + Private Shared StreamWriter As IO.StreamWriter = Nothing + Private Shared _Helper As New ClassHelper + Private Shared HasInformedAboutError As Boolean = False + + ' eine Art Konstruktor + Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True) + + ' initialisiert den Speicherort + ClassLoggerSW.SetSpeicherort(speicherort) + + ' wenn ein Prfix gesetzt wurde + If Not prefix = "" Then + + ' initialisiert das Prefix + ClassLoggerSW.SetPrefix(prefix) + End If + + ClassLoggerSW.Dateiname = ClassLoggerSW.DateiSpeicherort & "\" & ClassLoggerSW.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt" + If _Helper.FileExists(ClassLoggerSW.DateiSpeicherort & "\" & ClassLoggerSW.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt") = False Then + My.Computer.FileSystem.WriteAllText(ClassLoggerSW.Dateiname, String.Empty, False) + End If + + If Not appendFile Then + ' der Versuch die Datei zu löschen + 'Try + ' My.Computer.FileSystem.DeleteFile(ClassNILogger.Dateiname, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently) + 'Catch ex As Exception + ' ' bei Fehler besteht kein Schreibrecht auf die Datei oder Datei existiert nicht + ' ' ALSO: alles Okay soweit + 'End Try + + + End If + ' testen ob sich die Datei öffnen und beschreiben lässt + ClassLoggerSW.CheckIsLogWritable() + + End Sub + + ' legt den Speicherort fest + Public Shared Sub SetSpeicherort(ByVal speicherort As String) + Dim _dir As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log") + If speicherort = "" Then + If _dir.Exists = False Then + IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Log") + End If + ClassLoggerSW.DateiSpeicherort = My.Application.Info.DirectoryPath & "\Log\" + Else + ClassLoggerSW.DateiSpeicherort = speicherort + End If + End Sub + + ' legt das Prefix für den Dateinamen fest + Public Shared Sub SetPrefix(ByVal prefix As String) + ClassLoggerSW.DateiPrefix = prefix + End Sub + + Public Shared Sub Add(ByVal information As String, Optional ByVal mit_prefix As Boolean = True) + If ClassLoggerSW.OpenFile Then + Try + If mit_prefix Then + ClassLoggerSW.StreamWriter.WriteLine("Nachricht (" & System.DateTime.Now & "): " & information) + Else + ClassLoggerSW.StreamWriter.WriteLine(information) + End If + ClassLoggerSW.CloseFile() + Catch e As Exception + ClassLoggerSW.ShowErrorMessage() + End Try + Else + ClassLoggerSW.ShowErrorMessage() + End If + End Sub + + Public Shared Sub Add(ByVal ClassFunction As String, ByVal information As String) + If ClassLoggerSW.OpenFile Then + Try + ClassLoggerSW.StreamWriter.WriteLine("Exception (" & System.DateTime.Now & "): " & ClassFunction & " => " & information) + ClassLoggerSW.CloseFile() + Catch e As Exception + ClassLoggerSW.ShowErrorMessage() + End Try + Else + ClassLoggerSW.ShowErrorMessage() + End If + End Sub + + Public Shared Sub Add(ByVal ex As Exception) + If ClassLoggerSW.OpenFile Then + Try + ClassLoggerSW.StreamWriter.WriteLine("Exception (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "]") + ClassLoggerSW.CloseFile() + Catch e As Exception + ClassLoggerSW.ShowErrorMessage() + End Try + Else + ClassLoggerSW.ShowErrorMessage() + End If + End Sub + + 'Public Shared Sub Add(ByVal ex As Oracle.DataAccess.Client.OracleException) + ' If ClassLoggerSW.OpenFile Then + ' Try + ' ClassLoggerSW.StreamWriter.WriteLine("OracleException (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "][" & ex.ErrorCode & "]") + ' ClassLoggerSW.CloseFile() + ' Catch e As Exception + ' ClassLoggerSW.ShowErrorMessage() + ' End Try + ' Else + ' ClassLoggerSW.ShowErrorMessage() + ' End If + 'End Sub + + Public Shared Sub Add(ByVal ClassFunction As String, ByVal ex As Exception) + If ClassLoggerSW.OpenFile Then + Try + ClassLoggerSW.StreamWriter.WriteLine("Exception (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "] => " & ClassFunction) + ClassLoggerSW.CloseFile() + Catch e As Exception + ClassLoggerSW.ShowErrorMessage() + End Try + Else + ClassLoggerSW.ShowErrorMessage() + End If + End Sub + + 'Public Shared Sub Add(ByVal ClassFunction As String, ByVal ex As Oracle.DataAccess.Client.OracleException) + ' If ClassLoggerSW.OpenFile Then + ' Try + ' ClassLoggerSW.StreamWriter.WriteLine("OracleException (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "][" & ex.ErrorCode & "] => " & ClassFunction) + ' ClassLoggerSW.CloseFile() + ' Catch e As Exception + ' ClassLoggerSW.ShowErrorMessage() + ' End Try + ' Else + ' ClassLoggerSW.ShowErrorMessage() + ' End If + 'End Sub + + Public Shared Sub Add(ByVal ClassFunction As String, ByVal information As String, ByVal ex As Exception) + + If ClassLoggerSW.OpenFile Then + Try + ClassLoggerSW.StreamWriter.WriteLine("Exception (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "] => " & ClassFunction & " => " & information) + ClassLoggerSW.CloseFile() + Catch e As Exception + ClassLoggerSW.ShowErrorMessage() + End Try + Else + ClassLoggerSW.ShowErrorMessage() + End If + + End Sub + + ' öffnet eine Datei zum Schreiben + Private Shared Function OpenFile() + + Try + + ' wenn ein Speicherort festgelegt wurde + If Not ClassLoggerSW.DateiSpeicherort = Nothing Then + + ' den Dateienamen definieren + Dim dateiname As String = ClassLoggerSW.Dateiname + + ' Datei anlegen wenn noch nicht vorhanden + My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True) + + ' die Datei zum Schreiben öffnen + ClassLoggerSW.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8) + End If + + ' wenn die Datei erfolgreich geöffnet wurde + If ClassLoggerSW.StreamWriter IsNot Nothing Then + Return True + Else + Return False + End If + + Catch ex As Exception + Return False + End Try + + End Function + + ' öffnet eine Datei zum Schreiben + Private Shared Function OpenFile(ByVal DateiSpeicherort As String, ByVal DateiPrefix As String) + + Try + + ' wenn ein Speicherort festgelegt wurde + If Not DateiSpeicherort = Nothing And ClassLoggerSW.CheckIsLogWritable() Then + + ' den Dateienamen definieren + Dim dateiname As String = ClassLoggerSW.Dateiname + ' Datei anlegen wenn noch nicht vorhanden + My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True) + + ' die Datei zum Schreiben öffnen + ClassLoggerSW.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8) + End If + + ' wenn die Datei erfolgreich geöffnet wurde + If ClassLoggerSW.StreamWriter IsNot Nothing Then + Return True + Else + Return False + End If + + Catch ex As Exception + Return False + End Try + + End Function + + + ' schliesst die geöffnete Datei + Private Shared Sub CloseFile() + + ' wenn eine Datei geöffnet ist + If ClassLoggerSW.StreamWriter IsNot Nothing Then + ' die Datei schliessen + ClassLoggerSW.StreamWriter.Close() + ClassLoggerSW.StreamWriter = Nothing + End If + End Sub + + + Public Shared Function CheckIsLogWritable() + + If ClassLoggerSW.OpenFile Then + Try + ClassLoggerSW.CloseFile() + Catch e As Exception + ClassLoggerSW.ShowErrorMessage() + Return False + End Try + Else + ClassLoggerSW.ShowErrorMessage() + Return False + End If + + Return True + End Function + + + Public Shared Function CheckIsLogWritable(ByVal vDateiSpeicherort As String, ByVal vDateiPrefix As String) + + If ClassLoggerSW.OpenFile(vDateiSpeicherort, vDateiPrefix) Then + Try + ClassLoggerSW.CloseFile() + Catch e As Exception + ClassLoggerSW.ShowErrorMessage() + Return False + End Try + Else + ClassLoggerSW.ShowErrorMessage() + Return False + End If + + Return True + End Function + Private Shared Sub ShowErrorMessage() + If Not ClassLoggerSW.HasInformedAboutError Then + ' MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & vbNewLine & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf der Nachindexierung nicht zu stören.", MsgBoxStyle.Information, "Fehler beim Öffnen der Logdatei") + ClassLoggerSW.HasInformedAboutError = True + End If + End Sub + + +End Class diff --git a/Supplywatch/DS_Reporting.Designer.vb b/Supplywatch/DS_Reporting.Designer.vb new file mode 100644 index 0000000..8d1210a --- /dev/null +++ b/Supplywatch/DS_Reporting.Designer.vb @@ -0,0 +1,7004 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DS_Reporting + Inherits Global.System.Data.DataSet + + Private tableVWNotInList As VWNotInListDataTable + + Private tableTBVERTRAG_NOTEXIST As TBVERTRAG_NOTEXISTDataTable + + Private tableVWGERAET_MELDUNG_FEHLT As VWGERAET_MELDUNG_FEHLTDataTable + + Private tableVWSUPPLY_OHNE_ZO As VWSUPPLY_OHNE_ZODataTable + + Private tableVWSILENT_GERAET As VWSILENT_GERAETDataTable + + Private tableVWSILENT_SUPPLIES As VWSILENT_SUPPLIESDataTable + + Private tableVWSUPPLIES_NICHT_DEF As VWSUPPLIES_NICHT_DEFDataTable + + Private tableVWSERIENNR_NIE_DA As VWSERIENNR_NIE_DADataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + 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 + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("VWNotInList")) Is Nothing) Then + MyBase.Tables.Add(New VWNotInListDataTable(ds.Tables("VWNotInList"))) + End If + If (Not (ds.Tables("TBVERTRAG_NOTEXIST")) Is Nothing) Then + MyBase.Tables.Add(New TBVERTRAG_NOTEXISTDataTable(ds.Tables("TBVERTRAG_NOTEXIST"))) + End If + If (Not (ds.Tables("VWGERAET_MELDUNG_FEHLT")) Is Nothing) Then + MyBase.Tables.Add(New VWGERAET_MELDUNG_FEHLTDataTable(ds.Tables("VWGERAET_MELDUNG_FEHLT"))) + End If + If (Not (ds.Tables("VWSUPPLY_OHNE_ZO")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLY_OHNE_ZODataTable(ds.Tables("VWSUPPLY_OHNE_ZO"))) + End If + If (Not (ds.Tables("VWSILENT_GERAET")) Is Nothing) Then + MyBase.Tables.Add(New VWSILENT_GERAETDataTable(ds.Tables("VWSILENT_GERAET"))) + End If + If (Not (ds.Tables("VWSILENT_SUPPLIES")) Is Nothing) Then + MyBase.Tables.Add(New VWSILENT_SUPPLIESDataTable(ds.Tables("VWSILENT_SUPPLIES"))) + End If + If (Not (ds.Tables("VWSUPPLIES_NICHT_DEF")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLIES_NICHT_DEFDataTable(ds.Tables("VWSUPPLIES_NICHT_DEF"))) + End If + If (Not (ds.Tables("VWSERIENNR_NIE_DA")) Is Nothing) Then + MyBase.Tables.Add(New VWSERIENNR_NIE_DADataTable(ds.Tables("VWSERIENNR_NIE_DA"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property VWNotInList() As VWNotInListDataTable + Get + Return Me.tableVWNotInList + End Get + End Property + + _ + Public ReadOnly Property TBVERTRAG_NOTEXIST() As TBVERTRAG_NOTEXISTDataTable + Get + Return Me.tableTBVERTRAG_NOTEXIST + End Get + End Property + + _ + Public ReadOnly Property VWGERAET_MELDUNG_FEHLT() As VWGERAET_MELDUNG_FEHLTDataTable + Get + Return Me.tableVWGERAET_MELDUNG_FEHLT + End Get + End Property + + _ + Public ReadOnly Property VWSUPPLY_OHNE_ZO() As VWSUPPLY_OHNE_ZODataTable + Get + Return Me.tableVWSUPPLY_OHNE_ZO + End Get + End Property + + _ + Public ReadOnly Property VWSILENT_GERAET() As VWSILENT_GERAETDataTable + Get + Return Me.tableVWSILENT_GERAET + End Get + End Property + + _ + Public ReadOnly Property VWSILENT_SUPPLIES() As VWSILENT_SUPPLIESDataTable + Get + Return Me.tableVWSILENT_SUPPLIES + End Get + End Property + + _ + Public ReadOnly Property VWSUPPLIES_NICHT_DEF() As VWSUPPLIES_NICHT_DEFDataTable + Get + Return Me.tableVWSUPPLIES_NICHT_DEF + End Get + End Property + + _ + Public ReadOnly Property VWSERIENNR_NIE_DA() As VWSERIENNR_NIE_DADataTable + Get + Return Me.tableVWSERIENNR_NIE_DA + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DS_Reporting = CType(MyBase.Clone,DS_Reporting) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("VWNotInList")) Is Nothing) Then + MyBase.Tables.Add(New VWNotInListDataTable(ds.Tables("VWNotInList"))) + End If + If (Not (ds.Tables("TBVERTRAG_NOTEXIST")) Is Nothing) Then + MyBase.Tables.Add(New TBVERTRAG_NOTEXISTDataTable(ds.Tables("TBVERTRAG_NOTEXIST"))) + End If + If (Not (ds.Tables("VWGERAET_MELDUNG_FEHLT")) Is Nothing) Then + MyBase.Tables.Add(New VWGERAET_MELDUNG_FEHLTDataTable(ds.Tables("VWGERAET_MELDUNG_FEHLT"))) + End If + If (Not (ds.Tables("VWSUPPLY_OHNE_ZO")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLY_OHNE_ZODataTable(ds.Tables("VWSUPPLY_OHNE_ZO"))) + End If + If (Not (ds.Tables("VWSILENT_GERAET")) Is Nothing) Then + MyBase.Tables.Add(New VWSILENT_GERAETDataTable(ds.Tables("VWSILENT_GERAET"))) + End If + If (Not (ds.Tables("VWSILENT_SUPPLIES")) Is Nothing) Then + MyBase.Tables.Add(New VWSILENT_SUPPLIESDataTable(ds.Tables("VWSILENT_SUPPLIES"))) + End If + If (Not (ds.Tables("VWSUPPLIES_NICHT_DEF")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLIES_NICHT_DEFDataTable(ds.Tables("VWSUPPLIES_NICHT_DEF"))) + End If + If (Not (ds.Tables("VWSERIENNR_NIE_DA")) Is Nothing) Then + MyBase.Tables.Add(New VWSERIENNR_NIE_DADataTable(ds.Tables("VWSERIENNR_NIE_DA"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + 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)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableVWNotInList = CType(MyBase.Tables("VWNotInList"),VWNotInListDataTable) + If (initTable = true) Then + If (Not (Me.tableVWNotInList) Is Nothing) Then + Me.tableVWNotInList.InitVars + End If + End If + Me.tableTBVERTRAG_NOTEXIST = CType(MyBase.Tables("TBVERTRAG_NOTEXIST"),TBVERTRAG_NOTEXISTDataTable) + If (initTable = true) Then + If (Not (Me.tableTBVERTRAG_NOTEXIST) Is Nothing) Then + Me.tableTBVERTRAG_NOTEXIST.InitVars + End If + End If + Me.tableVWGERAET_MELDUNG_FEHLT = CType(MyBase.Tables("VWGERAET_MELDUNG_FEHLT"),VWGERAET_MELDUNG_FEHLTDataTable) + If (initTable = true) Then + If (Not (Me.tableVWGERAET_MELDUNG_FEHLT) Is Nothing) Then + Me.tableVWGERAET_MELDUNG_FEHLT.InitVars + End If + End If + Me.tableVWSUPPLY_OHNE_ZO = CType(MyBase.Tables("VWSUPPLY_OHNE_ZO"),VWSUPPLY_OHNE_ZODataTable) + If (initTable = true) Then + If (Not (Me.tableVWSUPPLY_OHNE_ZO) Is Nothing) Then + Me.tableVWSUPPLY_OHNE_ZO.InitVars + End If + End If + Me.tableVWSILENT_GERAET = CType(MyBase.Tables("VWSILENT_GERAET"),VWSILENT_GERAETDataTable) + If (initTable = true) Then + If (Not (Me.tableVWSILENT_GERAET) Is Nothing) Then + Me.tableVWSILENT_GERAET.InitVars + End If + End If + Me.tableVWSILENT_SUPPLIES = CType(MyBase.Tables("VWSILENT_SUPPLIES"),VWSILENT_SUPPLIESDataTable) + If (initTable = true) Then + If (Not (Me.tableVWSILENT_SUPPLIES) Is Nothing) Then + Me.tableVWSILENT_SUPPLIES.InitVars + End If + End If + Me.tableVWSUPPLIES_NICHT_DEF = CType(MyBase.Tables("VWSUPPLIES_NICHT_DEF"),VWSUPPLIES_NICHT_DEFDataTable) + If (initTable = true) Then + If (Not (Me.tableVWSUPPLIES_NICHT_DEF) Is Nothing) Then + Me.tableVWSUPPLIES_NICHT_DEF.InitVars + End If + End If + Me.tableVWSERIENNR_NIE_DA = CType(MyBase.Tables("VWSERIENNR_NIE_DA"),VWSERIENNR_NIE_DADataTable) + If (initTable = true) Then + If (Not (Me.tableVWSERIENNR_NIE_DA) Is Nothing) Then + Me.tableVWSERIENNR_NIE_DA.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DS_Reporting" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DS_Reporting.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableVWNotInList = New VWNotInListDataTable() + MyBase.Tables.Add(Me.tableVWNotInList) + Me.tableTBVERTRAG_NOTEXIST = New TBVERTRAG_NOTEXISTDataTable() + MyBase.Tables.Add(Me.tableTBVERTRAG_NOTEXIST) + Me.tableVWGERAET_MELDUNG_FEHLT = New VWGERAET_MELDUNG_FEHLTDataTable() + MyBase.Tables.Add(Me.tableVWGERAET_MELDUNG_FEHLT) + Me.tableVWSUPPLY_OHNE_ZO = New VWSUPPLY_OHNE_ZODataTable() + MyBase.Tables.Add(Me.tableVWSUPPLY_OHNE_ZO) + Me.tableVWSILENT_GERAET = New VWSILENT_GERAETDataTable() + MyBase.Tables.Add(Me.tableVWSILENT_GERAET) + Me.tableVWSILENT_SUPPLIES = New VWSILENT_SUPPLIESDataTable() + MyBase.Tables.Add(Me.tableVWSILENT_SUPPLIES) + Me.tableVWSUPPLIES_NICHT_DEF = New VWSUPPLIES_NICHT_DEFDataTable() + MyBase.Tables.Add(Me.tableVWSUPPLIES_NICHT_DEF) + Me.tableVWSERIENNR_NIE_DA = New VWSERIENNR_NIE_DADataTable() + MyBase.Tables.Add(Me.tableVWSERIENNR_NIE_DA) + End Sub + + _ + Private Function ShouldSerializeVWNotInList() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBVERTRAG_NOTEXIST() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWGERAET_MELDUNG_FEHLT() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWSUPPLY_OHNE_ZO() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWSILENT_GERAET() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWSILENT_SUPPLIES() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWSUPPLIES_NICHT_DEF() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWSERIENNR_NIE_DA() As Boolean + Return false + End Function + + _ + 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 + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DS_Reporting = New DS_Reporting() + 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() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub VWNotInListRowChangeEventHandler(ByVal sender As Object, ByVal e As VWNotInListRowChangeEvent) + + _ + Public Delegate Sub TBVERTRAG_NOTEXISTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBVERTRAG_NOTEXISTRowChangeEvent) + + _ + Public Delegate Sub VWGERAET_MELDUNG_FEHLTRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGERAET_MELDUNG_FEHLTRowChangeEvent) + + _ + Public Delegate Sub VWSUPPLY_OHNE_ZORowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLY_OHNE_ZORowChangeEvent) + + _ + Public Delegate Sub VWSILENT_GERAETRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSILENT_GERAETRowChangeEvent) + + _ + Public Delegate Sub VWSILENT_SUPPLIESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSILENT_SUPPLIESRowChangeEvent) + + _ + Public Delegate Sub VWSUPPLIES_NICHT_DEFRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLIES_NICHT_DEFRowChangeEvent) + + _ + Public Delegate Sub VWSERIENNR_NIE_DARowChangeEventHandler(ByVal sender As Object, ByVal e As VWSERIENNR_NIE_DARowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWNotInListDataTable + Inherits Global.System.Data.TypedTableBase(Of VWNotInListRow) + + Private columnVERTRAGSNR As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnMODELL_NAME As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWNotInList" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property VERTRAGSNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAGSNR + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property MODELL_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODELL_NAME + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWNotInListRow + Get + Return CType(Me.Rows(index),VWNotInListRow) + End Get + End Property + + _ + Public Event VWNotInListRowChanging As VWNotInListRowChangeEventHandler + + _ + Public Event VWNotInListRowChanged As VWNotInListRowChangeEventHandler + + _ + Public Event VWNotInListRowDeleting As VWNotInListRowChangeEventHandler + + _ + Public Event VWNotInListRowDeleted As VWNotInListRowChangeEventHandler + + _ + Public Overloads Sub AddVWNotInListRow(ByVal row As VWNotInListRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWNotInListRow(ByVal VERTRAGSNR As String, ByVal MARKT As String, ByVal MODELL_NAME As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal SERIENNR As String) As VWNotInListRow + Dim rowVWNotInListRow As VWNotInListRow = CType(Me.NewRow,VWNotInListRow) + Dim columnValuesArray() As Object = New Object() {VERTRAGSNR, MARKT, MODELL_NAME, ERFASSTWER, ERFASSTWANN, SERIENNR} + rowVWNotInListRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWNotInListRow) + Return rowVWNotInListRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWNotInListDataTable = CType(MyBase.Clone,VWNotInListDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWNotInListDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnVERTRAGSNR = MyBase.Columns("VERTRAGSNR") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnMODELL_NAME = MyBase.Columns("MODELL_NAME") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + End Sub + + _ + Private Sub InitClass() + Me.columnVERTRAGSNR = New Global.System.Data.DataColumn("VERTRAGSNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAGSNR) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnMODELL_NAME = New Global.System.Data.DataColumn("MODELL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODELL_NAME) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnVERTRAGSNR.AllowDBNull = false + Me.columnVERTRAGSNR.MaxLength = 50 + Me.columnMARKT.MaxLength = 50 + Me.columnMODELL_NAME.MaxLength = 50 + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnSERIENNR.AllowDBNull = false + Me.columnSERIENNR.MaxLength = 30 + End Sub + + _ + Public Function NewVWNotInListRow() As VWNotInListRow + Return CType(Me.NewRow,VWNotInListRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWNotInListRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWNotInListRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWNotInListRowChangedEvent) Is Nothing) Then + RaiseEvent VWNotInListRowChanged(Me, New VWNotInListRowChangeEvent(CType(e.Row,VWNotInListRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWNotInListRowChangingEvent) Is Nothing) Then + RaiseEvent VWNotInListRowChanging(Me, New VWNotInListRowChangeEvent(CType(e.Row,VWNotInListRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWNotInListRowDeletedEvent) Is Nothing) Then + RaiseEvent VWNotInListRowDeleted(Me, New VWNotInListRowChangeEvent(CType(e.Row,VWNotInListRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWNotInListRowDeletingEvent) Is Nothing) Then + RaiseEvent VWNotInListRowDeleting(Me, New VWNotInListRowChangeEvent(CType(e.Row,VWNotInListRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWNotInListRow(ByVal row As VWNotInListRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As DS_Reporting = New DS_Reporting() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWNotInListDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBVERTRAG_NOTEXISTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBVERTRAG_NOTEXISTRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnVERTRAGSNR As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnDATEINAME As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBVERTRAG_NOTEXIST" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property VERTRAGSNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAGSNR + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property DATEINAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATEINAME + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBVERTRAG_NOTEXISTRow + Get + Return CType(Me.Rows(index),TBVERTRAG_NOTEXISTRow) + End Get + End Property + + _ + Public Event TBVERTRAG_NOTEXISTRowChanging As TBVERTRAG_NOTEXISTRowChangeEventHandler + + _ + Public Event TBVERTRAG_NOTEXISTRowChanged As TBVERTRAG_NOTEXISTRowChangeEventHandler + + _ + Public Event TBVERTRAG_NOTEXISTRowDeleting As TBVERTRAG_NOTEXISTRowChangeEventHandler + + _ + Public Event TBVERTRAG_NOTEXISTRowDeleted As TBVERTRAG_NOTEXISTRowChangeEventHandler + + _ + Public Overloads Sub AddTBVERTRAG_NOTEXISTRow(ByVal row As TBVERTRAG_NOTEXISTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBVERTRAG_NOTEXISTRow(ByVal VERTRAGSNR As String, ByVal MARKT As String, ByVal DATEINAME As String, ByVal ERFASSTWANN As Date) As TBVERTRAG_NOTEXISTRow + Dim rowTBVERTRAG_NOTEXISTRow As TBVERTRAG_NOTEXISTRow = CType(Me.NewRow,TBVERTRAG_NOTEXISTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, VERTRAGSNR, MARKT, DATEINAME, ERFASSTWANN} + rowTBVERTRAG_NOTEXISTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBVERTRAG_NOTEXISTRow) + Return rowTBVERTRAG_NOTEXISTRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBVERTRAG_NOTEXISTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBVERTRAG_NOTEXISTRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBVERTRAG_NOTEXISTDataTable = CType(MyBase.Clone,TBVERTRAG_NOTEXISTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBVERTRAG_NOTEXISTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnVERTRAGSNR = MyBase.Columns("VERTRAGSNR") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnDATEINAME = MyBase.Columns("DATEINAME") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnVERTRAGSNR = New Global.System.Data.DataColumn("VERTRAGSNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAGSNR) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnDATEINAME = New Global.System.Data.DataColumn("DATEINAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATEINAME) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnVERTRAGSNR.AllowDBNull = false + Me.columnVERTRAGSNR.MaxLength = 50 + Me.columnMARKT.MaxLength = 50 + Me.columnDATEINAME.MaxLength = 100 + Me.columnERFASSTWANN.AllowDBNull = false + End Sub + + _ + Public Function NewTBVERTRAG_NOTEXISTRow() As TBVERTRAG_NOTEXISTRow + Return CType(Me.NewRow,TBVERTRAG_NOTEXISTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBVERTRAG_NOTEXISTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBVERTRAG_NOTEXISTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBVERTRAG_NOTEXISTRowChangedEvent) Is Nothing) Then + RaiseEvent TBVERTRAG_NOTEXISTRowChanged(Me, New TBVERTRAG_NOTEXISTRowChangeEvent(CType(e.Row,TBVERTRAG_NOTEXISTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBVERTRAG_NOTEXISTRowChangingEvent) Is Nothing) Then + RaiseEvent TBVERTRAG_NOTEXISTRowChanging(Me, New TBVERTRAG_NOTEXISTRowChangeEvent(CType(e.Row,TBVERTRAG_NOTEXISTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBVERTRAG_NOTEXISTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBVERTRAG_NOTEXISTRowDeleted(Me, New TBVERTRAG_NOTEXISTRowChangeEvent(CType(e.Row,TBVERTRAG_NOTEXISTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBVERTRAG_NOTEXISTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBVERTRAG_NOTEXISTRowDeleting(Me, New TBVERTRAG_NOTEXISTRowChangeEvent(CType(e.Row,TBVERTRAG_NOTEXISTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBVERTRAG_NOTEXISTRow(ByVal row As TBVERTRAG_NOTEXISTRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As DS_Reporting = New DS_Reporting() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBVERTRAG_NOTEXISTDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWGERAET_MELDUNG_FEHLTDataTable + Inherits Global.System.Data.TypedTableBase(Of VWGERAET_MELDUNG_FEHLTRow) + + Private columnVERTRAGSNR As Global.System.Data.DataColumn + + Private columnSERIEN_NR As Global.System.Data.DataColumn + + Private columnPRODUKT_NR As Global.System.Data.DataColumn + + Private columnMODELL_NAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWGERAET_MELDUNG_FEHLT" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property VERTRAGSNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAGSNR + End Get + End Property + + _ + Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIEN_NR + End Get + End Property + + _ + Public ReadOnly Property PRODUKT_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRODUKT_NR + End Get + End Property + + _ + Public ReadOnly Property MODELL_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODELL_NAME + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWGERAET_MELDUNG_FEHLTRow + Get + Return CType(Me.Rows(index),VWGERAET_MELDUNG_FEHLTRow) + End Get + End Property + + _ + Public Event VWGERAET_MELDUNG_FEHLTRowChanging As VWGERAET_MELDUNG_FEHLTRowChangeEventHandler + + _ + Public Event VWGERAET_MELDUNG_FEHLTRowChanged As VWGERAET_MELDUNG_FEHLTRowChangeEventHandler + + _ + Public Event VWGERAET_MELDUNG_FEHLTRowDeleting As VWGERAET_MELDUNG_FEHLTRowChangeEventHandler + + _ + Public Event VWGERAET_MELDUNG_FEHLTRowDeleted As VWGERAET_MELDUNG_FEHLTRowChangeEventHandler + + _ + Public Overloads Sub AddVWGERAET_MELDUNG_FEHLTRow(ByVal row As VWGERAET_MELDUNG_FEHLTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWGERAET_MELDUNG_FEHLTRow(ByVal VERTRAGSNR As String, ByVal SERIEN_NR As String, ByVal PRODUKT_NR As String, ByVal MODELL_NAME As String) As VWGERAET_MELDUNG_FEHLTRow + Dim rowVWGERAET_MELDUNG_FEHLTRow As VWGERAET_MELDUNG_FEHLTRow = CType(Me.NewRow,VWGERAET_MELDUNG_FEHLTRow) + Dim columnValuesArray() As Object = New Object() {VERTRAGSNR, SERIEN_NR, PRODUKT_NR, MODELL_NAME} + rowVWGERAET_MELDUNG_FEHLTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWGERAET_MELDUNG_FEHLTRow) + Return rowVWGERAET_MELDUNG_FEHLTRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWGERAET_MELDUNG_FEHLTDataTable = CType(MyBase.Clone,VWGERAET_MELDUNG_FEHLTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWGERAET_MELDUNG_FEHLTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnVERTRAGSNR = MyBase.Columns("VERTRAGSNR") + Me.columnSERIEN_NR = MyBase.Columns("SERIEN_NR") + Me.columnPRODUKT_NR = MyBase.Columns("PRODUKT_NR") + Me.columnMODELL_NAME = MyBase.Columns("MODELL_NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnVERTRAGSNR = New Global.System.Data.DataColumn("VERTRAGSNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAGSNR) + Me.columnSERIEN_NR = New Global.System.Data.DataColumn("SERIEN_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIEN_NR) + Me.columnPRODUKT_NR = New Global.System.Data.DataColumn("PRODUKT_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRODUKT_NR) + Me.columnMODELL_NAME = New Global.System.Data.DataColumn("MODELL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODELL_NAME) + Me.columnVERTRAGSNR.AllowDBNull = false + Me.columnVERTRAGSNR.MaxLength = 50 + Me.columnSERIEN_NR.MaxLength = 30 + Me.columnPRODUKT_NR.MaxLength = 30 + Me.columnMODELL_NAME.MaxLength = 50 + End Sub + + _ + Public Function NewVWGERAET_MELDUNG_FEHLTRow() As VWGERAET_MELDUNG_FEHLTRow + Return CType(Me.NewRow,VWGERAET_MELDUNG_FEHLTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWGERAET_MELDUNG_FEHLTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWGERAET_MELDUNG_FEHLTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWGERAET_MELDUNG_FEHLTRowChangedEvent) Is Nothing) Then + RaiseEvent VWGERAET_MELDUNG_FEHLTRowChanged(Me, New VWGERAET_MELDUNG_FEHLTRowChangeEvent(CType(e.Row,VWGERAET_MELDUNG_FEHLTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWGERAET_MELDUNG_FEHLTRowChangingEvent) Is Nothing) Then + RaiseEvent VWGERAET_MELDUNG_FEHLTRowChanging(Me, New VWGERAET_MELDUNG_FEHLTRowChangeEvent(CType(e.Row,VWGERAET_MELDUNG_FEHLTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWGERAET_MELDUNG_FEHLTRowDeletedEvent) Is Nothing) Then + RaiseEvent VWGERAET_MELDUNG_FEHLTRowDeleted(Me, New VWGERAET_MELDUNG_FEHLTRowChangeEvent(CType(e.Row,VWGERAET_MELDUNG_FEHLTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWGERAET_MELDUNG_FEHLTRowDeletingEvent) Is Nothing) Then + RaiseEvent VWGERAET_MELDUNG_FEHLTRowDeleting(Me, New VWGERAET_MELDUNG_FEHLTRowChangeEvent(CType(e.Row,VWGERAET_MELDUNG_FEHLTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWGERAET_MELDUNG_FEHLTRow(ByVal row As VWGERAET_MELDUNG_FEHLTRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As DS_Reporting = New DS_Reporting() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWGERAET_MELDUNG_FEHLTDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWSUPPLY_OHNE_ZODataTable + Inherits Global.System.Data.TypedTableBase(Of VWSUPPLY_OHNE_ZORow) + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnSupply As Global.System.Data.DataColumn + + Private columnSeriennr_Supply As Global.System.Data.DataColumn + + Private columnKEINE_ZUORDNUNG As Global.System.Data.DataColumn + + Private columnMELDEDATUM As Global.System.Data.DataColumn + + Private columnLEVEL As Global.System.Data.DataColumn + + Private columnMODEL_NR As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWSUPPLY_OHNE_ZO" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property SupplyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSupply + End Get + End Property + + _ + Public ReadOnly Property Seriennr_SupplyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSeriennr_Supply + End Get + End Property + + _ + Public ReadOnly Property KEINE_ZUORDNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKEINE_ZUORDNUNG + End Get + End Property + + _ + Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMELDEDATUM + End Get + End Property + + _ + Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL + End Get + End Property + + _ + Public ReadOnly Property MODEL_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODEL_NR + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLY_OHNE_ZORow + Get + Return CType(Me.Rows(index),VWSUPPLY_OHNE_ZORow) + End Get + End Property + + _ + Public Event VWSUPPLY_OHNE_ZORowChanging As VWSUPPLY_OHNE_ZORowChangeEventHandler + + _ + Public Event VWSUPPLY_OHNE_ZORowChanged As VWSUPPLY_OHNE_ZORowChangeEventHandler + + _ + Public Event VWSUPPLY_OHNE_ZORowDeleting As VWSUPPLY_OHNE_ZORowChangeEventHandler + + _ + Public Event VWSUPPLY_OHNE_ZORowDeleted As VWSUPPLY_OHNE_ZORowChangeEventHandler + + _ + Public Overloads Sub AddVWSUPPLY_OHNE_ZORow(ByVal row As VWSUPPLY_OHNE_ZORow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWSUPPLY_OHNE_ZORow(ByVal MARKT As String, ByVal BEZEICHNUNG As String, ByVal SERIENNR As String, ByVal Supply As String, ByVal Seriennr_Supply As String, ByVal KEINE_ZUORDNUNG As Boolean, ByVal MELDEDATUM As Date, ByVal LEVEL As Integer, ByVal MODEL_NR As String, ByVal PARTNUMBER As String) As VWSUPPLY_OHNE_ZORow + Dim rowVWSUPPLY_OHNE_ZORow As VWSUPPLY_OHNE_ZORow = CType(Me.NewRow,VWSUPPLY_OHNE_ZORow) + Dim columnValuesArray() As Object = New Object() {MARKT, BEZEICHNUNG, SERIENNR, Supply, Seriennr_Supply, KEINE_ZUORDNUNG, MELDEDATUM, LEVEL, MODEL_NR, PARTNUMBER} + rowVWSUPPLY_OHNE_ZORow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWSUPPLY_OHNE_ZORow) + Return rowVWSUPPLY_OHNE_ZORow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWSUPPLY_OHNE_ZODataTable = CType(MyBase.Clone,VWSUPPLY_OHNE_ZODataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWSUPPLY_OHNE_ZODataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnSupply = MyBase.Columns("Supply") + Me.columnSeriennr_Supply = MyBase.Columns("Seriennr Supply") + Me.columnKEINE_ZUORDNUNG = MyBase.Columns("KEINE_ZUORDNUNG") + Me.columnMELDEDATUM = MyBase.Columns("MELDEDATUM") + Me.columnLEVEL = MyBase.Columns("LEVEL") + Me.columnMODEL_NR = MyBase.Columns("MODEL_NR") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + End Sub + + _ + Private Sub InitClass() + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnSupply = New Global.System.Data.DataColumn("Supply", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSupply) + Me.columnSeriennr_Supply = New Global.System.Data.DataColumn("Seriennr Supply", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSeriennr_Supply) + Me.columnKEINE_ZUORDNUNG = New Global.System.Data.DataColumn("KEINE_ZUORDNUNG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKEINE_ZUORDNUNG) + Me.columnMELDEDATUM = New Global.System.Data.DataColumn("MELDEDATUM", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMELDEDATUM) + Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL) + Me.columnMODEL_NR = New Global.System.Data.DataColumn("MODEL_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODEL_NR) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnSERIENNR.AllowDBNull = false + Me.columnSERIENNR.MaxLength = 50 + Me.columnSupply.MaxLength = 100 + Me.columnSeriennr_Supply.MaxLength = 50 + Me.columnKEINE_ZUORDNUNG.AllowDBNull = false + Me.columnMELDEDATUM.ReadOnly = true + Me.columnLEVEL.AllowDBNull = false + Me.columnMODEL_NR.MaxLength = 30 + Me.columnPARTNUMBER.MaxLength = 30 + End Sub + + _ + Public Function NewVWSUPPLY_OHNE_ZORow() As VWSUPPLY_OHNE_ZORow + Return CType(Me.NewRow,VWSUPPLY_OHNE_ZORow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWSUPPLY_OHNE_ZORow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWSUPPLY_OHNE_ZORow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWSUPPLY_OHNE_ZORowChangedEvent) Is Nothing) Then + RaiseEvent VWSUPPLY_OHNE_ZORowChanged(Me, New VWSUPPLY_OHNE_ZORowChangeEvent(CType(e.Row,VWSUPPLY_OHNE_ZORow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWSUPPLY_OHNE_ZORowChangingEvent) Is Nothing) Then + RaiseEvent VWSUPPLY_OHNE_ZORowChanging(Me, New VWSUPPLY_OHNE_ZORowChangeEvent(CType(e.Row,VWSUPPLY_OHNE_ZORow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWSUPPLY_OHNE_ZORowDeletedEvent) Is Nothing) Then + RaiseEvent VWSUPPLY_OHNE_ZORowDeleted(Me, New VWSUPPLY_OHNE_ZORowChangeEvent(CType(e.Row,VWSUPPLY_OHNE_ZORow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWSUPPLY_OHNE_ZORowDeletingEvent) Is Nothing) Then + RaiseEvent VWSUPPLY_OHNE_ZORowDeleting(Me, New VWSUPPLY_OHNE_ZORowChangeEvent(CType(e.Row,VWSUPPLY_OHNE_ZORow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWSUPPLY_OHNE_ZORow(ByVal row As VWSUPPLY_OHNE_ZORow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As DS_Reporting = New DS_Reporting() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWSUPPLY_OHNE_ZODataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWSILENT_GERAETDataTable + Inherits Global.System.Data.TypedTableBase(Of VWSILENT_GERAETRow) + + Private columnVERTRAGSNR As Global.System.Data.DataColumn + + Private columnSERIEN_NR As Global.System.Data.DataColumn + + Private columnPRODUKT_NR As Global.System.Data.DataColumn + + Private columnMODELL_NAME As Global.System.Data.DataColumn + + Private columnIP_ADRESSE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWSILENT_GERAET" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property VERTRAGSNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAGSNR + End Get + End Property + + _ + Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIEN_NR + End Get + End Property + + _ + Public ReadOnly Property PRODUKT_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRODUKT_NR + End Get + End Property + + _ + Public ReadOnly Property MODELL_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODELL_NAME + End Get + End Property + + _ + Public ReadOnly Property IP_ADRESSEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIP_ADRESSE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWSILENT_GERAETRow + Get + Return CType(Me.Rows(index),VWSILENT_GERAETRow) + End Get + End Property + + _ + Public Event VWSILENT_GERAETRowChanging As VWSILENT_GERAETRowChangeEventHandler + + _ + Public Event VWSILENT_GERAETRowChanged As VWSILENT_GERAETRowChangeEventHandler + + _ + Public Event VWSILENT_GERAETRowDeleting As VWSILENT_GERAETRowChangeEventHandler + + _ + Public Event VWSILENT_GERAETRowDeleted As VWSILENT_GERAETRowChangeEventHandler + + _ + Public Overloads Sub AddVWSILENT_GERAETRow(ByVal row As VWSILENT_GERAETRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWSILENT_GERAETRow(ByVal VERTRAGSNR As String, ByVal SERIEN_NR As String, ByVal PRODUKT_NR As String, ByVal MODELL_NAME As String, ByVal IP_ADRESSE As String) As VWSILENT_GERAETRow + Dim rowVWSILENT_GERAETRow As VWSILENT_GERAETRow = CType(Me.NewRow,VWSILENT_GERAETRow) + Dim columnValuesArray() As Object = New Object() {VERTRAGSNR, SERIEN_NR, PRODUKT_NR, MODELL_NAME, IP_ADRESSE} + rowVWSILENT_GERAETRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWSILENT_GERAETRow) + Return rowVWSILENT_GERAETRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWSILENT_GERAETDataTable = CType(MyBase.Clone,VWSILENT_GERAETDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWSILENT_GERAETDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnVERTRAGSNR = MyBase.Columns("VERTRAGSNR") + Me.columnSERIEN_NR = MyBase.Columns("SERIEN_NR") + Me.columnPRODUKT_NR = MyBase.Columns("PRODUKT_NR") + Me.columnMODELL_NAME = MyBase.Columns("MODELL_NAME") + Me.columnIP_ADRESSE = MyBase.Columns("IP_ADRESSE") + End Sub + + _ + Private Sub InitClass() + Me.columnVERTRAGSNR = New Global.System.Data.DataColumn("VERTRAGSNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAGSNR) + Me.columnSERIEN_NR = New Global.System.Data.DataColumn("SERIEN_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIEN_NR) + Me.columnPRODUKT_NR = New Global.System.Data.DataColumn("PRODUKT_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRODUKT_NR) + Me.columnMODELL_NAME = New Global.System.Data.DataColumn("MODELL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODELL_NAME) + Me.columnIP_ADRESSE = New Global.System.Data.DataColumn("IP_ADRESSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIP_ADRESSE) + Me.columnVERTRAGSNR.AllowDBNull = false + Me.columnVERTRAGSNR.MaxLength = 50 + Me.columnSERIEN_NR.MaxLength = 30 + Me.columnPRODUKT_NR.MaxLength = 30 + Me.columnMODELL_NAME.MaxLength = 50 + Me.columnIP_ADRESSE.MaxLength = 30 + End Sub + + _ + Public Function NewVWSILENT_GERAETRow() As VWSILENT_GERAETRow + Return CType(Me.NewRow,VWSILENT_GERAETRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWSILENT_GERAETRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWSILENT_GERAETRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWSILENT_GERAETRowChangedEvent) Is Nothing) Then + RaiseEvent VWSILENT_GERAETRowChanged(Me, New VWSILENT_GERAETRowChangeEvent(CType(e.Row,VWSILENT_GERAETRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWSILENT_GERAETRowChangingEvent) Is Nothing) Then + RaiseEvent VWSILENT_GERAETRowChanging(Me, New VWSILENT_GERAETRowChangeEvent(CType(e.Row,VWSILENT_GERAETRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWSILENT_GERAETRowDeletedEvent) Is Nothing) Then + RaiseEvent VWSILENT_GERAETRowDeleted(Me, New VWSILENT_GERAETRowChangeEvent(CType(e.Row,VWSILENT_GERAETRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWSILENT_GERAETRowDeletingEvent) Is Nothing) Then + RaiseEvent VWSILENT_GERAETRowDeleting(Me, New VWSILENT_GERAETRowChangeEvent(CType(e.Row,VWSILENT_GERAETRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWSILENT_GERAETRow(ByVal row As VWSILENT_GERAETRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As DS_Reporting = New DS_Reporting() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWSILENT_GERAETDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWSILENT_SUPPLIESDataTable + Inherits Global.System.Data.TypedTableBase(Of VWSILENT_SUPPLIESRow) + + Private columnVERTRAGSNR As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnGERAET As Global.System.Data.DataColumn + + Private columnDEVICE_SERIENNR As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnSUPPLY_SERIENNR As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + Private columnSTATUS_WANN As Global.System.Data.DataColumn + + Private columnIP_ADRESS As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWSILENT_SUPPLIES" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property VERTRAGSNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAGSNR + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property GERAETColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET + End Get + End Property + + _ + Public ReadOnly Property DEVICE_SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEVICE_SERIENNR + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_SERIENNR + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property STATUS_WANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_WANN + End Get + End Property + + _ + Public ReadOnly Property IP_ADRESSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIP_ADRESS + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWSILENT_SUPPLIESRow + Get + Return CType(Me.Rows(index),VWSILENT_SUPPLIESRow) + End Get + End Property + + _ + Public Event VWSILENT_SUPPLIESRowChanging As VWSILENT_SUPPLIESRowChangeEventHandler + + _ + Public Event VWSILENT_SUPPLIESRowChanged As VWSILENT_SUPPLIESRowChangeEventHandler + + _ + Public Event VWSILENT_SUPPLIESRowDeleting As VWSILENT_SUPPLIESRowChangeEventHandler + + _ + Public Event VWSILENT_SUPPLIESRowDeleted As VWSILENT_SUPPLIESRowChangeEventHandler + + _ + Public Overloads Sub AddVWSILENT_SUPPLIESRow(ByVal row As VWSILENT_SUPPLIESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWSILENT_SUPPLIESRow(ByVal VERTRAGSNR As String, ByVal MARKT As String, ByVal GERAET As String, ByVal DEVICE_SERIENNR As String, ByVal BEZEICHNUNG As String, ByVal SUPPLY_SERIENNR As String, ByVal PARTNUMBER As String, ByVal STATUS_WANN As Date, ByVal IP_ADRESS As String) As VWSILENT_SUPPLIESRow + Dim rowVWSILENT_SUPPLIESRow As VWSILENT_SUPPLIESRow = CType(Me.NewRow,VWSILENT_SUPPLIESRow) + Dim columnValuesArray() As Object = New Object() {VERTRAGSNR, MARKT, GERAET, DEVICE_SERIENNR, BEZEICHNUNG, SUPPLY_SERIENNR, PARTNUMBER, STATUS_WANN, IP_ADRESS} + rowVWSILENT_SUPPLIESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWSILENT_SUPPLIESRow) + Return rowVWSILENT_SUPPLIESRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWSILENT_SUPPLIESDataTable = CType(MyBase.Clone,VWSILENT_SUPPLIESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWSILENT_SUPPLIESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnVERTRAGSNR = MyBase.Columns("VERTRAGSNR") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnGERAET = MyBase.Columns("GERAET") + Me.columnDEVICE_SERIENNR = MyBase.Columns("DEVICE_SERIENNR") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnSUPPLY_SERIENNR = MyBase.Columns("SUPPLY_SERIENNR") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + Me.columnSTATUS_WANN = MyBase.Columns("STATUS_WANN") + Me.columnIP_ADRESS = MyBase.Columns("IP_ADRESS") + End Sub + + _ + Private Sub InitClass() + Me.columnVERTRAGSNR = New Global.System.Data.DataColumn("VERTRAGSNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAGSNR) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnGERAET = New Global.System.Data.DataColumn("GERAET", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET) + Me.columnDEVICE_SERIENNR = New Global.System.Data.DataColumn("DEVICE_SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEVICE_SERIENNR) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnSUPPLY_SERIENNR = New Global.System.Data.DataColumn("SUPPLY_SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_SERIENNR) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnSTATUS_WANN = New Global.System.Data.DataColumn("STATUS_WANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_WANN) + Me.columnIP_ADRESS = New Global.System.Data.DataColumn("IP_ADRESS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIP_ADRESS) + Me.columnVERTRAGSNR.AllowDBNull = false + Me.columnVERTRAGSNR.MaxLength = 50 + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnGERAET.MaxLength = 100 + Me.columnDEVICE_SERIENNR.AllowDBNull = false + Me.columnDEVICE_SERIENNR.MaxLength = 50 + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnSUPPLY_SERIENNR.MaxLength = 50 + Me.columnPARTNUMBER.MaxLength = 30 + Me.columnIP_ADRESS.MaxLength = 30 + End Sub + + _ + Public Function NewVWSILENT_SUPPLIESRow() As VWSILENT_SUPPLIESRow + Return CType(Me.NewRow,VWSILENT_SUPPLIESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWSILENT_SUPPLIESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWSILENT_SUPPLIESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWSILENT_SUPPLIESRowChangedEvent) Is Nothing) Then + RaiseEvent VWSILENT_SUPPLIESRowChanged(Me, New VWSILENT_SUPPLIESRowChangeEvent(CType(e.Row,VWSILENT_SUPPLIESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWSILENT_SUPPLIESRowChangingEvent) Is Nothing) Then + RaiseEvent VWSILENT_SUPPLIESRowChanging(Me, New VWSILENT_SUPPLIESRowChangeEvent(CType(e.Row,VWSILENT_SUPPLIESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWSILENT_SUPPLIESRowDeletedEvent) Is Nothing) Then + RaiseEvent VWSILENT_SUPPLIESRowDeleted(Me, New VWSILENT_SUPPLIESRowChangeEvent(CType(e.Row,VWSILENT_SUPPLIESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWSILENT_SUPPLIESRowDeletingEvent) Is Nothing) Then + RaiseEvent VWSILENT_SUPPLIESRowDeleting(Me, New VWSILENT_SUPPLIESRowChangeEvent(CType(e.Row,VWSILENT_SUPPLIESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWSILENT_SUPPLIESRow(ByVal row As VWSILENT_SUPPLIESRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As DS_Reporting = New DS_Reporting() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWSILENT_SUPPLIESDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWSUPPLIES_NICHT_DEFDataTable + Inherits Global.System.Data.TypedTableBase(Of VWSUPPLIES_NICHT_DEFRow) + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnSupply As Global.System.Data.DataColumn + + Private columnSeriennr_Supply As Global.System.Data.DataColumn + + Private columnNICHT_DEFINIERT As Global.System.Data.DataColumn + + Private columnMELDEDATUM As Global.System.Data.DataColumn + + Private columnLEVEL As Global.System.Data.DataColumn + + Private columnMODEL_NR As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWSUPPLIES_NICHT_DEF" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property SupplyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSupply + End Get + End Property + + _ + Public ReadOnly Property Seriennr_SupplyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSeriennr_Supply + End Get + End Property + + _ + Public ReadOnly Property NICHT_DEFINIERTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNICHT_DEFINIERT + End Get + End Property + + _ + Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMELDEDATUM + End Get + End Property + + _ + Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL + End Get + End Property + + _ + Public ReadOnly Property MODEL_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODEL_NR + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLIES_NICHT_DEFRow + Get + Return CType(Me.Rows(index),VWSUPPLIES_NICHT_DEFRow) + End Get + End Property + + _ + Public Event VWSUPPLIES_NICHT_DEFRowChanging As VWSUPPLIES_NICHT_DEFRowChangeEventHandler + + _ + Public Event VWSUPPLIES_NICHT_DEFRowChanged As VWSUPPLIES_NICHT_DEFRowChangeEventHandler + + _ + Public Event VWSUPPLIES_NICHT_DEFRowDeleting As VWSUPPLIES_NICHT_DEFRowChangeEventHandler + + _ + Public Event VWSUPPLIES_NICHT_DEFRowDeleted As VWSUPPLIES_NICHT_DEFRowChangeEventHandler + + _ + Public Overloads Sub AddVWSUPPLIES_NICHT_DEFRow(ByVal row As VWSUPPLIES_NICHT_DEFRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWSUPPLIES_NICHT_DEFRow(ByVal MARKT As String, ByVal BEZEICHNUNG As String, ByVal SERIENNR As String, ByVal Supply As String, ByVal Seriennr_Supply As String, ByVal NICHT_DEFINIERT As Boolean, ByVal MELDEDATUM As Date, ByVal LEVEL As Integer, ByVal MODEL_NR As String, ByVal PARTNUMBER As String) As VWSUPPLIES_NICHT_DEFRow + Dim rowVWSUPPLIES_NICHT_DEFRow As VWSUPPLIES_NICHT_DEFRow = CType(Me.NewRow,VWSUPPLIES_NICHT_DEFRow) + Dim columnValuesArray() As Object = New Object() {MARKT, BEZEICHNUNG, SERIENNR, Supply, Seriennr_Supply, NICHT_DEFINIERT, MELDEDATUM, LEVEL, MODEL_NR, PARTNUMBER} + rowVWSUPPLIES_NICHT_DEFRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWSUPPLIES_NICHT_DEFRow) + Return rowVWSUPPLIES_NICHT_DEFRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWSUPPLIES_NICHT_DEFDataTable = CType(MyBase.Clone,VWSUPPLIES_NICHT_DEFDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWSUPPLIES_NICHT_DEFDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnSupply = MyBase.Columns("Supply") + Me.columnSeriennr_Supply = MyBase.Columns("Seriennr Supply") + Me.columnNICHT_DEFINIERT = MyBase.Columns("NICHT_DEFINIERT") + Me.columnMELDEDATUM = MyBase.Columns("MELDEDATUM") + Me.columnLEVEL = MyBase.Columns("LEVEL") + Me.columnMODEL_NR = MyBase.Columns("MODEL_NR") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + End Sub + + _ + Private Sub InitClass() + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnSupply = New Global.System.Data.DataColumn("Supply", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSupply) + Me.columnSeriennr_Supply = New Global.System.Data.DataColumn("Seriennr Supply", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSeriennr_Supply) + Me.columnNICHT_DEFINIERT = New Global.System.Data.DataColumn("NICHT_DEFINIERT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNICHT_DEFINIERT) + Me.columnMELDEDATUM = New Global.System.Data.DataColumn("MELDEDATUM", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMELDEDATUM) + Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL) + Me.columnMODEL_NR = New Global.System.Data.DataColumn("MODEL_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODEL_NR) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnSERIENNR.AllowDBNull = false + Me.columnSERIENNR.MaxLength = 50 + Me.columnSupply.MaxLength = 100 + Me.columnSeriennr_Supply.MaxLength = 50 + Me.columnNICHT_DEFINIERT.AllowDBNull = false + Me.columnMELDEDATUM.ReadOnly = true + Me.columnLEVEL.AllowDBNull = false + Me.columnMODEL_NR.MaxLength = 30 + Me.columnPARTNUMBER.MaxLength = 30 + End Sub + + _ + Public Function NewVWSUPPLIES_NICHT_DEFRow() As VWSUPPLIES_NICHT_DEFRow + Return CType(Me.NewRow,VWSUPPLIES_NICHT_DEFRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWSUPPLIES_NICHT_DEFRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWSUPPLIES_NICHT_DEFRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWSUPPLIES_NICHT_DEFRowChangedEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_NICHT_DEFRowChanged(Me, New VWSUPPLIES_NICHT_DEFRowChangeEvent(CType(e.Row,VWSUPPLIES_NICHT_DEFRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWSUPPLIES_NICHT_DEFRowChangingEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_NICHT_DEFRowChanging(Me, New VWSUPPLIES_NICHT_DEFRowChangeEvent(CType(e.Row,VWSUPPLIES_NICHT_DEFRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWSUPPLIES_NICHT_DEFRowDeletedEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_NICHT_DEFRowDeleted(Me, New VWSUPPLIES_NICHT_DEFRowChangeEvent(CType(e.Row,VWSUPPLIES_NICHT_DEFRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWSUPPLIES_NICHT_DEFRowDeletingEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_NICHT_DEFRowDeleting(Me, New VWSUPPLIES_NICHT_DEFRowChangeEvent(CType(e.Row,VWSUPPLIES_NICHT_DEFRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWSUPPLIES_NICHT_DEFRow(ByVal row As VWSUPPLIES_NICHT_DEFRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As DS_Reporting = New DS_Reporting() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWSUPPLIES_NICHT_DEFDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWSERIENNR_NIE_DADataTable + Inherits Global.System.Data.TypedTableBase(Of VWSERIENNR_NIE_DARow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnVERTRAG As Global.System.Data.DataColumn + + Private columnSERIEN_NR As Global.System.Data.DataColumn + + Private columnPRODUKT_NR As Global.System.Data.DataColumn + + Private columnMODELL_NAME As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnTIMESTAMP1 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWSERIENNR_NIE_DA" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property VERTRAGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAG + End Get + End Property + + _ + Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIEN_NR + End Get + End Property + + _ + Public ReadOnly Property PRODUKT_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRODUKT_NR + End Get + End Property + + _ + Public ReadOnly Property MODELL_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODELL_NAME + End Get + End Property + + _ + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property TIMESTAMP1Column() As Global.System.Data.DataColumn + Get + Return Me.columnTIMESTAMP1 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWSERIENNR_NIE_DARow + Get + Return CType(Me.Rows(index),VWSERIENNR_NIE_DARow) + End Get + End Property + + _ + Public Event VWSERIENNR_NIE_DARowChanging As VWSERIENNR_NIE_DARowChangeEventHandler + + _ + Public Event VWSERIENNR_NIE_DARowChanged As VWSERIENNR_NIE_DARowChangeEventHandler + + _ + Public Event VWSERIENNR_NIE_DARowDeleting As VWSERIENNR_NIE_DARowChangeEventHandler + + _ + Public Event VWSERIENNR_NIE_DARowDeleted As VWSERIENNR_NIE_DARowChangeEventHandler + + _ + Public Overloads Sub AddVWSERIENNR_NIE_DARow(ByVal row As VWSERIENNR_NIE_DARow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWSERIENNR_NIE_DARow(ByVal GUID As Integer, ByVal VERTRAG As Integer, ByVal SERIEN_NR As String, ByVal PRODUKT_NR As String, ByVal MODELL_NAME As String, ByVal AKTIV As Boolean, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal TIMESTAMP1() As Byte) As VWSERIENNR_NIE_DARow + Dim rowVWSERIENNR_NIE_DARow As VWSERIENNR_NIE_DARow = CType(Me.NewRow,VWSERIENNR_NIE_DARow) + Dim columnValuesArray() As Object = New Object() {GUID, VERTRAG, SERIEN_NR, PRODUKT_NR, MODELL_NAME, AKTIV, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, TIMESTAMP1} + rowVWSERIENNR_NIE_DARow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWSERIENNR_NIE_DARow) + Return rowVWSERIENNR_NIE_DARow + End Function + + _ + Public Function FindByGUIDVERTRAG(ByVal GUID As Integer, ByVal VERTRAG As Integer) As VWSERIENNR_NIE_DARow + Return CType(Me.Rows.Find(New Object() {GUID, VERTRAG}),VWSERIENNR_NIE_DARow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWSERIENNR_NIE_DADataTable = CType(MyBase.Clone,VWSERIENNR_NIE_DADataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWSERIENNR_NIE_DADataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnVERTRAG = MyBase.Columns("VERTRAG") + Me.columnSERIEN_NR = MyBase.Columns("SERIEN_NR") + Me.columnPRODUKT_NR = MyBase.Columns("PRODUKT_NR") + Me.columnMODELL_NAME = MyBase.Columns("MODELL_NAME") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnTIMESTAMP1 = MyBase.Columns("TIMESTAMP1") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnVERTRAG = New Global.System.Data.DataColumn("VERTRAG", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAG) + Me.columnSERIEN_NR = New Global.System.Data.DataColumn("SERIEN_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIEN_NR) + Me.columnPRODUKT_NR = New Global.System.Data.DataColumn("PRODUKT_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRODUKT_NR) + Me.columnMODELL_NAME = New Global.System.Data.DataColumn("MODELL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODELL_NAME) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnTIMESTAMP1 = New Global.System.Data.DataColumn("TIMESTAMP1", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTIMESTAMP1) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID, Me.columnVERTRAG}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnVERTRAG.AllowDBNull = false + Me.columnSERIEN_NR.MaxLength = 30 + Me.columnPRODUKT_NR.MaxLength = 30 + Me.columnMODELL_NAME.MaxLength = 50 + Me.columnAKTIV.AllowDBNull = false + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnGEANDERTWER.MaxLength = 30 + Me.columnGEAENDERTWANN.AllowDBNull = false + Me.columnTIMESTAMP1.ReadOnly = true + End Sub + + _ + Public Function NewVWSERIENNR_NIE_DARow() As VWSERIENNR_NIE_DARow + Return CType(Me.NewRow,VWSERIENNR_NIE_DARow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWSERIENNR_NIE_DARow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWSERIENNR_NIE_DARow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWSERIENNR_NIE_DARowChangedEvent) Is Nothing) Then + RaiseEvent VWSERIENNR_NIE_DARowChanged(Me, New VWSERIENNR_NIE_DARowChangeEvent(CType(e.Row,VWSERIENNR_NIE_DARow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWSERIENNR_NIE_DARowChangingEvent) Is Nothing) Then + RaiseEvent VWSERIENNR_NIE_DARowChanging(Me, New VWSERIENNR_NIE_DARowChangeEvent(CType(e.Row,VWSERIENNR_NIE_DARow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWSERIENNR_NIE_DARowDeletedEvent) Is Nothing) Then + RaiseEvent VWSERIENNR_NIE_DARowDeleted(Me, New VWSERIENNR_NIE_DARowChangeEvent(CType(e.Row,VWSERIENNR_NIE_DARow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWSERIENNR_NIE_DARowDeletingEvent) Is Nothing) Then + RaiseEvent VWSERIENNR_NIE_DARowDeleting(Me, New VWSERIENNR_NIE_DARowChangeEvent(CType(e.Row,VWSERIENNR_NIE_DARow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWSERIENNR_NIE_DARow(ByVal row As VWSERIENNR_NIE_DARow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As DS_Reporting = New DS_Reporting() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWSERIENNR_NIE_DADataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWNotInListRow + Inherits Global.System.Data.DataRow + + Private tableVWNotInList As VWNotInListDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWNotInList = CType(Me.Table,VWNotInListDataTable) + End Sub + + _ + Public Property VERTRAGSNR() As String + Get + Return CType(Me(Me.tableVWNotInList.VERTRAGSNRColumn),String) + End Get + Set + Me(Me.tableVWNotInList.VERTRAGSNRColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Try + Return CType(Me(Me.tableVWNotInList.MARKTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MARKT in Tabelle VWNotInList ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWNotInList.MARKTColumn) = value + End Set + End Property + + _ + Public Property MODELL_NAME() As String + Get + Try + Return CType(Me(Me.tableVWNotInList.MODELL_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODELL_NAME in Tabelle VWNotInList ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWNotInList.MODELL_NAMEColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableVWNotInList.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableVWNotInList.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableVWNotInList.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableVWNotInList.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Return CType(Me(Me.tableVWNotInList.SERIENNRColumn),String) + End Get + Set + Me(Me.tableVWNotInList.SERIENNRColumn) = value + End Set + End Property + + _ + Public Function IsMARKTNull() As Boolean + Return Me.IsNull(Me.tableVWNotInList.MARKTColumn) + End Function + + _ + Public Sub SetMARKTNull() + Me(Me.tableVWNotInList.MARKTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMODELL_NAMENull() As Boolean + Return Me.IsNull(Me.tableVWNotInList.MODELL_NAMEColumn) + End Function + + _ + Public Sub SetMODELL_NAMENull() + Me(Me.tableVWNotInList.MODELL_NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBVERTRAG_NOTEXISTRow + Inherits Global.System.Data.DataRow + + Private tableTBVERTRAG_NOTEXIST As TBVERTRAG_NOTEXISTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBVERTRAG_NOTEXIST = CType(Me.Table,TBVERTRAG_NOTEXISTDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBVERTRAG_NOTEXIST.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBVERTRAG_NOTEXIST.GUIDColumn) = value + End Set + End Property + + _ + Public Property VERTRAGSNR() As String + Get + Return CType(Me(Me.tableTBVERTRAG_NOTEXIST.VERTRAGSNRColumn),String) + End Get + Set + Me(Me.tableTBVERTRAG_NOTEXIST.VERTRAGSNRColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Try + Return CType(Me(Me.tableTBVERTRAG_NOTEXIST.MARKTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MARKT in Tabelle TBVERTRAG_NOTEXIST ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBVERTRAG_NOTEXIST.MARKTColumn) = value + End Set + End Property + + _ + Public Property DATEINAME() As String + Get + Try + Return CType(Me(Me.tableTBVERTRAG_NOTEXIST.DATEINAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATEINAME in Tabelle TBVERTRAG_NOTEXIST ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBVERTRAG_NOTEXIST.DATEINAMEColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableTBVERTRAG_NOTEXIST.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableTBVERTRAG_NOTEXIST.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Function IsMARKTNull() As Boolean + Return Me.IsNull(Me.tableTBVERTRAG_NOTEXIST.MARKTColumn) + End Function + + _ + Public Sub SetMARKTNull() + Me(Me.tableTBVERTRAG_NOTEXIST.MARKTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATEINAMENull() As Boolean + Return Me.IsNull(Me.tableTBVERTRAG_NOTEXIST.DATEINAMEColumn) + End Function + + _ + Public Sub SetDATEINAMENull() + Me(Me.tableTBVERTRAG_NOTEXIST.DATEINAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWGERAET_MELDUNG_FEHLTRow + Inherits Global.System.Data.DataRow + + Private tableVWGERAET_MELDUNG_FEHLT As VWGERAET_MELDUNG_FEHLTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWGERAET_MELDUNG_FEHLT = CType(Me.Table,VWGERAET_MELDUNG_FEHLTDataTable) + End Sub + + _ + Public Property VERTRAGSNR() As String + Get + Return CType(Me(Me.tableVWGERAET_MELDUNG_FEHLT.VERTRAGSNRColumn),String) + End Get + Set + Me(Me.tableVWGERAET_MELDUNG_FEHLT.VERTRAGSNRColumn) = value + End Set + End Property + + _ + Public Property SERIEN_NR() As String + Get + Try + Return CType(Me(Me.tableVWGERAET_MELDUNG_FEHLT.SERIEN_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIEN_NR in Tabelle VWGERAET_MELDUNG_FEHLT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAET_MELDUNG_FEHLT.SERIEN_NRColumn) = value + End Set + End Property + + _ + Public Property PRODUKT_NR() As String + Get + Try + Return CType(Me(Me.tableVWGERAET_MELDUNG_FEHLT.PRODUKT_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRODUKT_NR in Tabelle VWGERAET_MELDUNG_FEHLT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAET_MELDUNG_FEHLT.PRODUKT_NRColumn) = value + End Set + End Property + + _ + Public Property MODELL_NAME() As String + Get + Try + Return CType(Me(Me.tableVWGERAET_MELDUNG_FEHLT.MODELL_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODELL_NAME in Tabelle VWGERAET_MELDUNG_FEHLT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAET_MELDUNG_FEHLT.MODELL_NAMEColumn) = value + End Set + End Property + + _ + Public Function IsSERIEN_NRNull() As Boolean + Return Me.IsNull(Me.tableVWGERAET_MELDUNG_FEHLT.SERIEN_NRColumn) + End Function + + _ + Public Sub SetSERIEN_NRNull() + Me(Me.tableVWGERAET_MELDUNG_FEHLT.SERIEN_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRODUKT_NRNull() As Boolean + Return Me.IsNull(Me.tableVWGERAET_MELDUNG_FEHLT.PRODUKT_NRColumn) + End Function + + _ + Public Sub SetPRODUKT_NRNull() + Me(Me.tableVWGERAET_MELDUNG_FEHLT.PRODUKT_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMODELL_NAMENull() As Boolean + Return Me.IsNull(Me.tableVWGERAET_MELDUNG_FEHLT.MODELL_NAMEColumn) + End Function + + _ + Public Sub SetMODELL_NAMENull() + Me(Me.tableVWGERAET_MELDUNG_FEHLT.MODELL_NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWSUPPLY_OHNE_ZORow + Inherits Global.System.Data.DataRow + + Private tableVWSUPPLY_OHNE_ZO As VWSUPPLY_OHNE_ZODataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWSUPPLY_OHNE_ZO = CType(Me.Table,VWSUPPLY_OHNE_ZODataTable) + End Sub + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableVWSUPPLY_OHNE_ZO.MARKTColumn),String) + End Get + Set + Me(Me.tableVWSUPPLY_OHNE_ZO.MARKTColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_OHNE_ZO.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle VWSUPPLY_OHNE_ZO ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_OHNE_ZO.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Return CType(Me(Me.tableVWSUPPLY_OHNE_ZO.SERIENNRColumn),String) + End Get + Set + Me(Me.tableVWSUPPLY_OHNE_ZO.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property Supply() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_OHNE_ZO.SupplyColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Supply in Tabelle VWSUPPLY_OHNE_ZO ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_OHNE_ZO.SupplyColumn) = value + End Set + End Property + + _ + Public Property Seriennr_Supply() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_OHNE_ZO.Seriennr_SupplyColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Seriennr Supply in Tabelle VWSUPPLY_OHNE_ZO ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_OHNE_ZO.Seriennr_SupplyColumn) = value + End Set + End Property + + _ + Public Property KEINE_ZUORDNUNG() As Boolean + Get + Return CType(Me(Me.tableVWSUPPLY_OHNE_ZO.KEINE_ZUORDNUNGColumn),Boolean) + End Get + Set + Me(Me.tableVWSUPPLY_OHNE_ZO.KEINE_ZUORDNUNGColumn) = value + End Set + End Property + + _ + Public Property MELDEDATUM() As Date + Get + Try + Return CType(Me(Me.tableVWSUPPLY_OHNE_ZO.MELDEDATUMColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MELDEDATUM in Tabelle VWSUPPLY_OHNE_ZO ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_OHNE_ZO.MELDEDATUMColumn) = value + End Set + End Property + + _ + Public Property LEVEL() As Integer + Get + Return CType(Me(Me.tableVWSUPPLY_OHNE_ZO.LEVELColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLY_OHNE_ZO.LEVELColumn) = value + End Set + End Property + + _ + Public Property MODEL_NR() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_OHNE_ZO.MODEL_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODEL_NR in Tabelle VWSUPPLY_OHNE_ZO ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_OHNE_ZO.MODEL_NRColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_OHNE_ZO.PARTNUMBERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARTNUMBER in Tabelle VWSUPPLY_OHNE_ZO ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_OHNE_ZO.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_OHNE_ZO.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableVWSUPPLY_OHNE_ZO.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSupplyNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_OHNE_ZO.SupplyColumn) + End Function + + _ + Public Sub SetSupplyNull() + Me(Me.tableVWSUPPLY_OHNE_ZO.SupplyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSeriennr_SupplyNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_OHNE_ZO.Seriennr_SupplyColumn) + End Function + + _ + Public Sub SetSeriennr_SupplyNull() + Me(Me.tableVWSUPPLY_OHNE_ZO.Seriennr_SupplyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMELDEDATUMNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_OHNE_ZO.MELDEDATUMColumn) + End Function + + _ + Public Sub SetMELDEDATUMNull() + Me(Me.tableVWSUPPLY_OHNE_ZO.MELDEDATUMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMODEL_NRNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_OHNE_ZO.MODEL_NRColumn) + End Function + + _ + Public Sub SetMODEL_NRNull() + Me(Me.tableVWSUPPLY_OHNE_ZO.MODEL_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPARTNUMBERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_OHNE_ZO.PARTNUMBERColumn) + End Function + + _ + Public Sub SetPARTNUMBERNull() + Me(Me.tableVWSUPPLY_OHNE_ZO.PARTNUMBERColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWSILENT_GERAETRow + Inherits Global.System.Data.DataRow + + Private tableVWSILENT_GERAET As VWSILENT_GERAETDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWSILENT_GERAET = CType(Me.Table,VWSILENT_GERAETDataTable) + End Sub + + _ + Public Property VERTRAGSNR() As String + Get + Return CType(Me(Me.tableVWSILENT_GERAET.VERTRAGSNRColumn),String) + End Get + Set + Me(Me.tableVWSILENT_GERAET.VERTRAGSNRColumn) = value + End Set + End Property + + _ + Public Property SERIEN_NR() As String + Get + Try + Return CType(Me(Me.tableVWSILENT_GERAET.SERIEN_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIEN_NR in Tabelle VWSILENT_GERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSILENT_GERAET.SERIEN_NRColumn) = value + End Set + End Property + + _ + Public Property PRODUKT_NR() As String + Get + Try + Return CType(Me(Me.tableVWSILENT_GERAET.PRODUKT_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRODUKT_NR in Tabelle VWSILENT_GERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSILENT_GERAET.PRODUKT_NRColumn) = value + End Set + End Property + + _ + Public Property MODELL_NAME() As String + Get + Try + Return CType(Me(Me.tableVWSILENT_GERAET.MODELL_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODELL_NAME in Tabelle VWSILENT_GERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSILENT_GERAET.MODELL_NAMEColumn) = value + End Set + End Property + + _ + Public Property IP_ADRESSE() As String + Get + Try + Return CType(Me(Me.tableVWSILENT_GERAET.IP_ADRESSEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IP_ADRESSE in Tabelle VWSILENT_GERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSILENT_GERAET.IP_ADRESSEColumn) = value + End Set + End Property + + _ + Public Function IsSERIEN_NRNull() As Boolean + Return Me.IsNull(Me.tableVWSILENT_GERAET.SERIEN_NRColumn) + End Function + + _ + Public Sub SetSERIEN_NRNull() + Me(Me.tableVWSILENT_GERAET.SERIEN_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRODUKT_NRNull() As Boolean + Return Me.IsNull(Me.tableVWSILENT_GERAET.PRODUKT_NRColumn) + End Function + + _ + Public Sub SetPRODUKT_NRNull() + Me(Me.tableVWSILENT_GERAET.PRODUKT_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMODELL_NAMENull() As Boolean + Return Me.IsNull(Me.tableVWSILENT_GERAET.MODELL_NAMEColumn) + End Function + + _ + Public Sub SetMODELL_NAMENull() + Me(Me.tableVWSILENT_GERAET.MODELL_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIP_ADRESSENull() As Boolean + Return Me.IsNull(Me.tableVWSILENT_GERAET.IP_ADRESSEColumn) + End Function + + _ + Public Sub SetIP_ADRESSENull() + Me(Me.tableVWSILENT_GERAET.IP_ADRESSEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWSILENT_SUPPLIESRow + Inherits Global.System.Data.DataRow + + Private tableVWSILENT_SUPPLIES As VWSILENT_SUPPLIESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWSILENT_SUPPLIES = CType(Me.Table,VWSILENT_SUPPLIESDataTable) + End Sub + + _ + Public Property VERTRAGSNR() As String + Get + Return CType(Me(Me.tableVWSILENT_SUPPLIES.VERTRAGSNRColumn),String) + End Get + Set + Me(Me.tableVWSILENT_SUPPLIES.VERTRAGSNRColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableVWSILENT_SUPPLIES.MARKTColumn),String) + End Get + Set + Me(Me.tableVWSILENT_SUPPLIES.MARKTColumn) = value + End Set + End Property + + _ + Public Property GERAET() As String + Get + Try + Return CType(Me(Me.tableVWSILENT_SUPPLIES.GERAETColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET in Tabelle VWSILENT_SUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSILENT_SUPPLIES.GERAETColumn) = value + End Set + End Property + + _ + Public Property DEVICE_SERIENNR() As String + Get + Return CType(Me(Me.tableVWSILENT_SUPPLIES.DEVICE_SERIENNRColumn),String) + End Get + Set + Me(Me.tableVWSILENT_SUPPLIES.DEVICE_SERIENNRColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableVWSILENT_SUPPLIES.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle VWSILENT_SUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSILENT_SUPPLIES.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_SERIENNR() As String + Get + Try + Return CType(Me(Me.tableVWSILENT_SUPPLIES.SUPPLY_SERIENNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SUPPLY_SERIENNR in Tabelle VWSILENT_SUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSILENT_SUPPLIES.SUPPLY_SERIENNRColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Try + Return CType(Me(Me.tableVWSILENT_SUPPLIES.PARTNUMBERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARTNUMBER in Tabelle VWSILENT_SUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSILENT_SUPPLIES.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Property STATUS_WANN() As Date + Get + Try + Return CType(Me(Me.tableVWSILENT_SUPPLIES.STATUS_WANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATUS_WANN in Tabelle VWSILENT_SUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSILENT_SUPPLIES.STATUS_WANNColumn) = value + End Set + End Property + + _ + Public Property IP_ADRESS() As String + Get + Try + Return CType(Me(Me.tableVWSILENT_SUPPLIES.IP_ADRESSColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IP_ADRESS in Tabelle VWSILENT_SUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSILENT_SUPPLIES.IP_ADRESSColumn) = value + End Set + End Property + + _ + Public Function IsGERAETNull() As Boolean + Return Me.IsNull(Me.tableVWSILENT_SUPPLIES.GERAETColumn) + End Function + + _ + Public Sub SetGERAETNull() + Me(Me.tableVWSILENT_SUPPLIES.GERAETColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableVWSILENT_SUPPLIES.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableVWSILENT_SUPPLIES.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSUPPLY_SERIENNRNull() As Boolean + Return Me.IsNull(Me.tableVWSILENT_SUPPLIES.SUPPLY_SERIENNRColumn) + End Function + + _ + Public Sub SetSUPPLY_SERIENNRNull() + Me(Me.tableVWSILENT_SUPPLIES.SUPPLY_SERIENNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPARTNUMBERNull() As Boolean + Return Me.IsNull(Me.tableVWSILENT_SUPPLIES.PARTNUMBERColumn) + End Function + + _ + Public Sub SetPARTNUMBERNull() + Me(Me.tableVWSILENT_SUPPLIES.PARTNUMBERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATUS_WANNNull() As Boolean + Return Me.IsNull(Me.tableVWSILENT_SUPPLIES.STATUS_WANNColumn) + End Function + + _ + Public Sub SetSTATUS_WANNNull() + Me(Me.tableVWSILENT_SUPPLIES.STATUS_WANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIP_ADRESSNull() As Boolean + Return Me.IsNull(Me.tableVWSILENT_SUPPLIES.IP_ADRESSColumn) + End Function + + _ + Public Sub SetIP_ADRESSNull() + Me(Me.tableVWSILENT_SUPPLIES.IP_ADRESSColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWSUPPLIES_NICHT_DEFRow + Inherits Global.System.Data.DataRow + + Private tableVWSUPPLIES_NICHT_DEF As VWSUPPLIES_NICHT_DEFDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWSUPPLIES_NICHT_DEF = CType(Me.Table,VWSUPPLIES_NICHT_DEFDataTable) + End Sub + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_NICHT_DEF.MARKTColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_NICHT_DEF.MARKTColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_NICHT_DEF.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle VWSUPPLIES_NICHT_DEF ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_NICHT_DEF.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_NICHT_DEF.SERIENNRColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_NICHT_DEF.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property Supply() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_NICHT_DEF.SupplyColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Supply in Tabelle VWSUPPLIES_NICHT_DEF ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_NICHT_DEF.SupplyColumn) = value + End Set + End Property + + _ + Public Property Seriennr_Supply() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_NICHT_DEF.Seriennr_SupplyColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Seriennr Supply in Tabelle VWSUPPLIES_NICHT_DEF ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_NICHT_DEF.Seriennr_SupplyColumn) = value + End Set + End Property + + _ + Public Property NICHT_DEFINIERT() As Boolean + Get + Return CType(Me(Me.tableVWSUPPLIES_NICHT_DEF.NICHT_DEFINIERTColumn),Boolean) + End Get + Set + Me(Me.tableVWSUPPLIES_NICHT_DEF.NICHT_DEFINIERTColumn) = value + End Set + End Property + + _ + Public Property MELDEDATUM() As Date + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_NICHT_DEF.MELDEDATUMColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MELDEDATUM in Tabelle VWSUPPLIES_NICHT_DEF ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_NICHT_DEF.MELDEDATUMColumn) = value + End Set + End Property + + _ + Public Property LEVEL() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_NICHT_DEF.LEVELColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_NICHT_DEF.LEVELColumn) = value + End Set + End Property + + _ + Public Property MODEL_NR() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_NICHT_DEF.MODEL_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODEL_NR in Tabelle VWSUPPLIES_NICHT_DEF ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_NICHT_DEF.MODEL_NRColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_NICHT_DEF.PARTNUMBERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARTNUMBER in Tabelle VWSUPPLIES_NICHT_DEF ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_NICHT_DEF.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_NICHT_DEF.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableVWSUPPLIES_NICHT_DEF.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSupplyNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_NICHT_DEF.SupplyColumn) + End Function + + _ + Public Sub SetSupplyNull() + Me(Me.tableVWSUPPLIES_NICHT_DEF.SupplyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSeriennr_SupplyNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_NICHT_DEF.Seriennr_SupplyColumn) + End Function + + _ + Public Sub SetSeriennr_SupplyNull() + Me(Me.tableVWSUPPLIES_NICHT_DEF.Seriennr_SupplyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMELDEDATUMNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_NICHT_DEF.MELDEDATUMColumn) + End Function + + _ + Public Sub SetMELDEDATUMNull() + Me(Me.tableVWSUPPLIES_NICHT_DEF.MELDEDATUMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMODEL_NRNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_NICHT_DEF.MODEL_NRColumn) + End Function + + _ + Public Sub SetMODEL_NRNull() + Me(Me.tableVWSUPPLIES_NICHT_DEF.MODEL_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPARTNUMBERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_NICHT_DEF.PARTNUMBERColumn) + End Function + + _ + Public Sub SetPARTNUMBERNull() + Me(Me.tableVWSUPPLIES_NICHT_DEF.PARTNUMBERColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWSERIENNR_NIE_DARow + Inherits Global.System.Data.DataRow + + Private tableVWSERIENNR_NIE_DA As VWSERIENNR_NIE_DADataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWSERIENNR_NIE_DA = CType(Me.Table,VWSERIENNR_NIE_DADataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWSERIENNR_NIE_DA.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWSERIENNR_NIE_DA.GUIDColumn) = value + End Set + End Property + + _ + Public Property VERTRAG() As Integer + Get + Return CType(Me(Me.tableVWSERIENNR_NIE_DA.VERTRAGColumn),Integer) + End Get + Set + Me(Me.tableVWSERIENNR_NIE_DA.VERTRAGColumn) = value + End Set + End Property + + _ + Public Property SERIEN_NR() As String + Get + Try + Return CType(Me(Me.tableVWSERIENNR_NIE_DA.SERIEN_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIEN_NR in Tabelle VWSERIENNR_NIE_DA ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSERIENNR_NIE_DA.SERIEN_NRColumn) = value + End Set + End Property + + _ + Public Property PRODUKT_NR() As String + Get + Try + Return CType(Me(Me.tableVWSERIENNR_NIE_DA.PRODUKT_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRODUKT_NR in Tabelle VWSERIENNR_NIE_DA ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSERIENNR_NIE_DA.PRODUKT_NRColumn) = value + End Set + End Property + + _ + Public Property MODELL_NAME() As String + Get + Try + Return CType(Me(Me.tableVWSERIENNR_NIE_DA.MODELL_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODELL_NAME in Tabelle VWSERIENNR_NIE_DA ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSERIENNR_NIE_DA.MODELL_NAMEColumn) = value + End Set + End Property + + _ + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableVWSERIENNR_NIE_DA.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableVWSERIENNR_NIE_DA.AKTIVColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableVWSERIENNR_NIE_DA.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableVWSERIENNR_NIE_DA.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableVWSERIENNR_NIE_DA.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableVWSERIENNR_NIE_DA.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableVWSERIENNR_NIE_DA.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle VWSERIENNR_NIE_DA ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSERIENNR_NIE_DA.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Return CType(Me(Me.tableVWSERIENNR_NIE_DA.GEAENDERTWANNColumn),Date) + End Get + Set + Me(Me.tableVWSERIENNR_NIE_DA.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property TIMESTAMP1() As Byte() + Get + Try + Return CType(Me(Me.tableVWSERIENNR_NIE_DA.TIMESTAMP1Column),Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TIMESTAMP1 in Tabelle VWSERIENNR_NIE_DA ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSERIENNR_NIE_DA.TIMESTAMP1Column) = value + End Set + End Property + + _ + Public Function IsSERIEN_NRNull() As Boolean + Return Me.IsNull(Me.tableVWSERIENNR_NIE_DA.SERIEN_NRColumn) + End Function + + _ + Public Sub SetSERIEN_NRNull() + Me(Me.tableVWSERIENNR_NIE_DA.SERIEN_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRODUKT_NRNull() As Boolean + Return Me.IsNull(Me.tableVWSERIENNR_NIE_DA.PRODUKT_NRColumn) + End Function + + _ + Public Sub SetPRODUKT_NRNull() + Me(Me.tableVWSERIENNR_NIE_DA.PRODUKT_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMODELL_NAMENull() As Boolean + Return Me.IsNull(Me.tableVWSERIENNR_NIE_DA.MODELL_NAMEColumn) + End Function + + _ + Public Sub SetMODELL_NAMENull() + Me(Me.tableVWSERIENNR_NIE_DA.MODELL_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableVWSERIENNR_NIE_DA.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableVWSERIENNR_NIE_DA.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTIMESTAMP1Null() As Boolean + Return Me.IsNull(Me.tableVWSERIENNR_NIE_DA.TIMESTAMP1Column) + End Function + + _ + Public Sub SetTIMESTAMP1Null() + Me(Me.tableVWSERIENNR_NIE_DA.TIMESTAMP1Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWNotInListRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWNotInListRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWNotInListRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWNotInListRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBVERTRAG_NOTEXISTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBVERTRAG_NOTEXISTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBVERTRAG_NOTEXISTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBVERTRAG_NOTEXISTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWGERAET_MELDUNG_FEHLTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWGERAET_MELDUNG_FEHLTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWGERAET_MELDUNG_FEHLTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWGERAET_MELDUNG_FEHLTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWSUPPLY_OHNE_ZORowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWSUPPLY_OHNE_ZORow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWSUPPLY_OHNE_ZORow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWSUPPLY_OHNE_ZORow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWSILENT_GERAETRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWSILENT_GERAETRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWSILENT_GERAETRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWSILENT_GERAETRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWSILENT_SUPPLIESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWSILENT_SUPPLIESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWSILENT_SUPPLIESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWSILENT_SUPPLIESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWSUPPLIES_NICHT_DEFRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWSUPPLIES_NICHT_DEFRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWSUPPLIES_NICHT_DEFRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWSUPPLIES_NICHT_DEFRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWSERIENNR_NIE_DARowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWSERIENNR_NIE_DARow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWSERIENNR_NIE_DARow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWSERIENNR_NIE_DARow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DS_ReportingTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWNotInListTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWNotInList" + tableMapping.ColumnMappings.Add("VERTRAGSNR", "VERTRAGSNR") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("MODELL_NAME", "MODELL_NAME") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBVERTRAEGE.VERTRAGSNR, TBGERAETE_NOTINLIST.MARKT, TBGERAETE_NOTINL"& _ + "IST.SERIENNR, TBGERAETE_NOTINLIST.MODELL_NAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERA"& _ + "ETE_NOTINLIST.ERFASSTWER, TBGERAETE_NOTINLIST.ERFASSTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGER"& _ + "AETE_NOTINLIST INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBVERTRAEGE ON TBGERAETE_NOT"& _ + "INLIST.VERTRAG_ID = TBVERTRAEGE.GUID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS_Reporting.VWNotInListDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS_Reporting.VWNotInListDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS_Reporting.VWNotInListDataTable = New DS_Reporting.VWNotInListDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBVERTRAG_NOTEXISTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBVERTRAG_NOTEXIST" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("VERTRAGSNR", "VERTRAGSNR") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("DATEINAME", "DATEINAME") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBVERTRAG_NOTEXIST" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBVERTRAG_NOTEXIST] SET [VERTRAGSNR] = @VERTRAGSNR, [MARKT] = @MARKT, [DA"& _ + "TEINAME] = @DATEINAME, [ERFASSTWANN] = @ERFASSTWANN WHERE (([GUID] = @Original_G"& _ + "UID) AND ([VERTRAGSNR] = @Original_VERTRAGSNR) AND ((@IsNull_MARKT = 1 AND [MARK"& _ + "T] IS NULL) OR ([MARKT] = @Original_MARKT)) AND ((@IsNull_DATEINAME = 1 AND [DAT"& _ + "EINAME] IS NULL) OR ([DATEINAME] = @Original_DATEINAME)) AND ([ERFASSTWANN] = @O"& _ + "riginal_ERFASSTWANN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, VERTRAGSNR, MARKT, DATEINAME, ERFASSTWANN F"& _ + "ROM TBVERTRAG_NOTEXIST WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAGSNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAGSNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATEINAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATEINAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERTRAGSNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAGSNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MARKT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATEINAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATEINAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATEINAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATEINAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, VERTRAGSNR, MARKT, DATEINAME, ERFASSTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TB"& _ + "VERTRAG_NOTEXIST" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT ISNULL(MAX(GUID),0) AS ID FROM TBVERTRAG_NOTEXIST WHERE VERTRAGSNR = @VERT"& _ + "RAG" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAGSNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS_Reporting.TBVERTRAG_NOTEXISTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS_Reporting.TBVERTRAG_NOTEXISTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS_Reporting.TBVERTRAG_NOTEXISTDataTable = New DS_Reporting.TBVERTRAG_NOTEXISTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DS_Reporting.TBVERTRAG_NOTEXISTDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DS_Reporting) As Integer + Return Me.Adapter.Update(dataSet, "TBVERTRAG_NOTEXIST") + 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() As Integer + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal VERTRAGSNR As String, ByVal MARKT As String, ByVal DATEINAME As String, ByVal ERFASSTWANN As Date, ByVal Original_GUID As Integer, ByVal Original_VERTRAGSNR As String, ByVal Original_MARKT As String, ByVal Original_DATEINAME As String, ByVal Original_ERFASSTWANN As Date, ByVal GUID As Integer) As Integer + If (VERTRAGSNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERTRAGSNR") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(VERTRAGSNR,String) + End If + If (MARKT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(MARKT,String) + End If + If (DATEINAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(DATEINAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ERFASSTWANN,Date) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + If (Original_VERTRAGSNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_VERTRAGSNR") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_VERTRAGSNR,String) + End If + If (Original_MARKT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_MARKT,String) + End If + If (Original_DATEINAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_DATEINAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ERFASSTWANN,Date) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal VERTRAGSNR As String, ByVal MARKT As String, ByVal DATEINAME As String, ByVal ERFASSTWANN As Date, ByVal Original_GUID As Integer, ByVal Original_VERTRAGSNR As String, ByVal Original_MARKT As String, ByVal Original_DATEINAME As String, ByVal Original_ERFASSTWANN As Date) As Integer + Return Me.Update(VERTRAGSNR, MARKT, DATEINAME, ERFASSTWANN, Original_GUID, Original_VERTRAGSNR, Original_MARKT, Original_DATEINAME, Original_ERFASSTWANN, Original_GUID) + End Function + + _ + Public Overloads Overridable Function cmdVertragNotIn(ByVal VERTRAG As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (VERTRAG Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERTRAG") + Else + command.Parameters(0).Value = CType(VERTRAG,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWGERAET_MELDUNG_FEHLTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWGERAET_MELDUNG_FEHLT" + tableMapping.ColumnMappings.Add("VERTRAGSNR", "VERTRAGSNR") + tableMapping.ColumnMappings.Add("SERIEN_NR", "SERIEN_NR") + tableMapping.ColumnMappings.Add("PRODUKT_NR", "PRODUKT_NR") + tableMapping.ColumnMappings.Add("MODELL_NAME", "MODELL_NAME") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT VERTRAGSNR, SERIEN_NR, PRODUKT_NR, MODELL_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWG"& _ + "ERAET_MELDUNG_FEHLT" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS_Reporting.VWGERAET_MELDUNG_FEHLTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS_Reporting.VWGERAET_MELDUNG_FEHLTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS_Reporting.VWGERAET_MELDUNG_FEHLTDataTable = New DS_Reporting.VWGERAET_MELDUNG_FEHLTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWSUPPLY_OHNE_ZOTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWSUPPLY_OHNE_ZO" + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("Supply", "Supply") + tableMapping.ColumnMappings.Add("Seriennr Supply", "Seriennr Supply") + tableMapping.ColumnMappings.Add("KEINE_ZUORDNUNG", "KEINE_ZUORDNUNG") + tableMapping.ColumnMappings.Add("MELDEDATUM", "MELDEDATUM") + tableMapping.ColumnMappings.Add("LEVEL", "LEVEL") + tableMapping.ColumnMappings.Add("MODEL_NR", "MODEL_NR") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBGERAET.MARKT, TBGERAET.BEZEICHNUNG, TBGERAET.SERIENNR, TBSUPPLY_V"& _ + "ERFOLGUNG.BEZEICHNUNG AS Supply, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBSUPPLY_VERFOLGUNG."& _ + "SERIENNR AS [Seriennr Supply], TBSUPPLY_VERFOLGUNG.KEINE_ZUORDNUNG, CONVERT(DATE"& _ + "TIME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBSUPPLY_VERFOLGUNG.MELDEDATUM, 104) AS MELDEDA"& _ + "TUM, TBSUPPLY_VERFOLGUNG.LEVEL, TBGERAET.MODEL_NR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TB"& _ + "SUPPLY_VERFOLGUNG.PARTNUMBER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLY_VERFOLGUNG INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAET ON TBSUPPLY_VERFOLGUNG.GERAET_ID = TBGERAET.GUID"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CONVERT(varchar(10), TBSUPPLY_VERFOLGUNG.ERFASSTWANN, 104) = CON"& _ + "VERT(varchar(10), GETDATE(), 104)) AND "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TBSUPPLY_VERF"& _ + "OLGUNG.KEINE_ZUORDNUNG = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBGERAET.MODEL_NR" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS_Reporting.VWSUPPLY_OHNE_ZODataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS_Reporting.VWSUPPLY_OHNE_ZODataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS_Reporting.VWSUPPLY_OHNE_ZODataTable = New DS_Reporting.VWSUPPLY_OHNE_ZODataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWSILENT_GERAETTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWSILENT_GERAET" + tableMapping.ColumnMappings.Add("VERTRAGSNR", "VERTRAGSNR") + tableMapping.ColumnMappings.Add("SERIEN_NR", "SERIEN_NR") + tableMapping.ColumnMappings.Add("PRODUKT_NR", "PRODUKT_NR") + tableMapping.ColumnMappings.Add("MODELL_NAME", "MODELL_NAME") + tableMapping.ColumnMappings.Add("IP_ADRESSE", "IP_ADRESSE") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT VERTRAGSNR, SERIEN_NR, PRODUKT_NR, MODELL_NAME, IP_ADRESSE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " VWSILENT_GERAET" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS_Reporting.VWSILENT_GERAETDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS_Reporting.VWSILENT_GERAETDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS_Reporting.VWSILENT_GERAETDataTable = New DS_Reporting.VWSILENT_GERAETDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWSILENT_SUPPLIESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWSILENT_SUPPLIES" + tableMapping.ColumnMappings.Add("VERTRAGSNR", "VERTRAGSNR") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("GERAET", "GERAET") + tableMapping.ColumnMappings.Add("DEVICE_SERIENNR", "DEVICE_SERIENNR") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("SUPPLY_SERIENNR", "SUPPLY_SERIENNR") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + tableMapping.ColumnMappings.Add("STATUS_WANN", "STATUS_WANN") + tableMapping.ColumnMappings.Add("IP_ADRESS", "IP_ADRESS") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT VERTRAGSNR, MARKT, GERAET, DEVICE_SERIENNR, BEZEICHNUNG, SUPPLY_SER"& _ + "IENNR, PARTNUMBER, STATUS_WANN, IP_ADRESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSILENT_SUPPLIES" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS_Reporting.VWSILENT_SUPPLIESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS_Reporting.VWSILENT_SUPPLIESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS_Reporting.VWSILENT_SUPPLIESDataTable = New DS_Reporting.VWSILENT_SUPPLIESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWSUPPLIES_NICHT_DEFTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWSUPPLIES_NICHT_DEF" + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("Supply", "Supply") + tableMapping.ColumnMappings.Add("Seriennr Supply", "Seriennr Supply") + tableMapping.ColumnMappings.Add("NICHT_DEFINIERT", "NICHT_DEFINIERT") + tableMapping.ColumnMappings.Add("MELDEDATUM", "MELDEDATUM") + tableMapping.ColumnMappings.Add("LEVEL", "LEVEL") + tableMapping.ColumnMappings.Add("MODEL_NR", "MODEL_NR") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBGERAET.MARKT, TBGERAET.BEZEICHNUNG, TBGERAET.SERIENNR, TBSUPPLY_V"& _ + "ERFOLGUNG.BEZEICHNUNG AS Supply, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBSUPPLY_VERFOLGUNG."& _ + "SERIENNR AS [Seriennr Supply], TBSUPPLY_VERFOLGUNG.NICHT_DEFINIERT, CONVERT(DATE"& _ + "TIME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBSUPPLY_VERFOLGUNG.MELDEDATUM, 104) AS MELDEDA"& _ + "TUM, TBSUPPLY_VERFOLGUNG.LEVEL, TBGERAET.MODEL_NR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TB"& _ + "SUPPLY_VERFOLGUNG.PARTNUMBER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLY_VERFOLGUNG INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAET ON TBSUPPLY_VERFOLGUNG.GERAET_ID = TBGERAET.GUID"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CONVERT(varchar(10), TBSUPPLY_VERFOLGUNG.ERFASSTWANN, 104) = CON"& _ + "VERT(varchar(10), GETDATE(), 104)) AND "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TBSUPPLY_VERF"& _ + "OLGUNG.NICHT_DEFINIERT = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBGERAET.MODEL_NR" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS_Reporting.VWSUPPLIES_NICHT_DEFDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS_Reporting.VWSUPPLIES_NICHT_DEFDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS_Reporting.VWSUPPLIES_NICHT_DEFDataTable = New DS_Reporting.VWSUPPLIES_NICHT_DEFDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWSERIENNR_NIE_DATableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWSERIENNR_NIE_DA" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("VERTRAG", "VERTRAG") + tableMapping.ColumnMappings.Add("SERIEN_NR", "SERIEN_NR") + tableMapping.ColumnMappings.Add("PRODUKT_NR", "PRODUKT_NR") + tableMapping.ColumnMappings.Add("MODELL_NAME", "MODELL_NAME") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("TIMESTAMP1", "TIMESTAMP1") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT Vwseriennr_nie_da.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Vwseriennr_nie_da" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS_Reporting.VWSERIENNR_NIE_DADataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS_Reporting.VWSERIENNR_NIE_DADataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS_Reporting.VWSERIENNR_NIE_DADataTable = New DS_Reporting.VWSERIENNR_NIE_DADataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBVERTRAG_NOTEXISTTableAdapter As TBVERTRAG_NOTEXISTTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBVERTRAG_NOTEXISTTableAdapter() As TBVERTRAG_NOTEXISTTableAdapter + Get + Return Me._tBVERTRAG_NOTEXISTTableAdapter + End Get + Set + Me._tBVERTRAG_NOTEXISTTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBVERTRAG_NOTEXISTTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBVERTRAG_NOTEXISTTableAdapter.Connection) Is Nothing)) Then + Return Me._tBVERTRAG_NOTEXISTTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBVERTRAG_NOTEXISTTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DS_Reporting, 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._tBVERTRAG_NOTEXISTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBVERTRAG_NOTEXIST.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBVERTRAG_NOTEXISTTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DS_Reporting, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBVERTRAG_NOTEXISTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBVERTRAG_NOTEXIST.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBVERTRAG_NOTEXISTTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DS_Reporting, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBVERTRAG_NOTEXISTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBVERTRAG_NOTEXIST.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBVERTRAG_NOTEXISTTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + 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 + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DS_Reporting) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBVERTRAG_NOTEXISTTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBVERTRAG_NOTEXISTTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBVERTRAG_NOTEXISTTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBVERTRAG_NOTEXISTTableAdapter, Me._tBVERTRAG_NOTEXISTTableAdapter.Connection) + Me._tBVERTRAG_NOTEXISTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBVERTRAG_NOTEXISTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBVERTRAG_NOTEXISTTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBVERTRAG_NOTEXISTTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBVERTRAG_NOTEXISTTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBVERTRAG_NOTEXISTTableAdapter) Is Nothing) Then + Me._tBVERTRAG_NOTEXISTTableAdapter.Connection = CType(revertConnections(Me._tBVERTRAG_NOTEXISTTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBVERTRAG_NOTEXISTTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + 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 + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + 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 + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + 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 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/Supplywatch/DS_Reporting.xsc b/Supplywatch/DS_Reporting.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/Supplywatch/DS_Reporting.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/Supplywatch/DS_Reporting.xsd b/Supplywatch/DS_Reporting.xsd new file mode 100644 index 0000000..b3d7113 --- /dev/null +++ b/Supplywatch/DS_Reporting.xsd @@ -0,0 +1,643 @@ + + + + + + + + + + + + + + + SELECT TBVERTRAEGE.VERTRAGSNR, TBGERAETE_NOTINLIST.MARKT, TBGERAETE_NOTINLIST.SERIENNR, TBGERAETE_NOTINLIST.MODELL_NAME, + TBGERAETE_NOTINLIST.ERFASSTWER, TBGERAETE_NOTINLIST.ERFASSTWANN +FROM TBGERAETE_NOTINLIST INNER JOIN + TBVERTRAEGE ON TBGERAETE_NOTINLIST.VERTRAG_ID = TBVERTRAEGE.GUID + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBVERTRAG_NOTEXIST + + + + + + SELECT GUID, VERTRAGSNR, MARKT, DATEINAME, ERFASSTWANN +FROM TBVERTRAG_NOTEXIST + + + + + + UPDATE [TBVERTRAG_NOTEXIST] SET [VERTRAGSNR] = @VERTRAGSNR, [MARKT] = @MARKT, [DATEINAME] = @DATEINAME, [ERFASSTWANN] = @ERFASSTWANN WHERE (([GUID] = @Original_GUID) AND ([VERTRAGSNR] = @Original_VERTRAGSNR) AND ((@IsNull_MARKT = 1 AND [MARKT] IS NULL) OR ([MARKT] = @Original_MARKT)) AND ((@IsNull_DATEINAME = 1 AND [DATEINAME] IS NULL) OR ([DATEINAME] = @Original_DATEINAME)) AND ([ERFASSTWANN] = @Original_ERFASSTWANN)); +SELECT GUID, VERTRAGSNR, MARKT, DATEINAME, ERFASSTWANN FROM TBVERTRAG_NOTEXIST WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT ISNULL(MAX(GUID),0) AS ID FROM TBVERTRAG_NOTEXIST WHERE VERTRAGSNR = @VERTRAG + + + + + + + + + + + + + + SELECT VERTRAGSNR, SERIEN_NR, PRODUKT_NR, MODELL_NAME +FROM VWGERAET_MELDUNG_FEHLT + + + + + + + + + + + + + + + + + + + SELECT TBGERAET.MARKT, TBGERAET.BEZEICHNUNG, TBGERAET.SERIENNR, TBSUPPLY_VERFOLGUNG.BEZEICHNUNG AS Supply, + TBSUPPLY_VERFOLGUNG.SERIENNR AS [Seriennr Supply], TBSUPPLY_VERFOLGUNG.KEINE_ZUORDNUNG, CONVERT(DATETIME, + TBSUPPLY_VERFOLGUNG.MELDEDATUM, 104) AS MELDEDATUM, TBSUPPLY_VERFOLGUNG.LEVEL, TBGERAET.MODEL_NR, + TBSUPPLY_VERFOLGUNG.PARTNUMBER +FROM TBSUPPLY_VERFOLGUNG INNER JOIN + TBGERAET ON TBSUPPLY_VERFOLGUNG.GERAET_ID = TBGERAET.GUID +WHERE (CONVERT(varchar(10), TBSUPPLY_VERFOLGUNG.ERFASSTWANN, 104) = CONVERT(varchar(10), GETDATE(), 104)) AND + (TBSUPPLY_VERFOLGUNG.KEINE_ZUORDNUNG = 1) +ORDER BY TBGERAET.MODEL_NR + + + + + + + + + + + + + + + + + + + + + + + + + SELECT VERTRAGSNR, SERIEN_NR, PRODUKT_NR, MODELL_NAME, IP_ADRESSE +FROM VWSILENT_GERAET + + + + + + + + + + + + + + + + + + + + SELECT VERTRAGSNR, MARKT, GERAET, DEVICE_SERIENNR, BEZEICHNUNG, SUPPLY_SERIENNR, PARTNUMBER, STATUS_WANN, IP_ADRESS +FROM VWSILENT_SUPPLIES + + + + + + + + + + + + + + + + + + + + + + + + SELECT TBGERAET.MARKT, TBGERAET.BEZEICHNUNG, TBGERAET.SERIENNR, TBSUPPLY_VERFOLGUNG.BEZEICHNUNG AS Supply, + TBSUPPLY_VERFOLGUNG.SERIENNR AS [Seriennr Supply], TBSUPPLY_VERFOLGUNG.NICHT_DEFINIERT, CONVERT(DATETIME, + TBSUPPLY_VERFOLGUNG.MELDEDATUM, 104) AS MELDEDATUM, TBSUPPLY_VERFOLGUNG.LEVEL, TBGERAET.MODEL_NR, + TBSUPPLY_VERFOLGUNG.PARTNUMBER +FROM TBSUPPLY_VERFOLGUNG INNER JOIN + TBGERAET ON TBSUPPLY_VERFOLGUNG.GERAET_ID = TBGERAET.GUID +WHERE (CONVERT(varchar(10), TBSUPPLY_VERFOLGUNG.ERFASSTWANN, 104) = CONVERT(varchar(10), GETDATE(), 104)) AND + (TBSUPPLY_VERFOLGUNG.NICHT_DEFINIERT = 1) +ORDER BY TBGERAET.MODEL_NR + + + + + + + + + + + + + + + + + + + + + + + + + SELECT Vwseriennr_nie_da.* +FROM Vwseriennr_nie_da + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Supplywatch/DS_Reporting.xss b/Supplywatch/DS_Reporting.xss new file mode 100644 index 0000000..7b1609c --- /dev/null +++ b/Supplywatch/DS_Reporting.xss @@ -0,0 +1,19 @@ + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Supplywatch/FMDisclaimer.Designer.vb b/Supplywatch/FMDisclaimer.Designer.vb new file mode 100644 index 0000000..fabc752 --- /dev/null +++ b/Supplywatch/FMDisclaimer.Designer.vb @@ -0,0 +1,126 @@ + _ +Partial Class FMDisclaimer + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + Friend WithEvents ApplicationTitle As System.Windows.Forms.Label + Friend WithEvents Version As System.Windows.Forms.Label + Friend WithEvents Copyright As System.Windows.Forms.Label + Friend WithEvents MainLayoutPanel As System.Windows.Forms.TableLayoutPanel + Friend WithEvents DetailsLayoutPanel As System.Windows.Forms.TableLayoutPanel + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.MainLayoutPanel = New System.Windows.Forms.TableLayoutPanel() + Me.DetailsLayoutPanel = New System.Windows.Forms.TableLayoutPanel() + Me.Version = New System.Windows.Forms.Label() + Me.Copyright = New System.Windows.Forms.Label() + Me.ApplicationTitle = New System.Windows.Forms.Label() + Me.MainLayoutPanel.SuspendLayout() + Me.DetailsLayoutPanel.SuspendLayout() + Me.SuspendLayout() + ' + 'MainLayoutPanel + ' + Me.MainLayoutPanel.BackgroundImage = Global.MCSUPPLYWATCH.My.Resources.Resources.DigitalDataLogo + Me.MainLayoutPanel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.MainLayoutPanel.ColumnCount = 2 + Me.MainLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 243.0!)) + Me.MainLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 253.0!)) + Me.MainLayoutPanel.Controls.Add(Me.DetailsLayoutPanel, 1, 1) + Me.MainLayoutPanel.Controls.Add(Me.ApplicationTitle, 1, 0) + Me.MainLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill + Me.MainLayoutPanel.Location = New System.Drawing.Point(0, 0) + Me.MainLayoutPanel.Name = "MainLayoutPanel" + Me.MainLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 218.0!)) + Me.MainLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 38.0!)) + Me.MainLayoutPanel.Size = New System.Drawing.Size(496, 293) + Me.MainLayoutPanel.TabIndex = 0 + ' + 'DetailsLayoutPanel + ' + Me.DetailsLayoutPanel.Anchor = System.Windows.Forms.AnchorStyles.None + Me.DetailsLayoutPanel.BackColor = System.Drawing.Color.Transparent + Me.DetailsLayoutPanel.ColumnCount = 1 + Me.DetailsLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 247.0!)) + Me.DetailsLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 142.0!)) + Me.DetailsLayoutPanel.Controls.Add(Me.Version, 0, 0) + Me.DetailsLayoutPanel.Controls.Add(Me.Copyright, 0, 1) + Me.DetailsLayoutPanel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DetailsLayoutPanel.Location = New System.Drawing.Point(246, 221) + Me.DetailsLayoutPanel.Name = "DetailsLayoutPanel" + Me.DetailsLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.0!)) + Me.DetailsLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.0!)) + Me.DetailsLayoutPanel.Size = New System.Drawing.Size(247, 69) + Me.DetailsLayoutPanel.TabIndex = 1 + ' + 'Version + ' + Me.Version.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Version.BackColor = System.Drawing.Color.Transparent + Me.Version.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Version.Location = New System.Drawing.Point(3, 7) + Me.Version.Name = "Version" + Me.Version.Size = New System.Drawing.Size(241, 20) + Me.Version.TabIndex = 1 + Me.Version.Text = "Version {0}.{1:00}" + ' + 'Copyright + ' + Me.Copyright.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Copyright.BackColor = System.Drawing.Color.Transparent + Me.Copyright.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Copyright.Location = New System.Drawing.Point(3, 34) + Me.Copyright.Name = "Copyright" + Me.Copyright.Size = New System.Drawing.Size(241, 35) + Me.Copyright.TabIndex = 2 + Me.Copyright.Text = "Copyright" + ' + 'ApplicationTitle + ' + Me.ApplicationTitle.Anchor = System.Windows.Forms.AnchorStyles.None + Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent + Me.ApplicationTitle.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ApplicationTitle.Location = New System.Drawing.Point(246, 3) + Me.ApplicationTitle.Name = "ApplicationTitle" + Me.ApplicationTitle.Size = New System.Drawing.Size(247, 212) + Me.ApplicationTitle.TabIndex = 0 + Me.ApplicationTitle.Text = "Anwendungstitel" + Me.ApplicationTitle.TextAlign = System.Drawing.ContentAlignment.BottomLeft + ' + 'FMDisclaimer + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(496, 293) + Me.ControlBox = False + Me.Controls.Add(Me.MainLayoutPanel) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "FMDisclaimer" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.MainLayoutPanel.ResumeLayout(False) + Me.DetailsLayoutPanel.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + +End Class diff --git a/Supplywatch/FMDisclaimer.resx b/Supplywatch/FMDisclaimer.resx new file mode 100644 index 0000000..7080a7d --- /dev/null +++ b/Supplywatch/FMDisclaimer.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Supplywatch/FMDisclaimer.vb b/Supplywatch/FMDisclaimer.vb new file mode 100644 index 0000000..4544ab8 --- /dev/null +++ b/Supplywatch/FMDisclaimer.vb @@ -0,0 +1,34 @@ +Public NotInheritable Class FMDisclaimer + + 'TODO: Dieses Formular kann einfach als Begrüßungsbildschirm für die Anwendung festgelegt werden, indem Sie zur Registerkarte "Anwendung" + ' des Projekt-Designers wechseln (Menü "Projekt", Option "Eigenschaften"). + + + Private Sub FMDisclaimer1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + 'Richten Sie den Dialogtext zur Laufzeit gemäß den Assemblyinformationen der Anwendung ein. + + 'TODO: Passen Sie die Assemblyinformationen der Anwendung im Bereich "Anwendung" des Dialogfelds für die + ' Projekteigenschaften (im Menü "Projekt") an. + + 'Anwendungstitel + If My.Application.Info.Title <> "" Then + ApplicationTitle.Text = My.Application.Info.Title + Else + 'Wenn der Anwendungstitel fehlt, Anwendungsnamen ohne Erweiterung verwenden + ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName) + End If + + 'Verwenden Sie zum Formatieren der Versionsinformationen den Text, der zur Entwurfszeit in der Versionskontrolle festgelegt wurde, als + ' Formatierungszeichenfolge. Dies ermöglicht ggf. eine effektive Lokalisierung. + ' Build- und Revisionsinformationen können durch Verwendung des folgenden Codes und durch Ändern + ' des Entwurfszeittexts der Versionskontrolle in "Version {0}.{1:00}.{2}.{3}" oder einen ähnlichen Text eingeschlossen werden. Weitere Informationen erhalten Sie unter + ' String.Format() in der Hilfe. + ' + ' Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision) + + Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor) + 'Copyrightinformationen + Copyright.Text = My.Application.Info.Copyright + End Sub + +End Class diff --git a/Supplywatch/FMMain.Designer.vb b/Supplywatch/FMMain.Designer.vb new file mode 100644 index 0000000..9f5bbac --- /dev/null +++ b/Supplywatch/FMMain.Designer.vb @@ -0,0 +1,7108 @@ + _ +Partial Class FMMain + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim GEAENDERTWANNLabel As System.Windows.Forms.Label + Dim GEAENDERTWERLabel As System.Windows.Forms.Label + Dim STATUS_SDLabel As System.Windows.Forms.Label + Dim STATUS_BESTLabel As System.Windows.Forms.Label + Dim STATUS_OKLabel As System.Windows.Forms.Label + Dim Label8 As System.Windows.Forms.Label + Dim Label9 As System.Windows.Forms.Label + Dim GUIDLabel As System.Windows.Forms.Label + Dim NAMELabel As System.Windows.Forms.Label + Dim NAME_LANGLabel As System.Windows.Forms.Label + Dim KENNZEICHENLabel As System.Windows.Forms.Label + Dim ERSTELLLTWERLabel As System.Windows.Forms.Label + Dim ERSTELLTWANNLabel As System.Windows.Forms.Label + Dim GEAENDERTWANNLabel1 As System.Windows.Forms.Label + Dim GEAENDERTWERLabel1 As System.Windows.Forms.Label + Dim FILTERLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FMMain)) + Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.VWRPT_SUPPLIES_TOORDERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.MyDataset = New MCSUPPLYWATCH.MyDataset() + Me.VWGERAET_ORDERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWSUPPLIES_TO_ORDERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.StatusStrip_Main = New System.Windows.Forms.StatusStrip() + Me.StatusUser = New System.Windows.Forms.ToolStripStatusLabel() + Me.Status_Machine = New System.Windows.Forms.ToolStripStatusLabel() + Me.Status_Clock = New System.Windows.Forms.ToolStripStatusLabel() + Me.tslbl_Hinweis = New System.Windows.Forms.ToolStripStatusLabel() + Me.TCMain = New System.Windows.Forms.TabControl() + Me.tpBewegungen = New System.Windows.Forms.TabPage() + Me.pnlUebersicht = New System.Windows.Forms.Panel() + Me.TCUebersicht = New System.Windows.Forms.TabControl() + Me.tpGeraet_Order = New System.Windows.Forms.TabPage() + Me.SPCOrder = New System.Windows.Forms.SplitContainer() + Me.TCGeraeteOrder = New System.Windows.Forms.TabControl() + Me.tpOrderGeraete = New System.Windows.Forms.TabPage() + Me.GridControlSupplies2Order = New DevExpress.XtraGrid.GridControl() + Me.cmsBestellungen = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.AlleMarkierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.MarkierungAufhebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VWSUPPLIES_2_ORDERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewSupplies2Order = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUI_SELECTED = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSUPPLY_ID2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGERAET_ID1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDEVICE1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDEVICE_SERIAL = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMARKT5 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPAGE_COUNT2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPPM2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSUPPLY_BEZEICHNUNG2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMENGE2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colLEVEL1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSCHWELLENWERT2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPARTNUMBER2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSERIENNR3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSTATUS1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSTATUS_WANN1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSTATUS_WER1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMANUELL2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFW = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.VWGERAET_ORDERBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.tsbImport = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbGeraeteOrderRefresh = New System.Windows.Forms.ToolStripButton() + Me.tsbSetBest_gesendet = New System.Windows.Forms.ToolStripButton() + Me.btnsetBestellt = New System.Windows.Forms.ToolStripButton() + Me.tsborders = New System.Windows.Forms.ToolStripButton() + Me.ToolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton() + Me.GerätebestellungLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SupplybestellungLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripButton38 = New System.Windows.Forms.ToolStripButton() + Me.tpGeraeteOrderReport = New System.Windows.Forms.TabPage() + Me.rptViewerBestellungen = New Microsoft.Reporting.WinForms.ReportViewer() + Me.TabPageBestGesendet = New System.Windows.Forms.TabPage() + Me.GridControlBestellungen_gesendet = New DevExpress.XtraGrid.GridControl() + Me.VWSUPPLIES_BESTELLUNG_GESENDETBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewBestellungen_Gesendet = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colBESTELL_ID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSUPPLY_ID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBESTELLT_WANN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBESTELLT_WER = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGERAET = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMANUELL = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMARKT = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMENGE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSERIEN_NR = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSUPPLY_BEZEICHNUNG = New DevExpress.XtraGrid.Columns.GridColumn() + Me.BindingNavigator4 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton12 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton13 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox3 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton14 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton15 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton16 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton37 = New System.Windows.Forms.ToolStripButton() + Me.tsbtn_setBack2Besterford = New System.Windows.Forms.ToolStripButton() + Me.tsbtnSet2BestelltManually = New System.Windows.Forms.ToolStripButton() + Me.tpBestellungen = New System.Windows.Forms.TabPage() + Me.GridControlBestellungen = New DevExpress.XtraGrid.GridControl() + Me.TBSUPPLY_BESTELLUNGViewBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewBestellUebersicht = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colBestellID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGERAET1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSERIEN_NR1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSUPPLY_BEZEICHNUNG1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMENGE1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMENGE_ORIGIN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBESTELLNR = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMARKT1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMANUELL1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBESTELLT_WANN1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBESTELLT_WER1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFILE_ORDER_CONFIRM = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.chkbDatumfilterOrder = New System.Windows.Forms.CheckBox() + Me.dtpOrder_bis = New System.Windows.Forms.DateTimePicker() + Me.Label12 = New System.Windows.Forms.Label() + Me.dtpOrder_von = New System.Windows.Forms.DateTimePicker() + Me.Label13 = New System.Windows.Forms.Label() + Me.chbFilterMarkt_Bestellungen = New System.Windows.Forms.CheckBox() + Me.DGTBWH_Markt_Bestellungen = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn15 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TBWH_MARKTBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem3 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem3 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem3 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator9 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem3 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator10 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem3 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem3 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator11 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbRefresh_Bestellungen = New System.Windows.Forms.ToolStripButton() + Me.tsbExel_bestellungen = New System.Windows.Forms.ToolStripButton() + Me.TabPageBestell_Import = New System.Windows.Forms.TabPage() + Me.chkLogData = New System.Windows.Forms.CheckBox() + Me.DataGridView2 = New System.Windows.Forms.DataGridView() + Me.btnImportBestellungen = New System.Windows.Forms.Button() + Me.DataGridView3 = New System.Windows.Forms.DataGridView() + Me.MELDEDATUMDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SUPPLYLEVELDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.STATUSDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ERFASSTWANNDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.VWSUPPLY_VERFOLGUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingNavigator3 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem10 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem10 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem10 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator30 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem10 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator31 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem10 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem10 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator32 = New System.Windows.Forms.ToolStripSeparator() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GridControlVWSupplies = New DevExpress.XtraGrid.GridControl() + Me.VWSUPPLIESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewVWSupplies = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colSUPPLY_ID1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMARKT4 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDEVICE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSUPPLY_BEZ = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colLEVEL = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSCHWELLENWERT = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPARTNUMBER = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSERIENNR2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSTATUS = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colERFASSTWANN1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGEAENDERTWER1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGEAENDERTWANN1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGERAET_ID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSTATUS_WANN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGERAET2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGERAET_IP = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGERAET_SERIENNR = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGERAET_PAGECOUNT = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGERAET_PPM = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBESTELLUNG1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSTATUS_WER = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.grbStati = New System.Windows.Forms.GroupBox() + Me.chbFilterStatus = New System.Windows.Forms.CheckBox() + Me.TBWH_STATUSFILTERDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TBWH_STATUSFILTERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWSUPPLIESBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() + Me.tsbImport1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem1 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbSupplies_Refresh = New System.Windows.Forms.ToolStripButton() + Me.tsbExcel_Supplies = New System.Windows.Forms.ToolStripButton() + Me.spltSupplies = New System.Windows.Forms.Splitter() + Me.tpGeraete = New System.Windows.Forms.TabPage() + Me.SCGeraete_Uebersicht = New System.Windows.Forms.SplitContainer() + Me.SplitContainerGeraet = New DevExpress.XtraEditors.SplitContainerControl() + Me.GridControlGeraete = New DevExpress.XtraGrid.GridControl() + Me.TBGERAETBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewGeraete = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBEZEICHNUNG = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colIP_ADRESSE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSERIENNR = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMODEL_NR = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMARKT2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPAGE_COUNT = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPPM = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colERFASSTWANN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGEAENDERTWANN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGEAENDERTWER = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBESTELLUNG = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMARKER = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPC_INITIAL = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDATE_INITIAL = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colUMGEZOGEN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVERTRAGSNR = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colONHOLD = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colONHOLD_DATE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMELDEDATUM = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colNICHT_AKTIV = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colABGEBAUT = New DevExpress.XtraGrid.Columns.GridColumn() + Me.TBCHANGE_LOG_GERAETDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ERFASSTWANN = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TBCHANGE_LOG_GERAETBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem7 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem7 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem7 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator21 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem7 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator22 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem7 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem7 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator23 = New System.Windows.Forms.ToolStripSeparator() + Me.SplitContainerSupplies = New System.Windows.Forms.SplitContainer() + Me.VWSUPPLIES_AKTUELLDataGridView = New System.Windows.Forms.DataGridView() + Me.VWSUPPLIES_AKTUELLDataGridViewSupplyID = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn38 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn39 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn40 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn41 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn42 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn44 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn50 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn49 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.VWSUPPLIES_AKTUELLDataGridViewOnHold = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.DataGridViewTextBoxColumn51 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn45 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn46 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn47 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.VWSUPPLIES_GERAETBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DataGridView1 = New System.Windows.Forms.DataGridView() + Me.MeldedatumDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.StatusDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.MarkerDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ErfasstWannDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ViewSUPPLY_STATUS_VERFOLGUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem9 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem9 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem9 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator27 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem9 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator28 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem9 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem9 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator29 = New System.Windows.Forms.ToolStripSeparator() + Me.VWSUPPLIES_GERAETBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem8 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem8 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem8 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator24 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem8 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator25 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem8 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem8 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator26 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbtnSuppliesSetStatusOnHold = New System.Windows.Forms.ToolStripButton() + Me.tsbtnChangebestellt = New System.Windows.Forms.ToolStripButton() + Me.spltGeraete_uebersicht = New System.Windows.Forms.Splitter() + Me.TBGERAETBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem2 = New System.Windows.Forms.ToolStripLabel() + Me.tsbImport2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveFirstItem2 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem2 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator6 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem2 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator7 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem2 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem2 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator8 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbGeraeteRefresh = New System.Windows.Forms.ToolStripButton() + Me.tsbexcel_geraete = New System.Windows.Forms.ToolStripButton() + Me.tsbGeraeteverfolgung_Geraet = New System.Windows.Forms.ToolStripButton() + Me.tsbtnONHOLD = New System.Windows.Forms.ToolStripButton() + Me.tscmbaktiv = New System.Windows.Forms.ToolStripComboBox() + Me.tsbtnChangelog = New System.Windows.Forms.ToolStripButton() + Me.tpVerfolgung = New System.Windows.Forms.TabPage() + Me.TabControlNachverfolgung = New System.Windows.Forms.TabControl() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.GridControlATR = New DevExpress.XtraGrid.GridControl() + Me.GridViewATR = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.VWMarkt_VerfolgungBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.VWMarkt_VerfolgungBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.ToolStripLabel7 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton31 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton32 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator22 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox7 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator23 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton33 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton34 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator24 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton35 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton36 = New System.Windows.Forms.ToolStripButton() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.chkbDatumfilter = New System.Windows.Forms.CheckBox() + Me.dtpVerfolgung_bis = New System.Windows.Forms.DateTimePicker() + Me.Label11 = New System.Windows.Forms.Label() + Me.dtpVerfolgung_von = New System.Windows.Forms.DateTimePicker() + Me.Label10 = New System.Windows.Forms.Label() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.chbFilterMarktNV = New System.Windows.Forms.CheckBox() + Me.DGVTBWH_MARKT_VF = New System.Windows.Forms.DataGridView() + Me.clmMarkt = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.tsbtnSupplyverfolgung = New System.Windows.Forms.ToolStrip() + Me.ToolStripButton30 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton10 = New System.Windows.Forms.ToolStripButton() + Me.tsProgressBar = New System.Windows.Forms.ToolStripProgressBar() + Me.tslbl_Files = New System.Windows.Forms.ToolStripLabel() + Me.tsbtnManaulOrders = New System.Windows.Forms.ToolStripButton() + Me.tsbtnAbbrechen = New System.Windows.Forms.ToolStripButton() + Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton() + Me.ProfileMailExporterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StarteMailExporterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbtnNAchverfolgung = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.cmbMandanten = New System.Windows.Forms.ToolStripComboBox() + Me.tpEinstellungen = New System.Windows.Forms.TabPage() + Me.TabControlEinstellungen = New System.Windows.Forms.TabControl() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.TBSTATUSDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.statusBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.StatusBeschreibung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Statusgeaendertwer = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TBSTATUSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBSTATUSBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbStatus_Refresh = New System.Windows.Forms.ToolStripButton() + Me.tsbStatus_Save = New System.Windows.Forms.ToolStripButton() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.TBSUPPLY_DEFINITIONDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn20 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn26 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SUPPLY_NAME_DATEI = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn28 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn30 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn31 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn32 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TBSUPPLY_DEFINITIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBSUPPLY_DEFINITIONBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton17 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton18 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator16 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox5 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator17 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton19 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton20 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator18 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton21 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton22 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton27 = New System.Windows.Forms.ToolStripButton() + Me.GroupBox12 = New System.Windows.Forms.GroupBox() + Me.FILTERTextBox = New System.Windows.Forms.TextBox() + Me.TBMANDANTENBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBMANDANTENDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn21 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn22 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn23 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.DataGridViewCheckBoxColumn2 = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.DataGridViewTextBoxColumn24 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn25 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.NAMETextBox = New System.Windows.Forms.TextBox() + Me.NAME_LANGTextBox = New System.Windows.Forms.TextBox() + Me.KENNZEICHENTextBox = New System.Windows.Forms.TextBox() + Me.FLEETWATCHCheckBox = New System.Windows.Forms.CheckBox() + Me.SUPPLYWATCHCheckBox = New System.Windows.Forms.CheckBox() + Me.ERSTELLLTWERTextBox = New System.Windows.Forms.TextBox() + Me.ERSTELLTWANNTextBox = New System.Windows.Forms.TextBox() + Me.GEAENDERTWANNTextBox1 = New System.Windows.Forms.TextBox() + Me.GEAENDERTWERTextBox1 = New System.Windows.Forms.TextBox() + Me.TBMANDANTENBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem4 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem4 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem4 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator12 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem4 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator13 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem4 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem4 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator14 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.ComboBox5 = New System.Windows.Forms.ComboBox() + Me.TBKONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBWH_STATUS5BindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Label14 = New System.Windows.Forms.Label() + Me.txtConfigPath = New System.Windows.Forms.TextBox() + Me.ComboBox4 = New System.Windows.Forms.ComboBox() + Me.TBWH_STATUS4BindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.ComboBox3 = New System.Windows.Forms.ComboBox() + Me.TBWH_STATUS3BindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.ComboBox2 = New System.Windows.Forms.ComboBox() + Me.TBWH_STATUS2BindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.ComboBox1 = New System.Windows.Forms.ComboBox() + Me.TBWH_STATUS1BindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.btnSaveKonfig = New System.Windows.Forms.Button() + Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() + Me.GEAENDERTWERTextBox = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.btnsavePath = New System.Windows.Forms.Button() + Me.IMPORT_BESTELLUNGENTextBox = New System.Windows.Forms.TextBox() + Me.IMPORT_XMLARCHIVTextBox = New System.Windows.Forms.TextBox() + Me.IMPORT_XMLTextBox = New System.Windows.Forms.TextBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.btnFolderBestellungen = New System.Windows.Forms.Button() + Me.Label7 = New System.Windows.Forms.Label() + Me.btnFolderArchiv = New System.Windows.Forms.Button() + Me.Label6 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Button2 = New System.Windows.Forms.Button() + Me.cmbDatenbank = New System.Windows.Forms.ComboBox() + Me.txtTimeout = New System.Windows.Forms.TextBox() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtActualConnection = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.BtnConnect = New System.Windows.Forms.Button() + Me.txtServer = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtUser = New System.Windows.Forms.TextBox() + Me.txtPasswort = New System.Windows.Forms.TextBox() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.GridControlSupplyZuordnung = New DevExpress.XtraGrid.GridControl() + Me.VWGeraet_Supply_ZuordnungBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewSupplyZuordnung = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGERAET_BEZ1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSUPPLY_BEZ1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPARTNUMBER1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPARTNUMBER_ORDER = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSCHWELLENWERT1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.VWGeraet_Supply_ZuordnungBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton23 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton24 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator19 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox6 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator20 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton25 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton26 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator21 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton28 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton29 = New System.Windows.Forms.ToolStripButton() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.GroupBox9 = New System.Windows.Forms.GroupBox() + Me.txtPartnumerORDER = New System.Windows.Forms.TextBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.txtSchwellenwert = New System.Windows.Forms.TextBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.txtPartnumber = New System.Windows.Forms.TextBox() + Me.Label17 = New System.Windows.Forms.Label() + Me.cmbSupplyDefinition = New System.Windows.Forms.ComboBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.btnaddgeraete_SupplyZO = New System.Windows.Forms.Button() + Me.Label15 = New System.Windows.Forms.Label() + Me.cmbModelle_WH = New System.Windows.Forms.ComboBox() + Me.TBWH_MODELLBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Splitter1 = New System.Windows.Forms.Splitter() + Me.spltC_Vertrag_Produkt = New System.Windows.Forms.SplitContainer() + Me.GridControlVertraege = New DevExpress.XtraGrid.GridControl() + Me.TBVERTRAEGEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewVertraege = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVERTRAGSNR1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colERFASSTWER1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colERFASSTWANN3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.TBVERTRAEGEBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem5 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem5 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem5 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator15 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem5 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator16 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem5 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem5 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator17 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbn_refresh_Vertraege = New System.Windows.Forms.ToolStripButton() + Me.tsbtn_showImport = New System.Windows.Forms.ToolStripButton() + Me.GridControlProduktVertrag = New DevExpress.XtraGrid.GridControl() + Me.TBPRODUKT_VERTRAGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewProduktVertrag = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSERIEN_NR2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPRODUKT_NR = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMODELL_NAME = New DevExpress.XtraGrid.Columns.GridColumn() + Me.TBPRODUKT_VERTRAGBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem6 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem6 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem6 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator18 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem6 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator19 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem6 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem6 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator20 = New System.Windows.Forms.ToolStripSeparator() + Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) + Me.TBGERAETByMarktBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBGERAET_SUPPLY_ZUORDNUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Timer_Uhrzeit = New System.Windows.Forms.Timer(Me.components) + Me.TBKONFIGURATIONTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBKONFIGURATIONTableAdapter() + Me.TableAdapterManager = New MCSUPPLYWATCH.MyDatasetTableAdapters.TableAdapterManager() + Me.TBWH_STATUS1TableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUS1TableAdapter() + Me.TBWH_STATUS2TableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUS2TableAdapter() + Me.TBWH_STATUS3TableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUS3TableAdapter() + Me.TBWH_STATUSFILTERTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUSFILTERTableAdapter() + Me.TBSTATUSTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBSTATUSTableAdapter() + Me.TBSUPPLY_VERFOLGUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBSUPPLY_VERFOLGUNGTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBSUPPLY_VERFOLGUNGTableAdapter() + Me.TBGERAETE_VERFOLGUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBGERAETE_VERFOLGUNGTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBGERAETE_VERFOLGUNGTableAdapter() + Me.VWSUPPLIESTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLIESTableAdapter() + Me.TBWH_MARKTTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_MARKTTableAdapter() + Me.VWSUPPLIES_GERAETTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLIES_AKTUELLTableAdapter() + Me.VWGERAET_ORDERTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.VWGERAET_ORDERTableAdapter() + Me.VWSUPPLIES_TO_ORDERTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLIES_TO_ORDERTableAdapter() + Me.VWRPT_SUPPLIES_TOORDERTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.VWRPT_SUPPLIES_TOORDERTableAdapter() + Me.TBSUPPLIESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBSUPPLIESTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBSUPPLIESTableAdapter() + Me.TBWH_STATUS4TableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUS4TableAdapter() + Me.TBWH_STATUS5TableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUS5TableAdapter() + Me.TBSUPPLY_BESTELLUNGViewTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLY_BESTELLUNG_FRONTENDTableAdapter() + Me.TBGERAETByMarktTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBGERAETByMarktTableAdapter() + Me.VWGERAETE_VERFOLGUNGTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.VWGERAETE_VERFOLGUNGTableAdapter() + Me.VWSUPPLY_VERFOLGUNGTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLY_VERFOLGUNGTableAdapter() + Me.TBVERTRAEGETableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBVERTRAEGETableAdapter() + Me.TBPRODUKT_VERTRAGTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBPRODUKT_VERTRAGTableAdapter() + Me.TBGERAETE_NOTINLISTBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBGERAETE_NOTINLISTTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBGERAETE_NOTINLISTTableAdapter() + Me.TBWH_MODELLTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_MODELLTableAdapter() + Me.TBSUPPLY_DEFINITIONTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBSUPPLY_DEFINITIONTableAdapter() + Me.VWGeraet_Supply_ZuordnungTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.VWGeraet_Supply_ZuordnungTableAdapter() + Me.TBGERAET_SUPPLY_ZUORDNUNGTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBGERAET_SUPPLY_ZUORDNUNGTableAdapter() + Me.DS_Reporting = New MCSUPPLYWATCH.DS_Reporting() + Me.TBVERTRAG_NOTEXISTBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBVERTRAG_NOTEXISTTableAdapter = New MCSUPPLYWATCH.DS_ReportingTableAdapters.TBVERTRAG_NOTEXISTTableAdapter() + Me.TableAdapterManager1 = New MCSUPPLYWATCH.DS_ReportingTableAdapters.TableAdapterManager() + Me.TBMELDEDATUMBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBMELDEDATUMTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBMELDEDATUMTableAdapter() + Me.VWMarkt_VerfolgungTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.VWMarkt_VerfolgungTableAdapter() + Me.TBGERAETTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBGERAETTableAdapter() + Me.TBSUPPLY_BESTELLUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBSUPPLY_BESTELLUNGTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBSUPPLY_BESTELLUNGTableAdapter() + Me.TBMANDANTENTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBMANDANTENTableAdapter() + Me.TBCHANGE_LOG_GERAETTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.TBCHANGE_LOG_GERAETTableAdapter() + Me.ViewSUPPLY_STATUS_VERFOLGUNGTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.ViewSUPPLY_STATUS_VERFOLGUNGTableAdapter() + Me.VWSUPPLIES_BESTELLUNG_GESENDETTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLIES_BESTELLUNG_GESENDETTableAdapter() + Me.VWSUPPLIES_2_ORDERTableAdapter = New MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLIES_2_ORDERTableAdapter() + GEAENDERTWANNLabel = New System.Windows.Forms.Label() + GEAENDERTWERLabel = New System.Windows.Forms.Label() + STATUS_SDLabel = New System.Windows.Forms.Label() + STATUS_BESTLabel = New System.Windows.Forms.Label() + STATUS_OKLabel = New System.Windows.Forms.Label() + Label8 = New System.Windows.Forms.Label() + Label9 = New System.Windows.Forms.Label() + GUIDLabel = New System.Windows.Forms.Label() + NAMELabel = New System.Windows.Forms.Label() + NAME_LANGLabel = New System.Windows.Forms.Label() + KENNZEICHENLabel = New System.Windows.Forms.Label() + ERSTELLLTWERLabel = New System.Windows.Forms.Label() + ERSTELLTWANNLabel = New System.Windows.Forms.Label() + GEAENDERTWANNLabel1 = New System.Windows.Forms.Label() + GEAENDERTWERLabel1 = New System.Windows.Forms.Label() + FILTERLabel = New System.Windows.Forms.Label() + CType(Me.VWRPT_SUPPLIES_TOORDERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWGERAET_ORDERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWSUPPLIES_TO_ORDERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip_Main.SuspendLayout() + Me.TCMain.SuspendLayout() + Me.tpBewegungen.SuspendLayout() + Me.pnlUebersicht.SuspendLayout() + Me.TCUebersicht.SuspendLayout() + Me.tpGeraet_Order.SuspendLayout() + CType(Me.SPCOrder, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SPCOrder.Panel1.SuspendLayout() + Me.SPCOrder.Panel2.SuspendLayout() + Me.SPCOrder.SuspendLayout() + Me.TCGeraeteOrder.SuspendLayout() + Me.tpOrderGeraete.SuspendLayout() + CType(Me.GridControlSupplies2Order, System.ComponentModel.ISupportInitialize).BeginInit() + Me.cmsBestellungen.SuspendLayout() + CType(Me.VWSUPPLIES_2_ORDERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewSupplies2Order, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWGERAET_ORDERBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.VWGERAET_ORDERBindingNavigator.SuspendLayout() + Me.tpGeraeteOrderReport.SuspendLayout() + Me.TabPageBestGesendet.SuspendLayout() + CType(Me.GridControlBestellungen_gesendet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWSUPPLIES_BESTELLUNG_GESENDETBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewBestellungen_Gesendet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator4.SuspendLayout() + Me.tpBestellungen.SuspendLayout() + CType(Me.GridControlBestellungen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBSUPPLY_BESTELLUNGViewBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewBestellUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox6.SuspendLayout() + CType(Me.DGTBWH_Markt_Bestellungen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_MARKTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBSUPPLY_BESTELLUNGViewBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.SuspendLayout() + Me.TabPageBestell_Import.SuspendLayout() + CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWSUPPLY_VERFOLGUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator3.SuspendLayout() + Me.TabPage2.SuspendLayout() + CType(Me.GridControlVWSupplies, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWSUPPLIESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewVWSupplies, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.grbStati.SuspendLayout() + CType(Me.TBWH_STATUSFILTERDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_STATUSFILTERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWSUPPLIESBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.VWSUPPLIESBindingNavigator.SuspendLayout() + Me.tpGeraete.SuspendLayout() + CType(Me.SCGeraete_Uebersicht, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SCGeraete_Uebersicht.Panel1.SuspendLayout() + Me.SCGeraete_Uebersicht.Panel2.SuspendLayout() + Me.SCGeraete_Uebersicht.SuspendLayout() + CType(Me.SplitContainerGeraet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerGeraet.SuspendLayout() + CType(Me.GridControlGeraete, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBGERAETBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewGeraete, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCHANGE_LOG_GERAETDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCHANGE_LOG_GERAETBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.SplitContainerSupplies, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerSupplies.Panel1.SuspendLayout() + Me.SplitContainerSupplies.Panel2.SuspendLayout() + Me.SplitContainerSupplies.SuspendLayout() + CType(Me.VWSUPPLIES_AKTUELLDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWSUPPLIES_GERAETBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ViewSUPPLY_STATUS_VERFOLGUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator2.SuspendLayout() + CType(Me.VWSUPPLIES_GERAETBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.VWSUPPLIES_GERAETBindingNavigator.SuspendLayout() + CType(Me.TBGERAETBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBGERAETBindingNavigator.SuspendLayout() + Me.tpVerfolgung.SuspendLayout() + Me.TabControlNachverfolgung.SuspendLayout() + Me.TabPage6.SuspendLayout() + CType(Me.GridControlATR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewATR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWMarkt_VerfolgungBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.VWMarkt_VerfolgungBindingNavigator.SuspendLayout() + CType(Me.VWMarkt_VerfolgungBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel2.SuspendLayout() + Me.GroupBox7.SuspendLayout() + CType(Me.DGVTBWH_MARKT_VF, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tsbtnSupplyverfolgung.SuspendLayout() + Me.tpEinstellungen.SuspendLayout() + Me.TabControlEinstellungen.SuspendLayout() + Me.TabPage5.SuspendLayout() + Me.GroupBox4.SuspendLayout() + CType(Me.TBSTATUSDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBSTATUSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBSTATUSBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBSTATUSBindingNavigator.SuspendLayout() + Me.GroupBox8.SuspendLayout() + CType(Me.TBSUPPLY_DEFINITIONDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBSUPPLY_DEFINITIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBSUPPLY_DEFINITIONBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBSUPPLY_DEFINITIONBindingNavigator.SuspendLayout() + Me.GroupBox12.SuspendLayout() + CType(Me.TBMANDANTENBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBMANDANTENDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBMANDANTENBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBMANDANTENBindingNavigator.SuspendLayout() + Me.TabPage7.SuspendLayout() + Me.GroupBox3.SuspendLayout() + CType(Me.TBKONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_STATUS5BindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_STATUS4BindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_STATUS3BindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_STATUS2BindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_STATUS1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.TabPage1.SuspendLayout() + CType(Me.GridControlSupplyZuordnung, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWGeraet_Supply_ZuordnungBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewSupplyZuordnung, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWGeraet_Supply_ZuordnungBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.VWGeraet_Supply_ZuordnungBindingNavigator.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.GroupBox9.SuspendLayout() + CType(Me.TBWH_MODELLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spltC_Vertrag_Produkt, System.ComponentModel.ISupportInitialize).BeginInit() + Me.spltC_Vertrag_Produkt.Panel1.SuspendLayout() + Me.spltC_Vertrag_Produkt.Panel2.SuspendLayout() + Me.spltC_Vertrag_Produkt.SuspendLayout() + CType(Me.GridControlVertraege, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBVERTRAEGEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewVertraege, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBVERTRAEGEBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBVERTRAEGEBindingNavigator.SuspendLayout() + CType(Me.GridControlProduktVertrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPRODUKT_VERTRAGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewProduktVertrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPRODUKT_VERTRAGBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBPRODUKT_VERTRAGBindingNavigator.SuspendLayout() + CType(Me.TBGERAETByMarktBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBGERAET_SUPPLY_ZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBSUPPLY_VERFOLGUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBGERAETE_VERFOLGUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBSUPPLIESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBGERAETE_NOTINLISTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_Reporting, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBVERTRAG_NOTEXISTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBMELDEDATUMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBSUPPLY_BESTELLUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'GEAENDERTWANNLabel + ' + GEAENDERTWANNLabel.AutoSize = True + GEAENDERTWANNLabel.Location = New System.Drawing.Point(330, 61) + GEAENDERTWANNLabel.Name = "GEAENDERTWANNLabel" + GEAENDERTWANNLabel.Size = New System.Drawing.Size(90, 13) + GEAENDERTWANNLabel.TabIndex = 32 + GEAENDERTWANNLabel.Text = "Geändert wann:" + ' + 'GEAENDERTWERLabel + ' + GEAENDERTWERLabel.AutoSize = True + GEAENDERTWERLabel.Location = New System.Drawing.Point(169, 61) + GEAENDERTWERLabel.Name = "GEAENDERTWERLabel" + GEAENDERTWERLabel.Size = New System.Drawing.Size(80, 13) + GEAENDERTWERLabel.TabIndex = 30 + GEAENDERTWERLabel.Text = "Geändert wer:" + ' + 'STATUS_SDLabel + ' + STATUS_SDLabel.AutoSize = True + STATUS_SDLabel.Location = New System.Drawing.Point(326, 18) + STATUS_SDLabel.Name = "STATUS_SDLabel" + STATUS_SDLabel.Size = New System.Drawing.Size(110, 13) + STATUS_SDLabel.TabIndex = 26 + STATUS_SDLabel.Text = "Status Silent Device:" + ' + 'STATUS_BESTLabel + ' + STATUS_BESTLabel.AutoSize = True + STATUS_BESTLabel.Location = New System.Drawing.Point(169, 18) + STATUS_BESTLabel.Name = "STATUS_BESTLabel" + STATUS_BESTLabel.Size = New System.Drawing.Size(100, 13) + STATUS_BESTLabel.TabIndex = 24 + STATUS_BESTLabel.Text = "Status Bestellung:" + ' + 'STATUS_OKLabel + ' + STATUS_OKLabel.AutoSize = True + STATUS_OKLabel.Location = New System.Drawing.Point(8, 17) + STATUS_OKLabel.Name = "STATUS_OKLabel" + STATUS_OKLabel.Size = New System.Drawing.Size(60, 13) + STATUS_OKLabel.TabIndex = 22 + STATUS_OKLabel.Text = "Status OK:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.Location = New System.Drawing.Point(489, 18) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(83, 13) + Label8.TabIndex = 45 + Label8.Text = "Status bestellt:" + ' + 'Label9 + ' + Label9.AutoSize = True + Label9.Location = New System.Drawing.Point(8, 61) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(79, 13) + Label9.TabIndex = 47 + Label9.Text = "Status ersetzt:" + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel.Location = New System.Drawing.Point(6, 45) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(21, 13) + GUIDLabel.TabIndex = 1 + GUIDLabel.Text = "ID:" + ' + 'NAMELabel + ' + NAMELabel.AutoSize = True + NAMELabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + NAMELabel.Location = New System.Drawing.Point(69, 45) + NAMELabel.Name = "NAMELabel" + NAMELabel.Size = New System.Drawing.Size(77, 13) + NAMELabel.TabIndex = 3 + NAMELabel.Text = "Bezeichnung:" + ' + 'NAME_LANGLabel + ' + NAME_LANGLabel.AutoSize = True + NAME_LANGLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + NAME_LANGLabel.Location = New System.Drawing.Point(225, 45) + NAME_LANGLabel.Name = "NAME_LANGLabel" + NAME_LANGLabel.Size = New System.Drawing.Size(111, 13) + NAME_LANGLabel.TabIndex = 5 + NAME_LANGLabel.Text = "Lange Bezeichnung:" + ' + 'KENNZEICHENLabel + ' + KENNZEICHENLabel.AutoSize = True + KENNZEICHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + KENNZEICHENLabel.Location = New System.Drawing.Point(490, 45) + KENNZEICHENLabel.Name = "KENNZEICHENLabel" + KENNZEICHENLabel.Size = New System.Drawing.Size(83, 13) + KENNZEICHENLabel.TabIndex = 7 + KENNZEICHENLabel.Text = "KZ (File String):" + ' + 'ERSTELLLTWERLabel + ' + ERSTELLLTWERLabel.AutoSize = True + ERSTELLLTWERLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ERSTELLLTWERLabel.Location = New System.Drawing.Point(675, 45) + ERSTELLLTWERLabel.Name = "ERSTELLLTWERLabel" + ERSTELLLTWERLabel.Size = New System.Drawing.Size(67, 13) + ERSTELLLTWERLabel.TabIndex = 13 + ERSTELLLTWERLabel.Text = "Erstellt wer:" + ' + 'ERSTELLTWANNLabel + ' + ERSTELLTWANNLabel.AutoSize = True + ERSTELLTWANNLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ERSTELLTWANNLabel.Location = New System.Drawing.Point(789, 45) + ERSTELLTWANNLabel.Name = "ERSTELLTWANNLabel" + ERSTELLTWANNLabel.Size = New System.Drawing.Size(77, 13) + ERSTELLTWANNLabel.TabIndex = 15 + ERSTELLTWANNLabel.Text = "Erstellt wann:" + ' + 'GEAENDERTWANNLabel1 + ' + GEAENDERTWANNLabel1.AutoSize = True + GEAENDERTWANNLabel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GEAENDERTWANNLabel1.Location = New System.Drawing.Point(903, 43) + GEAENDERTWANNLabel1.Name = "GEAENDERTWANNLabel1" + GEAENDERTWANNLabel1.Size = New System.Drawing.Size(90, 13) + GEAENDERTWANNLabel1.TabIndex = 17 + GEAENDERTWANNLabel1.Text = "Geändert wann:" + ' + 'GEAENDERTWERLabel1 + ' + GEAENDERTWERLabel1.AutoSize = True + GEAENDERTWERLabel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GEAENDERTWERLabel1.Location = New System.Drawing.Point(1018, 43) + GEAENDERTWERLabel1.Name = "GEAENDERTWERLabel1" + GEAENDERTWERLabel1.Size = New System.Drawing.Size(80, 13) + GEAENDERTWERLabel1.TabIndex = 19 + GEAENDERTWERLabel1.Text = "Geändert wer:" + ' + 'FILTERLabel + ' + FILTERLabel.AutoSize = True + FILTERLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + FILTERLabel.Location = New System.Drawing.Point(69, 90) + FILTERLabel.Name = "FILTERLabel" + FILTERLabel.Size = New System.Drawing.Size(308, 13) + FILTERLabel.TabIndex = 20 + FILTERLabel.Text = "Definieren Sie hier bitte nach welcher Spalte gefiltert wird:" + ' + 'VWRPT_SUPPLIES_TOORDERBindingSource + ' + Me.VWRPT_SUPPLIES_TOORDERBindingSource.DataMember = "VWRPT_SUPPLIES_TOORDER" + Me.VWRPT_SUPPLIES_TOORDERBindingSource.DataSource = Me.MyDataset + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'VWGERAET_ORDERBindingSource + ' + Me.VWGERAET_ORDERBindingSource.DataMember = "VWGERAET_ORDER" + Me.VWGERAET_ORDERBindingSource.DataSource = Me.MyDataset + ' + 'VWSUPPLIES_TO_ORDERBindingSource + ' + Me.VWSUPPLIES_TO_ORDERBindingSource.DataMember = "VWGERAET_ORDER_VWSUPPLIES_TO_ORDER" + Me.VWSUPPLIES_TO_ORDERBindingSource.DataSource = Me.VWGERAET_ORDERBindingSource + ' + 'StatusStrip_Main + ' + Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StatusUser, Me.Status_Machine, Me.Status_Clock, Me.tslbl_Hinweis}) + Me.StatusStrip_Main.Location = New System.Drawing.Point(0, 549) + Me.StatusStrip_Main.Name = "StatusStrip_Main" + Me.StatusStrip_Main.Size = New System.Drawing.Size(1311, 25) + Me.StatusStrip_Main.SizingGrip = False + Me.StatusStrip_Main.TabIndex = 22 + ' + 'StatusUser + ' + Me.StatusUser.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.StatusUser.Image = CType(resources.GetObject("StatusUser.Image"), System.Drawing.Image) + Me.StatusUser.Name = "StatusUser" + Me.StatusUser.Size = New System.Drawing.Size(140, 20) + Me.StatusUser.Text = "ToolStripStatusLabel1" + Me.StatusUser.ToolTipText = "Aktueller Benutzer" + ' + 'Status_Machine + ' + Me.Status_Machine.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.Status_Machine.Image = CType(resources.GetObject("Status_Machine.Image"), System.Drawing.Image) + Me.Status_Machine.Name = "Status_Machine" + Me.Status_Machine.Size = New System.Drawing.Size(140, 20) + Me.Status_Machine.Text = "ToolStripStatusLabel1" + Me.Status_Machine.ToolTipText = "Client-Name und -IP-Adresse" + ' + 'Status_Clock + ' + Me.Status_Clock.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.Status_Clock.Image = CType(resources.GetObject("Status_Clock.Image"), System.Drawing.Image) + Me.Status_Clock.Name = "Status_Clock" + Me.Status_Clock.Size = New System.Drawing.Size(140, 20) + Me.Status_Clock.Text = "ToolStripStatusLabel1" + Me.Status_Clock.ToolTipText = "Datum/Uhrzeit" + ' + 'tslbl_Hinweis + ' + Me.tslbl_Hinweis.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.asterisk_orange + Me.tslbl_Hinweis.Name = "tslbl_Hinweis" + Me.tslbl_Hinweis.Size = New System.Drawing.Size(60, 20) + Me.tslbl_Hinweis.Text = "Marker" + Me.tslbl_Hinweis.Visible = False + ' + 'TCMain + ' + Me.TCMain.Controls.Add(Me.tpBewegungen) + Me.TCMain.Controls.Add(Me.tpEinstellungen) + Me.TCMain.Controls.Add(Me.TabPage1) + Me.TCMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.TCMain.ImageList = Me.ImageList1 + Me.TCMain.Location = New System.Drawing.Point(0, 0) + Me.TCMain.Name = "TCMain" + Me.TCMain.SelectedIndex = 0 + Me.TCMain.Size = New System.Drawing.Size(1311, 549) + Me.TCMain.TabIndex = 23 + ' + 'tpBewegungen + ' + Me.tpBewegungen.Controls.Add(Me.pnlUebersicht) + Me.tpBewegungen.Controls.Add(Me.tsbtnSupplyverfolgung) + Me.tpBewegungen.ImageIndex = 2 + Me.tpBewegungen.Location = New System.Drawing.Point(4, 23) + Me.tpBewegungen.Name = "tpBewegungen" + Me.tpBewegungen.Padding = New System.Windows.Forms.Padding(3) + Me.tpBewegungen.Size = New System.Drawing.Size(1303, 522) + Me.tpBewegungen.TabIndex = 0 + Me.tpBewegungen.Text = "Übersichten" + Me.tpBewegungen.UseVisualStyleBackColor = True + ' + 'pnlUebersicht + ' + Me.pnlUebersicht.Controls.Add(Me.TCUebersicht) + Me.pnlUebersicht.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlUebersicht.Location = New System.Drawing.Point(3, 28) + Me.pnlUebersicht.Name = "pnlUebersicht" + Me.pnlUebersicht.Size = New System.Drawing.Size(1297, 491) + Me.pnlUebersicht.TabIndex = 2 + ' + 'TCUebersicht + ' + Me.TCUebersicht.Controls.Add(Me.tpGeraet_Order) + Me.TCUebersicht.Controls.Add(Me.TabPage2) + Me.TCUebersicht.Controls.Add(Me.tpGeraete) + Me.TCUebersicht.Controls.Add(Me.tpVerfolgung) + Me.TCUebersicht.Dock = System.Windows.Forms.DockStyle.Fill + Me.TCUebersicht.Location = New System.Drawing.Point(0, 0) + Me.TCUebersicht.Name = "TCUebersicht" + Me.TCUebersicht.SelectedIndex = 0 + Me.TCUebersicht.Size = New System.Drawing.Size(1297, 491) + Me.TCUebersicht.TabIndex = 0 + ' + 'tpGeraet_Order + ' + Me.tpGeraet_Order.Controls.Add(Me.SPCOrder) + Me.tpGeraet_Order.Location = New System.Drawing.Point(4, 22) + Me.tpGeraet_Order.Name = "tpGeraet_Order" + Me.tpGeraet_Order.Padding = New System.Windows.Forms.Padding(3) + Me.tpGeraet_Order.Size = New System.Drawing.Size(1289, 465) + Me.tpGeraet_Order.TabIndex = 2 + Me.tpGeraet_Order.Text = "Bestellungen zu Geräten" + Me.tpGeraet_Order.UseVisualStyleBackColor = True + ' + 'SPCOrder + ' + Me.SPCOrder.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.MCSUPPLYWATCH.My.MySettings.Default, "SPDOrderGeraet", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SPCOrder.Dock = System.Windows.Forms.DockStyle.Fill + Me.SPCOrder.Location = New System.Drawing.Point(3, 3) + Me.SPCOrder.Name = "SPCOrder" + Me.SPCOrder.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SPCOrder.Panel1 + ' + Me.SPCOrder.Panel1.Controls.Add(Me.TCGeraeteOrder) + ' + 'SPCOrder.Panel2 + ' + Me.SPCOrder.Panel2.Controls.Add(Me.DataGridView3) + Me.SPCOrder.Panel2.Controls.Add(Me.BindingNavigator3) + Me.SPCOrder.Size = New System.Drawing.Size(1283, 459) + Me.SPCOrder.SplitterDistance = Global.MCSUPPLYWATCH.My.MySettings.Default.SPDOrderGeraet + Me.SPCOrder.TabIndex = 2 + ' + 'TCGeraeteOrder + ' + Me.TCGeraeteOrder.Controls.Add(Me.tpOrderGeraete) + Me.TCGeraeteOrder.Controls.Add(Me.tpGeraeteOrderReport) + Me.TCGeraeteOrder.Controls.Add(Me.TabPageBestGesendet) + Me.TCGeraeteOrder.Controls.Add(Me.tpBestellungen) + Me.TCGeraeteOrder.Controls.Add(Me.TabPageBestell_Import) + Me.TCGeraeteOrder.Dock = System.Windows.Forms.DockStyle.Fill + Me.TCGeraeteOrder.Location = New System.Drawing.Point(0, 0) + Me.TCGeraeteOrder.Name = "TCGeraeteOrder" + Me.TCGeraeteOrder.SelectedIndex = 0 + Me.TCGeraeteOrder.Size = New System.Drawing.Size(1283, 332) + Me.TCGeraeteOrder.TabIndex = 3 + ' + 'tpOrderGeraete + ' + Me.tpOrderGeraete.AutoScroll = True + Me.tpOrderGeraete.Controls.Add(Me.GridControlSupplies2Order) + Me.tpOrderGeraete.Controls.Add(Me.VWGERAET_ORDERBindingNavigator) + Me.tpOrderGeraete.Location = New System.Drawing.Point(4, 22) + Me.tpOrderGeraete.Name = "tpOrderGeraete" + Me.tpOrderGeraete.Padding = New System.Windows.Forms.Padding(3) + Me.tpOrderGeraete.Size = New System.Drawing.Size(1275, 306) + Me.tpOrderGeraete.TabIndex = 0 + Me.tpOrderGeraete.Text = "Übersicht" + Me.tpOrderGeraete.UseVisualStyleBackColor = True + ' + 'GridControlSupplies2Order + ' + Me.GridControlSupplies2Order.ContextMenuStrip = Me.cmsBestellungen + Me.GridControlSupplies2Order.DataSource = Me.VWSUPPLIES_2_ORDERBindingSource + Me.GridControlSupplies2Order.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlSupplies2Order.Location = New System.Drawing.Point(3, 28) + Me.GridControlSupplies2Order.MainView = Me.GridViewSupplies2Order + Me.GridControlSupplies2Order.Name = "GridControlSupplies2Order" + Me.GridControlSupplies2Order.Size = New System.Drawing.Size(1269, 275) + Me.GridControlSupplies2Order.TabIndex = 4 + Me.GridControlSupplies2Order.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSupplies2Order}) + ' + 'cmsBestellungen + ' + Me.cmsBestellungen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlleMarkierenToolStripMenuItem, Me.MarkierungAufhebenToolStripMenuItem}) + Me.cmsBestellungen.Name = "ContextMenuStrip1" + Me.cmsBestellungen.Size = New System.Drawing.Size(189, 48) + ' + 'AlleMarkierenToolStripMenuItem + ' + Me.AlleMarkierenToolStripMenuItem.Name = "AlleMarkierenToolStripMenuItem" + Me.AlleMarkierenToolStripMenuItem.Size = New System.Drawing.Size(188, 22) + Me.AlleMarkierenToolStripMenuItem.Text = "Alle markieren" + Me.AlleMarkierenToolStripMenuItem.ToolTipText = "Erst Filtern dann markieren!!" + ' + 'MarkierungAufhebenToolStripMenuItem + ' + Me.MarkierungAufhebenToolStripMenuItem.Name = "MarkierungAufhebenToolStripMenuItem" + Me.MarkierungAufhebenToolStripMenuItem.Size = New System.Drawing.Size(188, 22) + Me.MarkierungAufhebenToolStripMenuItem.Text = "Markierung aufheben" + ' + 'VWSUPPLIES_2_ORDERBindingSource + ' + Me.VWSUPPLIES_2_ORDERBindingSource.DataMember = "VWSUPPLIES_2_ORDER" + Me.VWSUPPLIES_2_ORDERBindingSource.DataSource = Me.MyDataset + ' + 'GridViewSupplies2Order + ' + Me.GridViewSupplies2Order.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridViewSupplies2Order.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewSupplies2Order.Appearance.OddRow.BackColor = System.Drawing.Color.White + Me.GridViewSupplies2Order.Appearance.OddRow.Options.UseBackColor = True + Me.GridViewSupplies2Order.Appearance.SelectedRow.BackColor = System.Drawing.Color.Magenta + Me.GridViewSupplies2Order.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewSupplies2Order.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUI_SELECTED, Me.colSUPPLY_ID2, Me.colGERAET_ID1, Me.colDEVICE1, Me.colDEVICE_SERIAL, Me.colMARKT5, Me.colPAGE_COUNT2, Me.colPPM2, Me.colSUPPLY_BEZEICHNUNG2, Me.colMENGE2, Me.colLEVEL1, Me.colSCHWELLENWERT2, Me.colPARTNUMBER2, Me.colSERIENNR3, Me.colSTATUS1, Me.colSTATUS_WANN1, Me.colSTATUS_WER1, Me.colMANUELL2, Me.colFW, Me.colGUID}) + Me.GridViewSupplies2Order.GridControl = Me.GridControlSupplies2Order + Me.GridViewSupplies2Order.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always + Me.GridViewSupplies2Order.Name = "GridViewSupplies2Order" + Me.GridViewSupplies2Order.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewSupplies2Order.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewSupplies2Order.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewSupplies2Order.OptionsSelection.MultiSelect = True + Me.GridViewSupplies2Order.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewSupplies2Order.OptionsView.ColumnAutoWidth = False + Me.GridViewSupplies2Order.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewSupplies2Order.OptionsView.EnableAppearanceOddRow = True + Me.GridViewSupplies2Order.OptionsView.ShowAutoFilterRow = True + ' + 'colGUI_SELECTED + ' + Me.colGUI_SELECTED.AppearanceCell.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.colGUI_SELECTED.AppearanceCell.Options.UseBackColor = True + Me.colGUI_SELECTED.Caption = "Auswahl" + Me.colGUI_SELECTED.FieldName = "GUI_SELECTED" + Me.colGUI_SELECTED.Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left + Me.colGUI_SELECTED.Name = "colGUI_SELECTED" + Me.colGUI_SELECTED.Visible = True + Me.colGUI_SELECTED.VisibleIndex = 0 + ' + 'colSUPPLY_ID2 + ' + Me.colSUPPLY_ID2.Caption = "Supply-ID" + Me.colSUPPLY_ID2.FieldName = "SUPPLY_ID" + Me.colSUPPLY_ID2.Name = "colSUPPLY_ID2" + Me.colSUPPLY_ID2.Visible = True + Me.colSUPPLY_ID2.VisibleIndex = 1 + ' + 'colGERAET_ID1 + ' + Me.colGERAET_ID1.Caption = "Gerät-ID" + Me.colGERAET_ID1.FieldName = "GERAET_ID" + Me.colGERAET_ID1.Name = "colGERAET_ID1" + Me.colGERAET_ID1.Visible = True + Me.colGERAET_ID1.VisibleIndex = 2 + ' + 'colDEVICE1 + ' + Me.colDEVICE1.Caption = "Device" + Me.colDEVICE1.FieldName = "DEVICE" + Me.colDEVICE1.Name = "colDEVICE1" + Me.colDEVICE1.Visible = True + Me.colDEVICE1.VisibleIndex = 3 + ' + 'colDEVICE_SERIAL + ' + Me.colDEVICE_SERIAL.Caption = "Serial" + Me.colDEVICE_SERIAL.FieldName = "DEVICE_SERIAL" + Me.colDEVICE_SERIAL.Name = "colDEVICE_SERIAL" + Me.colDEVICE_SERIAL.Visible = True + Me.colDEVICE_SERIAL.VisibleIndex = 4 + ' + 'colMARKT5 + ' + Me.colMARKT5.Caption = "Markt" + Me.colMARKT5.FieldName = "MARKT" + Me.colMARKT5.Name = "colMARKT5" + Me.colMARKT5.Visible = True + Me.colMARKT5.VisibleIndex = 5 + ' + 'colPAGE_COUNT2 + ' + Me.colPAGE_COUNT2.Caption = "PageCount" + Me.colPAGE_COUNT2.FieldName = "PAGE_COUNT" + Me.colPAGE_COUNT2.Name = "colPAGE_COUNT2" + Me.colPAGE_COUNT2.Visible = True + Me.colPAGE_COUNT2.VisibleIndex = 6 + ' + 'colPPM2 + ' + Me.colPPM2.Caption = "PPM" + Me.colPPM2.FieldName = "PPM" + Me.colPPM2.Name = "colPPM2" + Me.colPPM2.Visible = True + Me.colPPM2.VisibleIndex = 7 + ' + 'colSUPPLY_BEZEICHNUNG2 + ' + Me.colSUPPLY_BEZEICHNUNG2.Caption = "Supply" + Me.colSUPPLY_BEZEICHNUNG2.FieldName = "SUPPLY_BEZEICHNUNG" + Me.colSUPPLY_BEZEICHNUNG2.Name = "colSUPPLY_BEZEICHNUNG2" + Me.colSUPPLY_BEZEICHNUNG2.Visible = True + Me.colSUPPLY_BEZEICHNUNG2.VisibleIndex = 8 + ' + 'colMENGE2 + ' + Me.colMENGE2.Caption = "Menge" + Me.colMENGE2.FieldName = "MENGE" + Me.colMENGE2.Name = "colMENGE2" + Me.colMENGE2.Visible = True + Me.colMENGE2.VisibleIndex = 19 + ' + 'colLEVEL1 + ' + Me.colLEVEL1.Caption = "Level" + Me.colLEVEL1.FieldName = "LEVEL" + Me.colLEVEL1.Name = "colLEVEL1" + Me.colLEVEL1.Visible = True + Me.colLEVEL1.VisibleIndex = 9 + ' + 'colSCHWELLENWERT2 + ' + Me.colSCHWELLENWERT2.Caption = "Schwellenwert" + Me.colSCHWELLENWERT2.FieldName = "SCHWELLENWERT" + Me.colSCHWELLENWERT2.Name = "colSCHWELLENWERT2" + Me.colSCHWELLENWERT2.Visible = True + Me.colSCHWELLENWERT2.VisibleIndex = 10 + ' + 'colPARTNUMBER2 + ' + Me.colPARTNUMBER2.Caption = "Partnumber" + Me.colPARTNUMBER2.FieldName = "PARTNUMBER" + Me.colPARTNUMBER2.Name = "colPARTNUMBER2" + Me.colPARTNUMBER2.Visible = True + Me.colPARTNUMBER2.VisibleIndex = 11 + ' + 'colSERIENNR3 + ' + Me.colSERIENNR3.Caption = "SerienNr" + Me.colSERIENNR3.FieldName = "SERIENNR" + Me.colSERIENNR3.Name = "colSERIENNR3" + Me.colSERIENNR3.Visible = True + Me.colSERIENNR3.VisibleIndex = 12 + ' + 'colSTATUS1 + ' + Me.colSTATUS1.Caption = "Status" + Me.colSTATUS1.FieldName = "STATUS" + Me.colSTATUS1.Name = "colSTATUS1" + Me.colSTATUS1.Visible = True + Me.colSTATUS1.VisibleIndex = 13 + ' + 'colSTATUS_WANN1 + ' + Me.colSTATUS_WANN1.Caption = "Status wann" + Me.colSTATUS_WANN1.FieldName = "STATUS_WANN" + Me.colSTATUS_WANN1.Name = "colSTATUS_WANN1" + Me.colSTATUS_WANN1.Visible = True + Me.colSTATUS_WANN1.VisibleIndex = 14 + ' + 'colSTATUS_WER1 + ' + Me.colSTATUS_WER1.Caption = "Status wer" + Me.colSTATUS_WER1.FieldName = "STATUS_WER" + Me.colSTATUS_WER1.Name = "colSTATUS_WER1" + Me.colSTATUS_WER1.Visible = True + Me.colSTATUS_WER1.VisibleIndex = 15 + ' + 'colMANUELL2 + ' + Me.colMANUELL2.Caption = "Manuell" + Me.colMANUELL2.FieldName = "MANUELL" + Me.colMANUELL2.Name = "colMANUELL2" + Me.colMANUELL2.Visible = True + Me.colMANUELL2.VisibleIndex = 16 + ' + 'colFW + ' + Me.colFW.Caption = "FW" + Me.colFW.FieldName = "FW" + Me.colFW.Name = "colFW" + Me.colFW.Visible = True + Me.colFW.VisibleIndex = 17 + ' + 'colGUID + ' + Me.colGUID.FieldName = "GUID" + Me.colGUID.Name = "colGUID" + Me.colGUID.Visible = True + Me.colGUID.VisibleIndex = 18 + ' + 'VWGERAET_ORDERBindingNavigator + ' + Me.VWGERAET_ORDERBindingNavigator.AddNewItem = Nothing + Me.VWGERAET_ORDERBindingNavigator.BindingSource = Me.VWSUPPLIES_2_ORDERBindingSource + Me.VWGERAET_ORDERBindingNavigator.CountItem = Me.ToolStripLabel1 + Me.VWGERAET_ORDERBindingNavigator.CountItemFormat = "von {0} Supplybestellungen" + Me.VWGERAET_ORDERBindingNavigator.DeleteItem = Nothing + Me.VWGERAET_ORDERBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbImport, Me.ToolStripSeparator7, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton4, Me.ToolStripButton5, Me.ToolStripSeparator3, Me.tsbGeraeteOrderRefresh, Me.tsbSetBest_gesendet, Me.btnsetBestellt, Me.tsborders, Me.ToolStripDropDownButton2, Me.ToolStripButton38}) + Me.VWGERAET_ORDERBindingNavigator.Location = New System.Drawing.Point(3, 3) + Me.VWGERAET_ORDERBindingNavigator.MoveFirstItem = Me.ToolStripButton2 + Me.VWGERAET_ORDERBindingNavigator.MoveLastItem = Me.ToolStripButton5 + Me.VWGERAET_ORDERBindingNavigator.MoveNextItem = Me.ToolStripButton4 + Me.VWGERAET_ORDERBindingNavigator.MovePreviousItem = Me.ToolStripButton3 + Me.VWGERAET_ORDERBindingNavigator.Name = "VWGERAET_ORDERBindingNavigator" + Me.VWGERAET_ORDERBindingNavigator.PositionItem = Me.ToolStripTextBox1 + Me.VWGERAET_ORDERBindingNavigator.Size = New System.Drawing.Size(1269, 25) + Me.VWGERAET_ORDERBindingNavigator.TabIndex = 1 + Me.VWGERAET_ORDERBindingNavigator.Text = "BindingNavigator1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(151, 22) + Me.ToolStripLabel1.Text = "von {0} Supplybestellungen" + Me.ToolStripLabel1.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'tsbImport + ' + Me.tsbImport.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.My_Downloads_XP + Me.tsbImport.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.tsbImport.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbImport.Name = "tsbImport" + Me.tsbImport.Size = New System.Drawing.Size(129, 22) + Me.tsbImport.Text = "Dateien verarbeiten" + Me.tsbImport.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'ToolStripSeparator7 + ' + Me.ToolStripSeparator7.Name = "ToolStripSeparator7" + Me.ToolStripSeparator7.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.RightToLeftAutoMirrorImage = True + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton2.Text = "Erste verschieben" + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.RightToLeftAutoMirrorImage = True + Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton3.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox1 + ' + Me.ToolStripTextBox1.AccessibleName = "Position" + Me.ToolStripTextBox1.AutoSize = False + Me.ToolStripTextBox1.Name = "ToolStripTextBox1" + Me.ToolStripTextBox1.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox1.Text = "0" + Me.ToolStripTextBox1.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image) + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.RightToLeftAutoMirrorImage = True + Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton4.Text = "Nächste verschieben" + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image) + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.RightToLeftAutoMirrorImage = True + Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton5.Text = "Letzte verschieben" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'tsbGeraeteOrderRefresh + ' + Me.tsbGeraeteOrderRefresh.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbGeraeteOrderRefresh.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.aktualisieren_1 + Me.tsbGeraeteOrderRefresh.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbGeraeteOrderRefresh.Name = "tsbGeraeteOrderRefresh" + Me.tsbGeraeteOrderRefresh.Size = New System.Drawing.Size(23, 22) + Me.tsbGeraeteOrderRefresh.Text = "Geräte abrufen" + ' + 'tsbSetBest_gesendet + ' + Me.tsbSetBest_gesendet.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.CheckIn_13188 + Me.tsbSetBest_gesendet.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.tsbSetBest_gesendet.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbSetBest_gesendet.Name = "tsbSetBest_gesendet" + Me.tsbSetBest_gesendet.Size = New System.Drawing.Size(238, 22) + Me.tsbSetBest_gesendet.Text = "'Bestellung gesendet' für alle markierten" + Me.tsbSetBest_gesendet.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'btnsetBestellt + ' + Me.btnsetBestellt.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.CheckOutforEdit_13187 + Me.btnsetBestellt.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnsetBestellt.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnsetBestellt.Name = "btnsetBestellt" + Me.btnsetBestellt.Size = New System.Drawing.Size(170, 22) + Me.btnsetBestellt.Text = "'Bestellt' für alle markierten" + Me.btnsetBestellt.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'tsborders + ' + Me.tsborders.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.ico1411 + Me.tsborders.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.tsborders.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsborders.Name = "tsborders" + Me.tsborders.Size = New System.Drawing.Size(134, 22) + Me.tsborders.Text = "Manuelle Bestellung" + ' + 'ToolStripDropDownButton2 + ' + Me.ToolStripDropDownButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GerätebestellungLöschenToolStripMenuItem, Me.SupplybestellungLöschenToolStripMenuItem}) + Me.ToolStripDropDownButton2.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.delete + Me.ToolStripDropDownButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripDropDownButton2.Name = "ToolStripDropDownButton2" + Me.ToolStripDropDownButton2.Size = New System.Drawing.Size(29, 22) + Me.ToolStripDropDownButton2.Text = "ToolStripDropDownButton2" + ' + 'GerätebestellungLöschenToolStripMenuItem + ' + Me.GerätebestellungLöschenToolStripMenuItem.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.Delete1 + Me.GerätebestellungLöschenToolStripMenuItem.Name = "GerätebestellungLöschenToolStripMenuItem" + Me.GerätebestellungLöschenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.GerätebestellungLöschenToolStripMenuItem.Text = "Gerätebestellung löschen" + ' + 'SupplybestellungLöschenToolStripMenuItem + ' + Me.SupplybestellungLöschenToolStripMenuItem.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.Delete1 + Me.SupplybestellungLöschenToolStripMenuItem.Name = "SupplybestellungLöschenToolStripMenuItem" + Me.SupplybestellungLöschenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) + Me.SupplybestellungLöschenToolStripMenuItem.Text = "Supplybestellung löschen" + ' + 'ToolStripButton38 + ' + Me.ToolStripButton38.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton38.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.bug + Me.ToolStripButton38.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton38.Name = "ToolStripButton38" + Me.ToolStripButton38.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton38.Text = "Supplyverfolgung" + ' + 'tpGeraeteOrderReport + ' + Me.tpGeraeteOrderReport.Controls.Add(Me.rptViewerBestellungen) + Me.tpGeraeteOrderReport.Location = New System.Drawing.Point(4, 22) + Me.tpGeraeteOrderReport.Name = "tpGeraeteOrderReport" + Me.tpGeraeteOrderReport.Padding = New System.Windows.Forms.Padding(3) + Me.tpGeraeteOrderReport.Size = New System.Drawing.Size(1275, 306) + Me.tpGeraeteOrderReport.TabIndex = 1 + Me.tpGeraeteOrderReport.Text = "Bestell-Bericht" + Me.tpGeraeteOrderReport.UseVisualStyleBackColor = True + ' + 'rptViewerBestellungen + ' + Me.rptViewerBestellungen.Dock = System.Windows.Forms.DockStyle.Fill + ReportDataSource1.Name = "DSBESTELLUNGEN" + ReportDataSource1.Value = Me.VWRPT_SUPPLIES_TOORDERBindingSource + Me.rptViewerBestellungen.LocalReport.DataSources.Add(ReportDataSource1) + Me.rptViewerBestellungen.LocalReport.ReportEmbeddedResource = "MCSUPPLYWATCH.RptOrder_Supplies.rdlc" + Me.rptViewerBestellungen.Location = New System.Drawing.Point(3, 3) + Me.rptViewerBestellungen.Name = "rptViewerBestellungen" + Me.rptViewerBestellungen.Size = New System.Drawing.Size(1269, 300) + Me.rptViewerBestellungen.TabIndex = 0 + ' + 'TabPageBestGesendet + ' + Me.TabPageBestGesendet.Controls.Add(Me.GridControlBestellungen_gesendet) + Me.TabPageBestGesendet.Controls.Add(Me.BindingNavigator4) + Me.TabPageBestGesendet.Location = New System.Drawing.Point(4, 22) + Me.TabPageBestGesendet.Name = "TabPageBestGesendet" + Me.TabPageBestGesendet.Padding = New System.Windows.Forms.Padding(3) + Me.TabPageBestGesendet.Size = New System.Drawing.Size(1275, 306) + Me.TabPageBestGesendet.TabIndex = 4 + Me.TabPageBestGesendet.Text = "Bestellungen gesendet" + Me.TabPageBestGesendet.UseVisualStyleBackColor = True + ' + 'GridControlBestellungen_gesendet + ' + Me.GridControlBestellungen_gesendet.DataSource = Me.VWSUPPLIES_BESTELLUNG_GESENDETBindingSource + Me.GridControlBestellungen_gesendet.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlBestellungen_gesendet.Location = New System.Drawing.Point(3, 28) + Me.GridControlBestellungen_gesendet.MainView = Me.GridViewBestellungen_Gesendet + Me.GridControlBestellungen_gesendet.Name = "GridControlBestellungen_gesendet" + Me.GridControlBestellungen_gesendet.Size = New System.Drawing.Size(1269, 275) + Me.GridControlBestellungen_gesendet.TabIndex = 2 + Me.GridControlBestellungen_gesendet.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewBestellungen_Gesendet}) + ' + 'VWSUPPLIES_BESTELLUNG_GESENDETBindingSource + ' + Me.VWSUPPLIES_BESTELLUNG_GESENDETBindingSource.DataMember = "VWSUPPLIES_BESTELLUNG_GESENDET" + Me.VWSUPPLIES_BESTELLUNG_GESENDETBindingSource.DataSource = Me.MyDataset + ' + 'GridViewBestellungen_Gesendet + ' + Me.GridViewBestellungen_Gesendet.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridViewBestellungen_Gesendet.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewBestellungen_Gesendet.Appearance.OddRow.BackColor = System.Drawing.Color.White + Me.GridViewBestellungen_Gesendet.Appearance.OddRow.Options.UseBackColor = True + Me.GridViewBestellungen_Gesendet.Appearance.SelectedRow.BackColor = System.Drawing.Color.Magenta + Me.GridViewBestellungen_Gesendet.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewBestellungen_Gesendet.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBESTELL_ID, Me.colSUPPLY_ID, Me.colBESTELLT_WANN, Me.colBESTELLT_WER, Me.colGERAET, Me.colMANUELL, Me.colMARKT, Me.colMENGE, Me.colSERIEN_NR, Me.colSUPPLY_BEZEICHNUNG}) + Me.GridViewBestellungen_Gesendet.GridControl = Me.GridControlBestellungen_gesendet + Me.GridViewBestellungen_Gesendet.Name = "GridViewBestellungen_Gesendet" + Me.GridViewBestellungen_Gesendet.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewBestellungen_Gesendet.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewBestellungen_Gesendet.OptionsBehavior.Editable = False + Me.GridViewBestellungen_Gesendet.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewBestellungen_Gesendet.OptionsSelection.MultiSelect = True + Me.GridViewBestellungen_Gesendet.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewBestellungen_Gesendet.OptionsView.ColumnAutoWidth = False + Me.GridViewBestellungen_Gesendet.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewBestellungen_Gesendet.OptionsView.EnableAppearanceOddRow = True + Me.GridViewBestellungen_Gesendet.OptionsView.ShowAutoFilterRow = True + ' + 'colBESTELL_ID + ' + Me.colBESTELL_ID.Caption = "Bestell-ID" + Me.colBESTELL_ID.FieldName = "BESTELL_ID" + Me.colBESTELL_ID.Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left + Me.colBESTELL_ID.Name = "colBESTELL_ID" + Me.colBESTELL_ID.OptionsColumn.AllowEdit = False + Me.colBESTELL_ID.Visible = True + Me.colBESTELL_ID.VisibleIndex = 0 + ' + 'colSUPPLY_ID + ' + Me.colSUPPLY_ID.Caption = "Supply-ID" + Me.colSUPPLY_ID.FieldName = "SUPPLY_ID" + Me.colSUPPLY_ID.Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left + Me.colSUPPLY_ID.Name = "colSUPPLY_ID" + Me.colSUPPLY_ID.Visible = True + Me.colSUPPLY_ID.VisibleIndex = 1 + ' + 'colBESTELLT_WANN + ' + Me.colBESTELLT_WANN.Caption = "Bestellt wann" + Me.colBESTELLT_WANN.FieldName = "BESTELLT_WANN" + Me.colBESTELLT_WANN.Name = "colBESTELLT_WANN" + Me.colBESTELLT_WANN.OptionsColumn.AllowEdit = False + Me.colBESTELLT_WANN.Visible = True + Me.colBESTELLT_WANN.VisibleIndex = 2 + ' + 'colBESTELLT_WER + ' + Me.colBESTELLT_WER.Caption = "Bestellt wer" + Me.colBESTELLT_WER.FieldName = "BESTELLT_WER" + Me.colBESTELLT_WER.Name = "colBESTELLT_WER" + Me.colBESTELLT_WER.OptionsColumn.AllowEdit = False + Me.colBESTELLT_WER.Visible = True + Me.colBESTELLT_WER.VisibleIndex = 3 + ' + 'colGERAET + ' + Me.colGERAET.Caption = "Device" + Me.colGERAET.FieldName = "GERAET" + Me.colGERAET.Name = "colGERAET" + Me.colGERAET.OptionsColumn.AllowEdit = False + Me.colGERAET.Visible = True + Me.colGERAET.VisibleIndex = 4 + ' + 'colMANUELL + ' + Me.colMANUELL.Caption = "Manuell" + Me.colMANUELL.FieldName = "MANUELL" + Me.colMANUELL.Name = "colMANUELL" + Me.colMANUELL.OptionsColumn.AllowEdit = False + Me.colMANUELL.Visible = True + Me.colMANUELL.VisibleIndex = 5 + ' + 'colMARKT + ' + Me.colMARKT.Caption = "Markt" + Me.colMARKT.FieldName = "MARKT" + Me.colMARKT.Name = "colMARKT" + Me.colMARKT.OptionsColumn.AllowEdit = False + Me.colMARKT.Visible = True + Me.colMARKT.VisibleIndex = 6 + ' + 'colMENGE + ' + Me.colMENGE.Caption = "Menge" + Me.colMENGE.FieldName = "MENGE" + Me.colMENGE.Name = "colMENGE" + Me.colMENGE.OptionsColumn.AllowEdit = False + Me.colMENGE.Visible = True + Me.colMENGE.VisibleIndex = 7 + ' + 'colSERIEN_NR + ' + Me.colSERIEN_NR.Caption = "SerienNr" + Me.colSERIEN_NR.FieldName = "SERIEN_NR" + Me.colSERIEN_NR.Name = "colSERIEN_NR" + Me.colSERIEN_NR.OptionsColumn.AllowEdit = False + Me.colSERIEN_NR.Visible = True + Me.colSERIEN_NR.VisibleIndex = 8 + ' + 'colSUPPLY_BEZEICHNUNG + ' + Me.colSUPPLY_BEZEICHNUNG.Caption = "Supply" + Me.colSUPPLY_BEZEICHNUNG.FieldName = "SUPPLY_BEZEICHNUNG" + Me.colSUPPLY_BEZEICHNUNG.Name = "colSUPPLY_BEZEICHNUNG" + Me.colSUPPLY_BEZEICHNUNG.OptionsColumn.AllowEdit = False + Me.colSUPPLY_BEZEICHNUNG.Visible = True + Me.colSUPPLY_BEZEICHNUNG.VisibleIndex = 9 + ' + 'BindingNavigator4 + ' + Me.BindingNavigator4.AddNewItem = Nothing + Me.BindingNavigator4.BindingSource = Me.VWSUPPLIES_BESTELLUNG_GESENDETBindingSource + Me.BindingNavigator4.CountItem = Me.ToolStripLabel4 + Me.BindingNavigator4.CountItemFormat = "von {0} gesendeten Bestellungen" + Me.BindingNavigator4.DeleteItem = Nothing + Me.BindingNavigator4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton12, Me.ToolStripButton13, Me.ToolStripSeparator11, Me.ToolStripTextBox3, Me.ToolStripLabel4, Me.ToolStripSeparator12, Me.ToolStripButton14, Me.ToolStripButton15, Me.ToolStripSeparator13, Me.ToolStripButton16, Me.ToolStripButton37, Me.tsbtn_setBack2Besterford, Me.tsbtnSet2BestelltManually}) + Me.BindingNavigator4.Location = New System.Drawing.Point(3, 3) + Me.BindingNavigator4.MoveFirstItem = Me.ToolStripButton12 + Me.BindingNavigator4.MoveLastItem = Me.ToolStripButton15 + Me.BindingNavigator4.MoveNextItem = Me.ToolStripButton14 + Me.BindingNavigator4.MovePreviousItem = Me.ToolStripButton13 + Me.BindingNavigator4.Name = "BindingNavigator4" + Me.BindingNavigator4.PositionItem = Me.ToolStripTextBox3 + Me.BindingNavigator4.Size = New System.Drawing.Size(1269, 25) + Me.BindingNavigator4.TabIndex = 1 + Me.BindingNavigator4.Text = "BindingNavigator1" + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(179, 22) + Me.ToolStripLabel4.Text = "von {0} gesendeten Bestellungen" + Me.ToolStripLabel4.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton12 + ' + Me.ToolStripButton12.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton12.Image = CType(resources.GetObject("ToolStripButton12.Image"), System.Drawing.Image) + Me.ToolStripButton12.Name = "ToolStripButton12" + Me.ToolStripButton12.RightToLeftAutoMirrorImage = True + Me.ToolStripButton12.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton12.Text = "Erste verschieben" + ' + 'ToolStripButton13 + ' + Me.ToolStripButton13.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton13.Image = CType(resources.GetObject("ToolStripButton13.Image"), System.Drawing.Image) + Me.ToolStripButton13.Name = "ToolStripButton13" + Me.ToolStripButton13.RightToLeftAutoMirrorImage = True + Me.ToolStripButton13.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton13.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator11 + ' + Me.ToolStripSeparator11.Name = "ToolStripSeparator11" + Me.ToolStripSeparator11.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox3 + ' + Me.ToolStripTextBox3.AccessibleName = "Position" + Me.ToolStripTextBox3.AutoSize = False + Me.ToolStripTextBox3.Name = "ToolStripTextBox3" + Me.ToolStripTextBox3.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox3.Text = "0" + Me.ToolStripTextBox3.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator12 + ' + Me.ToolStripSeparator12.Name = "ToolStripSeparator12" + Me.ToolStripSeparator12.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton14 + ' + Me.ToolStripButton14.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton14.Image = CType(resources.GetObject("ToolStripButton14.Image"), System.Drawing.Image) + Me.ToolStripButton14.Name = "ToolStripButton14" + Me.ToolStripButton14.RightToLeftAutoMirrorImage = True + Me.ToolStripButton14.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton14.Text = "Nächste verschieben" + ' + 'ToolStripButton15 + ' + Me.ToolStripButton15.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton15.Image = CType(resources.GetObject("ToolStripButton15.Image"), System.Drawing.Image) + Me.ToolStripButton15.Name = "ToolStripButton15" + Me.ToolStripButton15.RightToLeftAutoMirrorImage = True + Me.ToolStripButton15.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton15.Text = "Letzte verschieben" + ' + 'ToolStripSeparator13 + ' + Me.ToolStripSeparator13.Name = "ToolStripSeparator13" + Me.ToolStripSeparator13.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton16 + ' + Me.ToolStripButton16.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton16.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.aktualisieren_1 + Me.ToolStripButton16.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton16.Name = "ToolStripButton16" + Me.ToolStripButton16.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton16.Text = "Abfragen Bestellungen" + ' + 'ToolStripButton37 + ' + Me.ToolStripButton37.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton37.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.Excel_25ixel + Me.ToolStripButton37.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton37.Name = "ToolStripButton37" + Me.ToolStripButton37.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton37.Text = "Export Excel" + ' + 'tsbtn_setBack2Besterford + ' + Me.tsbtn_setBack2Besterford.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.arrow_back_16xLG + Me.tsbtn_setBack2Besterford.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtn_setBack2Besterford.Name = "tsbtn_setBack2Besterford" + Me.tsbtn_setBack2Besterford.Size = New System.Drawing.Size(245, 22) + Me.tsbtn_setBack2Besterford.Text = "Auf 'Bestellung erforderlich' zurücksetzen" + ' + 'tsbtnSet2BestelltManually + ' + Me.tsbtnSet2BestelltManually.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.arrow_Forward_16xLG + Me.tsbtnSet2BestelltManually.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.tsbtnSet2BestelltManually.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnSet2BestelltManually.Name = "tsbtnSet2BestelltManually" + Me.tsbtnSet2BestelltManually.Size = New System.Drawing.Size(173, 22) + Me.tsbtnSet2BestelltManually.Text = "Manuell auf 'Bestellt' setzen" + Me.tsbtnSet2BestelltManually.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'tpBestellungen + ' + Me.tpBestellungen.AutoScroll = True + Me.tpBestellungen.Controls.Add(Me.GridControlBestellungen) + Me.tpBestellungen.Controls.Add(Me.GroupBox6) + Me.tpBestellungen.Controls.Add(Me.TBSUPPLY_BESTELLUNGViewBindingNavigator) + Me.tpBestellungen.Location = New System.Drawing.Point(4, 22) + Me.tpBestellungen.Name = "tpBestellungen" + Me.tpBestellungen.Padding = New System.Windows.Forms.Padding(3) + Me.tpBestellungen.Size = New System.Drawing.Size(1275, 306) + Me.tpBestellungen.TabIndex = 2 + Me.tpBestellungen.Text = "Bestell-Übersichten" + Me.tpBestellungen.UseVisualStyleBackColor = True + ' + 'GridControlBestellungen + ' + Me.GridControlBestellungen.DataSource = Me.TBSUPPLY_BESTELLUNGViewBindingSource + Me.GridControlBestellungen.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlBestellungen.Location = New System.Drawing.Point(332, 28) + Me.GridControlBestellungen.MainView = Me.GridViewBestellUebersicht + Me.GridControlBestellungen.Name = "GridControlBestellungen" + Me.GridControlBestellungen.Size = New System.Drawing.Size(940, 275) + Me.GridControlBestellungen.TabIndex = 4 + Me.GridControlBestellungen.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewBestellUebersicht}) + ' + 'TBSUPPLY_BESTELLUNGViewBindingSource + ' + Me.TBSUPPLY_BESTELLUNGViewBindingSource.DataMember = "VWSUPPLY_BESTELLUNG_FRONTEND" + Me.TBSUPPLY_BESTELLUNGViewBindingSource.DataSource = Me.MyDataset + ' + 'GridViewBestellUebersicht + ' + Me.GridViewBestellUebersicht.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridViewBestellUebersicht.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewBestellUebersicht.Appearance.OddRow.BackColor = System.Drawing.Color.White + Me.GridViewBestellUebersicht.Appearance.OddRow.Options.UseBackColor = True + Me.GridViewBestellUebersicht.Appearance.SelectedRow.BackColor = System.Drawing.Color.Magenta + Me.GridViewBestellUebersicht.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewBestellUebersicht.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBestellID, Me.colGERAET1, Me.colSERIEN_NR1, Me.colSUPPLY_BEZEICHNUNG1, Me.colMENGE1, Me.colMENGE_ORIGIN, Me.colBESTELLNR, Me.colMARKT1, Me.colMANUELL1, Me.colBESTELLT_WANN1, Me.colBESTELLT_WER1, Me.colFILE_ORDER_CONFIRM}) + Me.GridViewBestellUebersicht.GridControl = Me.GridControlBestellungen + Me.GridViewBestellUebersicht.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always + Me.GridViewBestellUebersicht.Name = "GridViewBestellUebersicht" + Me.GridViewBestellUebersicht.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewBestellUebersicht.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewBestellUebersicht.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewBestellUebersicht.OptionsSelection.MultiSelect = True + Me.GridViewBestellUebersicht.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewBestellUebersicht.OptionsView.ColumnAutoWidth = False + Me.GridViewBestellUebersicht.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewBestellUebersicht.OptionsView.EnableAppearanceOddRow = True + Me.GridViewBestellUebersicht.OptionsView.ShowAutoFilterRow = True + ' + 'colBestellID + ' + Me.colBestellID.Caption = "Bestell-ID" + Me.colBestellID.FieldName = "GUID" + Me.colBestellID.Name = "colBestellID" + Me.colBestellID.OptionsColumn.AllowEdit = False + Me.colBestellID.Visible = True + Me.colBestellID.VisibleIndex = 0 + ' + 'colGERAET1 + ' + Me.colGERAET1.Caption = "Gerät" + Me.colGERAET1.FieldName = "GERAET" + Me.colGERAET1.Name = "colGERAET1" + Me.colGERAET1.OptionsColumn.AllowEdit = False + Me.colGERAET1.Visible = True + Me.colGERAET1.VisibleIndex = 1 + ' + 'colSERIEN_NR1 + ' + Me.colSERIEN_NR1.Caption = "Serial" + Me.colSERIEN_NR1.FieldName = "SERIEN_NR" + Me.colSERIEN_NR1.Name = "colSERIEN_NR1" + Me.colSERIEN_NR1.OptionsColumn.AllowEdit = False + Me.colSERIEN_NR1.Visible = True + Me.colSERIEN_NR1.VisibleIndex = 2 + ' + 'colSUPPLY_BEZEICHNUNG1 + ' + Me.colSUPPLY_BEZEICHNUNG1.Caption = "Supply" + Me.colSUPPLY_BEZEICHNUNG1.FieldName = "SUPPLY_BEZEICHNUNG" + Me.colSUPPLY_BEZEICHNUNG1.Name = "colSUPPLY_BEZEICHNUNG1" + Me.colSUPPLY_BEZEICHNUNG1.OptionsColumn.AllowEdit = False + Me.colSUPPLY_BEZEICHNUNG1.Visible = True + Me.colSUPPLY_BEZEICHNUNG1.VisibleIndex = 3 + ' + 'colMENGE1 + ' + Me.colMENGE1.AppearanceCell.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.colMENGE1.AppearanceCell.Options.UseBackColor = True + Me.colMENGE1.Caption = "Menge" + Me.colMENGE1.FieldName = "MENGE" + Me.colMENGE1.Name = "colMENGE1" + Me.colMENGE1.Visible = True + Me.colMENGE1.VisibleIndex = 4 + ' + 'colMENGE_ORIGIN + ' + Me.colMENGE_ORIGIN.Caption = "Menge Orig." + Me.colMENGE_ORIGIN.FieldName = "MENGE_ORIGIN" + Me.colMENGE_ORIGIN.Name = "colMENGE_ORIGIN" + Me.colMENGE_ORIGIN.Visible = True + Me.colMENGE_ORIGIN.VisibleIndex = 5 + ' + 'colBESTELLNR + ' + Me.colBESTELLNR.AppearanceCell.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.colBESTELLNR.AppearanceCell.Options.UseBackColor = True + Me.colBESTELLNR.Caption = "Bestell Nr" + Me.colBESTELLNR.FieldName = "BESTELLNR" + Me.colBESTELLNR.Name = "colBESTELLNR" + Me.colBESTELLNR.Visible = True + Me.colBESTELLNR.VisibleIndex = 6 + ' + 'colMARKT1 + ' + Me.colMARKT1.Caption = "Markt" + Me.colMARKT1.FieldName = "MARKT" + Me.colMARKT1.Name = "colMARKT1" + Me.colMARKT1.OptionsColumn.AllowEdit = False + Me.colMARKT1.Visible = True + Me.colMARKT1.VisibleIndex = 7 + ' + 'colMANUELL1 + ' + Me.colMANUELL1.Caption = "Manuell" + Me.colMANUELL1.FieldName = "MANUELL" + Me.colMANUELL1.Name = "colMANUELL1" + Me.colMANUELL1.OptionsColumn.AllowEdit = False + Me.colMANUELL1.Visible = True + Me.colMANUELL1.VisibleIndex = 8 + ' + 'colBESTELLT_WANN1 + ' + Me.colBESTELLT_WANN1.Caption = "Bestellt wann" + Me.colBESTELLT_WANN1.FieldName = "BESTELLT_WANN" + Me.colBESTELLT_WANN1.Name = "colBESTELLT_WANN1" + Me.colBESTELLT_WANN1.OptionsColumn.AllowEdit = False + Me.colBESTELLT_WANN1.Visible = True + Me.colBESTELLT_WANN1.VisibleIndex = 10 + ' + 'colBESTELLT_WER1 + ' + Me.colBESTELLT_WER1.Caption = "Bestellt wer" + Me.colBESTELLT_WER1.FieldName = "BESTELLT_WER" + Me.colBESTELLT_WER1.Name = "colBESTELLT_WER1" + Me.colBESTELLT_WER1.OptionsColumn.AllowEdit = False + Me.colBESTELLT_WER1.Visible = True + Me.colBESTELLT_WER1.VisibleIndex = 9 + ' + 'colFILE_ORDER_CONFIRM + ' + Me.colFILE_ORDER_CONFIRM.Caption = "File-Order" + Me.colFILE_ORDER_CONFIRM.FieldName = "FILE_ORDER_CONFIRM" + Me.colFILE_ORDER_CONFIRM.Name = "colFILE_ORDER_CONFIRM" + Me.colFILE_ORDER_CONFIRM.OptionsColumn.AllowEdit = False + Me.colFILE_ORDER_CONFIRM.Visible = True + Me.colFILE_ORDER_CONFIRM.VisibleIndex = 11 + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.chkbDatumfilterOrder) + Me.GroupBox6.Controls.Add(Me.dtpOrder_bis) + Me.GroupBox6.Controls.Add(Me.Label12) + Me.GroupBox6.Controls.Add(Me.dtpOrder_von) + Me.GroupBox6.Controls.Add(Me.Label13) + Me.GroupBox6.Controls.Add(Me.chbFilterMarkt_Bestellungen) + Me.GroupBox6.Controls.Add(Me.DGTBWH_Markt_Bestellungen) + Me.GroupBox6.Dock = System.Windows.Forms.DockStyle.Left + Me.GroupBox6.Location = New System.Drawing.Point(3, 28) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(329, 275) + Me.GroupBox6.TabIndex = 2 + Me.GroupBox6.TabStop = False + Me.GroupBox6.Text = "Märkte und Datumsfilter:" + ' + 'chkbDatumfilterOrder + ' + Me.chkbDatumfilterOrder.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.chkbDatumfilterOrder.AutoSize = True + Me.chkbDatumfilterOrder.Location = New System.Drawing.Point(6, 166) + Me.chkbDatumfilterOrder.Name = "chkbDatumfilterOrder" + Me.chkbDatumfilterOrder.Size = New System.Drawing.Size(89, 17) + Me.chkbDatumfilterOrder.TabIndex = 12 + Me.chkbDatumfilterOrder.Text = "Datumsfilter" + Me.chkbDatumfilterOrder.UseVisualStyleBackColor = True + ' + 'dtpOrder_bis + ' + Me.dtpOrder_bis.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.dtpOrder_bis.Enabled = False + Me.dtpOrder_bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpOrder_bis.Location = New System.Drawing.Point(6, 249) + Me.dtpOrder_bis.Name = "dtpOrder_bis" + Me.dtpOrder_bis.Size = New System.Drawing.Size(118, 22) + Me.dtpOrder_bis.TabIndex = 11 + ' + 'Label12 + ' + Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(3, 233) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(95, 13) + Me.Label12.TabIndex = 10 + Me.Label12.Text = "Bestelldatum bis:" + ' + 'dtpOrder_von + ' + Me.dtpOrder_von.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.dtpOrder_von.Enabled = False + Me.dtpOrder_von.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpOrder_von.Location = New System.Drawing.Point(6, 205) + Me.dtpOrder_von.Name = "dtpOrder_von" + Me.dtpOrder_von.Size = New System.Drawing.Size(118, 22) + Me.dtpOrder_von.TabIndex = 9 + ' + 'Label13 + ' + Me.Label13.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(3, 189) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(99, 13) + Me.Label13.TabIndex = 8 + Me.Label13.Text = "Bestelldatum von:" + ' + 'chbFilterMarkt_Bestellungen + ' + Me.chbFilterMarkt_Bestellungen.AutoSize = True + Me.chbFilterMarkt_Bestellungen.Location = New System.Drawing.Point(6, 21) + Me.chbFilterMarkt_Bestellungen.Name = "chbFilterMarkt_Bestellungen" + Me.chbFilterMarkt_Bestellungen.Size = New System.Drawing.Size(79, 17) + Me.chbFilterMarkt_Bestellungen.TabIndex = 2 + Me.chbFilterMarkt_Bestellungen.Text = "Filter aktiv" + Me.chbFilterMarkt_Bestellungen.UseVisualStyleBackColor = True + ' + 'DGTBWH_Markt_Bestellungen + ' + Me.DGTBWH_Markt_Bestellungen.AllowUserToAddRows = False + Me.DGTBWH_Markt_Bestellungen.AllowUserToDeleteRows = False + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan + Me.DGTBWH_Markt_Bestellungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.DGTBWH_Markt_Bestellungen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.DGTBWH_Markt_Bestellungen.AutoGenerateColumns = False + Me.DGTBWH_Markt_Bestellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DGTBWH_Markt_Bestellungen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn15}) + Me.DGTBWH_Markt_Bestellungen.DataSource = Me.TBWH_MARKTBindingSource + Me.DGTBWH_Markt_Bestellungen.Location = New System.Drawing.Point(6, 44) + Me.DGTBWH_Markt_Bestellungen.Name = "DGTBWH_Markt_Bestellungen" + Me.DGTBWH_Markt_Bestellungen.ReadOnly = True + Me.DGTBWH_Markt_Bestellungen.RowHeadersVisible = False + Me.DGTBWH_Markt_Bestellungen.Size = New System.Drawing.Size(316, 116) + Me.DGTBWH_Markt_Bestellungen.TabIndex = 1 + Me.DGTBWH_Markt_Bestellungen.Visible = False + ' + 'DataGridViewTextBoxColumn15 + ' + Me.DataGridViewTextBoxColumn15.DataPropertyName = "MARKT" + Me.DataGridViewTextBoxColumn15.HeaderText = "Markt" + Me.DataGridViewTextBoxColumn15.Name = "DataGridViewTextBoxColumn15" + Me.DataGridViewTextBoxColumn15.ReadOnly = True + Me.DataGridViewTextBoxColumn15.Width = 220 + ' + 'TBWH_MARKTBindingSource + ' + Me.TBWH_MARKTBindingSource.DataMember = "TBWH_MARKT" + Me.TBWH_MARKTBindingSource.DataSource = Me.MyDataset + ' + 'TBSUPPLY_BESTELLUNGViewBindingNavigator + ' + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.AddNewItem = Nothing + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.BindingSource = Me.TBSUPPLY_BESTELLUNGViewBindingSource + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.CountItem = Me.BindingNavigatorCountItem3 + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.CountItemFormat = "von {0} Bestellungen" + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.DeleteItem = Nothing + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem3, Me.BindingNavigatorMovePreviousItem3, Me.BindingNavigatorSeparator9, Me.BindingNavigatorPositionItem3, Me.BindingNavigatorCountItem3, Me.BindingNavigatorSeparator10, Me.BindingNavigatorMoveNextItem3, Me.BindingNavigatorMoveLastItem3, Me.BindingNavigatorSeparator11, Me.tsbRefresh_Bestellungen, Me.tsbExel_bestellungen}) + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.Location = New System.Drawing.Point(3, 3) + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem3 + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem3 + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem3 + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem3 + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.Name = "TBSUPPLY_BESTELLUNGViewBindingNavigator" + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem3 + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.Size = New System.Drawing.Size(1269, 25) + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.TabIndex = 0 + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem3 + ' + Me.BindingNavigatorCountItem3.Name = "BindingNavigatorCountItem3" + Me.BindingNavigatorCountItem3.Size = New System.Drawing.Size(115, 22) + Me.BindingNavigatorCountItem3.Text = "von {0} Bestellungen" + Me.BindingNavigatorCountItem3.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem3 + ' + Me.BindingNavigatorMoveFirstItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem3.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem3.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem3.Name = "BindingNavigatorMoveFirstItem3" + Me.BindingNavigatorMoveFirstItem3.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem3.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem3.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem3 + ' + Me.BindingNavigatorMovePreviousItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem3.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem3.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem3.Name = "BindingNavigatorMovePreviousItem3" + Me.BindingNavigatorMovePreviousItem3.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem3.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem3.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator9 + ' + Me.BindingNavigatorSeparator9.Name = "BindingNavigatorSeparator9" + Me.BindingNavigatorSeparator9.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem3 + ' + Me.BindingNavigatorPositionItem3.AccessibleName = "Position" + Me.BindingNavigatorPositionItem3.AutoSize = False + Me.BindingNavigatorPositionItem3.Name = "BindingNavigatorPositionItem3" + Me.BindingNavigatorPositionItem3.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem3.Text = "0" + Me.BindingNavigatorPositionItem3.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator10 + ' + Me.BindingNavigatorSeparator10.Name = "BindingNavigatorSeparator10" + Me.BindingNavigatorSeparator10.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem3 + ' + Me.BindingNavigatorMoveNextItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem3.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem3.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem3.Name = "BindingNavigatorMoveNextItem3" + Me.BindingNavigatorMoveNextItem3.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem3.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem3.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem3 + ' + Me.BindingNavigatorMoveLastItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem3.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem3.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem3.Name = "BindingNavigatorMoveLastItem3" + Me.BindingNavigatorMoveLastItem3.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem3.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem3.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator11 + ' + Me.BindingNavigatorSeparator11.Name = "BindingNavigatorSeparator11" + Me.BindingNavigatorSeparator11.Size = New System.Drawing.Size(6, 25) + ' + 'tsbRefresh_Bestellungen + ' + Me.tsbRefresh_Bestellungen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbRefresh_Bestellungen.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.aktualisieren_1 + Me.tsbRefresh_Bestellungen.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbRefresh_Bestellungen.Name = "tsbRefresh_Bestellungen" + Me.tsbRefresh_Bestellungen.Size = New System.Drawing.Size(23, 22) + Me.tsbRefresh_Bestellungen.Text = "Abfragen Bestellungen" + ' + 'tsbExel_bestellungen + ' + Me.tsbExel_bestellungen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbExel_bestellungen.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.Excel_25ixel + Me.tsbExel_bestellungen.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbExel_bestellungen.Name = "tsbExel_bestellungen" + Me.tsbExel_bestellungen.Size = New System.Drawing.Size(23, 22) + Me.tsbExel_bestellungen.Text = "Export Excel" + ' + 'TabPageBestell_Import + ' + Me.TabPageBestell_Import.Controls.Add(Me.chkLogData) + Me.TabPageBestell_Import.Controls.Add(Me.DataGridView2) + Me.TabPageBestell_Import.Controls.Add(Me.btnImportBestellungen) + Me.TabPageBestell_Import.Location = New System.Drawing.Point(4, 22) + Me.TabPageBestell_Import.Name = "TabPageBestell_Import" + Me.TabPageBestell_Import.Padding = New System.Windows.Forms.Padding(3) + Me.TabPageBestell_Import.Size = New System.Drawing.Size(1275, 306) + Me.TabPageBestell_Import.TabIndex = 3 + Me.TabPageBestell_Import.Text = "Import Bestellungen-Reports" + Me.TabPageBestell_Import.UseVisualStyleBackColor = True + ' + 'chkLogData + ' + Me.chkLogData.AutoSize = True + Me.chkLogData.Location = New System.Drawing.Point(859, 42) + Me.chkLogData.Name = "chkLogData" + Me.chkLogData.Size = New System.Drawing.Size(119, 17) + Me.chkLogData.TabIndex = 3 + Me.chkLogData.Text = "Log Excel cell data" + Me.chkLogData.UseVisualStyleBackColor = True + ' + 'DataGridView2 + ' + Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView2.Location = New System.Drawing.Point(7, 66) + Me.DataGridView2.Name = "DataGridView2" + Me.DataGridView2.Size = New System.Drawing.Size(971, 150) + Me.DataGridView2.TabIndex = 2 + ' + 'btnImportBestellungen + ' + Me.btnImportBestellungen.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.fghfgh + Me.btnImportBestellungen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnImportBestellungen.Location = New System.Drawing.Point(6, 6) + Me.btnImportBestellungen.Name = "btnImportBestellungen" + Me.btnImportBestellungen.Size = New System.Drawing.Size(185, 53) + Me.btnImportBestellungen.TabIndex = 1 + Me.btnImportBestellungen.Text = "Import Bestellungen" + Me.btnImportBestellungen.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnImportBestellungen.UseVisualStyleBackColor = True + ' + 'DataGridView3 + ' + Me.DataGridView3.AllowUserToAddRows = False + Me.DataGridView3.AllowUserToDeleteRows = False + DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan + Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + Me.DataGridView3.AutoGenerateColumns = False + Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView3.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.MELDEDATUMDataGridViewTextBoxColumn1, Me.SUPPLYLEVELDataGridViewTextBoxColumn, Me.STATUSDataGridViewTextBoxColumn1, Me.ERFASSTWANNDataGridViewTextBoxColumn1}) + Me.DataGridView3.DataSource = Me.VWSUPPLY_VERFOLGUNGBindingSource + Me.DataGridView3.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView3.Location = New System.Drawing.Point(0, 25) + Me.DataGridView3.Name = "DataGridView3" + Me.DataGridView3.ReadOnly = True + Me.DataGridView3.Size = New System.Drawing.Size(1283, 98) + Me.DataGridView3.TabIndex = 1 + ' + 'MELDEDATUMDataGridViewTextBoxColumn1 + ' + Me.MELDEDATUMDataGridViewTextBoxColumn1.DataPropertyName = "MELDEDATUM" + Me.MELDEDATUMDataGridViewTextBoxColumn1.HeaderText = "Meldedatum" + Me.MELDEDATUMDataGridViewTextBoxColumn1.Name = "MELDEDATUMDataGridViewTextBoxColumn1" + Me.MELDEDATUMDataGridViewTextBoxColumn1.ReadOnly = True + ' + 'SUPPLYLEVELDataGridViewTextBoxColumn + ' + Me.SUPPLYLEVELDataGridViewTextBoxColumn.DataPropertyName = "SUPPLY_LEVEL" + Me.SUPPLYLEVELDataGridViewTextBoxColumn.HeaderText = "Level" + Me.SUPPLYLEVELDataGridViewTextBoxColumn.Name = "SUPPLYLEVELDataGridViewTextBoxColumn" + Me.SUPPLYLEVELDataGridViewTextBoxColumn.ReadOnly = True + ' + 'STATUSDataGridViewTextBoxColumn1 + ' + Me.STATUSDataGridViewTextBoxColumn1.DataPropertyName = "STATUS" + Me.STATUSDataGridViewTextBoxColumn1.HeaderText = "Status" + Me.STATUSDataGridViewTextBoxColumn1.Name = "STATUSDataGridViewTextBoxColumn1" + Me.STATUSDataGridViewTextBoxColumn1.ReadOnly = True + ' + 'ERFASSTWANNDataGridViewTextBoxColumn1 + ' + Me.ERFASSTWANNDataGridViewTextBoxColumn1.DataPropertyName = "ERFASSTWANN" + Me.ERFASSTWANNDataGridViewTextBoxColumn1.HeaderText = "Erfasst" + Me.ERFASSTWANNDataGridViewTextBoxColumn1.Name = "ERFASSTWANNDataGridViewTextBoxColumn1" + Me.ERFASSTWANNDataGridViewTextBoxColumn1.ReadOnly = True + ' + 'VWSUPPLY_VERFOLGUNGBindingSource + ' + Me.VWSUPPLY_VERFOLGUNGBindingSource.DataMember = "VWSUPPLY_VERFOLGUNG" + Me.VWSUPPLY_VERFOLGUNGBindingSource.DataSource = Me.MyDataset + ' + 'BindingNavigator3 + ' + Me.BindingNavigator3.AddNewItem = Nothing + Me.BindingNavigator3.BindingSource = Me.VWSUPPLY_VERFOLGUNGBindingSource + Me.BindingNavigator3.CountItem = Me.BindingNavigatorCountItem10 + Me.BindingNavigator3.CountItemFormat = "von {0} Supply-Meldesätzen" + Me.BindingNavigator3.DeleteItem = Nothing + Me.BindingNavigator3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem10, Me.BindingNavigatorMovePreviousItem10, Me.BindingNavigatorSeparator30, Me.BindingNavigatorPositionItem10, Me.BindingNavigatorCountItem10, Me.BindingNavigatorSeparator31, Me.BindingNavigatorMoveNextItem10, Me.BindingNavigatorMoveLastItem10, Me.BindingNavigatorSeparator32}) + Me.BindingNavigator3.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigator3.MoveFirstItem = Me.BindingNavigatorMoveFirstItem10 + Me.BindingNavigator3.MoveLastItem = Me.BindingNavigatorMoveLastItem10 + Me.BindingNavigator3.MoveNextItem = Me.BindingNavigatorMoveNextItem10 + Me.BindingNavigator3.MovePreviousItem = Me.BindingNavigatorMovePreviousItem10 + Me.BindingNavigator3.Name = "BindingNavigator3" + Me.BindingNavigator3.PositionItem = Me.BindingNavigatorPositionItem10 + Me.BindingNavigator3.Size = New System.Drawing.Size(1283, 25) + Me.BindingNavigator3.TabIndex = 0 + Me.BindingNavigator3.Text = "BindingNavigator3" + ' + 'BindingNavigatorCountItem10 + ' + Me.BindingNavigatorCountItem10.Name = "BindingNavigatorCountItem10" + Me.BindingNavigatorCountItem10.Size = New System.Drawing.Size(154, 22) + Me.BindingNavigatorCountItem10.Text = "von {0} Supply-Meldesätzen" + Me.BindingNavigatorCountItem10.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem10 + ' + Me.BindingNavigatorMoveFirstItem10.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem10.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem10.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem10.Name = "BindingNavigatorMoveFirstItem10" + Me.BindingNavigatorMoveFirstItem10.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem10.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem10.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem10 + ' + Me.BindingNavigatorMovePreviousItem10.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem10.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem10.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem10.Name = "BindingNavigatorMovePreviousItem10" + Me.BindingNavigatorMovePreviousItem10.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem10.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem10.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator30 + ' + Me.BindingNavigatorSeparator30.Name = "BindingNavigatorSeparator30" + Me.BindingNavigatorSeparator30.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem10 + ' + Me.BindingNavigatorPositionItem10.AccessibleName = "Position" + Me.BindingNavigatorPositionItem10.AutoSize = False + Me.BindingNavigatorPositionItem10.Name = "BindingNavigatorPositionItem10" + Me.BindingNavigatorPositionItem10.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem10.Text = "0" + Me.BindingNavigatorPositionItem10.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator31 + ' + Me.BindingNavigatorSeparator31.Name = "BindingNavigatorSeparator31" + Me.BindingNavigatorSeparator31.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem10 + ' + Me.BindingNavigatorMoveNextItem10.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem10.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem10.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem10.Name = "BindingNavigatorMoveNextItem10" + Me.BindingNavigatorMoveNextItem10.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem10.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem10.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem10 + ' + Me.BindingNavigatorMoveLastItem10.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem10.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem10.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem10.Name = "BindingNavigatorMoveLastItem10" + Me.BindingNavigatorMoveLastItem10.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem10.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem10.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator32 + ' + Me.BindingNavigatorSeparator32.Name = "BindingNavigatorSeparator32" + Me.BindingNavigatorSeparator32.Size = New System.Drawing.Size(6, 25) + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.GridControlVWSupplies) + Me.TabPage2.Controls.Add(Me.Panel1) + Me.TabPage2.Controls.Add(Me.VWSUPPLIESBindingNavigator) + Me.TabPage2.Controls.Add(Me.spltSupplies) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(1289, 465) + Me.TabPage2.TabIndex = 0 + Me.TabPage2.Text = "Supplies" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GridControlVWSupplies + ' + Me.GridControlVWSupplies.DataSource = Me.VWSUPPLIESBindingSource + Me.GridControlVWSupplies.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlVWSupplies.Location = New System.Drawing.Point(297, 28) + Me.GridControlVWSupplies.MainView = Me.GridViewVWSupplies + Me.GridControlVWSupplies.Name = "GridControlVWSupplies" + Me.GridControlVWSupplies.Size = New System.Drawing.Size(989, 434) + Me.GridControlVWSupplies.TabIndex = 5 + Me.GridControlVWSupplies.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewVWSupplies}) + ' + 'VWSUPPLIESBindingSource + ' + Me.VWSUPPLIESBindingSource.AllowNew = False + Me.VWSUPPLIESBindingSource.DataMember = "VWSUPPLIES" + Me.VWSUPPLIESBindingSource.DataSource = Me.MyDataset + ' + 'GridViewVWSupplies + ' + Me.GridViewVWSupplies.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridViewVWSupplies.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewVWSupplies.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSUPPLY_ID1, Me.colMARKT4, Me.colDEVICE, Me.colSUPPLY_BEZ, Me.colLEVEL, Me.colSCHWELLENWERT, Me.colPARTNUMBER, Me.colSERIENNR2, Me.colSTATUS, Me.colERFASSTWANN1, Me.colGEAENDERTWER1, Me.colGEAENDERTWANN1, Me.colGERAET_ID, Me.colSTATUS_WANN, Me.colGERAET2, Me.colGERAET_IP, Me.colGERAET_SERIENNR, Me.colGERAET_PAGECOUNT, Me.colGERAET_PPM, Me.colBESTELLUNG1, Me.colSTATUS_WER}) + Me.GridViewVWSupplies.GridControl = Me.GridControlVWSupplies + Me.GridViewVWSupplies.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always + Me.GridViewVWSupplies.Name = "GridViewVWSupplies" + Me.GridViewVWSupplies.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewVWSupplies.OptionsSelection.MultiSelect = True + Me.GridViewVWSupplies.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewVWSupplies.OptionsView.EnableAppearanceEvenRow = True + ' + 'colSUPPLY_ID1 + ' + Me.colSUPPLY_ID1.Caption = "Supply-ID" + Me.colSUPPLY_ID1.FieldName = "SUPPLY_ID" + Me.colSUPPLY_ID1.Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left + Me.colSUPPLY_ID1.Name = "colSUPPLY_ID1" + Me.colSUPPLY_ID1.Visible = True + Me.colSUPPLY_ID1.VisibleIndex = 0 + ' + 'colMARKT4 + ' + Me.colMARKT4.Caption = "Markt" + Me.colMARKT4.FieldName = "MARKT" + Me.colMARKT4.Name = "colMARKT4" + Me.colMARKT4.Visible = True + Me.colMARKT4.VisibleIndex = 1 + ' + 'colDEVICE + ' + Me.colDEVICE.Caption = "Device" + Me.colDEVICE.FieldName = "DEVICE" + Me.colDEVICE.Name = "colDEVICE" + Me.colDEVICE.Visible = True + Me.colDEVICE.VisibleIndex = 2 + ' + 'colSUPPLY_BEZ + ' + Me.colSUPPLY_BEZ.FieldName = "SUPPLY_BEZ" + Me.colSUPPLY_BEZ.Name = "colSUPPLY_BEZ" + Me.colSUPPLY_BEZ.Visible = True + Me.colSUPPLY_BEZ.VisibleIndex = 3 + ' + 'colLEVEL + ' + Me.colLEVEL.Caption = "Level" + Me.colLEVEL.FieldName = "LEVEL" + Me.colLEVEL.Name = "colLEVEL" + Me.colLEVEL.Visible = True + Me.colLEVEL.VisibleIndex = 4 + ' + 'colSCHWELLENWERT + ' + Me.colSCHWELLENWERT.AppearanceCell.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.colSCHWELLENWERT.AppearanceCell.Options.UseBackColor = True + Me.colSCHWELLENWERT.Caption = "Schwelle" + Me.colSCHWELLENWERT.FieldName = "SCHWELLENWERT" + Me.colSCHWELLENWERT.Name = "colSCHWELLENWERT" + Me.colSCHWELLENWERT.Visible = True + Me.colSCHWELLENWERT.VisibleIndex = 5 + ' + 'colPARTNUMBER + ' + Me.colPARTNUMBER.Caption = "PartNumber" + Me.colPARTNUMBER.FieldName = "PARTNUMBER" + Me.colPARTNUMBER.Name = "colPARTNUMBER" + Me.colPARTNUMBER.Visible = True + Me.colPARTNUMBER.VisibleIndex = 6 + ' + 'colSERIENNR2 + ' + Me.colSERIENNR2.Caption = "Supply Serial" + Me.colSERIENNR2.FieldName = "SERIENNR" + Me.colSERIENNR2.Name = "colSERIENNR2" + Me.colSERIENNR2.Visible = True + Me.colSERIENNR2.VisibleIndex = 7 + ' + 'colSTATUS + ' + Me.colSTATUS.Caption = "Status" + Me.colSTATUS.FieldName = "STATUS" + Me.colSTATUS.Name = "colSTATUS" + Me.colSTATUS.Visible = True + Me.colSTATUS.VisibleIndex = 8 + ' + 'colERFASSTWANN1 + ' + Me.colERFASSTWANN1.Caption = "Erfasst wann" + Me.colERFASSTWANN1.FieldName = "ERFASSTWANN" + Me.colERFASSTWANN1.Name = "colERFASSTWANN1" + Me.colERFASSTWANN1.Visible = True + Me.colERFASSTWANN1.VisibleIndex = 9 + ' + 'colGEAENDERTWER1 + ' + Me.colGEAENDERTWER1.Caption = "Geändert wer" + Me.colGEAENDERTWER1.FieldName = "GEAENDERTWER" + Me.colGEAENDERTWER1.Name = "colGEAENDERTWER1" + Me.colGEAENDERTWER1.Visible = True + Me.colGEAENDERTWER1.VisibleIndex = 10 + ' + 'colGEAENDERTWANN1 + ' + Me.colGEAENDERTWANN1.Caption = "Geändert wann" + Me.colGEAENDERTWANN1.FieldName = "GEAENDERTWANN" + Me.colGEAENDERTWANN1.Name = "colGEAENDERTWANN1" + Me.colGEAENDERTWANN1.Visible = True + Me.colGEAENDERTWANN1.VisibleIndex = 11 + ' + 'colGERAET_ID + ' + Me.colGERAET_ID.Caption = "Geräte-ID" + Me.colGERAET_ID.FieldName = "GERAET_ID" + Me.colGERAET_ID.Name = "colGERAET_ID" + Me.colGERAET_ID.Visible = True + Me.colGERAET_ID.VisibleIndex = 12 + ' + 'colSTATUS_WANN + ' + Me.colSTATUS_WANN.Caption = "Status wann" + Me.colSTATUS_WANN.FieldName = "STATUS_WANN" + Me.colSTATUS_WANN.Name = "colSTATUS_WANN" + Me.colSTATUS_WANN.Visible = True + Me.colSTATUS_WANN.VisibleIndex = 13 + ' + 'colGERAET2 + ' + Me.colGERAET2.FieldName = "GERAET" + Me.colGERAET2.Name = "colGERAET2" + Me.colGERAET2.Visible = True + Me.colGERAET2.VisibleIndex = 14 + ' + 'colGERAET_IP + ' + Me.colGERAET_IP.Caption = "Device-IP" + Me.colGERAET_IP.FieldName = "GERAET_IP" + Me.colGERAET_IP.Name = "colGERAET_IP" + Me.colGERAET_IP.Visible = True + Me.colGERAET_IP.VisibleIndex = 15 + ' + 'colGERAET_SERIENNR + ' + Me.colGERAET_SERIENNR.Caption = "Device-Seriennummer" + Me.colGERAET_SERIENNR.FieldName = "GERAET_SERIENNR" + Me.colGERAET_SERIENNR.Name = "colGERAET_SERIENNR" + Me.colGERAET_SERIENNR.Visible = True + Me.colGERAET_SERIENNR.VisibleIndex = 16 + ' + 'colGERAET_PAGECOUNT + ' + Me.colGERAET_PAGECOUNT.Caption = "Device Pagecount" + Me.colGERAET_PAGECOUNT.FieldName = "GERAET_PAGECOUNT" + Me.colGERAET_PAGECOUNT.Name = "colGERAET_PAGECOUNT" + Me.colGERAET_PAGECOUNT.Visible = True + Me.colGERAET_PAGECOUNT.VisibleIndex = 17 + ' + 'colGERAET_PPM + ' + Me.colGERAET_PPM.Caption = "Device PPM" + Me.colGERAET_PPM.FieldName = "GERAET_PPM" + Me.colGERAET_PPM.Name = "colGERAET_PPM" + Me.colGERAET_PPM.Visible = True + Me.colGERAET_PPM.VisibleIndex = 18 + ' + 'colBESTELLUNG1 + ' + Me.colBESTELLUNG1.Caption = "Bestellung gesendet" + Me.colBESTELLUNG1.FieldName = "BESTELLUNG" + Me.colBESTELLUNG1.Name = "colBESTELLUNG1" + Me.colBESTELLUNG1.Visible = True + Me.colBESTELLUNG1.VisibleIndex = 19 + ' + 'colSTATUS_WER + ' + Me.colSTATUS_WER.Caption = "Status wer" + Me.colSTATUS_WER.FieldName = "STATUS_WER" + Me.colSTATUS_WER.Name = "colSTATUS_WER" + Me.colSTATUS_WER.Visible = True + Me.colSTATUS_WER.VisibleIndex = 20 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.grbStati) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left + Me.Panel1.Location = New System.Drawing.Point(6, 28) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(291, 434) + Me.Panel1.TabIndex = 2 + ' + 'grbStati + ' + Me.grbStati.Controls.Add(Me.chbFilterStatus) + Me.grbStati.Controls.Add(Me.TBWH_STATUSFILTERDataGridView) + Me.grbStati.Dock = System.Windows.Forms.DockStyle.Top + Me.grbStati.Location = New System.Drawing.Point(0, 0) + Me.grbStati.Name = "grbStati" + Me.grbStati.Size = New System.Drawing.Size(291, 222) + Me.grbStati.TabIndex = 0 + Me.grbStati.TabStop = False + Me.grbStati.Text = "Stati:" + ' + 'chbFilterStatus + ' + Me.chbFilterStatus.AutoSize = True + Me.chbFilterStatus.Location = New System.Drawing.Point(6, 21) + Me.chbFilterStatus.Name = "chbFilterStatus" + Me.chbFilterStatus.Size = New System.Drawing.Size(115, 17) + Me.chbFilterStatus.TabIndex = 1 + Me.chbFilterStatus.Text = "Status-Filter aktiv" + Me.chbFilterStatus.UseVisualStyleBackColor = True + ' + 'TBWH_STATUSFILTERDataGridView + ' + Me.TBWH_STATUSFILTERDataGridView.AllowUserToAddRows = False + Me.TBWH_STATUSFILTERDataGridView.AllowUserToDeleteRows = False + DataGridViewCellStyle3.BackColor = System.Drawing.Color.Fuchsia + Me.TBWH_STATUSFILTERDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + Me.TBWH_STATUSFILTERDataGridView.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TBWH_STATUSFILTERDataGridView.AutoGenerateColumns = False + Me.TBWH_STATUSFILTERDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.TBWH_STATUSFILTERDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn3}) + Me.TBWH_STATUSFILTERDataGridView.DataSource = Me.TBWH_STATUSFILTERBindingSource + Me.TBWH_STATUSFILTERDataGridView.Location = New System.Drawing.Point(3, 44) + Me.TBWH_STATUSFILTERDataGridView.Name = "TBWH_STATUSFILTERDataGridView" + Me.TBWH_STATUSFILTERDataGridView.ReadOnly = True + Me.TBWH_STATUSFILTERDataGridView.RowHeadersVisible = False + Me.TBWH_STATUSFILTERDataGridView.RowHeadersWidth = 21 + Me.TBWH_STATUSFILTERDataGridView.Size = New System.Drawing.Size(285, 172) + Me.TBWH_STATUSFILTERDataGridView.TabIndex = 0 + Me.TBWH_STATUSFILTERDataGridView.Visible = False + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "BEZEICHNUNG" + Me.DataGridViewTextBoxColumn3.HeaderText = "Status Bez." + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + Me.DataGridViewTextBoxColumn3.Width = 190 + ' + 'TBWH_STATUSFILTERBindingSource + ' + Me.TBWH_STATUSFILTERBindingSource.DataMember = "TBWH_STATUSFILTER" + Me.TBWH_STATUSFILTERBindingSource.DataSource = Me.MyDataset + ' + 'VWSUPPLIESBindingNavigator + ' + Me.VWSUPPLIESBindingNavigator.AddNewItem = Nothing + Me.VWSUPPLIESBindingNavigator.BindingSource = Me.VWSUPPLIESBindingSource + Me.VWSUPPLIESBindingNavigator.CountItem = Me.BindingNavigatorCountItem1 + Me.VWSUPPLIESBindingNavigator.CountItemFormat = "von {0} Supplies" + Me.VWSUPPLIESBindingNavigator.DeleteItem = Nothing + Me.VWSUPPLIESBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbImport1, Me.ToolStripSeparator8, Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.tsbSupplies_Refresh, Me.tsbExcel_Supplies}) + Me.VWSUPPLIESBindingNavigator.Location = New System.Drawing.Point(6, 3) + Me.VWSUPPLIESBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 + Me.VWSUPPLIESBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem1 + Me.VWSUPPLIESBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem1 + Me.VWSUPPLIESBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem1 + Me.VWSUPPLIESBindingNavigator.Name = "VWSUPPLIESBindingNavigator" + Me.VWSUPPLIESBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem1 + Me.VWSUPPLIESBindingNavigator.Size = New System.Drawing.Size(1280, 25) + Me.VWSUPPLIESBindingNavigator.TabIndex = 0 + Me.VWSUPPLIESBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem1 + ' + Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" + Me.BindingNavigatorCountItem1.Size = New System.Drawing.Size(91, 22) + Me.BindingNavigatorCountItem1.Text = "von {0} Supplies" + Me.BindingNavigatorCountItem1.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'tsbImport1 + ' + Me.tsbImport1.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.My_Downloads_XP + Me.tsbImport1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.tsbImport1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbImport1.Name = "tsbImport1" + Me.tsbImport1.Size = New System.Drawing.Size(129, 22) + Me.tsbImport1.Text = "Dateien verarbeiten" + Me.tsbImport1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'ToolStripSeparator8 + ' + Me.ToolStripSeparator8.Name = "ToolStripSeparator8" + Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveFirstItem1 + ' + Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem1.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem1.Name = "BindingNavigatorMoveFirstItem1" + Me.BindingNavigatorMoveFirstItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem1.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem1 + ' + Me.BindingNavigatorMovePreviousItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem1.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem1.Name = "BindingNavigatorMovePreviousItem1" + Me.BindingNavigatorMovePreviousItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem1.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator3 + ' + Me.BindingNavigatorSeparator3.Name = "BindingNavigatorSeparator3" + Me.BindingNavigatorSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem1 + ' + Me.BindingNavigatorPositionItem1.AccessibleName = "Position" + Me.BindingNavigatorPositionItem1.AutoSize = False + Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1" + Me.BindingNavigatorPositionItem1.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem1.Text = "0" + Me.BindingNavigatorPositionItem1.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator4 + ' + Me.BindingNavigatorSeparator4.Name = "BindingNavigatorSeparator4" + Me.BindingNavigatorSeparator4.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem1 + ' + Me.BindingNavigatorMoveNextItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem1.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem1.Name = "BindingNavigatorMoveNextItem1" + Me.BindingNavigatorMoveNextItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem1.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem1 + ' + Me.BindingNavigatorMoveLastItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem1.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem1.Name = "BindingNavigatorMoveLastItem1" + Me.BindingNavigatorMoveLastItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem1.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator5 + ' + Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" + Me.BindingNavigatorSeparator5.Size = New System.Drawing.Size(6, 25) + ' + 'tsbSupplies_Refresh + ' + Me.tsbSupplies_Refresh.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbSupplies_Refresh.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.aktualisieren_1 + Me.tsbSupplies_Refresh.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbSupplies_Refresh.Name = "tsbSupplies_Refresh" + Me.tsbSupplies_Refresh.Size = New System.Drawing.Size(23, 22) + Me.tsbSupplies_Refresh.Text = "Daten abrufen" + ' + 'tsbExcel_Supplies + ' + Me.tsbExcel_Supplies.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbExcel_Supplies.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.Excel_25ixel + Me.tsbExcel_Supplies.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbExcel_Supplies.Name = "tsbExcel_Supplies" + Me.tsbExcel_Supplies.Size = New System.Drawing.Size(23, 22) + Me.tsbExcel_Supplies.Text = "ToolStripButton1" + ' + 'spltSupplies + ' + Me.spltSupplies.BackColor = System.Drawing.SystemColors.InactiveCaption + Me.spltSupplies.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.MCSUPPLYWATCH.My.MySettings.Default, "spltSupplies", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.spltSupplies.Location = Global.MCSUPPLYWATCH.My.MySettings.Default.spltSupplies + Me.spltSupplies.Name = "spltSupplies" + Me.spltSupplies.Size = New System.Drawing.Size(3, 459) + Me.spltSupplies.TabIndex = 3 + Me.spltSupplies.TabStop = False + ' + 'tpGeraete + ' + Me.tpGeraete.Controls.Add(Me.SCGeraete_Uebersicht) + Me.tpGeraete.Controls.Add(Me.spltGeraete_uebersicht) + Me.tpGeraete.Controls.Add(Me.TBGERAETBindingNavigator) + Me.tpGeraete.Location = New System.Drawing.Point(4, 22) + Me.tpGeraete.Name = "tpGeraete" + Me.tpGeraete.Padding = New System.Windows.Forms.Padding(3) + Me.tpGeraete.Size = New System.Drawing.Size(1289, 465) + Me.tpGeraete.TabIndex = 1 + Me.tpGeraete.Text = "Geräte-Übersicht" + Me.tpGeraete.UseVisualStyleBackColor = True + ' + 'SCGeraete_Uebersicht + ' + Me.SCGeraete_Uebersicht.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.MCSUPPLYWATCH.My.MySettings.Default, "SpDGeraete", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SCGeraete_Uebersicht.Dock = System.Windows.Forms.DockStyle.Fill + Me.SCGeraete_Uebersicht.Location = New System.Drawing.Point(6, 28) + Me.SCGeraete_Uebersicht.Name = "SCGeraete_Uebersicht" + Me.SCGeraete_Uebersicht.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SCGeraete_Uebersicht.Panel1 + ' + Me.SCGeraete_Uebersicht.Panel1.Controls.Add(Me.SplitContainerGeraet) + ' + 'SCGeraete_Uebersicht.Panel2 + ' + Me.SCGeraete_Uebersicht.Panel2.AutoScroll = True + Me.SCGeraete_Uebersicht.Panel2.Controls.Add(Me.SplitContainerSupplies) + Me.SCGeraete_Uebersicht.Panel2.Controls.Add(Me.VWSUPPLIES_GERAETBindingNavigator) + Me.SCGeraete_Uebersicht.Size = New System.Drawing.Size(1280, 434) + Me.SCGeraete_Uebersicht.SplitterDistance = Global.MCSUPPLYWATCH.My.MySettings.Default.SpDGeraete + Me.SCGeraete_Uebersicht.TabIndex = 5 + ' + 'SplitContainerGeraet + ' + Me.SplitContainerGeraet.Collapsed = True + Me.SplitContainerGeraet.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitContainerGeraet.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerGeraet.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerGeraet.Name = "SplitContainerGeraet" + Me.SplitContainerGeraet.Panel1.Controls.Add(Me.GridControlGeraete) + Me.SplitContainerGeraet.Panel1.Text = "Panel1" + Me.SplitContainerGeraet.Panel2.Controls.Add(Me.TBCHANGE_LOG_GERAETDataGridView) + Me.SplitContainerGeraet.Panel2.Controls.Add(Me.BindingNavigator1) + Me.SplitContainerGeraet.Panel2.Text = "Panel2" + Me.SplitContainerGeraet.Size = New System.Drawing.Size(1280, 308) + Me.SplitContainerGeraet.SplitterPosition = 910 + Me.SplitContainerGeraet.TabIndex = 6 + Me.SplitContainerGeraet.Text = "SplitContainerControl1" + ' + 'GridControlGeraete + ' + Me.GridControlGeraete.DataSource = Me.TBGERAETBindingSource + Me.GridControlGeraete.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlGeraete.Location = New System.Drawing.Point(0, 0) + Me.GridControlGeraete.MainView = Me.GridViewGeraete + Me.GridControlGeraete.Name = "GridControlGeraete" + Me.GridControlGeraete.Size = New System.Drawing.Size(1275, 308) + Me.GridControlGeraete.TabIndex = 5 + Me.GridControlGeraete.UseEmbeddedNavigator = True + Me.GridControlGeraete.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewGeraete}) + ' + 'TBGERAETBindingSource + ' + Me.TBGERAETBindingSource.DataMember = "TBGERAET" + Me.TBGERAETBindingSource.DataSource = Me.MyDataset + ' + 'GridViewGeraete + ' + Me.GridViewGeraete.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridViewGeraete.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewGeraete.Appearance.OddRow.BackColor = System.Drawing.Color.White + Me.GridViewGeraete.Appearance.OddRow.Options.UseBackColor = True + Me.GridViewGeraete.Appearance.SelectedRow.BackColor = System.Drawing.Color.Magenta + Me.GridViewGeraete.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewGeraete.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GUID, Me.colBEZEICHNUNG, Me.colIP_ADRESSE, Me.colSERIENNR, Me.colMODEL_NR, Me.colMARKT2, Me.colPAGE_COUNT, Me.colPPM, Me.colERFASSTWANN, Me.colGEAENDERTWANN, Me.colGEAENDERTWER, Me.colBESTELLUNG, Me.colMARKER, Me.colPC_INITIAL, Me.colDATE_INITIAL, Me.colUMGEZOGEN, Me.colVERTRAGSNR, Me.colONHOLD, Me.colONHOLD_DATE, Me.colMELDEDATUM, Me.colNICHT_AKTIV, Me.colABGEBAUT}) + Me.GridViewGeraete.GridControl = Me.GridControlGeraete + Me.GridViewGeraete.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always + Me.GridViewGeraete.Name = "GridViewGeraete" + Me.GridViewGeraete.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewGeraete.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewGeraete.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewGeraete.OptionsSelection.MultiSelect = True + Me.GridViewGeraete.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewGeraete.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewGeraete.OptionsView.EnableAppearanceOddRow = True + Me.GridViewGeraete.OptionsView.ShowAutoFilterRow = True + Me.GridViewGeraete.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always + ' + 'GUID + ' + Me.GUID.Caption = "ID" + Me.GUID.FieldName = "GUID" + Me.GUID.Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left + Me.GUID.Name = "GUID" + Me.GUID.OptionsColumn.AllowEdit = False + Me.GUID.Visible = True + Me.GUID.VisibleIndex = 0 + ' + 'colBEZEICHNUNG + ' + Me.colBEZEICHNUNG.Caption = "Bezeichnung" + Me.colBEZEICHNUNG.FieldName = "BEZEICHNUNG" + Me.colBEZEICHNUNG.Name = "colBEZEICHNUNG" + Me.colBEZEICHNUNG.OptionsColumn.AllowEdit = False + Me.colBEZEICHNUNG.Visible = True + Me.colBEZEICHNUNG.VisibleIndex = 1 + ' + 'colIP_ADRESSE + ' + Me.colIP_ADRESSE.Caption = "IP" + Me.colIP_ADRESSE.FieldName = "IP_ADRESSE" + Me.colIP_ADRESSE.Name = "colIP_ADRESSE" + Me.colIP_ADRESSE.OptionsColumn.AllowEdit = False + Me.colIP_ADRESSE.Visible = True + Me.colIP_ADRESSE.VisibleIndex = 2 + ' + 'colSERIENNR + ' + Me.colSERIENNR.Caption = "SerienNr" + Me.colSERIENNR.FieldName = "SERIENNR" + Me.colSERIENNR.Name = "colSERIENNR" + Me.colSERIENNR.OptionsColumn.AllowEdit = False + Me.colSERIENNR.Visible = True + Me.colSERIENNR.VisibleIndex = 3 + ' + 'colMODEL_NR + ' + Me.colMODEL_NR.Caption = "Model Nr" + Me.colMODEL_NR.FieldName = "MODEL_NR" + Me.colMODEL_NR.Name = "colMODEL_NR" + Me.colMODEL_NR.OptionsColumn.AllowEdit = False + Me.colMODEL_NR.Visible = True + Me.colMODEL_NR.VisibleIndex = 4 + ' + 'colMARKT2 + ' + Me.colMARKT2.Caption = "Markt" + Me.colMARKT2.FieldName = "MARKT" + Me.colMARKT2.Name = "colMARKT2" + Me.colMARKT2.OptionsColumn.AllowEdit = False + Me.colMARKT2.Visible = True + Me.colMARKT2.VisibleIndex = 5 + ' + 'colPAGE_COUNT + ' + Me.colPAGE_COUNT.Caption = "Page Count" + Me.colPAGE_COUNT.FieldName = "PAGE_COUNT" + Me.colPAGE_COUNT.Name = "colPAGE_COUNT" + Me.colPAGE_COUNT.OptionsColumn.AllowEdit = False + Me.colPAGE_COUNT.Visible = True + Me.colPAGE_COUNT.VisibleIndex = 6 + ' + 'colPPM + ' + Me.colPPM.Caption = "PPM" + Me.colPPM.FieldName = "PPM" + Me.colPPM.Name = "colPPM" + Me.colPPM.OptionsColumn.AllowEdit = False + Me.colPPM.Visible = True + Me.colPPM.VisibleIndex = 7 + ' + 'colERFASSTWANN + ' + Me.colERFASSTWANN.Caption = "Erfasst wann" + Me.colERFASSTWANN.FieldName = "ERFASSTWANN" + Me.colERFASSTWANN.Name = "colERFASSTWANN" + Me.colERFASSTWANN.OptionsColumn.AllowEdit = False + Me.colERFASSTWANN.Visible = True + Me.colERFASSTWANN.VisibleIndex = 8 + ' + 'colGEAENDERTWANN + ' + Me.colGEAENDERTWANN.Caption = "Geändert wann" + Me.colGEAENDERTWANN.FieldName = "GEAENDERTWANN" + Me.colGEAENDERTWANN.Name = "colGEAENDERTWANN" + Me.colGEAENDERTWANN.OptionsColumn.AllowEdit = False + Me.colGEAENDERTWANN.Visible = True + Me.colGEAENDERTWANN.VisibleIndex = 9 + ' + 'colGEAENDERTWER + ' + Me.colGEAENDERTWER.Caption = "Geändert wer" + Me.colGEAENDERTWER.FieldName = "GEAENDERTWER" + Me.colGEAENDERTWER.Name = "colGEAENDERTWER" + Me.colGEAENDERTWER.OptionsColumn.AllowEdit = False + Me.colGEAENDERTWER.Visible = True + Me.colGEAENDERTWER.VisibleIndex = 10 + ' + 'colBESTELLUNG + ' + Me.colBESTELLUNG.Caption = "in Bestellung" + Me.colBESTELLUNG.FieldName = "BESTELLUNG" + Me.colBESTELLUNG.Name = "colBESTELLUNG" + Me.colBESTELLUNG.OptionsColumn.AllowEdit = False + Me.colBESTELLUNG.Visible = True + Me.colBESTELLUNG.VisibleIndex = 11 + ' + 'colMARKER + ' + Me.colMARKER.Caption = "Marker" + Me.colMARKER.FieldName = "MARKER" + Me.colMARKER.Name = "colMARKER" + Me.colMARKER.OptionsColumn.AllowEdit = False + Me.colMARKER.Visible = True + Me.colMARKER.VisibleIndex = 12 + ' + 'colPC_INITIAL + ' + Me.colPC_INITIAL.Caption = "PC Initial" + Me.colPC_INITIAL.FieldName = "PC_INITIAL" + Me.colPC_INITIAL.Name = "colPC_INITIAL" + Me.colPC_INITIAL.OptionsColumn.AllowEdit = False + Me.colPC_INITIAL.Visible = True + Me.colPC_INITIAL.VisibleIndex = 13 + ' + 'colDATE_INITIAL + ' + Me.colDATE_INITIAL.Caption = "Date Initial" + Me.colDATE_INITIAL.FieldName = "DATE_INITIAL" + Me.colDATE_INITIAL.Name = "colDATE_INITIAL" + Me.colDATE_INITIAL.OptionsColumn.AllowEdit = False + Me.colDATE_INITIAL.Visible = True + Me.colDATE_INITIAL.VisibleIndex = 14 + ' + 'colUMGEZOGEN + ' + Me.colUMGEZOGEN.Caption = "Umgezogen" + Me.colUMGEZOGEN.FieldName = "UMGEZOGEN" + Me.colUMGEZOGEN.Name = "colUMGEZOGEN" + Me.colUMGEZOGEN.OptionsColumn.AllowEdit = False + Me.colUMGEZOGEN.Visible = True + Me.colUMGEZOGEN.VisibleIndex = 15 + ' + 'colVERTRAGSNR + ' + Me.colVERTRAGSNR.Caption = "Vertrag" + Me.colVERTRAGSNR.FieldName = "VERTRAGSNR" + Me.colVERTRAGSNR.Name = "colVERTRAGSNR" + Me.colVERTRAGSNR.OptionsColumn.AllowEdit = False + Me.colVERTRAGSNR.Visible = True + Me.colVERTRAGSNR.VisibleIndex = 16 + ' + 'colONHOLD + ' + Me.colONHOLD.Caption = "OnHold" + Me.colONHOLD.FieldName = "ONHOLD" + Me.colONHOLD.Name = "colONHOLD" + Me.colONHOLD.OptionsColumn.AllowEdit = False + Me.colONHOLD.Visible = True + Me.colONHOLD.VisibleIndex = 17 + ' + 'colONHOLD_DATE + ' + Me.colONHOLD_DATE.Caption = "OnHold Date" + Me.colONHOLD_DATE.FieldName = "ONHOLD_DATE" + Me.colONHOLD_DATE.Name = "colONHOLD_DATE" + Me.colONHOLD_DATE.OptionsColumn.AllowEdit = False + Me.colONHOLD_DATE.Visible = True + Me.colONHOLD_DATE.VisibleIndex = 18 + ' + 'colMELDEDATUM + ' + Me.colMELDEDATUM.Caption = "Meldedatum" + Me.colMELDEDATUM.FieldName = "MELDEDATUM" + Me.colMELDEDATUM.Name = "colMELDEDATUM" + Me.colMELDEDATUM.OptionsColumn.AllowEdit = False + Me.colMELDEDATUM.Visible = True + Me.colMELDEDATUM.VisibleIndex = 19 + ' + 'colNICHT_AKTIV + ' + Me.colNICHT_AKTIV.Caption = "Nicht aktiv" + Me.colNICHT_AKTIV.FieldName = "NICHT_AKTIV" + Me.colNICHT_AKTIV.Name = "colNICHT_AKTIV" + Me.colNICHT_AKTIV.OptionsColumn.AllowEdit = False + Me.colNICHT_AKTIV.Visible = True + Me.colNICHT_AKTIV.VisibleIndex = 20 + ' + 'colABGEBAUT + ' + Me.colABGEBAUT.Caption = "Abgebaut" + Me.colABGEBAUT.FieldName = "ABGEBAUT" + Me.colABGEBAUT.Name = "colABGEBAUT" + Me.colABGEBAUT.OptionsColumn.AllowEdit = False + Me.colABGEBAUT.Visible = True + Me.colABGEBAUT.VisibleIndex = 21 + ' + 'TBCHANGE_LOG_GERAETDataGridView + ' + Me.TBCHANGE_LOG_GERAETDataGridView.AllowUserToAddRows = False + Me.TBCHANGE_LOG_GERAETDataGridView.AllowUserToDeleteRows = False + DataGridViewCellStyle4.BackColor = System.Drawing.Color.Cyan + Me.TBCHANGE_LOG_GERAETDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 + Me.TBCHANGE_LOG_GERAETDataGridView.AutoGenerateColumns = False + Me.TBCHANGE_LOG_GERAETDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.TBCHANGE_LOG_GERAETDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn4, Me.ERFASSTWANN}) + Me.TBCHANGE_LOG_GERAETDataGridView.DataSource = Me.TBCHANGE_LOG_GERAETBindingSource + Me.TBCHANGE_LOG_GERAETDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.TBCHANGE_LOG_GERAETDataGridView.Location = New System.Drawing.Point(0, 25) + Me.TBCHANGE_LOG_GERAETDataGridView.Name = "TBCHANGE_LOG_GERAETDataGridView" + Me.TBCHANGE_LOG_GERAETDataGridView.ReadOnly = True + Me.TBCHANGE_LOG_GERAETDataGridView.Size = New System.Drawing.Size(0, 0) + Me.TBCHANGE_LOG_GERAETDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "GUID" + Me.DataGridViewTextBoxColumn2.HeaderText = "ID" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + Me.DataGridViewTextBoxColumn2.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.DataGridViewTextBoxColumn2.Width = 50 + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "MELDUNG" + Me.DataGridViewTextBoxColumn4.HeaderText = "Change Meldung" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + Me.DataGridViewTextBoxColumn4.Width = 300 + ' + 'ERFASSTWANN + ' + Me.ERFASSTWANN.DataPropertyName = "ERFASSTWANN" + Me.ERFASSTWANN.HeaderText = "Erfasst wann" + Me.ERFASSTWANN.Name = "ERFASSTWANN" + Me.ERFASSTWANN.ReadOnly = True + ' + 'TBCHANGE_LOG_GERAETBindingSource + ' + Me.TBCHANGE_LOG_GERAETBindingSource.DataMember = "TBCHANGE_LOG_GERAET" + Me.TBCHANGE_LOG_GERAETBindingSource.DataSource = Me.MyDataset + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem7 + Me.BindingNavigator1.CountItemFormat = "von {0} Changelogs" + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem7, Me.BindingNavigatorMovePreviousItem7, Me.BindingNavigatorSeparator21, Me.BindingNavigatorPositionItem7, Me.BindingNavigatorCountItem7, Me.BindingNavigatorSeparator22, Me.BindingNavigatorMoveNextItem7, Me.BindingNavigatorMoveLastItem7, Me.BindingNavigatorSeparator23}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem7 + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem7 + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem7 + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem7 + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem7 + Me.BindingNavigator1.Size = New System.Drawing.Size(0, 25) + Me.BindingNavigator1.TabIndex = 0 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem7 + ' + Me.BindingNavigatorCountItem7.Name = "BindingNavigatorCountItem7" + Me.BindingNavigatorCountItem7.Size = New System.Drawing.Size(110, 15) + Me.BindingNavigatorCountItem7.Text = "von {0} Changelogs" + Me.BindingNavigatorCountItem7.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem7 + ' + Me.BindingNavigatorMoveFirstItem7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem7.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem7.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem7.Name = "BindingNavigatorMoveFirstItem7" + Me.BindingNavigatorMoveFirstItem7.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem7.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveFirstItem7.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem7 + ' + Me.BindingNavigatorMovePreviousItem7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem7.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem7.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem7.Name = "BindingNavigatorMovePreviousItem7" + Me.BindingNavigatorMovePreviousItem7.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem7.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMovePreviousItem7.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator21 + ' + Me.BindingNavigatorSeparator21.Name = "BindingNavigatorSeparator21" + Me.BindingNavigatorSeparator21.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem7 + ' + Me.BindingNavigatorPositionItem7.AccessibleName = "Position" + Me.BindingNavigatorPositionItem7.AutoSize = False + Me.BindingNavigatorPositionItem7.Name = "BindingNavigatorPositionItem7" + Me.BindingNavigatorPositionItem7.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem7.Text = "0" + Me.BindingNavigatorPositionItem7.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator22 + ' + Me.BindingNavigatorSeparator22.Name = "BindingNavigatorSeparator22" + Me.BindingNavigatorSeparator22.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem7 + ' + Me.BindingNavigatorMoveNextItem7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem7.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem7.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem7.Name = "BindingNavigatorMoveNextItem7" + Me.BindingNavigatorMoveNextItem7.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem7.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveNextItem7.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem7 + ' + Me.BindingNavigatorMoveLastItem7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem7.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem7.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem7.Name = "BindingNavigatorMoveLastItem7" + Me.BindingNavigatorMoveLastItem7.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem7.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveLastItem7.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator23 + ' + Me.BindingNavigatorSeparator23.Name = "BindingNavigatorSeparator23" + Me.BindingNavigatorSeparator23.Size = New System.Drawing.Size(6, 25) + ' + 'SplitContainerSupplies + ' + Me.SplitContainerSupplies.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.MCSUPPLYWATCH.My.MySettings.Default, "SplitContainerSupplies_SD", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SplitContainerSupplies.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerSupplies.Location = New System.Drawing.Point(0, 25) + Me.SplitContainerSupplies.Name = "SplitContainerSupplies" + ' + 'SplitContainerSupplies.Panel1 + ' + Me.SplitContainerSupplies.Panel1.Controls.Add(Me.VWSUPPLIES_AKTUELLDataGridView) + ' + 'SplitContainerSupplies.Panel2 + ' + Me.SplitContainerSupplies.Panel2.Controls.Add(Me.DataGridView1) + Me.SplitContainerSupplies.Panel2.Controls.Add(Me.BindingNavigator2) + Me.SplitContainerSupplies.Size = New System.Drawing.Size(1280, 97) + Me.SplitContainerSupplies.SplitterDistance = Global.MCSUPPLYWATCH.My.MySettings.Default.SplitContainerSupplies_SD + Me.SplitContainerSupplies.TabIndex = 3 + ' + 'VWSUPPLIES_AKTUELLDataGridView + ' + Me.VWSUPPLIES_AKTUELLDataGridView.AllowUserToAddRows = False + Me.VWSUPPLIES_AKTUELLDataGridView.AllowUserToDeleteRows = False + Me.VWSUPPLIES_AKTUELLDataGridView.AllowUserToOrderColumns = True + DataGridViewCellStyle5.BackColor = System.Drawing.Color.Yellow + Me.VWSUPPLIES_AKTUELLDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 + Me.VWSUPPLIES_AKTUELLDataGridView.AutoGenerateColumns = False + Me.VWSUPPLIES_AKTUELLDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.VWSUPPLIES_AKTUELLDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.VWSUPPLIES_AKTUELLDataGridViewSupplyID, Me.DataGridViewTextBoxColumn38, Me.DataGridViewTextBoxColumn39, Me.DataGridViewTextBoxColumn40, Me.DataGridViewTextBoxColumn41, Me.DataGridViewTextBoxColumn42, Me.DataGridViewTextBoxColumn44, Me.DataGridViewTextBoxColumn50, Me.DataGridViewTextBoxColumn49, Me.VWSUPPLIES_AKTUELLDataGridViewOnHold, Me.DataGridViewTextBoxColumn51, Me.DataGridViewTextBoxColumn45, Me.DataGridViewTextBoxColumn46, Me.DataGridViewTextBoxColumn47}) + Me.VWSUPPLIES_AKTUELLDataGridView.DataSource = Me.VWSUPPLIES_GERAETBindingSource + Me.VWSUPPLIES_AKTUELLDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.VWSUPPLIES_AKTUELLDataGridView.Location = New System.Drawing.Point(0, 0) + Me.VWSUPPLIES_AKTUELLDataGridView.Name = "VWSUPPLIES_AKTUELLDataGridView" + Me.VWSUPPLIES_AKTUELLDataGridView.ReadOnly = True + Me.VWSUPPLIES_AKTUELLDataGridView.Size = New System.Drawing.Size(746, 97) + Me.VWSUPPLIES_AKTUELLDataGridView.TabIndex = 2 + ' + 'VWSUPPLIES_AKTUELLDataGridViewSupplyID + ' + Me.VWSUPPLIES_AKTUELLDataGridViewSupplyID.DataPropertyName = "SUPPLY_ID" + Me.VWSUPPLIES_AKTUELLDataGridViewSupplyID.HeaderText = "Supply ID" + Me.VWSUPPLIES_AKTUELLDataGridViewSupplyID.Name = "VWSUPPLIES_AKTUELLDataGridViewSupplyID" + Me.VWSUPPLIES_AKTUELLDataGridViewSupplyID.ReadOnly = True + ' + 'DataGridViewTextBoxColumn38 + ' + Me.DataGridViewTextBoxColumn38.DataPropertyName = "SUPPLY_BEZ" + Me.DataGridViewTextBoxColumn38.HeaderText = "Bezeichnung" + Me.DataGridViewTextBoxColumn38.Name = "DataGridViewTextBoxColumn38" + Me.DataGridViewTextBoxColumn38.ReadOnly = True + ' + 'DataGridViewTextBoxColumn39 + ' + Me.DataGridViewTextBoxColumn39.DataPropertyName = "LEVEL" + Me.DataGridViewTextBoxColumn39.HeaderText = "Level" + Me.DataGridViewTextBoxColumn39.Name = "DataGridViewTextBoxColumn39" + Me.DataGridViewTextBoxColumn39.ReadOnly = True + ' + 'DataGridViewTextBoxColumn40 + ' + Me.DataGridViewTextBoxColumn40.DataPropertyName = "SCHWELLENWERT" + Me.DataGridViewTextBoxColumn40.HeaderText = "Schwelle" + Me.DataGridViewTextBoxColumn40.Name = "DataGridViewTextBoxColumn40" + Me.DataGridViewTextBoxColumn40.ReadOnly = True + ' + 'DataGridViewTextBoxColumn41 + ' + Me.DataGridViewTextBoxColumn41.DataPropertyName = "PARTNUMBER" + Me.DataGridViewTextBoxColumn41.HeaderText = "Partnumber" + Me.DataGridViewTextBoxColumn41.Name = "DataGridViewTextBoxColumn41" + Me.DataGridViewTextBoxColumn41.ReadOnly = True + ' + 'DataGridViewTextBoxColumn42 + ' + Me.DataGridViewTextBoxColumn42.DataPropertyName = "SERIENNR" + Me.DataGridViewTextBoxColumn42.HeaderText = "Seriennr" + Me.DataGridViewTextBoxColumn42.Name = "DataGridViewTextBoxColumn42" + Me.DataGridViewTextBoxColumn42.ReadOnly = True + ' + 'DataGridViewTextBoxColumn44 + ' + Me.DataGridViewTextBoxColumn44.DataPropertyName = "STATUS" + Me.DataGridViewTextBoxColumn44.HeaderText = "Status" + Me.DataGridViewTextBoxColumn44.Name = "DataGridViewTextBoxColumn44" + Me.DataGridViewTextBoxColumn44.ReadOnly = True + ' + 'DataGridViewTextBoxColumn50 + ' + Me.DataGridViewTextBoxColumn50.DataPropertyName = "STATUS_WER" + Me.DataGridViewTextBoxColumn50.HeaderText = "Status wer" + Me.DataGridViewTextBoxColumn50.Name = "DataGridViewTextBoxColumn50" + Me.DataGridViewTextBoxColumn50.ReadOnly = True + ' + 'DataGridViewTextBoxColumn49 + ' + Me.DataGridViewTextBoxColumn49.DataPropertyName = "STATUS_WANN" + Me.DataGridViewTextBoxColumn49.HeaderText = "Status wann" + Me.DataGridViewTextBoxColumn49.Name = "DataGridViewTextBoxColumn49" + Me.DataGridViewTextBoxColumn49.ReadOnly = True + ' + 'VWSUPPLIES_AKTUELLDataGridViewOnHold + ' + Me.VWSUPPLIES_AKTUELLDataGridViewOnHold.DataPropertyName = "ON_HOLD" + Me.VWSUPPLIES_AKTUELLDataGridViewOnHold.HeaderText = "OnHold" + Me.VWSUPPLIES_AKTUELLDataGridViewOnHold.Name = "VWSUPPLIES_AKTUELLDataGridViewOnHold" + Me.VWSUPPLIES_AKTUELLDataGridViewOnHold.ReadOnly = True + ' + 'DataGridViewTextBoxColumn51 + ' + Me.DataGridViewTextBoxColumn51.DataPropertyName = "OH_DATE" + Me.DataGridViewTextBoxColumn51.HeaderText = "OnHold Date" + Me.DataGridViewTextBoxColumn51.Name = "DataGridViewTextBoxColumn51" + Me.DataGridViewTextBoxColumn51.ReadOnly = True + ' + 'DataGridViewTextBoxColumn45 + ' + Me.DataGridViewTextBoxColumn45.DataPropertyName = "ERFASSTWANN" + Me.DataGridViewTextBoxColumn45.HeaderText = "Erfasst wann" + Me.DataGridViewTextBoxColumn45.Name = "DataGridViewTextBoxColumn45" + Me.DataGridViewTextBoxColumn45.ReadOnly = True + ' + 'DataGridViewTextBoxColumn46 + ' + Me.DataGridViewTextBoxColumn46.DataPropertyName = "GEAENDERTWER" + Me.DataGridViewTextBoxColumn46.HeaderText = "Geändert wer" + Me.DataGridViewTextBoxColumn46.Name = "DataGridViewTextBoxColumn46" + Me.DataGridViewTextBoxColumn46.ReadOnly = True + ' + 'DataGridViewTextBoxColumn47 + ' + Me.DataGridViewTextBoxColumn47.DataPropertyName = "GEAENDERTWANN" + Me.DataGridViewTextBoxColumn47.HeaderText = "Geändert wann" + Me.DataGridViewTextBoxColumn47.Name = "DataGridViewTextBoxColumn47" + Me.DataGridViewTextBoxColumn47.ReadOnly = True + ' + 'VWSUPPLIES_GERAETBindingSource + ' + Me.VWSUPPLIES_GERAETBindingSource.DataMember = "VWSUPPLIES_AKTUELL" + Me.VWSUPPLIES_GERAETBindingSource.DataSource = Me.MyDataset + ' + 'DataGridView1 + ' + Me.DataGridView1.AllowUserToAddRows = False + Me.DataGridView1.AllowUserToDeleteRows = False + DataGridViewCellStyle6.BackColor = System.Drawing.Color.Lime + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 + Me.DataGridView1.AutoGenerateColumns = False + Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.MeldedatumDataGridViewTextBoxColumn, Me.StatusDataGridViewTextBoxColumn, Me.MarkerDataGridViewTextBoxColumn, Me.ErfasstWannDataGridViewTextBoxColumn}) + Me.DataGridView1.DataSource = Me.ViewSUPPLY_STATUS_VERFOLGUNGBindingSource + Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView1.Location = New System.Drawing.Point(0, 25) + Me.DataGridView1.Name = "DataGridView1" + Me.DataGridView1.Size = New System.Drawing.Size(530, 72) + Me.DataGridView1.TabIndex = 1 + ' + 'MeldedatumDataGridViewTextBoxColumn + ' + Me.MeldedatumDataGridViewTextBoxColumn.DataPropertyName = "Meldedatum" + Me.MeldedatumDataGridViewTextBoxColumn.HeaderText = "Meldedatum" + Me.MeldedatumDataGridViewTextBoxColumn.Name = "MeldedatumDataGridViewTextBoxColumn" + Me.MeldedatumDataGridViewTextBoxColumn.Width = 75 + ' + 'StatusDataGridViewTextBoxColumn + ' + Me.StatusDataGridViewTextBoxColumn.DataPropertyName = "Status" + Me.StatusDataGridViewTextBoxColumn.HeaderText = "Status" + Me.StatusDataGridViewTextBoxColumn.Name = "StatusDataGridViewTextBoxColumn" + Me.StatusDataGridViewTextBoxColumn.Width = 90 + ' + 'MarkerDataGridViewTextBoxColumn + ' + Me.MarkerDataGridViewTextBoxColumn.DataPropertyName = "Marker" + Me.MarkerDataGridViewTextBoxColumn.HeaderText = "Marker" + Me.MarkerDataGridViewTextBoxColumn.Name = "MarkerDataGridViewTextBoxColumn" + Me.MarkerDataGridViewTextBoxColumn.Width = 200 + ' + 'ErfasstWannDataGridViewTextBoxColumn + ' + Me.ErfasstWannDataGridViewTextBoxColumn.DataPropertyName = "Erfasst wann" + Me.ErfasstWannDataGridViewTextBoxColumn.HeaderText = "Erfasst wann" + Me.ErfasstWannDataGridViewTextBoxColumn.Name = "ErfasstWannDataGridViewTextBoxColumn" + Me.ErfasstWannDataGridViewTextBoxColumn.Width = 85 + ' + 'ViewSUPPLY_STATUS_VERFOLGUNGBindingSource + ' + Me.ViewSUPPLY_STATUS_VERFOLGUNGBindingSource.DataMember = "ViewSUPPLY_STATUS_VERFOLGUNG" + Me.ViewSUPPLY_STATUS_VERFOLGUNGBindingSource.DataSource = Me.MyDataset + ' + 'BindingNavigator2 + ' + Me.BindingNavigator2.AddNewItem = Nothing + Me.BindingNavigator2.BindingSource = Me.ViewSUPPLY_STATUS_VERFOLGUNGBindingSource + Me.BindingNavigator2.CountItem = Me.BindingNavigatorCountItem9 + Me.BindingNavigator2.CountItemFormat = "von {0} Meldesätzen" + Me.BindingNavigator2.DeleteItem = Nothing + Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem9, Me.BindingNavigatorMovePreviousItem9, Me.BindingNavigatorSeparator27, Me.BindingNavigatorPositionItem9, Me.BindingNavigatorCountItem9, Me.BindingNavigatorSeparator28, Me.BindingNavigatorMoveNextItem9, Me.BindingNavigatorMoveLastItem9, Me.BindingNavigatorSeparator29}) + Me.BindingNavigator2.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigator2.MoveFirstItem = Me.BindingNavigatorMoveFirstItem9 + Me.BindingNavigator2.MoveLastItem = Me.BindingNavigatorMoveLastItem9 + Me.BindingNavigator2.MoveNextItem = Me.BindingNavigatorMoveNextItem9 + Me.BindingNavigator2.MovePreviousItem = Me.BindingNavigatorMovePreviousItem9 + Me.BindingNavigator2.Name = "BindingNavigator2" + Me.BindingNavigator2.PositionItem = Me.BindingNavigatorPositionItem9 + Me.BindingNavigator2.Size = New System.Drawing.Size(530, 25) + Me.BindingNavigator2.TabIndex = 0 + Me.BindingNavigator2.Text = "BindingNavigator2" + ' + 'BindingNavigatorCountItem9 + ' + Me.BindingNavigatorCountItem9.Name = "BindingNavigatorCountItem9" + Me.BindingNavigatorCountItem9.Size = New System.Drawing.Size(113, 22) + Me.BindingNavigatorCountItem9.Text = "von {0} Meldesätzen" + Me.BindingNavigatorCountItem9.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem9 + ' + Me.BindingNavigatorMoveFirstItem9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem9.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem9.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem9.Name = "BindingNavigatorMoveFirstItem9" + Me.BindingNavigatorMoveFirstItem9.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem9.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem9.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem9 + ' + Me.BindingNavigatorMovePreviousItem9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem9.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem9.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem9.Name = "BindingNavigatorMovePreviousItem9" + Me.BindingNavigatorMovePreviousItem9.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem9.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem9.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator27 + ' + Me.BindingNavigatorSeparator27.Name = "BindingNavigatorSeparator27" + Me.BindingNavigatorSeparator27.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem9 + ' + Me.BindingNavigatorPositionItem9.AccessibleName = "Position" + Me.BindingNavigatorPositionItem9.AutoSize = False + Me.BindingNavigatorPositionItem9.Name = "BindingNavigatorPositionItem9" + Me.BindingNavigatorPositionItem9.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem9.Text = "0" + Me.BindingNavigatorPositionItem9.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator28 + ' + Me.BindingNavigatorSeparator28.Name = "BindingNavigatorSeparator28" + Me.BindingNavigatorSeparator28.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem9 + ' + Me.BindingNavigatorMoveNextItem9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem9.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem9.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem9.Name = "BindingNavigatorMoveNextItem9" + Me.BindingNavigatorMoveNextItem9.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem9.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem9.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem9 + ' + Me.BindingNavigatorMoveLastItem9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem9.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem9.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem9.Name = "BindingNavigatorMoveLastItem9" + Me.BindingNavigatorMoveLastItem9.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem9.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem9.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator29 + ' + Me.BindingNavigatorSeparator29.Name = "BindingNavigatorSeparator29" + Me.BindingNavigatorSeparator29.Size = New System.Drawing.Size(6, 25) + ' + 'VWSUPPLIES_GERAETBindingNavigator + ' + Me.VWSUPPLIES_GERAETBindingNavigator.AddNewItem = Nothing + Me.VWSUPPLIES_GERAETBindingNavigator.BindingSource = Me.VWSUPPLIES_GERAETBindingSource + Me.VWSUPPLIES_GERAETBindingNavigator.CountItem = Me.BindingNavigatorCountItem8 + Me.VWSUPPLIES_GERAETBindingNavigator.CountItemFormat = "von {0} Supplies" + Me.VWSUPPLIES_GERAETBindingNavigator.DeleteItem = Nothing + Me.VWSUPPLIES_GERAETBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem8, Me.BindingNavigatorMovePreviousItem8, Me.BindingNavigatorSeparator24, Me.BindingNavigatorPositionItem8, Me.BindingNavigatorCountItem8, Me.BindingNavigatorSeparator25, Me.BindingNavigatorMoveNextItem8, Me.BindingNavigatorMoveLastItem8, Me.BindingNavigatorSeparator26, Me.tsbtnSuppliesSetStatusOnHold, Me.tsbtnChangebestellt}) + Me.VWSUPPLIES_GERAETBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.VWSUPPLIES_GERAETBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem8 + Me.VWSUPPLIES_GERAETBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem8 + Me.VWSUPPLIES_GERAETBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem8 + Me.VWSUPPLIES_GERAETBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem8 + Me.VWSUPPLIES_GERAETBindingNavigator.Name = "VWSUPPLIES_GERAETBindingNavigator" + Me.VWSUPPLIES_GERAETBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem8 + Me.VWSUPPLIES_GERAETBindingNavigator.Size = New System.Drawing.Size(1280, 25) + Me.VWSUPPLIES_GERAETBindingNavigator.TabIndex = 1 + Me.VWSUPPLIES_GERAETBindingNavigator.Text = "BindingNavigator2" + ' + 'BindingNavigatorCountItem8 + ' + Me.BindingNavigatorCountItem8.Name = "BindingNavigatorCountItem8" + Me.BindingNavigatorCountItem8.Size = New System.Drawing.Size(91, 22) + Me.BindingNavigatorCountItem8.Text = "von {0} Supplies" + Me.BindingNavigatorCountItem8.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem8 + ' + Me.BindingNavigatorMoveFirstItem8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem8.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem8.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem8.Name = "BindingNavigatorMoveFirstItem8" + Me.BindingNavigatorMoveFirstItem8.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem8.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem8.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem8 + ' + Me.BindingNavigatorMovePreviousItem8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem8.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem8.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem8.Name = "BindingNavigatorMovePreviousItem8" + Me.BindingNavigatorMovePreviousItem8.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem8.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem8.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator24 + ' + Me.BindingNavigatorSeparator24.Name = "BindingNavigatorSeparator24" + Me.BindingNavigatorSeparator24.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem8 + ' + Me.BindingNavigatorPositionItem8.AccessibleName = "Position" + Me.BindingNavigatorPositionItem8.AutoSize = False + Me.BindingNavigatorPositionItem8.Name = "BindingNavigatorPositionItem8" + Me.BindingNavigatorPositionItem8.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem8.Text = "0" + Me.BindingNavigatorPositionItem8.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator25 + ' + Me.BindingNavigatorSeparator25.Name = "BindingNavigatorSeparator25" + Me.BindingNavigatorSeparator25.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem8 + ' + Me.BindingNavigatorMoveNextItem8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem8.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem8.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem8.Name = "BindingNavigatorMoveNextItem8" + Me.BindingNavigatorMoveNextItem8.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem8.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem8.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem8 + ' + Me.BindingNavigatorMoveLastItem8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem8.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem8.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem8.Name = "BindingNavigatorMoveLastItem8" + Me.BindingNavigatorMoveLastItem8.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem8.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem8.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator26 + ' + Me.BindingNavigatorSeparator26.Name = "BindingNavigatorSeparator26" + Me.BindingNavigatorSeparator26.Size = New System.Drawing.Size(6, 25) + ' + 'tsbtnSuppliesSetStatusOnHold + ' + Me.tsbtnSuppliesSetStatusOnHold.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.Beenden2 + Me.tsbtnSuppliesSetStatusOnHold.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnSuppliesSetStatusOnHold.Name = "tsbtnSuppliesSetStatusOnHold" + Me.tsbtnSuppliesSetStatusOnHold.Size = New System.Drawing.Size(159, 22) + Me.tsbtnSuppliesSetStatusOnHold.Text = "Change Status ON HOLD" + ' + 'tsbtnChangebestellt + ' + Me.tsbtnChangebestellt.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.ruby_go + Me.tsbtnChangebestellt.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnChangebestellt.Name = "tsbtnChangebestellt" + Me.tsbtnChangebestellt.Size = New System.Drawing.Size(196, 22) + Me.tsbtnChangebestellt.Text = "Change Status 'Manuell Bestellt'" + Me.tsbtnChangebestellt.ToolTipText = "Der Status wird erst wieder bei Änderung der SupplySerial geändert" + ' + 'spltGeraete_uebersicht + ' + Me.spltGeraete_uebersicht.BackColor = System.Drawing.SystemColors.InactiveCaption + Me.spltGeraete_uebersicht.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.MCSUPPLYWATCH.My.MySettings.Default, "spltGeraeteUebersicht", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.spltGeraete_uebersicht.Location = Global.MCSUPPLYWATCH.My.MySettings.Default.spltGeraeteUebersicht + Me.spltGeraete_uebersicht.Name = "spltGeraete_uebersicht" + Me.spltGeraete_uebersicht.Size = New System.Drawing.Size(3, 434) + Me.spltGeraete_uebersicht.TabIndex = 4 + Me.spltGeraete_uebersicht.TabStop = False + ' + 'TBGERAETBindingNavigator + ' + Me.TBGERAETBindingNavigator.AddNewItem = Nothing + Me.TBGERAETBindingNavigator.BindingSource = Me.TBGERAETBindingSource + Me.TBGERAETBindingNavigator.CountItem = Me.BindingNavigatorCountItem2 + Me.TBGERAETBindingNavigator.CountItemFormat = "von {0} Geräten" + Me.TBGERAETBindingNavigator.DeleteItem = Nothing + Me.TBGERAETBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbImport2, Me.ToolStripSeparator9, Me.BindingNavigatorMoveFirstItem2, Me.BindingNavigatorMovePreviousItem2, Me.BindingNavigatorSeparator6, Me.BindingNavigatorPositionItem2, Me.BindingNavigatorCountItem2, Me.BindingNavigatorSeparator7, Me.BindingNavigatorMoveNextItem2, Me.BindingNavigatorMoveLastItem2, Me.BindingNavigatorSeparator8, Me.tsbGeraeteRefresh, Me.tsbexcel_geraete, Me.tsbGeraeteverfolgung_Geraet, Me.tsbtnONHOLD, Me.tscmbaktiv, Me.tsbtnChangelog}) + Me.TBGERAETBindingNavigator.Location = New System.Drawing.Point(3, 3) + Me.TBGERAETBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem2 + Me.TBGERAETBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem2 + Me.TBGERAETBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem2 + Me.TBGERAETBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem2 + Me.TBGERAETBindingNavigator.Name = "TBGERAETBindingNavigator" + Me.TBGERAETBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem2 + Me.TBGERAETBindingNavigator.Size = New System.Drawing.Size(1283, 25) + Me.TBGERAETBindingNavigator.TabIndex = 0 + Me.TBGERAETBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem2 + ' + Me.BindingNavigatorCountItem2.Name = "BindingNavigatorCountItem2" + Me.BindingNavigatorCountItem2.Size = New System.Drawing.Size(88, 22) + Me.BindingNavigatorCountItem2.Text = "von {0} Geräten" + Me.BindingNavigatorCountItem2.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'tsbImport2 + ' + Me.tsbImport2.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.My_Downloads_XP + Me.tsbImport2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.tsbImport2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbImport2.Name = "tsbImport2" + Me.tsbImport2.Size = New System.Drawing.Size(129, 22) + Me.tsbImport2.Text = "Dateien verarbeiten" + Me.tsbImport2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'ToolStripSeparator9 + ' + Me.ToolStripSeparator9.Name = "ToolStripSeparator9" + Me.ToolStripSeparator9.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveFirstItem2 + ' + Me.BindingNavigatorMoveFirstItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem2.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem2.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem2.Name = "BindingNavigatorMoveFirstItem2" + Me.BindingNavigatorMoveFirstItem2.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem2.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem2.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem2 + ' + Me.BindingNavigatorMovePreviousItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem2.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem2.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem2.Name = "BindingNavigatorMovePreviousItem2" + Me.BindingNavigatorMovePreviousItem2.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem2.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem2.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator6 + ' + Me.BindingNavigatorSeparator6.Name = "BindingNavigatorSeparator6" + Me.BindingNavigatorSeparator6.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem2 + ' + Me.BindingNavigatorPositionItem2.AccessibleName = "Position" + Me.BindingNavigatorPositionItem2.AutoSize = False + Me.BindingNavigatorPositionItem2.Name = "BindingNavigatorPositionItem2" + Me.BindingNavigatorPositionItem2.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem2.Text = "0" + Me.BindingNavigatorPositionItem2.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator7 + ' + Me.BindingNavigatorSeparator7.Name = "BindingNavigatorSeparator7" + Me.BindingNavigatorSeparator7.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem2 + ' + Me.BindingNavigatorMoveNextItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem2.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem2.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem2.Name = "BindingNavigatorMoveNextItem2" + Me.BindingNavigatorMoveNextItem2.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem2.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem2.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem2 + ' + Me.BindingNavigatorMoveLastItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem2.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem2.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem2.Name = "BindingNavigatorMoveLastItem2" + Me.BindingNavigatorMoveLastItem2.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem2.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem2.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator8 + ' + Me.BindingNavigatorSeparator8.Name = "BindingNavigatorSeparator8" + Me.BindingNavigatorSeparator8.Size = New System.Drawing.Size(6, 25) + ' + 'tsbGeraeteRefresh + ' + Me.tsbGeraeteRefresh.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbGeraeteRefresh.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.aktualisieren_1 + Me.tsbGeraeteRefresh.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbGeraeteRefresh.Name = "tsbGeraeteRefresh" + Me.tsbGeraeteRefresh.Size = New System.Drawing.Size(23, 22) + Me.tsbGeraeteRefresh.Text = "Geräte abrufen" + ' + 'tsbexcel_geraete + ' + Me.tsbexcel_geraete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbexcel_geraete.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.Excel_25ixel + Me.tsbexcel_geraete.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbexcel_geraete.Name = "tsbexcel_geraete" + Me.tsbexcel_geraete.Size = New System.Drawing.Size(23, 22) + Me.tsbexcel_geraete.Text = "Export Excel" + ' + 'tsbGeraeteverfolgung_Geraet + ' + Me.tsbGeraeteverfolgung_Geraet.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.ico2168 + Me.tsbGeraeteverfolgung_Geraet.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbGeraeteverfolgung_Geraet.Name = "tsbGeraeteverfolgung_Geraet" + Me.tsbGeraeteverfolgung_Geraet.Size = New System.Drawing.Size(263, 22) + Me.tsbGeraeteverfolgung_Geraet.Text = "Zeige Geräteverfolgung für gewähltes Device" + ' + 'tsbtnONHOLD + ' + Me.tsbtnONHOLD.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.Beenden2 + Me.tsbtnONHOLD.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.tsbtnONHOLD.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnONHOLD.Name = "tsbtnONHOLD" + Me.tsbtnONHOLD.Size = New System.Drawing.Size(159, 22) + Me.tsbtnONHOLD.Text = "Change Status ON HOLD" + Me.tsbtnONHOLD.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'tscmbaktiv + ' + Me.tscmbaktiv.Items.AddRange(New Object() {"Nur aktive Geräte", "Inaktive Geräte"}) + Me.tscmbaktiv.Name = "tscmbaktiv" + Me.tscmbaktiv.Size = New System.Drawing.Size(121, 25) + ' + 'tsbtnChangelog + ' + Me.tsbtnChangelog.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.bug + Me.tsbtnChangelog.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnChangelog.Name = "tsbtnChangelog" + Me.tsbtnChangelog.Size = New System.Drawing.Size(120, 22) + Me.tsbtnChangelog.Text = "Zeige ChangeLog" + ' + 'tpVerfolgung + ' + Me.tpVerfolgung.Controls.Add(Me.TabControlNachverfolgung) + Me.tpVerfolgung.Controls.Add(Me.Panel2) + Me.tpVerfolgung.Location = New System.Drawing.Point(4, 22) + Me.tpVerfolgung.Name = "tpVerfolgung" + Me.tpVerfolgung.Size = New System.Drawing.Size(1289, 465) + Me.tpVerfolgung.TabIndex = 3 + Me.tpVerfolgung.Text = "Nachverfolgung - ATR" + Me.tpVerfolgung.UseVisualStyleBackColor = True + ' + 'TabControlNachverfolgung + ' + Me.TabControlNachverfolgung.Controls.Add(Me.TabPage6) + Me.TabControlNachverfolgung.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControlNachverfolgung.Location = New System.Drawing.Point(251, 0) + Me.TabControlNachverfolgung.Name = "TabControlNachverfolgung" + Me.TabControlNachverfolgung.SelectedIndex = 0 + Me.TabControlNachverfolgung.Size = New System.Drawing.Size(1038, 465) + Me.TabControlNachverfolgung.TabIndex = 5 + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.GridControlATR) + Me.TabPage6.Controls.Add(Me.VWMarkt_VerfolgungBindingNavigator) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage6.Size = New System.Drawing.Size(1030, 439) + Me.TabPage6.TabIndex = 1 + Me.TabPage6.Text = "Nachverfolgung Märkte - ATR" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'GridControlATR + ' + Me.GridControlATR.ContextMenuStrip = Me.cmsBestellungen + Me.GridControlATR.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlATR.Location = New System.Drawing.Point(3, 28) + Me.GridControlATR.MainView = Me.GridViewATR + Me.GridControlATR.Name = "GridControlATR" + Me.GridControlATR.Size = New System.Drawing.Size(1024, 408) + Me.GridControlATR.TabIndex = 5 + Me.GridControlATR.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewATR}) + ' + 'GridViewATR + ' + Me.GridViewATR.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridViewATR.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewATR.Appearance.OddRow.BackColor = System.Drawing.Color.White + Me.GridViewATR.Appearance.OddRow.Options.UseBackColor = True + Me.GridViewATR.Appearance.SelectedRow.BackColor = System.Drawing.Color.Magenta + Me.GridViewATR.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewATR.GridControl = Me.GridControlATR + Me.GridViewATR.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always + Me.GridViewATR.Name = "GridViewATR" + Me.GridViewATR.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewATR.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewATR.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewATR.OptionsSelection.MultiSelect = True + Me.GridViewATR.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewATR.OptionsView.ColumnAutoWidth = False + Me.GridViewATR.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewATR.OptionsView.EnableAppearanceOddRow = True + Me.GridViewATR.OptionsView.ShowAutoFilterRow = True + ' + 'VWMarkt_VerfolgungBindingNavigator + ' + Me.VWMarkt_VerfolgungBindingNavigator.AddNewItem = Nothing + Me.VWMarkt_VerfolgungBindingNavigator.BindingSource = Me.VWMarkt_VerfolgungBindingSource + Me.VWMarkt_VerfolgungBindingNavigator.CountItem = Me.ToolStripLabel7 + Me.VWMarkt_VerfolgungBindingNavigator.CountItemFormat = "von {0} Verfolgungssätzen" + Me.VWMarkt_VerfolgungBindingNavigator.DeleteItem = Nothing + Me.VWMarkt_VerfolgungBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton31, Me.ToolStripButton32, Me.ToolStripSeparator22, Me.ToolStripTextBox7, Me.ToolStripLabel7, Me.ToolStripSeparator23, Me.ToolStripButton33, Me.ToolStripButton34, Me.ToolStripSeparator24, Me.ToolStripButton35, Me.ToolStripButton36}) + Me.VWMarkt_VerfolgungBindingNavigator.Location = New System.Drawing.Point(3, 3) + Me.VWMarkt_VerfolgungBindingNavigator.MoveFirstItem = Me.ToolStripButton31 + Me.VWMarkt_VerfolgungBindingNavigator.MoveLastItem = Me.ToolStripButton34 + Me.VWMarkt_VerfolgungBindingNavigator.MoveNextItem = Me.ToolStripButton33 + Me.VWMarkt_VerfolgungBindingNavigator.MovePreviousItem = Me.ToolStripButton32 + Me.VWMarkt_VerfolgungBindingNavigator.Name = "VWMarkt_VerfolgungBindingNavigator" + Me.VWMarkt_VerfolgungBindingNavigator.PositionItem = Me.ToolStripTextBox7 + Me.VWMarkt_VerfolgungBindingNavigator.Size = New System.Drawing.Size(1024, 25) + Me.VWMarkt_VerfolgungBindingNavigator.TabIndex = 2 + Me.VWMarkt_VerfolgungBindingNavigator.Text = "BindingNavigator1" + ' + 'VWMarkt_VerfolgungBindingSource + ' + Me.VWMarkt_VerfolgungBindingSource.DataMember = "VWMarkt_Verfolgung" + Me.VWMarkt_VerfolgungBindingSource.DataSource = Me.MyDataset + ' + 'ToolStripLabel7 + ' + Me.ToolStripLabel7.Name = "ToolStripLabel7" + Me.ToolStripLabel7.Size = New System.Drawing.Size(143, 22) + Me.ToolStripLabel7.Text = "von {0} Verfolgungssätzen" + Me.ToolStripLabel7.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton31 + ' + Me.ToolStripButton31.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton31.Image = CType(resources.GetObject("ToolStripButton31.Image"), System.Drawing.Image) + Me.ToolStripButton31.Name = "ToolStripButton31" + Me.ToolStripButton31.RightToLeftAutoMirrorImage = True + Me.ToolStripButton31.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton31.Text = "Erste verschieben" + ' + 'ToolStripButton32 + ' + Me.ToolStripButton32.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton32.Image = CType(resources.GetObject("ToolStripButton32.Image"), System.Drawing.Image) + Me.ToolStripButton32.Name = "ToolStripButton32" + Me.ToolStripButton32.RightToLeftAutoMirrorImage = True + Me.ToolStripButton32.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton32.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator22 + ' + Me.ToolStripSeparator22.Name = "ToolStripSeparator22" + Me.ToolStripSeparator22.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox7 + ' + Me.ToolStripTextBox7.AccessibleName = "Position" + Me.ToolStripTextBox7.AutoSize = False + Me.ToolStripTextBox7.Name = "ToolStripTextBox7" + Me.ToolStripTextBox7.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox7.Text = "0" + Me.ToolStripTextBox7.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator23 + ' + Me.ToolStripSeparator23.Name = "ToolStripSeparator23" + Me.ToolStripSeparator23.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton33 + ' + Me.ToolStripButton33.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton33.Image = CType(resources.GetObject("ToolStripButton33.Image"), System.Drawing.Image) + Me.ToolStripButton33.Name = "ToolStripButton33" + Me.ToolStripButton33.RightToLeftAutoMirrorImage = True + Me.ToolStripButton33.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton33.Text = "Nächste verschieben" + ' + 'ToolStripButton34 + ' + Me.ToolStripButton34.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton34.Image = CType(resources.GetObject("ToolStripButton34.Image"), System.Drawing.Image) + Me.ToolStripButton34.Name = "ToolStripButton34" + Me.ToolStripButton34.RightToLeftAutoMirrorImage = True + Me.ToolStripButton34.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton34.Text = "Letzte verschieben" + ' + 'ToolStripSeparator24 + ' + Me.ToolStripSeparator24.Name = "ToolStripSeparator24" + Me.ToolStripSeparator24.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton35 + ' + Me.ToolStripButton35.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton35.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.aktualisieren_1 + Me.ToolStripButton35.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton35.Name = "ToolStripButton35" + Me.ToolStripButton35.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton35.Text = "ToolStripButton17" + ' + 'ToolStripButton36 + ' + Me.ToolStripButton36.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton36.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.Excel_25ixel + Me.ToolStripButton36.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton36.Name = "ToolStripButton36" + Me.ToolStripButton36.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton36.Text = "ToolStripButton17" + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.chkbDatumfilter) + Me.Panel2.Controls.Add(Me.dtpVerfolgung_bis) + Me.Panel2.Controls.Add(Me.Label11) + Me.Panel2.Controls.Add(Me.dtpVerfolgung_von) + Me.Panel2.Controls.Add(Me.Label10) + Me.Panel2.Controls.Add(Me.GroupBox7) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(251, 465) + Me.Panel2.TabIndex = 4 + ' + 'chkbDatumfilter + ' + Me.chkbDatumfilter.AutoSize = True + Me.chkbDatumfilter.Location = New System.Drawing.Point(6, 332) + Me.chkbDatumfilter.Name = "chkbDatumfilter" + Me.chkbDatumfilter.Size = New System.Drawing.Size(89, 17) + Me.chkbDatumfilter.TabIndex = 7 + Me.chkbDatumfilter.Text = "Datumsfilter" + Me.chkbDatumfilter.UseVisualStyleBackColor = True + ' + 'dtpVerfolgung_bis + ' + Me.dtpVerfolgung_bis.Enabled = False + Me.dtpVerfolgung_bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpVerfolgung_bis.Location = New System.Drawing.Point(6, 415) + Me.dtpVerfolgung_bis.Name = "dtpVerfolgung_bis" + Me.dtpVerfolgung_bis.Size = New System.Drawing.Size(118, 22) + Me.dtpVerfolgung_bis.TabIndex = 6 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(3, 399) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(93, 13) + Me.Label11.TabIndex = 5 + Me.Label11.Text = "Meldedatum bis:" + ' + 'dtpVerfolgung_von + ' + Me.dtpVerfolgung_von.Enabled = False + Me.dtpVerfolgung_von.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpVerfolgung_von.Location = New System.Drawing.Point(6, 371) + Me.dtpVerfolgung_von.Name = "dtpVerfolgung_von" + Me.dtpVerfolgung_von.Size = New System.Drawing.Size(118, 22) + Me.dtpVerfolgung_von.TabIndex = 4 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(3, 355) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(97, 13) + Me.Label10.TabIndex = 3 + Me.Label10.Text = "Meldedatum von:" + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.chbFilterMarktNV) + Me.GroupBox7.Controls.Add(Me.DGVTBWH_MARKT_VF) + Me.GroupBox7.Dock = System.Windows.Forms.DockStyle.Top + Me.GroupBox7.Location = New System.Drawing.Point(0, 0) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(251, 326) + Me.GroupBox7.TabIndex = 1 + Me.GroupBox7.TabStop = False + Me.GroupBox7.Text = "Märkte:" + ' + 'chbFilterMarktNV + ' + Me.chbFilterMarktNV.AutoSize = True + Me.chbFilterMarktNV.Location = New System.Drawing.Point(6, 21) + Me.chbFilterMarktNV.Name = "chbFilterMarktNV" + Me.chbFilterMarktNV.Size = New System.Drawing.Size(79, 17) + Me.chbFilterMarktNV.TabIndex = 2 + Me.chbFilterMarktNV.Text = "Filter aktiv" + Me.chbFilterMarktNV.UseVisualStyleBackColor = True + ' + 'DGVTBWH_MARKT_VF + ' + Me.DGVTBWH_MARKT_VF.AllowUserToAddRows = False + Me.DGVTBWH_MARKT_VF.AllowUserToDeleteRows = False + DataGridViewCellStyle7.BackColor = System.Drawing.Color.Cyan + Me.DGVTBWH_MARKT_VF.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 + Me.DGVTBWH_MARKT_VF.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.DGVTBWH_MARKT_VF.AutoGenerateColumns = False + Me.DGVTBWH_MARKT_VF.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DGVTBWH_MARKT_VF.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmMarkt}) + Me.DGVTBWH_MARKT_VF.DataSource = Me.TBWH_MARKTBindingSource + Me.DGVTBWH_MARKT_VF.Location = New System.Drawing.Point(6, 44) + Me.DGVTBWH_MARKT_VF.Name = "DGVTBWH_MARKT_VF" + Me.DGVTBWH_MARKT_VF.ReadOnly = True + Me.DGVTBWH_MARKT_VF.RowHeadersVisible = False + Me.DGVTBWH_MARKT_VF.Size = New System.Drawing.Size(238, 271) + Me.DGVTBWH_MARKT_VF.TabIndex = 1 + Me.DGVTBWH_MARKT_VF.Visible = False + ' + 'clmMarkt + ' + Me.clmMarkt.DataPropertyName = "MARKT" + Me.clmMarkt.HeaderText = "Markt" + Me.clmMarkt.Name = "clmMarkt" + Me.clmMarkt.ReadOnly = True + Me.clmMarkt.Width = 220 + ' + 'tsbtnSupplyverfolgung + ' + Me.tsbtnSupplyverfolgung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton30, Me.ToolStripButton10, Me.tsProgressBar, Me.tslbl_Files, Me.tsbtnManaulOrders, Me.tsbtnAbbrechen, Me.ToolStripDropDownButton1, Me.ToolStripSeparator4, Me.tsbtnNAchverfolgung, Me.ToolStripSeparator10, Me.ToolStripLabel3, Me.cmbMandanten}) + Me.tsbtnSupplyverfolgung.Location = New System.Drawing.Point(3, 3) + Me.tsbtnSupplyverfolgung.Name = "tsbtnSupplyverfolgung" + Me.tsbtnSupplyverfolgung.Size = New System.Drawing.Size(1297, 25) + Me.tsbtnSupplyverfolgung.TabIndex = 1 + Me.tsbtnSupplyverfolgung.Text = "ToolStrip1" + ' + 'ToolStripButton30 + ' + Me.ToolStripButton30.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripButton30.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.ico1411 + Me.ToolStripButton30.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton30.Name = "ToolStripButton30" + Me.ToolStripButton30.Size = New System.Drawing.Size(174, 22) + Me.ToolStripButton30.Text = "Ergebnisreports - Import" + ' + 'ToolStripButton10 + ' + Me.ToolStripButton10.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.asterisk_orange + Me.ToolStripButton10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.ToolStripButton10.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton10.Name = "ToolStripButton10" + Me.ToolStripButton10.Size = New System.Drawing.Size(156, 22) + Me.ToolStripButton10.Text = "Übersicht Service Import" + Me.ToolStripButton10.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'tsProgressBar + ' + Me.tsProgressBar.Name = "tsProgressBar" + Me.tsProgressBar.Size = New System.Drawing.Size(100, 22) + Me.tsProgressBar.Visible = False + ' + 'tslbl_Files + ' + Me.tslbl_Files.Name = "tslbl_Files" + Me.tslbl_Files.Size = New System.Drawing.Size(0, 22) + Me.tslbl_Files.Visible = False + ' + 'tsbtnManaulOrders + ' + Me.tsbtnManaulOrders.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tsbtnManaulOrders.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.ico1411 + Me.tsbtnManaulOrders.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnManaulOrders.Name = "tsbtnManaulOrders" + Me.tsbtnManaulOrders.Size = New System.Drawing.Size(134, 22) + Me.tsbtnManaulOrders.Text = "Manuelle Bestellung" + ' + 'tsbtnAbbrechen + ' + Me.tsbtnAbbrechen.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.Beenden2 + Me.tsbtnAbbrechen.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnAbbrechen.Name = "tsbtnAbbrechen" + Me.tsbtnAbbrechen.Size = New System.Drawing.Size(85, 22) + Me.tsbtnAbbrechen.Text = "Abbrechen" + Me.tsbtnAbbrechen.Visible = False + ' + 'ToolStripDropDownButton1 + ' + Me.ToolStripDropDownButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProfileMailExporterToolStripMenuItem, Me.StarteMailExporterToolStripMenuItem}) + Me.ToolStripDropDownButton1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripDropDownButton1.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.EMAIL + Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1" + Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(117, 22) + Me.ToolStripDropDownButton1.Text = "Mail-Exporter" + ' + 'ProfileMailExporterToolStripMenuItem + ' + Me.ProfileMailExporterToolStripMenuItem.Name = "ProfileMailExporterToolStripMenuItem" + Me.ProfileMailExporterToolStripMenuItem.Size = New System.Drawing.Size(197, 22) + Me.ProfileMailExporterToolStripMenuItem.Text = "Profile Mail-Exporter" + ' + 'StarteMailExporterToolStripMenuItem + ' + Me.StarteMailExporterToolStripMenuItem.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.email_open_image + Me.StarteMailExporterToolStripMenuItem.Name = "StarteMailExporterToolStripMenuItem" + Me.StarteMailExporterToolStripMenuItem.Size = New System.Drawing.Size(197, 22) + Me.StarteMailExporterToolStripMenuItem.Text = "Starte Mail-Exporter" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25) + ' + 'tsbtnNAchverfolgung + ' + Me.tsbtnNAchverfolgung.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.ico2168 + Me.tsbtnNAchverfolgung.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnNAchverfolgung.Name = "tsbtnNAchverfolgung" + Me.tsbtnNAchverfolgung.Size = New System.Drawing.Size(113, 22) + Me.tsbtnNAchverfolgung.Text = "Nachverfolgung" + ' + 'ToolStripSeparator10 + ' + Me.ToolStripSeparator10.Name = "ToolStripSeparator10" + Me.ToolStripSeparator10.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(154, 22) + Me.ToolStripLabel3.Text = "Mandanten-Einschränkung:" + ' + 'cmbMandanten + ' + Me.cmbMandanten.Name = "cmbMandanten" + Me.cmbMandanten.Size = New System.Drawing.Size(121, 25) + ' + 'tpEinstellungen + ' + Me.tpEinstellungen.AutoScroll = True + Me.tpEinstellungen.Controls.Add(Me.TabControlEinstellungen) + Me.tpEinstellungen.ImageIndex = 0 + Me.tpEinstellungen.Location = New System.Drawing.Point(4, 23) + Me.tpEinstellungen.Name = "tpEinstellungen" + Me.tpEinstellungen.Padding = New System.Windows.Forms.Padding(3) + Me.tpEinstellungen.Size = New System.Drawing.Size(1303, 522) + Me.tpEinstellungen.TabIndex = 1 + Me.tpEinstellungen.Text = "Einstellungen" + Me.tpEinstellungen.UseVisualStyleBackColor = True + ' + 'TabControlEinstellungen + ' + Me.TabControlEinstellungen.Controls.Add(Me.TabPage5) + Me.TabControlEinstellungen.Controls.Add(Me.TabPage7) + Me.TabControlEinstellungen.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControlEinstellungen.Location = New System.Drawing.Point(3, 3) + Me.TabControlEinstellungen.Name = "TabControlEinstellungen" + Me.TabControlEinstellungen.SelectedIndex = 0 + Me.TabControlEinstellungen.Size = New System.Drawing.Size(1297, 516) + Me.TabControlEinstellungen.TabIndex = 29 + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.GroupBox4) + Me.TabPage5.Controls.Add(Me.GroupBox8) + Me.TabPage5.Controls.Add(Me.GroupBox12) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage5.Size = New System.Drawing.Size(1289, 490) + Me.TabPage5.TabIndex = 0 + Me.TabPage5.Text = "Mandanten und Grundeinstellungen:" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'GroupBox4 + ' + Me.GroupBox4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.GroupBox4.Controls.Add(Me.TBSTATUSDataGridView) + Me.GroupBox4.Controls.Add(Me.TBSTATUSBindingNavigator) + Me.GroupBox4.Location = New System.Drawing.Point(7, 297) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(483, 190) + Me.GroupBox4.TabIndex = 24 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "Supply-Stati:" + ' + 'TBSTATUSDataGridView + ' + DataGridViewCellStyle8.BackColor = System.Drawing.Color.Aqua + Me.TBSTATUSDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + Me.TBSTATUSDataGridView.AutoGenerateColumns = False + Me.TBSTATUSDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.TBSTATUSDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.statusBezeichnung, Me.StatusBeschreibung, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.Statusgeaendertwer, Me.DataGridViewTextBoxColumn8}) + Me.TBSTATUSDataGridView.DataSource = Me.TBSTATUSBindingSource + Me.TBSTATUSDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.TBSTATUSDataGridView.Location = New System.Drawing.Point(3, 43) + Me.TBSTATUSDataGridView.Name = "TBSTATUSDataGridView" + Me.TBSTATUSDataGridView.Size = New System.Drawing.Size(477, 144) + Me.TBSTATUSDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID" + Me.DataGridViewTextBoxColumn1.HeaderText = "Status-ID" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'statusBezeichnung + ' + Me.statusBezeichnung.DataPropertyName = "BEZEICHNUNG" + Me.statusBezeichnung.HeaderText = "Status-Bez." + Me.statusBezeichnung.Name = "statusBezeichnung" + ' + 'StatusBeschreibung + ' + Me.StatusBeschreibung.DataPropertyName = "BESCHREIBUNG" + Me.StatusBeschreibung.HeaderText = "Beschreibung" + Me.StatusBeschreibung.Name = "StatusBeschreibung" + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "ERFASSTWER" + Me.DataGridViewTextBoxColumn5.HeaderText = "Erfasst wer" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "ERFASSTWANN" + Me.DataGridViewTextBoxColumn6.HeaderText = "Erf. wann" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'Statusgeaendertwer + ' + Me.Statusgeaendertwer.DataPropertyName = "GEAENDERTWER" + Me.Statusgeaendertwer.HeaderText = "Geändert wer" + Me.Statusgeaendertwer.Name = "Statusgeaendertwer" + Me.Statusgeaendertwer.ReadOnly = True + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "GEAENDERTWANN" + Me.DataGridViewTextBoxColumn8.HeaderText = "Geänd. wann" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + ' + 'TBSTATUSBindingSource + ' + Me.TBSTATUSBindingSource.DataMember = "TBSTATUS" + Me.TBSTATUSBindingSource.DataSource = Me.MyDataset + ' + 'TBSTATUSBindingNavigator + ' + Me.TBSTATUSBindingNavigator.AddNewItem = Nothing + Me.TBSTATUSBindingNavigator.BindingSource = Me.TBSTATUSBindingSource + Me.TBSTATUSBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBSTATUSBindingNavigator.CountItemFormat = "von {0} Supply Stati" + Me.TBSTATUSBindingNavigator.DeleteItem = Nothing + Me.TBSTATUSBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.tsbStatus_Refresh, Me.tsbStatus_Save}) + Me.TBSTATUSBindingNavigator.Location = New System.Drawing.Point(3, 18) + Me.TBSTATUSBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBSTATUSBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBSTATUSBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBSTATUSBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBSTATUSBindingNavigator.Name = "TBSTATUSBindingNavigator" + Me.TBSTATUSBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBSTATUSBindingNavigator.Size = New System.Drawing.Size(477, 25) + Me.TBSTATUSBindingNavigator.TabIndex = 0 + Me.TBSTATUSBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(109, 22) + Me.BindingNavigatorCountItem.Text = "von {0} Supply Stati" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'tsbStatus_Refresh + ' + Me.tsbStatus_Refresh.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbStatus_Refresh.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.aktualisieren_1 + Me.tsbStatus_Refresh.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbStatus_Refresh.Name = "tsbStatus_Refresh" + Me.tsbStatus_Refresh.Size = New System.Drawing.Size(23, 22) + Me.tsbStatus_Refresh.Text = "Aktualisieren" + ' + 'tsbStatus_Save + ' + Me.tsbStatus_Save.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbStatus_Save.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.save + Me.tsbStatus_Save.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbStatus_Save.Name = "tsbStatus_Save" + Me.tsbStatus_Save.Size = New System.Drawing.Size(23, 22) + Me.tsbStatus_Save.Text = "Speichern" + ' + 'GroupBox8 + ' + Me.GroupBox8.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupBox8.Controls.Add(Me.TBSUPPLY_DEFINITIONDataGridView) + Me.GroupBox8.Controls.Add(Me.TBSUPPLY_DEFINITIONBindingNavigator) + Me.GroupBox8.Location = New System.Drawing.Point(496, 297) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(787, 187) + Me.GroupBox8.TabIndex = 28 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "Supply-Typen:" + ' + 'TBSUPPLY_DEFINITIONDataGridView + ' + Me.TBSUPPLY_DEFINITIONDataGridView.AllowUserToOrderColumns = True + DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.TBSUPPLY_DEFINITIONDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 + Me.TBSUPPLY_DEFINITIONDataGridView.AutoGenerateColumns = False + Me.TBSUPPLY_DEFINITIONDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.TBSUPPLY_DEFINITIONDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn20, Me.DataGridViewTextBoxColumn26, Me.SUPPLY_NAME_DATEI, Me.DataGridViewTextBoxColumn28, Me.DataGridViewTextBoxColumn30, Me.DataGridViewTextBoxColumn31, Me.DataGridViewTextBoxColumn32}) + Me.TBSUPPLY_DEFINITIONDataGridView.DataSource = Me.TBSUPPLY_DEFINITIONBindingSource + Me.TBSUPPLY_DEFINITIONDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.TBSUPPLY_DEFINITIONDataGridView.Location = New System.Drawing.Point(3, 43) + Me.TBSUPPLY_DEFINITIONDataGridView.Name = "TBSUPPLY_DEFINITIONDataGridView" + Me.TBSUPPLY_DEFINITIONDataGridView.Size = New System.Drawing.Size(781, 141) + Me.TBSUPPLY_DEFINITIONDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn20 + ' + Me.DataGridViewTextBoxColumn20.DataPropertyName = "GUID" + Me.DataGridViewTextBoxColumn20.HeaderText = "ID" + Me.DataGridViewTextBoxColumn20.Name = "DataGridViewTextBoxColumn20" + Me.DataGridViewTextBoxColumn20.ReadOnly = True + ' + 'DataGridViewTextBoxColumn26 + ' + Me.DataGridViewTextBoxColumn26.DataPropertyName = "SUPPLY_BEZ" + Me.DataGridViewTextBoxColumn26.HeaderText = "Supply Bezeichnung" + Me.DataGridViewTextBoxColumn26.Name = "DataGridViewTextBoxColumn26" + ' + 'SUPPLY_NAME_DATEI + ' + Me.SUPPLY_NAME_DATEI.DataPropertyName = "SUPPLY_NAME_DATEI" + Me.SUPPLY_NAME_DATEI.HeaderText = "File-String" + Me.SUPPLY_NAME_DATEI.Name = "SUPPLY_NAME_DATEI" + ' + 'DataGridViewTextBoxColumn28 + ' + Me.DataGridViewTextBoxColumn28.DataPropertyName = "ERFASSTWER" + Me.DataGridViewTextBoxColumn28.HeaderText = "Erfasst wer" + Me.DataGridViewTextBoxColumn28.Name = "DataGridViewTextBoxColumn28" + Me.DataGridViewTextBoxColumn28.ReadOnly = True + ' + 'DataGridViewTextBoxColumn30 + ' + Me.DataGridViewTextBoxColumn30.DataPropertyName = "ERFASSTWANN" + Me.DataGridViewTextBoxColumn30.HeaderText = "Erfasst wann" + Me.DataGridViewTextBoxColumn30.Name = "DataGridViewTextBoxColumn30" + Me.DataGridViewTextBoxColumn30.ReadOnly = True + ' + 'DataGridViewTextBoxColumn31 + ' + Me.DataGridViewTextBoxColumn31.DataPropertyName = "GEAENDERTWER" + Me.DataGridViewTextBoxColumn31.HeaderText = "Geändert wer" + Me.DataGridViewTextBoxColumn31.Name = "DataGridViewTextBoxColumn31" + Me.DataGridViewTextBoxColumn31.ReadOnly = True + ' + 'DataGridViewTextBoxColumn32 + ' + Me.DataGridViewTextBoxColumn32.DataPropertyName = "GEAENDERTWANN" + Me.DataGridViewTextBoxColumn32.HeaderText = "Geändert wann" + Me.DataGridViewTextBoxColumn32.Name = "DataGridViewTextBoxColumn32" + Me.DataGridViewTextBoxColumn32.ReadOnly = True + ' + 'TBSUPPLY_DEFINITIONBindingSource + ' + Me.TBSUPPLY_DEFINITIONBindingSource.DataMember = "TBSUPPLY_DEFINITION" + Me.TBSUPPLY_DEFINITIONBindingSource.DataSource = Me.MyDataset + ' + 'TBSUPPLY_DEFINITIONBindingNavigator + ' + Me.TBSUPPLY_DEFINITIONBindingNavigator.AddNewItem = Nothing + Me.TBSUPPLY_DEFINITIONBindingNavigator.BindingSource = Me.TBSUPPLY_DEFINITIONBindingSource + Me.TBSUPPLY_DEFINITIONBindingNavigator.CountItem = Me.ToolStripLabel5 + Me.TBSUPPLY_DEFINITIONBindingNavigator.CountItemFormat = "von {0} Supply-Typen" + Me.TBSUPPLY_DEFINITIONBindingNavigator.DeleteItem = Nothing + Me.TBSUPPLY_DEFINITIONBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton17, Me.ToolStripButton18, Me.ToolStripSeparator16, Me.ToolStripTextBox5, Me.ToolStripLabel5, Me.ToolStripSeparator17, Me.ToolStripButton19, Me.ToolStripButton20, Me.ToolStripSeparator18, Me.ToolStripButton21, Me.ToolStripButton22, Me.ToolStripButton27}) + Me.TBSUPPLY_DEFINITIONBindingNavigator.Location = New System.Drawing.Point(3, 18) + Me.TBSUPPLY_DEFINITIONBindingNavigator.MoveFirstItem = Me.ToolStripButton17 + Me.TBSUPPLY_DEFINITIONBindingNavigator.MoveLastItem = Me.ToolStripButton20 + Me.TBSUPPLY_DEFINITIONBindingNavigator.MoveNextItem = Me.ToolStripButton19 + Me.TBSUPPLY_DEFINITIONBindingNavigator.MovePreviousItem = Me.ToolStripButton18 + Me.TBSUPPLY_DEFINITIONBindingNavigator.Name = "TBSUPPLY_DEFINITIONBindingNavigator" + Me.TBSUPPLY_DEFINITIONBindingNavigator.PositionItem = Me.ToolStripTextBox5 + Me.TBSUPPLY_DEFINITIONBindingNavigator.Size = New System.Drawing.Size(781, 25) + Me.TBSUPPLY_DEFINITIONBindingNavigator.TabIndex = 1 + Me.TBSUPPLY_DEFINITIONBindingNavigator.Text = "BindingNavigator1" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(120, 22) + Me.ToolStripLabel5.Text = "von {0} Supply-Typen" + Me.ToolStripLabel5.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton17 + ' + Me.ToolStripButton17.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton17.Image = CType(resources.GetObject("ToolStripButton17.Image"), System.Drawing.Image) + Me.ToolStripButton17.Name = "ToolStripButton17" + Me.ToolStripButton17.RightToLeftAutoMirrorImage = True + Me.ToolStripButton17.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton17.Text = "Erste verschieben" + ' + 'ToolStripButton18 + ' + Me.ToolStripButton18.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton18.Image = CType(resources.GetObject("ToolStripButton18.Image"), System.Drawing.Image) + Me.ToolStripButton18.Name = "ToolStripButton18" + Me.ToolStripButton18.RightToLeftAutoMirrorImage = True + Me.ToolStripButton18.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton18.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator16 + ' + Me.ToolStripSeparator16.Name = "ToolStripSeparator16" + Me.ToolStripSeparator16.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox5 + ' + Me.ToolStripTextBox5.AccessibleName = "Position" + Me.ToolStripTextBox5.AutoSize = False + Me.ToolStripTextBox5.Name = "ToolStripTextBox5" + Me.ToolStripTextBox5.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox5.Text = "0" + Me.ToolStripTextBox5.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator17 + ' + Me.ToolStripSeparator17.Name = "ToolStripSeparator17" + Me.ToolStripSeparator17.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton19 + ' + Me.ToolStripButton19.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton19.Image = CType(resources.GetObject("ToolStripButton19.Image"), System.Drawing.Image) + Me.ToolStripButton19.Name = "ToolStripButton19" + Me.ToolStripButton19.RightToLeftAutoMirrorImage = True + Me.ToolStripButton19.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton19.Text = "Nächste verschieben" + ' + 'ToolStripButton20 + ' + Me.ToolStripButton20.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton20.Image = CType(resources.GetObject("ToolStripButton20.Image"), System.Drawing.Image) + Me.ToolStripButton20.Name = "ToolStripButton20" + Me.ToolStripButton20.RightToLeftAutoMirrorImage = True + Me.ToolStripButton20.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton20.Text = "Letzte verschieben" + ' + 'ToolStripSeparator18 + ' + Me.ToolStripSeparator18.Name = "ToolStripSeparator18" + Me.ToolStripSeparator18.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton21 + ' + Me.ToolStripButton21.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton21.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.aktualisieren_1 + Me.ToolStripButton21.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton21.Name = "ToolStripButton21" + Me.ToolStripButton21.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton21.Text = "Aktualisieren" + ' + 'ToolStripButton22 + ' + Me.ToolStripButton22.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton22.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.save + Me.ToolStripButton22.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton22.Name = "ToolStripButton22" + Me.ToolStripButton22.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton22.Text = "Speichern" + ' + 'ToolStripButton27 + ' + Me.ToolStripButton27.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton27.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.ico2312 + Me.ToolStripButton27.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton27.Name = "ToolStripButton27" + Me.ToolStripButton27.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton27.Text = "Hinzufügen" + ' + 'GroupBox12 + ' + Me.GroupBox12.Controls.Add(FILTERLabel) + Me.GroupBox12.Controls.Add(Me.FILTERTextBox) + Me.GroupBox12.Controls.Add(Me.TBMANDANTENDataGridView) + Me.GroupBox12.Controls.Add(GUIDLabel) + Me.GroupBox12.Controls.Add(Me.GUIDTextBox) + Me.GroupBox12.Controls.Add(NAMELabel) + Me.GroupBox12.Controls.Add(Me.NAMETextBox) + Me.GroupBox12.Controls.Add(NAME_LANGLabel) + Me.GroupBox12.Controls.Add(Me.NAME_LANGTextBox) + Me.GroupBox12.Controls.Add(KENNZEICHENLabel) + Me.GroupBox12.Controls.Add(Me.KENNZEICHENTextBox) + Me.GroupBox12.Controls.Add(Me.FLEETWATCHCheckBox) + Me.GroupBox12.Controls.Add(Me.SUPPLYWATCHCheckBox) + Me.GroupBox12.Controls.Add(ERSTELLLTWERLabel) + Me.GroupBox12.Controls.Add(Me.ERSTELLLTWERTextBox) + Me.GroupBox12.Controls.Add(ERSTELLTWANNLabel) + Me.GroupBox12.Controls.Add(Me.ERSTELLTWANNTextBox) + Me.GroupBox12.Controls.Add(GEAENDERTWANNLabel1) + Me.GroupBox12.Controls.Add(Me.GEAENDERTWANNTextBox1) + Me.GroupBox12.Controls.Add(GEAENDERTWERLabel1) + Me.GroupBox12.Controls.Add(Me.GEAENDERTWERTextBox1) + Me.GroupBox12.Controls.Add(Me.TBMANDANTENBindingNavigator) + Me.GroupBox12.Dock = System.Windows.Forms.DockStyle.Top + Me.GroupBox12.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox12.Location = New System.Drawing.Point(3, 3) + Me.GroupBox12.Name = "GroupBox12" + Me.GroupBox12.Size = New System.Drawing.Size(1283, 288) + Me.GroupBox12.TabIndex = 0 + Me.GroupBox12.TabStop = False + Me.GroupBox12.Text = "Mandanten:" + ' + 'FILTERTextBox + ' + Me.FILTERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBMANDANTENBindingSource, "FILTER", True)) + Me.FILTERTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FILTERTextBox.Location = New System.Drawing.Point(72, 106) + Me.FILTERTextBox.Name = "FILTERTextBox" + Me.FILTERTextBox.Size = New System.Drawing.Size(409, 22) + Me.FILTERTextBox.TabIndex = 21 + ' + 'TBMANDANTENBindingSource + ' + Me.TBMANDANTENBindingSource.DataMember = "TBMANDANTEN" + Me.TBMANDANTENBindingSource.DataSource = Me.MyDataset + ' + 'TBMANDANTENDataGridView + ' + Me.TBMANDANTENDataGridView.AllowUserToAddRows = False + Me.TBMANDANTENDataGridView.AllowUserToDeleteRows = False + DataGridViewCellStyle10.BackColor = System.Drawing.Color.Cyan + Me.TBMANDANTENDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 + Me.TBMANDANTENDataGridView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TBMANDANTENDataGridView.AutoGenerateColumns = False + Me.TBMANDANTENDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.TBMANDANTENDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn21, Me.DataGridViewTextBoxColumn22, Me.DataGridViewTextBoxColumn23, Me.DataGridViewCheckBoxColumn1, Me.DataGridViewCheckBoxColumn2, Me.DataGridViewTextBoxColumn24, Me.DataGridViewTextBoxColumn25}) + Me.TBMANDANTENDataGridView.DataSource = Me.TBMANDANTENBindingSource + Me.TBMANDANTENDataGridView.Location = New System.Drawing.Point(3, 142) + Me.TBMANDANTENDataGridView.Name = "TBMANDANTENDataGridView" + Me.TBMANDANTENDataGridView.ReadOnly = True + Me.TBMANDANTENDataGridView.Size = New System.Drawing.Size(1277, 143) + Me.TBMANDANTENDataGridView.TabIndex = 20 + ' + 'DataGridViewTextBoxColumn21 + ' + Me.DataGridViewTextBoxColumn21.DataPropertyName = "NAME" + Me.DataGridViewTextBoxColumn21.HeaderText = "NAME" + Me.DataGridViewTextBoxColumn21.Name = "DataGridViewTextBoxColumn21" + Me.DataGridViewTextBoxColumn21.ReadOnly = True + ' + 'DataGridViewTextBoxColumn22 + ' + Me.DataGridViewTextBoxColumn22.DataPropertyName = "NAME_LANG" + Me.DataGridViewTextBoxColumn22.HeaderText = "NAME_LANG" + Me.DataGridViewTextBoxColumn22.Name = "DataGridViewTextBoxColumn22" + Me.DataGridViewTextBoxColumn22.ReadOnly = True + ' + 'DataGridViewTextBoxColumn23 + ' + Me.DataGridViewTextBoxColumn23.DataPropertyName = "KENNZEICHEN" + Me.DataGridViewTextBoxColumn23.HeaderText = "KENNZEICHEN" + Me.DataGridViewTextBoxColumn23.Name = "DataGridViewTextBoxColumn23" + Me.DataGridViewTextBoxColumn23.ReadOnly = True + ' + 'DataGridViewCheckBoxColumn1 + ' + Me.DataGridViewCheckBoxColumn1.DataPropertyName = "FLEETWATCH" + Me.DataGridViewCheckBoxColumn1.HeaderText = "FLEETWATCH" + Me.DataGridViewCheckBoxColumn1.Name = "DataGridViewCheckBoxColumn1" + Me.DataGridViewCheckBoxColumn1.ReadOnly = True + ' + 'DataGridViewCheckBoxColumn2 + ' + Me.DataGridViewCheckBoxColumn2.DataPropertyName = "SUPPLYWATCH" + Me.DataGridViewCheckBoxColumn2.HeaderText = "SUPPLYWATCH" + Me.DataGridViewCheckBoxColumn2.Name = "DataGridViewCheckBoxColumn2" + Me.DataGridViewCheckBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn24 + ' + Me.DataGridViewTextBoxColumn24.DataPropertyName = "ERSTELLLTWER" + Me.DataGridViewTextBoxColumn24.HeaderText = "ERSTELLLTWER" + Me.DataGridViewTextBoxColumn24.Name = "DataGridViewTextBoxColumn24" + Me.DataGridViewTextBoxColumn24.ReadOnly = True + ' + 'DataGridViewTextBoxColumn25 + ' + Me.DataGridViewTextBoxColumn25.DataPropertyName = "ERSTELLTWANN" + Me.DataGridViewTextBoxColumn25.HeaderText = "ERSTELLTWANN" + Me.DataGridViewTextBoxColumn25.Name = "DataGridViewTextBoxColumn25" + Me.DataGridViewTextBoxColumn25.ReadOnly = True + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBMANDANTENBindingSource, "GUID", True)) + Me.GUIDTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox.Location = New System.Drawing.Point(9, 61) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.Size = New System.Drawing.Size(34, 22) + Me.GUIDTextBox.TabIndex = 2 + ' + 'NAMETextBox + ' + Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBMANDANTENBindingSource, "NAME", True)) + Me.NAMETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NAMETextBox.Location = New System.Drawing.Point(72, 61) + Me.NAMETextBox.Name = "NAMETextBox" + Me.NAMETextBox.Size = New System.Drawing.Size(147, 22) + Me.NAMETextBox.TabIndex = 4 + ' + 'NAME_LANGTextBox + ' + Me.NAME_LANGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBMANDANTENBindingSource, "NAME_LANG", True)) + Me.NAME_LANGTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NAME_LANGTextBox.Location = New System.Drawing.Point(228, 61) + Me.NAME_LANGTextBox.Name = "NAME_LANGTextBox" + Me.NAME_LANGTextBox.Size = New System.Drawing.Size(253, 22) + Me.NAME_LANGTextBox.TabIndex = 6 + ' + 'KENNZEICHENTextBox + ' + Me.KENNZEICHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBMANDANTENBindingSource, "KENNZEICHEN", True)) + Me.KENNZEICHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.KENNZEICHENTextBox.Location = New System.Drawing.Point(493, 61) + Me.KENNZEICHENTextBox.Name = "KENNZEICHENTextBox" + Me.KENNZEICHENTextBox.Size = New System.Drawing.Size(178, 22) + Me.KENNZEICHENTextBox.TabIndex = 8 + ' + 'FLEETWATCHCheckBox + ' + Me.FLEETWATCHCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBMANDANTENBindingSource, "FLEETWATCH", True)) + Me.FLEETWATCHCheckBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FLEETWATCHCheckBox.Location = New System.Drawing.Point(493, 104) + Me.FLEETWATCHCheckBox.Name = "FLEETWATCHCheckBox" + Me.FLEETWATCHCheckBox.Size = New System.Drawing.Size(152, 24) + Me.FLEETWATCHCheckBox.TabIndex = 10 + Me.FLEETWATCHCheckBox.Text = "Fleetwatch aktiv (J/N)" + Me.FLEETWATCHCheckBox.UseVisualStyleBackColor = True + ' + 'SUPPLYWATCHCheckBox + ' + Me.SUPPLYWATCHCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBMANDANTENBindingSource, "SUPPLYWATCH", True)) + Me.SUPPLYWATCHCheckBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SUPPLYWATCHCheckBox.Location = New System.Drawing.Point(678, 104) + Me.SUPPLYWATCHCheckBox.Name = "SUPPLYWATCHCheckBox" + Me.SUPPLYWATCHCheckBox.Size = New System.Drawing.Size(175, 24) + Me.SUPPLYWATCHCheckBox.TabIndex = 12 + Me.SUPPLYWATCHCheckBox.Text = "SupplyWatch aktiv (J/N)" + Me.SUPPLYWATCHCheckBox.UseVisualStyleBackColor = True + ' + 'ERSTELLLTWERTextBox + ' + Me.ERSTELLLTWERTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.ERSTELLLTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBMANDANTENBindingSource, "ERSTELLLTWER", True)) + Me.ERSTELLLTWERTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ERSTELLLTWERTextBox.Location = New System.Drawing.Point(678, 61) + Me.ERSTELLLTWERTextBox.Name = "ERSTELLLTWERTextBox" + Me.ERSTELLLTWERTextBox.ReadOnly = True + Me.ERSTELLLTWERTextBox.Size = New System.Drawing.Size(104, 22) + Me.ERSTELLLTWERTextBox.TabIndex = 14 + ' + 'ERSTELLTWANNTextBox + ' + Me.ERSTELLTWANNTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.ERSTELLTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBMANDANTENBindingSource, "ERSTELLTWANN", True)) + Me.ERSTELLTWANNTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ERSTELLTWANNTextBox.Location = New System.Drawing.Point(792, 61) + Me.ERSTELLTWANNTextBox.Name = "ERSTELLTWANNTextBox" + Me.ERSTELLTWANNTextBox.ReadOnly = True + Me.ERSTELLTWANNTextBox.Size = New System.Drawing.Size(104, 22) + Me.ERSTELLTWANNTextBox.TabIndex = 16 + ' + 'GEAENDERTWANNTextBox1 + ' + Me.GEAENDERTWANNTextBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.GEAENDERTWANNTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBMANDANTENBindingSource, "GEAENDERTWANN", True)) + Me.GEAENDERTWANNTextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GEAENDERTWANNTextBox1.Location = New System.Drawing.Point(906, 59) + Me.GEAENDERTWANNTextBox1.Name = "GEAENDERTWANNTextBox1" + Me.GEAENDERTWANNTextBox1.ReadOnly = True + Me.GEAENDERTWANNTextBox1.Size = New System.Drawing.Size(104, 22) + Me.GEAENDERTWANNTextBox1.TabIndex = 18 + ' + 'GEAENDERTWERTextBox1 + ' + Me.GEAENDERTWERTextBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.GEAENDERTWERTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBMANDANTENBindingSource, "GEAENDERTWER", True)) + Me.GEAENDERTWERTextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GEAENDERTWERTextBox1.Location = New System.Drawing.Point(1021, 59) + Me.GEAENDERTWERTextBox1.Name = "GEAENDERTWERTextBox1" + Me.GEAENDERTWERTextBox1.ReadOnly = True + Me.GEAENDERTWERTextBox1.Size = New System.Drawing.Size(104, 22) + Me.GEAENDERTWERTextBox1.TabIndex = 20 + ' + 'TBMANDANTENBindingNavigator + ' + Me.TBMANDANTENBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBMANDANTENBindingNavigator.BindingSource = Me.TBMANDANTENBindingSource + Me.TBMANDANTENBindingNavigator.CountItem = Me.BindingNavigatorCountItem4 + Me.TBMANDANTENBindingNavigator.CountItemFormat = "von {0} Mandanten" + Me.TBMANDANTENBindingNavigator.DeleteItem = Nothing + Me.TBMANDANTENBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem4, Me.BindingNavigatorMovePreviousItem4, Me.BindingNavigatorSeparator12, Me.BindingNavigatorPositionItem4, Me.BindingNavigatorCountItem4, Me.BindingNavigatorSeparator13, Me.BindingNavigatorMoveNextItem4, Me.BindingNavigatorMoveLastItem4, Me.BindingNavigatorSeparator14, Me.BindingNavigatorAddNewItem, Me.ToolStripButton1}) + Me.TBMANDANTENBindingNavigator.Location = New System.Drawing.Point(3, 18) + Me.TBMANDANTENBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem4 + Me.TBMANDANTENBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem4 + Me.TBMANDANTENBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem4 + Me.TBMANDANTENBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem4 + Me.TBMANDANTENBindingNavigator.Name = "TBMANDANTENBindingNavigator" + Me.TBMANDANTENBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem4 + Me.TBMANDANTENBindingNavigator.Size = New System.Drawing.Size(1277, 25) + Me.TBMANDANTENBindingNavigator.TabIndex = 0 + Me.TBMANDANTENBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem4 + ' + Me.BindingNavigatorCountItem4.Name = "BindingNavigatorCountItem4" + Me.BindingNavigatorCountItem4.Size = New System.Drawing.Size(108, 22) + Me.BindingNavigatorCountItem4.Text = "von {0} Mandanten" + Me.BindingNavigatorCountItem4.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem4 + ' + Me.BindingNavigatorMoveFirstItem4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem4.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem4.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem4.Name = "BindingNavigatorMoveFirstItem4" + Me.BindingNavigatorMoveFirstItem4.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem4.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem4.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem4 + ' + Me.BindingNavigatorMovePreviousItem4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem4.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem4.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem4.Name = "BindingNavigatorMovePreviousItem4" + Me.BindingNavigatorMovePreviousItem4.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem4.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem4.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator12 + ' + Me.BindingNavigatorSeparator12.Name = "BindingNavigatorSeparator12" + Me.BindingNavigatorSeparator12.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem4 + ' + Me.BindingNavigatorPositionItem4.AccessibleName = "Position" + Me.BindingNavigatorPositionItem4.AutoSize = False + Me.BindingNavigatorPositionItem4.Name = "BindingNavigatorPositionItem4" + Me.BindingNavigatorPositionItem4.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem4.Text = "0" + Me.BindingNavigatorPositionItem4.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator13 + ' + Me.BindingNavigatorSeparator13.Name = "BindingNavigatorSeparator13" + Me.BindingNavigatorSeparator13.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem4 + ' + Me.BindingNavigatorMoveNextItem4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem4.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem4.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem4.Name = "BindingNavigatorMoveNextItem4" + Me.BindingNavigatorMoveNextItem4.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem4.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem4.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem4 + ' + Me.BindingNavigatorMoveLastItem4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem4.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem4.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem4.Name = "BindingNavigatorMoveLastItem4" + Me.BindingNavigatorMoveLastItem4.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem4.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem4.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator14 + ' + Me.BindingNavigatorSeparator14.Name = "BindingNavigatorSeparator14" + Me.BindingNavigatorSeparator14.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.save + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton1.Text = "Speichern" + ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.GroupBox3) + Me.TabPage7.Controls.Add(Me.GroupBox1) + Me.TabPage7.Controls.Add(Me.GroupBox2) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage7.Size = New System.Drawing.Size(1289, 490) + Me.TabPage7.TabIndex = 1 + Me.TabPage7.Text = "Weitere Einstellungen" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.ComboBox5) + Me.GroupBox3.Controls.Add(Me.Label14) + Me.GroupBox3.Controls.Add(Label9) + Me.GroupBox3.Controls.Add(Me.txtConfigPath) + Me.GroupBox3.Controls.Add(Me.ComboBox4) + Me.GroupBox3.Controls.Add(Label8) + Me.GroupBox3.Controls.Add(Me.ComboBox3) + Me.GroupBox3.Controls.Add(Me.ComboBox2) + Me.GroupBox3.Controls.Add(Me.ComboBox1) + Me.GroupBox3.Controls.Add(Me.btnSaveKonfig) + Me.GroupBox3.Controls.Add(Me.GEAENDERTWANNTextBox) + Me.GroupBox3.Controls.Add(GEAENDERTWANNLabel) + Me.GroupBox3.Controls.Add(Me.GEAENDERTWERTextBox) + Me.GroupBox3.Controls.Add(GEAENDERTWERLabel) + Me.GroupBox3.Controls.Add(STATUS_SDLabel) + Me.GroupBox3.Controls.Add(STATUS_BESTLabel) + Me.GroupBox3.Controls.Add(STATUS_OKLabel) + Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top + Me.GroupBox3.Location = New System.Drawing.Point(3, 285) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(1283, 163) + Me.GroupBox3.TabIndex = 23 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Default-Werte" + ' + 'ComboBox5 + ' + Me.ComboBox5.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBKONFIGURATIONBindingSource, "STATUS_ERSETZT", True)) + Me.ComboBox5.DataSource = Me.TBWH_STATUS5BindingSource + Me.ComboBox5.DisplayMember = "BEZEICHNUNG" + Me.ComboBox5.FormattingEnabled = True + Me.ComboBox5.Location = New System.Drawing.Point(11, 75) + Me.ComboBox5.Name = "ComboBox5" + Me.ComboBox5.Size = New System.Drawing.Size(155, 21) + Me.ComboBox5.TabIndex = 4 + Me.ComboBox5.ValueMember = "GUID" + ' + 'TBKONFIGURATIONBindingSource + ' + Me.TBKONFIGURATIONBindingSource.DataMember = "TBKONFIGURATION" + Me.TBKONFIGURATIONBindingSource.DataSource = Me.MyDataset + ' + 'TBWH_STATUS5BindingSource + ' + Me.TBWH_STATUS5BindingSource.DataMember = "TBWH_STATUS5" + Me.TBWH_STATUS5BindingSource.DataSource = Me.MyDataset + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(8, 103) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(149, 13) + Me.Label14.TabIndex = 27 + Me.Label14.Text = "Pfad zu Konfigurationsfiles:" + ' + 'txtConfigPath + ' + Me.txtConfigPath.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtConfigPath.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtConfigPath.Location = New System.Drawing.Point(11, 119) + Me.txtConfigPath.Multiline = True + Me.txtConfigPath.Name = "txtConfigPath" + Me.txtConfigPath.ReadOnly = True + Me.txtConfigPath.Size = New System.Drawing.Size(1216, 34) + Me.txtConfigPath.TabIndex = 26 + ' + 'ComboBox4 + ' + Me.ComboBox4.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBKONFIGURATIONBindingSource, "STATUS_BESTELLT", True)) + Me.ComboBox4.DataSource = Me.TBWH_STATUS4BindingSource + Me.ComboBox4.DisplayMember = "BEZEICHNUNG" + Me.ComboBox4.FormattingEnabled = True + Me.ComboBox4.Location = New System.Drawing.Point(492, 34) + Me.ComboBox4.Name = "ComboBox4" + Me.ComboBox4.Size = New System.Drawing.Size(151, 21) + Me.ComboBox4.TabIndex = 3 + Me.ComboBox4.ValueMember = "GUID" + ' + 'TBWH_STATUS4BindingSource + ' + Me.TBWH_STATUS4BindingSource.DataMember = "TBWH_STATUS4" + Me.TBWH_STATUS4BindingSource.DataSource = Me.MyDataset + ' + 'ComboBox3 + ' + Me.ComboBox3.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBKONFIGURATIONBindingSource, "STATUS_SD", True)) + Me.ComboBox3.DataSource = Me.TBWH_STATUS3BindingSource + Me.ComboBox3.DisplayMember = "BEZEICHNUNG" + Me.ComboBox3.FormattingEnabled = True + Me.ComboBox3.Location = New System.Drawing.Point(329, 34) + Me.ComboBox3.Name = "ComboBox3" + Me.ComboBox3.Size = New System.Drawing.Size(151, 21) + Me.ComboBox3.TabIndex = 2 + Me.ComboBox3.ValueMember = "GUID" + ' + 'TBWH_STATUS3BindingSource + ' + Me.TBWH_STATUS3BindingSource.DataMember = "TBWH_STATUS3" + Me.TBWH_STATUS3BindingSource.DataSource = Me.MyDataset + ' + 'ComboBox2 + ' + Me.ComboBox2.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBKONFIGURATIONBindingSource, "STATUS_BEST", True)) + Me.ComboBox2.DataSource = Me.TBWH_STATUS2BindingSource + Me.ComboBox2.DisplayMember = "BEZEICHNUNG" + Me.ComboBox2.FormattingEnabled = True + Me.ComboBox2.Location = New System.Drawing.Point(172, 34) + Me.ComboBox2.Name = "ComboBox2" + Me.ComboBox2.Size = New System.Drawing.Size(151, 21) + Me.ComboBox2.TabIndex = 1 + Me.ComboBox2.ValueMember = "GUID" + ' + 'TBWH_STATUS2BindingSource + ' + Me.TBWH_STATUS2BindingSource.DataMember = "TBWH_STATUS2" + Me.TBWH_STATUS2BindingSource.DataSource = Me.MyDataset + ' + 'ComboBox1 + ' + Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBKONFIGURATIONBindingSource, "STATUS_OK", True)) + Me.ComboBox1.DataSource = Me.TBWH_STATUS1BindingSource + Me.ComboBox1.DisplayMember = "BEZEICHNUNG" + Me.ComboBox1.FormattingEnabled = True + Me.ComboBox1.Location = New System.Drawing.Point(11, 34) + Me.ComboBox1.Name = "ComboBox1" + Me.ComboBox1.Size = New System.Drawing.Size(155, 21) + Me.ComboBox1.TabIndex = 0 + Me.ComboBox1.ValueMember = "GUID" + ' + 'TBWH_STATUS1BindingSource + ' + Me.TBWH_STATUS1BindingSource.DataMember = "TBWH_STATUS1" + Me.TBWH_STATUS1BindingSource.DataSource = Me.MyDataset + ' + 'btnSaveKonfig + ' + Me.btnSaveKonfig.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.save + Me.btnSaveKonfig.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSaveKonfig.Location = New System.Drawing.Point(490, 73) + Me.btnSaveKonfig.Name = "btnSaveKonfig" + Me.btnSaveKonfig.Size = New System.Drawing.Size(151, 24) + Me.btnSaveKonfig.TabIndex = 41 + Me.btnSaveKonfig.Text = "Speichern" + Me.btnSaveKonfig.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnSaveKonfig.UseVisualStyleBackColor = True + ' + 'GEAENDERTWANNTextBox + ' + Me.GEAENDERTWANNTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBKONFIGURATIONBindingSource, "GEAENDERTWANN", True)) + Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(333, 75) + Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox" + Me.GEAENDERTWANNTextBox.ReadOnly = True + Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(151, 22) + Me.GEAENDERTWANNTextBox.TabIndex = 6 + ' + 'GEAENDERTWERTextBox + ' + Me.GEAENDERTWERTextBox.BackColor = System.Drawing.Color.WhiteSmoke + Me.GEAENDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBKONFIGURATIONBindingSource, "GEAENDERTWER", True)) + Me.GEAENDERTWERTextBox.Location = New System.Drawing.Point(172, 75) + Me.GEAENDERTWERTextBox.Name = "GEAENDERTWERTextBox" + Me.GEAENDERTWERTextBox.ReadOnly = True + Me.GEAENDERTWERTextBox.Size = New System.Drawing.Size(151, 22) + Me.GEAENDERTWERTextBox.TabIndex = 5 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.btnsavePath) + Me.GroupBox1.Controls.Add(Me.IMPORT_BESTELLUNGENTextBox) + Me.GroupBox1.Controls.Add(Me.IMPORT_XMLARCHIVTextBox) + Me.GroupBox1.Controls.Add(Me.IMPORT_XMLTextBox) + Me.GroupBox1.Controls.Add(Me.Label20) + Me.GroupBox1.Controls.Add(Me.btnFolderBestellungen) + Me.GroupBox1.Controls.Add(Me.Label7) + Me.GroupBox1.Controls.Add(Me.btnFolderArchiv) + Me.GroupBox1.Controls.Add(Me.Label6) + Me.GroupBox1.Controls.Add(Me.Button1) + Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top + Me.GroupBox1.Location = New System.Drawing.Point(3, 166) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(1283, 119) + Me.GroupBox1.TabIndex = 25 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Speicherorte:" + ' + 'btnsavePath + ' + Me.btnsavePath.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.save + Me.btnsavePath.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnsavePath.Location = New System.Drawing.Point(592, 89) + Me.btnsavePath.Name = "btnsavePath" + Me.btnsavePath.Size = New System.Drawing.Size(125, 23) + Me.btnsavePath.TabIndex = 28 + Me.btnsavePath.Text = "Pfade speichern" + Me.btnsavePath.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnsavePath.UseVisualStyleBackColor = True + Me.btnsavePath.Visible = False + ' + 'IMPORT_BESTELLUNGENTextBox + ' + Me.IMPORT_BESTELLUNGENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBKONFIGURATIONBindingSource, "IMPORT_BESTELLUNGEN", True)) + Me.IMPORT_BESTELLUNGENTextBox.Location = New System.Drawing.Point(9, 91) + Me.IMPORT_BESTELLUNGENTextBox.Name = "IMPORT_BESTELLUNGENTextBox" + Me.IMPORT_BESTELLUNGENTextBox.Size = New System.Drawing.Size(511, 22) + Me.IMPORT_BESTELLUNGENTextBox.TabIndex = 27 + ' + 'IMPORT_XMLARCHIVTextBox + ' + Me.IMPORT_XMLARCHIVTextBox.BackColor = System.Drawing.Color.Moccasin + Me.IMPORT_XMLARCHIVTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBKONFIGURATIONBindingSource, "IMPORT_XMLARCHIV", True)) + Me.IMPORT_XMLARCHIVTextBox.Location = New System.Drawing.Point(592, 38) + Me.IMPORT_XMLARCHIVTextBox.Name = "IMPORT_XMLARCHIVTextBox" + Me.IMPORT_XMLARCHIVTextBox.Size = New System.Drawing.Size(514, 22) + Me.IMPORT_XMLARCHIVTextBox.TabIndex = 26 + ' + 'IMPORT_XMLTextBox + ' + Me.IMPORT_XMLTextBox.BackColor = System.Drawing.Color.Moccasin + Me.IMPORT_XMLTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBKONFIGURATIONBindingSource, "IMPORT_XML", True)) + Me.IMPORT_XMLTextBox.Location = New System.Drawing.Point(9, 36) + Me.IMPORT_XMLTextBox.Name = "IMPORT_XMLTextBox" + Me.IMPORT_XMLTextBox.Size = New System.Drawing.Size(511, 22) + Me.IMPORT_XMLTextBox.TabIndex = 25 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(6, 71) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(118, 13) + Me.Label20.TabIndex = 24 + Me.Label20.Text = "Ordner Bestellungen:" + ' + 'btnFolderBestellungen + ' + Me.btnFolderBestellungen.Location = New System.Drawing.Point(526, 89) + Me.btnFolderBestellungen.Name = "btnFolderBestellungen" + Me.btnFolderBestellungen.Size = New System.Drawing.Size(30, 23) + Me.btnFolderBestellungen.TabIndex = 23 + Me.btnFolderBestellungen.Text = "..." + Me.btnFolderBestellungen.UseVisualStyleBackColor = True + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(589, 18) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(183, 13) + Me.Label7.TabIndex = 21 + Me.Label7.Text = "Archivordner für eingelesene XML:" + ' + 'btnFolderArchiv + ' + Me.btnFolderArchiv.Location = New System.Drawing.Point(1112, 36) + Me.btnFolderArchiv.Name = "btnFolderArchiv" + Me.btnFolderArchiv.Size = New System.Drawing.Size(30, 23) + Me.btnFolderArchiv.TabIndex = 20 + Me.btnFolderArchiv.Text = "..." + Me.btnFolderArchiv.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(6, 18) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(147, 13) + Me.Label6.TabIndex = 18 + Me.Label6.Text = "Überwachungsordner XML:" + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(526, 36) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(30, 23) + Me.Button1.TabIndex = 3 + Me.Button1.Text = "..." + Me.Button1.UseVisualStyleBackColor = True + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Button2) + Me.GroupBox2.Controls.Add(Me.cmbDatenbank) + Me.GroupBox2.Controls.Add(Me.txtTimeout) + Me.GroupBox2.Controls.Add(Me.Label21) + Me.GroupBox2.Controls.Add(Me.Label5) + Me.GroupBox2.Controls.Add(Me.txtActualConnection) + Me.GroupBox2.Controls.Add(Me.Label4) + Me.GroupBox2.Controls.Add(Me.Label1) + Me.GroupBox2.Controls.Add(Me.Label2) + Me.GroupBox2.Controls.Add(Me.BtnConnect) + Me.GroupBox2.Controls.Add(Me.txtServer) + Me.GroupBox2.Controls.Add(Me.Label3) + Me.GroupBox2.Controls.Add(Me.txtUser) + Me.GroupBox2.Controls.Add(Me.txtPasswort) + Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top + Me.GroupBox2.Location = New System.Drawing.Point(3, 3) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(1283, 163) + Me.GroupBox2.TabIndex = 21 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Verbindungseinstellungen" + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(592, 119) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(139, 23) + Me.Button2.TabIndex = 24 + Me.Button2.Text = "AppdataFolder" + Me.Button2.UseVisualStyleBackColor = True + ' + 'cmbDatenbank + ' + Me.cmbDatenbank.FormattingEnabled = True + Me.cmbDatenbank.Location = New System.Drawing.Point(9, 119) + Me.cmbDatenbank.Name = "cmbDatenbank" + Me.cmbDatenbank.Size = New System.Drawing.Size(252, 21) + Me.cmbDatenbank.TabIndex = 3 + ' + 'txtTimeout + ' + Me.txtTimeout.Location = New System.Drawing.Point(499, 75) + Me.txtTimeout.Name = "txtTimeout" + Me.txtTimeout.Size = New System.Drawing.Size(66, 22) + Me.txtTimeout.TabIndex = 23 + Me.txtTimeout.Text = "120" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(496, 59) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(76, 13) + Me.Label21.TabIndex = 22 + Me.Label21.Text = "Timeout (sec):" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(6, 18) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(150, 13) + Me.Label5.TabIndex = 20 + Me.Label5.Text = "Aktueller ConnectionString:" + ' + 'txtActualConnection + ' + Me.txtActualConnection.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtActualConnection.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtActualConnection.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.MCSUPPLYWATCH.My.MySettings.Default, "ConfigConnectionString", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtActualConnection.Location = New System.Drawing.Point(9, 34) + Me.txtActualConnection.Name = "txtActualConnection" + Me.txtActualConnection.ReadOnly = True + Me.txtActualConnection.Size = New System.Drawing.Size(1265, 22) + Me.txtActualConnection.TabIndex = 0 + Me.txtActualConnection.Text = Global.MCSUPPLYWATCH.My.MySettings.Default.ConfigConnectionString + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(6, 103) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(67, 13) + Me.Label4.TabIndex = 19 + Me.Label4.Text = "Datenbank:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(6, 59) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(74, 13) + Me.Label1.TabIndex = 11 + Me.Label1.Text = "Server-Name:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(300, 59) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(84, 13) + Me.Label2.TabIndex = 12 + Me.Label2.Text = "Benutzername:" + ' + 'BtnConnect + ' + Me.BtnConnect.Location = New System.Drawing.Point(303, 117) + Me.BtnConnect.Name = "BtnConnect" + Me.BtnConnect.Size = New System.Drawing.Size(253, 23) + Me.BtnConnect.TabIndex = 4 + Me.BtnConnect.Text = "Verbindung zur Datenbank herstellen" + Me.BtnConnect.UseVisualStyleBackColor = True + ' + 'txtServer + ' + Me.txtServer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.MCSUPPLYWATCH.My.MySettings.Default, "SQL_SERVERNAME", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtServer.ForeColor = System.Drawing.SystemColors.MenuHighlight + Me.txtServer.Location = New System.Drawing.Point(9, 75) + Me.txtServer.Name = "txtServer" + Me.txtServer.Size = New System.Drawing.Size(288, 22) + Me.txtServer.TabIndex = 0 + Me.txtServer.Text = Global.MCSUPPLYWATCH.My.MySettings.Default.SQL_SERVERNAME + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(424, 59) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(56, 13) + Me.Label3.TabIndex = 17 + Me.Label3.Text = "Passwort:" + ' + 'txtUser + ' + Me.txtUser.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.MCSUPPLYWATCH.My.MySettings.Default, "SQL_USER", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtUser.ForeColor = System.Drawing.SystemColors.MenuHighlight + Me.txtUser.Location = New System.Drawing.Point(303, 75) + Me.txtUser.Name = "txtUser" + Me.txtUser.Size = New System.Drawing.Size(118, 22) + Me.txtUser.TabIndex = 1 + Me.txtUser.Text = Global.MCSUPPLYWATCH.My.MySettings.Default.SQL_USER + ' + 'txtPasswort + ' + Me.txtPasswort.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.MCSUPPLYWATCH.My.MySettings.Default, "SQL_PW", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtPasswort.Location = New System.Drawing.Point(427, 75) + Me.txtPasswort.Name = "txtPasswort" + Me.txtPasswort.Size = New System.Drawing.Size(64, 22) + Me.txtPasswort.TabIndex = 2 + Me.txtPasswort.Text = Global.MCSUPPLYWATCH.My.MySettings.Default.SQL_PW + Me.txtPasswort.UseSystemPasswordChar = True + ' + 'TabPage1 + ' + Me.TabPage1.AutoScroll = True + Me.TabPage1.Controls.Add(Me.GridControlSupplyZuordnung) + Me.TabPage1.Controls.Add(Me.VWGeraet_Supply_ZuordnungBindingNavigator) + Me.TabPage1.Controls.Add(Me.Panel3) + Me.TabPage1.Controls.Add(Me.Splitter1) + Me.TabPage1.Controls.Add(Me.spltC_Vertrag_Produkt) + Me.TabPage1.Location = New System.Drawing.Point(4, 23) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(1303, 522) + Me.TabPage1.TabIndex = 2 + Me.TabPage1.Text = "Vertrag-Produkt-Zuordnung" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'GridControlSupplyZuordnung + ' + Me.GridControlSupplyZuordnung.DataSource = Me.VWGeraet_Supply_ZuordnungBindingSource + Me.GridControlSupplyZuordnung.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlSupplyZuordnung.Location = New System.Drawing.Point(520, 140) + Me.GridControlSupplyZuordnung.MainView = Me.GridViewSupplyZuordnung + Me.GridControlSupplyZuordnung.Name = "GridControlSupplyZuordnung" + Me.GridControlSupplyZuordnung.Size = New System.Drawing.Size(780, 379) + Me.GridControlSupplyZuordnung.TabIndex = 24 + Me.GridControlSupplyZuordnung.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSupplyZuordnung, Me.GridView2}) + ' + 'VWGeraet_Supply_ZuordnungBindingSource + ' + Me.VWGeraet_Supply_ZuordnungBindingSource.DataMember = "VWGeraet_Supply_Zuordnung" + Me.VWGeraet_Supply_ZuordnungBindingSource.DataSource = Me.MyDataset + ' + 'GridViewSupplyZuordnung + ' + Me.GridViewSupplyZuordnung.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridViewSupplyZuordnung.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewSupplyZuordnung.Appearance.OddRow.BackColor = System.Drawing.Color.White + Me.GridViewSupplyZuordnung.Appearance.OddRow.Options.UseBackColor = True + Me.GridViewSupplyZuordnung.Appearance.SelectedRow.BackColor = System.Drawing.Color.Magenta + Me.GridViewSupplyZuordnung.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewSupplyZuordnung.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID2, Me.colGERAET_BEZ1, Me.colSUPPLY_BEZ1, Me.colPARTNUMBER1, Me.colPARTNUMBER_ORDER, Me.colSCHWELLENWERT1}) + Me.GridViewSupplyZuordnung.GridControl = Me.GridControlSupplyZuordnung + Me.GridViewSupplyZuordnung.Name = "GridViewSupplyZuordnung" + Me.GridViewSupplyZuordnung.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewSupplyZuordnung.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewSupplyZuordnung.OptionsBehavior.Editable = False + Me.GridViewSupplyZuordnung.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewSupplyZuordnung.OptionsSelection.MultiSelect = True + Me.GridViewSupplyZuordnung.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewSupplyZuordnung.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewSupplyZuordnung.OptionsView.EnableAppearanceOddRow = True + Me.GridViewSupplyZuordnung.OptionsView.ShowAutoFilterRow = True + ' + 'colGUID2 + ' + Me.colGUID2.Caption = "ID" + Me.colGUID2.FieldName = "GUID" + Me.colGUID2.Name = "colGUID2" + Me.colGUID2.Visible = True + Me.colGUID2.VisibleIndex = 0 + ' + 'colGERAET_BEZ1 + ' + Me.colGERAET_BEZ1.Caption = "Model-Nr." + Me.colGERAET_BEZ1.FieldName = "GERAET_BEZ" + Me.colGERAET_BEZ1.Name = "colGERAET_BEZ1" + Me.colGERAET_BEZ1.Visible = True + Me.colGERAET_BEZ1.VisibleIndex = 1 + ' + 'colSUPPLY_BEZ1 + ' + Me.colSUPPLY_BEZ1.Caption = "Supply-Bez." + Me.colSUPPLY_BEZ1.FieldName = "SUPPLY_BEZ" + Me.colSUPPLY_BEZ1.Name = "colSUPPLY_BEZ1" + Me.colSUPPLY_BEZ1.Visible = True + Me.colSUPPLY_BEZ1.VisibleIndex = 2 + ' + 'colPARTNUMBER1 + ' + Me.colPARTNUMBER1.Caption = "Partnumber" + Me.colPARTNUMBER1.FieldName = "PARTNUMBER" + Me.colPARTNUMBER1.Name = "colPARTNUMBER1" + Me.colPARTNUMBER1.Visible = True + Me.colPARTNUMBER1.VisibleIndex = 3 + ' + 'colPARTNUMBER_ORDER + ' + Me.colPARTNUMBER_ORDER.Caption = "Partnumber Order" + Me.colPARTNUMBER_ORDER.FieldName = "PARTNUMBER_ORDER" + Me.colPARTNUMBER_ORDER.Name = "colPARTNUMBER_ORDER" + Me.colPARTNUMBER_ORDER.Visible = True + Me.colPARTNUMBER_ORDER.VisibleIndex = 4 + ' + 'colSCHWELLENWERT1 + ' + Me.colSCHWELLENWERT1.Caption = "Schwellenwert" + Me.colSCHWELLENWERT1.FieldName = "SCHWELLENWERT" + Me.colSCHWELLENWERT1.Name = "colSCHWELLENWERT1" + Me.colSCHWELLENWERT1.Visible = True + Me.colSCHWELLENWERT1.VisibleIndex = 5 + ' + 'GridView2 + ' + Me.GridView2.GridControl = Me.GridControlSupplyZuordnung + Me.GridView2.Name = "GridView2" + ' + 'VWGeraet_Supply_ZuordnungBindingNavigator + ' + Me.VWGeraet_Supply_ZuordnungBindingNavigator.AddNewItem = Nothing + Me.VWGeraet_Supply_ZuordnungBindingNavigator.BindingSource = Me.VWGeraet_Supply_ZuordnungBindingSource + Me.VWGeraet_Supply_ZuordnungBindingNavigator.CountItem = Me.ToolStripLabel6 + Me.VWGeraet_Supply_ZuordnungBindingNavigator.CountItemFormat = "von {0} Gerät-Supply Zuordnungen" + Me.VWGeraet_Supply_ZuordnungBindingNavigator.DeleteItem = Nothing + Me.VWGeraet_Supply_ZuordnungBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton23, Me.ToolStripButton24, Me.ToolStripSeparator19, Me.ToolStripTextBox6, Me.ToolStripLabel6, Me.ToolStripSeparator20, Me.ToolStripButton25, Me.ToolStripButton26, Me.ToolStripSeparator21, Me.ToolStripButton28, Me.ToolStripButton29}) + Me.VWGeraet_Supply_ZuordnungBindingNavigator.Location = New System.Drawing.Point(520, 115) + Me.VWGeraet_Supply_ZuordnungBindingNavigator.MoveFirstItem = Me.ToolStripButton23 + Me.VWGeraet_Supply_ZuordnungBindingNavigator.MoveLastItem = Me.ToolStripButton26 + Me.VWGeraet_Supply_ZuordnungBindingNavigator.MoveNextItem = Me.ToolStripButton25 + Me.VWGeraet_Supply_ZuordnungBindingNavigator.MovePreviousItem = Me.ToolStripButton24 + Me.VWGeraet_Supply_ZuordnungBindingNavigator.Name = "VWGeraet_Supply_ZuordnungBindingNavigator" + Me.VWGeraet_Supply_ZuordnungBindingNavigator.PositionItem = Me.ToolStripTextBox6 + Me.VWGeraet_Supply_ZuordnungBindingNavigator.Size = New System.Drawing.Size(780, 25) + Me.VWGeraet_Supply_ZuordnungBindingNavigator.TabIndex = 3 + Me.VWGeraet_Supply_ZuordnungBindingNavigator.Text = "BindingNavigator1" + ' + 'ToolStripLabel6 + ' + Me.ToolStripLabel6.Name = "ToolStripLabel6" + Me.ToolStripLabel6.Size = New System.Drawing.Size(192, 22) + Me.ToolStripLabel6.Text = "von {0} Gerät-Supply Zuordnungen" + Me.ToolStripLabel6.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton23 + ' + Me.ToolStripButton23.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton23.Image = CType(resources.GetObject("ToolStripButton23.Image"), System.Drawing.Image) + Me.ToolStripButton23.Name = "ToolStripButton23" + Me.ToolStripButton23.RightToLeftAutoMirrorImage = True + Me.ToolStripButton23.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton23.Text = "Erste verschieben" + ' + 'ToolStripButton24 + ' + Me.ToolStripButton24.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton24.Image = CType(resources.GetObject("ToolStripButton24.Image"), System.Drawing.Image) + Me.ToolStripButton24.Name = "ToolStripButton24" + Me.ToolStripButton24.RightToLeftAutoMirrorImage = True + Me.ToolStripButton24.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton24.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator19 + ' + Me.ToolStripSeparator19.Name = "ToolStripSeparator19" + Me.ToolStripSeparator19.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox6 + ' + Me.ToolStripTextBox6.AccessibleName = "Position" + Me.ToolStripTextBox6.AutoSize = False + Me.ToolStripTextBox6.Name = "ToolStripTextBox6" + Me.ToolStripTextBox6.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox6.Text = "0" + Me.ToolStripTextBox6.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator20 + ' + Me.ToolStripSeparator20.Name = "ToolStripSeparator20" + Me.ToolStripSeparator20.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton25 + ' + Me.ToolStripButton25.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton25.Image = CType(resources.GetObject("ToolStripButton25.Image"), System.Drawing.Image) + Me.ToolStripButton25.Name = "ToolStripButton25" + Me.ToolStripButton25.RightToLeftAutoMirrorImage = True + Me.ToolStripButton25.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton25.Text = "Nächste verschieben" + ' + 'ToolStripButton26 + ' + Me.ToolStripButton26.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton26.Image = CType(resources.GetObject("ToolStripButton26.Image"), System.Drawing.Image) + Me.ToolStripButton26.Name = "ToolStripButton26" + Me.ToolStripButton26.RightToLeftAutoMirrorImage = True + Me.ToolStripButton26.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton26.Text = "Letzte verschieben" + ' + 'ToolStripSeparator21 + ' + Me.ToolStripSeparator21.Name = "ToolStripSeparator21" + Me.ToolStripSeparator21.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton28 + ' + Me.ToolStripButton28.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton28.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.aktualisieren_1 + Me.ToolStripButton28.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton28.Name = "ToolStripButton28" + Me.ToolStripButton28.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton28.Text = "Aktualisieren" + ' + 'ToolStripButton29 + ' + Me.ToolStripButton29.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton29.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.Delete1 + Me.ToolStripButton29.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton29.Name = "ToolStripButton29" + Me.ToolStripButton29.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton29.Text = "Zuordnung löschen" + ' + 'Panel3 + ' + Me.Panel3.AutoScroll = True + Me.Panel3.Controls.Add(Me.GroupBox9) + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel3.Location = New System.Drawing.Point(520, 3) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(780, 112) + Me.Panel3.TabIndex = 0 + ' + 'GroupBox9 + ' + Me.GroupBox9.Controls.Add(Me.txtPartnumerORDER) + Me.GroupBox9.Controls.Add(Me.Label19) + Me.GroupBox9.Controls.Add(Me.txtSchwellenwert) + Me.GroupBox9.Controls.Add(Me.Label18) + Me.GroupBox9.Controls.Add(Me.txtPartnumber) + Me.GroupBox9.Controls.Add(Me.Label17) + Me.GroupBox9.Controls.Add(Me.cmbSupplyDefinition) + Me.GroupBox9.Controls.Add(Me.Label16) + Me.GroupBox9.Controls.Add(Me.btnaddgeraete_SupplyZO) + Me.GroupBox9.Controls.Add(Me.Label15) + Me.GroupBox9.Controls.Add(Me.cmbModelle_WH) + Me.GroupBox9.Location = New System.Drawing.Point(3, 3) + Me.GroupBox9.Name = "GroupBox9" + Me.GroupBox9.Size = New System.Drawing.Size(627, 106) + Me.GroupBox9.TabIndex = 2 + Me.GroupBox9.TabStop = False + Me.GroupBox9.Text = "Neue Supply-Zuordnung generieren:" + ' + 'txtPartnumerORDER + ' + Me.txtPartnumerORDER.Location = New System.Drawing.Point(9, 78) + Me.txtPartnumerORDER.Name = "txtPartnumerORDER" + Me.txtPartnumerORDER.Size = New System.Drawing.Size(133, 22) + Me.txtPartnumerORDER.TabIndex = 3 + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(6, 62) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(176, 13) + Me.Label19.TabIndex = 9 + Me.Label19.Text = "4: PartNumber ORDER definieren" + ' + 'txtSchwellenwert + ' + Me.txtSchwellenwert.Location = New System.Drawing.Point(245, 78) + Me.txtSchwellenwert.Name = "txtSchwellenwert" + Me.txtSchwellenwert.Size = New System.Drawing.Size(61, 22) + Me.txtSchwellenwert.TabIndex = 4 + Me.txtSchwellenwert.Text = "30" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(242, 62) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(146, 13) + Me.Label18.TabIndex = 7 + Me.Label18.Text = "5: Schwellenwert eingeben" + ' + 'txtPartnumber + ' + Me.txtPartnumber.Location = New System.Drawing.Point(482, 34) + Me.txtPartnumber.Name = "txtPartnumber" + Me.txtPartnumber.Size = New System.Drawing.Size(133, 22) + Me.txtPartnumber.TabIndex = 2 + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(479, 18) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(136, 13) + Me.Label17.TabIndex = 5 + Me.Label17.Text = "3: PartNumber definieren" + ' + 'cmbSupplyDefinition + ' + Me.cmbSupplyDefinition.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest + Me.cmbSupplyDefinition.DataSource = Me.TBSUPPLY_DEFINITIONBindingSource + Me.cmbSupplyDefinition.DisplayMember = "SUPPLY_BEZ" + Me.cmbSupplyDefinition.FormattingEnabled = True + Me.cmbSupplyDefinition.Location = New System.Drawing.Point(245, 34) + Me.cmbSupplyDefinition.Name = "cmbSupplyDefinition" + Me.cmbSupplyDefinition.Size = New System.Drawing.Size(230, 21) + Me.cmbSupplyDefinition.TabIndex = 1 + Me.cmbSupplyDefinition.ValueMember = "GUID" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(242, 18) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(115, 13) + Me.Label16.TabIndex = 3 + Me.Label16.Text = "2: Supply-Typ wählen" + ' + 'btnaddgeraete_SupplyZO + ' + Me.btnaddgeraete_SupplyZO.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.link_add + Me.btnaddgeraete_SupplyZO.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnaddgeraete_SupplyZO.Location = New System.Drawing.Point(460, 73) + Me.btnaddgeraete_SupplyZO.Name = "btnaddgeraete_SupplyZO" + Me.btnaddgeraete_SupplyZO.Size = New System.Drawing.Size(155, 29) + Me.btnaddgeraete_SupplyZO.TabIndex = 5 + Me.btnaddgeraete_SupplyZO.Text = "Zuordnung hinzufügen" + Me.btnaddgeraete_SupplyZO.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnaddgeraete_SupplyZO.UseVisualStyleBackColor = True + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(6, 18) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(146, 13) + Me.Label15.TabIndex = 1 + Me.Label15.Text = "1: Modell-Nummer wählen:" + ' + 'cmbModelle_WH + ' + Me.cmbModelle_WH.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cmbModelle_WH.DataSource = Me.TBWH_MODELLBindingSource + Me.cmbModelle_WH.DisplayMember = "String" + Me.cmbModelle_WH.FormattingEnabled = True + Me.cmbModelle_WH.Location = New System.Drawing.Point(9, 34) + Me.cmbModelle_WH.Name = "cmbModelle_WH" + Me.cmbModelle_WH.Size = New System.Drawing.Size(230, 21) + Me.cmbModelle_WH.TabIndex = 0 + Me.cmbModelle_WH.ValueMember = "PRODUKT_NR" + ' + 'TBWH_MODELLBindingSource + ' + Me.TBWH_MODELLBindingSource.DataMember = "TBWH_MODELL" + Me.TBWH_MODELLBindingSource.DataSource = Me.MyDataset + ' + 'Splitter1 + ' + Me.Splitter1.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.MCSUPPLYWATCH.My.MySettings.Default, "splitter_VertragProdukt", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.Splitter1.Location = Global.MCSUPPLYWATCH.My.MySettings.Default.splitter_VertragProdukt + Me.Splitter1.Name = "Splitter1" + Me.Splitter1.Size = New System.Drawing.Size(10, 516) + Me.Splitter1.TabIndex = 2 + Me.Splitter1.TabStop = False + ' + 'spltC_Vertrag_Produkt + ' + Me.spltC_Vertrag_Produkt.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.MCSUPPLYWATCH.My.MySettings.Default, "spltProduktVertrag", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.spltC_Vertrag_Produkt.Dock = System.Windows.Forms.DockStyle.Left + Me.spltC_Vertrag_Produkt.Location = New System.Drawing.Point(3, 3) + Me.spltC_Vertrag_Produkt.Name = "spltC_Vertrag_Produkt" + Me.spltC_Vertrag_Produkt.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'spltC_Vertrag_Produkt.Panel1 + ' + Me.spltC_Vertrag_Produkt.Panel1.Controls.Add(Me.GridControlVertraege) + Me.spltC_Vertrag_Produkt.Panel1.Controls.Add(Me.TBVERTRAEGEBindingNavigator) + ' + 'spltC_Vertrag_Produkt.Panel2 + ' + Me.spltC_Vertrag_Produkt.Panel2.AutoScroll = True + Me.spltC_Vertrag_Produkt.Panel2.Controls.Add(Me.GridControlProduktVertrag) + Me.spltC_Vertrag_Produkt.Panel2.Controls.Add(Me.TBPRODUKT_VERTRAGBindingNavigator) + Me.spltC_Vertrag_Produkt.Size = New System.Drawing.Size(507, 516) + Me.spltC_Vertrag_Produkt.SplitterDistance = Global.MCSUPPLYWATCH.My.MySettings.Default.spltProduktVertrag + Me.spltC_Vertrag_Produkt.TabIndex = 1 + ' + 'GridControlVertraege + ' + Me.GridControlVertraege.DataSource = Me.TBVERTRAEGEBindingSource + Me.GridControlVertraege.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlVertraege.Location = New System.Drawing.Point(0, 25) + Me.GridControlVertraege.MainView = Me.GridViewVertraege + Me.GridControlVertraege.Name = "GridControlVertraege" + Me.GridControlVertraege.Size = New System.Drawing.Size(507, 241) + Me.GridControlVertraege.TabIndex = 25 + Me.GridControlVertraege.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewVertraege}) + ' + 'TBVERTRAEGEBindingSource + ' + Me.TBVERTRAEGEBindingSource.DataMember = "TBVERTRAEGE" + Me.TBVERTRAEGEBindingSource.DataSource = Me.MyDataset + ' + 'GridViewVertraege + ' + Me.GridViewVertraege.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridViewVertraege.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewVertraege.Appearance.OddRow.BackColor = System.Drawing.Color.White + Me.GridViewVertraege.Appearance.OddRow.Options.UseBackColor = True + Me.GridViewVertraege.Appearance.SelectedRow.BackColor = System.Drawing.Color.Magenta + Me.GridViewVertraege.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewVertraege.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colVERTRAGSNR1, Me.colERFASSTWER1, Me.colERFASSTWANN3}) + Me.GridViewVertraege.GridControl = Me.GridControlVertraege + Me.GridViewVertraege.Name = "GridViewVertraege" + Me.GridViewVertraege.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewVertraege.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewVertraege.OptionsBehavior.Editable = False + Me.GridViewVertraege.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewVertraege.OptionsSelection.MultiSelect = True + Me.GridViewVertraege.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewVertraege.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewVertraege.OptionsView.EnableAppearanceOddRow = True + Me.GridViewVertraege.OptionsView.ShowAutoFilterRow = True + ' + 'colGUID1 + ' + Me.colGUID1.Caption = "ID" + Me.colGUID1.FieldName = "GUID" + Me.colGUID1.Name = "colGUID1" + Me.colGUID1.Visible = True + Me.colGUID1.VisibleIndex = 0 + Me.colGUID1.Width = 50 + ' + 'colVERTRAGSNR1 + ' + Me.colVERTRAGSNR1.Caption = "Vertrag" + Me.colVERTRAGSNR1.FieldName = "VERTRAGSNR" + Me.colVERTRAGSNR1.Name = "colVERTRAGSNR1" + Me.colVERTRAGSNR1.Visible = True + Me.colVERTRAGSNR1.VisibleIndex = 1 + Me.colVERTRAGSNR1.Width = 145 + ' + 'colERFASSTWER1 + ' + Me.colERFASSTWER1.Caption = "Erfasst Wer" + Me.colERFASSTWER1.FieldName = "ERFASSTWER" + Me.colERFASSTWER1.Name = "colERFASSTWER1" + Me.colERFASSTWER1.Visible = True + Me.colERFASSTWER1.VisibleIndex = 2 + Me.colERFASSTWER1.Width = 145 + ' + 'colERFASSTWANN3 + ' + Me.colERFASSTWANN3.Caption = "Erfasst wann" + Me.colERFASSTWANN3.FieldName = "ERFASSTWANN" + Me.colERFASSTWANN3.Name = "colERFASSTWANN3" + Me.colERFASSTWANN3.Visible = True + Me.colERFASSTWANN3.VisibleIndex = 3 + Me.colERFASSTWANN3.Width = 149 + ' + 'TBVERTRAEGEBindingNavigator + ' + Me.TBVERTRAEGEBindingNavigator.AddNewItem = Nothing + Me.TBVERTRAEGEBindingNavigator.BindingSource = Me.TBVERTRAEGEBindingSource + Me.TBVERTRAEGEBindingNavigator.CountItem = Me.BindingNavigatorCountItem5 + Me.TBVERTRAEGEBindingNavigator.CountItemFormat = "von {0} Verträgen" + Me.TBVERTRAEGEBindingNavigator.DeleteItem = Nothing + Me.TBVERTRAEGEBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem5, Me.BindingNavigatorMovePreviousItem5, Me.BindingNavigatorSeparator15, Me.BindingNavigatorPositionItem5, Me.BindingNavigatorCountItem5, Me.BindingNavigatorSeparator16, Me.BindingNavigatorMoveNextItem5, Me.BindingNavigatorMoveLastItem5, Me.BindingNavigatorSeparator17, Me.tsbn_refresh_Vertraege, Me.tsbtn_showImport}) + Me.TBVERTRAEGEBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBVERTRAEGEBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem5 + Me.TBVERTRAEGEBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem5 + Me.TBVERTRAEGEBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem5 + Me.TBVERTRAEGEBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem5 + Me.TBVERTRAEGEBindingNavigator.Name = "TBVERTRAEGEBindingNavigator" + Me.TBVERTRAEGEBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem5 + Me.TBVERTRAEGEBindingNavigator.Size = New System.Drawing.Size(507, 25) + Me.TBVERTRAEGEBindingNavigator.TabIndex = 0 + Me.TBVERTRAEGEBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem5 + ' + Me.BindingNavigatorCountItem5.Name = "BindingNavigatorCountItem5" + Me.BindingNavigatorCountItem5.Size = New System.Drawing.Size(97, 22) + Me.BindingNavigatorCountItem5.Text = "von {0} Verträgen" + Me.BindingNavigatorCountItem5.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem5 + ' + Me.BindingNavigatorMoveFirstItem5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem5.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem5.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem5.Name = "BindingNavigatorMoveFirstItem5" + Me.BindingNavigatorMoveFirstItem5.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem5.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem5.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem5 + ' + Me.BindingNavigatorMovePreviousItem5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem5.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem5.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem5.Name = "BindingNavigatorMovePreviousItem5" + Me.BindingNavigatorMovePreviousItem5.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem5.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem5.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator15 + ' + Me.BindingNavigatorSeparator15.Name = "BindingNavigatorSeparator15" + Me.BindingNavigatorSeparator15.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem5 + ' + Me.BindingNavigatorPositionItem5.AccessibleName = "Position" + Me.BindingNavigatorPositionItem5.AutoSize = False + Me.BindingNavigatorPositionItem5.Name = "BindingNavigatorPositionItem5" + Me.BindingNavigatorPositionItem5.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem5.Text = "0" + Me.BindingNavigatorPositionItem5.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator16 + ' + Me.BindingNavigatorSeparator16.Name = "BindingNavigatorSeparator16" + Me.BindingNavigatorSeparator16.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem5 + ' + Me.BindingNavigatorMoveNextItem5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem5.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem5.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem5.Name = "BindingNavigatorMoveNextItem5" + Me.BindingNavigatorMoveNextItem5.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem5.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem5.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem5 + ' + Me.BindingNavigatorMoveLastItem5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem5.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem5.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem5.Name = "BindingNavigatorMoveLastItem5" + Me.BindingNavigatorMoveLastItem5.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem5.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem5.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator17 + ' + Me.BindingNavigatorSeparator17.Name = "BindingNavigatorSeparator17" + Me.BindingNavigatorSeparator17.Size = New System.Drawing.Size(6, 25) + ' + 'tsbn_refresh_Vertraege + ' + Me.tsbn_refresh_Vertraege.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbn_refresh_Vertraege.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.aktualisieren_1 + Me.tsbn_refresh_Vertraege.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbn_refresh_Vertraege.Name = "tsbn_refresh_Vertraege" + Me.tsbn_refresh_Vertraege.Size = New System.Drawing.Size(23, 22) + Me.tsbn_refresh_Vertraege.Text = "ToolStripButton17" + ' + 'tsbtn_showImport + ' + Me.tsbtn_showImport.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tsbtn_showImport.Image = Global.MCSUPPLYWATCH.My.Resources.Resources.My_Downloads_XP + Me.tsbtn_showImport.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtn_showImport.Name = "tsbtn_showImport" + Me.tsbtn_showImport.Size = New System.Drawing.Size(207, 22) + Me.tsbtn_showImport.Text = "Daten importieren/aktualisieren" + ' + 'GridControlProduktVertrag + ' + Me.GridControlProduktVertrag.DataSource = Me.TBPRODUKT_VERTRAGBindingSource + Me.GridControlProduktVertrag.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlProduktVertrag.Location = New System.Drawing.Point(0, 25) + Me.GridControlProduktVertrag.MainView = Me.GridViewProduktVertrag + Me.GridControlProduktVertrag.Name = "GridControlProduktVertrag" + Me.GridControlProduktVertrag.Size = New System.Drawing.Size(507, 221) + Me.GridControlProduktVertrag.TabIndex = 26 + Me.GridControlProduktVertrag.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProduktVertrag}) + ' + 'TBPRODUKT_VERTRAGBindingSource + ' + Me.TBPRODUKT_VERTRAGBindingSource.DataMember = "FK_TBPRODUKT_VERTRAG_VERTRAG" + Me.TBPRODUKT_VERTRAGBindingSource.DataSource = Me.TBVERTRAEGEBindingSource + ' + 'GridViewProduktVertrag + ' + Me.GridViewProduktVertrag.Appearance.EvenRow.BackColor = System.Drawing.Color.Orange + Me.GridViewProduktVertrag.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewProduktVertrag.Appearance.OddRow.BackColor = System.Drawing.Color.White + Me.GridViewProduktVertrag.Appearance.OddRow.Options.UseBackColor = True + Me.GridViewProduktVertrag.Appearance.SelectedRow.BackColor = System.Drawing.Color.Magenta + Me.GridViewProduktVertrag.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewProduktVertrag.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID3, Me.colSERIEN_NR2, Me.colPRODUKT_NR, Me.colMODELL_NAME}) + Me.GridViewProduktVertrag.GridControl = Me.GridControlProduktVertrag + Me.GridViewProduktVertrag.Name = "GridViewProduktVertrag" + Me.GridViewProduktVertrag.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewProduktVertrag.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewProduktVertrag.OptionsBehavior.Editable = False + Me.GridViewProduktVertrag.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewProduktVertrag.OptionsSelection.MultiSelect = True + Me.GridViewProduktVertrag.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewProduktVertrag.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewProduktVertrag.OptionsView.EnableAppearanceOddRow = True + Me.GridViewProduktVertrag.OptionsView.ShowAutoFilterRow = True + ' + 'colGUID3 + ' + Me.colGUID3.Caption = "ID" + Me.colGUID3.FieldName = "GUID" + Me.colGUID3.Name = "colGUID3" + Me.colGUID3.Visible = True + Me.colGUID3.VisibleIndex = 0 + Me.colGUID3.Width = 41 + ' + 'colSERIEN_NR2 + ' + Me.colSERIEN_NR2.Caption = "Serial" + Me.colSERIEN_NR2.FieldName = "SERIEN_NR" + Me.colSERIEN_NR2.Name = "colSERIEN_NR2" + Me.colSERIEN_NR2.Visible = True + Me.colSERIEN_NR2.VisibleIndex = 1 + Me.colSERIEN_NR2.Width = 66 + ' + 'colPRODUKT_NR + ' + Me.colPRODUKT_NR.Caption = "ProduktNr" + Me.colPRODUKT_NR.FieldName = "PRODUKT_NR" + Me.colPRODUKT_NR.Name = "colPRODUKT_NR" + Me.colPRODUKT_NR.Visible = True + Me.colPRODUKT_NR.VisibleIndex = 2 + Me.colPRODUKT_NR.Width = 20 + ' + 'colMODELL_NAME + ' + Me.colMODELL_NAME.Caption = "Modell" + Me.colMODELL_NAME.FieldName = "MODELL_NAME" + Me.colMODELL_NAME.Name = "colMODELL_NAME" + Me.colMODELL_NAME.Visible = True + Me.colMODELL_NAME.VisibleIndex = 3 + Me.colMODELL_NAME.Width = 20 + ' + 'TBPRODUKT_VERTRAGBindingNavigator + ' + Me.TBPRODUKT_VERTRAGBindingNavigator.AddNewItem = Nothing + Me.TBPRODUKT_VERTRAGBindingNavigator.BindingSource = Me.TBPRODUKT_VERTRAGBindingSource + Me.TBPRODUKT_VERTRAGBindingNavigator.CountItem = Me.BindingNavigatorCountItem6 + Me.TBPRODUKT_VERTRAGBindingNavigator.CountItemFormat = "von {0} Produktnummern zu Vertrag:" + Me.TBPRODUKT_VERTRAGBindingNavigator.DeleteItem = Nothing + Me.TBPRODUKT_VERTRAGBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem6, Me.BindingNavigatorMovePreviousItem6, Me.BindingNavigatorSeparator18, Me.BindingNavigatorPositionItem6, Me.BindingNavigatorCountItem6, Me.BindingNavigatorSeparator19, Me.BindingNavigatorMoveNextItem6, Me.BindingNavigatorMoveLastItem6, Me.BindingNavigatorSeparator20}) + Me.TBPRODUKT_VERTRAGBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBPRODUKT_VERTRAGBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem6 + Me.TBPRODUKT_VERTRAGBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem6 + Me.TBPRODUKT_VERTRAGBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem6 + Me.TBPRODUKT_VERTRAGBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem6 + Me.TBPRODUKT_VERTRAGBindingNavigator.Name = "TBPRODUKT_VERTRAGBindingNavigator" + Me.TBPRODUKT_VERTRAGBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem6 + Me.TBPRODUKT_VERTRAGBindingNavigator.Size = New System.Drawing.Size(507, 25) + Me.TBPRODUKT_VERTRAGBindingNavigator.TabIndex = 0 + Me.TBPRODUKT_VERTRAGBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem6 + ' + Me.BindingNavigatorCountItem6.Name = "BindingNavigatorCountItem6" + Me.BindingNavigatorCountItem6.Size = New System.Drawing.Size(200, 22) + Me.BindingNavigatorCountItem6.Text = "von {0} Produktnummern zu Vertrag:" + Me.BindingNavigatorCountItem6.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem6 + ' + Me.BindingNavigatorMoveFirstItem6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem6.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem6.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem6.Name = "BindingNavigatorMoveFirstItem6" + Me.BindingNavigatorMoveFirstItem6.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem6.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem6.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem6 + ' + Me.BindingNavigatorMovePreviousItem6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem6.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem6.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem6.Name = "BindingNavigatorMovePreviousItem6" + Me.BindingNavigatorMovePreviousItem6.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem6.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem6.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator18 + ' + Me.BindingNavigatorSeparator18.Name = "BindingNavigatorSeparator18" + Me.BindingNavigatorSeparator18.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem6 + ' + Me.BindingNavigatorPositionItem6.AccessibleName = "Position" + Me.BindingNavigatorPositionItem6.AutoSize = False + Me.BindingNavigatorPositionItem6.Name = "BindingNavigatorPositionItem6" + Me.BindingNavigatorPositionItem6.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem6.Text = "0" + Me.BindingNavigatorPositionItem6.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator19 + ' + Me.BindingNavigatorSeparator19.Name = "BindingNavigatorSeparator19" + Me.BindingNavigatorSeparator19.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem6 + ' + Me.BindingNavigatorMoveNextItem6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem6.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem6.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem6.Name = "BindingNavigatorMoveNextItem6" + Me.BindingNavigatorMoveNextItem6.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem6.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem6.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem6 + ' + Me.BindingNavigatorMoveLastItem6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem6.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem6.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem6.Name = "BindingNavigatorMoveLastItem6" + Me.BindingNavigatorMoveLastItem6.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem6.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem6.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator20 + ' + Me.BindingNavigatorSeparator20.Name = "BindingNavigatorSeparator20" + Me.BindingNavigatorSeparator20.Size = New System.Drawing.Size(6, 25) + ' + 'ImageList1 + ' + Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent + Me.ImageList1.Images.SetKeyName(0, "Einstellungen6.ico") + Me.ImageList1.Images.SetKeyName(1, "ico1778.ico") + Me.ImageList1.Images.SetKeyName(2, "Schaf.ico") + ' + 'TBGERAETByMarktBindingSource + ' + Me.TBGERAETByMarktBindingSource.DataMember = "TBGERAETByMarkt" + Me.TBGERAETByMarktBindingSource.DataSource = Me.MyDataset + ' + 'TBGERAET_SUPPLY_ZUORDNUNGBindingSource + ' + Me.TBGERAET_SUPPLY_ZUORDNUNGBindingSource.DataMember = "TBGERAET_SUPPLY_ZUORDNUNG" + Me.TBGERAET_SUPPLY_ZUORDNUNGBindingSource.DataSource = Me.MyDataset + ' + 'Timer_Uhrzeit + ' + Me.Timer_Uhrzeit.Interval = 1000 + ' + 'TBKONFIGURATIONTableAdapter + ' + Me.TBKONFIGURATIONTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBGERAET_SUPPLY_ZUORDNUNGTableAdapter = Nothing + Me.TableAdapterManager.TBGERAETByMarktTableAdapter = Nothing + Me.TableAdapterManager.TBGERAETE_NOTINLISTTableAdapter = Nothing + Me.TableAdapterManager.TBGERAETE_VERFOLGUNGTableAdapter = Nothing + Me.TableAdapterManager.TBKONFIGURATIONTableAdapter = Me.TBKONFIGURATIONTableAdapter + Me.TableAdapterManager.TBMANDANTENTableAdapter = Nothing + Me.TableAdapterManager.TBMELDEDATUMTableAdapter = Nothing + Me.TableAdapterManager.TBPRODUKT_VERTRAGTableAdapter = Nothing + Me.TableAdapterManager.TBSTATUSTableAdapter = Nothing + Me.TableAdapterManager.TBSUPPLIESTableAdapter = Nothing + Me.TableAdapterManager.TBSUPPLY_BESTELLUNGTableAdapter = Nothing + Me.TableAdapterManager.TBSUPPLY_DEFINITIONTableAdapter = Nothing + Me.TableAdapterManager.TBSUPPLY_VERFOLGUNGTableAdapter = Nothing + Me.TableAdapterManager.TBUSER_RECHTETableAdapter = Nothing + Me.TableAdapterManager.TBVERTRAEGETableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = MCSUPPLYWATCH.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.VWSUPPLY_BESTELLUNG_FRONTENDTableAdapter = Nothing + ' + 'TBWH_STATUS1TableAdapter + ' + Me.TBWH_STATUS1TableAdapter.ClearBeforeFill = True + ' + 'TBWH_STATUS2TableAdapter + ' + Me.TBWH_STATUS2TableAdapter.ClearBeforeFill = True + ' + 'TBWH_STATUS3TableAdapter + ' + Me.TBWH_STATUS3TableAdapter.ClearBeforeFill = True + ' + 'TBWH_STATUSFILTERTableAdapter + ' + Me.TBWH_STATUSFILTERTableAdapter.ClearBeforeFill = True + ' + 'TBSTATUSTableAdapter + ' + Me.TBSTATUSTableAdapter.ClearBeforeFill = True + ' + 'TBSUPPLY_VERFOLGUNGBindingSource + ' + Me.TBSUPPLY_VERFOLGUNGBindingSource.DataMember = "TBSUPPLY_VERFOLGUNG" + Me.TBSUPPLY_VERFOLGUNGBindingSource.DataSource = Me.MyDataset + ' + 'TBSUPPLY_VERFOLGUNGTableAdapter + ' + Me.TBSUPPLY_VERFOLGUNGTableAdapter.ClearBeforeFill = True + ' + 'TBGERAETE_VERFOLGUNGBindingSource + ' + Me.TBGERAETE_VERFOLGUNGBindingSource.DataMember = "TBGERAETE_VERFOLGUNG" + Me.TBGERAETE_VERFOLGUNGBindingSource.DataSource = Me.MyDataset + ' + 'TBGERAETE_VERFOLGUNGTableAdapter + ' + Me.TBGERAETE_VERFOLGUNGTableAdapter.ClearBeforeFill = True + ' + 'VWSUPPLIESTableAdapter + ' + Me.VWSUPPLIESTableAdapter.ClearBeforeFill = True + ' + 'TBWH_MARKTTableAdapter + ' + Me.TBWH_MARKTTableAdapter.ClearBeforeFill = True + ' + 'VWSUPPLIES_GERAETTableAdapter + ' + Me.VWSUPPLIES_GERAETTableAdapter.ClearBeforeFill = True + ' + 'VWGERAET_ORDERTableAdapter + ' + Me.VWGERAET_ORDERTableAdapter.ClearBeforeFill = True + ' + 'VWSUPPLIES_TO_ORDERTableAdapter + ' + Me.VWSUPPLIES_TO_ORDERTableAdapter.ClearBeforeFill = True + ' + 'VWRPT_SUPPLIES_TOORDERTableAdapter + ' + Me.VWRPT_SUPPLIES_TOORDERTableAdapter.ClearBeforeFill = True + ' + 'TBSUPPLIESBindingSource + ' + Me.TBSUPPLIESBindingSource.DataMember = "TBSUPPLIES" + Me.TBSUPPLIESBindingSource.DataSource = Me.MyDataset + ' + 'TBSUPPLIESTableAdapter + ' + Me.TBSUPPLIESTableAdapter.ClearBeforeFill = True + ' + 'TBWH_STATUS4TableAdapter + ' + Me.TBWH_STATUS4TableAdapter.ClearBeforeFill = True + ' + 'TBWH_STATUS5TableAdapter + ' + Me.TBWH_STATUS5TableAdapter.ClearBeforeFill = True + ' + 'TBSUPPLY_BESTELLUNGViewTableAdapter + ' + Me.TBSUPPLY_BESTELLUNGViewTableAdapter.ClearBeforeFill = True + ' + 'TBGERAETByMarktTableAdapter + ' + Me.TBGERAETByMarktTableAdapter.ClearBeforeFill = True + ' + 'VWGERAETE_VERFOLGUNGTableAdapter + ' + Me.VWGERAETE_VERFOLGUNGTableAdapter.ClearBeforeFill = True + ' + 'VWSUPPLY_VERFOLGUNGTableAdapter + ' + Me.VWSUPPLY_VERFOLGUNGTableAdapter.ClearBeforeFill = True + ' + 'TBVERTRAEGETableAdapter + ' + Me.TBVERTRAEGETableAdapter.ClearBeforeFill = True + ' + 'TBPRODUKT_VERTRAGTableAdapter + ' + Me.TBPRODUKT_VERTRAGTableAdapter.ClearBeforeFill = True + ' + 'TBGERAETE_NOTINLISTBindingSource + ' + Me.TBGERAETE_NOTINLISTBindingSource.DataMember = "TBGERAETE_NOTINLIST" + Me.TBGERAETE_NOTINLISTBindingSource.DataSource = Me.MyDataset + ' + 'TBGERAETE_NOTINLISTTableAdapter + ' + Me.TBGERAETE_NOTINLISTTableAdapter.ClearBeforeFill = True + ' + 'TBWH_MODELLTableAdapter + ' + Me.TBWH_MODELLTableAdapter.ClearBeforeFill = True + ' + 'TBSUPPLY_DEFINITIONTableAdapter + ' + Me.TBSUPPLY_DEFINITIONTableAdapter.ClearBeforeFill = True + ' + 'VWGeraet_Supply_ZuordnungTableAdapter + ' + Me.VWGeraet_Supply_ZuordnungTableAdapter.ClearBeforeFill = True + ' + 'TBGERAET_SUPPLY_ZUORDNUNGTableAdapter + ' + Me.TBGERAET_SUPPLY_ZUORDNUNGTableAdapter.ClearBeforeFill = True + ' + 'DS_Reporting + ' + Me.DS_Reporting.DataSetName = "DS_Reporting" + Me.DS_Reporting.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBVERTRAG_NOTEXISTBindingSource + ' + Me.TBVERTRAG_NOTEXISTBindingSource.DataMember = "TBVERTRAG_NOTEXIST" + Me.TBVERTRAG_NOTEXISTBindingSource.DataSource = Me.DS_Reporting + ' + 'TBVERTRAG_NOTEXISTTableAdapter + ' + Me.TBVERTRAG_NOTEXISTTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager1 + ' + Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager1.TBVERTRAG_NOTEXISTTableAdapter = Me.TBVERTRAG_NOTEXISTTableAdapter + Me.TableAdapterManager1.UpdateOrder = MCSUPPLYWATCH.DS_ReportingTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBMELDEDATUMBindingSource + ' + Me.TBMELDEDATUMBindingSource.DataMember = "TBMELDEDATUM" + Me.TBMELDEDATUMBindingSource.DataSource = Me.MyDataset + ' + 'TBMELDEDATUMTableAdapter + ' + Me.TBMELDEDATUMTableAdapter.ClearBeforeFill = True + ' + 'VWMarkt_VerfolgungTableAdapter + ' + Me.VWMarkt_VerfolgungTableAdapter.ClearBeforeFill = True + ' + 'TBGERAETTableAdapter + ' + Me.TBGERAETTableAdapter.ClearBeforeFill = True + ' + 'TBSUPPLY_BESTELLUNGBindingSource + ' + Me.TBSUPPLY_BESTELLUNGBindingSource.DataMember = "TBSUPPLY_BESTELLUNG" + Me.TBSUPPLY_BESTELLUNGBindingSource.DataSource = Me.MyDataset + ' + 'TBSUPPLY_BESTELLUNGTableAdapter + ' + Me.TBSUPPLY_BESTELLUNGTableAdapter.ClearBeforeFill = True + ' + 'TBMANDANTENTableAdapter + ' + Me.TBMANDANTENTableAdapter.ClearBeforeFill = True + ' + 'TBCHANGE_LOG_GERAETTableAdapter + ' + Me.TBCHANGE_LOG_GERAETTableAdapter.ClearBeforeFill = True + ' + 'ViewSUPPLY_STATUS_VERFOLGUNGTableAdapter + ' + Me.ViewSUPPLY_STATUS_VERFOLGUNGTableAdapter.ClearBeforeFill = True + ' + 'VWSUPPLIES_BESTELLUNG_GESENDETTableAdapter + ' + Me.VWSUPPLIES_BESTELLUNG_GESENDETTableAdapter.ClearBeforeFill = True + ' + 'VWSUPPLIES_2_ORDERTableAdapter + ' + Me.VWSUPPLIES_2_ORDERTableAdapter.ClearBeforeFill = True + ' + 'FMMain + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1311, 574) + Me.Controls.Add(Me.TCMain) + Me.Controls.Add(Me.StatusStrip_Main) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon) + Me.Name = "FMMain" + Me.Text = "Form1" + CType(Me.VWRPT_SUPPLIES_TOORDERBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.MyDataset,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.VWGERAET_ORDERBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.VWSUPPLIES_TO_ORDERBindingSource,System.ComponentModel.ISupportInitialize).EndInit + Me.StatusStrip_Main.ResumeLayout(false) + Me.StatusStrip_Main.PerformLayout + Me.TCMain.ResumeLayout(false) + Me.tpBewegungen.ResumeLayout(false) + Me.tpBewegungen.PerformLayout + Me.pnlUebersicht.ResumeLayout(false) + Me.TCUebersicht.ResumeLayout(false) + Me.tpGeraet_Order.ResumeLayout(false) + Me.SPCOrder.Panel1.ResumeLayout(false) + Me.SPCOrder.Panel2.ResumeLayout(false) + Me.SPCOrder.Panel2.PerformLayout + CType(Me.SPCOrder,System.ComponentModel.ISupportInitialize).EndInit + Me.SPCOrder.ResumeLayout(false) + Me.TCGeraeteOrder.ResumeLayout(false) + Me.tpOrderGeraete.ResumeLayout(false) + Me.tpOrderGeraete.PerformLayout + CType(Me.GridControlSupplies2Order,System.ComponentModel.ISupportInitialize).EndInit + Me.cmsBestellungen.ResumeLayout(false) + CType(Me.VWSUPPLIES_2_ORDERBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.GridViewSupplies2Order,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.VWGERAET_ORDERBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.VWGERAET_ORDERBindingNavigator.ResumeLayout(false) + Me.VWGERAET_ORDERBindingNavigator.PerformLayout + Me.tpGeraeteOrderReport.ResumeLayout(false) + Me.TabPageBestGesendet.ResumeLayout(false) + Me.TabPageBestGesendet.PerformLayout + CType(Me.GridControlBestellungen_gesendet,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.VWSUPPLIES_BESTELLUNG_GESENDETBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.GridViewBestellungen_Gesendet,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.BindingNavigator4,System.ComponentModel.ISupportInitialize).EndInit + Me.BindingNavigator4.ResumeLayout(false) + Me.BindingNavigator4.PerformLayout + Me.tpBestellungen.ResumeLayout(false) + Me.tpBestellungen.PerformLayout + CType(Me.GridControlBestellungen,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBSUPPLY_BESTELLUNGViewBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.GridViewBestellUebersicht,System.ComponentModel.ISupportInitialize).EndInit + Me.GroupBox6.ResumeLayout(false) + Me.GroupBox6.PerformLayout + CType(Me.DGTBWH_Markt_Bestellungen,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBWH_MARKTBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBSUPPLY_BESTELLUNGViewBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.ResumeLayout(false) + Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.PerformLayout + Me.TabPageBestell_Import.ResumeLayout(false) + Me.TabPageBestell_Import.PerformLayout + CType(Me.DataGridView2,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.DataGridView3,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.VWSUPPLY_VERFOLGUNGBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.BindingNavigator3,System.ComponentModel.ISupportInitialize).EndInit + Me.BindingNavigator3.ResumeLayout(false) + Me.BindingNavigator3.PerformLayout + Me.TabPage2.ResumeLayout(false) + Me.TabPage2.PerformLayout + CType(Me.GridControlVWSupplies,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.VWSUPPLIESBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.GridViewVWSupplies,System.ComponentModel.ISupportInitialize).EndInit + Me.Panel1.ResumeLayout(false) + Me.grbStati.ResumeLayout(false) + Me.grbStati.PerformLayout + CType(Me.TBWH_STATUSFILTERDataGridView,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBWH_STATUSFILTERBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.VWSUPPLIESBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.VWSUPPLIESBindingNavigator.ResumeLayout(false) + Me.VWSUPPLIESBindingNavigator.PerformLayout + Me.tpGeraete.ResumeLayout(false) + Me.tpGeraete.PerformLayout + Me.SCGeraete_Uebersicht.Panel1.ResumeLayout(false) + Me.SCGeraete_Uebersicht.Panel2.ResumeLayout(false) + Me.SCGeraete_Uebersicht.Panel2.PerformLayout + CType(Me.SCGeraete_Uebersicht,System.ComponentModel.ISupportInitialize).EndInit + Me.SCGeraete_Uebersicht.ResumeLayout(false) + CType(Me.SplitContainerGeraet,System.ComponentModel.ISupportInitialize).EndInit + Me.SplitContainerGeraet.ResumeLayout(false) + CType(Me.GridControlGeraete,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBGERAETBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.GridViewGeraete,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBCHANGE_LOG_GERAETDataGridView,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBCHANGE_LOG_GERAETBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.BindingNavigator1,System.ComponentModel.ISupportInitialize).EndInit + Me.BindingNavigator1.ResumeLayout(false) + Me.BindingNavigator1.PerformLayout + Me.SplitContainerSupplies.Panel1.ResumeLayout(false) + Me.SplitContainerSupplies.Panel2.ResumeLayout(false) + Me.SplitContainerSupplies.Panel2.PerformLayout + CType(Me.SplitContainerSupplies,System.ComponentModel.ISupportInitialize).EndInit + Me.SplitContainerSupplies.ResumeLayout(false) + CType(Me.VWSUPPLIES_AKTUELLDataGridView,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.VWSUPPLIES_GERAETBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.DataGridView1,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.ViewSUPPLY_STATUS_VERFOLGUNGBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.BindingNavigator2,System.ComponentModel.ISupportInitialize).EndInit + Me.BindingNavigator2.ResumeLayout(false) + Me.BindingNavigator2.PerformLayout + CType(Me.VWSUPPLIES_GERAETBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.VWSUPPLIES_GERAETBindingNavigator.ResumeLayout(false) + Me.VWSUPPLIES_GERAETBindingNavigator.PerformLayout + CType(Me.TBGERAETBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.TBGERAETBindingNavigator.ResumeLayout(false) + Me.TBGERAETBindingNavigator.PerformLayout + Me.tpVerfolgung.ResumeLayout(false) + Me.TabControlNachverfolgung.ResumeLayout(false) + Me.TabPage6.ResumeLayout(false) + Me.TabPage6.PerformLayout + CType(Me.GridControlATR,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.GridViewATR,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.VWMarkt_VerfolgungBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.VWMarkt_VerfolgungBindingNavigator.ResumeLayout(false) + Me.VWMarkt_VerfolgungBindingNavigator.PerformLayout + CType(Me.VWMarkt_VerfolgungBindingSource,System.ComponentModel.ISupportInitialize).EndInit + Me.Panel2.ResumeLayout(false) + Me.Panel2.PerformLayout + Me.GroupBox7.ResumeLayout(false) + Me.GroupBox7.PerformLayout + CType(Me.DGVTBWH_MARKT_VF,System.ComponentModel.ISupportInitialize).EndInit + Me.tsbtnSupplyverfolgung.ResumeLayout(false) + Me.tsbtnSupplyverfolgung.PerformLayout + Me.tpEinstellungen.ResumeLayout(false) + Me.TabControlEinstellungen.ResumeLayout(false) + Me.TabPage5.ResumeLayout(false) + Me.GroupBox4.ResumeLayout(false) + Me.GroupBox4.PerformLayout + CType(Me.TBSTATUSDataGridView,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBSTATUSBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBSTATUSBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.TBSTATUSBindingNavigator.ResumeLayout(false) + Me.TBSTATUSBindingNavigator.PerformLayout + Me.GroupBox8.ResumeLayout(false) + Me.GroupBox8.PerformLayout + CType(Me.TBSUPPLY_DEFINITIONDataGridView,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBSUPPLY_DEFINITIONBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBSUPPLY_DEFINITIONBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.TBSUPPLY_DEFINITIONBindingNavigator.ResumeLayout(false) + Me.TBSUPPLY_DEFINITIONBindingNavigator.PerformLayout + Me.GroupBox12.ResumeLayout(false) + Me.GroupBox12.PerformLayout + CType(Me.TBMANDANTENBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBMANDANTENDataGridView,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBMANDANTENBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.TBMANDANTENBindingNavigator.ResumeLayout(false) + Me.TBMANDANTENBindingNavigator.PerformLayout + Me.TabPage7.ResumeLayout(false) + Me.GroupBox3.ResumeLayout(false) + Me.GroupBox3.PerformLayout + CType(Me.TBKONFIGURATIONBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBWH_STATUS5BindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBWH_STATUS4BindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBWH_STATUS3BindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBWH_STATUS2BindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBWH_STATUS1BindingSource,System.ComponentModel.ISupportInitialize).EndInit + Me.GroupBox1.ResumeLayout(false) + Me.GroupBox1.PerformLayout + Me.GroupBox2.ResumeLayout(false) + Me.GroupBox2.PerformLayout + Me.TabPage1.ResumeLayout(false) + Me.TabPage1.PerformLayout + CType(Me.GridControlSupplyZuordnung,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.VWGeraet_Supply_ZuordnungBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.GridViewSupplyZuordnung,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.GridView2,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.VWGeraet_Supply_ZuordnungBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.VWGeraet_Supply_ZuordnungBindingNavigator.ResumeLayout(false) + Me.VWGeraet_Supply_ZuordnungBindingNavigator.PerformLayout + Me.Panel3.ResumeLayout(false) + Me.GroupBox9.ResumeLayout(false) + Me.GroupBox9.PerformLayout + CType(Me.TBWH_MODELLBindingSource,System.ComponentModel.ISupportInitialize).EndInit + Me.spltC_Vertrag_Produkt.Panel1.ResumeLayout(false) + Me.spltC_Vertrag_Produkt.Panel1.PerformLayout + Me.spltC_Vertrag_Produkt.Panel2.ResumeLayout(false) + Me.spltC_Vertrag_Produkt.Panel2.PerformLayout + CType(Me.spltC_Vertrag_Produkt,System.ComponentModel.ISupportInitialize).EndInit + Me.spltC_Vertrag_Produkt.ResumeLayout(false) + CType(Me.GridControlVertraege,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBVERTRAEGEBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.GridViewVertraege,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBVERTRAEGEBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.TBVERTRAEGEBindingNavigator.ResumeLayout(false) + Me.TBVERTRAEGEBindingNavigator.PerformLayout + CType(Me.GridControlProduktVertrag,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBPRODUKT_VERTRAGBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.GridViewProduktVertrag,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBPRODUKT_VERTRAGBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.TBPRODUKT_VERTRAGBindingNavigator.ResumeLayout(false) + Me.TBPRODUKT_VERTRAGBindingNavigator.PerformLayout + CType(Me.TBGERAETByMarktBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBGERAET_SUPPLY_ZUORDNUNGBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBSUPPLY_VERFOLGUNGBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBGERAETE_VERFOLGUNGBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBSUPPLIESBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBGERAETE_NOTINLISTBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.DS_Reporting,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBVERTRAG_NOTEXISTBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBMELDEDATUMBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBSUPPLY_BESTELLUNGBindingSource,System.ComponentModel.ISupportInitialize).EndInit + Me.ResumeLayout(false) + Me.PerformLayout + +End Sub + Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip + Friend WithEvents StatusUser As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents Status_Machine As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents Status_Clock As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TCMain As System.Windows.Forms.TabControl + Friend WithEvents tpBewegungen As System.Windows.Forms.TabPage + Friend WithEvents tpEinstellungen As System.Windows.Forms.TabPage + Friend WithEvents ImageList1 As System.Windows.Forms.ImageList + Friend WithEvents Timer_Uhrzeit As System.Windows.Forms.Timer + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents btnSaveKonfig As System.Windows.Forms.Button + Friend WithEvents GEAENDERTWANNTextBox As System.Windows.Forms.TextBox + Friend WithEvents GEAENDERTWERTextBox As System.Windows.Forms.TextBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents txtActualConnection As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents BtnConnect As System.Windows.Forms.Button + Friend WithEvents txtServer As System.Windows.Forms.TextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtUser As System.Windows.Forms.TextBox + Friend WithEvents txtPasswort As System.Windows.Forms.TextBox + Friend WithEvents MyDataset As MCSUPPLYWATCH.MyDataset + Friend WithEvents TBKONFIGURATIONBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBKONFIGURATIONTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBKONFIGURATIONTableAdapter + Friend WithEvents TableAdapterManager As MCSUPPLYWATCH.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents TBWH_STATUS1BindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBWH_STATUS1TableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUS1TableAdapter + Friend WithEvents TBWH_STATUS2BindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBWH_STATUS2TableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUS2TableAdapter + Friend WithEvents TBWH_STATUS3BindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBWH_STATUS3TableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUS3TableAdapter + Friend WithEvents TBWH_STATUSFILTERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBWH_STATUSFILTERTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUSFILTERTableAdapter + Friend WithEvents TBSTATUSBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBSTATUSTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBSTATUSTableAdapter + Friend WithEvents TBSUPPLY_VERFOLGUNGBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBSUPPLY_VERFOLGUNGTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBSUPPLY_VERFOLGUNGTableAdapter + Friend WithEvents TBGERAETBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBGERAETE_VERFOLGUNGBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBGERAETE_VERFOLGUNGTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBGERAETE_VERFOLGUNGTableAdapter + Friend WithEvents VWSUPPLIESBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWSUPPLIESTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLIESTableAdapter + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents TBSTATUSDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents statusBezeichnung As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents StatusBeschreibung As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Statusgeaendertwer As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents TBSTATUSBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tsbStatus_Refresh As System.Windows.Forms.ToolStripButton + Friend WithEvents tsbStatus_Save As System.Windows.Forms.ToolStripButton + Friend WithEvents TCUebersicht As System.Windows.Forms.TabControl + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents VWSUPPLIESBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tpGeraete As System.Windows.Forms.TabPage + Friend WithEvents tsbSupplies_Refresh As System.Windows.Forms.ToolStripButton + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents btnFolderArchiv As System.Windows.Forms.Button + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents spltSupplies As System.Windows.Forms.Splitter + Friend WithEvents grbStati As System.Windows.Forms.GroupBox + Friend WithEvents TBWH_STATUSFILTERDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents TBGERAETBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem2 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem2 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem2 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem2 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem2 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator8 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tsbGeraeteRefresh As System.Windows.Forms.ToolStripButton + Friend WithEvents TBWH_MARKTBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBWH_MARKTTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_MARKTTableAdapter + Friend WithEvents VWSUPPLIES_GERAETBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWSUPPLIES_GERAETTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLIES_AKTUELLTableAdapter + Friend WithEvents tpGeraet_Order As System.Windows.Forms.TabPage + Friend WithEvents VWGERAET_ORDERBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tsbGeraeteOrderRefresh As System.Windows.Forms.ToolStripButton + Friend WithEvents VWGERAET_ORDERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWGERAET_ORDERTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.VWGERAET_ORDERTableAdapter + Friend WithEvents SPCOrder As System.Windows.Forms.SplitContainer + Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox + Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox + Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox + Friend WithEvents VWSUPPLIES_TO_ORDERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWSUPPLIES_TO_ORDERTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLIES_TO_ORDERTableAdapter + Friend WithEvents VWRPT_SUPPLIES_TOORDERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWRPT_SUPPLIES_TOORDERTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.VWRPT_SUPPLIES_TOORDERTableAdapter + Friend WithEvents cmsBestellungen As System.Windows.Forms.ContextMenuStrip + Friend WithEvents AlleMarkierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents MarkierungAufhebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TCGeraeteOrder As System.Windows.Forms.TabControl + Friend WithEvents tpOrderGeraete As System.Windows.Forms.TabPage + Friend WithEvents tpGeraeteOrderReport As System.Windows.Forms.TabPage + Friend WithEvents tsbSetBest_gesendet As System.Windows.Forms.ToolStripButton + Friend WithEvents TBSUPPLIESBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBSUPPLIESTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBSUPPLIESTableAdapter + Friend WithEvents chbFilterStatus As System.Windows.Forms.CheckBox + Friend WithEvents tsbImport As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tsbImport1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox + Friend WithEvents TBWH_STATUS4BindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBWH_STATUS4TableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUS4TableAdapter + Friend WithEvents spltGeraete_uebersicht As System.Windows.Forms.Splitter + Friend WithEvents SCGeraete_Uebersicht As System.Windows.Forms.SplitContainer + Friend WithEvents ComboBox5 As System.Windows.Forms.ComboBox + Friend WithEvents TBWH_STATUS5BindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBWH_STATUS5TableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUS5TableAdapter + Friend WithEvents tsborders As System.Windows.Forms.ToolStripButton + Friend WithEvents tpBestellungen As System.Windows.Forms.TabPage + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents chbFilterMarkt_Bestellungen As System.Windows.Forms.CheckBox + Friend WithEvents DGTBWH_Markt_Bestellungen As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn15 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents TBSUPPLY_BESTELLUNGViewBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem3 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem3 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator9 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem3 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator10 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem3 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem3 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator11 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tsbRefresh_Bestellungen As System.Windows.Forms.ToolStripButton + Friend WithEvents TBSUPPLY_BESTELLUNGViewBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBSUPPLY_BESTELLUNGViewTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLY_BESTELLUNG_FRONTENDTableAdapter + Friend WithEvents tsbexcel_geraete As System.Windows.Forms.ToolStripButton + Friend WithEvents tsbExcel_Supplies As System.Windows.Forms.ToolStripButton + Friend WithEvents tsbExel_bestellungen As System.Windows.Forms.ToolStripButton + Friend WithEvents tsbImport2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tpVerfolgung As System.Windows.Forms.TabPage + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents chbFilterMarktNV As System.Windows.Forms.CheckBox + Friend WithEvents DGVTBWH_MARKT_VF As System.Windows.Forms.DataGridView + Friend WithEvents clmMarkt As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents TBGERAETByMarktBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBGERAETByMarktTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBGERAETByMarktTableAdapter + Friend WithEvents dtpVerfolgung_bis As System.Windows.Forms.DateTimePicker + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents dtpVerfolgung_von As System.Windows.Forms.DateTimePicker + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents VWGERAETE_VERFOLGUNGTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.VWGERAETE_VERFOLGUNGTableAdapter + Friend WithEvents chkbDatumfilter As System.Windows.Forms.CheckBox + Friend WithEvents VWSUPPLY_VERFOLGUNGBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWSUPPLY_VERFOLGUNGTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLY_VERFOLGUNGTableAdapter + Friend WithEvents chkbDatumfilterOrder As System.Windows.Forms.CheckBox + Friend WithEvents dtpOrder_bis As System.Windows.Forms.DateTimePicker + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents dtpOrder_von As System.Windows.Forms.DateTimePicker + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents txtConfigPath As System.Windows.Forms.TextBox + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents TBVERTRAEGEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBVERTRAEGETableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBVERTRAEGETableAdapter + Friend WithEvents spltC_Vertrag_Produkt As System.Windows.Forms.SplitContainer + Friend WithEvents TBVERTRAEGEBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem5 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem5 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem5 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator15 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem5 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator16 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem5 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem5 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator17 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tsbn_refresh_Vertraege As System.Windows.Forms.ToolStripButton + Friend WithEvents TBPRODUKT_VERTRAGBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem6 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem6 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem6 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator18 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem6 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator19 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem6 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem6 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator20 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBPRODUKT_VERTRAGBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPRODUKT_VERTRAGTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBPRODUKT_VERTRAGTableAdapter + Friend WithEvents tsbtn_showImport As System.Windows.Forms.ToolStripButton + Friend WithEvents TBGERAETE_NOTINLISTBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBGERAETE_NOTINLISTTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBGERAETE_NOTINLISTTableAdapter + Friend WithEvents Splitter1 As System.Windows.Forms.Splitter + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents cmbModelle_WH As System.Windows.Forms.ComboBox + Friend WithEvents TBWH_MODELLBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBWH_MODELLTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBWH_MODELLTableAdapter + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents TBSUPPLY_DEFINITIONBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton17 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton18 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator16 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox5 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator17 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton19 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton20 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator18 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton21 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton22 As System.Windows.Forms.ToolStripButton + Friend WithEvents TBSUPPLY_DEFINITIONBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBSUPPLY_DEFINITIONTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBSUPPLY_DEFINITIONTableAdapter + Friend WithEvents TBSUPPLY_DEFINITIONDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents VWGeraet_Supply_ZuordnungBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton23 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton24 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator19 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox6 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator20 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton25 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton26 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator21 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton27 As System.Windows.Forms.ToolStripButton + Friend WithEvents VWGeraet_Supply_ZuordnungBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWGeraet_Supply_ZuordnungTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.VWGeraet_Supply_ZuordnungTableAdapter + Friend WithEvents TBGERAET_SUPPLY_ZUORDNUNGBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBGERAET_SUPPLY_ZUORDNUNGTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBGERAET_SUPPLY_ZUORDNUNGTableAdapter + Friend WithEvents ToolStripButton28 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton29 As System.Windows.Forms.ToolStripButton + Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox + Friend WithEvents btnaddgeraete_SupplyZO As System.Windows.Forms.Button + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents cmbSupplyDefinition As System.Windows.Forms.ComboBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents DS_Reporting As MCSUPPLYWATCH.DS_Reporting + Friend WithEvents TBVERTRAG_NOTEXISTBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBVERTRAG_NOTEXISTTableAdapter As MCSUPPLYWATCH.DS_ReportingTableAdapters.TBVERTRAG_NOTEXISTTableAdapter + Friend WithEvents TableAdapterManager1 As MCSUPPLYWATCH.DS_ReportingTableAdapters.TableAdapterManager + Friend WithEvents tsbtnSupplyverfolgung As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripButton30 As System.Windows.Forms.ToolStripButton + Friend WithEvents pnlUebersicht As System.Windows.Forms.Panel + Friend WithEvents tsProgressBar As System.Windows.Forms.ToolStripProgressBar + Friend WithEvents txtSchwellenwert As System.Windows.Forms.TextBox + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents txtPartnumber As System.Windows.Forms.TextBox + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents tslbl_Files As System.Windows.Forms.ToolStripLabel + Friend WithEvents txtPartnumerORDER As System.Windows.Forms.TextBox + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents tsbGeraeteverfolgung_Geraet As System.Windows.Forms.ToolStripButton + Friend WithEvents DataGridViewTextBoxColumn20 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn26 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents SUPPLY_NAME_DATEI As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn28 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn30 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn31 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn32 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents btnFolderBestellungen As System.Windows.Forms.Button + Friend WithEvents TabPageBestell_Import As System.Windows.Forms.TabPage + Friend WithEvents btnImportBestellungen As System.Windows.Forms.Button + Friend WithEvents tsbtnONHOLD As System.Windows.Forms.ToolStripButton + Friend WithEvents tsbtnAbbrechen As System.Windows.Forms.ToolStripButton + Friend WithEvents TBMELDEDATUMBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBMELDEDATUMTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBMELDEDATUMTableAdapter + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents txtTimeout As System.Windows.Forms.TextBox + Friend WithEvents ToolStripDropDownButton1 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents ProfileMailExporterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents StarteMailExporterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cmbDatenbank As System.Windows.Forms.ComboBox + Friend WithEvents TabControlNachverfolgung As System.Windows.Forms.TabControl + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents VWMarkt_VerfolgungBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel7 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton31 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton32 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator22 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox7 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator23 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton33 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton34 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator24 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton35 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton36 As System.Windows.Forms.ToolStripButton + Friend WithEvents VWMarkt_VerfolgungBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWMarkt_VerfolgungTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.VWMarkt_VerfolgungTableAdapter + Friend WithEvents NächstesMELDEDATUMDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents PAGECOUNTlDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents TBGERAETTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBGERAETTableAdapter + Friend WithEvents tscmbaktiv As System.Windows.Forms.ToolStripComboBox + Friend WithEvents IMPORT_XMLTextBox As System.Windows.Forms.TextBox + Friend WithEvents IMPORT_XMLARCHIVTextBox As System.Windows.Forms.TextBox + Friend WithEvents IMPORT_BESTELLUNGENTextBox As System.Windows.Forms.TextBox + Friend WithEvents btnsavePath As System.Windows.Forms.Button + Friend WithEvents tslbl_Hinweis As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents tsbtnNAchverfolgung As System.Windows.Forms.ToolStripButton + Friend WithEvents TBSUPPLY_BESTELLUNGBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBSUPPLY_BESTELLUNGTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBSUPPLY_BESTELLUNGTableAdapter + Friend WithEvents TabControlEinstellungen As System.Windows.Forms.TabControl + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox + Friend WithEvents TBMANDANTENBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem4 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem4 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator12 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem4 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator13 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem4 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem4 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator14 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TabPage7 As System.Windows.Forms.TabPage + Friend WithEvents TBMANDANTENBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBMANDANTENTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBMANDANTENTableAdapter + Friend WithEvents TBMANDANTENDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn21 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn22 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn23 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewCheckBoxColumn1 As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents DataGridViewCheckBoxColumn2 As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents DataGridViewTextBoxColumn24 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn25 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents NAME_LANGTextBox As System.Windows.Forms.TextBox + Friend WithEvents KENNZEICHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents FLEETWATCHCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents SUPPLYWATCHCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents ERSTELLLTWERTextBox As System.Windows.Forms.TextBox + Friend WithEvents ERSTELLTWANNTextBox As System.Windows.Forms.TextBox + Friend WithEvents GEAENDERTWANNTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents GEAENDERTWERTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents FILTERTextBox As System.Windows.Forms.TextBox + Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents cmbMandanten As System.Windows.Forms.ToolStripComboBox + Friend WithEvents DataGridView2 As System.Windows.Forms.DataGridView + Private WithEvents rptViewerBestellungen As Microsoft.Reporting.WinForms.ReportViewer + Friend WithEvents tsbtnChangelog As System.Windows.Forms.ToolStripButton + Friend WithEvents TBCHANGE_LOG_GERAETBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBCHANGE_LOG_GERAETTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.TBCHANGE_LOG_GERAETTableAdapter + Friend WithEvents VWSUPPLIES_GERAETBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem8 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem8 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem8 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator24 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem8 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator25 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem8 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem8 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator26 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tsbtnSuppliesSetStatusOnHold As System.Windows.Forms.ToolStripButton + Friend WithEvents VWSUPPLIES_AKTUELLDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents VWSUPPLIES_AKTUELLDataGridViewSupplyID As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn38 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn39 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn40 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn41 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn42 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn44 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn50 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn49 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents VWSUPPLIES_AKTUELLDataGridViewOnHold As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents DataGridViewTextBoxColumn51 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn45 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn46 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn47 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ToolStripButton10 As System.Windows.Forms.ToolStripButton + Friend WithEvents ViewSUPPLY_STATUS_VERFOLGUNGBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents ViewSUPPLY_STATUS_VERFOLGUNGTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.ViewSUPPLY_STATUS_VERFOLGUNGTableAdapter + Friend WithEvents SplitContainerSupplies As System.Windows.Forms.SplitContainer + Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView + Friend WithEvents BindingNavigator2 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem9 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem9 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem9 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator27 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem9 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator28 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem9 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem9 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator29 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents MeldedatumDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents StatusDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents MarkerDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ErfasstWannDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents BindingNavigator3 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem10 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem10 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem10 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator30 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem10 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator31 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem10 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem10 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator32 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents DataGridView3 As System.Windows.Forms.DataGridView + Friend WithEvents MELDEDATUMDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents SUPPLYLEVELDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents STATUSDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ERFASSTWANNDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents tsbtnChangebestellt As System.Windows.Forms.ToolStripButton + Friend WithEvents btnsetBestellt As System.Windows.Forms.ToolStripButton + Friend WithEvents VWSUPPLIES_BESTELLUNG_GESENDETBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWSUPPLIES_BESTELLUNG_GESENDETTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLIES_BESTELLUNG_GESENDETTableAdapter + Friend WithEvents TabPageBestGesendet As System.Windows.Forms.TabPage + Friend WithEvents BindingNavigator4 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton12 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton13 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox3 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator12 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton14 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton15 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator13 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton16 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton37 As System.Windows.Forms.ToolStripButton + Friend WithEvents GridControlBestellungen_gesendet As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewBestellungen_Gesendet As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colBESTELL_ID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBESTELLT_WANN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBESTELLT_WER As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGERAET As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMANUELL As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMARKT As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMENGE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSERIEN_NR As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSUPPLY_BEZEICHNUNG As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents tsbtn_setBack2Besterford As System.Windows.Forms.ToolStripButton + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents colSUPPLY_ID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents tsbtnSet2BestelltManually As System.Windows.Forms.ToolStripButton + Friend WithEvents GridControlBestellungen As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewBestellUebersicht As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colBestellID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGERAET1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSERIEN_NR1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSUPPLY_BEZEICHNUNG1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMENGE1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBESTELLNR As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMARKT1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMANUELL1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBESTELLT_WANN1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBESTELLT_WER1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFILE_ORDER_CONFIRM As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridControlGeraete As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewGeraete As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBEZEICHNUNG As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colIP_ADRESSE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSERIENNR As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMODEL_NR As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMARKT2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPAGE_COUNT As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPPM As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colERFASSTWANN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGEAENDERTWANN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGEAENDERTWER As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBESTELLUNG As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMARKER As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPC_INITIAL As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDATE_INITIAL As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colUMGEZOGEN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colVERTRAGSNR As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colONHOLD As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colONHOLD_DATE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMELDEDATUM As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colNICHT_AKTIV As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colABGEBAUT As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridControlVWSupplies As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewVWSupplies As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colSUPPLY_ID1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMARKT4 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDEVICE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSUPPLY_BEZ As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colLEVEL As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSCHWELLENWERT As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPARTNUMBER As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSERIENNR2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSTATUS As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colERFASSTWANN1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGEAENDERTWER1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGEAENDERTWANN1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGERAET_ID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSTATUS_WANN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGERAET2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGERAET_IP As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGERAET_SERIENNR As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGERAET_PAGECOUNT As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGERAET_PPM As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBESTELLUNG1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSTATUS_WER As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridControlSupplyZuordnung As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewSupplyZuordnung As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridControlVertraege As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewVertraege As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colVERTRAGSNR1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colERFASSTWER1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colERFASSTWANN3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridControlProduktVertrag As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewProduktVertrag As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colGUID3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSERIEN_NR2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPRODUKT_NR As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMODELL_NAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGUID2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGERAET_BEZ1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSUPPLY_BEZ1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPARTNUMBER1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPARTNUMBER_ORDER As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSCHWELLENWERT1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents VWSUPPLIES_2_ORDERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWSUPPLIES_2_ORDERTableAdapter As MCSUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLIES_2_ORDERTableAdapter + Friend WithEvents GridControlSupplies2Order As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewSupplies2Order As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colSUPPLY_ID2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGERAET_ID1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDEVICE1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDEVICE_SERIAL As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMARKT5 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPAGE_COUNT2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPPM2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSUPPLY_BEZEICHNUNG2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colLEVEL1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSCHWELLENWERT2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPARTNUMBER2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSERIENNR3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSTATUS1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSTATUS_WANN1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSTATUS_WER1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMANUELL2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFW As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents ToolStripDropDownButton2 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents GerätebestellungLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SupplybestellungLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton38 As System.Windows.Forms.ToolStripButton + Friend WithEvents colGUI_SELECTED As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents chkLogData As System.Windows.Forms.CheckBox + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents SplitContainerGeraet As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem7 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem7 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem7 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator21 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem7 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator22 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem7 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem7 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator23 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TBCHANGE_LOG_GERAETDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ERFASSTWANN As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents GridControlATR As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewATR As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents tsbtnManaulOrders As ToolStripButton + Friend WithEvents ToolStripSeparator4 As ToolStripSeparator + Friend WithEvents colMENGE2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMENGE_ORIGIN As DevExpress.XtraGrid.Columns.GridColumn +End Class diff --git a/Supplywatch/FMMain.resx b/Supplywatch/FMMain.resx new file mode 100644 index 0000000..a2ce6c1 --- /dev/null +++ b/Supplywatch/FMMain.resx @@ -0,0 +1,3924 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 543, 290 + + + 824, 17 + + + 922, 251 + + + 17, 290 + + + 444, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAmklEQVQ4T7WPIQ5DIRAF96gcgVtwBCor + K7+jsrIOWVlZWfkl3Wl2k+YrlqQvmZAA8xbkb0kpDce25oNEeu+j1hovQUBurY1SyloBk5FzzuvfcGxr + Pki7yHgrTyVU4rIa3/WlPCIlXGTy7wt6tACJyaxMDxcguAi3aAHcVQKXpwsIl68qwmYFdjQXhIuKcF4t + OKnoLBUcsaNDRD795Ki6zCeHqwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACzUlEQVQ4T32Ta0jTYRSH/xb1rSCkPgiV + VJgRRViRlBmZRJYmXS0zAylbmjYoNYlIzUXQcmVqpt285SWz0lBL5mXzMrfpinTz1ryBlWuLCfYhoqe/ + Tcno8oPD74X3nOfwHs4rTOlcZRMZ/Xe53JtKqOYYHtmPWBNrYm24nsDYZiRXDSRndXDjXhu3MhrwiWxh + slQQwmoSUQxKqR4vI2c0nXTDRfJ0tTxtGUCp1FFe3kxuQR23C+rJqjFyvaKLjavDHYBDuRr869zEzqHk + W9IoGS6mr68fRUEl6ZVa8vXveDViQ/cdVF/hyWdIe/eVnVviHQCP1EGW5kg42LiKU22bkb65T1PHEAla + KzcGIW8Uysegahye2eHhR5D3w27fJAfAXWZidlIxroWLWFm2DJeCAZJfjiDXWEjshpsiJHsEHnyALNFT + BuCiCULOPHEAXM+2IpzQIZxvZ4Z8O04pi/G9VUaG+j3Rr+GCES73gKwXkkSP74TTBtgWoHAA3KI0CLue + IxyuQ4i4gBAnMC9CQm7tEMHNcFwHke2OogjRw7QQ1DgNsC7GyNwdJcz0zmfWrqvMCfHBSTw/zNPiWwMB + dbBPBfvVsFd0/1rYUf3tF2BCK46+YklQFV5HS/E8/IxNwfVcuanDu9DO+grYWAleYpys+UJi0RDnpOW/ + A6Y0f3kUzi5HcF4QRKDfJfxyPuH5/DvXmsbJKjETF9dKcLCSVQv3/lk8XR57ikm4riY730hFRS+FhW9I + TTUglep/xoGAZCZyJtP/lOyOAbvdTnf3J2w2Gz09ZnEbO0lJaUMu16NQNCCJyPs34HGZDqvVytjYGBaL + RdxMMypVFy9evKWoSE+G+BdipDn/BpxMVIvd+xgeHsZs7qezs5eGBiMmU5/4nHoyM9X4b435/xwmpixL + eEBVlVacQyulpS1iZyXRkjQ2uIf8v3hKE5C/xeS1KEH4ASMFKV0feWVjAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAA7ElEQVQ4T62T0RHDIAxD/ZGN2CmjZAfW + yBzsRPuM5UCa/NV3qsFIsiFX+2uc59mP4+jFrG/blmBPnfOg/kat1cl7sV53663uCfbUOccoJFdILOH3 + x0FNaxn9mDCWxBDJIgpPJnkd3BhvJmgKFxNhADiDj6611o0HUvdhMMSss/vNBH6xMqaApI7KMlkmUA5e + XoOF7jUTMbnXiJm/TODdiUmgTl4LiJsG3EVv4Aix8pPJeAMbBvoKPoFIIRY4UxPWy1fAhQ4QFhPwYpTj + K3B7MqGm/SyGH9IrZMJ4Mpoz9VexgrEg8LCQhfd/o9kHgHwMs7GeTSYAAAAASUVORK5CYII= + + + + 1303, 173 + + + 505, 641 + + + 191, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 975, 602 + + + 351, 641 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 881, 329 + + + 17, 251 + + + 812, 173 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 750, 368 + + + 821, 602 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 826, 212 + + + 958, 95 + + + 825, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 1116, 173 + + + True + + + 706, 563 + + + 1012, 641 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 431, 251 + + + 17, 602 + + + 667, 602 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 17, 173 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 622, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 17, 212 + + + 461, 524 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 328, 134 + + + 504, 134 + + + 1221, 212 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + True + + + 228, 446 + + + 915, 134 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 272, 563 + + + 508, 95 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 934, 17 + + + 449, 329 + + + 17, 329 + + + 17, 95 + + + 1042, 56 + + + 190, 56 + + + 734, 446 + + + 17, 134 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 1233, 407 + + + 1291, 368 + + + 690, 134 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 219, 407 + + + 236, 95 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 714, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAA2 + CwAAAk1TRnQBSQFMAgEBAwEAAVABIQFQASEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA + AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 + AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA + AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm + AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM + AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA + ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz + AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ + AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM + AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA + AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA + AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ + AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/ + AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA + AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm + ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ + Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz + AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA + AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM + AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM + ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM + Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA + AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM + AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ + AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz + AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm + AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw + AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wYAASQEIwEAAiMFAAPv + Af8BCQPvAfMKAAcyGQABJAIyASsBJAEjASwBKwEjAwAB7wIHAe8BEgGLAwcCbQH/BgACMgGaBf8BmgIy + FAABKgEkAQABJAJTAVkBLAErAVMBMgErASMCAAH3ARICiwG8AfABbQFKASoBkgEUAa0B8AQAAjIB/wET + AWYG/wEyEwABKgEsASsBJAFSAZoBGgOaAnoBUwEjAgAB9wG8AW0B7AHwAesB8QJtAQcBFQGQAbMB/wMA + ATIB/wEZARIBAAETAfcE/wH2ATIRAAEqAjIBWQF6AVkBmgZ6ASQBKwIAAQcD6gGLAbMBEgLqAUoBMQEq + AbMBtAIAATIB9gEAASwDMgEAAf8B9gH/AewCIxEAASoBKwFZAf8BGgF6AVIEIwFSA1kBIwEAAbMDrQKz + ASsBOAFZATcBUQK0Aa0B9AEAATIBEgYyAioBIgMyASMRAAIqARoBegFSASMDAAIjA1kBIwEAA7MBtAHU + AUoBWAF5AVEBswLVAbQB1QG8AQABdQEjAjIDIwUyASoBIwEpEQABKgErAZoBegEqAwABIwEkASMCWQEr + ASMBAAOzAZEBSwF0AdoE2wHVAdQBcwEHAQABegEjASsBKgYyAewB/wESAf8BMhAAASoBMgFTAXoBWQMk + ASMBKwEkASMBWQEyASMCAAGzAbQBswFLAfcB2wG6AtwD2wG0AVgBvAEAAXoBIwEyASoBIwIyASsBMgEj + Av8BEgH/ATIQAAEqAXoBmgJZASoBKwExATIBKwEkASsDMgEjAQABrQGzAYsBMQFYAVEBeAHcARkB3ALb + AbQBUQHwAQABMgHsASoBMgEqAiMBKgEyAewC/wH2ARkBMhAAASoCegJZAVICKgIkASsDMgExASMBAAGR + AbMBSgE3AV4B+wE4Ae0BGQHcAdsB1AFzAUoCAAEyBf8B9wH2BP8BCAGaATIRAAMqBVkDMgErATIBIwIA + AbwBrQFKATEBWQE4AfsBOAHsAtsBswFLAfMCAAIyBf8BEgH/AvYBEgH/ATIUAAEqAlkFMgEkAiMEAAHv + AUsBMAExAlkBUgHcAdsB1QGLAe0B/wMAATIBegX/ARIB7AL/AjIUAAEqAzIBKgExAjIBJAYAAf8BBwFL + AjEBUQHvARkBCQHqAfcB/wUAATIBdQb/AfYCMhYAAyoBAAIqASQJAAH0AQcBtAO7AbUB8ggAAzICmgF6 + AzI6AAMyFgABQgFNAT4HAAE+AwABKAMAAUADAAEQAwABAQEAAQEFAAGAFwAD/wEAAfgBJwHAAR8B+AEP + AgAB+AEDAYABBwHgAQMCAAHIAQEBgAEDAcABAwIAAYABAQGAAQEBwAEBAwABAQGAAQEBgAUAAYABAAGA + AwABgQHAAYABAAGAAwABgwKAAQABgAQAAQEBgAEAAYAFAAGAAQABgAUAAYABAQGAAwABgAEBAYABAQGA + AQECAAHgAQMBwAEBAcABAQIAAeABDwHAAQMB4AEDAgAB8QEfAfABDwHwAQcCAAT/Af4BPwIACw== + + + + 17, 368 + + + 17, 485 + + + 587, 17 + + + 1174, 17 + + + 17, 56 + + + 409, 56 + + + 1261, 56 + + + 745, 95 + + + 1205, 95 + + + 1187, 134 + + + 282, 173 + + + 550, 173 + + + 281, 212 + + + 556, 212 + + + 1026, 212 + + + 227, 251 + + + 679, 251 + + + 1159, 251 + + + 283, 290 + + + 829, 290 + + + 1110, 290 + + + 1305, 290 + + + 236, 329 + + + 668, 329 + + + 1168, 329 + + + 249, 368 + + + 475, 368 + + + 1023, 368 + + + 17, 407 + + + 474, 407 + + + 723, 407 + + + 981, 407 + + + 17, 446 + + + 484, 446 + + + 1028, 446 + + + 332, 485 + + + 641, 485 + + + 767, 485 + + + 1023, 485 + + + 1273, 485 + + + 17, 524 + + + 242, 524 + + + 709, 524 + + + 951, 524 + + + 1132, 524 + + + 17, 563 + + + 492, 563 + + + 975, 563 + + + 345, 602 + + + 17, 641 + + + 761, 641 + + + 208 + + + + AAABAAgAEBAAAAEAIABoBAAAhgAAABgYAAABACAAiAkAAO4EAAAgIAAAAQAgAKgQAAB2DgAAMDAAAAEA + IACoJQAAHh8AAEBAAAABACAAKEIAAMZEAABISAAAAQAgAIhUAADuhgAAYGAAAAEAIAColAAAdtsAAICA + AAABACAAKAgBAB5wAQAoAAAAEAAAACAAAAABACAAAAAAAEAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAIDCRAgNW8CBAcnAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAQQHEDljiLmV0vP/T4q57RQnPYQAAQIbAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAwkPGkF7pMqm5fz/qOr//4fc//9tx/b/O3ek4Q4bK28AAAASAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAABRIbI0KPvtmD2f7/keD//5Lh//9z1P//Z8///1vK//9Ktu//FS1FiwAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAC5niZFZyf//Zc7//2zL+P9rvuf/T6vf/0ek2/9CsOv/O73//xU5 + VZUAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAwbI6RObL0/1Gv6P84kdD/KovP/zuRzv9pve7/cLzo/0Sc + 0v8UNlObAAAACQAAAAAAAAAAAAAAAAAAAAAAAAABK2yUnnvK9P9guOv/bMbz/2i24P9nrtP/T6nh/2yw + 2v+s4PP/mMPX+TNKX6QDBgotX19fAgAAAAAAAAACIk1mc6Xg9vxlwPD/Zs38/5DY8f81fTn/JXQm/4rM + 5P9xzv7/Ya7c/2WWufZLZnqrFCc/cV9fXwMAAAAAFk5zdFWXu8ZMqeHyRbf0/3rQ8f80gTn/AJIA/wCV + AP8leyb/hsfe/1Wo3f9hu/L/IEJfnwAAAA4AAAAAAAAAAAAAAAAMKj1BacX5/oLM7f8yjjj/AK0A/wC2 + AP8AtgD/ALEA/yWLJf+d1+T/jdn//1WWwukEChAhAAAAAAAAAAAAAAAAHVBvbZTT6fk1oTn/AMkA/wDT + AP8A0wD/ANMA/wDTAP8AzgD/JaAm/4a1vewFDxgwAAAAAAAAAAAAAAAAAAAAAAAAAABzlXOkK4A6vyye + O/4A6AD/APAA/wDwAP8A8AD/J6Qs/yyGRNdmk2avExMTGQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AABOlVG7JfUl/yn/Kf8p/yn/Kf8p/0euUOoBBQgXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAATp1OuXH3cf99/33/ff99/33/ff9Ms0zhAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAE6mT7mv97H/wvzD/8L8w//C/MP/Ub5S4QAAAA0AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAClzatzh+mXn4fpl5+H6Zefh+mXn6bdroxfX18HAAAAAAAAAAAAAAAAAAAAAPw/ + AAD4DwAA8AcAAOADAADgAwAA4AMAAMAAAACAAAAAgAEAAMABAADAAwAA4AMAAPgPAAD4DwAA+A8AAPgP + AAAoAAAAGAAAADAAAAABACAAAAAAAGAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEDBREFCxI7AAAAFgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwcMGilP + eL9Igbf4GjNSqgQHDUAAAAASAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAECxEjMmOR0KHW8v6n6P//c8Dx/j12qvEUJkCZAQMFMgAA + AA4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQcU + HzI6d6jem9v5/73y//+i6P//jd///4DY//9htuv/NGeY6RAdMYUBAQMqAAAACgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCRsqQUKLvuiM2vv+oOb//6fp/v6X4///f9n+/nfW + /v5v0/7+Zc3+/06p4P4sWYXcCxQiagAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAANKT5MRJzT8nfU/f6C2v7+it3//5Lh/v6L3///ctT+/mrQ/v5izf7+Wsr//1HH/v5Kwv7+JVJ6zwAA + ABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFCl8vYXMv//2TO//9s0f//dNX//3/Z + /v+C2f3/Ycj5/1W88P9Lr+X/S8H7/0TB//88vv//IVaAzwAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAFLodPZR8L//0zA+f5Jr+j+RqPc/zqLxP4xfbj/O4nD/k+j3P5SqeH+QIzD/zKZ + 1/4vt/3+HleCzwAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFHotbZMrL3/0Sk + 4f5jv/X+RaDd/yqO0v4qlNv/KoPF/kOQx/54xvH+iNf+/3W85f5Dir7+H0550wAAACcAAAAHAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM7mdLaVrPq/4nW/f9VreP/Zr/t/0mt6P9SquT/a7Tl/y6Q + 0/9Km9L/ZaXP/6ff9f+27f7/jr/Z/jhZecsJEh1dAAAAGgAAAAUAAAAAAAAAAAAAAAAAAAAAAAAABBA4 + Ul5vv+r4p+X9/1m06P5nyPf+fdj//57i/v53pIP/WY1d/o7Q9P5ry/7+bMf3/1efz/6EtdH+z/X5/870 + +P6Apr/8HTdYuAQJDzCPj48BAAAAAAAAAAAAAAAFFkZlco7Q7vrC8fz/V7br/1rG+/9q0f//jtz+/3ak + gf8BYQH/AGkA/1SJV/+Y2fn/bs3//3XR//9js+L/NHCm/iNGarkTJj11Dh0xUAMHDRcAAAAAAAAAAH+A + gQMXU3qFbb7q/n7H6/dGqOT+Rrv4/1fJ/v5+1v7+dKOA/wBnAP4AkwD/AJQA/gBzAP5TiVX+mtr5/162 + 6f5ImNH+X8H7/zd1qOoGDxhTAAAADAAAAAAAAAAAAAAAAISSnBIUSWtsCiY4ORlVfYJVuvf+SrHw/2bA + 8v5zp4H+AHEA/wClAP4ApwD/AKcA/gCnAP4AfwD+VI5X/4zC4v560P7+etD//3jN+/5AfKrpBQ0VPgAA + AAEAAAAAAAAAAAAAAAAAAAAABA8WF0qn3+t60P7+kdj+/3Wugf4BgAH+ALkA/wC6AP4AugD/ALoA/gC6 + AP4AugD+AI8A/1WYV/6y5Pn+k9z//4fQ9f40apbNBAoQHgAAAAAAAAAAAAAAAAAAAAAAAAAAFEhpY2rB + 8f2q4/7/eLaA/wCQAP8AzAD/AM4A/wDOAP8AzgD/AM4A/wDOAP8AzgD/AM4A/wCgAP9UoVX/s9/x/i1g + iL0CBQgVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAUhshHd+v4j+AIUA/wCxAP4AtAD+AN4A/wDh + AP4A4QD/AOEA/gDhAP4A4QD+ALsA/wCzAP4AjwD+ValX/mFjZIAAAAAKAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAEZGRjpfgF+KQ3NHjUqfit84pDn+AOYA/wD1AP4A9QD/APUA/gD1AP4A9QD+Ep4S/2u1 + mf1AeFKmTXdNimlpaV0AAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8j + JR5WvFf7F/AX/xv/G/8b/xv/G/8b/xv/G/8b/xv/Hq4e/1Blc4sAAAAGAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8fHxpXxVf7R/JH/1P+U/5T/1P/U/5T/lP+ + U/5T/lP+I7kj/0tLS2QAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAB8fHxpXzlf7d/R3/4v+i/6L/4v/i/6L/ov+i/6L/ov+KMUo/0tLS2QAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8fHxpX2Ff7qPao/8P/ + w//D/8P/w//D/8P/w//D/8P/LtAu/0tLS2QAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8fHxpY32T7UeBi/1/ib/5f4m//X+Jv/l/ib/5f4m/+JtY2/0tL + S2QAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ2d + nQvi+edty/XUb8v11G/L9dRvy/XUb8v11G/L9dRv1/jeb7CwsCmPj48BAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA/8P/AP+A/wD/AD8A/AAfAPgADwD4AA8A8AAPAPAADwDwAAcA8AABAOAAAADAAAEAgAADAIAA + AQDgAAMA4AAHAOAABwDwAAcA/gA/AP4APwD+AD8A/gA/AP4APwD+AD8AKAAAACAAAABAAAAAAQAgAAAA + AACAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAADwAAAB4AAAARAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAgMIDSAhRG7HHz9myAgRHF8AAAAmAAAADgAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMGDhYsKFaF13y14/9qtO7/PHOs/RozVbkFChFQAAAAIgAA + AAsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBxMeOS5kl+OIxO3/zvn//5/m//+H1v//Xqzm/zVo + nfgWKUaoAwYKRAAAAB0AAAAJAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQseLkk0dKrtis70/7vx///G9///leL//4/g + //+J3f//ddD//1Oi2/8uWozxEiE5lgECBDkAAAAZAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcOJz1bPIW+9YnU+f+n6f//rev//7ry + //+L3v//hdz//3/Z//951///c9T//2XK/v9Il8//KE575w8bL4QAAAEwAAAAEAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIEjZSb0KTzPqA1fz/keD//5bi + //+c5f//ru3//4Ha//971///ddX//2/T//9p0P//Y87//13L//9Vwvv/QI3D/yNDbNkAAAAnAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxdJboBFoNr+ctL+/3rX + //+A2f//htz//4ze//+h6P//d9b//3HT//9r0f//Zc7//1/M//9Zyv//U8f//03F//9Hwv//MnOo/wAA + ACwAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJHy8iSqXd/17L + //9kzv//atH//3DT//921f//fNj//5fk//9u0v//Z8///2HN//9byv//Vcj//0/F//9Jw///Q8H//z2+ + //8tcqr/AAAALAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAog + MCRctub/TsX//1TI//9ayv//YMz//2LJ+v9auOn/YqzW/0aWyv86icH/OYa+/ziCvP81e7T/M4O7/zyz + 8v84vP//Mrr//ylzrf8AAAAsAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAACiEyJFi26f8+v///Qr77/zid3P85ldP/PZbU/zKEwv8pgcL/KX/A/zmIw/9eue//bMv//2zL + //9juu3/QIG1/yuEwf8ssff/KXWw/wAAAC0AAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAKIjMkVbbr/y+0+v8zmdv/Y7/0/2/L/v9Iod3/KonM/yuX3v8rldz/KozR/yl4 + t/9Lk8f/gc30/47b//+O2///eL3k/0F8rf8nYZf/AQMFRAAAABoAAAAHAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkiMyZNsOj/OaDh/33O+f+G1v7/TKTd/1y05f9NsOn/K5fe/0Ch + 4f9ZrOP/Ko/U/y+Kyv9BisH/ZKPM/6fi+P+x6///sOr+/4e72P85YYroECE2hgABAjIAAAAVAAAABQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFDzdRVkSn5P+Y3fz/nOD9/06o4P9gv+//f9n//4fc + //+H1Pj/r83I/6bCqv9yu+r/YML5/27N//9htuj/RYe6/4S20//N9vz/0fr//8/3/f+Ntcv/MVN53AwY + KHIAAAAnAAAACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABw40TFtTruP2tOv9/67o/P9NrOX/W8L1/3HT + //951///j97//7fUyP8OWA7/AVAB/5K1lv+U2f//asv//3DO//910P7/X67e/0yGtf+axNn/qdLh/5jA + 1P99pcD/LVWG/xs2WacAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAkTRWZwaLro+s/4/v++7vv/Savm/1LC + +f9jzf//a9H//4LZ//+108j/DlgO/wBuAP8AeAD/AVIB/5K1lv+W2v//bMz//3LP//940v//YrHg/y9w + qv8iUYHbDR8xcQkUIT4IER0cAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAGGFR8g3DA6v6t5Pb/h83v/z+k + 4/9Ivvr/VMj//1zL//910///s9LI/w5YDv8AdwD/AJEA/wCRAP8AhAD/AVIB/5K1lv+X2v//b83//1Wo + 2/8/jcf/XcH9/0aVzv8XN1epAAAALQAAAAoAAAAAAAAAAAAAAAAAAAAAAAAAABdTemspktfdIW+iqRRJ + a3UmhcPORK7x/zai5/9CtfP/aM7+/7HSyP8OWg7/AH8A/wCgAP8AoAD/AKAA/wCgAP8AjwD/AVUB/5K2 + lv+BveP/Tp7V/3DL/v9xzP//ccz//1Gb0P8XN1ipAAAAKQAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIAAAABCyc6PEWr6/1pyP//aMf+/2K78f+rzsT/DmMO/wCLAP8ArwD/AK8A/wCvAP8ArwD/AK8A/wCv + AP8AnAD/AV4B/5K5lf+o4f//hNX//4TV//+E1f//hNX//0yOwP8QJjxuAAAABgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAQogLnCd838/37S//+L1///tdfI/w5tDv8AmAD/AL0A/wC9AP8AvQD/AL0A/wC9 + AP8AvQD/AL0A/wC9AP8AqgD/AWkB/5O/lv+15///l97//5fe//9nrdn/HUdvpwEDBQ8AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAADzdRQ06u6f+T3P7/oeH//7nbyP8Odw7/AKUA/wDMAP8AzAD/AMwA/wDM + AP8AzAD/AMwA/wDMAP8AzAD/AMwA/wDMAP8AtwD/AXQB/5TDlv/C7f7/ZajU/xc/YY8AAAAKAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCA0EF1F3bV+v4em+38j/DoEO/wCyAP8A2gD/ANoA/wDa + AP8A2gD/ANoA/wDaAP8A2gD/ANoA/wDaAP8A2gD/ANoA/wDaAP8AyAD/AYEB/5HGlP9heo20AAAAJQAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB7e3t4hGMEf8AhAD/AIkA/wCJ + AP8AiwD/ANwA/wDpAP8A6QD/AOkA/wDpAP8A6QD/AOkA/wDpAP8AmwD/AIkA/wCJAP8AhgD/AYMB/8Xi + xfo/Pz9MAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtbW1PYnBiY1xt + XGRSiI+clMvT+xyaHP8A4wD/APcA/wD3AP8A9wD/APcA/wD3AP8A9wD/APcA/wCbAP+f07H/XKG17FVq + XHJbbFtkeHp4YQ8PDxIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAB9hYp7IKUg/xDrEP8U/xT/FP8U/xT/FP8U/xT/FP8U/xT/FP8U/xT/AqUC/4u8 + rukHFyI9AAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAH19fXMgriD/Mu0y/z7/Pv8+/z7/Pv8+/z7/Pv8+/z7/Pv8+/z7/ + Pv8Hrgf/iaiJxAAAABsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAfX19cyC3IP9V71X/aP9o/2j/aP9o/2j/aP9o/2j/ + aP9o/2j/aP9o/w23Df+JqonEAAAAGwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9fX1zIMEg/3bxdv+S/5L/kv+S/5L/ + kv+S/5L/kv+S/5L/kv+S/5L/EsES/4msicQAAAAbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH19fXMgyiD/mfOZ/7z/ + vP+8/7z/vP+8/7z/vP+8/7z/vP+8/7z/vP8Xyhf/ia6JxAAAABsAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAfX19cyDT + JP+i8KT/x/nJ/8f5yf/H+cn/x/nJ/8f5yf/H+cn/x/nJ/xnSHf+JsIrEAAAAGwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAB+fn5zOdpT/xDTL/8Q0y//ENMv/xDTL/8Q0y//ENMv/xDTL/8Q0y//E9Mx/5iznMIAAAAZAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAN7e3hz///8/////P////z////8/////P////z////8/////P////z////8/7u7uL7+/ + vwQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/+D////AP///gA///wAD//4AAf/8A + AD/+AAAf/AAAH/wAAB/8AAAf/AAAH/wAAA/8AAAD+AAAAfAAAAHgAAABwAAAB8AAAAPgAAAD8AAAB/AA + AA/wAAAP+AAAD/wAAB//wAD//8AB///AAf//wAH//8AB///AAf//wAH//8AB/ygAAAAwAAAAYAAAAAEA + IAAAAAAAgCUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAHAAAAEgAA + ABYAAAANAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAkGDBQ0ESM6fgQIDkcAAAAtAAAAGgAAAAwAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAACggSHjoiSnjcMF6T/iNHdeYSJDuNAQIDQAAAACoAAAAWAAAACQAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAAMDR8xUCVViOhVjcP/e8P7/1Sa2v4zY5n/IUNv3g4dMYIBAgM9AAAAJwAA + ABUAAAAIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAA4PJTtgKV2R7V2Zzv6t4f7/uPD//43X/v5rvPn/TJDN/y9c + kPsdOmHNCxYlcAABAjoAAAAjAAAAEgAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAECEBErQ2orZZz2ZKXZ/qzk/v7P+v7+ufL+/p3l + /v6W4v7+gdP+/mS69/5Fh8L+KVCD+RszVsAHDhddAAAAMwAAACAAAAAPAAAABQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQBAwYVFTlZgy5vqPtutef/qub//8Dz + /v7E9f//tPD//5bi/v6S4f//jt///4jc/v51zv//X7n1/0CAuf4oTX74GCxLsAYLE1gAAAAxAAAAHgAA + AA4AAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQEEBhgbSXCXM3my+3C8 + 7P6j5f//su7//7Xv/v668f//r+7//4/g/v6L3v//h9z//4Pb/v5/2f//edb//2vL/v5Wr+v/OnWr/iZG + dO8UJD6dBAcMTQAAAC4AAAAaAAAACwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGAQQHHBxQ + e6Q3grz+dMTy/pni/v6j6P7+p+n+/qvr/v6v7P7+quz+/ond/v6F2/7+gdr+/n3Y/v551v7+ddX+/nHT + /v5r0P7+Ycj+/lCp5P40aZ7+Ij5q5REfNo8AAQI+AAAAJgAAAA4AAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAcEDhUnH1uKujyMx/53zfr/jt///5Th/v6Y4///nOX//6Dm/v6k6P//pur//4La/v5+2P//etf//3bV + /v5y1P//btL//2rQ/v5lz///Ys3//13L//9Yxf7+SqTd/zJkmP8hPGffChIeZQAAABwAAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABgcVHywjbKLLQZjS/nHN+v6B2v//hdz//4nd/v6N3///keD//5Xi/v6Z5P//oej//3vX + /v531v//c9T//2/T/v5r0f//Z8///2PO/v5fzP//W8r//1fJ//9Tx/7+T8X//07A+/85fbL+EiE5nwAA + ACIAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABCBspKiV0r9REoNv+asz8/3PU/v531v//e9f//3/Z/v6D2///h9z//4re + /v6P3///nOf//3TV/v5w0///bNH//2jQ/v5kzv//YM3//1zL/v5Yyf//VMj//1DG//9MxP7+SMP//0TB + //81isL+EiI6nwAAACIAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACI3KrrlCr4v5gy/7+ZM7+/mjP/v5s0f7+b9P+/nPU + /v531v7+e9j+/n/Z/v6E2/7+mOX+/m3S/v5p0P7+Zc/+/mHN/v5dy/7+Wcr+/lXI/v5Rxv7+TcX+/knD + /v5Fwf7+QcD+/j2+/v4xicP+EiI7nwAAACIAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACJHWus3PK8v9VyP7+Wcr//13L + /v5hzf//Zc7//2nQ/v5t0v//cdP//3XV/v6C2/7/nuX8/2PJ+f5dxPb/V73x/0+x5v5Hpdv/QJjP/zyT + yv5GtvD/R8L+/0PB//8+v/7+Or3//ze8//8tiMT+EiM8nwAAACIAAAAEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACJHexs3TL + 8v5KxP7+TsX+/lLH/v5WyP7+Wsr+/l7M/v5fyfv+V7jr/kyl2v5Gksb+Q4e6/i95s/4tcqz+L3Wv/jR7 + tf44gr3+PYzH/juHwf4rZpz+M4rE/jq39/44vP7+NLr+/jC5/v4qiMb+EiU+nwAAACIAAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACJHm0s3DK8/8/v/7+Q8H//0fC/v5Brur/OpzZ/zGKyf4ugsH/NInH/y5+vP4pd7X/KoLD/ylz + sf45iMP/WLTs/2fI/v5nyP//Z8j//2fI/v5hvPL/Qoa7/ytlm/8tjsz+LbL4/y24//8qicf+EyY/nwAA + ACMAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACJHu2s2zJ9P81u/7+OLv9/zOi4/41kdH/Tarl/1i48v5evvj/RaDd/yp+ + vf4qkdb/K5Xc/yqQ1f4pf8D/K3Sv/0WQx/5xxPP/fdL+/33S/v590///fNH9/2686f9Cfa7+Kmmh/yqU + 1f8qh8X+EydBoQAAACoAAAAMAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACJH25s2rJ9f4ttv3+LJ3i/jqY1/5tx/r+c83+/nLM + /v5HoNv+KoPD/iqT2P4qlt3+Kpbd/iqV3P4qkdf+KorO/il5uP4ucqz+WZ/P/ozV+f6T3f7+k93+/pPd + /v6S2/3+d7je/j9zo/4nWpD+FzBOrwAAAD8AAAAmAAAAEwAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADJH+7s2rH8/8rm+H+SKXh/3/R + /P6E1f//f9H8/0mh2v5BmdL/UrPp/zCa3/4rl97/K5fe/y+Z3v48nt//KpHX/yqN0v4phcf/MHy4/zR1 + rP5wr9b/pOH6/6vo//+r6P7+q+j//6rn/v9+tNX+Pmyb/h4/aMwKFSNrAAABNwAAACMAAAARAAAABgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAKI366tzqg + 4P9Wsej+kNn8/5Xd/v6L1vv/SKLc/0Sg2v591vz/htz+/33T+v5Nr+n/OZ7g/7Ta8/7l8vv/YbDk/yqR + 1/46nd3/ZcT4/2G57P49hbv/Qn+x/4m/3P+97vz+wvP//8Lz///B8v7+uen3/4Kvy/82X434GzhbuggQ + Gl8AAAAzAAAAHwAAAA8AAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAkJIjI7KY3P42O67P6j4/7+peX+/prd+/5DoNz+R6nj/nXT/P592P7+gtr+/ojc/v6R3/7+yur4/pGy + kf5Wilb+2ejo/m277f5jxvz+asv+/m7N/v5xzf3+XrLj/jh6sf5Rh7T+qNTl/tb8/v7W/P7+1vz+/tb8 + /v7G7PP+eqG9/i1Tg/QXLUuoBAgPSwAAACgAAAAQHx8fAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADAwqPkotlNfsesjw/7Xt/v+27f7+nd75/z+g3/5Ksev/bdH+/3PU/v551v//ftj//4jc + /v7W8vz/gKeA/wFPAf4ATgD/N3Q3/97r5/6K1f//aMn//2zL/v5wzv//c9D//3bR/v9cq9v+NnWr/1yO + tv+23ur+2v7+/9T5+//I7fP+u+Hq/53D1f82Xoz+JEl58BIkPHcAAAASHx8fAwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAQIODzhSXC+T1OuQ1PP/xfT+/8f1//+i3/f+PaPi/0i08P5kzv7/atH//2/S + /v501f//gdn//9Dw/P6Ap4D/BFEE/wBYAP4AZQD/AE8A/zd0N/7d7Or/jdb//2nK/v5tzP//cc///3XQ + //950v7+ds34/1eg0P8wZ53+RHel/jlqmfUyX47rKVF+3iJIdcQgQ2+rGTNVkA8fNFMAAAAGHx8fAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAA8TRWZrNZnZ86Pd9P7W/P7+1vz+/qjh9v42nuH+Rrby/lrK + /v5gzf7+Zs/+/mvR/v511P7+ze/8/oisiP4BTwH+AFoA/gCAAP4AhAD+AGsA/gBOAP47dzv+3uzq/ozW + /v5ry/7+b83+/nLP/v520f7+d8/7/kmQw/4wdrD+Lm2m/R1EbboFDBNKAAEBJAAAAA0AAAADAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAQMFEhhUfH0/ouH9tOj3/9P6/f666/j/i9Dw/zKd + 4f9Eufb+Ucb//1bI/v5cy///Yc3//2zR/v7N7vz/gKeA/wFPAf4AXgD/AIoA/wCPAP4AjwD/AI8A/wBx + AP4ATgD/N3Q3/9/r5/6N1///bMz//3DO//9tx/b+PYa9/zmEv/9Zvvv+Vbbz/zFxqv8YOlutAQIDPwAA + AB8AAAAJAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBAYKGl6LiyqW3Ppmuun/W7Pn/j2g + 3/IvldftK5fe/y6a4f86re7+SsH8/1LH/v5Yyf//Zc7//8bs/P6Ap4D/BFEE/wBfAP4AkwD/AJkA/wCZ + AP4AmQD/AJkA/wCYAP4AdAD/AE8A/zd0N/7e7Or/kdj//2XC9f83grv+RJPM/2XE+/9nx/7+Z8f//2C8 + 8/8ycKf8GDlarAECA0AAAAAeAAAACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWTXJHKpbc7SiN + 0MAaXIeKET1aVQkiMjIgc6mkPqjr/lC5+f47pej+MJ3i/kCy8f5ZyP7+wuv8/oitiP4BUQH+AGIA/gCb + AP4AogD+AKIA/gCiAP4AogD+AKIA/gCiAP4AoQD+AHoA/gBQAP47eTv+3ezp/mSfzP5Qodf+csv9/nPN + /v5zzf7+c83+/nPN/v5qv/H+OHar/Bg6XKwAAAA3AAAAFgAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAMAAAACAAAAAwsmOTgwm+D7X8L7/2XH//9lxv7+Wr34/0Kn5/673/P/gKyA/wFY + Af4AawD/AKYA/wCsAP4ArAD/AKwA/wCsAP4ArAD/AKwA/wCsAP4ArAD/AKwA/wCFAP4AVwD/N3w3/97r + 5f+e3f7+gdP//4HT//+B0/7+gdP//4HT//+B0/7+esr2/zh1qv8WNVSVAAAAGAAAAAMAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQYJDSJ3r7RStO//c83//3PN//9zzf7+es///8nq + /P6AsID/BGEE/wBxAP4ArwD/ALYA/wC2AP4AtgD/ALYA/wC2AP4AtgD/ALYA/wC2AP4AtgD/ALYA/wC1 + AP4AiwD/AGAA/zeCN//g7+r+qeL//43Z//+N2f7+jdn//43Z//+M2f7+a7Pf/y1onvQRKUFhAAAACwAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDzdRTTae4fp/0v3+gdP+/oHT + /v6G1f7+0O78/oi3iP4BZQH+AHgA/gC3AP4AvwD+AL8A/gC/AP4AvwD+AL8A/gC/AP4AvwD+AL8A/gC/ + AP4AvwD+AL8A/gC/AP4AvgD+AJIA/gBlAP47iTv+4fDq/rHn/v6a3/7+mt/+/prf/v5qr9r+Kmie7Q8m + O1YAAAAKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCQ0JJobFymnB + 8v6Q2///kNv//5bc///a8vv+gLeA/wFtAf4AggD/AMIA/wDJAP4AyQD/AMkA/wDJAP4AyQD/AMkA/wDJ + AP4AyQD/AMkA/wDJAP4AyQD/AMkA/wDJAP4AyQD/AMkA/wCeAP8AbAD+N4w3/+Lw5/+76/7+pOP9/2ap + 1f8kYZfdCBcjPwAAAAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAFEhsNI325rDqh4vh1x/P/oOH9/+D1/P+AuoD+BHYE/wCIAP4AywD/ANMA/wDTAP4A0wD/ANMA/wDT + AP4A0wD/ANMA/wDTAP4A0wD/ANMA/wDTAP4A0wD/ANMA/wDTAP4A0wD/ANMA/wDSAP8ApQD+AHYA/zeS + N//k8ur+ibvc/iRhlNcHFB9AAAAADAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAQQGBBRIa0s0kc3Pzej2/4jBiP8BewH+AI8A/wDTAP4A3AD/ANwA/wDc + AP4A3AD/ANwA/wDcAP4A3AD/ANwA/wDcAP4A3AD/ANwA/wDcAP4A3AD/ANwA/wDcAP4A3AD/ANwA/wDc + AP8A3AD+ALMA/wB8AP87mjv+2unj+05VW4MAAAAvAAAAEAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALX19e+odGh/gGCAf4AgQD+AIgA/gCK + AP4AigD+AIoA/gCPAP4A2AD+AOYA/gDmAP4A5gD+AOYA/gDmAP4A5gD+AOYA/gDmAP4A5gD+AOYA/gDm + AP4AqAD+AIoA/gCKAP4AigD+AIoA/gCDAP4AgQD+PqA+/vT39PVCQkJYAAAAFAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHx8fHXuNy4706q + TvBOqk7wSqlO80KmTf5Fp07/NqE2/wCIAP4A0wD/APAA/wDwAP4A8AD/APAA/wDwAP4A8AD/APAA/wDw + AP4A8AD/APAA/wDwAP4AnAD/EZAR/06sT/9Fpk3+RKVM/EypTPBNqk3wb7pv8Pn7+e5vb29hAAAACgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAmJiYQPT09Izw8PCQ7OzslNz9ELTl7p4totOf2qdmu/wCPAP4A3AD/APoA/wD6AP4A+gD/APoA/wD6 + AP4A+gD/APoA/wD6AP4A+gD/APoA/wD6AP4AowD/N6c3/87o9f9LmtH6NVt3gDk5OS07OzslOzs7JTs7 + OyEAAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/T1lFrNyu+QCWAP4J4Qn+Df4N/g3+ + Df4N/g3+Df4N/g3+Df4N/g3+Df4N/g3+Df4N/g3+Df4N/g3+Df4CqgL+N603/pnE4vMQNE1oAAAADwAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA+Pj41rt+u9wCd + AP4d4x3/Kf8p/yn+Kf4p/yn/Kf8p/yn+Kf4p/yn/Kf8p/yn+Kf4p/yn/Kf8p/yn+Kf4Hrwf/N7M3/5ab + nqwAAAAkAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAA+Pj41ruGu9wCkAP4x5TH/Rf9F/0X+Rf5F/0X/Rf9F/0X+Rf5F/0X/Rf9F/0X+Rf5F/0X/Rf9F/0X+ + Rf4MtQz/N7g3/5aWlqYAAAAiAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAA+Pj41ruSu9wCrAP5G50b+Yf5h/mH+Yf5h/mH+Yf5h/mH+Yf5h/mH+Yf5h/mH+ + Yf5h/mH+Yf5h/mH+Yf4SuxL+N743/paWlqYAAAAiAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA+Pj41ruau9wCyAP5a6Vr/ff99/33+ff59/33/ff99/33+ + ff59/33/ff99/33+ff59/33/ff99/33+ff4XwRf/N8M3/5aWlqYAAAAiAAAABgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA+Pj41ruiu9wC5AP5t623/mP+Y/5j+ + mP6Y/5j/mP+Y/5j+mP6Y/5j/mP+Y/5j+mP6Y/5j/mP+Y/5j+mP4cxhz/N8k3/5aWlqYAAAAiAAAABgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA+Pj41ruqu9wDB + AP6C7YL+tf61/rX+tf61/rX+tf61/rX+tf61/rX+tf61/rX+tf61/rX+tf61/rX+tf4izCL+N843/paW + lqYAAAAiAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAA+Pj41ru2u9wDIAP6W75b/0f/R/9H+0f7R/9H/0f/R/9H+0f7R/9H/0f/R/9H+0f7R/9H/0f/R/9H+ + 0f4n0if/N9Q3/5aWlqYAAAAiAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAA+Pj41ru6w9wDNB/6J6o3/vvbB/771wf6+9sH/vvbB/771wf6+9sH/vvbB/771 + wf6+9sH/vvbB/771wf4j1Sr/N9g9/5aWlqYAAAAiAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA+Pj40sfC69wDPHf4Azx3+AM8d/gDPHf4Azx3+AM8d/gDP + Hf4Azx3+AM8d/gDPHf4Azx3+AM8d/gDPHf4Azx3+PdtU/paWlqUAAAAhAAAABgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWVlYt8Pzy2J3trt+X7Knfl+yp35fs + qd+X7Knfl+yp35fsqd+X7Knfl+yp35fsqd+X7Knfl+yp35fsqd+X7KnfyfXS36WlpYwfHx8YHx8fBAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD///A///8AAP//4A///wAA///AA///AAD//4AA//8AAP//AAA//wAA//4AAB//AAD//AAAB/8AAP/4 + AAAB/wAA//AAAAD/AAD/4AAAAP8AAP/AAAAA/wAA/4AAAAD/AAD/gAAAAP8AAP+AAAAA/wAA/4AAAAD/ + AAD/gAAAAP8AAP+AAAAAfwAA/4AAAAAfAAD/gAAAAAcAAP8AAAAAAwAA/gAAAAABAAD8AAAAAAEAAPgA + AAAAAQAA8AAAAAAHAADgAAAAAA8AAOAAAAAADwAA4AAAAAAHAADwAAAAAAcAAP4AAAAABwAA/AAAAAAP + AAD8AAAAAD8AAPwAAAAAPwAA/gAAAAA/AAD/AAAAAD8AAP8AAAAAPwAA/4AAAAB/AAD//gAAD/8AAP/+ + AAAf/wAA//4AAB//AAD//gAAH/8AAP/+AAAf/wAA//4AAB//AAD//gAAH/8AAP/+AAAf/wAA//4AAB// + AAD//gAAH/8AAP/+AAAf/wAA////////AAAoAAAAQAAAAIAAAAABACAAAAAAAABCAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAQAAAALAAAAEQAAABEAAAALAAAABQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAUAAAAQAAAAIAAAACwAAAAsAAAAIgAAABQAAAAKAAAABAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAUAAAASCBIeRSVNf+gfQGnECRMgYgAAAD0AAAAvAAAAIAAA + ABIAAAAJAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAcAAAATDyE2VyZShvIyYJX/LVqP/yZO + gfwcOFy5BgwVWQAAADsAAAAsAAAAHQAAABAAAAAHAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAcAAAAVFTBNbCZX + i/U4a6D/eLr0/2a1+f9GhMH/K1WJ/yZMffkXLUymBQkQUQAAADkAAAAqAAAAGwAAAA8AAAAHAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAgAAAAXGDhafydbkftAd63/hsX5/7rs//+Q2P//bcD//1+w8/9Bfbj/J06B/yRIeO4UJ0GXAQMFRwAA + ADYAAAAnAAAAGQAAAA0AAAAFAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAoAAAAZGkBlkChfl/9Hgrj/i8z9/8Tx///V/v//pOj//5/l//+F0///ab///1qs + 7f87dKz/Jkt9/yNEc+YRIDaGAAAAQgAAADQAAAAlAAAAFgAAAAsAAAAFAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAsDCAwfHEdvpShjm/9QkMf/jtH//8Dx///O+f//0fz//5/m + //+c5f//meT//5Th//990f//Zb///1Wn5v81aJ//Jkl6/yE+aNgNGSp3AAAAQAAAADIAAAAiAAAAFAAA + AAoAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAwDCAwgIFOCuShnoP9ZntT/j9T//7vw + ///C9P//xfX//837//+a5P//l+P//5Ti//+Q4P//jd///4jc//90zf//Yr///1Cg3v8wXpP/Jkd4/x43 + XccJEBxlAAAAPgAAAC8AAAAgAAAAEgAAAAkAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAA4GDxgpI2CVzSlr + pv9hq+D/j9f//7Lu//+38P//uvH//73y///J+f//leL//5Hh//+O3///i97//4jd//+F3P//gtv//33Y + //9ty///XsD//0mW0f8tV4v/JUR1/BsxVLkGCxNZAAAAOwAAACwAAAAdAAAAEAAAAAcAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQAA + AA8IFiE1Jmmi2ixyrv9otur/kNr//6nq//+s6///r+3//7Lu//+17///xff//4/g//+M3///id3//4bc + //+D2///gNr//33Z//961///d9b//3LT//9lyP//W779/0OKw/8qUIL/JUNz+RcpRqYFCQ9RAAAAOQAA + ACoAAAAaAAAADQAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAABQAAABEJGihEJ2+q5TB6tv9tv/L/jdv//57m//+h5///pOj//6fp//+q6v//rez//8H2 + //+K3v//h93//4Tb//+B2v//ftn//3vY//941///ddX//3LU//9v0///bNL//2jP//9fx///Vrn2/z+D + uv8oSnr/JEFv7hQkPZcBAwVHAAAANAAAACAAAAANAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAABgAAABMMJjpTKHSw6zWDv/9vxfb/iNv//5Ph//+W4v//meT//5zl + //+f5v//ouf//6Xo//+89P//hdz//4La//9/2f//fNj//3nX//921v//c9T//3DT//9t0v//atH//2fQ + //9kzv//Yc3//13K//9Zxf//Urby/zp5rv8mRnb/Iz9s5hAeM4AAAAAxAAAAFgAAAAUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABgAAABQTOldiKHm39TqNyP9wy/r/gtn//4jd + //+L3v//jt///5Hg//+U4f//l+P//5rk//+d5f//uPL//4Da//992P//etf//3fW//901f//cdT//27S + //9r0f//aND//2XP//9izf//X8z//1zL//9Zyv//Vsn//1TH//9TxP//TrHr/zRrn/8mRHT/AAAAOwAA + ABsAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABEYS3ByKX6++z+X + 0v9tzPz/edb//33Y//+A2f//g9r//4bc//+J3f//jN7//4/f//+S4f//leL//7Tx//972P//eNb//3XV + //9y1P//b9P//2zS//9p0P//Zs///2PO//9gzf//Xcv//1rK//9Xyf//VMj//1HH//9Oxf//S8T//0rD + //9Dotz/JkR0/wAAADwAAAAcAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAgcWYV9KoLD/0Of2/9oy/7/b9L//3LU//911f//eNb//3vX//9+2P//gdr//4Tb//+H3P//it3//43e + //+w7///dtb//3PU//9w0///bdL//2rR//9nz///ZM7//2HN//9ezP//W8v//1jJ//9VyP//Usf//0/G + //9MxP//ScP//0bC//9Dwf//OqHc/yZEdP8AAAA8AAAAHAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAATP14/KobI/1Gs5P9hyv//ZM7//2fP//9q0P//bdL//3DT//9z1P//dtX//3nW + //982P//f9n//4La//+E2///rO3//3HT//9u0v//a9H//2jQ//9lz///Ys3//1/M//9cy///Wcr//1bI + //9Tx///UMb//03F//9KxP//R8L//0TB//9BwP//Pr///zag3f8mRXb/AAAAPAAAABwAAAAGAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABFEBgRyqIyv+E2///Wcn//1zL//9fzP//Ys3//2XO + //9oz///a9H//27S//9x0///dNT//3bW//961///fdj//7Hw//9x0///adD//2bP//9jzv//YM3//13L + //9ayv//V8n//1TI//9Rxv//TcX//0vE//9Iw///RcL//0LA//8+v///PL7//zm9//8yn93/Jkd4/wAA + ADwAAAAcAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARRBYUcqis3/kOL//1HG + //9Ux///V8n//1rK//9dy///YMz//2PN//9mz///aND//2vR//9v0v//cdP//3nX//+16/f/c8rx/1W1 + 6P9Mp9z/RZ3S/z6Qx/84hbz/M3mx/y1spP8nXZT/KF+V/zeNxv9Eu/j/Q8H//0C///88vv//Ob3//ze8 + //80u///Lp3e/yZJev8AAAA8AAAAHAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEUQmJHKozP/4zg//9Jw///TMT//0/F//9Sx///Vcj//1jJ//9ayv//Xcv//1/K/P9Wuu7/S6fc/z+S + yv8yfbf/KXCs/yhuqv8obKf/KWyn/y91r/80fbf/OYXA/z6NyP9CltL/Rp7b/0CRzP8qYpj/KWKY/zSS + zf86vP3/N7z//zW7//8xuv//Lrn//yud3v8mS33/AAAAPAAAABwAAAAGAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABFENjRyqN0v+I3///QcD//0TB//9Hwv//ScP//0m++f9Dren/PJ7a/zGL + yf8pfLv/KXm4/yx8u/8se7n/KXSx/yl7u/8peLb/KG6q/zmHw/9auPH/ZMf//2TH//9kx///ZMf//2TH + //9kx///YcD4/0SLwf8pXZP/KWad/y+Y1/8vuf//Lbj//y24//8rnd//Jk1//wAAADwAAAAcAAAABgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARREZEcqj9T/hN3//zm8//87vv//Pr///zyz + 8v8rh8j/K4TF/zaPzv9Bndr/TKvo/1e59v9Fo+H/KXi2/ymCw/8rldz/K5PZ/yqGyP8pc7D/KW2o/0SQ + yP9txfb/dc///3XP//91z///dc///3XP//91z///a7/v/0SEt/8nWI3/KGqj/yuf4f8tuP//K57g/ydP + gf8AAAA+AAAAIAAAAAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEURGVHK5HW/4Db + //8wuf//M7r//zOr7v8qis3/PpvZ/2bF/P9pyP//acj//2nI//9Hodz/KXu6/yqHyv8rl97/K5fe/yuW + 3P8rk9n/Ko/U/ymBwv8obqr/Km2n/1We0f9/z/n/htf//4bX//+G1///htf//4bX//+G1///db/p/0B4 + qf8nVov/KHKs/yqNzP8nUIT/AAAARQAAACwAAAAWAAAACQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABFEVmRyuT2f9/2///Lbj//yym7P8qjND/R6Tf/3TN/v92zv//ds7//3TN/v9Gntn/KX+//yqM + z/8rl97/K5fe/yuX3v8rl97/K5bc/yuT2f8qj9X/KovP/yl7uv8oa6f/MXOr/2ar1/+V3f3/l9///5ff + //+X3///l9///5ff//+X3///ebne/z1woP8nVIj/J1KG/wYNFV8AAABAAAAALgAAAB4AAAARAAAACAAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAARRGZ0crldv/f9v//yyk6v8qj9T/VK/n/4LU//+C1P//gtT//33Q + /P9Gntj/K4PE/1Cs4v8xm+D/K5fe/yuX3v8rl97/K5fe/yuX3v8rltz/K5PZ/yqP1f8qjND/KYfJ/yh2 + tP8oaaP/OXit/3y73/+o5///qOf//6jn//+o5///qOf//6jn//+m5P3/ebHT/zVklf8mUYT5GDJSqQUK + EVIAAAA5AAAAKgAAABsAAAAPAAAABwAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMTRWZLK5bd/2K76v8rk9n/ZLrt/4/a + //+P2v//j9r//4jV/P9Amtf/LonK/27G8f+G3P//g9j8/1a27P8smN7/K5fe/yuX3v+Bwev/w+H1/0ym + 4v8rk9n/Ko/V/yqM0P8/n93/ZL7x/0GLwv8oZ6D/RoKz/5PL5v+57///ue///7nv//+57///ue///7nv + //+16vv/dqfH/zBcjf8mToD0FStGmgMGCkoAAAA3AAAAKAAAABkAAAANAAAABQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAANEkJhViuX + 3v8sl97/d8jz/5vg//+b4P//m+D//5DY+v87mNf/MZHR/23K9v9/2f//g9v//4fc//+L3v//gdX6/06w + 6f+IxOz////////////r9fz/TKbi/yuT2f9Gquf/asv//23M//9wzv//Y7rs/zuBt/8oZZ7/WZC7/7Df + 7//K9///yvf//8r3///K9///yvf//8r3///A7Pf/cJu6/yxWh/8kSXnmEiQ8iwAAAEMAAAA1AAAAJQAA + ABYAAAAKAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAQAAAAOBhUgKSaGxc0xmt//idP2/6jm//+o5v//qOb//5TY+P84mNj/NZjZ/2rL+f941v//fNj//4DZ + //+E2///iN3//4ze///A7f//8/bz/0N9Q/8EUAT/q8Wr/+v1/P9nvfL/Zsj//2nK//9sy///bs3//3HP + //900P//X7Hi/zV3rv8qZZ3/bJ7B/8jv9f/Z/v//2f7//9n+///Z/v//2f7//9n+///A5e3/Z4+w/ydP + gf8jRXPeDhsudAAAADoAAAAoAAAAFAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAUAAAAPCB0qNSiO0d44n+H/m9z4/7Ts//+07P//tOz//5PX9v81mdz/OJ/f/2bL + +/9x0///ddX//3nX//992P//gdr//4Xc//+87P//8/bz/zt3O/8ATgD/AE4A/wRQBP+rxav/8Pn//33Q + //9nyf//asr//23M//9wzv//cs///3XR//920P3/W6na/zBtpf8tZpz/ga/L/8/1+P/b////2////9v/ + ///b////2////9v///+53uf/Q2qV/yZNf/8fPmfHCBAbRwAAABcAAAAHAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAUAAAARCSIxRCmR1eVDpeP/quT5/8Hy///B8v//wfL//5HV + 9P8xmt//OqTl/2PM/f9q0f//btL//3LU//911f//etf//37Z//+46v//8/bz/zt3O/8ATgD/AE4A/wBV + AP8ATgD/BFAE/6vFq//w+f//fdD//2jK//9ry///bs3//3DO//900P//dtH//3nT//950fz/VJ7O/y1o + n/82a5//h7PN/4GtyP9wnb3/X4yx/0t4ov86Z5X/J1KG/ydQhP8nT4H/Jk1//x49ZY0AAAANAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAYAAAATEDtWVyqT2OtMq+T/vu/8/834 + ///N+P//zfj//4/T8v8tmN7/O6jp/13L/v9izf//Zs///2vR//9u0v//ctT//3fW//+06P//8/bz/zt3 + O/8ATgD/AE4A/wBvAP8AfQD/AFoA/wBOAP8EUAT/q8Wr//D5//9/0f//acr//2zM//9vzf//cs///3TQ + //940v//etP//33V//9vwez/KWOb/yhfl/8nW5H3IlCA0x5GcbcXNVWaEylEeBInQV0SJT1FECE3KQAA + AAkAAAAGAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAcAAAAVFEZnYiqV + 2/VZsub/0fj9/9n9///Z/f//2f3//4bN7/8rl97/Pazs/1fJ//9by///X8z//2PO//9nz///a9H//2/T + //+w5///8/bz/zt3O/8ATgD/AE8A/wB1AP8AhwD/AIcA/wCEAP8AXAD/AE4A/wRQBP+rxav/8Pr//3/S + //9qy///bcz//3DO//9z0P//dtH//3jS//9twe7/MG+n/y5xq/88j8v/KF+X/xg5W6UAAABFAAAAMAAA + ABoAAAAKAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAcAAAAVGFZ/dCqW3ftkuej/2P3+/9v////b////0Pj9/3jE7P8rl97/PbDw/1DG//9UyP//WMn//1zL + //9gzf//ZM7//2jQ//+s5f//8/bz/zt3O/8ATgD/AE8A/wB5AP8AjgD/AI4A/wCOAP8AjgD/AIsA/wBd + AP8ATgD/BFAE/6vFq//w+v//gNL//2zL//9uzf//cc///3TQ//9ituf/K22n/zR8tv9Wu/n/WcH//0SX + 0v8oX5f/Gj9jsQAAAEMAAAAuAAAAFwAAAAgAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAMAAAAOHGSUhCuX3v94xOz/uuv5/5PV8f9vv+v/Sanj/yuX3v8rl97/MJ/k/0W9 + +/9Nxf//Ucb//1XI//9Zyv//Xcv//2HN//+o4///8/bz/zt3O/8ATgD/AE8A/wB+AP8AlQD/AJUA/wCV + AP8AlQD/AJUA/wCVAP8AkgD/AF8A/wBOAP8EUAT/q8Wr//H6//+B0///bcz//3DO//9YrOD/KW2o/zyI + wv9gwvz/YsX//2LF//9ixf//SZnS/yhfl/8aP2OxAAAAQwAAAC4AAAAXAAAACAAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEH26ilSuX3v8rl97/M5zf/yuX3v8qltz0KI7RwiN8 + tqcrl97/NaHm/zCb4v8smN//Oavt/0vC/f9Sx///Vsj//1nK//+k4v//8/bz/zt3O/8ATgD/AE8A/wCD + AP8AnQD/AJ0A/wCdAP8AnQD/AJ0A/wCdAP8AnQD/AJ0A/wCZAP8AYQD/AE4A/wRQBP+rxav/8fr//4LT + //9Notn/KXCs/0eWz/9ryP3/bMr//2zK//9syv//bMr//2zK//9PnNL/KF+X/xo/Y7EAAABDAAAALQAA + ABYAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFEdpGSuX3vsqldvVJofIoRRJ + bGwTQmE6AAAADAAAABIeaJqWLpng/1a+/f9Xv/7/Ra7w/y6Z4P8tmuD/P7Hw/1HF/v+g4P//8/fz/zt6 + O/8AUQD/AFIA/wCIAP8ApAD/AKQA/wCkAP8ApAD/AKQA/wCkAP8ApAD/AKQA/wCkAP8ApAD/AKAA/wBk + AP8AUQD/BFME/6vGq//t9Pr/Som9/1Ol2v91zv//dc7//3XO//91zv//dc7//3XO//91zv//dc7//1ml + 2P8pYJj/Gj9ksQAAAD8AAAAkAAAADQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABAAAAAQAAAADAAAAAQAAAAYJITExKpbc+Eqw8P9jxv//Y8b//2PG//9gw/3/Ra3t/y2Y + 3/+MyfD/8/fz/zt+O/8AVgD/AFcA/wCPAP8AqwD/AKsA/wCrAP8AqwD/AKsA/wCrAP8AqwD/AKsA/wCr + AP8AqwD/AKsA/wCrAP8ApwD/AGoA/wBWAP8EWQT/q8ir//D3/P+T2f//f9P//3/T//9/0///f9P//3/T + //9/0///f9P//3/T//9/0///Y67d/ylhmP8bP2WnAAAAJgAAAA4AAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAMI323rTSe4v9syf7/bsv//27L + //9uy///bsv//27L//+n3Pz/8/fz/zuCO/8AWwD/AF0A/wCWAP8AsgD/ALIA/wCyAP8AsgD/ALIA/wCy + AP8AsgD/ALIA/wCyAP8AsgD/ALIA/wCyAP8AsgD/ALIA/wCuAP8AcAD/AFsA/wReBP+ryav/8/v//5rd + //+I1///iNf//4jX//+I1///iNf//4jX//+I1///iNf//3S/6/8vaqH/JVmO0wAAABoAAAAJAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGEDlURSuX + 3v9evPP/edD//3nQ//950P//edD//3nQ//+y5P//8/fz/zuGO/8AYQD/AGIA/wCcAP8AugD/ALoA/wC6 + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALUA/wB2 + AP8AYQD/BGME/6vLq//0+///o+H//5Lc//+S3P//ktz//5Lc//+S3P//ktz//3O65P8saqL/JFmMzAYO + FyUAAAALAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAACyiNz8U/peX/hNX//4TV//+E1f//hNX//4TV//+45///8/jz/zuKO/8AZgD/AGcA/wCj + AP8AwQD/AMEA/wDBAP8AwQD/AMEA/wDBAP8AwQD/AMEA/wDBAP8AwQD/AMEA/wDBAP8AwQD/AMEA/wDB + AP8AwQD/AMEA/wDBAP8AvAD/AHsA/wBmAP8EaAT/q82r//X8//+r5f//nOH//5zh//+c4f//nOH//2+0 + 3f8paqT/IFOCtwMIDBwAAAAJAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAARRHaFcrl97/d8r3/47a//+O2v//jtr//47a///E6///8/jz/zuO + O/8AawD/AG0A/wCpAP8AyAD/AMgA/wDIAP8AyAD/AMgA/wDIAP8AyAD/AMgA/wDIAP8AyAD/AMgA/wDI + AP8AyAD/AMgA/wDIAP8AyAD/AMgA/wDIAP8AyAD/AMgA/wDEAP8AgQD/AGsA/wRtBP+rz6v/9vz//7Po + //+l5f//peX//2ir1v8obKf/HEp0nwAAABYAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqldu0Lpnf/2e/8P+X3v7/md///5nf + ///R8P//8/jz/zuSO/8AcAD/AHIA/wCwAP8AzwD/AM8A/wDPAP8AzwD/AM8A/wDPAP8AzwD/AM8A/wDP + AP8AzwD/AM8A/wDPAP8AzwD/AM8A/wDPAP8AzwD/AM8A/wDPAP8AzwD/AM8A/wDPAP8AzwD/AMsA/wCG + AP8AcAD/BHIE/6vQq//3/P//uev9/16iz/8pcKz/GUVqiQAAABgAAAAHAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACiM0Eh9v + pJErlt33O6Hi/3nJ8//W8v//8/jz/zuWO/8AdgD/AHcA/wC3AP8A1wD/ANcA/wDXAP8A1wD/ANcA/wDX + AP8A1wD/ANcA/wDXAP8A1wD/ANcA/wDXAP8A1wD/ANcA/wDXAP8A1wD/ANcA/wDXAP8A1wD/ANcA/wDX + AP8A1wD/ANcA/wDXAP8A0gD/AJYA/wB2AP8EeAT/q9Kr/+3z+f9KiLv5EzZSggAAAC0AAAAUAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABEj9dKSSBvaqi0fD/8/nz/zuaO/8AewD/AH0A/wC9AP8A3gD/AN4A/wDe + AP8A3gD/AN4A/wDeAP8A3gD/AN4A/wDeAP8A3gD/AN4A/wDeAP8A3gD/AN4A/wDeAP8A3gD/AN4A/wDe + AP8A3gD/AN4A/wDeAP8A3gD/AN4A/wDeAP8A3gD/AN4A/wDcAP8AmwD/AHsA/wR9BP+r1Kv/9PT07zU1 + NWcAAAA3AAAAHAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAS4uLiP/////z+gP/8AgAD/AIAA/wCD + AP8AjQD/AI0A/wCNAP8AjQD/AI0A/wCVAP8A2QD/AOUA/wDlAP8A5QD/AOUA/wDlAP8A5QD/AOUA/wDl + AP8A5QD/AOUA/wDlAP8A5QD/AOUA/wDlAP8A5QD/ALkA/wCNAP8AjQD/AI0A/wCNAP8AjQD/AIsA/wCA + AP8AgAD/BIIE/7PZs//19fXtNzc3VwAAACAAAAALAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC/v7++/// + //8IiQj/AIYA/wCGAP8AhgD/AIYA/wCGAP8AhgD/AIYA/wCGAP8AhgD/AMYA/wDtAP8A7QD/AO0A/wDt + AP8A7QD/AO0A/wDtAP8A7QD/AO0A/wDtAP8A7QD/AO0A/wDtAP8A7QD/AO0A/wCfAP8AhgD/AIYA/wCG + AP8AhgD/AIYA/wCGAP8AhgD/AIYA/wCGAP9vum///////8bGxqMAAAAXAAAACAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAALy8vHn7+/vB0ebRwrjauMO42rjDuNq4w5jNt+iKx7f/ise3/7nevv8woTD/AIsA/wDM + AP8A9AD/APQA/wD0AP8A9AD/APQA/wD0AP8A9AD/APQA/wD0AP8A9AD/APQA/wD0AP8A9AD/APQA/wD0 + AP8ApQD/AIsA/3fBd/+64b//mM22/4rDsf+fyq/ds9WzxrfZt8O42rjD6/Lrw/b29rs9PT08AAAACQAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAMAAAAEAAAABAAAAAQIHiwNH22hfyqW + 3e/k8vv/QKxA/wCQAP8A0wD/APsA/wD7AP8A+wD/APsA/wD7AP8A+wD/APsA/wD7AP8A+wD/APsA/wD7 + AP8A+wD/APsA/wD7AP8A+wD/AKsA/wCQAP+f1Z//q9bt/yyJy/8ibKG0AwoQHAAAAAsAAAAFAAAABAAA + AAQAAAADAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAJITEb8vf77ECwQP8AlgD/BtcG/wn/Cf8J/wn/Cf8J/wn/Cf8J/wn/Cf8J/wn/ + Cf8J/wn/Cf8J/wn/Cf8J/wn/Cf8J/wn/Cf8J/wn/Cf8J/wKwAv8AlgD/n9ef/3q24f8cXYqeAAAAGwAA + AAgAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABfv7++FAtED/AJsA/xPZE/8e/x7/Hv8e/x7/ + Hv8e/x7/Hv8e/x7/Hv8e/x7/Hv8e/x7/Hv8e/x7/Hv8e/x7/Hv8e/x7/Hv8e/x7/Hv8HtAf/AJsA/5/Z + n/9zi5unAAAAKwAAABAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAX7+/vhQLhA/wCg + AP8g2yD/NP80/zT/NP80/zT/NP80/zT/NP80/zT/NP80/zT/NP80/zT/NP80/zT/NP80/zT/NP80/zT/ + NP80/zT/DbgN/wCgAP+f25//dHR0iQAAACgAAAANAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAF+/v74UC8QP8ApQD/Ld0t/0n/Sf9J/0n/Sf9J/0n/Sf9J/0n/Sf9J/0n/Sf9J/0n/Sf9J/0n/ + Sf9J/0n/Sf9J/0n/Sf9J/0n/Sf9J/xK8Ev8ApQD/n92f/3R0dIkAAAAoAAAADQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABfv7++FAwED/AKsA/zrfOv9e/17/Xv9e/17/Xv9e/17/Xv9e/17/ + Xv9e/17/Xv9e/17/Xv9e/17/Xv9e/17/Xv9e/17/Xv9e/17/Xv8XwBf/AKsA/5/fn/90dHSJAAAAKAAA + AA0AAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAX7+/vhQMRA/wCwAP9I4Uj/c/9z/3P/ + c/9z/3P/c/9z/3P/c/9z/3P/c/9z/3P/c/9z/3P/c/9z/3P/c/9z/3P/c/9z/3P/c/9z/3P/HMQc/wCw + AP+f4Z//dHR0iQAAACgAAAANAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF+/v74UDI + QP8AtQD/VeNV/4j/iP+I/4j/iP+I/4j/iP+I/4j/iP+I/4j/iP+I/4j/iP+I/4j/iP+I/4j/iP+I/4j/ + iP+I/4j/iP+I/yHIIf8AtQD/n+Of/3R0dIkAAAAoAAAADQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABfv7++FAzED/ALsA/2LlYv+c/5z/nP+c/5z/nP+c/5z/nP+c/5z/nP+c/5z/nP+c/5z/ + nP+c/5z/nP+c/5z/nP+c/5z/nP+c/5z/nP8nzCf/ALsA/5/ln/90dHSJAAAAKAAAAA0AAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAX7+/vhQNBA/wDAAP9v52//sv+y/7L/sv+y/7L/sv+y/7L/ + sv+y/7L/sv+y/7L/sv+y/7L/sv+y/7L/sv+y/7L/sv+y/7L/sv+y/7L/LNAs/wDAAP+f55//dHR0iQAA + ACgAAAANAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF+/v74UDUQP8AxQD/fOl8/8f/ + x//H/8f/x//H/8f/x//H/8f/x//H/8f/x//H/8f/x//H/8f/x//H/8f/x//H/8f/x//H/8f/x//H/zHU + Mf8AxQD/n+mf/3R0dIkAAAAoAAAADQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABfv7 + ++FA2ED/AMsA/4nriv/c/9z/3P/c/9z/3P/c/9z/3P/c/9z/3P/c/9z/3P/c/9z/3P/c/9z/3P/c/9z/ + 3P/c/9z/3P/c/9z/3P832Df/AMsA/5/rn/90dHSJAAAAKAAAAA0AAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAX7+/vhQNpH/wDOCv9w5Xb/s/O3/7Pzt/+z87f/s/O3/7Pzt/+z87f/s/O3/7Pz + t/+z87f/s/O3/7Pzt/+z87f/s/O3/7Pzt/+z87f/LNc1/wDOCv+f7KP/dHR0iQAAACgAAAANAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF+/v74UDbU/8Azxr/AM8a/wDPGv8Azxr/AM8a/wDP + Gv8Azxr/AM8a/wDPGv8Azxr/AM8a/wDPGv8Azxr/AM8a/wDPGv8Azxr/AM8a/wDPGv8Azxr/n+2p/3R0 + dIgAAAAoAAAADQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPz8/OGH6Zr/INdE/yDX + RP8g10T/INdE/yDXRP8g10T/INdE/yDXRP8g10T/INdE/yDXRP8g10T/INdE/yDXRP8g10T/INdE/yDX + RP8g10T/LNlO/9v44P91dXWEAAAAIwAAAAsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH9/ + fwH+/v5w////f////3////9/////f////3////9/////f////3////9/////f////3////9/////f/// + /3////9/////f////3////9/////f////3////9/u7u7Pn9/fw5/f38EAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAP////Af////////wA////////+AA////////wAA///////+AAA///////wAAA////// + +AAAA//////wAAAB/////+AAAAB/////wAAAAB////+AAAAAD////gAAAAAH///8AAAAAAf///gAAAAA + B///+AAAAAAH///4AAAAAAf///gAAAAAB///8AAAAAAH///wAAAAAAf///AAAAAAB///8AAAAAAH///w + AAAAAAf///AAAAAAAf//8AAAAAAAf//wAAAAAAAf//AAAAAAAAf/4AAAAAAAA//AAAAAAAAD/4AAAAAA + AAP+AAAAAAAAA/wAAAAAAAAD+AAAAAAAAH/wAAAAAAAAP/AAAAAAAAAf8AAAAAAAAB/wAAAAAAAAD/gA + AAAAAAAP/4AAAAAAAA//gAAAAAAAH/8AAAAAAAA//wAAAAAAAH//gAAAAAAA//+AAAAAAAH//8AAAAAA + Af//4AAAAAAA///gAAAAAAH///AAAAAAAf//+AAAAAAD////8AAAAP/////wAAAB//////AAAAH///// + 8AAAAf/////wAAAB//////AAAAH/////8AAAAf/////wAAAB//////AAAAH/////8AAAAf/////wAAAB + //////AAAAH/////8AAAAf/////wAAAB//////AAAAP/////////////KAAAAEgAAACQAAAAAQAgAAAA + AABgVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABgAAAAwAAAARAAAAEAAAAAoAAAAFAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAIAAAAEwAAACAAAAAoAAAAJwAAAB4AAAATAAAACgAAAAUAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAgAAAAVDRwuWhw5XrYRIzp8AwYLSQAAADYAAAApAAAAHQAAABEAAAAJAAAAAwAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAACQACAxcQIjhjJU6A5yhT + h/8nT4L7Hj1lyw0aLHMBAwVFAAAANAAAACcAAAAaAAAADwAAAAcAAAADAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAALAgQHHBQuSW8mVIn1MWGW/lyb1f5Fgbz+KlWJ/iZN + f/ocOF2/ChQhaQAAAD8AAAAyAAAAJQAAABgAAAAOAAAABwAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAAAwDBwshGTpciCZYjfY4a6H+dLLp/4rO/v9svP3/Xavu/z95s/4qU4f+JEl58xs2 + WrgIEBtgAAAAPgAAADEAAAAjAAAAFwAAAA0AAAAGAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADQMI + DCUcQmmbJ1uR9j92rf95uO3+ruH+/8H0//+Z3///e8r//2a6+/5WouL/OnCp/ylShf4iRHLqFSpHoAYN + FlwAAQE8AAAALwAAACAAAAAVAAAACwAAAAUAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAUAAAAOAgYKJh5Jc6koYJf6Q320/36/ + 8v+v5P7+0/v//8f5//+j6P//n+X//43a/v50yP//ZLn6/1Gc2/80Zp3+J06A/SFAbd4TJT+TAwYKUAAA + ADgAAAArAAAAHgAAABIAAAAKAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAABQAAAA8GEBktHk14sidjm/5Ih77+gcb3/q7m/v7L+P7+zvn+/sT3 + /v6e5f7+m+T+/pnj/v6V4v7+htf+/m7G/v5fufv+S5PQ/i9ckf4lSHr9IT5p2g8dMYABAgRFAAAANgAA + ACkAAAAbAAAAEAAAAAgAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAAGAAAAEggXJDkiWYrKKGag/1OXzv6Hzfz/r+n//8L0///E9f7+x/b//8L3//+Z5P//l+P//5Ti + /v6R4P//jt///4ve//9+1P7+asb//166+v9Jks3/LlqO/iZHeP8fOmLODRkrewEBA0QAAAA1AAAAKAAA + ABsAAAAQAAAACAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAcAAAATDSU5SiNe + ktMrbqj9WKDW/4fQ/P6r6P//t/D//7rx//+98v7+wPP//8D1//+V4v//kuH//4/g/v6N3///it7//4fd + //+F2/7+gNn//3XR//9mxf7/WbX0/kKFvv8tV4r/JENy9B00WsQLFCNvAAABQAAAADMAAAAmAAAAGQAA + AA4AAAAHAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACAABARUPK0JWJWWb2S91sP5cqN3/htL9/6Xn + /v6u7P//se3//7Pu//+27/7+ufH//731//+Q4P//jt///4ve/v6I3f//htz//4Pb//+A2v7+fdj//3vX + //931f//bc3+/mDD/v9Trer/PXuz/ytRg/4kQG7uGCtLrwcOGGIBAgNAAAAAMAAAACIAAAAWAAAADAAA + AAUAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAJAAEBFw8sQ1snbafmMnu2/2Gw5P+G1f7/nuX//6To/v6n6f//qur//6zr + //+v7P7+su3//7v0//+M3v//id3//4bc/v6E2///gdr//3/Z//982P7+edf//3bW//901f//cdP+/m3R + //9ly///XcL9/1Cq5v83b6T+KEl6/yM/bOkWKESgBQkPVAAAADsAAAAsAAAAHQAAAA4AAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAA + AAoAAAAYETNNbChyr/AzgLv+Zrrt/oXX/v6W4v7+muT+/p3l/v6g5v7+ouf+/qXo/v6n6f7+qur+/rjy + /v6H3P7+hNv+/oHa/v5/2f7+fdj+/nrX/v531v7+dNX+/nLU/v5v0v7+bdH+/mrR/v5nz/7+ZM7+/l7I + /v5Zwv7+TKXg/jRpnv4mRnb+I0Bt6RIhOZEDBgtLAAAAMAAAABsAAAAJAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAACwEGCRwYSG6IKHWy8zmJ + xP9qwvP+gtj+/43e//+Q4P//k+H//5bi/v6Y4///m+T//53l//+g5v7+o+j//7by//+C2///gNr//33Y + /v571///eNb//3XV//9y1P7+cNP//23S//9r0f//aND+/mXP//9izf//YMz//13L//9ayf7+V8b//1XA + +/9JoNn/Mmaa/iZFdfwhO2TXBgwUVgAAACQAAAANAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAALAwoQIBxYhJcperf0PZLN/2rE9f981v7+hNv//4fc + //+J3f//jN7//4/f/v6R4P//lOH//5bj//+Z4/7+nOX//7Pw//9+2f//e9j//3nW/v521f//c9T//3HT + //9u0v7+bNH//2nQ//9mz///Y87+/mHN//9ezP//W8v//1nK//9WyP7+U8f//1HG//9RxP7/ULv2/j+L + wf8nSHj/CRAcbwAAACgAAAAPAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAcFEBgkHl2MmCqAwPxAmdT/Z8b4/3XU//961/7+fdj//4DZ//+C2v//hdv//4fc + /v6K3f//jN///4/g//+S4P7+leL//7Hw//961///d9b//3TV/v5x1P//b9P//2zS//9q0P7+Z8///2TO + //9izf//X8z+/lzL//9Zyv//V8n//1TI//9Rx/7+T8X//0zF//9Kw///SML+/kKm4P8oS3z/CRAcbwAA + ACkAAAAPAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgUQ + GBkhaZ6jKoLD/0Og2/5lyPv/bdH//3HT//9z1P7+dtX//3nW//971///ftj//4Da/v6D2///hdz//4jd + //+L3v7+jt///67v//911f//c9T//3DT/v5t0v//atH//2jQ//9lzv7+Ys7//2DN//9dy///Wsr+/ljJ + //9VyP//Usf//1DG//9Nxf7+SsT//0jD//9Fwv//QsD+/jql4P8nTH3/CRAcbwAAACkAAAAPAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAiBom4MuiMn+Tqvj/mHJ + /v5jzv7+Zs/+/mnQ/v5r0f7+btL+/nHT/v5z1P7+dtX+/nnW/v571/7+ftn+/oDZ/v6D2v7+htz+/qvt + /v5w0/7+btL+/mvR/v5o0P7+Zs/+/mPN/v5gzP7+Xsz+/lvK/v5Yyf7+Vsj+/lPH/v5Qxv7+TsX+/kvE + /v5Iw/7+RsL+/kPB/v5Av/7+Pr7+/jek4f4nTH7+CREdbwAAACkAAAAPAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAyFqno05k9D/e9X9/1rJ/v5cy///X8z//2LN + //9kzv7+Z8///2rQ//9s0f//b9L//3LT/v501f//d9b//3nX//982P7+hdz//63u//9u0v//adD//2bP + /v5kzv//Yc3//1/M//9cy/7+Wcr//1fJ//9UyP//Ucf+/k7F//9MxP//ScP//0fC//9Ewf7+QcD//z6/ + //88vv//Ob3+/jOi4f8nToD/CREdbwAAACkAAAAPAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAyFroI0+l9L/h97//1PH/v5VyP//WMn//1vK//9dy/7+YM3//2PN + //9lz///aND//2vR/v5t0v//cNP//3LU//911f7+id7+/7Lu+/9uzvn/X8X2/1q/8v5Xu+//UbTo/0qo + 3v9Dm9H+PZDH/zeEu/8yd67/Mnqx/kGo4f9Gvvr/RcH//0LA//9Av/7+PL7//zq9//84vP//Nbv+/jCh + 4v8mT4L/CREebwAAACkAAAAPAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAyFtoo0/mdT/hd3//0zE/v5Oxf//Ucb//1TI//9WyP7+Wcn//1zL//9ezP//Yc3//2PN + /v5kzf3/Zsz7/2HC8/9UruD+V6DO/1eXw/89h73/M323/y1zrf4qbaf/KWmi/yloof8qZ6D+K2eg/zBw + qv8zdq//LWui/ihglv8xfbX/PKzp/z29/f87vf7+OL3//za7//8zuv//MLn+/iyg4v8mUYT/CRIebwAA + ACkAAAAPAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAyFu + pI0/mtb+gdz+/kTB/v5Hwv7+SsP+/kzE/v5Pxf7+Ucf+/lTH/v5SwPf+SrHp/kOi2/45kcz+L4C8/ih1 + sv4oc7D+KHKu/ihwrf4obqr+KGyo/jmHwv5Kodz+T6rl/lOx7P5XuPT+W8L+/lvC/v5bwv7+WLv3/kSS + yv4rY5r+J12T/i6Auv40re7+M7r+/jG5/v4vuP7+Lbj+/iug4/4mUob+CRIfbwAAACkAAAAPAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAyFvpY0/m9j/fdr//z2+ + /v5Av///QsD//0XB//9DuPX+N5va/zCMy/8sg8L/Kn++/y6Dwv41jMr/O5TS/zWJyP8odbL+KXu6/yqM + 0P8qgsT/KXKw/ypwq/4/jsf/XLXs/2rJ/v9ryv7+a8r//2vK//9ryv//a8r+/mvJ/v9kvfL/SI7C/y1j + mP8nXpP+K4bE/yyr8P8tuP//LLf+/iuh4/8nVIj/CRMfcAAAACkAAAAQAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAyFwpo0/ndn/edj//za7/v45vP//O73+/zq0 + 9P8tj9D+L4rL/z2Y1v9IpeL/VLPv/1m79v5bvfj/RaHf/yt8u/8pf8D+KpLY/yuV3P8qk9n/KozR/yl9 + vP4ocK3/L3Wv/0qXzP9swfL+edD+/3nR//950f//edH+/nnR//950f//eM78/2u76v9GhLb+LWCV/yhl + nf8qi8r/LK7z/iuh5P8nVor/CRMgcgAAAC4AAAAVAAAABgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAyFyqI0/n9z/ddf//y+4/v4xuf7/Mq7y/yyQ0/8yj9D+XLnx/2rI + /v9ryf//a8n//2jG/P5GoNv/K3++/ymDxf8qlNr+K5fe/yuW3v8rldz/K5PZ/yqQ1f4ph8r/KHi3/yht + qP80eLD+WqTV/37M9v+I1/7/iNj+/ojY//+I2P//iNj//4jY//+G1fz+brTf/0N7rP8rXJD/KGig/imC + v/8nVor/CRQgdgAAADgAAAAjAAAAEgAAAAkAAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAyFzqo0/oN3/ddf//yy3/v4sqvD/KpDV/zaV1v9mwPT+ds7//3bO//92zv//dM39/0Wd + 2P4rgcH/KYfJ/yqV2/8qlt3+K5fe/yuX3v8rl97/K5bc/yqT2f4qkNX/Ko3R/ymExf8oc7D+KGmk/zt+ + tP9ssdv/ld39/pff//+X3///l9///5ff//+X3/7+l9///5Tb+/9zs9j/PXCh/idUif8nUob/ESU8kAAA + AEcAAAA3AAAAKAAAABoAAAAQAAAACAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAyF0 + q40/ot/+ddb+/iym7f4qkNb+QJ/d/nbL+P6B1P7+gdT+/oHU/v55zPn+RZ3Y/iuDw/5Iotr+OKDh/iqW + 3f4qlt3+Kpbd/iqW3f4qlt3+Kpbd/iqV3P4qk9n+KpDV/iqN0v4pis3+KX/A/ihwrf4oaaP+PXyw/n69 + 4f6l4/z+p+b+/qfm/v6n5v7+p+b+/qfm/v6n5v7+peP8/nWt0P48bJz+JlKF/CBCbc0MGShxAAEBQgAA + ADQAAAAnAAAAGgAAAA4AAAAHAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABiF0q487oOD/ZL/u/yuT + 2f5LqOP/gtH5/43Z//+M2f7+jdn//33N9/9DnNj/LYnK/1+35/6C2Pz/ftX7/1q67v81nuH+K5fe/yuX + 3v8umN7/bLbo/6LR8P5QqOL/K5PZ/yqQ1v8qjdL+K4zP/0ek3/9UqN3/N321/i1spP9PjLr/j8nl/7Lp + /P+27f7+tu3//7bt//+27f//tu3+/rbt/v+p3vP/dqfI/ztnlv4lTn/0GzhcugoVImoBAgRBAAAAMgAA + ACQAAAAXAAAADQAAAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADyBxppQsmN7/MZre/1ax6P6N1/v/l97//5fe + //+X3v7+gs72/0Gc2f8xkND/W7fp/3/Y/v6D2///h9z//4rd/v970vn+UrPr/zae4f91u+n/8Pj8//7+ + /v7V6vj/Varj/yuT2f8tktf+S63p/2jI/P9uzf7/acT2/lCg1P8yda3/M3Cm/2GZwf+n2e3+w/L9/8X0 + ///F9P//xfT+/sX0///F9P//xPP9/67c7P9tmbr+NmCP/yVLeuoYMVKpBw8ZXwAAADwAAAAvAAAAIgAA + ABUAAAALAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAUAAAAPBxgkLSSAvcIumd7/W7br/57h/f6j5P//o+T//6Lj//+J0fb+PZza/zGU + 1f9cvO7/edf//33Y/v6A2v//hNv//4jd//+L3v7+j9/+/6Td+P/o8vX/or6i/2OSY/7T4dP/1ur4/1Kq + 4/9Os+/+Z8n+/2rL//9tzP//b83+/nLP//9pwfH/S5fL/y1spP81b6T+d6rK/77o8v/T+v7/1Pv+/tT7 + ///U+///1Pv//9T7///U+/7+sNfk/2KKrf8vV4j+JEl46BQoQ5gDBwxQAAABOQAAACkAAAAYAAAACwAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABgAA + ABAIHSs0JH66wTCa3v1rv+3+rOj+/q3p/v6t6f7+rej+/ovS9f42mNr+MpfZ/l/C9P5z1P7+dtb+/nrX + /v592P7+gdr+/oXb/v6I3f7+ter+/vL4+P6HrIf+A1AD/gBNAP4naSf+zdzN/uX0/f580P7+Zsj+/mnK + /v5ry/7+bcz+/nDO/v5yz/7+ddH+/mzD8f5GjcH+Kmaf/jxzpf6Fs87+0fb5/tr+/v7a/v7+2v7+/tr+ + /v7a/v7+2v7+/tn9/f6w1eH+XIOn/iZOgP4iRXLcEiQ9iAIFCTgAAAAiAAAAEAAAAAUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAHAAAAEgkiMkAmh8fPMpvf/oDM + 8f+37f7/ue///7nu/v637f7/hM7y/zSa3f81nd/+YMf5/2zR/v9w0///c9T//3fW/v571///ftn//4Pa + //+x6P7+8vj4/3+mf/8HUwf/AE4A/wBNAP4ATgD/Jmgm/8nZyf/o9v7+gNH//2fJ//9pyv//bMz+/m/N + //9xzv//dND//3bR//930P3+abzq/0OHvP8tZ57/QHWl/pK+1f/Q9fj/2////9X5+//K7/T+uuDq/63U + 4f+jytr/krnO/klxmv8nToD/Jkt9+yFAbMkFChEnAAAADQAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAgBAwUVDCs/TiaGxtQ3nuD+lNb0/8Hy/v/E9P//xPT//8Hy + /v5+yfD/NZ3g/zik5f9axfn+Zs///2rR//9t0v//cdP//3TV/v541v//ftj//6zm///x+Pj+f6Z//wpV + Cv8ATgD/AFQA/wBiAP4ATwD/AE4A/yZoJv/N3M3+4fT+/4XT//9oyv//asv+/m3M//9vzv//cs///3TQ + //930f7+etP//3jP+v9ks+D/P4C0/i1km/9Mfqv/T4Gr/0V3pP9AcJ/+OGiY/zJgkv4tWYz0JlGF6iZP + gt8lTH7THz5mxhs2W6UIEBoYAAAABgAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAACAACAxYRPVldJ4vM3D6i4f+h3fX+zfj+/8/4///P+P//yvb+/3vH7v4znOD/OKbn/1bF + +/9gzP7+Y87//2fP//9r0f//btL//3HT/v531v//qOX//+73+P+HrIf+B1MH/wBOAP8AVgD/AHYA/wB/ + AP4AZwD/AFAA/wBOAP8naSf+0d/R/9/z/f+E0///acr+/mvL//9uzf//cc7//3PQ//920f7+eNL//3rU + //981P7/ZbTh/ilim/8pYpr/J12U+yJQf9EaPWOoFzZXjA0fMmoLGSpPCxgoPQsXJi0KFSMdAgUIDAAA + AAUAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJAAAAFhRI + a2Moj9LoRabj/7Dl9//Z/f7+2f3//9n9///T+v3/e8bt/yqW3f45qOn/U8X8/1nK//9dy/7+Yc3//2TO + //9o0P//a9H//2/S/v6j4///8Pj5/42wjf8DUAP+AE4A/wBWAP8AewD/AIcA/wCHAP4AhQD/AGsA/wBO + AP8ATQD+KWop/9Lg0v/k9f//f9H+/mrL//9szP//b83//3HP//900P7+d9H//3jS/v9hseH/Lm2k/i5x + q/8/ldL/K2eg/yNSg90JFSFoAAAAPgAAACoAAAAXAAAACgAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAoBBggbGFV9ciqW3fpPrOT+wvD6/tr+ + /v7a/v7+2v7+/sTx+v5nuun+Kpbd/jut7v5OxP7+Usf+/lbI/v5ayv7+Xcv+/mHN/v5kzv7+aND+/qPi + /v7y+Pj+gaeB/gNQA/4ATQD+AFgA/gCDAP4AjQD+AI0A/gCNAP4AjQD+AIwA/gBxAP4ATgD+AE0A/iNm + I/7K2sr+7Pj+/oDS/v5ry/7+bcz+/nDO/v5yz/7+cs38/lKi1f4qbKX+M3u1/lS59/5YwP7+TKjk/i1p + ov4mWY7sChgmbwAAADwAAAApAAAAFgAAAAgAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABQIKDxobX42EKpTa9l615/+16fj/tOj3/5za8/94xez+Ua3l/zqg + 4P8tmN7/MaHl/0a++/5Mxf//UMb//1PH//9Xyf7+W8r//17M//9kzv//mt////H4+P5/pn//CVQJ/wBO + AP8AWQD+AIgA/wCUAP8AlAD/AJQA/wCUAP4AlAD/AJQA/wCSAP8AdAD+AFAA/wBOAP8naSf/ytrK/uX1 + //+H1f//bMz//2/N//9tyvr+SpnP/yxwq/88icP/W7z1/mDE//9gxP//YMP+/1Or5P8taaH+JFWH5Asb + K3QAAAA9AAAAKQAAABUAAAAIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAB/f38BAgoPEh1nl5Iqldv1Kpbd/lGu5f9JqeP/OJ/g/SuV2+8oj9PgKZDU5yuX3v8vm+L/LJnf/zGg + 5P4/tPP/S8L8/1HG//9Ux/7+WMn//17M//+X3v//7/j5/4Gngf4JVAn/AE4A/wBaAP8AjAD+AJoA/wCa + AP8AmgD/AJoA/wCaAP4AmgD/AJoA/wCaAP8AmAD+AHUA/wBRAP8ATgD/I2Yj/tLg0v/g9P3/idb//2jF + +P9ElMz+LHOu/0WUzf9kwff/acj+/mnI//9pyP//acj//2nI/v9YrOL+Lmqh/yNUheELGyt0AAAAPQAA + ACcAAAAVAAAACAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHmqdaiqW + 3fcqlt34KpTb8ieLzNQlhcOmFUpsbg81TkoNLUM2JYPBvzGc4v9Nt/n/R7H0/zOe4/4smN//NKPn/0W5 + 9v9Rxf7+Vsn//5Pc///s9vj/jbGN/wNRA/4ATwD/AFsA/wCPAP8AoQD+AKEA/wChAP8AoQD/AKEA/wCh + AP4AoQD/AKEA/wChAP8AoQD+AJ8A/wB4AP8AUQD/AE8A/ilsKf/R39H/4PL8/2Gk0/8qc7D+Tp/V/27I + +/9xzP//ccz+/nHM//9xzP//ccz//3HM//9xzP7+XKzg/zFtpP8kVYjkChgnbgAAADkAAAAjAAAAEAAA + AAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAE0RkNxVLbngUSGpRETtXIwAA + AAkAAAAGAAAABgAAAAwTQ2RhKpbc+Uev8P5ew/7+XsP+/lzB/f5KsfH+Mp3i/iuX3v43puj+jdb7/u/3 + +P6Hr4f+A1UD/gBTAP4AYAD+AJcA/gCnAP4ApwD+AKcA/gCnAP4ApwD+AKcA/gCnAP4ApwD+AKcA/gCn + AP4ApwD+AKcA/gClAP4AgAD+AFQA/gBTAP4nbif+zd7N/t/r9P5xteH+ec/+/nrQ/v560P7+etD+/nrQ + /v560P7+etD+/nrQ/v560P7+etD+/mq76/40caf+JlmP7AkWI2MAAAArAAAAFAAAAAYAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAAAAABQYV + Hx0ojc/UOKHl/mLD/P9nyP//Z8j//2fH/v5nx/7/Y8T8/06y7/97v+v+7vb3/3+sf/8HXQf/AFgA/wBm + AP4AnwD/AK4A/wCuAP8ArgD+AK4A/wCuAP8ArgD/AK4A/wCuAP4ArgD/AK4A/wCuAP8ArgD+AK4A/wCu + AP8ArAD/AIgA/gBZAP8AWAD/JnEm/8ncyf/r+P7+mNv//4PU//+D1P//g9T+/oPU//+D1P//g9T//4PU + //+D1P7+g9T//4LU/v9xver/Lmee/iRXitsECQ82AAAAEQAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQQFDBlYgnQrl979Wrr0/3HM + /v9xzP//ccz//3HM/v5xzP//c83//6Hd/v/u9vf+f65//wpkCv8AXQD/AGkA/wClAP4AtAD/ALQA/wC0 + AP8AtAD+ALQA/wC0AP8AtAD/ALQA/wC0AP4AtAD/ALQA/wC0AP8AtAD+ALQA/wC0AP8AtAD/ALIA/gCJ + AP8AYAD/AF0A/yZ2Jv/N4M3+5/b+/6Hg//+L2f//i9j+/ovZ//+L2f//i9n//4vZ//+L2P7+i9n//4TQ + +P9Rlcb/KmSc/R9KdqgDBwsiAAAACgAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFCR8uLiiN0NlApub+d879/3rQ//960P//etD//3rQ + /v580f//qOD//+73+P+Htof+B2YH/wBhAP8AbwD/AKgA/wC7AP4AuwD/ALsA/wC7AP8AuwD+ALsA/wC7 + AP8AuwD/ALsA/wC7AP4AuwD/ALsA/wC7AP8AuwD+ALsA/wC7AP8AuwD/ALsA/gC4AP8AjgD/AGUA/wBh + AP8neif+0ePR/+j3/f+o4///lNz+/pTc//+U3P//lNz//5Tc//+U3P7+idH2/06Rwv8pZZ34Hkx3pQQK + EB8AAAALAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAIHWeXhi2Y3v5txfb+hNX+/oTV/v6E1f7+hNX+/oTU/v6t4/7+8fn5/o27 + jf4DaAP+AGYA/gByAP4ArgD+AMEA/gDBAP4AwQD+AMEA/gDBAP4AwQD+AMEA/gDBAP4AwQD+AMEA/gDB + AP4AwQD+AMEA/gDBAP4AwQD+AMEA/gDBAP4AwQD+AMEA/gDBAP4AvgD+AJQA/gBnAP4AZgD+KX4p/tLk + 0v7t+f7+quX+/pzh/v6c4f7+nOH+/pzh/v6P1PX+R4q9/ihoofkaRGqRAgYJGgAAAAkAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEMLEE2KpTa502u6f+O2f7+jtn//47Z//+O2f//jtn//7zp/v7z+fj/gbaB/wNtA/8AawD+AHoA/wC4 + AP8AyAD/AMgA/wDIAP4AyAD/AMgA/wDIAP8AyAD+AMgA/wDIAP8AyAD/AMgA/wDIAP4AyAD/AMgA/wDI + AP8AyAD+AMgA/wDIAP8AyAD/AMgA/gDIAP8AyAD/AMYA/wCeAP8AbAD+AGsA/yOAI//K4Mr/8/v+/rLo + //+l5P//peT//47P8P89gbf+J2mj8RIxTG8AAAAUAAAACAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAid7CFLJfe/la0 + 6/+L1vv+l97//5fe//+Z3///xez///T6+P5/t3//CXUJ/wBvAP8AfgD+AL0A/wDOAP8AzgD/AM4A/wDO + AP4AzgD/AM4A/wDOAP8AzgD+AM4A/wDOAP8AzgD/AM4A/wDOAP4AzgD/AM4A/wDOAP8AzgD+AM4A/wDO + AP8AzgD/AM4A/gDOAP8AzgD/AM4A/wDLAP8AogD+AHIA/wBwAP8nhif/yuHK/vD6//+87P7/isnq/z2D + uf8naqPrEC1FYAACAxgAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQOVQuI365ryuW3fE/pOP+csXy/5nd + /P/K7///9fv5/4G7gf4Jegn/AHQA/wCDAP8AwgD+ANQA/wDUAP8A1AD/ANQA/wDUAP4A1AD/ANQA/wDU + AP8A1AD+ANQA/wDUAP8A1AD/ANQA/wDUAP4A1AD/ANQA/wDUAP8A1AD+ANQA/wDUAP8A1AD/ANQA/gDU + AP8A1AD/ANQA/wDUAP8A0gD+AKgA/wB7AP8AdAD/I4gj/tLn0v/m8/n/YZvI/iRnneMOJzxmAAEBIwAA + AA4AAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgoOCBtfi08ojdDJL5jd+qDT8v/0+vj/jcSN/wN6 + A/4AeQD/AIcA/wDGAP8A2wD+ANsA/wDbAP8A2wD/ANsA/wDbAP4A2wD/ANsA/wDbAP8A2wD+ANsA/wDb + AP8A2wD/ANsA/wDbAP4A2wD/ANsA/wDbAP8A2wD+ANsA/wDbAP8A2wD/ANsA/gDbAP8A2wD/ANsA/wDb + AP8A2wD+ANoA/wCzAP8AfgD/AHkA/imPKf/R59H/2eXt9kNUYooAAAA/AAAAJwAAABIAAAAFAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIFEhsPoMXdvPH49/6Hw4f+A38D/gB9AP4AgAD+AKkA/gC7 + AP4AuwD+ALsA/gC7AP4AuwD+AMQA/gDhAP4A4QD+AOEA/gDhAP4A4QD+AOEA/gDhAP4A4QD+AOEA/gDh + AP4A4QD+AOEA/gDhAP4A4QD+AOEA/gDhAP4A4QD+AOEA/gDZAP4AvgD+ALsA/gC7AP4AuwD+ALsA/gC7 + AP4AmgD+AH0A/gB9AP4nkif+zebN/urq6uQ2NjZgAAAALwAAABgAAAAIAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAFzc3NW/f399sbjxv8KiAr/AIIA/wCCAP4AgwD/AIQA/wCEAP8AhAD+AIQA/wCE + AP8AhAD/AIUA/wDIAP4A6AD/AOgA/wDoAP8A6AD+AOgA/wDoAP8A6AD/AOgA/wDoAP4A6AD/AOgA/wDo + AP8A6AD+AOgA/wDoAP8A6AD/AOgA/gCmAP8AhAD/AIQA/wCEAP8AhAD+AIQA/wCEAP8AhAD/AIIA/gCC + AP8AgwD/Np02//L48v7s7OziJiYmOgAAABcAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAB+fn5x/////dHp0f8tnC3/IJUg/yCVIP4glSD/IJUg/yCVIP8glSD+IJUg/xyUHP8FiQX/AIcA/wDD + AP4A7wD/AO8A/wDvAP8A7gD+AO8A/wDvAP8A7wD/AO8A/wDuAP4A7wD/AO8A/wDvAP8A7gD+AO8A/wDv + AP8A7wD/AO4A/gCkAP8AhwD/CowK/yCVIP8glSD+IJUg/yCVIP8glSD/IJUg/iCVIP8glSD/Vq9W//f7 + 9//9/f33UVFROQAAAA8AAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnJycX0dHRg9fY + 15q5yrmcr8SvnK7ErpyvxK+dm76ys4DAx++Bwsr+mc7O/7jeu/8hmyH/AIwA/wDIAP4A9QD/APUA/wD1 + AP8A9QD+APUA/wD1AP8A9QD/APUA/wD1AP4A9QD/APUA/wD1AP8A9QD+APUA/wD1AP8A9QD/APUA/gCp + AP8AjAD/RqtG/9Ts1/+y3dD+g73B/4G4u/Kat6i0qr+qoK7Drp2vxK+dxM7EndfX15uPj49oBAQEDwAA + AAYAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAADAAAAAwAA + AAQAAAAEAgkOBxJBXz4pk9i5ZrTn/NXs3f4noSf+AJAA/gDOAP4A+wD+APsA/gD7AP4A+wD+APsA/gD7 + AP4A+wD+APsA/gD7AP4A+wD+APsA/gD7AP4A+wD+APsA/gD7AP4A+wD+APsA/gCuAP4AkAD+U7RT/ubz + +v5Ln9X+KYXH8xdKbncBBQgXAAAACgAAAAUAAAAEAAAABAAAAAMAAAADAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACYYSbctru3fgnpif/AJUA/wXSBf4I/wj/CP8I/wj/CP8I/gj+CP8I/wj/CP8I/wj/CP8I/wj+ + CP4I/wj/CP8I/wj/CP8I/gj+CP8I/wj/CP8I/wj/CP4I/gKzAv8AlQD/U7hT/9Pn9f8ohcXpDi5FXAAA + ABUAAAAHAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABXV1dTt3x + 3fQnqif/AJoA/w/UD/4b/xv/G/8b/xv/G/8b/hv+G/8b/xv/G/8b/xv/G/8b/xv+G/4b/xv/G/8b/xv/ + G/8b/hv+G/8b/xv/G/8b/xv/G/4b/ge2B/8AmgD/U7tT/9fk7e8MK0BhAAABIQAAAAwAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABXV1dTt3x3fQnrSf/AJ4A/xrW + Gv4u/y7/Lv8u/y7/Lv8u/i7+Lv8u/y7/Lv8u/y7/Lv8u/y7+Lv4u/y7/Lv8u/y7/Lv8u/i7+Lv8u/y7/ + Lv8u/y7/Lv4u/gy5DP8AngD/U75T/+Li4tkAAAA4AAAAHAAAAAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABXV1dTt3y3fQnsSf/AKMA/yXYJf5A/0D/QP9A/0D/ + QP9A/kD+QP9A/0D/QP9A/0D/QP9A/0D+QP5A/0D/QP9A/0D/QP9A/kD+QP9A/0D/QP9A/0D/QP5A/hK9 + Ev8AowD/U8FT/+Li4tkAAAA4AAAAGwAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAXV1dTt3y3fMntSf+AKgA/jDaMP5T/lP+U/5T/lP+U/5T/lP+U/5T/lP+ + U/5T/lP+U/5T/lP+U/5T/lP+U/5T/lP+U/5T/lP+U/5T/lP+U/5T/lP+U/5T/hfAF/4AqAD+U8RT/uHh + 4dkAAAA4AAAAGwAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABXV1dTt3z3fQnuSf/AK0A/zvcO/5m/2b/Zv9m/2b/Zv9m/mb+Zv9m/2b/Zv9m/2b/Zv9m/2b+ + Zv5m/2b/Zv9m/2b/Zv9m/mb+Zv9m/2b/Zv9m/2b/Zv5m/h3EHf8ArQD/U8hT/+Li4tkAAAA4AAAAGwAA + AAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABXV1dTt30 + 3fQnvSf/ALIA/0beRv55/3n/ef95/3n/ef95/nn+ef95/3n/ef95/3n/ef95/3n+ef55/3n/ef95/3n/ + ef95/nn+ef95/3n/ef95/3n/ef55/iHHIf8AsgD/U8tT/+Li4tkAAAA4AAAAGwAAAAgAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABXV1dTt303fQnwSf/ALYA/1Dg + UP6L/4v/i/+L/4v/i/+L/ov+i/+L/4v/i/+L/4v/i/+L/4v+i/6L/4v/i/+L/4v/i/+L/ov+i/+L/4v/ + i/+L/4v/i/6L/ibKJv8AtgD/U85T/+Li4tkAAAA4AAAAGwAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXV1dTt313fMnxSf+ALsA/lviW/6d/p3+nf6d/p3+ + nf6d/p3+nf6d/p3+nf6d/p3+nf6d/p3+nf6d/p3+nf6d/p3+nf6d/p3+nf6d/p3+nf6d/p3+nf6d/izO + LP4AuwD+U9FT/uHh4dkAAAA4AAAAGwAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABXV1dTt313fQnyif/AMAA/2bkZv6x/7H/sf+x/7H/sf+x/rH+sf+x/7H/ + sf+x/7H/sf+x/7H+sf6x/7H/sf+x/7H/sf+x/rH+sf+x/7H/sf+x/7H/sf6x/jHRMf8AwAD/U9RT/+Li + 4tkAAAA4AAAAGwAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABXV1dTt323fQnzSf/AMQA/3Hmcf7D/8P/w//D/8P/w//D/sP+w//D/8P/w//D/8P/w//D/8P+ + w/7D/8P/w//D/8P/w//D/sP+w//D/8P/w//D/8P/w/7D/jfVN/8AxAD/U9dT/+Li4tkAAAA4AAAAGwAA + AAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABXV1dTt33 + 3fQn0Sf/AMkA/3vofP7W/9b/1v/W/9b/1v/W/tb+1v/W/9b/1v/W/9b/1v/W/9b+1v7W/9b/1v/W/9b/ + 1v/W/tb+1v/W/9b/1v/W/9b/1v7W/jzYPP8AyQD/U9tT/+Li4tkAAAA4AAAAGwAAAAgAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABXV1dTt333vQn1Sv/AM0E/4Lp + hP7h/eH/4f3h/+H94f/h/eH+4f3h/+H94f/h/eH/4f3h/+H94f7h/eH/4f3h/+H94f/h/eH+4f3h/+H9 + 4f/h/eH/4f3h/j/aQv8AzQT/U91W/+Li4tkAAAA4AAAAGwAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXV1dTt334PMn1jf+AM4S/iPVM/482kv+PNpL/jza + S/482kv+PNpL/jzaS/482kv+PNpL/jzaS/482kv+PNpL/jzaS/482kv+PNpL/jzaS/482kv+PNpL/hHS + Iv4AzhH+U95f/uHh4dkAAAA4AAAAGwAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABXV1dTuH45PMr2Ef/ANAh/wDQIf4A0CH/ANAh/wDQIf8A0CH+ANAh/wDQ + If8A0CH/ANAh/wDQIf4A0CH/ANAh/wDQIf8A0CH+ANAh/wDQIf8A0CH/ANAh/gDQIf8A0CH/YeJ1/+Li + 4tkAAAA2AAAAGgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAXV1dTPn9+vOi7rL/Y+N+/2Pjfv5j437/Y+N+/2Pjfv9j437+Y+N+/2Pjfv9j437/Y+N+/2Pj + fv5j437/Y+N+/2Pjfv9j437+Y+N+/2Pjfv9j437/Y+N+/mPjfv9s5IX/zPbU/+Pj49cAAAAuAAAAFgAA + AAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzMzMF/7+ + /kz///9P////T/7+/k////9P////T////0/+/v5P////T////0////9P////T/7+/k////9P////T/// + /0/+/v5P////T////0////9P/v7+T////0////9P////T/f390Kvr68Mr6+vBq+vrwEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + //4B/////wAAAP////wAf////wAAAP////gAH////wAAAP////AAB////wAAAP///+AAA////wAAAP// + /8AAAP///wAAAP///4AAAD///wAAAP///gAAAA///wAAAP///AAAAAf//wAAAP//+AAAAAH//wAAAP// + 8AAAAAB//wAAAP//4AAAAAAf/wAAAP//wAAAAAAf/wAAAP//gAAAAAAP/wAAAP//AAAAAAAP/wAAAP/+ + AAAAAAAP/wAAAP/8AAAAAAAP/wAAAP/8AAAAAAAP/wAAAP/8AAAAAAAP/wAAAP/8AAAAAAAP/wAAAP/8 + AAAAAAAP/wAAAP/8AAAAAAAP/wAAAP/8AAAAAAAP/wAAAP/8AAAAAAAP/wAAAP/8AAAAAAAH/wAAAP/8 + AAAAAAAB/wAAAP/8AAAAAAAA/wAAAP/8AAAAAAAAPwAAAP/8AAAAAAAADwAAAP/4AAAAAAAAAwAAAP/w + AAAAAAAAAwAAAP/AAAAAAAAAAwAAAP+AAAAAAAAAAwAAAP8AAAAAAAAAAwAAAP4AAAAAAAAABwAAAPwA + AAAAAAAA/wAAAPgAAAAAAAAAfwAAAPgAAAAAAAAAPwAAAPAAAAAAAAAAHwAAAPgAAAAAAAAAHwAAAPgA + AAAAAAAAHwAAAP5gAAAAAAAAHwAAAP/AAAAAAAAAHwAAAP/AAAAAAAAAPwAAAP/AAAAAAAAAfwAAAP+A + AAAAAAAA/wAAAP/AAAAAAAAB/wAAAP/AAAAAAAAD/wAAAP/gAAAAAAAD/wAAAP/wAAAAAAAD/wAAAP/w + AAAAAAAD/wAAAP/4AAAAAAAD/wAAAP/4AAAAAAAD/wAAAP/8AAAAAAAP/wAAAP///AAAAAP//wAAAP// + /AAAAAf//wAAAP///AAAAA///wAAAP///AAAAA///wAAAP///gAAAA///wAAAP///AAAAA///wAAAP// + /AAAAA///wAAAP///AAAAA///wAAAP///gAAAA///wAAAP///AAAAA///wAAAP///AAAAA///wAAAP// + /AAAAA///wAAAP///AAAAA///wAAAP///gAAAA///wAAAP///AAAAA///wAAAP///gAAAA///wAAAP// + /gAAAA///wAAAP///////////wAAACgAAABgAAAAwAAAAAEAIAAAAAAAgJQAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABgAA + AAoAAAAOAAAADwAAAA4AAAAKAAAABgAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAHAAAADgAAABUAAAAdAAAAHwAAABwAAAAWAAAADwAAAAoAAAAEAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAAAQAAAAGgAAACUAAAAvAAAAMQAA + AC8AAAAnAAAAHgAAABUAAAANAAAACAAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAACQAA + ABECBAcnFi1KgSZOgO4fQGi3DhwucQMGC0wAAAA8AAAAMwAAACkAAAAeAAAAFgAAAA4AAAAIAAAABAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAMAAAAJAAAAEgQJDyMXMU+QJU+C6ydQhP8mT4P+JUt76xkzVbEMFydsAQMFRgAA + ADsAAAAvAAAAJQAAAB0AAAATAAAADAAAAAcAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABAAAAAkAAAATBAkPJBk3Wo8mU4f1JlOH/j9y + qP81Z57+Jk+D/iZOgf0iRXLgGDBQoQQJD1YAAABAAAAANwAAAC4AAAAiAAAAGQAAABEAAAAKAAAABgAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAFAAAACwAA + ABULGSg+IEl1riZWi/gsXJH/UIe+/3m99/9nt/r/UZXU/zZqov8qU4f/J01//yVKe/IUKEOQBg0WXwEC + BEUAAAA3AAAALgAAACQAAAAZAAAAEQAAAAsAAAAGAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAQAAAAMAAAAFgkWJDYhTHm3JlmP+ylbkP9ak8r+fr71/pfW//91xP7+aLr+/mCv + 8/9Jicb+MmKY/ihPgf8lS3z5IEBr0xMlP5EECA5OAAAAPwAAADYAAAAqAAAAIQAAABgAAAAPAAAACQAA + AAUAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABQAAAAsAAAAXCxsrQiFNe7smW5L8LWKZ/leR + x/+Gxvv+qd7+/sn3//+e4v7+iNP+/my///9kuPz+Wqnr/kiJxf8pUIP+Jkx+/iRIefIdOF/IDRosdQEC + BEgAAAA7AAAAMgAAACkAAAAdAAAAFQAAAA4AAAAHAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAHAAAADgAA + ABgOIzhZJFeKzihelv81bKP/ZqTa/4rL/v+x5P//1vz//9T///+l6P//o+j//53k//9/z///bcL//2W8 + //9bre7/Qn+5/y9dkv8mS33/JUl7+yA/acwMFydzAwUKTgAAAD0AAAAyAAAAKQAAAB8AAAAVAAAADgAA + AAgAAAAEAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAYAAAAPAAAAGg0hNVcmXZPcJ2CZ/jRupv9pquD+i839/q/l///R+v7+0/v+/tL+ + //+i5/7+oOb+/p7l//+a5P7+j9z+/n7Q//9qwf7+Ybr8/lSj4/87da7+K1WI/iVJe/4jRHLpGC5PsQwW + Jm4AAABCAAAAOgAAADEAAAAlAAAAHAAAABQAAAAMAAAABwAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAABwAAAA4CBgkeEi9JYyRbjtcoY5z/NnOr/2is + 4v+L0P//sej//8f2///M+P//zvn//9H9//+e5v//nOX//5vk//+Z5P//l+P//5Th//+J2f//dsz//2S+ + //9dtff/UJ3b/zZrov8mSXv/JUd5/CJAbeUWK0egBw0XWQAAAEEAAAA3AAAALQAAACMAAAAZAAAAEQAA + AAsAAAAGAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAJAAAAEQIG + CR8XPV9/J2We8Chmn/9Cg7r+dLzx/o3T//+17P7+wvT+/sP1///G9f7+x/b+/s/9//+a5P7+meP+/pfj + //+V4v7+k+H+/pHg//+O3/7+jN/+/oXZ//9wyf7+ZcH+/l+9/v5OnNr/Nmyi/ilPgv4mR3j/I0Fv5hYo + RZoGCxJcAAECQwAAADkAAAAtAAAAJAAAABsAAAARAAAACwAAAAYAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAAAgAAAATBQ8YKBY7XHwnZ6HwKWmj/kKHvv90vvH+j9X+/q3p//+78f7+vfL+/r/z + ///B9P7+wvT+/s78//+X4/7+leL+/pTh//+R4P7+j9/+/o3f//+L3v7+id3+/ofc//+E2/7+etP+/m7K + /v5hwf//WLPy/kiSzf4zZJn/Jkh6/iVFdv4fOGDMEiA3jwYLElcAAAA+AAAANQAAACwAAAAgAAAAFwAA + ABAAAAAJAAAABQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACQAAABEECxInGkhviCZoou8oa6b+RIvC/nK/ + 8/+N1v7+qun+/rPu//+27/7+t/D+/rrx//+88f7+vfL+/s38//+U4f7+kuH+/pDg//+O3/7+jN7+/ore + //+I3f7+htz+/oTb//+C2v7+gNr+/n3Y/v500v//Z8f+/l7A/v5Vruz/Q4jC/ixWif4lRXb+JEJw8h43 + Xc0OGSpxAAAARQAAAD0AAAAyAAAAKAAAAB4AAAAUAAAADQAAAAgAAAAEAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAALAAAAFQYQ + GTAjYZayKW6q+itxrP9Tn9X/fcz8/4/Z//+q6v//rOv//67s//+w7f//su7//7Tv//+27///uPD//8z7 + //+Q4P//jt///43f//+K3v//iN3//4fd//+E2///gtr//4Ha//9+2f//fNj//3vX//941///dtb//2/Q + //9jxv//XcH//1m7+v8+fbX/LliL/ydHeP8lQ3P7HjZdxQwWJngDBgtNAAAAPQAAADQAAAAoAAAAHgAA + ABUAAAAMAAAABgAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABQAAAAsAAAAWCBglPR9Yh6Upca3/MHiz/lCd1P97zf3+j9v+/qDm//+l6P7+pun+/qjq + //+r6/7+rOv+/q7s//+x7f7+su7+/sr7//+N3/7+i97+/ond//+H3P7+hdv+/oPb//+B2v7+f9n+/n3Y + //972P7+edb+/nfW/v511f//c9T+/nHT/v5u0v//Z8z+/mHH/v5av/3/T6nl/j19tP4qUIL/JUR0/iRB + b+4ZLk6uCxMhawECBEYAAAA5AAAALwAAACUAAAAYAAAADgAAAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAFAAAACwAAABUGEx48IV+RuShyr/gueLX/VaXb/nfL + +/+O3P7+muP+/p3l//+g5v7+oef+/qPo//+m6f7+p+n+/qnq//+s6/7+rez+/sn6//+K3f7+iN3+/obc + //+E2/7+gtr+/oDa//9+2P7+fNj+/nrX//941v7+dtX+/nTV/v5y1P//cNP+/m7S/v5s0v//atD+/mfP + /v5iyv//XMT+/la7+P5Lotz/N3Cl/idIef4lQ3L7ITxn4xgsTKgDBgtPAAAAQAAAADUAAAAmAAAAGAAA + AAwAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAYAAAAOAQQHGwgY + JEYmcKvTKXWz/zJ/u/9kuOz/e9H//4rc//+U4f//luL//5fj//+a5P//nOX//53m//+g5v//oef//6Po + //+m6f//p+n//8f6//+G3P//hNv//4Lb//+A2f//ftn//33Y//961///eNb//3bW//901f//ctT//3DT + //9u0v//bNL//2rR//9o0P//Zs///2XO//9izv//YM3//13J//9ZxP//V8L//0yn4f80aZz/KU1+/yZE + dP8jQG3oFilFnAgOGFsAAAAzAAAAIgAAABIAAAAGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABgAAAA4BBAccDy9IVyRspNIpebf/OInE/l606P560v//hdr+/oze//+P3/7+kOD+/pLh + //+V4v7+luL+/pjj//+b5P7+nOX+/p7m//+g5/7+ouf+/sb5//+D2/7+gdr+/n/Z//992P7+e9f+/nnX + //931v7+ddX+/nPU//9x0/7+b9L+/m3S/v5r0f//adD+/mfP/v5lz///Y83+/mHN/v5fzP//Xcv+/lvK + /v5Zyf//V8b+/lbE/v5TvPf/RJXN/jRrn/4nR3f/JUNy+SA5Ys0AAAA7AAAAKAAAABYAAAAHAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAGAAAADgAAABkVQ2VhJG+n1yh6ufw3icb/Y7zv/nXQ + /f6B2f//hdv+/ofd//+K3f7+i97+/o3f//+Q4P7+keD+/pPh//+W4v7+l+P+/pnk//+b5P7+neX+/sX4 + //+A2f7+ftj+/nzY//961/7+eNb+/nbV//901P7+ctT+/nDT//9u0v7+bNH+/mrR/v5o0P//Zs/+/mTO + /v5izf//YMz+/l7M/v5cy///Wsr+/ljJ/v5Wyf//VMj+/lLH/v5Rxf//U8P9/k+28f5AjsX/Kk+B/iVD + c/4AAAA/AAAAKwAAABgAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAANBAwSIhdI + bWcpfr74Kn+//zyUz/9qyPr/dNL//3rW//9+2f//gNn//4Ha//+D2///hdz//4fd//+K3f//i97//43f + //+P4P//keH//5Ph//+V4v//l+P//8P4//982P//etf//3jX//921f//dNX//3LU//9w0///btL//2zS + //9q0P//aND//2bP//9kzv//Ys3//2DN//9ezP//XMv//1rK//9Yyf//Vsj//1TI//9Sx///UMb//07F + //9MxP//S8T//0zD//9Ks+7/MGOX/yZEdP8AAAA/AAAALAAAABgAAAAIAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAcEDRQeG1N+fSh8uucsg8L/QJrW/mLB9v5v0P//dNT+/nbV/v551///etf+/nzY + //9/2f7+gNn+/oLa//+E2/7+htz+/ojd//+K3v7+jN7+/o7f//+Q4P7+kuH+/sL3//951/7+d9b+/nXV + //9z1P7+cdP+/m/S//9t0v7+a9H+/mnQ//9nz/7+Zc7+/mPN/v5hzf//X8z+/l3L/v5byv//Wcn+/lfJ + /v5VyP//U8f+/lHG/v5Pxv//TcT+/kvE/v5Jw///R8L+/kXB/v5Ase3/LWOW/iVDc/4AAAA/AAAALAAA + ABgAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAoeYJF4KYDA7SmBw/5Cn9v/YcP5/mnN + /v5t0v//b9L+/nHT/v501P//ddX+/nfW//961/7+e9f+/n3Y//9/2f7+gdr+/oPb//+F2/7+h9z+/ond + //+L3v7+jd7+/sH3//921f7+dNT+/nLU//9w0/7+btL+/mzR//9q0P7+aND+/mbP//9kzv7+Ys3+/mDN + /v5ezP//XMv+/lrK/v5Yyf//Vsj+/lTI/v5Sx///UMb+/k7F/v5MxP//SsP+/kjD/v5Gwv//RMH+/kLA + /v49sO3/LGOX/iVEdP4AAAA/AAAALAAAABgAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxxd + i1Yqhsj/M4zL/0in4v9hyf//Y8z//2XP//9n0P//adD//2vR//9u0v//b9P//3HT//9z1P//ddX//3fW + //951///e9f//33Y//9/2f//gdr//4Pb//+F2///h9z//7/2//9y1P//cNP//27T//9s0f//atH//2jQ + //9mz///ZM7//2LO//9gzP//Xsz//1zL//9ayv//WMn//1bI//9UyP//Usf//1DG//9Oxf//TMT//0rE + //9Iw///RsL//0TB//9CwP//QL///z6///85r+7/K2OY/yZFdf8AAAA/AAAALAAAABgAAAAIAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABB5gkGcqh8n/XK3e/mnK/P5cyv//Xsz+/mDM/v5izf//ZM7+/mbP + /v5o0P//atD+/mzR//9u0v7+cNP+/nLU//901f7+dtX+/njW//961/7+fNj+/n7Z//+A2f7+hdz+/sD3 + //9v0v7+bdH+/mvR//9p0P7+Z8/+/mXO//9jzv7+Ycz+/l/M//9cy/7+Wsr+/lnJ/v5Xyf//Vcj+/lPH + /v5Rxv//TsX+/kzF/v5LxP//ScP+/kfC/v5Fwv//Q8D+/kDA/v4/v///PL7+/ju9/v43ru7/KmSZ/iVF + dv4AAAA/AAAALAAAABgAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABB5gkGcqiMv/cLzk/m7S + /v5Xyf//Wcn+/lvL/v5dy///X8z+/mHN/v5jzv//Zc7+/mfP//9p0P7+a9H+/m3S//9v0v7+cdP+/nPU + //911f7+d9X+/nnX//971/7+h93+/sH3//921v7+adD+/mjQ//9lzv7+ZM7+/mLN//9gzP7+Xsv+/lzL + //9Zyv7+V8n+/lXI/v5UyP//Usb+/lDG/v5Nxf//S8T+/knD/v5Iw///RsL+/kTB/v5CwP//P7/+/j2/ + /v48vv//Ob3+/ji8/v40re7/KWSa/iVGd/4AAAA/AAAALAAAABgAAAAIAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABB5hkWcqis3/fsTl/3DU//9Sx///U8f//1XI//9Xyf//Wcr//1vK//9dzP//X8z//2HN + //9jzv//Zc///2fP//9p0P//a9H//23S//9v0///cdP//3LU//921v//kuH9/8Dz+v+A1vn/X8T1/13C + 9P9Xuu7/Vbjs/1Gz6P9Lqd//RJ3U/z6SyP85hr7/M3uy/zByqv8nXZT/J1yS/ylimf88mNH/RLbx/0bA + /f9Ewf//QsD//0DA//89v///O77//zm9//84vP//Nrv//zS7//8wrO7/KGWc/yZIev8AAAA/AAAALAAA + ABgAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABB5ikmcqi87/fsTm/mzS/v5Mxf//TsX+/lDG + /v5Sx///VMj+/lbI/v5Yyf//Wsr+/lzL//9ezP7+YMz+/mLN//9kzv7+Zs/+/mfQ//9q0P7+aMv6/mC/ + 7/9ZseH+Z63V/mqnzP9Smcj+OIfA/jaDvP8uda/+LXGr/ihpov8nZp/+J2Sd/ihjnP8nYpr+J2CZ/ixo + of4ua6T/L2+o/ihhl/4oXpT/LnSr/jeV0P4/u/n/Pr7+/jy+/v46vf//OLz+/je7/v40u///Mrr+/jC5 + /v4tqu7/KGad/iVJe/4AAAA/AAAALAAAABgAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABB5j + lGcqjND/fsXn/mjR/v5Hwv//ScP+/kvE/v5Nxf//T8X+/lHG/v5Tx///Vcj+/lfJ//9Zyf7+Wsr+/l3L + //9eyv3+Vr3x/kys4/8+lc7+N4jD/jOCvf8uebT+KnOu/ilwrP8obqr+KG2p/ihsp/8pbKf+L3Ww/jN8 + t/86iMP+Po7J/kOX0/9Hn9v+TKnl/k6t6v5Pr+z/T7Hu/kac1/4uaqH/JluR/ihflv4ud6//NqPh/jm8 + /f43vP//Nbv+/jO6/v4xuv//L7n+/i24/v4squ//J2ae/iVKfP4AAAA/AAAALAAAABgAAAAIAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABB5klWcqjdL/fsbo/2TP//9BwP//Q8H//0XB//9Hw///ScP//0rE + //9Mw/3/Sr33/0q58/9Gr+r/PqHc/zSOy/8qfbz/KXm4/yl4t/8qebf/LHq5/yl2tP8pdLH/KXOw/yl4 + t/8pdbL/KW+s/yhtqf88jcj/Uq/p/1/B+/9ixv//Ysb//2LG//9ixv//Ysb//2LG//9ixv//Ysb//2LG + //9fwfr/SpnR/zRxp/8oXJL/J1uQ/yt1rv8xo+T/MbX5/y+5//8uuP//Lbj//y24//8squ//KGif/yZM + fv8AAAA/AAAALAAAABgAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABB5llmcqjtP/fsbo/mDN + /v48vv//Pr7+/kC//v5CwP//RMH+/kXA/f46peP/MpLS/i6Jyf8pgMD+KX6+/il9vf8vhMP+No3M/j2W + 1f9Bndv+OI7N/it5t/8odbP+KX+//iqP1P8qi8/+KX6//ilyr/8oban+Lnaw/kOTzP9et+3+a8n9/m3L + //9syv7+bMr+/mzK/v5ty///bMr+/mzK/v5ty///bMr+/mS77/5Jj8P/MWmf/idZjv4oYZj/KoG+/iyh + 5P4tuP//LLf+/iy3/v4squ//KGig/iZNf/4AAABAAAAALQAAABkAAAAJAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABB5mlmcqj9T/fsfp/13M//83vP//Ob3//zu+//89vv//Pr7+/zak5P8qhsj/KoPF/y6H + yP85lNL/RaHf/1Cv7P9VtvL/WLv3/1zA/P9HpOH/LX+9/yl3tf8pg8X/KpPZ/yuW3P8rlNr/KpDV/yqK + zf8pern/KG6q/yhtqP80fLX/UJ7T/3HI+P930P//d9D//3fQ//930P//d9D//3fQ//930P//d9D//3fQ + //90y/r/aLjo/0qMvv8nWI3/J1iO/ydjm/8qicj/LK70/y24//8sq+//KGmh/ydPgf8AAABCAAAAMAAA + AB0AAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABB5ml2crkdb/fsfq/lfK/v4xuf//Mrr+/jW7 + /v41tfj/MJzf/iqJy/4xjs7/T63o/mXF/f9nx/7+Z8f+/mfH//9nx/7+YsH5/kmj3/8oern+KXu7/iqF + x/8qlt3+Kpbd/iuX3v8qldz+KpTa/iuS2P8qj9T+KYfJ/ih4t/8obqn+J2ql/i5xqv9gq9z+d8fz/oLU + /f6E1v//g9X+/oPV/v6E1v//g9X+/oPV/v6E1v//g9X+/oPV/v5zvun/SYW2/jBjl/4nVov/J2CX/iqL + yf4rn+H/KGqi/iZQg/4AAABGAAAANwAAACYAAAAWAAAADAAAAAYAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABB5n + mWcrktj/fsjr/lbJ/v4tuP//Lrj+/i+1+v4tm9//KorN/i+Nz/5Zte3/bsr+/m/L//9vy/7+b8v+/m/L + //9pxfr+R5/a/iyBwP8pfr3+KYrN/iqV3P8qlt3+Kpbd/iuX3v8qlt3+KpXc/iuU2v8qkdf+Ko/U/iqN + 0f8pgMH+KHSy/ihrp/8rbKf+QIS6/mSt2v6J1fr/jtr+/o7a/v6O2///jtr+/o7a/v6O2///jtr+/o7a + /v6O2///iNL3/m+y2/5Hfq7/KlqO/iZUif4oZ5//J12T/iZRhP4AAABMAAAAQAAAADMAAAAjAAAAGAAA + ABAAAAAJAAAABQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABB5ommcrk9n/fsns/1bJ//8tuP//LLL5/yub4P8qjdH/NZXV/1u2 + 7P92zv7/d8///3fP//93z///d8///3TM/f9BmdX/LYPD/yl/wP8qjdH/KpXc/yuX3v8rl97/K5fe/yuX + 3v8rl97/K5be/yuW3f8rlNr/K5HX/yqQ1f8qjdH/KYjL/yl+vv8obqr/KGmk/y9wqf9JjL7/fsPo/5fe + /v+Z4P//meD//5ng//+Z4P//meD//5ng//+Z4P//meD//5ng//+O0vP/b63T/z1woP8nVIn/J1OH/ydS + hv8OHTF1AAAASgAAAEAAAAAzAAAAKQAAAB8AAAAUAAAADgAAAAgAAAAEAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABB5pm2crldv/fsns/lbJ + /v4srvT/K5ne/iqO0/4+ndz/bMP0/oDT/v6A0///gNP+/oDT//9/0v7+c8f2/kOa1v8qgsP+No3K/j6e + 3P8vmt/+Kpbd/iuX3v8qlt3+Kpbd/iuX3v8qlt3+Kpbd/iuX3v8qldz+KpTa/iuS2P8qj9T+Ko3S/iqM + z/8ph8n+KHq5/ihvq/4oaaP/Kmqj/kuLu/6IyOn/n9/6/qbl/v6m5v//puX+/qbl/v6m5v//puX+/qbl + /v6m5v//puX+/qHg+/5spMn/QXGg/ipXi/4mUYT7IENuyg0bLXsDBwxOAAAAPQAAADQAAAAoAAAAHwAA + ABYAAAAOAAAACAAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAABh5pm2krltz/fsrt/lXB9v4rl93/KpDW/kGh3v53yvb/iNf+/ojX/v6I1///iNf+/ojX + //9zxfP+QpvW/iyGyP87lND+a8Ht/n3U+v9gvvD+PqXk/iyY3v8qlt3+Kpbd/iuX3v8qlt3+Kpbd/j6g + 4f9cr+X+Pp/f/iuU2v8qkdf+Ko/U/iqN0v8pi87+KYjL/i6HyP5Dkcn/Mnav/ihoof44dqv/YZ7I/pPO + 6/6x6///sOr+/rDq/v6x6///sOr+/rDq/v6x6///sOr+/rDq/v6v6f7/m9Ps/m+hxP47aZj/JlGF/iVO + f+4aN1mxDBgocQEDBUcAAAA6AAAAMQAAACcAAAAcAAAAEwAAAA0AAAAHAAAAAwAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAACh1nmGwrl97/U6/l/z+k4v8rk9n/Q6Ph/3zM + 9v+Q2///kNv//5Db//+Q2///kNv//4HP+P88l9X/KofK/zOOzv9wyvT/g9v+/4fc//+H3P7/fdT6/2G+ + 8P8umd//K5fe/yuX3v8rl97/SaXi/7ve9P/j8fr/ttvz/0Si4f8rlNr/K5HX/yqQ1f8qjdL/LpDS/1Gx + 6v9qyPr/Ybns/0SQxv8oZ6H/Kmig/zx5rP91rdH/reL1/7vw//+88P//u/D//7vw//+88P//u/D//7vw + //+88P//u/D//7js/P+bzeT/YI60/y5Zi/8mUIP8I0h25ho2Wa4HDhdVAAAAQQAAADkAAAAtAAAAIwAA + ABoAAAARAAAACgAAAAYAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAJAAAAExxj + k3Mrl97/Kpbd/iyX3f5Ys+r/ktr8/pnf/v6Z3///md/+/pnf/v6X3f7/dcXw/jaV1P8ri87+Q6Hb/nDL + 9/9/2f7+gdr+/oTb//+H3P7+id3+/oze//+C1vr+Wbjt/jmh4v9WrOT+zeb3/v/////+/v7+/v7+/tLp + +P9DouD+KpTa/iuS2P84nN3+Wrz0/mvL/v5tzP//b83+/nDO/v5ju+z/QYrA/i9wqP4oZZ7/PXeq/oC0 + 0/615fT/xvT+/sj1/v7I9v//yPX+/sj1/v7I9v//yPX+/sj1/v7I9v//yPX+/rLe7v5Yg6n/NmCQ/ihR + hP4kSnroFy5NnggRHWQAAABBAAAAOQAAAC8AAAAjAAAAGgAAABEAAAAJAAAABAAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAAAgAAAATBhUgKSBzqaArl97/MJrf/liz6v6Z3vz/oeP+/qHj/v6i4///oeP+/qHj + /v5zwu7/O5rY/iqM0P9Fpd/+a8r3/nrX//992P7+f9n+/oLa//+F2/7+h9z+/ore//+N3/7+jt7+/ojT + 9//N5vf+8vby/qvEq/+Bp4H+t823/vn7+f+83vT+TKbh/jig4/9avfb+aMn+/mrK/v5szP//bcz+/m/N + /v5yz///bsn5/lyv4f49g7n/Kmig/idjnP5Xjrj/kcDZ/sPt9v7T+///0vr+/tL6/v7T+///0vr+/tL6 + /v7T+///0vr+/tL6/v7L8/n/nMTW/l+Iq/4rVIb/Jk6A/CJFctgRIjiOBgwUVwAAAD8AAAA0AAAAKQAA + AB0AAAARAAAACQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEAAAACQAAABEEEBgnHGOSiCmS1+8vmt//ZLvs/5/g + /P+p5///qef//6nn//+p5///qef//3zI8f80ltj/Ko7T/0Km4v9szfr/ddX//3jX//971///fdj//4Da + //+D2///hdv//4jd//+L3v//neP//972///2+Pb/jbCN/xhfGP8BTgH/IWUh/7TLtP/6/P7/wuP3/23G + +v9lyP//Z8n//2nK//9ry///bMz//27N//9wzv//cs///3TQ//9txfT/Wanb/zR1rP8oZJ3/NG2i/1iM + tf+03en/2v7//9r+///a/v//2v7//9r+///a/v//2v7//9r+///a/v//2P3+/8nt8/+XvdD/RGyX/ydP + gf8lS3z0Hz1lyRIkPHoAAAA+AAAAMwAAACcAAAAYAAAADQAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAALAAAAFQYV + IDAlhMK0Kpbd/jSd4P59yvH/r+n+/rLr/v6y6///suv+/rLr/v6o5fz/bL7s/jKX2v4uldn/SK7o/mnN + /P9w0/7+c9T+/nbV//941v7+e9f+/n7Y//+A2f7+g9v+/obc//+g5P7+4/f+/vb49v96onr+BVIF/gBO + AP8ATQD+AE0A/glUCf+0y7T++Pr4/t7z//93zv7+Zsj+/mjJ/v5qyv//a8v+/m3M/v5wzv//cc7+/nPP + /v510f//d9H+/nXO+/5UoNH/N3iv/illnf4sZJv/YpS5/q7W5f7S9/r/2v7+/tr+/v7b////2v7+/tr+ + /v7b////2v7+/tr+/v7b////0vb5/pe90P46Yo//KE+A/iZMfv4gP2nDDhwvZQIEBjAAAAAaAAAADgAA + AAY/Pz8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABQAAAAsAAAAWCSAvPSF0qqUrl97/OZ/g/n3J8P667///uu/+/rrv/v667///uu/+/rPq + /f5pvez/MZjc/iyU2v5MtO3/Zs38/mzR//9u0v7+cdP+/nTV//921f7+edb+/nzY//9+2f7+gdr+/pXg + ///i9/7+8vby/o2wjf8FUgX+AE0A/gBOAP8ATQD+AE0A/gBOAP8hZSH+q8Sr/vn7+f/O7f7+fdD+/mbI + /v5oyv//asv+/mzM/v5uzf//b87+/nHP/v500P//ddH+/nfS/v550v7/bMDu/lKczf4yb6b/J2CZ/jhu + of53psX/tt7p/tj8/f7b////1fn7/sfs8v6+5O3/rdTi/qHI2f6WvdH/ibDI/oCowv5Odp7/KVGD/iZN + f/4mTH7/JEh55xMmQWAAAAAVAAAACwAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAFAAAACwAAABUHGSU9I3u1uSqV3Pg9ouL/j9Tz/7zv + /f/C8///wvP//8Lz///C8///t+z8/2i86/8wmt//Lprf/0iz7v9jzP7/Z8///2rR//9t0v//b9L//3LU + //901f//d9b//3rX//992P//kd///9r0///2+Pb/jbCN/xJbEv8ATgD/AE4A/wBPAP8AXgD/AE8A/wBO + AP8BTgH/IWUh/7TLtP/7/f//zu3//3jO//9oyf//acr//2vL//9tzP//b83//3HO//9z0P//dND//3bR + //940v//etP//3rS/P9puuf/SI3A/yxmnv8rYpn/Qnam/2ybvf9Uha7/UYGr/0p6pf9FdaH/PWya/zdl + lf8xXpD/K1eK/ydShv8nUYT/J1CD/ydPgf8mTX//JUt96BkyVFYAAAANAAAABwAAAAMAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAYAAAAOAQUIGw83 + Uk4ojtHTLJfe/kKl4v6q4/j/y/f+/sv3/v7L9///y/f+/sv3/v6w5/n/YLbp/iyY3v4xnuL/TLrz/l7L + /v5izf//ZM7+/mfP//9q0P7+bdL+/m/T//9y0/7+ddX+/njW//+V3/7+4PX+/vb49v96onr+BVIF/gBO + AP8ATgD+AFQA/gBwAP8AfQD+AGkA/gBRAP8ATQD+AE0A/glUCf+0y7T++Pr4/t7z/v55z///aMn+/mrK + /v5szP//bc3+/m/N/v5yz///c9D+/nXQ/v540v//edP+/nrT/v591f//ftb+/mm55P4rZZ3/J1+X/ide + lv4nXJP9JViM8CRViegiUIDbIk181R5DbModP2ayHD1klxs7YH0aOV1mGTRXTBgyUzkAAAALAAAACQAA + AAcAAAAEAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABwAAAA4BBQgcEDtWVyaGxdIsl97/U67l/qzj9/7T+v//0/r+/tP6/v7T+v//0/r+/rvs + +v5Srub/LZje/jGe4v5Lu/X/Wsn+/l3L/v5gzP//Ys3+/mXP//9o0P7+atD+/m3S//9w0/7+ctT+/onb + ///f9f7+8vby/o2wjf8FUgX+AE0A/gBOAP8AVQD+AHIA/gCBAP8AggD+AIAA/gBsAP8ATwD+AE0A/gBO + AP8hZSH+q8Sr/vj6+P7P7v//f9H+/mnK/v5ry///bMz+/m7N/v5wzv//cs/+/nTQ/v520f//d9L+/nnT + /v571P//cMPv/kmPwv4oYpv/K2mi/iljnP4nXZT7IU17xhIqRIMLGSlbCRYkSQIEBysAAAAYAAAADwAA + AAkAAAAGAAAABAAAAAMAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAHAAAADwAAABkWT3ViJofG1yqW3fxZsub/tej4/9j9 + /v/a/v//2v7//9r+///a/v//uer5/1qy5/8rl97/MJ3i/0e59f9WyP//WMn//1vL//9ezP//Yc3//2PO + //9mz///adD//2vS//9u0v//hdn//9by///2+Pb/jbCN/xJbEv8ATgD/AE4A/wBQAP8AdwD/AIYA/wCI + AP8AiAD/AIgA/wCGAP8AagD/AE8A/wBOAP8BTgH/IWUh/7TLtP/7/v//z+7//3nQ//9qy///a8v//23M + //9vzv//cc7//3PQ//910f//d9H//3nS//9uw/D/Qoi9/ypnoP8sbqj/Q57c/z+V0v8oX5f/JlqP8Rs/ + ZawAAABJAAAAPQAAAC8AAAAeAAAAEQAAAAkAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAcAAAARBA0UJRdT + e2gqldz3L5ne/l615/7U+/7/2v7+/tr+/v7b////2v7+/tL6/f6m4PX/Q6Xi/iqW3f40pOj/Sb/6/lDG + /v5UyP//Vsj+/ljJ/v5cy///Xsz+/mHN//9jzv7+Zs/+/mnQ//+J2/7+3PT+/vb49v96onr+BVIF/gBO + AP8ATgD+AFYA/gB7AP8AjAD+AIwA/gCNAP8AjAD+AIwA/gCNAP8AigD+AHEA/gBSAP8ATQD+AE0A/ghU + CP60y7T/+Pr4/t7z/v560P//asv+/mzL/v5uzf//cM7+/nLP/v500P//c878/me97P4wdKz/KGih/jF3 + sf5Rs/H/V8D+/lfA/v5DmNT/LGef/idelv4cQ2m0BAkPVwAAAD4AAAAuAAAAHwAAABIAAAAIAAAAAwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAABQAAAAwEDxYkG1+MgCmR1egzm9/+b7/q/sXy+v7b////1fv9/sPx+v6l3/T/jdHw/nLB + 6/5DpeL/Kpbd/jKi5v5Fvfr/TMT+/k7F/v5Sxv//VMf+/lbJ/v5ayv//XMv+/l/M//9hzf7+ZM7+/nzW + ///c9P7+8vby/o2wjf8FUgX+AE0A/gBOAP8AVwD+AHwA/gCQAP8AkQD+AJEA/gCSAP8AkQD+AJEA/gCS + AP8AkQD+AI4A/gB0AP8ATwD+AE0A/gBNAP4hZSH/q8Sr/vj6+P7Q7v//gdL+/mvL/v5tzP//b83+/nHO + /v5xzf3/W6/i/jZ9tf4pa6b/N4K8/lOw6/5dw///XcL+/l3C/v5bvvr/RpjS/ixnn/4nXJP3Gj5jsQQJ + D1cAAAA8AAAALQAAAB8AAAAQAAAACAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABwAAABEfbaGFKZPY7iuX3v91w+v/vO35/6Hc + 9P94xez/WLLm/0uq5P88oeH/MJrf/yuX3v8rl97/K5fe/y+e4/9Atvb/SsP//03F//9Qxv//Usf//1XI + //9Yyf//Wsr//13M//9gzf//eNT//9Hw///2+Pb/jbCN/xJbEv8ATgD/AE4A/wBQAP8AgQD/AJQA/wCW + AP8AlgD/AJYA/wCWAP8AlgD/AJYA/wCWAP8AlgD/AJYA/wCUAP8AcAD/AE8A/wBOAP8BTgH/IWUh/7TL + tP/7/v//0O7//3zR//9szP//bs3//3DO//9XrOD/Mnq0/yhsp/86hsD/W7ny/2PF/v9jxv//Y8b//2PG + //9jxv//YcH6/0ub1P8oX5f/J1yT9xxDabQAAABIAAAAPAAAAC4AAAAcAAAAEAAAAAgAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADBRIbGyF2 + rporl97/Kpbd/iuX3v89ouH+Kpbd/iqW3f4qlt38KpXb7CmR1t0micnRKJDT5iqW3f4umuD/Mp3j/iyY + 3/4rmN7/M6Pn/kG39f5Lw/3/UMb+/lLH/v5WyP//WMn+/lrK//9+1v7+2fP+/vb49v96onr+BVIF/gBO + AP8ATgD+AFgA/gCFAP8AmwD+AJsA/gCcAP8AmwD+AJsA/gCcAP8AmwD+AJsA/gCcAP8AmwD+AJsA/gCc + AP8AmQD+AHkA/gBUAP4ATgD/AE0A/ghUCP60y7T/+Pr4/t/0/v580f//aMb5/lCl2/4pcKz/LHOu/kWU + zf5pxvz/a8n+/mvJ/v5ryf//a8n+/mvJ/v5ryf//a8n+/mvJ/v5PndT/LWif/idelv4cQ2m0BAkPVwAA + AD4AAAAtAAAAHgAAABIAAAAHAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAFEhoKH26ieiqW3fMrl97/Kpbd/iuX3v8qldvqKZLXzyeMzq0VSm6BFEdpYxJB + YEcSQmFMJ4jJySqW3f5DrfH/Trj6/kGr7/4xnOL/Kpbd/i2Z4P45q+z/Rrv3/lDF/v5Tx///Vcj+/nDR + ///Y8/7+8vby/o2wjf8FUwX+AE4A/gBPAP8AWQD+AIUA/gCeAP8AoAD+AKAA/gCgAP8AoAD+AKAA/gCg + AP8AoAD+AKAA/gCgAP8AoAD+AKAA/gCgAP8AoAD+AJwA/gB8AP4AUAD/AE4A/gBOAP4hZiH/q8Wr/vj6 + +P7O7Pz/Za3c/i14tP4ud7P/TJ3U/mvE+P5xzP//cMv+/nDL/v5xzP//cMv+/nDL/v5xzP//cMv+/nDL + /v5tx/r/UZ3S/i9qof4nXJP3Gj5jsQQJD1YAAAA6AAAAKgAAABsAAAAMAAAABAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKIzQLKZLXjiqW3fsqlNrIKI7RmSN7 + tWkKJDY/CiM0MAkgLx0AAAAKAAAADAAAABMea56DKpbc+DGd4v9Yv/3/WsH//1nA/v9RuPj/Pqjr/y2Z + 3/8rl97/MJ3i/zus7P9Pw/3/bM///83v///2+fb/jbKN/xJeEv8AUQD/AFEA/wBVAP8AjAD/AKMA/wCl + AP8ApQD/AKUA/wClAP8ApQD/AKUA/wClAP8ApQD/AKUA/wClAP8ApQD/AKUA/wClAP8ApQD/AKUA/wCi + AP8AegD/AFMA/wBRAP8BUgH/IWgh/7TMtP/6/P7/vdXo/0KEuv9WqN3/csr6/3bP//92z///ds///3bP + //92z///ds///3bP//92z///ds///3bP//92z///c8r6/1+t3/8qY5v/J1yT9xxDarQAAABDAAAAMwAA + ACIAAAAQAAAABgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAIAAAAFAAAABQAAAAUAAAAEAAAAAwAAAAIAAAAEAAAACwcZJSwqlNvvLZnf/lC1 + 9P5ixf//YsX+/mLF/v5ixf//YsX+/lq/+v4+p+n/MJvh/iuX3v5asej/0u37/vb59v96p3r+BVkF/gBV + AP8AVgD+AGAA/gCRAP8AqgD+AKoA/gCqAP8AqgD+AKoA/gCqAP8AqgD+AKoA/gCqAP8AqgD+AKoA/gCq + AP8AqgD+AKoA/gCqAP8AqgD+AKoA/gCqAP4ApwD/AIQA/gBbAP4AVQD/AFUA/ghbCP60zbT/+Pv4/t3u + +f6N1///ftL+/n7S/v5+0v//ftL+/n7S/v5+0v//ftL+/n7S/v5+0v//ftL+/n7S/v5+0v//ftL+/n7S + /v5lseH/M2+l/ihelv4cQ2uuBAoPQwAAACMAAAARAAAABgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAAHBA8WFCByqJcrl97/P6fo/mPD+/5pyP//aMj+/mjI/v5pyP//aMj+/mjI/v5mxv3/V7n0/lix + 6v7N5vf/8vfy/o21jf8FXAX+AFgA/gBZAP8AZAD+AJIA/gCtAP8ArgD+AK4A/gCvAP8ArgD+AK4A/gCv + AP8ArgD+AK4A/gCvAP8ArgD+AK4A/gCvAP8ArgD+AK4A/gCvAP8ArgD+AK4A/gCuAP4ArwD/AKoA/gCI + AP4AWwD/AFgA/gBYAP4hbyH/q8ir/vj7+P7Y8f//ltv+/oPU/v6E1f//g9T+/oPU/v6E1f//g9T+/oPU + /v6E1f//g9T+/oPU/v6E1f//g9T+/oPU/v6B0vz/WqDQ/ixlnP4nXJLvESpDdAAAAB4AAAAOAAAABQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAALEDtXSSiO0dwxnOH/Wrv0/m/L/v5vy///b8v+/m/L + /v5vy///b8v+/m/L/v5vy///g9L+/s/r/P72+fb/jbaN/hJoEv8AXAD+AFwA/gBfAP8AmgD+ALEA/gCz + AP8AswD+ALMA/gCzAP8AswD+ALMA/gCzAP8AswD+ALMA/gCzAP8AswD+ALMA/gCzAP8AswD+ALMA/gCz + AP8AswD+ALMA/gCzAP4AswD/ALMA/gCwAP4AhgD/AF4A/gBcAP4BXQH/IXIh/rTPtP78/v//2fL+/pfc + /v6J2P//idj+/onY/v6J2P//idj+/onY/v6J2P//idj+/onY/v6J2P//idj+/onY/v54w+3/QIC0/ilj + m/4mW5HjECc/VgAAABUAAAAJAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAYHGSQiI324qyuX + 3v9Jrev/dc7+/3fP//93z///d8///3fP//93z///d8///3fP//+S2f//3vP///b59v96rHr/BWQF/wBg + AP8AYAD/AGwA/wCfAP8AuQD/ALkA/wC5AP8AuQD/ALkA/wC5AP8AuQD/ALkA/wC5AP8AuQD/ALkA/wC5 + AP8AuQD/ALkA/wC5AP8AuQD/ALkA/wC5AP8AuQD/ALkA/wC5AP8AuQD/ALkA/wC5AP8AtgD/AJEA/wBn + AP8AYAD/AGAA/wlmCf+00bT/+fv5/+f3//+d3///kdv//5Hb//+R2///kdv//5Hb//+R2///kdv//5Hb + //+R2///jtj9/3rC6/8ycaj/KGOc/SVaj9UNITQ3AAAAFAAAAAsAAAAEAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAAAoWUHZeKpTa7S+Z3/5zyvr/ftL+/n7S/v5+0v//ftL+/n7S/v5+0v//ftL+/pDY + /v7g9P//8vfy/o26jf4FZwX/AGMA/gBjAP8AbwD+AKAA/gC7AP8AvQD+AL0A/gC9AP8AvQD+AL0A/gC9 + AP8AvQD+AL0A/gC9AP8AvQD+AL0A/gC9AP8AvQD+AL0A/gC9AP8AvQD+AL0A/gC9AP8AvQD+AL0A/gC9 + AP4AvQD/AL0A/gC9AP4AvQD/ALkA/gCVAP4AZQD/AGMA/gBjAP4heCH/q8yr/vj7+P7e9P//p+P+/pfe + /v6X3v//l97+/pfe/v6X3v//l97+/pfe/v6U2/3/cbfg/jh5r/4nZZ76IFKAvg8nPUoAAAATAAAACgAA + AAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAA0ojdC+Kpbd/lOz7P6F1f//hdX+/oXV + /v6F1f//hdX+/oXV/v6F1f//ltv+/try/v72+fb/jbuN/hJxEv4AZgD/AGYA/gBpAP8ApgD+AL8A/gDC + AP8AwQD+AMEA/gDCAP8AwQD+AMEA/gDCAP8AwQD+AMEA/gDCAP8AwQD+AMEA/gDCAP8AwQD+AMEA/gDC + AP8AwQD+AMEA/gDCAP8AwQD+AMEA/gDBAP4AwgD/AMEA/gDBAP4AwgD/AMEA/gC+AP4AkgD/AGgA/gBm + AP4BZwH/IXoh/rTStP78/v//3/X+/qjk/v6d4f//nOH+/pzh/v6d4f//nOH+/pzh/v5tsdv/Nnmw/ihp + o/4iWIm/Cx0tPAACAxQAAAAJAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABR5o + mWgrl97/PqTk/37P+v+N2f//jdn//43Z//+N2f//jdn//43Z//+n4v//5Pb///b69v96snr/BW4F/wBq + AP8AawD/AHcA/wCsAP8AxwD/AMcA/wDIAP8AxwD/AMcA/wDIAP8AxwD/AMcA/wDIAP8AxwD/AMcA/wDI + AP8AxwD/AMcA/wDIAP8AxwD/AMcA/wDIAP8AxwD/AMcA/wDIAP8AxwD/AMcA/wDHAP8AyAD/AMcA/wDH + AP8AyAD/AMcA/wDHAP8AxAD/AJ4A/wBxAP8AagD/AGoA/wlvCf+01LT/+fv5/+v5//+u5///pOT//6Tk + //+k5P//m9z5/26w2v8obKf/J2mj9R5Pe6MAAAAbAAAAEAAAAAgAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAACiQ2ICWDwMMsmN7/Wrbs/o/Z/f6T3P//k9z+/pPc/v6T3P//k9z+/qvj + /v7s+f//8vjy/o2+jf4FcQX/AG0A/gBtAP4AegD/AK0A/gDJAP8AywD+AMsA/gDMAP8AywD+AMsA/gDM + AP8AywD+AMsA/gDMAP8AywD+AMsA/gDMAP8AywD+AMsA/gDMAP8AywD+AMsA/gDMAP8AywD+AMsA/gDM + AP8AywD+AMsA/gDLAP4AzAD/AMsA/gDLAP4AzAD/AMsA/gDLAP4AzAD/AMcA/gCiAP4AcAD/AG0A/gBt + AP4hgSH/q8+r/vj7+P7k9///t+r+/qrn/v6g3vj/YqXR/i91r/4naqTuGkhvkgQMEi4AAAAPAAAABwAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFUlsMyqW3Ngrl97/OJ/i/ly3 + 7P6W3f7/muD+/prg/v6a4P//seb+/un4/v72+vb/jcCN/hJ7Ev4AcQD/AHEA/gB0AP4AtAD/AM0A/gDQ + AP8A0AD+ANAA/gDQAP8A0AD+ANAA/gDQAP8A0AD+ANAA/gDQAP8A0AD+ANAA/gDQAP8A0AD+ANAA/gDQ + AP8A0AD+ANAA/gDQAP8A0AD+ANAA/gDQAP8A0AD+ANAA/gDQAP4A0AD/ANAA/gDQAP4A0AD/ANAA/gDQ + AP4A0AD/ANAA/gDMAP4AngD/AHMA/gBxAP4BcQH/IYQh/rTVtP79/v//5fj+/rTo/P5XnMv/L3ax/ihv + q/4bSG+HAwoQLAAAABQAAAAHAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAARZPdSciebO1Kpbc6CuX3v06oeL/a8Dw/5HY+v+96///8fv///b69v96t3r/BXgF/wB1 + AP8AdgD/AIIA/wC5AP8A1gD/ANYA/wDWAP8A1gD/ANYA/wDWAP8A1gD/ANYA/wDWAP8A1gD/ANYA/wDW + AP8A1gD/ANYA/wDWAP8A1gD/ANYA/wDWAP8A1gD/ANYA/wDWAP8A1gD/ANYA/wDWAP8A1gD/ANYA/wDW + AP8A1gD/ANYA/wDWAP8A1gD/ANYA/wDWAP8A1gD/ANYA/wDWAP8A0gD/ALEA/wCCAP8AdQD/AHUA/wl6 + Cf+017T/+fz5/9bl8f9ChLn9JWmg5hM2UnoAAAAwAAAAHwAAABAAAAAFAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFEhoOHGWUVyiP0rArlt35LJje/nrC + 7f7y+///8vjy/o3Djf4FewX/AHgA/gB4AP4AhQD/ALoA/gDYAP4A2gD/ANoA/gDaAP8A2gD+ANoA/gDa + AP8A2gD+ANoA/gDaAP8A2gD+ANoA/gDaAP8A2gD+ANoA/gDaAP8A2gD+ANoA/gDaAP8A2gD+ANoA/gDa + AP8A2gD+ANoA/gDaAP8A2gD+ANoA/gDaAP4A2gD/ANoA/gDaAP4A2gD/ANoA/gDaAP4A2gD/ANoA/gDa + AP4A2gD/ANgA/gC5AP4AfwD/AHgA/gB4AP4hiiH/q9Or/vj7+P7A1OT0Q11ymQIGCUsAAAA1AAAAJAAA + ABQAAAAHAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAw0UBAkhMR8eapxsW6rf2dTp+P72+vb/jcWN/hKFEv4AfAD/AHwA/gB/AP4AwgD/ANwA/gDe + AP4A3wD/AN4A/gDfAP8A3gD+AN4A/gDfAP8A3gD+AN4A/gDfAP8A3gD+AN4A/gDfAP8A3gD+AN4A/gDf + AP8A3gD+AN4A/gDfAP8A3gD+AN4A/gDfAP8A3gD+AN4A/gDfAP8A3gD+AN4A/gDeAP4A3wD/AN4A/gDe + AP4A3wD/AN4A/gDeAP4A3wD/AN4A/gDeAP4A3wD/AN4A/gDdAP4AtgD/AIIA/gB8AP4BfAH/IY0h/rTZ + tP78/Pz7ysrKyCgoKF8AAAA7AAAAKgAAABoAAAAKAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAVqampR+fn53v////99vn3/BYIF/wB/ + AP8AfwD/AH8A/wCHAP8AkgD/AJIA/wCSAP8AkgD/AJIA/wCSAP8AkgD/AJIA/wCkAP8A2wD/AOQA/wDl + AP8A5AD/AOQA/wDlAP8A5AD/AOQA/wDlAP8A5AD/AOQA/wDlAP8A5AD/AOQA/wDlAP8A5AD/AOQA/wDl + AP8A5AD/AOQA/wDkAP8A5QD/AOQA/wDkAP8A0AD/AKAA/wCSAP8AkgD/AJIA/wCSAP8AkgD/AJIA/wCS + AP8AkQD/AIYA/wB/AP8AfwD/AH8A/wmECf+227b//f79/+rq6tgpKSlTAAAALQAAAB0AAAANAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAT5+fnM/v7+/v7+/v4LiQv/AIMA/gCDAP4AgwD/AIMA/gCDAP4AgwD/AIMA/gCDAP4AgwD/AIMA/gCD + AP8AgwD+AIMA/gCDAP8AuQD+AOgA/gDpAP8A6AD+AOgA/gDpAP8A6AD+AOgA/gDpAP8A6AD+AOgA/gDp + AP8A6AD+AOgA/gDpAP8A6AD+AOgA/gDpAP8A6AD+AOgA/gDoAP4A6QD/AOgA/gDoAP4ArgD/AIMA/gCD + AP4AgwD/AIMA/gCDAP4AgwD/AIMA/gCDAP4AgwD/AIMA/gCDAP4AgwD/AIMA/gCDAP47oDv/6vXq/v7+ + /v7BwcGyHR0dLwAAABoAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL+/v78/v7+/v7+/v4SjxL/AIYA/gCGAP4AhgD/AIYA/gCG + AP4AhgD/AIYA/gCGAP4AhgD/AIYA/gCGAP8AhgD+AIYA/gCGAP8AswD+AO0A/gDuAP8A7QD+AO0A/gDu + AP8A7QD+AO0A/gDuAP8A7QD+AO0A/gDuAP8A7QD+AO0A/gDuAP8A7QD+AO0A/gDuAP8A7QD+AO0A/gDt + AP4A7gD/AO0A/gDtAP4ArQD/AIYA/gCGAP4AhgD/AIYA/gCGAP4AhgD/AIYA/gCGAP4AhgD/AIYA/gCG + AP4AhgD/AIYA/gCGAP5BpUH/8Pjw/v7+/v7m5ubRTU1NMQAAABMAAAAIAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHMzMyH/f392vz8 + /ODS6NLhnM+c4ZzPnOGcz5zhnM+c4ZzPnOGPypzuhcWb/4XFm/+Fxpz/j8qd/57Sn/88pTz/AIoA/wCK + AP8AuAD/APMA/wDzAP8A8wD/APMA/wDzAP8A8wD/APMA/wDzAP8A8wD/APMA/wDzAP8A8wD/APMA/wDz + AP8A8wD/APMA/wDzAP8A8wD/APMA/wDzAP8A8wD/APMA/wDzAP8AsQD/AIoA/wCKAP9Gqkb/n9Kf/5zS + n/+Py5z/hcOZ/4XDmP+LxZjzmMuY45rNmuKbzpvhnM+c4ZzPnOHg7+Dh+/v74fr6+tuKiop1AAAADwAA + AAkAAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAeHh4Le3t7Nnp6ekR5eXlFeHh4Rnh4eEd3d3dHd3d3R3d3d0djfY1lXajatl+w + 5fVgseb/m87v/vX6/f9fuF/+AI0A/gCOAP8AvAD+APcA/gD4AP8A9wD+APcA/gD4AP8A9wD+APcA/gD4 + AP8A9wD+APcA/gD4AP8A9wD+APcA/gD4AP8A9wD+APcA/gD4AP8A9wD+APcA/gD3AP4A+AD/APcA/gD3 + AP4AtQD/AI0A/gCNAP5vv2//+/7+/tz2+/54tt//X6TW/l6h0fBcdYd+cHBwU3R0dE13d3dId3d3R3d3 + d0d3d3dHeHh4R3V1dTsAAAAJAAAABgAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAgAA + AAMAAAADAAAAAwAAAAMCBwsFCSExHiF0q2Iqldzcer7q/vH4/f9ful/+AJEA/gCRAP8AwAD+APwA/gD8 + AP8A/AD+APwA/gD8AP8A/AD+APwA/gD8AP8A/AD+APwA/gD8AP8A/AD+APwA/gD8AP8A/AD+APwA/gD8 + AP8A/AD+APwA/gD8AP4A/AD/APwA/gD8AP4AuQD/AJEA/gCRAP5vwW//7vb7/nG03/4sicz/KYTF6xlQ + eHoCBwsbAAAADgAAAAgAAAAEAAAAAwAAAAMAAAADAAAAAgAAAAIAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEHGSUVfKjFlvb6 + /flfvV//AJUA/wCVAP8DwwP/Bv8G/wb/Bv8G/wb/Bv8G/wb/Bv8G/wb/Bv8G/wb/Bv8G/wb/Bv8G/wb/ + Bv8G/wb/Bv8G/wb/Bv8G/wb/Bv8G/wb/Bv8G/wb/Bv8G/wb/Bv8G/wb/Bv8G/wb/Bv8CvQL/AJUA/wCV + AP9vw2//5PD5/1Kh1/8lebXRDi1EWQAAABoAAAALAAAABQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAEfHx8Zv39/fBfv1/+AJgA/gCYAP8IxQj+FP4U/hT/FP8U/hT+FP4U/hT/ + FP8U/hT+FP4U/hT/FP8U/hT+FP4U/hT/FP8U/hT+FP4U/hT/FP8U/hT+FP4U/hT/FP8U/hT+FP4U/hT+ + FP4U/xT/FP4U/hT+FP4Hvwf/AJgA/gCYAP5vxW//5PD5/k2RwdMMKj5YAAAAIAAAABEAAAAFAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39/fBfwV/+AJsA/gCb + AP8Oxw7+If4h/iH/If8h/iH+If4h/iH/If8h/iH+If4h/iH/If8h/iH+If4h/iH/If8h/iH+If4h/iH/ + If8h/iH+If4h/iH/If8h/iH+If4h/iH+If4h/yH/If4h/iH+If4MwQz/AJsA/gCbAP5vx2//7/L07j1M + VXUAAAAvAAAAGwAAAA0AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAADfHx8Zv39/fBfw1//AJ8A/wCfAP8VyRX/Mf8x/zH/Mf8x/zH/Mf8x/zH/Mf8x/zH/Mf8x/zH/ + Mf8x/zH/Mf8x/zH/Mf8x/zH/Mf8x/zH/Mf8x/zH/Mf8x/zH/Mf8x/zH/Mf8x/zH/Mf8x/zH/Mf8x/zH/ + Mf8SwxL/AJ8A/wCfAP9vyW//8/Pz6Dk5OWQAAAAsAAAAGQAAAAsAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39/fBfxV/+AKIA/gCjAP8byxv+Pv4+/j7/ + Pv8+/j7+Pv4+/j7/Pv8+/j7+Pv4+/j7/Pv8+/j7+Pv4+/j7/Pv8+/j7+Pv4+/j7/Pv8+/j7+Pv4+/j7/ + Pv8+/j7+Pv4+/j7+Pv4+/z7/Pv4+/j7+Pv4XxRf/AKIA/gCiAP5vy2//8/Pz6Dk5OWQAAAAsAAAAGAAA + AAsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39 + /fBfx1/+AKYA/gCmAP8hzSH+S/5L/kv/S/9L/kv+S/5L/kv/S/9L/kv+S/5L/kv/S/9L/kv+S/5L/kv/ + S/9L/kv+S/5L/kv/S/9L/kv+S/5L/kv/S/9L/kv+S/5L/kv+S/5L/0v/S/5L/kv+S/4cxxz/AKYA/gCm + AP5vzW//8/Pz6Dk5OWQAAAAsAAAAGAAAAAsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39/fBfyl//AKoA/wCqAP8ozyj/W/9b/1v/W/9b/1v/W/9b/1v/ + W/9b/1v/W/9b/1v/W/9b/1v/W/9b/1v/W/9b/1v/W/9b/1v/W/9b/1v/W/9b/1v/W/9b/1v/W/9b/1v/ + W/9b/1v/W/9b/1v/W/8iyiL/AKoA/wCqAP9vz2//8/Pz6Dk5OWQAAAAsAAAAGQAAAAsAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39/fBfzF/+AK0A/gCt + AP8u0S7+aP5o/mj/aP9o/mj+aP5o/mj/aP9o/mj+aP5o/mj/aP9o/mj+aP5o/mj/aP9o/mj+aP5o/mj/ + aP9o/mj+aP5o/mj/aP9o/mj+aP5o/mj+aP5o/2j/aP5o/mj+aP4nzCf/AK0A/gCtAP5v0W//8/Pz6Dk5 + OWQAAAAsAAAAGAAAAAsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAADfHx8Zv39/fBfzl/+ALEA/gCxAP8z0zP+dv52/nb/dv92/nb+dv52/nb/dv92/nb+dv52/nb/ + dv92/nb+dv52/nb/dv92/nb+dv52/nb/dv92/nb+dv52/nb/dv92/nb+dv52/nb+dv52/3b/dv52/nb+ + dv4sziz/ALEA/gCxAP5v02//8/Pz6Dk5OWQAAAAsAAAAGAAAAAsAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39/fBf0F//ALQA/wC1AP861Tr/hf+F/4X/ + hf+F/4X/hf+F/4X/hf+F/4X/hf+F/4X/hf+F/4X/hf+F/4X/hf+F/4X/hf+F/4X/hf+F/4X/hf+F/4X/ + hf+F/4X/hf+F/4X/hf+F/4X/hf+F/4X/hf8x0TH/ALQA/wC0AP9v1W//8/Pz6Dk5OWQAAAAsAAAAGQAA + AAsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39 + /fBf0l/+ALgA/gC4AP8/1z/+kf6R/pL/kv+R/pH+kf6R/pL/kv+R/pH+kf6R/pL/kv+R/pH+kf6R/pL/ + kv+R/pH+kf6R/pL/kv+R/pH+kf6R/pL/kv+R/pH+kf6R/pH+kf6S/5L/kf6R/pH+kf420jb/ALgA/gC4 + AP5v12//8/Pz6Dk5OWQAAAAsAAAAGAAAAAsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39/fBf1F/+ALsA/gC7AP9G2Ub+n/6f/p//n/+f/p/+n/6f/p// + n/+f/p/+n/6f/p//n/+f/p/+n/6f/p//n/+f/p/+n/6f/p//n/+f/p/+n/6f/p//n/+f/p/+n/6f/p/+ + n/6f/5//n/6f/p/+n/471Tv/ALsA/gC7AP5v2W//8/Pz6Dk5OWQAAAAsAAAAGAAAAAsAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39/fBf11//AL8A/wDA + AP9M20z/r/+v/6//r/+v/6//r/+v/6//r/+v/6//r/+v/6//r/+v/6//r/+v/6//r/+v/6//r/+v/6// + r/+v/6//r/+v/6//r/+v/6//r/+v/6//r/+v/6//r/+v/6//r/9B10H/AL8A/wC/AP9v22//8/Pz6Dk5 + OWQAAAAsAAAAGQAAAAsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAADfHx8Zv39/fBf2V/+AMIA/gDDAP9S3VL+vP68/rz/vP+8/rz+vP68/rz/vP+8/rz+vP68/rz/ + vP+8/rz+vP68/rz/vP+8/rz+vP68/rz/vP+8/rz+vP68/rz/vP+8/rz+vP68/rz+vP68/7z/vP68/rz+ + vP5G2Ub/AMIA/gDCAP5v3W//8/Pz6Dk5OWQAAAAsAAAAGAAAAAsAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39/fBf21/+AMYA/gDGAP9Y31j+yf7J/sn/ + yf/J/sn+yf7J/sn/yf/J/sn+yf7J/sn/yf/J/sn+yf7J/sn/yf/J/sn+yf7J/sn/yf/J/sn+yf7J/sn/ + yf/J/sn+yf7J/sn+yf7J/8n/yf7J/sn+yf5L20v/AMYA/gDGAP5v32//8/Pz6Dk5OWQAAAAsAAAAGAAA + AAsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39 + /fBf3l//AMoA/wDKAP9f4V//2f/Z/9r/2v/Z/9n/2f/Z/9r/2v/Z/9n/2f/Z/9r/2v/Z/9n/2f/Z/9r/ + 2v/Z/9n/2f/Z/9r/2v/Z/9n/2f/Z/9r/2v/Z/9n/2f/Z/9n/2f/a/9r/2f/Z/9n/2f9S3lL/AMoA/wDK + AP9v4W//8/Pz6Dk5OWQAAAAsAAAAGQAAAAsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39/fBf32H+AMwD/gDNA/9k4mf+5v7m/uf/5//m/ub+5v7m/uf/ + 5//m/ub+5v7m/uf/5//m/ub+5v7m/uf/5//m/ub+5v7m/uf/5//m/ub+5v7m/uf/5//m/ub+5v7m/ub+ + 5v7n/+f/5v7m/ub+5v5W31j/AMwD/gDMA/5v43H/8/Pz6Dk5OWQAAAAsAAAAGAAAAAsAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfHx8Zv39/fBf4Gf+AM4M/gDO + DP9C20v+luyc/pbtnP+W7Jz+luyc/pbtnP+W7Jz+luyc/pbtnP+W7Jz+luyc/pbtnP+W7Jz+luyc/pbt + nP+W7Jz+luyc/pbtnP+W7Jz+luyc/pbsnP6W7Zz/luyc/pbsnP442kL/AM4M/gDODP5v43b/8/Pz6Dk5 + OWQAAAAsAAAAGAAAAAsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAADfHx8Zv39/fBf4W//AM8Y/wDPGP8Azxj/AM8Y/wDPGP8Azxj/AM8Y/wDPGP8Azxj/AM8Y/wDP + GP8Azxj/AM8Y/wDPGP8Azxj/AM8Y/wDPGP8Azxj/AM8Y/wDPGP8Azxj/AM8Y/wDPGP8Azxj/AM8Y/wDP + GP8Azxj/AM8Y/wDPGP9v5H3/8/Pz6Dk5OWQAAAAsAAAAGAAAAAsAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfHx8Zf39/fBr5H/+ANAi/gDQI/8A0CL+ANAi/gDQ + I/8A0CL+ANAi/gDQI/8A0CL+ANAi/gDQI/8A0CL+ANAi/gDQI/8A0CL+ANAi/gDQI/8A0CL+ANAi/gDQ + I/8A0CL+ANAi/gDQI/4A0CP/ANAi/gDQI/4A0CP/ANAi/gDQI/6H6Zf/8/Pz6Do6OmIAAAAqAAAAFwAA + AAoAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfX19Zf39 + /fDF9M7+R95m/jDaU/8w2VP+MNlT/jDaU/8w2VP+MNlT/jDaU/8w2VP+MNlT/jDaU/8w2VP+MNlT/jDa + U/8w2VP+MNlT/jDaU/8w2VP+MNlT/jDaU/8w2VP+MNlT/jDZU/4w2lP/MNlT/jDZU/4w2lP/MNlT/kvf + af7e+eP/9PT05zo6Ol0AAAAmAAAAFQAAAAkAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAA/Pz8Bnp6eSv7+/rP///+/////v////7////+/////v////7////+/////v/// + /7////+/////v////7////+/////v////7////+/////v////7////+/////v////7////+/////v/// + /7////+/////v////7////+/////v////7////+/+Pj4rGxsbEA/Pz8XPz8/DT8/PwUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//////8AP/////////////4AH/////////////gAB//// + /////////AAAf///////////+AAAH///////////8AAAD///////////4AAAA///////////wAAAAP// + ////////gAAAAD//////////AAAAAA/////////+AAAAAAP////////8AAAAAAH////////4AAAAAAA/ + ///////wAAAAAAAf///////gAAAAAAAH//////+AAAAAAAAD//////8AAAAAAAAB//////4AAAAAAAAB + //////wAAAAAAAAA//////gAAAAAAAAA//////AAAAAAAAAA/////+AAAAAAAAAA/////+AAAAAAAAAA + /////+AAAAAAAAAA/////+AAAAAAAAAA/////+AAAAAAAAAA/////+AAAAAAAAAA/////+AAAAAAAAAA + /////+AAAAAAAAAA/////+AAAAAAAAAA/////+AAAAAAAAAA/////+AAAAAAAAAA/////+AAAAAAAAAA + /////+AAAAAAAAAAH////+AAAAAAAAAAD////+AAAAAAAAAAA////+AAAAAAAAAAAP///8AAAAAAAAAA + AD///8AAAAAAAAAAAA///4AAAAAAAAAAAAf//wAAAAAAAAAAAAf//AAAAAAAAAAAAAf/+AAAAAAAAAAA + AAP/8AAAAAAAAAAAAAf/4AAAAAAAAAAAAAf/wAAAAAAAAAAAAA//gAAAAAAAAAAAAD//AAAAAAAAAAAA + B//+AAAAAAAAAAAAA//8AAAAAAAAAAAAAf/8AAAAAAAAAAAAAP/8AAAAAAAAAAAAAH/8AAAAAAAAAAAA + AH/8AAAAAAAAAAAAAD/+AAAAAAAAAAAAAD///AAAAAAAAAAAAD///AAAAAAAAAAAAH//+AAAAAAAAAAA + AH//+AAAAAAAAAAAAP//+AAAAAAAAAAAAf//+AAAAAAAAAAAB///+AAAAAAAAAAAD///+AAAAAAAAAAA + H///+AAAAAAAAAAAH////gAAAAAAAAAAH////wAAAAAAAAAAH////wAAAAAAAAAAH////4AAAAAAAAAA + H////4AAAAAAAAAAH////4AAAAAAAAAAH////8AAAAAAAAAAP/////AAAAAAAAAA///////4AAAAAAD/ + ///////8AAAAAAH////////8AAAAAAP////////8AAAAAAP////////8AAAAAAP////////8AAAAAAP/ + ///////8AAAAAAP////////8AAAAAAP////////8AAAAAAP////////8AAAAAAP////////8AAAAAAP/ + ///////8AAAAAAP////////8AAAAAAP////////8AAAAAAP////////8AAAAAAP////////8AAAAAAP/ + ///////8AAAAAAP////////8AAAAAAP////////8AAAAAAP////////8AAAAAAP////////8AAAAAAP/ + ///////8AAAAAAf///////////////////////////////////8oAAAAgAAAAAABAAABACAAAAAAAAAI + AQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAwAAAAYAAAAJAAAADAAAAA0AAAANAAAACwAAAAkAAAAGAAAAAwAAAAIAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAIAAAADQAAABEAAAAWAAAAGAAA + ABgAAAAVAAAAEQAAAA0AAAAJAAAABgAAAAMAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAIAAAAFAAAACQAAAA8AAAAWAAAAHQAAACMAAAAmAAAAJgAAACMAAAAeAAAAGAAAABEAAAAMAAAACAAA + AAUAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABQAAAAkAAAAQAAAAGAAAACIAAAArAAAAMgAA + ADYAAAA2AAAAMgAAAC0AAAAlAAAAHgAAABcAAAARAAAADAAAAAgAAAAFAAAAAgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAA + AAUAAAAKAAAAEQAAABoAAAAkIkZzpCdQg/8iRXG3DhwuWwAAAEMAAABBAAAAOwAAADQAAAAsAAAAJAAA + AB0AAAAWAAAAEAAAAAsAAAAHAAAABAAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAAGAAAACgAAABIAAAAbAAAAJSNKeLEnUYX/J1CE/ydQ + g/8nT4L/ID9osQcOGFYAAABHAAAAQQAAADoAAAAzAAAAKwAAACMAAAAbAAAAFQAAAA8AAAAKAAAABgAA + AAQAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAABgAA + AAsAAAASAAAAHAwaKjUlT4DMJ1OH/ydShv8nUYX/J1CE/ydQg/8nT4L/Jkx99B47YagHDhdXAAAARwAA + AEAAAAA5AAAAMQAAACkAAAAiAAAAGgAAABQAAAAOAAAACQAAAAYAAAADAAAAAgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAAAMAAAAFAAAAB0MGio1JVKE2SdViv8nVIn/J1OH/1OM + w/9BebP/J1CE/ydQg/8nT4L/J06A/yVKeukaMlSSAAAASwAAAEUAAAA/AAAAOAAAADAAAAAoAAAAIAAA + ABkAAAASAAAADQAAAAkAAAAGAAAAAwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAHAAAADQAA + ABUAAAAeFzVUUSVUhtknV4z/J1aL/ydViv9hm9P/fsX//2q7//9dp+j/N2uj/ydQg/8nT4L/J06A/ydN + f/8kSXnpFCdCewAAAEoAAABEAAAAPgAAADYAAAAvAAAAJwAAAB8AAAAYAAAAEQAAAAwAAAAIAAAABQAA + AAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAADAAAABwAAAA0AAAAVAAAAHxc1VVInWY7yJ1mO/ydYjf8tXpP/Z6Pb/4PF + //9+xf//abv//2i6//9nuf//Vp/g/zdqov8nT4L/J06A/ydNf/8mTH7/IkRx1BQnQXoAAABJAAAAQwAA + AD0AAAA1AAAALQAAACUAAAAeAAAAFwAAABEAAAAMAAAACAAAAAUAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAgAAAAOAAAAFgAA + ACAaPWFhJ1uQ8idbkf8nWpD/LWCV/3Sy6v+Gx///i8v//73x//+K0///bL7//2e7//9muv//Zbr//06S + 0P8vXJH/J06A/ydNf/8mTH7/Jkt9/yA+ab0MGChjAAAASQAAAEIAAAA8AAAANAAAACwAAAAkAAAAHQAA + ABYAAAAQAAAACwAAAAcAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAQAAAAIAAAADwAAABcAAAAiH0l0fChdlP8nXJP/J1yS/zlvpv91tOr/h8n//5fT + ///R+P//0v///6nq//+j5///g8///2e8//9mu///Zbv//2S6//9NktD/K1SI/ydNf/8mTH7/Jkt9/yZK + fP8eOmKzBw0WWAAAAEgAAABBAAAAOgAAADMAAAArAAAAIwAAABsAAAAVAAAADwAAAAoAAAAGAAAABAAA + AAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAAFAAAACQAAABAAAAAYAAAAIx9K + dX0oX5f/KF6W/yhdlP85caf/gML4/4fJ//+W0///1Pr//9r+///S////pun//6Xp//+j6P//muL//3zM + //9mvP//Zbv//2S7//9ftPf/RYTA/ytUh/8mTH7/Jkt9/yZKfP8lSHn0HThdqAcNFlcAAABHAAAAQAAA + ADkAAAAxAAAAKQAAACIAAAAaAAAAFAAAAA4AAAAJAAAABgAAAAMAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAACAAAABQAAAAoAAAAQAAAAGQAAACQjVYekKGGZ/yhgmP8oX5f/P3mw/3/D+P+Gyv//otz//9P7 + ///V/P//1v3//9L///+k6P//ouj//6Hn//+f5v//neb//5Xg//95zP//Zb3//2S8//9jvP//XrX3/0B9 + t/8mTH7/Jkt9/yZKfP8mSXv/JEV06RkvUJIAAABLAAAARQAAAD8AAAA4AAAAMAAAACgAAAAgAAAAGQAA + ABIAAAANAAAACQAAAAYAAAADAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAUAAAAKAAAAEQAAABsAAAAlJFqNsShj + m/8oYpv/KGGZ/0qIv/+Eyv//hMv//6Tf///O+f//z/r//9H6///S+///0v///6Hn//+g5///nub//53l + //+b5f//muT//5jk//+Q3v//dsv//2O9//9jvf//Ybz//1mu7/88dq7/Jkt9/yZKfP8mSXv/Jkh5/yRE + c+kUJT97AAAASgAAAEQAAAA+AAAANgAAAC8AAAAnAAAAHwAAABgAAAARAAAADAAAAAgAAAAFAAAAAwAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAMAAAAGAAAACwAAABIAAAAcDCAxNCVekr8oZZ7/KGSd/yhjm/9Pj8b/gsr//4PL//+t5v//yPf//8n4 + ///L+P//zfn//875///S////nub//53l//+b5f//muT//5nk//+X4///luL//5Ti//+T4f//i9z//27G + //9ivf//Yb3//2C9//9Vp+f/NGed/yZKfP8mSXv/Jkh5/yZHeP8iQGvUFCU+egAAAEkAAABDAAAAPQAA + ADUAAAAtAAAAJQAAAB4AAAAXAAAAEQAAAAwAAAAIAAAABQAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAABgAAAAwAAAATAAAAHQwfMTUmY5rZKGeg/yhm + n/8oZZ7/X6Ta/4HL//+Gzv//ref//8P1///E9f//xfb//8f2///I9///yvj//9L///+c5f//m+T//5nk + //+X4///luP//5Xi//+T4f//keH//5Dg//+O4P//jd///4HW//9sxv//Yb7//2C+//9fvf//UKDe/zRn + nP8mSXv/Jkh5/yZHeP8mRnf/IDtjvQwWJmMAAABJAAAAQgAAADwAAAA0AAAALAAAACQAAAAdAAAAFgAA + ABAAAAALAAAABwAAAAQAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAA + AAcAAAANAAAAFAAAAB4MIDI1JmSc2Shoov8oaKL/KGeg/1+l2/+Ay///hc7//7Hr//+98///v/P//8D0 + ///B9P//w/X//8T1///G9v//0v///5nk//+Y5P//l+P//5Xi//+U4v//kuH//5Dg//+P4P//jd///4zf + //+K3v//id3//4jd//991f//acb//2C+//9fvv//Xr7//0mSzv8tWIv/Jkh5/yZHeP8mRnf/JkV2/x43 + XrMHDBVYAAAASAAAAEEAAAA6AAAAMwAAACsAAAAjAAAAGwAAABUAAAAPAAAACgAAAAYAAAAEAAAAAgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAHAAAADQAAABUAAAAfFz9iUihqpPIoaqX/KGmk/y1v + qP9uue7/f8z//4rT//+v6///t/D//7nx//+68f//vPL//77z//+/8///wPT//8L0///S////l+P//5Xi + //+U4v//kuH//5Hg//+P4P//jt///4zf//+L3v//id3//4jd//+G3P//hdz//4Pb//+C2v//eNP//2fG + //9fv///Xr///12+//9Iks3/KVCC/yZHeP8mRnf/JkV2/yVDcvQdNFioBw0VVwAAAEcAAABAAAAAOQAA + ADEAAAApAAAAIgAAABoAAAAUAAAADgAAAAkAAAAGAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEAAAACAAA + AA4AAAAWAAAAIBg/YlMobKfyKGyn/yhrpv8tcar/bbru/37N//+I0///rev//7Lu//+z7///te///7bw + //+48P//ufH//7vx//+88v//vvP//9L///+V4v//k+H//5Hh//+Q4P//juD//43f//+L3v//it7//4jd + //+H3f//hdz//4Tb//+C2///gdr//3/a//9+2f//fNj//3TS//9iw///XsD//12///9Zt/f/QYO8/ylP + gf8mRnf/JkV2/yZEdP8kQW/pGS1MkgAAAEsAAABFAAAAPwAAADgAAAAwAAAAKAAAACAAAAAZAAAAEgAA + AA0AAAAJAAAABgAAAAMAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAgAAAAPAAAAFwAAACEgV4Z7KW6p8iluqv8oban/OH+4/3fH + +f99zf//jtj//6vr//+s7P//ruz//7Dt//+x7v//su7//7Tv//+17///t/D//7jx//+68f//0v///5Lh + //+Q4P//j+D//43f//+M3///it7//4nd//+H3f//htz//4Tb//+D2///gdr//4Da//9+2f//fdj//3vY + //961///eNf//3fW//9szf//YMP//13A//9bv///WLj3/zp0q/8mRnf/JkV2/yZEdf8mRHT/JEFv6RQj + PXsAAABKAAAARAAAAD4AAAA2AAAALwAAACcAAAAfAAAAGAAAABEAAAAMAAAABwAAAAQAAAACAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAUAAAAJAAAADwAA + ABgAAAAiIFiGfClxrf8pcKz/KW+r/ziAuv92x/r/fM7//5Db//+l6f//p+n//6jq//+q6///q+v//63s + //+u7P//sO3//7Hu//+z7v//tO///7bv///S////j+D//47f//+M3///i97//4nd//+I3f//htz//4Xc + //+D2///gtr//4Da//9/2f//fdn//3zY//961///edf//3fW//921v//dNX//3PU//9x1P//aMz//17D + //9bwf//W8D//1Ox7v85dKr/JkV2/yZFdf8mRHT/JkR0/yI9adQUJD16AAAASQAAAEMAAAA9AAAANQAA + AC0AAAAlAAAAHQAAABUAAAAOAAAACAAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAIAAAAFAAAACQAAABAAAAAZAAAAIyNilpcpc7D/KXKu/ylxrf9Hk8v/es7//3rO + //+R3f//oOf//6Hn//+j6P//pOj//6bp//+n6v//qer//6rr//+s6///rez//6/t//+w7f//su7//9L/ + //+N3///i97//4re//+I3f//h9z//4Xc//+E2///gtv//4Ha//9/2f//ftn//3zY//972P//edf//3jW + //921v//ddX//3PV//9y1P//cNP//2/T//9t0v//bNL//2XL//9dw///WsH//1nB//9Mot3/M2SY/yZF + df8mRHT/JkR0/yZEdP8gOWK9DBYlYwAAAEkAAABCAAAAOwAAADMAAAAqAAAAIAAAABcAAAAOAAAABwAA + AAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABQAAAAoAAAARAAAAGgAA + ACUlaaGxKXSy/yl0sf8pc7D/R5TN/3jO//970P//kd7//5rk//+c5f//neX//5/m//+g5///ouf//6Po + //+l6f//pun//6jq//+p6v//q+v//6zs//+u7P//0v///4re//+J3f//h93//4bc//+E2///g9v//4Ha + //+A2v//ftn//33Y//972P//etf//3jX//931v//ddX//3TV//9y1P//cdP//2/T//9u0v//bNL//2vR + //9p0P//Z9D//2bP//9gyf//W8P//1nB//9Ywf//S6Ld/y9cj/8mRHT/JkR0/yZEdP8mRHT/HjZdswcM + FVgAAABIAAAAQAAAADYAAAAsAAAAIAAAABQAAAAMAAAABQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAwAAAAYAAAALAAAAEgAAABsAAAAmJWujsSl2tP8pdbP/KXSy/1Wn3f93z///etD//47e + //+V4v//luP//5jj//+Z5P//m+T//5zl//+e5v//n+b//6Hn//+i5///pOj//6Xp//+n6f//qOr//6nq + ///S////iN3//4bc//+E2///g9v//4Ha//+A2v//f9n//33Y//982P//etf//3nX//931v//dtX//3TV + //9y1P//cdT//3DT//9u0v//bdL//2vR//9q0f//aND//2fP//9lz///ZM7//2LO//9gzP//XMf//1nD + //9Ywv//V8L//0SSy/8sVIX/JkR0/yZEdP8mRHT/JUNy9B00WKgHDRZVAAAAQQAAADUAAAAoAAAAGgAA + AA8AAAAHAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAGAAAADAAAABMAAAAcDCU4NSd0 + sNgpeLf/KXe1/yl2tP9ZreP/ds///3vS//+M3v//j+D//5Hg//+S4f//lOL//5Xi//+X4///mOT//5rk + //+b5f//neX//57m//+f5v//oef//6Po//+k6P//pun//9L///+F3P//g9v//4Lb//+B2v//f9n//37Z + //982P//e9j//3nX//941v//dtb//3TV//9z1f//ctT//3DT//9v0///bdL//2zS//9q0f//aND//2fQ + //9lz///ZM7//2PO//9hzf//YM3//17M//9dy///W8r//1nG//9Yw///V8L//1bC//9Bi8L/KUx9/yZE + dP8mRHT/JkR0/yRBb+kYKkiBAAAAPAAAAC4AAAAeAAAAEgAAAAkAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAADAAAABgAAAAwAAAAUAAAAHQwlODUndbHZKXq5/yl5uP8ufrv/Ybnt/3XQ//960///h9z//4re + //+L3v//jd///47f//+Q4P//keD//5Ph//+U4v//luL//5fj//+Z5P//muT//5vl//+d5f//nub//6Dn + //+i5///0v///4Lb//+B2v//f9r//37Z//992P//e9j//3rX//941///d9b//3XV//9z1f//ctT//3DT + //9v0///btL//2zS//9r0f//adD//2fQ//9mz///ZM7//2PO//9hzf//YM3//1/M//9dy///W8v//1rK + //9Yyv//V8n//1bI//9Vxv//VsT//1bD//9Su/b/PYO6/ylMff8mRHT/JkR0/yZEdP8AAABBAAAAMwAA + ACIAAAAUAAAACgAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAYAAAAMAAAAFAAAAB4YS3FRKHm25il8 + u/8pe7r/Ln+9/2W/8v900P//edT//4Pb//+E2///htz//4fd//+J3f//it7//4ze//+N3///j+D//5Dg + //+R4f//k+H//5Xi//+W4///mOP//5nk//+a5P//nOX//53l///S////gNr//37Z//992P//e9j//3rX + //951///d9b//3XV//901f//ctT//3HU//9w0///btL//23S//9r0f//atH//2jQ//9mz///Zc///2PO + //9izv//Yc3//1/M//9ezP//XMv//1rL//9Zyv//V8n//1bJ//9UyP//U8j//1LH//9Qxv//UsX//1XE + //9Uw///Ubv2/zFkl/8mRHT/JkR0/wAAAEMAAAA1AAAAIwAAABUAAAAKAAAAAwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIAAAAFAAAACgAAABIAAAAdGUxyUSp+vfIpfr7/KX28/zaLyP9nxPb/cM///3fT//992P//f9n//4Da + //+C2v//g9v//4Tb//+G3P//iN3//4nd//+L3v//jN///43f//+P4P//kOD//5Lh//+T4v//leL//5bj + //+Y4///meT//9L///992f//fNj//3vX//951///eNb//3bW//901f//c9T//3HU//9w0///btP//23S + //9s0f//atH//2jQ//9n0P//Zc///2TO//9izv//Yc3//1/N//9ezP//XMv//1vL//9Zyv//WMn//1bJ + //9VyP//U8j//1LH//9Qxv//T8b//03F//9MxP//TMT//0/D//9Sw///PIO6/yZEdP8mRHT/AAAAQwAA + ADUAAAAkAAAAFQAAAAoAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAcAAAAPAAAAGiBhkmoqf7/yKoDA/yp/ + v/81jMr/aMj7/23N//9z0///eNb//3nX//972P//fNj//37Z//9/2f//gdr//4La//+D2///hdz//4bc + //+I3f//it3//4ve//+M3///jt///4/g//+R4P//kuH//5Ti//+V4v//0v///3vY//951///eNf//3bW + //911f//c9X//3LU//9w0///b9P//23S//9s0v//atH//2nQ//9n0P//Zs///2TO//9jzv//Yc3//2DN + //9ezP//Xcv//1vL//9ayv//WMr//1fJ//9VyP//VMj//1LH//9Rx///T8b//07F//9Mxf//S8T//0nE + //9Iw///RsL//0bC//84g7r/JkR0/yZEdP8AAABDAAAANQAAACQAAAAVAAAACgAAAAMAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAAEAAAACgAAABQjbKN0KoLD/yqBwv8qgcH/PZfU/2XH+/9qzP//b9L//3LU//901f//ddX//3fW + //941///etf//3vY//992P//ftn//3/Z//+B2v//gtv//4Tb//+F3P//h9z//4jd//+K3v//i97//43f + //+O3///kOD//5Hh///S////edf//3fW//911f//dNX//3LU//9x0///b9P//27S//9s0v//a9H//2nQ + //9o0P//Zs///2XP//9jzv//Ys3//2DN//9fzP//Xcz//1zL//9ayv//Wcr//1fJ//9Wyf//VMj//1PH + //9Rx///UMb//07G//9Nxf//S8T//0rE//9Iw///R8P//0XC//9Ewf//QsH//zSCuv8mRHT/JkR0/wAA + AEMAAAA1AAAAJAAAABUAAAAKAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAUAAAANJXSubiqExv8qg8X/KoLD/0Cd + 2f9myv//Z8v//2rQ//9t0v//btL//3DT//9x0///c9T//3TV//911f//d9b//3nX//961///fNj//33Y + //9+2f//gNr//4Ha//+D2///hNv//4bc//+H3f//id3//4re//+M3v//jd///9L///921v//dNX//3PU + //9x1P//cNP//27T//9t0v//a9H//2rR//9o0P//Z9D//2XP//9kzv//Ys7//2HN//9fzf//Xsz//1zL + //9by///Wcr//1jJ//9Wyf//Vcj//1PI//9Sx///UMb//0/G//9Nxf//TMT//0rE//9Jw///R8P//0bC + //9Ewf//Q8H//0HA//9AwP//MoK6/yZFdf8mRHT/AAAAQwAAADUAAAAkAAAAFQAAAAoAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAABiZ7uGkqhsj/KoXH/yqExv9GpuL/Ysn//2PK//9lz///Z9D//2jQ//9q0f//bNH//23S + //9v0///cNP//3HU//9z1P//dNX//3bW//931v//edf//3rX//982P//fdj//3/Z//+A2v//gtr//4Pb + //+F2///htz//4jd//+J3f//0v///3PV//9y1P//cNP//2/T//9t0v//bNL//2rR//9p0P//Z9D//2bP + //9kzv//Y87//2HN//9gzf//Xsz//13L//9by///Wsr//1jJ//9Xyf//Vcj//1TI//9Sx///Ucb//0/G + //9Oxf//TMX//0vE//9Jw///SMP//0bC//9Fwv//Q8H//0LA//9AwP//P7///z2///8xgrv/JkV2/yZF + df8AAABDAAAANQAAACQAAAAVAAAACgAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAHKIHBhyqHyf8qhsj/d8Lq/1/H + //9fyf//YM3//2LN//9jzv//ZM7//2bP//9n0P//adD//2rR//9s0v//bdL//2/T//9w0///ctT//3PV + //911f//dtb//3jW//951///e9j//3zY//9+2f//f9n//4Ha//+C2v//g9v//4Xc///S////cdP//2/T + //9u0v//bNL//2vR//9p0P//aND//2bP//9lz///Y87//2LN//9gzf//X8z//13M//9cy///Wsr//1nK + //9Xyf//Vsn//1TI//9Tx///Ucf//1DG//9Oxv//TcX//0vE//9KxP//SMP//0fD//9Fwv//RMH//0LB + //9BwP//P7///z6///88vv//O77//zCCvP8mRnf/JkV2/wAAAEMAAAA1AAAAJAAAABUAAAAKAAAAAwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAcogL+IKojL/yqHyf+l5///W8j//1rK//9cy///Xcz//1/M//9hzf//Ys3//2PO + //9lz///Zs///2jQ//9p0P//a9H//2zS//9u0v//b9P//3HT//9y1P//dNX//3XV//931v//eNf//3rX + //972P//fdj//37Z//+A2v//kOH//9L///9u0v//bdL//2vR//9q0f//aND//2fP//9lz///ZM7//2LO + //9hzf//X8z//17M//9cy///Wsv//1nK//9Yyf//Vsn//1XI//9TyP//Usf//1DG//9Oxv//TcX//0vE + //9KxP//ScP//0fD//9Gwv//RMH//0PB//9BwP//P7///z6///88vv//O77//zq9//84vP//L4K8/yZH + eP8mRnf/AAAAQwAAADUAAAAkAAAAFQAAAAoAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAByiBwYgqicz/KojL/771 + //9VyP//Vsn//1jJ//9Zyv//W8v//1zL//9ezP//X83//2HN//9izv//ZM7//2XP//9nz///aND//2rR + //9r0f//bdL//27S//9w0///cdT//3PU//901f//ddX//3fW//951///etf//3zY//+S4v//0v///3/a + //9q0f//aND//2fQ//9lz///ZM7//2PO//9hzf//YM3//17M//9dy///W8v//1rK//9Yyf//Vsn//1XI + //9UyP//Usf//1HG//9Pxv//TcX//0zF//9LxP//ScP//0jD//9Gwv//RcL//0PB//9CwP//QMD//z6/ + //89v///PL7//zq9//85vf//N7z//za8//8tgr3/Jkh5/yZHeP8AAABDAAAANQAAACQAAAAVAAAACgAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAHKILCiCqKzf8qicz/0v///1HH//9Tx///VMj//1XI//9Xyf//WMn//1rK + //9by///Xcv//17M//9gzf//Yc3//2PO//9kzv//Zs///2fQ//9p0P//atH//2zR//9t0v//b9P//3DT + //9y1P//c9T//3TV//921v//d9b//6Xr///S////it///2fQ//9mz///Zc7//2PO//9izf//YM3//1/M + //9axfn/T7Hn/06x5v9EndP/QJXM/zyOxf8zerH/M3mw/yhdlP8nXZP/J1yS/yxon/9Ao9z/ScT//0jD + //9Hwv//RcL//0TB//9Cwf//QcD//z+///89v///PL7//zq+//85vf//OLz//za8//81u///M7r//yyC + vf8mSXv/Jkh5/wAAAEMAAAA1AAAAJAAAABUAAAAKAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAcog8OIKovO/yqK + zf/S////TcX//07G//9Qxv//Ucf//1PH//9UyP//Vsn//1fJ//9Zyv//Wsr//1zL//9dy///X8z//2DN + //9izf//Y87//2XO//9mz///Z9D//2nQ//9q0f//bNL//27S//9v0///cNP//3LU//+F3f//t+r1/6jb + 6v+Nz+r/Tqre/0ad0/9FnNL/NoK7/zaCuv8vdK3/KGeg/yhmn/8oZZ7/KGSd/yhjm/8oYpv/KGGZ/yhg + mP8oX5f/KF6W/yhdlP8nXZP/J1yS/ydbkf8vdKz/Pqjj/0TB//9Dwf//QcD//z+///8+v///PL7//zu+ + //85vf//OLz//za8//81u///NLv//zK6//8wuf//K4K+/yZKfP8mSXv/AAAAQwAAADUAAAAkAAAAFQAA + AAoAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAAByiExIgqjND/KovO/9L///9Jw///SsT//0zE//9Nxf//T8b//1DG + //9Sx///U8j//1XI//9Wyf//WMn//1nK//9by///XMv//13M//9fzP//Yc3//2LN//9kzv//Zc///2bP + //9o0P//adD//1u67P9PqNz/P5DI/ziAuP8pcKz/KW+r/yluqv8oban/KGyn/yhrpv8oaqX/KGmk/yhp + o/8oaKL/KGeg/yhmn/8oZZ7/KGSd/yhjm/8oYpv/KGGZ/zN4sv8zd7H/OIK9/zeBvP8nXZP/J1yS/ydb + kf8nWpD/L3my/z2z8f8+v///Pb7//zu+//86vf//OL3//ze8//82u///NLv//zK6//8xuv//L7n//y64 + //8qgr7/Jkt9/yZKfP8AAABDAAAANQAAACQAAAAVAAAACgAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAHKIXGiCqN + 0f8qjND/0v///0XC//9Gwv//SMP//0nD//9LxP//TMX//07F//9Pxv//Ucb//1LH//9UyP//Vcj//1fJ + //9Yyf//Wcr//1vL//9cy///Xsz//1nC9v9MruT/Qp3W/zSHwv8pdbP/KXWy/yl0sf8pc7D/KXKu/ylx + rf8pcKz/KW+r/yluqv8oban/KGyn/yhrpv8udbD/NX+7/ziEv/9BlND/QZTP/0qk4f9Nquf/UK/t/1jB + //9Ywf//WMH//1jB//9Ywf//WMH//02o5P80dq7/J1yS/ydbkf8nWpD/J1mO/y9+uP85t/j/Ob3//ze8 + //82vP//NLv//zO6//8xuv//MLn//y65//8tuP//Lbj//yqCv/8mTH7/Jkt9/wAAAEMAAAA1AAAAJAAA + ABUAAAAKAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAcohseIKo3S/yqN0f/S////QcD//0LB//9Ewf//RcL//0fC + //9Iw///SsT//0vE//9Mxf//TsX//0/G//9Rx///U8f//1HD+/9Ltu//QKPe/zWPzP8sgL7/KXq5/yl5 + uP8peLf/KXe1/yl2tP8pdbP/KXWy/yl0sf8pc7D/KXKu/ylzsP8pcKz/KW+r/yluqv8oban/PI3I/1m5 + 9P9gxf//YMX//2DF//9gxf//YMX//2DF//9gxf//YMX//2DF//9gxf//YMX//2DF//9gxf//YMX//2DF + //9Sq+T/L2mg/ydbkf8nWpD/J1mO/yhelf8visb/NLX4/zO6//8yuv//MLn//y+5//8uuP//Lbj//y24 + //8tuP//KoPA/ydNf/8mTH7/AAAAQwAAADUAAAAkAAAAFQAAAAoAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAByiH + yIgqjtP/Ko3S/9L///89vv//Pr///0C///9BwP//Q8H//0TB//9Gwv//R8P//0nD//9KxP//P6zp/zeb + 2f8xjs3/KoDA/yp/v/8pfr7/KX28/yl8u/8pe7r/KXq5/yl5uP8sfbv/NInI/zeNzP8pdbP/KXWy/yl0 + sf8pebj/K5HW/yuJzf8qeLb/KW+r/yluqv8oban/KGyn/0OUzf9lw/n/acn//2nJ//9pyf//acn//2nJ + //9pyf//acn//2nJ//9pyf//acn//2nJ//9pyf//acn//2nJ//9pyf//UaDW/zBpn/8nWpD/J1mO/ydY + jf8oXZP/LZTU/y+5//8uuP//Lbj//y24//8tuP//Lbj//y24//8qg8D/J06A/ydNf/8AAABEAAAANQAA + ACQAAAAVAAAACwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAHKIjIiCuP1P8qjtP/0v///zm9//86vf//PL7//z2+ + //8+v///QMD//0HA//9Dwf//Q778/y+Q0f8qg8X/KoLD/yqBwv8qgcH/KoDA/yp/v/8pfr7/MorJ/z+a + 2f9Ip+X/VLj2/1nB//9Kquj/LHy6/yl2tP8pdbP/KXu6/yuU2v8rldv/K5PZ/yuR1/8qhMb/KXOw/ylu + qv8oban/KGyn/yxxrP9Mm9L/bMb5/3HN//9xzf//cc3//3HN//9xzf//cc3//3HN//9xzf//cc3//3HN + //9xzf//cc3//3HN//9xzf//bcb4/02UyP8sYZf/J1mO/ydYjf8nV4z/KGKa/yuZ2/8tuP//Lbj//y24 + //8tuP//Lbj//yqEwf8nT4L/J06A/wAAAEQAAAA3AAAAJQAAABcAAAAMAAAABQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAcoiMmIK5DV/yuP1P/S////Nbv//za8//84vP//Ob3//zu+//88vv//Pb///z68/P8ukdL/KoXH/yqE + xv8qg8X/MYvL/zuW1f9Jp+T/U7Pv/2DE//9gxP//YMT//2DE//9gxP//S6jl/yl5uP8peLf/KXe1/yqD + xP8rl97/K5fe/yuW3f8rldv/K5PZ/yuR1/8rkNX/KoPE/ylwrP8oban/KGyn/yhrpv8yd7D/Wqrd/3nR + //950f//edH//3nR//950f//edH//3nR//950f//edH//3nR//950f//edH//3nR//950f//edH//3TJ + +P9MjsD/J1mO/ydYjf8nV4z/J1aL/ylup/8sn+L/Lbj//y24//8tuP//KoTB/ydQg/8nT4L/AAAARgAA + ADkAAAApAAAAGwAAAA8AAAAHAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAByiJyogrkdf/K5DV/9L///8wuf//Mrr//zO6 + //81u///N7z//zi8//83s/X/LZLV/yqHyf8qhsj/Mo3O/1u79P9mx///Zsf//2bH//9mx///Zsf//2bH + //9mx///Zsf//0um4f8pe7r/KXq5/yl5uP8qhMX/K5fe/yuX3v8rl97/K5fe/yuW3f8rldv/K5PZ/yuR + 1/8rkNX/KozQ/yl9vf8ob6v/KGyn/yhrpv8oaqX/M3ev/2u56P+C1f//gtX//4LV//+C1f//gtX//4LV + //+C1f//gtX//4LV//+C1f//gtX//4LV//+C1f//gtX//4LV//93xfH/Soe4/ydYjf8nV4z/J1aL/ydV + iv8pdK7/LKzw/y24//8qhcL/J1GE/ydQg/8AAABJAAAAPQAAAC4AAAAhAAAAFgAAAA0AAAAHAAAABAAA + AAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIAAAAHKIrMiCuS2P8rkdf/0v///y24//8uuP//L7n//zG6//8yuv//MrL2/yuN0P8qicz/KojL/zeU + 0/9oxvz/bMr//2zK//9syv//bMr//2zK//9syv//bMr//2zK//9Cmtb/KX28/yl8u/8pe7r/KorO/yuX + 3v8rl97/K5fe/yuX3v8rl97/K5fe/yuW3f8rldv/K5PZ/yuR1/8rkNX/Ko7T/yqLzv8peLf/KGyn/yhr + pv8oaqX/KGmk/0CEuv9xvOj/itn//4rZ//+K2f//itn//4rZ//+K2f//itn//4rZ//+K2f//itn//4rZ + //+K2f//itn//4rZ//+K2f//crnj/0B4qv8nV4z/J1aL/ydViv8nVIn/KXm0/yp/u/8nUYX/J1GE/wAA + AEwAAABDAAAANgAAACsAAAAgAAAAFgAAAA8AAAAKAAAABwAAAAQAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAcoi82IK5PZ/yuS2P/S////Lbj//y24 + //8tuP//Lbj//y2u8/8qjtP/KovO/yqKzf84ltX/bsn8/3PN//9zzf//c83//3PN//9zzf//c83//3PN + //9zzf//RZzY/yp/v/8pfr7/KX28/yqN0f8rl97/K5fe/yuX3v8rl97/K5fe/yuX3v8rl97/K5fe/yuW + 3f8rldv/K5PZ/yuR1/8rkNX/Ko7T/yqN0f8qh8r/KXWz/yhrpv8oaqX/KGmk/yhpo/9Pk8X/hc7z/5Pd + //+T3f//k93//5Pd//+T3f//k93//5Pd//+T3f//k93//5Pd//+T3f//k93//5Pd//+T3f//k93//3m8 + 4v81aJr/J1aL/ydViv8nVIn/J1OH/ydShv8nUYX/AAAAUAAAAEkAAABAAAAANgAAACwAAAAjAAAAGwAA + ABQAAAAOAAAACgAAAAYAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAAByiLzogrlNr/K5PZ/9L///8tuP//Lbj//y24//8sqO//Ko3S/yqN0f8qjND/SKXh/3TM + /P950P//edD//3nQ//950P//edD//3nQ//950P//dMv7/ziQzv8qgcH/KoDA/yqAwf8qj9T/K5fe/yuX + 3v8rl97/K5fe/yuX3v8rl97/K5fe/yuX3v8rl97/K5fe/yuW3f8rldv/K5PZ/yuR1/8rkNX/Ko7T/yqN + 0f8qi87/KoLD/ylyr/8oaqX/KGmk/yhpo/8oaKL/WpzK/5TZ+f+b4f//m+H//5vh//+b4f//m+H//5vh + //+b4f//m+H//5vh//+b4f//m+H//5vh//+b4f//m+H//5vh//9wrdT/NmiZ/ydViv8nVIn/J1OH/ydS + hv8ZNVeUAAAATwAAAEkAAABBAAAAOQAAADEAAAAoAAAAIQAAABkAAAATAAAADgAAAAkAAAAGAAAAAwAA + AAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAHKIzPiCuV2/8rlNr/0v///y24 + //8tuP//LKnv/yuP1P8qjtP/Ko3S/0qn4v9/0///f9P//3/T//9/0///f9P//3/T//9/0///f9P//3rO + +/86ktD/KoLD/yqBwv8whsX/K5PY/yuX3v8rl97/K5fe/yuX3v8rl97/K5fe/yuX3v8rl97/K5fe/yuX + 3v8rl97/K5fe/yuW3f8rldv/K5PZ/yuR1/8rkNX/Ko7T/yqN0f8qi87/KonM/yl/v/8obqn/KGmk/yhp + o/8oaKL/MG6m/2Wlz/+c3Pn/pOX//6Tl//+k5f//pOX//6Tl//+k5f//pOX//6Tl//+k5f//pOX//6Tl + //+k5f//pOX//6Tl//+c3Pj/Zp7F/y9ekf8nVIn/J1OH/ydShv8lTX/qFzBPhwAAAEsAAABFAAAAPgAA + ADcAAAAvAAAAJwAAAB8AAAAYAAAAEgAAAA0AAAAIAAAABQAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAgojdCIK5bc/yuV2//S////Lbj//yyg5v8rkdf/K5DV/yuP1P9Ysun/hdb//4XW + //+F1v//hdb//4XW//+F1v//hdb//4XW//90x/X/O5TS/yqExv8qg8X/MIjH/3bM9P9yzPf/Q6nm/yuX + 3v8rl97/K5fe/yuX3v8rl97/K5fe/yuX3v8rl97/K5fe/yuX3v8rl97/K5fe/yuW3f8rldv/K5PZ/yuR + 1/8rkNX/Ko7T/yqN0f8qi87/KonM/yqHyv8pfLv/KGum/yhpo/8oaKL/KGeg/zh2q/96t9v/ren//63p + //+t6f//ren//63p//+t6f//ren//63p//+t6f//ren//63p//+t6f//ren//63p//+t6f//pN/4/2KW + vf8nVIn/J1OH/ydShv8nUYX/I0l31BQqRHsAAABKAAAARAAAAD0AAAA2AAAALgAAACYAAAAeAAAAFwAA + ABEAAAAMAAAACAAAAAUAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEAAAACiiMzoorl97/K5bc/9L/ + //8soej/K5PZ/yuS2P8rkdf/aL7v/4zZ//+M2f//jNn//4zZ//+M2f//jNn//4zZ//+M2f//ecn1/zCM + zf8qhsj/KoXH/zuV0f9/1vv/h9z//4jd//+K3v//bsj1/zeg4v8rl97/K5fe/yuX3v8rl97/K5fe/yuX + 3v8rl97/K5fe/2Cx5v+Vy+//e77q/yuW3f8rldv/K5PZ/yuR1/8rkNX/Ko7T/yqN0f8qi87/KonM/zeU + 1P9mw/b/TJzR/y1vqP8oaKL/KGeg/yhmn/85dqr/kcrn/7Xt//+17f//te3//7Xt//+17f//te3//7Xt + //+17f//te3//7Xt//+17f//te3//7Xt//+17f//te3//6Ta8P9djrX/J1OH/ydShv8nUYX/J1GE/yNI + dtQNGSpkAAAASQAAAEMAAAA8AAAANQAAAC0AAAAlAAAAHQAAABYAAAAQAAAACwAAAAcAAAAEAAAAAgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAwAAAAcAAAAPJ4rLjCuX3v8rl97/X7fn/yuV2/8rlNr/K5PZ/2zA8P+S3P//ktz//5Lc + //+S3P//ktz//5Lc//+S3P//ktz//3fH8/8wjs//KojL/yqHyf86ldP/e9X8/4Pb//+F3P//h9z//4nd + //+L3v//jd///2nE8/8xnOD/K5fe/yuX3v8rl97/K5fe/yuX3v97vur/////////////////sNjz/yuW + 3f8rldv/K5PZ/yuR1/8rkNX/Ko7T/yqN0f82l9j/aMj8/27N//9wzv//bMj5/0SPxf8oaKL/KGeg/yhm + n/8oZZ7/TYe2/5jN5v++8f//vvH//77x//++8f//vvH//77x//++8f//vvH//77x//++8f//vvH//77x + //++8f//vvH//77x//+ZyuH/TXul/ydShv8nUYX/J1GE/ydQg/8hQ269DRkpYwAAAEgAAABCAAAAOwAA + ADMAAAArAAAAIwAAABwAAAAVAAAADwAAAAoAAAAHAAAABAAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAGAAAADQAAABYmhsaQK5fe/yuX + 3v8rl97/K5bc/zKZ3v+E0fj/mN///5jf//+Y3///mN///5jf//+Y3///mN///5jf//9uv+3/KovO/yqK + zf8qicz/Sabe/3jT/P9/2f//gdr//4Pb//+F3P//h93//4nd//+L3v//jd///4nb/f9evO//MZzg/yuX + 3v8rl97/e77q////////////////////////////sNjz/yuW3f8rldv/K5PZ/yuR1/8rkNX/QqXj/2rL + //9szP//bc3//2/N//9wzv//cc///2nD8/9AiL//KGeg/yhmn/8oZZ7/KGSd/2KZwf+y4vP/xvX//8b1 + ///G9f//xvX//8b1///G9f//xvX//8b1///G9f//xvX//8b1///G9f//xvX//8b1///G9f//n8zh/ztn + lf8nUYX/J1GE/ydQg/8mTX/0HjtiqAcOGFcAAABHAAAAQQAAADoAAAAyAAAAKgAAACIAAAAbAAAAFAAA + AA4AAAAJAAAABQAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAADAAAABwAAAA0AAAAVAAAAHyWCv5Url97/K5fe/yuX3v8ym+D/idT5/5/i//+f4v//n+L//5/i + //+f4v//n+L//5/i//+f4v//csLu/yqN0f8qjND/KovO/0em4P961///fNj//37Z//+A2v//gtr//4Pb + //+G3P//iN3//4re//+M3///jt///5Dg//+L3P3/UrPq/3u+6v////////////////////////////// + ////////sNjz/yuW3f8rldv/K5PZ/0Wq6P9oyv//asv//2vL//9szP//bs3//2/O//9wzv//cs///3TQ + //9htuj/O4G4/yhmn/8oZZ7/KGSd/yhjnP9wpMf/xO/5/8/5///P+f//z/n//8/5///P+f//z/n//8/5 + ///P+f//z/n//8/5///P+f//z/n//8/5///P+f//z/n//5G70v88ZpT/J1GE/ydQg/8nT4L/Jkx99Bw3 + W50AAABLAAAARgAAAEAAAAA5AAAAMQAAACgAAAAgAAAAFwAAABAAAAAKAAAABQAAAAIAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAAANAAAAFQAAAB8ZV4BTKpXb8iuX + 3v8rl97/Qqbk/5bb+/+l5f//peX//6Xl//+l5f//peX//6Xl//+l5f//peX//2C05/8qjtP/Ko3S/yqN + 0f9PsOf/dtb//3jX//961///fNj//37Z//+A2v//gtr//4Tb//+G3P//iN3//4re//+M3///jt///5Dg + //+77P/////////////P3s//MG8w/wBOAP8QWRD/z97P////////////sNjz/yuW3f9PtfL/Zsj//2fJ + //9pyv//asv//2zM//9tzP//bs3//3DO//9xz///c9D//3TQ//910f//XrDh/zJzq/8oZZ7/KGSd/yhj + nP8zbKH/f6/M/8zz+f/X/f//1/3//9f9///X/f//1/3//9f9///X/f//1/3//9f9///X/f//1/3//9f9 + ///X/f//1/3//8zy9/+Ap8L/MluM/ydQg/8nT4L/J06A/yVKeukaMlSRAAAASQAAAEMAAAA8AAAANAAA + ACoAAAAgAAAAFwAAAA4AAAAIAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAQAAAAIAAAADgAAABYAAAAgGVeAUyqV2/Irl97/K5fe/0Om5P+j4/3/q+j//6vo//+r6P//q+j//6vo + //+r6P//q+j//6vo//9bseb/K5DV/yuP1P8qjtP/Vrnu/3LU//901f//dtb//3nX//961///fNj//37Z + //+A2v//gtv//4Tb//+H3P//id3//4ve//+M3///uev/////////////z97P/xBZEP8ATgD/AE4A/wBO + AP8QWRD/z97P////////////vuT7/2TH//9lyP//Z8n//2jK//9pyv//a8v//2zM//9tzf//b87//3DO + //9yz///c9D//3TR//920f//d9L//1qq2/8tbKT/KGSd/yhjnP8oYpv/PnWm/5jE2P/b////2////9v/ + ///b////2////9v////b////2////9v////b////2////9v////b////2////9v////Q9Pf/dp26/ydQ + g/8nT4L/J06A/ydNf/8jRXPSFSlFdQAAAEEAAAA6AAAAMQAAACcAAAAcAAAAEgAAAAoAAAAFAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAACAAAAA8AAAAXAAAAISJ2rXsrl97/K5fe/yuX + 3v9Wsej/qeb9/7Hr//+x6///sev//7Hr//+x6///sev//7Hr//+p5f3/VK7l/yuS2P8rkdf/K5DV/1S5 + 7/9v0///cdP//3PU//911f//d9b//3nX//972P//fdj//3/Z//+B2v//g9v//4Xc//+H3f//id3//7bq + /////////////8/ez/8QWRD/AE4A/wBOAP8ATgD/AE4A/wBOAP8QWRD/z97P////////////xer//2XI + //9myP//Z8n//2nK//9qy///a8v//23M//9uzf//cM7//3HP//9yz///dND//3XR//930v//eNL//3TM + +f9RnM7/LWuj/yhjnP8oYpv/KGGZ/z50pf+u1+X/2////9v////b////2////9v////b////2////9v/ + ///b////2////9v////b////2////9v////b////xenw/2uRsf8nT4L/J06A/ydNf/8mTH7/I0Vzzw8d + MVIAAAAxAAAAKAAAAB4AAAATAAAACwAAAAUAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABQAA + AAkAAAAPAAAAGAAAACIhdKt9K5fe/yuX3v8rl97/YLjq/7fu//+37v//t+7//7fu//+37v//t+7//7fu + //+37v//ruj9/0Wl4v8rlNr/K5PZ/y+W2v9dxff/a9H//23S//9v0///cdT//3PV//911f//d9b//3nX + //972P//fdj//3/Z//+B2v//g9v//4Xc//+06v/////////////P3s//EFkQ/wBOAP8ATgD/AE4A/wBO + AP8ATgD/AE4A/wBOAP8QWRD/z97P////////////xer//2XI//9myf//aMn//2nK//9qy///bMz//23N + //9vzf//cM7//3HP//9z0P//dNH//3bR//930v//eNP//3rT//92zfn/SI7C/yhjnP8oYpv/KGGZ/yhg + mP9Vh7H/rtfl/9v////b////2////9v////b////2////9v////b////2////9v////b////2////9v/ + ///b////2////4yyyf8yWon/J06A/ydNf/8mTH7/Jkt9/yJBbaIAAAAkAAAAGwAAABEAAAAKAAAABQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAUAAAAJAAAAEAAAABkAAAAkJIC8lyuX3v8rl97/K5fe/2O5 + 6v++8f//vvH//77x//++8f//vvH//77x//++8f//vvH//6vl+/9Gp+T/K5bc/yuV2/8vl9z/W8T4/2fQ + //9q0f//bNL//27S//9w0///ctT//3TV//911f//eNb//3rX//982P//ftn//4Da//+C2v//sun///// + ////////z97P/xBZEP8ATgD/AE4A/wBOAP8ATgD/AE4A/wBOAP8ATgD/AE4A/wBOAP8QWRD/z97P//// + ////////xer//2XI//9nyf//aMr//2rL//9ry///bMz//27N//9vzv//cM7//3LP//900P//ddH//3bR + //940v//edP//3rU//981f//csfz/0OHu/8oYpv/KGGZ/yhgmP8oX5f/YJG3/8Xr8v/b////2////9v/ + ///F6vH/rtbj/67V4/+Bq8b/gavF/1+Kr/9Uf6b/SXSe/ydShv8nUYX/J1GE/ydQg/8nT4L/J06A/ydN + f/8mTH7/Jkt9/x05YFMAAAAUAAAADQAAAAcAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAAFAAAACgAA + ABEAAAAaAAAAJSeIx7Erl97/K5fe/yuX3v+L0fP/xPT//8T0///E9P//xPT//8T0///E9P//xPT//8T0 + //+n4vn/NJ3g/yuX3v8rl97/NaDj/1vG+/9kzv//Zs///2jQ//9q0f//bNL//27S//9w0///ctT//3TV + //921v//eNf//3rX//982P//ftn//7Do/////////////8/ez/8QWRD/AE4A/wBOAP8ATgD/AE4A/wBR + AP8AagD/AFEA/wBOAP8ATgD/AE4A/wBOAP8QWRD/z97P////////////xer//2bI//9oyf//acr//2rL + //9szP//bcz//27N//9wzv//cc///3PQ//900P//ddH//3fS//940v//etP//3vU//981f//ftb//2m5 + 5v8+f7T/KGGZ/yhgmP8oX5f/KF6W/1WGr/8nXZP/J1yS/ydbkf8nWpD/J1mO/ydYjf8nV4z/J1aL/ydV + iv8nVIn/J1OH/ydShv8nUYX/J1GE/ydQg/8nT4L/J06A/ydNf/8lSnvEEyY/IAAAAA0AAAAIAAAABQAA + AAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAADAAAABgAAAAsAAAASAAAAGw0uRDQniMexK5fe/yuX3v8rl97/j9Pz/8r3 + ///K9///yvf//8r3///K9///yvf//8r3///K9///rOT5/zWd4P8rl97/K5fe/zSh5P9byf3/YM3//2LO + //9kzv//Zs///2jQ//9r0f//bdL//27T//9w0///ctT//3TV//931v//edf//3vX//+t5/////////// + ///P3s//EFkQ/wBOAP8ATgD/AE4A/wBOAP8AUQD/AHUA/wB+AP8AdQD/AFEA/wBOAP8ATgD/AE4A/wBO + AP8QWRD/z97P////////////xer//2fJ//9oyv//acr//2vL//9szP//bc3//2/O//9wzv//cs///3PQ + //900f//dtH//3jS//950///etT//3vU//991f//ftb//4DX//9ls9//Lmmg/yhgmP8oX5f/KF6W/yhd + lP8nXZP/J1yS/ydbkf8nWpD/J1mO/ydYjf8nV4z/J1WK8SZShsUmUYXFJU5/mCRNfYkkSnp6IUNvTCFE + b0sAAAAOAAAADAAAAAoAAAAIAAAABgAAAAQAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAYAAAAMAAAAEwAA + ABwNLkM1KZDU2CuX3v8rl97/NZ3g/6fh9//Q+f//0Pn//9D5///Q+f//0Pn//9D5///Q+f//0Pn//5LU + 8/81neD/K5fe/yuX3v82pOb/WMf9/13L//9fzP//Yc3//2PO//9lz///Z9D//2nQ//9r0f//bdL//2/T + //9x0///c9T//3XV//931v//q+b/////////////z97P/xBZEP8ATgD/AE4A/wBOAP8ATgD/AFEA/wB4 + AP8AgQD/AIEA/wCBAP8AeAD/AFEA/wBOAP8ATgD/AE4A/wBOAP8QWRD/z97P////////////xuv//2fJ + //9pyv//asv//2vL//9tzP//bs3//3DO//9xz///cs///3TQ//910f//d9L//3jS//950///e9T//3zV + //991f//f9b//1qk1P8oYpv/KGGZ/yhgmP8oX5f/KF6W/yVWit8eRm+pHkZxphYyUXMXNVZrESc+SQAA + ACQAAAAaAAAAEwAAAA4AAAALAAAACQAAAAgAAAAHAAAABgAAAAYAAAAFAAAABAAAAAMAAAACAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAMAAAAHAAAADAAAABQAAAAdDS5DNSmQ1Nkrl97/K5fe/zad4P+36fn/1/z//9f8 + ///X/P//1/z//9f8///X/P//1/z//9f8//+W1vP/K5fe/yuX3v8rl97/O6rq/1fJ//9Zyv//W8v//13M + //9fzP//Yc3//2PO//9lz///Z9D//2nQ//9r0f//bdL//2/T//9x1P//c9X//6nl/////////////8/e + z/8QWRD/AE4A/wBOAP8ATgD/AE4A/wBSAP8AewD/AIUA/wCFAP8AhQD/AIUA/wCFAP8AewD/AFIA/wBO + AP8ATgD/AE4A/wBOAP8QWRD/z97P////////////xuv//2jJ//9pyv//asv//2zM//9tzf//b83//3DO + //9xz///c9D//3TR//920f//d9L//3jT//960///e9T//33V//9Ij8L/KGSd/yhjnP8oYpv/NoO//yhg + mP8oX5f/KF6W/xo9YJQAAABPAAAASAAAAD4AAAAzAAAAJwAAABwAAAASAAAACwAAAAcAAAAEAAAAAgAA + AAIAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAABwAAAA0AAAAVAAAAHxlY + glIqktfmK5fe/yuX3v9Mq+T/uuv5/9v////b////2////9v////b////2////9v////b////g8vv/yuX + 3v8rl97/K5fe/zqp6v9UyP//Vsj//1jJ//9Zyv//W8v//17M//9gzf//Ys3//2TO//9mz///aND//2rR + //9s0v//btL//3DT//+n5P/////////////P3s//EFkQ/wBOAP8ATgD/AE4A/wBOAP8AUgD/AH4A/wCJ + AP8AiQD/AIkA/wCJAP8AiQD/AIkA/wCJAP8AfgD/AFIA/wBOAP8ATgD/AE4A/wBOAP8QWRD/z97P//// + ////////xuv//2jK//9qy///a8v//2zM//9uzf//b87//3DO//9yz///dND//3XR//920f//eNL//3nT + //91zfn/R5DE/yhmn/8oZZ7/KGSd/0Kc2v9Svv//QpvZ/yhgmP8oX5f/KF6W/yBLd7MAAABMAAAARAAA + ADoAAAAuAAAAIwAAABcAAAAPAAAACAAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAwAAAAcAAAANAAAAFgAAAB8ZV4BTKpXb8iuX3v8rl97/TKvk/9D5/f/b////2////9v/ + ///b////2////9v////b////2////22+6v8rl97/K5fe/yuX3v9BtPP/UMb//1LH//9UyP//Vsn//1jJ + //9ayv//XMv//17M//9gzf//Ys7//2TO//9mz///aND//2rR//9s0v//pOP/////////////z97P/xBZ + EP8ATgD/AE4A/wBOAP8ATgD/AFIA/wCBAP8AjAD/AIwA/wCMAP8AjAD/AIwA/wCMAP8AjAD/AIwA/wCM + AP8AgQD/AFIA/wBOAP8ATgD/AE4A/wBOAP8QWRD/z97P////////////xuv//2nK//9qy///bMz//23M + //9uzf//cM7//3HP//9z0P//dND//3XR//930v//c8z5/zd9tP8oaKL/KGeg/ytrpf9Lqef/V8D//1fA + //9XwP//RZzZ/yhgmP8oX5f/KF6W/yFPfL4AAABMAAAARAAAADkAAAAuAAAAIgAAABcAAAAOAAAACAAA + AAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAGAAAADAAAABUAAAAfIG+jbSqV + 2/Irl97/K5fe/0yr5P/Q+f3/2////9v////b////2////9v////b////2////6/l9/9tvur/K5fe/yuX + 3v8rl97/P7Pz/0zF//9Oxv//UMb//1LH//9UyP//Vsn//1jK//9ayv//XMv//1/M//9gzf//Ys7//2TO + //9mz///aND//6Li/////////////8/ez/8QWRD/AE4A/wBOAP8ATgD/AE4A/wBSAP8AgwD/AJAA/wCQ + AP8AkAD/AJAA/wCQAP8AkAD/AJAA/wCQAP8AkAD/AJAA/wCQAP8AgwD/AFIA/wBOAP8ATgD/AE4A/wBO + AP8QWRD/z97P////////////x+v//2nK//9ry///bMz//23N//9vzv//cM7//3LP//9z0P//dNH//2e+ + 7v83frb/KGmk/yhpo/8rbaf/UrHt/1vC//9bwv//W8L//1vC//9bwv//SJ7Z/yhgmP8oX5f/KF6W/yFP + fL4AAABMAAAARAAAADoAAAAuAAAAIgAAABcAAAAOAAAACAAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAABAAAAAkAAAARAAAAGyJ5sngrl97/K5fe/yuX3v9tvur/2////9v////b////2////8Xy + +/+k3/X/eMXs/1ex5v8rl97/K5fe/yuX3v8rl97/K5fe/z619f9Jw///S8T//03F//9Pxv//Ucb//1PH + //9VyP//V8n//1nK//9by///Xcv//1/M//9hzf//Y87//2XP//+g4f/////////////P3s//EFkQ/wBO + AP8ATgD/AE4A/wBOAP8AUgD/AIcA/wCUAP8AlAD/AJQA/wCUAP8AlAD/AJQA/wCUAP8AlAD/AJQA/wCU + AP8AlAD/AJQA/wCUAP8AhwD/AFIA/wBOAP8ATgD/AE4A/wBOAP8QWRD/z97P////////////x+v//2rL + //9ry///bcz//27N//9wzv//cc///3LP//9mvu//LXOt/yhrpv8oaqX/M3u1/1m58/9gxP//YMT//2DE + //9gxP//YMT//2DE//9gxP//S5/Z/yhgmP8oX5f/KF6W/yFPfL4AAABMAAAARAAAADoAAAAuAAAAIgAA + ABcAAAAOAAAACAAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAFAAAACwAAABQlg8CBK5fe/yuX + 3v8rl97/bb7q/9v///+v5ff/g8vv/2K46P82nuD/K5fe/yuX3v8rl97/K5fe/yuX3v8rl97/K5fe/yuX + 3v8rl97/LZrg/zmt7/9Jw///S8T//03F//9Pxv//Ucf//1PI//9VyP//V8n//1nK//9by///Xcz//1/N + //9hzf//nuD/////////////z97P/xBZEP8ATgD/AE4A/wBOAP8ATgD/AFMA/wCJAP8AlwD/AJcA/wCX + AP8AlwD/AJcA/wCXAP8AlwD/AJcA/wCXAP8AlwD/AJcA/wCXAP8AlwD/AJcA/wCXAP8AiQD/AFMA/wBO + AP8ATgD/AE4A/wBOAP8QWRD/z97P////////////x+v//2vL//9szP//bc3//2/N//9wzv//W7Hl/y10 + r/8oban/KGyn/zR9t/9hwfn/Zcf//2XH//9lx///Zcf//2XH//9lx///Zcf//2XH//9lx///TqHZ/yhg + mP8oX5f/KF6W/yFPfL4AAABMAAAARAAAADoAAAAuAAAAIgAAABcAAAAOAAAACAAAAAQAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAYAAAAMKZDUpyuX3v8rl97/K5fe/yuX3v9Mq+T/K5fe/yuX3v8rl97/K5fe/yuX + 3v8rl97/K5fe/yuX3v8qldvyK5fe/yuX3v8rl97/K5fe/yuX3v8rl97/K5fe/y+d4v8+s/P/S8T//03F + //9Qxv//Usf//1TI//9WyP//WMn//1rK//9by///Xsz//5vg/////////////8/ez/8QWRD/AE4A/wBO + AP8ATgD/AE4A/wBTAP8AjAD/AJsA/wCbAP8AmwD/AJsA/wCbAP8AmwD/AJsA/wCbAP8AmwD/AJsA/wCb + AP8AmwD/AJsA/wCbAP8AmwD/AJsA/wCbAP8AjAD/AFMA/wBOAP8ATgD/AE4A/wBOAP8QWRD/z97P//// + ////////x+z//2vL//9szP//bs3//1Wr4P8pcKz/KW+r/yluqv9BkMn/ZsP6/2rJ//9qyf//asn//2rJ + //9qyf//asn//2rJ//9qyf//asn//2rJ//9qyf//UaLZ/yhgmP8oX5f/KF6W/yFPfL4AAABMAAAARAAA + ADoAAAAuAAAAIgAAABcAAAAOAAAABwAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABiqT2aMrl97/K5fe/yuX + 3v8rl97/K5fe/yuX3v8rl97/K5fe/yuX3v8rl97/KpPZ1CiMzpolgL1xG1+MTB1mll8rl97/K5fe/zCc + 4v9Pu/3/P6rv/yuX3v8rl97/K5fe/yuX3v8xn+T/RLn3/07F//9Qxv//Usf//1TI//9Wyf//WMn//1rK + //+Z3//////////////P3s//EFkQ/wBOAP8ATgD/AE4A/wBOAP8AUwD/AJAA/wCfAP8AnwD/AJ8A/wCf + AP8AnwD/AJ8A/wCfAP8AnwD/AJ8A/wCfAP8AnwD/AJ8A/wCfAP8AnwD/AJ8A/wCfAP8AnwD/AJ8A/wCf + AP8AkAD/AFMA/wBOAP8ATgD/AE4A/wBOAP8QWRD/z97P////////////x+z//2zM//9LoNf/KXKu/ylx + rf8pcKz/Q5LK/2/L//9vy///b8v//2/L//9vy///b8v//2/L//9vy///b8v//2/L//9vy///b8v//2/L + //9vy///VKPZ/yhgmP8oX5f/KF6W/yFPfL4AAABMAAAARAAAADkAAAAtAAAAIAAAABUAAAAMAAAABgAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEpkNRDK5fe/yuX3v8rl97/K5fe/yuX3v8rl97/KpXb4imR1bYojM6KJH65TQAA + ABAAAAAPAAAAEQAAABYAAAAeKY/SyiuX3v8rl97/TLX3/1a///9Wv///Ubr7/zym6v8rl97/K5fe/yuX + 3v8rl97/NKPm/0rA+/9Rxv//U8f//1TI//9Wyf//l97/////////////z97P/xBbEP8AUAD/AFAA/wBQ + AP8AUAD/AFUA/wCSAP8AogD/AKIA/wCiAP8AogD/AKIA/wCiAP8AogD/AKIA/wCiAP8AogD/AKIA/wCi + AP8AogD/AKIA/wCiAP8AogD/AKIA/wCiAP8AogD/AKIA/wCiAP8AkgD/AFUA/wBQAP8AUAD/AFAA/wBQ + AP8QWxD/z97P////////////t9bs/yl0sf8pc7D/KXKu/1Ol2/9zzf//c83//3PN//9zzf//c83//3PN + //9zzf//c83//3PN//9zzf//c83//3PN//9zzf//c83//3PN//9zzf//V6XZ/y1nnv8oX5f/KF6W/yFP + fL4AAABLAAAAQgAAADYAAAAoAAAAHAAAABAAAAAIAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASiO0SIrl97vK5fe/yqV + 28IpkdWVJobGWh9rni0AAAAOAAAADAAAAAoAAAAJAAAACAAAAAkAAAANAAAAFSR9uHQrl97/K5fe/zei + 5v9cwv//XML//1zC//9cwv//XML//1O6+f84oub/K5fe/yuX3v8rl97/K5fe/zmp6v9Mwfv/U8f//5Xd + /////////////8/fz/8QXRD/AFIA/wBSAP8AUgD/AFIA/wBYAP8AlgD/AKYA/wCmAP8ApgD/AKYA/wCm + AP8ApgD/AKYA/wCmAP8ApgD/AKYA/wCmAP8ApgD/AKYA/wCmAP8ApgD/AKYA/wCmAP8ApgD/AKYA/wCm + AP8ApgD/AKYA/wCmAP8AlgD/AFgA/wBSAP8AUgD/AFIA/wBSAP8QXRD/z9/P////////////r8vi/yl0 + sf9breH/eND//3jQ//940P//eND//3jQ//940P//eND//3jQ//940P//eND//3jQ//940P//eND//3jQ + //940P//eND//3jQ//940P//abvs/y1nnv8oX5f/KF6W/yJPfr0AAABIAAAAPAAAAC4AAAAgAAAAEwAA + AAoAAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAAEAAAABgAAAAcAAAAHAAAABwAAAAYAAAAFAAAAAwAA + AAMAAAAEAAAABwAAAA4AAAAYKpPZ5CuX3v8rl97/V7z5/2HF//9hxf//YcX//2HF//9hxf//YcX//2HF + //9Uuvf/NaDk/yuX3v8rl97/K5fe/y2a4P+J0Pf////////////P38//EGAQ/wBVAP8AVQD/AFUA/wBV + AP8AWgD/AJoA/wCqAP8AqgD/AKoA/wCqAP8AqgD/AKoA/wCqAP8AqgD/AKoA/wCqAP8AqgD/AKoA/wCq + AP8AqgD/AKoA/wCqAP8AqgD/AKoA/wCqAP8AqgD/AKoA/wCqAP8AqgD/AKoA/wCqAP8AmgD/AFoA/wBV + AP8AVQD/AFUA/wBVAP8QYBD/z9/P////////////xOL1/33S//990v//fdL//33S//990v//fdL//33S + //990v//fdL//33S//990v//fdL//33S//990v//fdL//33S//990v//fdL//33S//990v//bb3s/y1o + nv8oX5f/KF6W/yJQf7oAAAA9AAAALwAAACEAAAAUAAAACgAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAACAAAAAgAAAAIAAAACAAAAAQAAAAEAAAAAAAAAAQAAAAQAAAAJAAAAEiaHxo8rl97/K5fe/0Gp + 6v9mx///Zsf//2bH//9mx///Zsf//2bH//9mx///Zsf//2bH//9mx///Ubbz/zOd4v8rl97/e77q//// + ////////z+DP/xBiEP8AWAD/AFgA/wBYAP8AWAD/AF0A/wCdAP8ArQD/AK0A/wCtAP8ArQD/AK0A/wCt + AP8ArQD/AK0A/wCtAP8ArQD/AK0A/wCtAP8ArQD/AK0A/wCtAP8ArQD/AK0A/wCtAP8ArQD/AK0A/wCt + AP8ArQD/AK0A/wCtAP8ArQD/AK0A/wCtAP8AnQD/AF0A/wBYAP8AWAD/AFgA/wBYAP8QYhD/z+DP//// + ////////0O///4LU//+C1P//gtT//4LU//+C1P//gtT//4LU//+C1P//gtT//4LU//+C1P//gtT//4LU + //+C1P//gtT//4LU//+C1P//gtT//4LU//+C1P//cb/s/y5onv8oX5f/KF6W/yJQf6gAAAAsAAAAHgAA + ABIAAAAJAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABwAAAA4SPlsnK5bc8SuX3v8vmuD/ZMT7/2zK//9syv//bMr//2zK//9syv//bMr//2zK + //9syv//bMr//2zK//9syv//bMr//4vL8////////////8/gz/8QZRD/AFoA/wBaAP8AWgD/AFoA/wBg + AP8AoAD/ALEA/wCxAP8AsQD/ALEA/wCxAP8AsQD/ALEA/wCxAP8AsQD/ALEA/wCxAP8AsQD/ALEA/wCx + AP8AsQD/ALEA/wCxAP8AsQD/ALEA/wCxAP8AsQD/ALEA/wCxAP8AsQD/ALEA/wCxAP8AsQD/ALEA/wCx + AP8AoAD/AGAA/wBaAP8AWgD/AFoA/wBaAP8QZRD/z+DP////////////0e///4bW//+G1v//htb//4bW + //+G1v//htb//4bW//+G1v//htb//4bW//+G1v//htb//4bW//+G1v//htb//4bW//+G1v//htb//4bW + //+G1v//RYa5/yhgmP8oX5f/JlqQ2AAAACUAAAAYAAAADgAAAAcAAAADAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAAKAAAAFCeJyp0rl97/K5fe/06y + 7/9xzP//ccz//3HM//9xzP//ccz//3HM//9xzP//ccz//3HM//9xzP//ccz//3HM//+m3/////////// + ///P4c//EGcQ/wBdAP8AXQD/AF0A/wBdAP8AYwD/AKQA/wC0AP8AtAD/ALQA/wC0AP8AtAD/ALQA/wC0 + AP8AtAD/ALQA/wC0AP8AtAD/ALQA/wC0AP8AtAD/ALQA/wC0AP8AtAD/ALQA/wC0AP8AtAD/ALQA/wC0 + AP8AtAD/ALQA/wC0AP8AtAD/ALQA/wC0AP8AtAD/ALQA/wC0AP8ApAD/AGMA/wBdAP8AXQD/AF0A/wBd + AP8QZxD/z+HP////////////0/D//4vZ//+L2f//i9n//4vZ//+L2f//i9n//4vZ//+L2f//i9n//4vZ + //+L2f//i9n//4vZ//+L2f//i9n//4vZ//+L2f//hdH5/0CAtf8oYpv/KGGZ/yhgmP8gTHl4AAAAGwAA + ABEAAAAKAAAABQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABwAAAA8ZVn84K5fe/yuX3v8wm+D/ccv9/3bP//92z///ds///3bP//92z///ds///3bP + //92z///ds///3bP//92z///qeH/////////////z+HP/xBqEP8AYAD/AGAA/wBgAP8AYAD/AGUA/wCn + AP8AuAD/ALgA/wC4AP8AuAD/ALgA/wC4AP8AuAD/ALgA/wC4AP8AuAD/ALgA/wC4AP8AuAD/ALgA/wC4 + AP8AuAD/ALgA/wC4AP8AuAD/ALgA/wC4AP8AuAD/ALgA/wC4AP8AuAD/ALgA/wC4AP8AuAD/ALgA/wC4 + AP8AuAD/ALgA/wC4AP8ApwD/AGUA/wBgAP8AYAD/AGAA/wBgAP8QahD/z+HP////////////1fH//5Db + //+Q2///kNv//5Db//+Q2///kNv//5Db//+Q2///kNv//5Db//+Q2///kNv//5Db//+Q2///kNv//4nU + +f87e7D/KGSd/yhjnP8oYZnyGDtdTwAAABsAAAASAAAACwAAAAYAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAUAAAALAAAAFSiO0borl97/K5fe/168 + 8/980f//fNH//3zR//980f//fNH//3zR//980f//fNH//3zR//980f//fNH//63i/////////////8/i + z/8QbBD/AGIA/wBiAP8AYgD/AGIA/wBoAP8AqwD/ALwA/wC8AP8AvAD/ALwA/wC8AP8AvAD/ALwA/wC8 + AP8AvAD/ALwA/wC8AP8AvAD/ALwA/wC8AP8AvAD/ALwA/wC8AP8AvAD/ALwA/wC8AP8AvAD/ALwA/wC8 + AP8AvAD/ALwA/wC8AP8AvAD/ALwA/wC8AP8AvAD/ALwA/wC8AP8AvAD/ALwA/wC8AP8AqwD/AGgA/wBi + AP8AYgD/AGIA/wBiAP8QbBD/z+LP////////////1/L//5Xd//+V3f//ld3//5Xd//+V3f//ld3//5Xd + //+V3f//ld3//5Xd//+V3f//ld3//5Xd//+Ax+7/NXWs/yhmn/8oZZ7/KGOb8hk9YE4AAAAaAAAAEQAA + AAoAAAAGAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABgAAAA4hdaxTK5fe/yuX3v82n+L/gdT//4HU//+B1P//gdT//4HU//+B1P//gdT//4HU + //+B1P//gdT//4HU//+w5P/////////////P4s//EG4Q/wBlAP8AZQD/AGUA/wBlAP8AagD/AK4A/wC/ + AP8AvwD/AL8A/wC/AP8AvwD/AL8A/wC/AP8AvwD/AL8A/wC/AP8AvwD/AL8A/wC/AP8AvwD/AL8A/wC/ + AP8AvwD/AL8A/wC/AP8AvwD/AL8A/wC/AP8AvwD/AL8A/wC/AP8AvwD/AL8A/wC/AP8AvwD/AL8A/wC/ + AP8AvwD/AL8A/wC/AP8AvwD/AL8A/wC/AP8ArgD/AGoA/wBlAP8AZQD/AGUA/wBlAP8QbhD/z+LP//// + ////////2fP//5rg//+a4P//muD//5rg//+a4P//muD//5rg//+a4P//muD//5rg//+a4P//hMnu/y9w + qP8oaKL/KGeg/yZimNgNITMxAAAAGQAAABAAAAAJAAAABQAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAIAAAAECmS1sYrl97/K5fe/3DH + 9/+H1v//h9b//4fW//+H1v//h9b//4fW//+H1v//h9b//4fW//+H1v//s+X/////////////z+PP/xBx + EP8AZwD/AGcA/wBnAP8AZwD/AG0A/wCxAP8AwwD/AMMA/wDDAP8AwwD/AMMA/wDDAP8AwwD/AMMA/wDD + AP8AwwD/AMMA/wDDAP8AwwD/AMMA/wDDAP8AwwD/AMMA/wDDAP8AwwD/AMMA/wDDAP8AwwD/AMMA/wDD + AP8AwwD/AMMA/wDDAP8AwwD/AMMA/wDDAP8AwwD/AMMA/wDDAP8AwwD/AMMA/wDDAP8AwwD/AMMA/wDD + AP8AsQD/AG0A/wBnAP8AZwD/AGcA/wBnAP8QcRD/z+PP////////////2vT//57i//+e4v//nuL//57i + //+e4v//nuL//57i//+e4v//nuL//3G13v8vcqv/KGqk/yhpo/8nZJzXDSI1MAAAABgAAAAPAAAACQAA + AAUAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAAAgniMdrK5fe/yuX3v9DqOb/jNn//4zZ//+M2f//jNn//4zZ//+M2f//jNn//4zZ + //+M2f//jNn//7fn/////////////8/jz/8QcxD/AGoA/wBqAP8AagD/AGoA/wBwAP8AtQD/AMcA/wDH + AP8AxwD/AMcA/wDHAP8AxwD/AMcA/wDHAP8AxwD/AMcA/wDHAP8AxwD/AMcA/wDHAP8AxwD/AMcA/wDH + AP8AxwD/AMcA/wDHAP8AxwD/AMcA/wDHAP8AxwD/AMcA/wDHAP8AxwD/AMcA/wDHAP8AxwD/AMcA/wDH + AP8AxwD/AMcA/wDHAP8AxwD/AMcA/wDHAP8AxwD/AMcA/wDHAP8AtQD/AHAA/wBqAP8AagD/AGoA/wBq + AP8QcxD/z+PP////////////3PX//6Pk//+j5P//o+T//6Pk//+j5P//o+T//6Pk//91t9//KGyn/yhr + pv8oaqX/JGCUsAAAACAAAAAXAAAADgAAAAgAAAAEAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAACCuW3OErl97/K5fe/37P + +f+R2///kdv//5Hb//+R2///kdv//5Hb//+R2///kdv//5Hb///O7//////////////P5M//EHYQ/wBt + AP8AbQD/AG0A/wBtAP8AcwD/ALgA/wDKAP8AygD/AMoA/wDKAP8AygD/AMoA/wDKAP8AygD/AMoA/wDK + AP8AygD/AMoA/wDKAP8AygD/AMoA/wDKAP8AygD/AMoA/wDKAP8AygD/AMoA/wDKAP8AygD/AMoA/wDK + AP8AygD/AMoA/wDKAP8AygD/AMoA/wDKAP8AygD/AMoA/wDKAP8AygD/AMoA/wDKAP8AygD/AMoA/wDK + AP8AygD/AMoA/wDKAP8AuAD/AHMA/wBtAP8AbQD/AG0A/wBtAP8QdhD/z+TP////////////3vX//6jm + //+o5v//qOb//6jm//+o5v//YKPQ/yluqv8oban/KGyn/yRhl68AAAAgAAAAFgAAAA4AAAAIAAAABAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIqk9hzK5fe/yuX3v84oOL/idX7/5be//+W3v//lt7//5be//+W3v//lt7//5be + //+W3v//1/L/////////////z+TP/xB4EP8AbwD/AG8A/wBvAP8AbwD/AHUA/wC8AP8AzgD/AM4A/wDO + AP8AzgD/AM4A/wDOAP8AzgD/AM4A/wDOAP8AzgD/AM4A/wDOAP8AzgD/AM4A/wDOAP8AzgD/AM4A/wDO + AP8AzgD/AM4A/wDOAP8AzgD/AM4A/wDOAP8AzgD/AM4A/wDOAP8AzgD/AM4A/wDOAP8AzgD/AM4A/wDO + AP8AzgD/AM4A/wDOAP8AzgD/AM4A/wDOAP8AzgD/AM4A/wDOAP8AzgD/AM4A/wDOAP8AvAD/AHUA/wBv + AP8AbwD/AG8A/wBvAP8QeBD/z+TP////////////4Pb//63p//+t6f//ren//1qezP8pcKz/KW+r/ylu + qv8fVIJ9AAAAIQAAABYAAAANAAAABwAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASqU2mIrl97/K5fe/yuX + 3v8rl97/VbLq/5Xc/f+c4f//nOH//5zh//+c4f//nOH//9nz/////////////8/lz/8QexD/AHIA/wBy + AP8AcgD/AHIA/wB4AP8AvwD/ANEA/wDRAP8A0QD/ANEA/wDRAP8A0QD/ANEA/wDRAP8A0QD/ANEA/wDR + AP8A0QD/ANEA/wDRAP8A0QD/ANEA/wDRAP8A0QD/ANEA/wDRAP8A0QD/ANEA/wDRAP8A0QD/ANEA/wDR + AP8A0QD/ANEA/wDRAP8A0QD/ANEA/wDRAP8A0QD/ANEA/wDRAP8A0QD/ANEA/wDRAP8A0QD/ANEA/wDR + AP8A0QD/ANEA/wDRAP8A0QD/ANEA/wDRAP8AvwD/AHgA/wByAP8AcgD/AHIA/wByAP8QexD/z+XP//// + ////////4vf//6nk+v9LkcT/KXKu/ylxrf8pcKz/H1N/gQAAACcAAAAaAAAAEAAAAAgAAAADAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAiiO0UQrlt3gK5fe/yuX3v8rl97/Mpzg/2a97/+a3v3/oeP//6Hj + ///b9P/////////////P5c//EH0Q/wB1AP8AdQD/AHUA/wB1AP8AewD/AMMA/wDVAP8A1QD/ANUA/wDV + AP8A1QD/ANUA/wDVAP8A1QD/ANUA/wDVAP8A1QD/ANUA/wDVAP8A1QD/ANUA/wDVAP8A1QD/ANUA/wDV + AP8A1QD/ANUA/wDVAP8A1QD/ANUA/wDVAP8A1QD/ANUA/wDVAP8A1QD/ANUA/wDVAP8A1QD/ANUA/wDV + AP8A1QD/ANUA/wDVAP8A1QD/ANUA/wDVAP8A1QD/ANUA/wDVAP8A1QD/ANUA/wDVAP8A1QD/ANUA/wDV + AP8AwwD/AIcA/wB1AP8AdQD/AHUA/wB1AP8QfRD/z+XP////////////t9Ln/yl0sf8pc7D/KHCr9BM2 + UmUAAAAzAAAAJQAAABgAAAAOAAAABgAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAA + AAQpkdVkK5bc4SuX3v8rl97/K5fe/zOc4P94yPP/3vX/////////////z+bP/xCAEP8AdwD/AHcA/wB3 + AP8AdwD/AH0A/wDGAP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZ + AP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZ + AP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZ + AP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZAP8A2QD/ANkA/wDZAP8A0gD/AIoA/wB3AP8AdwD/AHcA/wB3 + AP8QgBD/z+bP////////////r8vi/ydvqekSMkxvAAAAQwAAADYAAAAoAAAAGwAAAA8AAAAHAAAAAwAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMfbqEWKZDUhiuW3fArl97/K5fe/7DY + 8////////////8/mz/8QghD/AHoA/wB6AP8AegD/AHoA/wCAAP8AygD/ANwA/wDcAP8A3AD/ANwA/wDc + AP8A3AD/ANwA/wDcAP8A3AD/ANwA/wDcAP8A3AD/ANwA/wDcAP8A3AD/ANwA/wDcAP8A3AD/ANwA/wDc + AP8A3AD/ANwA/wDcAP8A3AD/ANwA/wDcAP8A3AD/ANwA/wDcAP8A3AD/ANwA/wDcAP8A3AD/ANwA/wDc + AP8A3AD/ANwA/wDcAP8A3AD/ANwA/wDcAP8A3AD/ANwA/wDcAP8A3AD/ANwA/wDcAP8A3AD/ANwA/wDc + AP8A3AD/ANwA/wDcAP8A1gD/AIwA/wB6AP8AegD/AHoA/wB6AP8QghD/z+bP////////////1NTUvwAA + AFAAAABHAAAAOwAAAC4AAAAgAAAAFAAAAAoAAAAFAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAMAAAAIFkxvICeLzJyw2PP////////////P58//EIUQ/wB9AP8AfQD/AH0A/wB9 + AP8AgwD/AM0A/wDgAP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDg + AP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDg + AP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDg + AP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDgAP8A4AD/AOAA/wDgAP8A2QD/AI8A/wB9 + AP8AfQD/AH0A/wB9AP8QhRD/z+fP////////////19fXvQAAAEoAAABAAAAAMwAAACUAAAAYAAAADQAA + AAYAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAcAAAAP8PDwqf// + ////////z+fP/xCHEP8AfwD/AH8A/wB/AP8AfwD/AH8A/wCMAP8AmAD/AJgA/wCYAP8AmAD/AJgA/wCY + AP8AmAD/AJgA/wCYAP8AmAD/AJgA/wC4AP8A5AD/AOQA/wDkAP8A5AD/AOQA/wDkAP8A5AD/AOQA/wDk + AP8A5AD/AOQA/wDkAP8A5AD/AOQA/wDkAP8A5AD/AOQA/wDkAP8A5AD/AOQA/wDkAP8A5AD/AOQA/wDk + AP8A5AD/AOQA/wDkAP8A5AD/AOQA/wDkAP8A5AD/AOQA/wDkAP8AvgD/AJgA/wCYAP8AmAD/AJgA/wCY + AP8AmAD/AJgA/wCYAP8AmAD/AJgA/wCYAP8AkgD/AH8A/wB/AP8AfwD/AH8A/wB/AP8QhxD/z+fP//// + ////////2traugAAAEAAAAA1AAAAKAAAABoAAAAPAAAABwAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAABvLy8of///////////////8gkiD/AIIA/wCCAP8AggD/AIIA/wCC + AP8AggD/AIIA/wCCAP8AggD/AIIA/wCCAP8AggD/AIIA/wCCAP8AggD/AIIA/wCCAP8AggD/AIIA/wC1 + AP8A5wD/AOcA/wDnAP8A5wD/AOcA/wDnAP8A5wD/AOcA/wDnAP8A5wD/AOcA/wDnAP8A5wD/AOcA/wDn + AP8A5wD/AOcA/wDnAP8A5wD/AOcA/wDnAP8A5wD/AOcA/wDnAP8A5wD/AOcA/wDnAP8A5wD/AOcA/wDn + AP8A5wD/AMEA/wCCAP8AggD/AIIA/wCCAP8AggD/AIIA/wCCAP8AggD/AIIA/wCCAP8AggD/AIIA/wCC + AP8AggD/AIIA/wCCAP8AggD/AIIA/wCCAP8QihD/7/fv////////////39/ftgAAADIAAAAmAAAAGQAA + AA8AAAAHAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAF/v7+8P// + /////////////wCFAP8AhQD/AIUA/wCFAP8AhQD/AIUA/wCFAP8AhQD/AIUA/wCFAP8AhQD/AIUA/wCF + AP8AhQD/AIUA/wCFAP8AhQD/AIUA/wCFAP8AhQD/AJ4A/wDrAP8A6wD/AOsA/wDrAP8A6wD/AOsA/wDr + AP8A6wD/AOsA/wDrAP8A6wD/AOsA/wDrAP8A6wD/AOsA/wDrAP8A6wD/AOsA/wDrAP8A6wD/AOsA/wDr + AP8A6wD/AOsA/wDrAP8A6wD/AOsA/wDrAP8A6wD/AOsA/wDrAP8AuAD/AIUA/wCFAP8AhQD/AIUA/wCF + AP8AhQD/AIUA/wCFAP8AhQD/AIUA/wCFAP8AhQD/AIUA/wCFAP8AhQD/AIUA/wCFAP8AhQD/AIUA/wCF + AP+/4L//////////////////dXV1RgAAACEAAAAWAAAADQAAAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAP/////////////////////IJYg/wCHAP8AhwD/AIcA/wCH + AP8AhwD/AIcA/wCHAP8AhwD/AIcA/wCHAP8AhwD/AIcA/wCHAP8AhwD/AIcA/wCHAP8AhwD/AIcA/wCH + AP8AoQD/AO8A/wDvAP8A7wD/AO8A/wDvAP8A7wD/AO8A/wDvAP8A7wD/AO8A/wDvAP8A7wD/AO8A/wDv + AP8A7wD/AO8A/wDvAP8A7wD/AO8A/wDvAP8A7wD/AO8A/wDvAP8A7wD/AO8A/wDvAP8A7wD/AO8A/wDv + AP8A7wD/AO8A/wC7AP8AhwD/AIcA/wCHAP8AhwD/AIcA/wCHAP8AhwD/AIcA/wCHAP8AhwD/AIcA/wCH + AP8AhwD/AIcA/wCHAP8AhwD/AIcA/wCHAP8AhwD/EI8Q/+/37/////////////////+oqKhJAAAAGAAA + ABAAAAAJAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvv7 + +5H////////////////f8N//gMSA/4DEgP+AxID/gMSA/4DEgP+AxID/gMSA/4DEgP+AxID/gMSA/4DE + gP+AxID/gMSA/4DEgP+AxID/QKdA/wCKAP8AigD/AIoA/wCkAP8A8gD/APIA/wDyAP8A8gD/APIA/wDy + AP8A8gD/APIA/wDyAP8A8gD/APIA/wDyAP8A8gD/APIA/wDyAP8A8gD/APIA/wDyAP8A8gD/APIA/wDy + AP8A8gD/APIA/wDyAP8A8gD/APIA/wDyAP8A8gD/APIA/wDyAP8A8gD/AL4A/wCKAP8AigD/AIoA/yCZ + IP+AxID/gMSA/4DEgP+AxID/gMSA/4DEgP+AxID/gMSA/4DEgP+AxID/gMSA/4DEgP+AxID/gMSA/4DE + gP/P6c//////////////////9/f3xQAAABQAAAAPAAAACgAAAAYAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAvb29lP5+fmD9fX1hfT09Iby8vKH8vLyh/Dw + 8Ijw8PCI8PDwiPDw8Ijw8PCIzeLvpZXL7/+Vy+//lcvv/5XL7/+Vy+//5fL7//////+AxoD/AI0A/wCN + AP8AjQD/AKcA/wD2AP8A9gD/APYA/wD2AP8A9gD/APYA/wD2AP8A9gD/APYA/wD2AP8A9gD/APYA/wD2 + AP8A9gD/APYA/wD2AP8A9gD/APYA/wD2AP8A9gD/APYA/wD2AP8A9gD/APYA/wD2AP8A9gD/APYA/wD2 + AP8A9gD/APYA/wD2AP8AwQD/AI0A/wCNAP8AjQD/QKlA///////7////7f///8zp9f+Vw+T/lcLj/5XC + 4/+fxODl3t7ek+Tk5I/r6+uL7u7uifDw8Ijw8PCI8PDwiPDw8Ijw8PCI8vLyh+np6WkAAAANAAAACwAA + AAgAAAAFAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAgAAAAMAAAAEAAAABQAAAAYAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAIInmyKCqT + 2bMrl97/K5fe/yuX3v/K5ff//////4DHgP8AjwD/AI8A/wCPAP8AqgD/APoA/wD6AP8A+gD/APoA/wD6 + AP8A+gD/APoA/wD6AP8A+gD/APoA/wD6AP8A+gD/APoA/wD6AP8A+gD/APoA/wD6AP8A+gD/APoA/wD6 + AP8A+gD/APoA/wD6AP8A+gD/APoA/wD6AP8A+gD/APoA/wD6AP8A+gD/APoA/wDEAP8AjwD/AI8A/wCP + AP9Aq0D///////b///+66fX/NY/O/yqHyv8qhsj/KH++2A4qQDIAAAAaAAAAEgAAAA0AAAAJAAAACAAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABgAAAAYAAAAEAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAA + AAEAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAADAAAABSiMzkUqldvCK5fe/8rl9///////gMmA/wCS + AP8AkgD/AJIA/wCtAP8A/QD/AP0A/wD9AP8A/QD/AP0A/wD9AP8A/QD/AP0A/wD9AP8A/QD/AP0A/wD9 + AP8A/QD/AP0A/wD9AP8A/QD/AP0A/wD9AP8A/QD/AP0A/wD9AP8A/QD/AP0A/wD9AP8A/QD/AP0A/wD9 + AP8A/QD/AP0A/wD9AP8A/QD/AMcA/wCSAP8AkgD/AJIA/0CtQP//////1en2/yqKzf8qicz/KojL/yh/ + vssOLEExAAAAGAAAAA8AAAAJAAAABQAAAAMAAAACAAAAAgAAAAIAAAACAAAAAgAAAAEAAAABAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAgAAAAYmhsZa0+j28f////+AyoD/AJUA/wCVAP8AlQD/Aa8B/wT/BP8E/wT/BP8E/wT/ + BP8E/wT/BP8E/wT/BP8E/wT/BP8E/wT/BP8E/wT/BP8E/wT/BP8E/wT/BP8E/wT/BP8E/wT/BP8E/wT/ + BP8E/wT/BP8E/wT/BP8E/wT/BP8E/wT/BP8E/wT/BP8E/wT/BP8E/wT/BP8E/wT/BP8CygL/AJUA/wCV + AP8AlQD/QK9A///////K4vP/KovO/yqKzf8merayAAAAJQAAABkAAAAPAAAACAAAAAQAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAr4+PjE/////4DL + gP8AlwD/AJcA/wCXAP8EsQT/D/8P/w//D/8P/w//D/8P/w//D/8P/w//D/8P/w//D/8P/w//D/8P/w// + D/8P/w//D/8P/w//D/8P/w//D/8P/w//D/8P/w//D/8P/w//D/8P/w//D/8P/w//D/8P/w//D/8P/w// + D/8P/w//D/8P/w//D/8P/w//D/8P/wfLB/8AlwD/AJcA/wCXAP9AsUD//////8ri8/8qjND/InGonQAA + ACoAAAAdAAAAEQAAAAkAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAACfj4+MT/////gM2A/wCaAP8AmgD/AJoA/wazBv8Z/xn/Gf8Z/xn/ + Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/ + Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Gf8Z/xn/Dc0N/wCa + AP8AmgD/AJoA/0CzQP//////yuP0/x1ikYoAAAA1AAAAJQAAABcAAAANAAAABQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJ+Pj4xP// + //+AzoD/AJwA/wCcAP8AnAD/CbUJ/yT/JP8k/yT/JP8k/yT/JP8k/yT/JP8k/yT/JP8k/yT/JP8k/yT/ + JP8k/yT/JP8k/yT/JP8k/yT/JP8k/yT/JP8k/yT/JP8k/yT/JP8k/yT/JP8k/yT/JP8k/yT/JP8k/yT/ + JP8k/yT/JP8k/yT/JP8k/yT/JP8k/yT/JP8SzhL/AJwA/wCcAP8AnAD/QLVA///////o6OjSAAAAQQAA + ADMAAAAiAAAAFAAAAAoAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAn4+PjE/////4DPgP8AnwD/AJ8A/wCfAP8Mtwz/L/8v/y// + L/8v/y//L/8v/y//L/8v/y//L/8v/y//L/8v/y//L/8v/y//L/8v/y//L/8v/y//L/8v/y//L/8v/y// + L/8v/y//L/8v/y//L/8v/y//L/8v/y//L/8v/y//L/8v/y//L/8v/y//L/8v/y//L/8v/y//L/8v/xfP + F/8AnwD/AJ8A/wCfAP9At0D//////+jo6NIAAABAAAAAMQAAACAAAAATAAAACQAAAAMAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACfj4 + +MT/////gNCA/wCiAP8AogD/AKIA/w65Dv85/zn/Of85/zn/Of85/zn/Of85/zn/Of85/zn/Of85/zn/ + Of85/zn/Of85/zn/Of85/zn/Of85/zn/Of85/zn/Of85/zn/Of85/zn/Of85/zn/Of85/zn/Of85/zn/ + Of85/zn/Of85/zn/Of85/zn/Of85/zn/Of85/zn/HdAd/wCiAP8AogD/AKIA/0C5QP//////6Ojo0gAA + AEAAAAAxAAAAIAAAABIAAAAJAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJ+Pj4xP////+A0oD/AKQA/wCkAP8ApAD/EbsR/0T/ + RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/ + RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/RP9E/0T/ + RP8i0iL/AKQA/wCkAP8ApAD/QLtA///////o6OjSAAAAQAAAADEAAAAgAAAAEgAAAAkAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAn4+PjE/////4DTgP8ApwD/AKcA/wCnAP8UvRT/Tv9O/07/Tv9O/07/Tv9O/07/Tv9O/07/Tv9O/07/ + Tv9O/07/Tv9O/07/Tv9O/07/Tv9O/07/Tv9O/07/Tv9O/07/Tv9O/07/Tv9O/07/Tv9O/07/Tv9O/07/ + Tv9O/07/Tv9O/07/Tv9O/07/Tv9O/07/Tv9O/07/Tv9O/yfTJ/8ApwD/AKcA/wCnAP9AvUD//////+jo + 6NIAAABAAAAAMQAAACAAAAASAAAACQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACfj4+MT/////gNSA/wCqAP8AqgD/AKoA/xa/ + Fv9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/ + Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/Wf9Z/1n/ + Wf9Z/1n/LdQt/wCqAP8AqgD/AKoA/0C/QP//////6Ojo0gAAAEAAAAAxAAAAIAAAABIAAAAJAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIAAAAJ+Pj4xP////+A1oD/AKwA/wCsAP8ArAD/GcEZ/2P/Y/9j/2P/Y/9j/2P/Y/9j/2P/Y/9j/2P/ + Y/9j/2P/Y/9j/2P/Y/9j/2P/Y/9j/2P/Y/9j/2P/Y/9j/2P/Y/9j/2P/Y/9j/2P/Y/9j/2P/Y/9j/2P/ + Y/9j/2P/Y/9j/2P/Y/9j/2P/Y/9j/2P/Y/9j/2P/Y/9j/2P/Y/8y1jL/AKwA/wCsAP8ArAD/QMFA//// + ///o6OjSAAAAQAAAADEAAAAgAAAAEgAAAAkAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAn4+PjE/////4DXgP8ArwD/AK8A/wCv + AP8cwxz/bv9u/27/bv9u/27/bv9u/27/bv9u/27/bv9u/27/bv9u/27/bv9u/27/bv9u/27/bv9u/27/ + bv9u/27/bv9u/27/bv9u/27/bv9u/27/bv9u/27/bv9u/27/bv9u/27/bv9u/27/bv9u/27/bv9u/27/ + bv9u/27/bv9u/zfXN/8ArwD/AK8A/wCvAP9Aw0D//////+jo6NIAAABAAAAAMQAAACAAAAASAAAACQAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAACfj4+MT/////gNiA/wCyAP8AsgD/ALIA/x7FHv95/3n/ef95/3n/ef95/3n/ef95/3n/ + ef95/3n/ef95/3n/ef95/3n/ef95/3n/ef95/3n/ef95/3n/ef95/3n/ef95/3n/ef95/3n/ef95/3n/ + ef95/3n/ef95/3n/ef95/3n/ef95/3n/ef95/3n/ef95/3n/ef95/3n/PNg8/wCyAP8AsgD/ALIA/0DF + QP//////6Ojo0gAAAEAAAAAxAAAAIAAAABIAAAAJAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJ+Pj4xP////+A2oD/ALQA/wC0 + AP8AtAD/Icch/4P/g/+D/4P/g/+D/4P/g/+D/4P/g/+D/4P/g/+D/4P/g/+D/4P/g/+D/4P/g/+D/4P/ + g/+D/4P/g/+D/4P/g/+D/4P/g/+D/4P/g/+D/4P/g/+D/4P/g/+D/4P/g/+D/4P/g/+D/4P/g/+D/4P/ + g/+D/4P/g/+D/4P/g/9B2kH/ALQA/wC0AP8AtAD/QMdA///////o6OjSAAAAQAAAADEAAAAgAAAAEgAA + AAkAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAn4+PjE/////4DbgP8AtwD/ALcA/wC3AP8jySP/jf+N/43/jf+N/43/jf+N/43/ + jf+N/43/jf+N/43/jf+N/43/jf+N/43/jf+N/43/jf+N/43/jf+N/43/jf+N/43/jf+N/43/jf+N/43/ + jf+N/43/jf+N/43/jf+N/43/jf+N/43/jf+N/43/jf+N/43/jf+N/43/jf+N/0bbRv8AtwD/ALcA/wC3 + AP9AyUD//////+jo6NIAAABAAAAAMQAAACAAAAASAAAACQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACfj4+MT/////gNyA/wC6 + AP8AugD/ALoA/ybLJv+X/5f/l/+X/5f/l/+X/5f/l/+X/5f/l/+X/5f/l/+X/5f/l/+X/5f/l/+X/5f/ + l/+X/5f/l/+X/5f/l/+X/5f/l/+X/5f/l/+X/5f/l/+X/5f/l/+X/5f/l/+X/5f/l/+X/5f/l/+X/5f/ + l/+X/5f/l/+X/5f/l/+X/5f/TNxM/wC6AP8AugD/ALoA/0DLQP//////6Ojo0gAAAEAAAAAxAAAAIAAA + ABIAAAAJAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAJ+Pj4xP////+A3oD/ALwA/wC8AP8AvAD/Kc0p/6L/ov+i/6L/ov+i/6L/ + ov+i/6L/ov+i/6L/ov+i/6L/ov+i/6L/ov+i/6L/ov+i/6L/ov+i/6L/ov+i/6L/ov+i/6L/ov+i/6L/ + ov+i/6L/ov+i/6L/ov+i/6L/ov+i/6L/ov+i/6L/ov+i/6L/ov+i/6L/ov+i/6L/ov9R3lH/ALwA/wC8 + AP8AvAD/QM1A///////o6OjSAAAAQAAAADEAAAAgAAAAEgAAAAkAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAn4+PjE/////4Df + gP8AvwD/AL8A/wC/AP8rzyv/rf+t/63/rf+t/63/rf+t/63/rf+t/63/rf+t/63/rf+t/63/rf+t/63/ + rf+t/63/rf+t/63/rf+t/63/rf+t/63/rf+t/63/rf+t/63/rf+t/63/rf+t/63/rf+t/63/rf+t/63/ + rf+t/63/rf+t/63/rf+t/63/rf+t/1bfVv8AvwD/AL8A/wC/AP9Az0D//////+jo6NIAAABAAAAAMQAA + ACAAAAASAAAACQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAACfj4+MT/////gOCA/wDCAP8AwgD/AMIA/y7RLv+3/7f/t/+3/7f/ + t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/ + t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/t/+3/7f/XOBc/wDC + AP8AwgD/AMIA/0DRQP//////6Ojo0gAAAEAAAAAxAAAAIAAAABIAAAAJAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJ+Pj4xP// + //+A4oD/AMQA/wDEAP8AxAD/MNMw/8L/wv/C/8L/wv/C/8L/wv/C/8L/wv/C/8L/wv/C/8L/wv/C/8L/ + wv/C/8L/wv/C/8L/wv/C/8L/wv/C/8L/wv/C/8L/wv/C/8L/wv/C/8L/wv/C/8L/wv/C/8L/wv/C/8L/ + wv/C/8L/wv/C/8L/wv/C/8L/wv/C/8L/wv9h4mH/AMQA/wDEAP8AxAD/QNNA///////o6OjSAAAAQAAA + ADEAAAAgAAAAEgAAAAkAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAn4+PjE/////4DjgP8AxwD/AMcA/wDHAP8z1TP/zP/M/8z/ + zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/ + zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/zP/M/8z/zP/M/2bj + Zv8AxwD/AMcA/wDHAP9A1UD//////+jo6NIAAABAAAAAMQAAACAAAAASAAAACQAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACfj4 + +MT/////gOSA/wDKAP8AygD/AMoA/zbXNv/X/9f/1//X/9f/1//X/9f/1//X/9f/1//X/9f/1//X/9f/ + 1//X/9f/1//X/9f/1//X/9f/1//X/9f/1//X/9f/1//X/9f/1//X/9f/1//X/9f/1//X/9f/1//X/9f/ + 1//X/9f/1//X/9f/1//X/9f/1//X/9f/1//X/9f/bORs/wDKAP8AygD/AMoA/0DXQP//////6Ojo0gAA + AEAAAAAxAAAAIAAAABIAAAAJAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJ+Pj4xP////+A5oD/AMwA/wDMAP8AzAD/ONk5/+L/ + 4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/ + 4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/4v/i/+L/ + 4v9x5nH/AMwA/wDMAP8AzAD/QNlA///////o6OjSAAAAQAAAADEAAAAgAAAAEgAAAAkAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAn4+PjE/////4Dmg/8Azgb/AM4G/wDOBv872kD/7P/s/+z/7P/s/+z/7P/s/+z/7P/s/+z/7P/s/+z/ + 7P/s/+z/7P/s/+z/7P/s/+z/7P/s/+z/7P/s/+z/7P/s/+z/7P/s/+z/7P/s/+z/7P/s/+z/7P/s/+z/ + 7P/s/+z/7P/s/+z/7P/s/+z/7P/s/+z/7P/s/+z/7P/s/3bmef8Azgb/AM4G/wDOBv9A2kT//////+jo + 6NIAAABAAAAAMQAAACAAAAASAAAACQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACfj4+MT/////gOeH/wDPDv8Azw7/AM8O/x/V + K/9654L/eueC/3rngv9654L/eueC/3rngv9654L/eueC/3rngv9654L/eueC/3rngv9654L/eueC/3rn + gv9654L/eueC/3rngv9654L/eueC/3rngv9654L/eueC/3rngv9654L/eueC/3rngv9654L/eueC/3rn + gv9654L/PdtI/wDPDv8Azw7/AM8O/0DbSv//////6Ojo0gAAAEAAAAAxAAAAIAAAABIAAAAJAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIAAAAJ+Pj4xP////+A54v/AM8W/wDPFv8Azxb/AM8W/wDPFv8Azxb/AM8W/wDPFv8Azxb/AM8W/wDP + Fv8Azxb/AM8W/wDPFv8Azxb/AM8W/wDPFv8Azxb/AM8W/wDPFv8Azxb/AM8W/wDPFv8Azxb/AM8W/wDP + Fv8Azxb/AM8W/wDPFv8Azxb/AM8W/wDPFv8Azxb/AM8W/wDPFv8Azxb/AM8W/wDPFv8Azxb/QNtQ//// + ///o6OjSAAAAQAAAADEAAAAgAAAAEgAAAAkAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAj4+PjE/////4Doj/8A0B//ANAf/wDQ + H/8A0B//ANAf/wDQH/8A0B//ANAf/wDQH/8A0B//ANAf/wDQH/8A0B//ANAf/wDQH/8A0B//ANAf/wDQ + H/8A0B//ANAf/wDQH/8A0B//ANAf/wDQH/8A0B//ANAf/wDQH/8A0B//ANAf/wDQH/8A0B//ANAf/wDQ + H/8A0B//ANAf/wDQH/8A0B//ANAf/wDQH/9A3Ff//////+jo6NIAAAA/AAAAMAAAAB8AAAASAAAACAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAACPr6+sP/////n+6u/wDRJ/8A0Sf/ANEn/wDRJ/8A0Sf/ANEn/wDRJ/8A0Sf/ANEn/wDR + J/8A0Sf/ANEn/wDRJ/8A0Sf/ANEn/wDRJ/8A0Sf/ANEn/wDRJ/8A0Sf/ANEn/wDRJ/8A0Sf/ANEn/wDR + J/8A0Sf/ANEn/wDRJ/8A0Sf/ANEn/wDRJ/8A0Sf/ANEn/wDRJ/8A0Sf/ANEn/wDRJ/8A0Sf/ANEn/4Do + k///////6enp0QAAADwAAAAtAAAAHQAAABEAAAAIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAH+vr6w///////////gOmW/0Dd + Yv9A3WL/QN1i/0DdYv9A3WL/QN1i/0DdYv9A3WL/QN1i/0DdYv9A3WL/QN1i/0DdYv9A3WL/QN1i/0Dd + Yv9A3WL/QN1i/0DdYv9A3WL/QN1i/0DdYv9A3WL/QN1i/0DdYv9A3WL/QN1i/0DdYv9A3WL/QN1i/0Dd + Yv9A3WL/QN1i/0DdYv9A3WL/QN1i/0DdYv9w5on/7/zy///////r6+vPAAAANgAAACkAAAAbAAAADwAA + AAcAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAX7+/vC//////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////+7u7s0AAAAuAAAAIgAAABYAAAANAAAABgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP////////8AB//////////////////+AAH/ + ////////////////+AAA//////////////////AAAD/////////////////gAAAP//////////////// + wAAAA////////////////4AAAAD///////////////8AAAAAP//////////////+AAAAAB////////// + /////AAAAAAH//////////////gAAAAAAf/////////////wAAAAAAB/////////////wAAAAAAAH/// + /////////4AAAAAAAAf///////////8AAAAAAAAD///////////+AAAAAAAAAP///////////AAAAAAA + AAA///////////gAAAAAAAAAD//////////wAAAAAAAAAAP/////////4AAAAAAAAAAA/////////8AA + AAAAAAAAAH////////8AAAAAAAAAAAB////////+AAAAAAAAAAAAP////////AAAAAAAAAAAAD////// + //gAAAAAAAAAAAA////////wAAAAAAAAAAAAP///////4AAAAAAAAAAAAD///////8AAAAAAAAAAAAA/ + ///////AAAAAAAAAAAAAP///////wAAAAAAAAAAAAD///////4AAAAAAAAAAAAA///////+AAAAAAAAA + AAAAP///////gAAAAAAAAAAAAD///////4AAAAAAAAAAAAA///////+AAAAAAAAAAAAAP///////gAAA + AAAAAAAAAD///////4AAAAAAAAAAAAA///////+AAAAAAAAAAAAAP///////gAAAAAAAAAAAAD////// + /4AAAAAAAAAAAAA///////+AAAAAAAAAAAAAP///////gAAAAAAAAAAAAD///////4AAAAAAAAAAAAA/ + //////+AAAAAAAAAAAAAD///////gAAAAAAAAAAAAAP//////4AAAAAAAAAAAAAA//////+AAAAAAAAA + AAAAAD//////gAAAAAAAAAAAAAAP/////4AAAAAAAAAAAAAAB/////+AAAAAAAAAAAAAAAH/////AAAA + AAAAAAAAAAAAf////gAAAAAAAAAAAAAAAB////wAAAAAAAAAAAAAAAAP///4AAAAAAAAAAAAAAAAB/// + 8AAAAAAAAAAAAAAAAAf//+AAAAAAAAAAAAAAAAAH///AAAAAAAAAAAAAAAAAB///AAAAAAAAAAAAAAAA + AAf//gAAAAAAAAAAAAAAAAAH//wAAAAAAAAAAAAAAAAAB//4AAAAAAAAAAAAAAAAAA//8AAAAAAAAAAA + AAAAAAAf/+AAAAAAAAAAAAAAAAAD///AAAAAAAAAAAAAAAAAP///gAAAAAAAAAAAAAAAAB///wAAAAAA + AAAAAAAAAAAP//8AAAAAAAAAAAAAAAAAB///AAAAAAAAAAAAAAAAAAP//wAAAAAAAAAAAAAAAAAB//8A + AAAAAAAAAAAAAAAAAf//AAAAAAAAAAAAAAAAAAD//wAAAAAAAAAAAAAAAAAA//+AAAAAAAAAAAAAAAAA + AP//wCAAAAAAAAAAAAAAAAD////gAAAAAAAAAAAAAAAA////wAAAAAAAAAAAAAAAAf///8AAAAAAAAAA + AAAAAAH///+AAAAAAAAAAAAAAAAD////gAAAAAAAAAAAAAAAB////4AAAAAAAAAAAAAAAA////+AAAAA + AAAAAAAAAAA/////gAAAAAAAAAAAAAAAf////4AAAAAAAAAAAAAAAP////+AAAAAAAAAAAAAAAH///// + gAAAAAAAAAAAAAAB/////8AAAAAAAAAAAAAAAf/////wAAAAAAAAAAAAAAH/////+AAAAAAAAAAAAAAB + //////wAAAAAAAAAAAAAAf/////8AAAAAAAAAAAAAAH//////AAAAAAAAAAAAAAB//////wAAAAAAAAA + AAAAAf/////+AAAAAAAAAAAAAAH//////gAAAAAAAAAAAAAD//////8AAAAAAAAAAAAAB///////4AAA + AAAAAAAAAD/////////8AAAAAAAAAP///////////wAAAAAAAAH///////////8AAAAAAAAD//////// + ////AAAAAAAAB////////////wAAAAAAAAf///////////8AAAAAAAAH////////////AAAAAAAAB/// + /////////wAAAAAAAAf///////////8AAAAAAAAH////////////AAAAAAAAB////////////wAAAAAA + AAf///////////8AAAAAAAAH////////////AAAAAAAAB////////////wAAAAAAAAf///////////8A + AAAAAAAH////////////AAAAAAAAB////////////wAAAAAAAAf///////////8AAAAAAAAH//////// + ////AAAAAAAAB////////////wAAAAAAAAf///////////8AAAAAAAAH////////////AAAAAAAAB/// + /////////wAAAAAAAAf///////////8AAAAAAAAH////////////AAAAAAAAB////////////wAAAAAA + AAf///////////8AAAAAAAAH////////////AAAAAAAAB////////////wAAAAAAAAf///////////// + //////////////////////////////////////////////////////// + + + \ No newline at end of file diff --git a/Supplywatch/FMMain.vb b/Supplywatch/FMMain.vb new file mode 100644 index 0000000..02ad2d7 --- /dev/null +++ b/Supplywatch/FMMain.vb @@ -0,0 +1,3455 @@ +Imports System.Net +Imports Excel = Microsoft.Office.Interop.Excel +Imports System.ComponentModel +Imports System.Data.SqlClient +Imports System.IO + +Public Class FMMain + Dim FormLoaded As Boolean = False + Dim Anzahl_Dateien As Integer = 0 + Dim Gesamtfiles As Integer = 0 + Dim _GID As Integer = 0 + Dim marker, Resultdatei As String + Dim ListeInsert As New ArrayList + Dim Geraet_inserted As Boolean = False + Dim pathImport, pathImportArchiv, pathBestellungen As String + Dim ATRDATATABLE As DataTable + Dim SelSupplyID As Integer + Dim vGeraete_Bez, vIP, vPORT_DISPLAY, vSerienNrGeraet, vPagecount, vModelNr, vWert As String + + Private bwXMLverarbeiten As New BackgroundWorker + Private bwBestellungen_verarbeiten As New BackgroundWorker + ' entspricht dem EmailProfil und enthält alle relevanten Informationen darüber + Private _EmailProfile As ClassBWProfilExport + Private xlsApp As Excel.Application + Public Sub New() + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + AddHandler bwXMLverarbeiten.DoWork, AddressOf bwXMLverarbeiten_DoWork + AddHandler bwXMLverarbeiten.RunWorkerCompleted, AddressOf bwXMLverarbeiten_RunWorkerCompleted + AddHandler bwXMLverarbeiten.ProgressChanged, AddressOf bwXMLverarbeiten_ProgressChanged + + bwXMLverarbeiten.WorkerReportsProgress = True + bwXMLverarbeiten.WorkerSupportsCancellation = True + AddHandler bwBestellungen_verarbeiten.DoWork, AddressOf bwBestellungen_verarbeiten_DoWork + AddHandler bwBestellungen_verarbeiten.RunWorkerCompleted, AddressOf bwBestellungenverarbeiten_RunWorkerCompleted + AddHandler bwBestellungen_verarbeiten.ProgressChanged, AddressOf bwXLSverarbeiten_ProgressChanged + + bwBestellungen_verarbeiten.WorkerReportsProgress = True + bwBestellungen_verarbeiten.WorkerSupportsCancellation = True + End Sub + Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Try + Me.tscmbaktiv.SelectedIndex = 0 + 'IP-Adresse-Auslesen + Dim Addresslist() As IPAddress = _ + Dns.GetHostEntry(Dns.GetHostName()).AddressList + Dim IPs As IPAddress + For Each IPs In Addresslist + 'Aktuelle Machine + Me.Status_Machine.Text = My.Computer.Name & " - IP: " & IPs.ToString + Next IPs + 'Beschriftung des Formulares + Me.Text = Application.ProductName + 'Timer für Uhrzeit wird festgelegt + Me.Timer_Uhrzeit.Interval = 1000 'Tick-Intervall des Timers festlegen + Me.Timer_Uhrzeit.Start() 'Und diesen starten + 'Aktueller Benutzer + Me.StatusUser.Text = Environment.UserName 'My.User.Name + If My.Settings.ConfigConnectionString <> String.Empty Then + CS_uebergeben() + 'Me.Status_Connection.Text = "Angemeldet an: " & Application.ProductName & " mit ConnectionString: " & My.Settings.ConfigConnectionString.ToString() + End If + Me.KeyPreview = True + SPCOrder.Panel2Collapsed = True + Catch ex As Exception + MsgBox("Fehlerbeschreibung: " & ex.Message.ToString, MsgBoxStyle.Critical, "Fehler beim Laden des Startformulares:") + End Try + LoadDatagrid_layouts() + End Sub + Private Sub CS_uebergeben() + Try + Me.TBMANDANTENTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBGERAETE_VERFOLGUNGTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBGERAETTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBKONFIGURATIONTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBSTATUSTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBSUPPLIESTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBSUPPLY_VERFOLGUNGTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBWH_MARKTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBWH_STATUS1TableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBWH_STATUS2TableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBWH_STATUS3TableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBWH_STATUS4TableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBWH_STATUS5TableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBWH_STATUSFILTERTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBVERTRAEGETableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBGERAETE_NOTINLISTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBMELDEDATUMTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + + Me.TBSUPPLY_DEFINITIONTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBWH_MODELLTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBVERTRAG_NOTEXISTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + + Me.VWGERAET_ORDERTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.VWSUPPLIES_2_ORDERTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.VWRPT_SUPPLIES_TOORDERTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.VWSUPPLIES_GERAETTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.VWSUPPLIES_TO_ORDERTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.VWSUPPLIESTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBSUPPLY_BESTELLUNGViewTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBSUPPLY_BESTELLUNGTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.TBPRODUKT_VERTRAGTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + TBWH_MARKTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + TBGERAETByMarktTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.VWGERAETE_VERFOLGUNGTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.VWSUPPLY_VERFOLGUNGTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.VWGeraet_Supply_ZuordnungTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + ViewSUPPLY_STATUS_VERFOLGUNGTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Catch ex As Exception + MsgBox("Fehler beim Hinterlegen der ConnectionStrings: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + Private Sub Load_Config() + Try + Me.TBKONFIGURATIONTableAdapter.Fill(Me.MyDataset.TBKONFIGURATION) + Dim DT As DataTable = Me.MyDataset.TBKONFIGURATION + For Each dr As DataRow In DT.Rows + pathImport = dr.Item("IMPORT_XML") + pathImportArchiv = dr.Item("IMPORT_XMLARCHIV") + pathBestellungen = dr.Item("IMPORT_BESTELLUNGEN") + Next + Try + Dim f As New IO.DirectoryInfo(pathBestellungen & "\Archiv") + If f.Exists = False Then + IO.Directory.CreateDirectory(pathBestellungen & "\Archiv") + End If + Catch ex As Exception + MsgBox("Fehler beim Anlegen des Verzeichnisses '" & pathBestellungen & "\Archiv" & vbNewLine & ex.Message.ToString, MsgBoxStyle.Critical) + End Try + + + Catch ex As Exception + MsgBox("Fehlerbeschreibung: " & ex.Message.ToString, MsgBoxStyle.Critical, "Fehler beim Laden der Konfiguration:") + End Try + End Sub + Private Sub LoadDatagrid_layouts() + Try + txtConfigPath.Text = Application.UserAppDataPath.ToString & "\config\" + Load_Datagrid(TBSTATUSDataGridView, "TBSTATUSDataGridView") + Load_Datagrid(VWSUPPLIES_AKTUELLDataGridView, "VWSUPPLIES_AKTUELLDataGridView") + Load_Datagrid(TBWH_STATUSFILTERDataGridView, "TBWH_STATUSFILTERDataGridView") + Load_Datagrid(DGTBWH_Markt_Bestellungen, "DGTBWH_Markt_Bestellungen") + Load_Datagrid(TBSUPPLY_DEFINITIONDataGridView, "TBSUPPLY_DEFINITIONDataGridView") + Load_GridLayout_BestGesendet() + Load_GridLayout_Bestuebersicht() + Load_GridLayout_Geraete() + Load_GridLayoutSupplies() + Load_GridLayout_Supllies2Order() + Load_GridLayout_SupplyZuordnung() + Load_GridLayout_ProduktVertrag() + If Not IO.Directory.Exists(Application.UserAppDataPath.ToString & "\config\Datagrid\") Then + ' Nein! Jetzt erstellen... + Try + IO.Directory.CreateDirectory(Application.UserAppDataPath.ToString & "\config\Datagrid\") + ' Ordner wurde korrekt erstellt! + Catch ex As Exception + ' Ordner wurde nich erstellt + End Try + End If + Catch ex As Exception + MsgBox("Fehlerbeschreibung: " & ex.Message.ToString, MsgBoxStyle.Critical, "Fehler beim Laden der Datagrid-Layouts:") + End Try + End Sub + Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Try + Me.Cursor = Cursors.WaitCursor + Dim Path As String = Application.UserAppDataPath.ToString & "\config\Datagrid\" + + ' _Datagrid.SaveC1_DG(DGTBSUPPLY_BESTELLUNG, Path, "DGTBSUPPLY_BESTELLUNG.xml") + + Save_Datagrid(VWSUPPLIES_AKTUELLDataGridView, "VWSUPPLIES_AKTUELLDataGridView") + Save_Datagrid(TBSTATUSDataGridView, "TBSTATUSDataGridView") + Save_Datagrid(TBWH_STATUSFILTERDataGridView, "TBWH_STATUSFILTERDataGridView") + Save_Datagrid(DGTBWH_Markt_Bestellungen, "DGTBWH_Markt_Bestellungen") + Save_Datagrid(TBSUPPLY_DEFINITIONDataGridView, "TBSUPPLY_DEFINITIONDataGridView") + Save_GridLayout_BestGesendet() + Save_GridLayout_Bestuebersicht() + Save_GridLayout_Geraete() + Save_GridLayout_Supplies2Order() + Save_GridLayout_Supplies() + Save_GridLayout_SupplyZuordnung() + Save_GridLayout_ProduktVertrag() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern der Datagrids:") + End Try + End Sub + Sub Load_Datagrid(ByVal _Datagrid As DataGridView, ByVal _settings_String As String) + Dim settings() As String + If My.Settings(_settings_String) <> String.Empty Then + settings = My.Settings(_settings_String).Split("$"c) + For idx As Integer = 0 To _Datagrid.Columns.Count - 1 + Dim sv() As String = settings(idx).Split("/"c) + _Datagrid.Columns(idx).DisplayIndex = CInt(sv(0)) + _Datagrid.Columns(idx).Width = CInt(sv(1)) + Next + End If + End Sub + Sub Save_Datagrid(ByVal _Datagrid As DataGridView, ByVal _settings_String As String) + Dim settings As String = String.Empty + For idx As Integer = 0 To _Datagrid.Columns.Count - 1 + settings += _Datagrid.Columns(idx).DisplayIndex.ToString() + settings += "/" + settings += _Datagrid.Columns(idx).Width.ToString + settings += "$" + Next + My.Settings(_settings_String) = settings + End Sub + Private Sub TextBoxen_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _ + txtConfigPath.GotFocus, txtPartnumber.GotFocus, txtPasswort.GotFocus, txtSchwellenwert.GotFocus, txtServer.GotFocus, txtUser.GotFocus, txtPartnumerORDER.GotFocus + CType(sender, TextBox).BackColor = Color.Lime + End Sub + Private Sub TextBoxen_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _ + txtConfigPath.LostFocus, txtPartnumber.LostFocus, txtPasswort.LostFocus, txtSchwellenwert.LostFocus, txtServer.LostFocus, txtUser.LostFocus, txtPartnumerORDER.LostFocus + CType(sender, TextBox).BackColor = Color.White + Dim text As TextBox = sender + End Sub + Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown + FormLoaded = True + If My.Settings.ConfigConnectionString = "" Then + Me.TCMain.SelectedIndex = 1 + TabControlEinstellungen.SelectedIndex = 1 + MsgBox("Bitte konfigurieren Sie die Datenbankverbindung!", MsgBoxStyle.Exclamation, "Achtung Konfiguration erforderlich!") + txtServer.Focus() + Else + Status_Refresh() + Refresh_Mandanten() + End If + Dim DT As DataTable = MyDataset.TBKONFIGURATION + For Each dr As DataRow In DT.Rows + If dr.Item("IMPORT_XML").ToString Is Nothing Then + Me.TCMain.SelectedIndex = 1 + + MsgBox("Bitte geben Sie den zu überwachenden XML-Ordner an!", MsgBoxStyle.Exclamation, "Achtung Konfiguration erforderlich!") + Watch_Ordner() + End If + If dr.Item("IMPORT_XMLARCHIV").ToString Is Nothing Then + Me.TCMain.SelectedIndex = 1 + MsgBox("Bitte geben Sie den Archivordner für eingelesene XML-Files an!", MsgBoxStyle.Exclamation, "Achtung Konfiguration erforderlich!") + Archiv_Ordner() + End If + If dr.Item("IMPORT_BESTELLUNGEN").ToString Is Nothing Then + Me.TCMain.SelectedIndex = 1 + MsgBox("Bitte geben Sie den Ordner für Bestellungen an!", MsgBoxStyle.Exclamation, "Achtung Konfiguration erforderlich!") + Bestellungen_Ordner() + End If + Next + End Sub + + Private Sub BtnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click + ' Dim csb As New SqlClient.SqlConnectionStringBuilder + Try + Dim con As String = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";" + 'csb.DataSource = Me.txtServer.Text + 'csb.InitialCatalog = Me.cmbDatenbank.Text + 'csb.IntegratedSecurity = False + + 'csb.UserID = Me.txtUser.Text + 'csb.Password = Me.txtPasswort.Text + 'If txtTimeout.Text <> String.Empty Then + ' csb.ConnectTimeout = CInt(txtTimeout.Text) + 'End If + + Dim connection As New SqlClient.SqlConnection(con) + 'während Verbindungsaufbau Sanduhr-Mauszeiger + Cursor = Cursors.WaitCursor + connection.Open() + Cursor = Cursors.Default + 'DialogResult = Windows.Forms.DialogResult.OK + Dim result As MsgBoxResult + result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + 'Set the construction string + My.Settings.ConfigConnectionString = con + + My.Settings.Save() + CS_uebergeben() + + Load_Config() + Refresh_Mandanten() + Status_Refresh() + Refresh_Supply_Typen() + End If + Catch ex As Exception + Cursor = Cursors.Default + MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + Private Sub TCMain_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TCMain.SelectedIndexChanged + Select Case Me.TCMain.SelectedIndex + Case 0 + Case 1 + If My.Settings.ConfigConnectionString <> String.Empty Then + Refresh_Supply_Typen() + End If + Case 2 + If My.Settings.ConfigConnectionString <> String.Empty Then + Refresh_WH_Modell() + Refresh_Vertrag_Produkt() + Refresh_Geraete_Supply() + Refresh_Supply_Typen() + End If + End Select + End Sub + Private Function Konfiguration_save() + Try + Me.Validate() + Me.TBKONFIGURATIONBindingSource.EndEdit() + If Me.MyDataset.TBKONFIGURATION.GetChanges Is Nothing = False Then + Me.GEAENDERTWERTextBox.Text = Environment.UserName + Me.TBKONFIGURATIONBindingSource.EndEdit() + Me.TBKONFIGURATIONTableAdapter.Update(MyDataset.TBKONFIGURATION) + MsgBox("Konfiguration wurde erfolgreich gespeichert!", MsgBoxStyle.Information, "Erfolgsmeldung:") + + End If + Return True + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Update der Konfiguration:") + Return False + End Try + End Function + Private Sub Status_Save() + Try + Me.Validate() + Me.TBSTATUSBindingSource.EndEdit() + If MyDataset.TBSTATUS.GetChanges Is Nothing = False Then + TBSTATUSBindingSource.EndEdit() + Me.TBSTATUSTableAdapter.Update(Me.MyDataset.TBSTATUS) + MsgBox("Status-Daten wurden erfolgreich gespeichert!", MsgBoxStyle.Information, "Erfolgsmeldung:") + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Speichern der Modelle:") + End Try + End Sub + Private Sub Status_Refresh() + Try + Me.TBSTATUSTableAdapter.Fill(Me.MyDataset.TBSTATUS) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der StatusDaten:") + End Try + Wertehilfen_fuellen() + Load_Config() + End Sub + Private Sub Refresh_Supplies() + Try + Dim Row As Integer + If VWSUPPLIESBindingSource.Count > 0 Then + + Else + Row = 0 + End If + If Me.chbFilterStatus.Checked = True Then + Dim Status As String = TBWH_STATUSFILTERDataGridView.CurrentCell.Value() + Me.VWSUPPLIESTableAdapter.FillByStatusname(Me.MyDataset.VWSUPPLIES, Status) + Else + Me.VWSUPPLIESTableAdapter.Fill(Me.MyDataset.VWSUPPLIES) + End If + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Abfragen der Supply-Daten:") + End Try + 'Wertehilfen_fuellen() + End Sub + Private Sub Wertehilfen_fuellen() + Try + Me.TBWH_STATUS5TableAdapter.Fill(Me.MyDataset.TBWH_STATUS5) + Me.TBWH_STATUS4TableAdapter.Fill(Me.MyDataset.TBWH_STATUS4) + Me.TBWH_STATUS3TableAdapter.Fill(Me.MyDataset.TBWH_STATUS3) + Me.TBWH_STATUS2TableAdapter.Fill(Me.MyDataset.TBWH_STATUS2) + Me.TBWH_STATUS1TableAdapter.Fill(Me.MyDataset.TBWH_STATUS1) + Me.TBWH_STATUSFILTERTableAdapter.Fill(Me.MyDataset.TBWH_STATUSFILTER) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Zuweisen der Stati zu Comboboxen:") + End Try + End Sub + Sub Refresh_WH_Modell() + Try + Me.TBWH_MODELLTableAdapter.Fill(Me.MyDataset.TBWH_MODELL) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden Refresh_WH_Modell:") + End Try + End Sub + Sub Refresh_Mandanten() + Try + Me.TBMANDANTENTableAdapter.Fill(Me.MyDataset.TBMANDANTEN) + cmbMandanten.Items.Clear() + Dim DT As DataTable = MyDataset.TBMANDANTEN + cmbMandanten.Items.Add("") + For Each row As DataRow In DT.Rows + cmbMandanten.Items.Add(row.Item("NAME")) + Next + cmbMandanten.SelectedIndex = 1 + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden Mandanten:") + End Try + End Sub + Private Sub Refresh_Geraete(mandant As String) + Try + If FormLoaded = True Then + If mandant <> String.Empty Then + Dim mandant_id As Integer = TBMANDANTENTableAdapter.cmdGetMandID(mandant) + + cmbMandanten.BackColor = Color.White + Me.Cursor = Cursors.WaitCursor + Dim aktiv As Boolean + If Me.tscmbaktiv.SelectedIndex = 0 Then + aktiv = 1 + Else + aktiv = 0 + End If + Me.TBGERAETTableAdapter.Fill(Me.MyDataset.TBGERAET, aktiv, mandant_id) + Me.MyDataset.VWSUPPLIES_AKTUELL.Clear() + + Else + MsgBox("Bitte einen Mandanten wählen!", MsgBoxStyle.Exclamation, "Keine Auswahl:") + cmbMandanten.BackColor = Color.OrangeRed + End If + + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Laden der Gerätedaten:") + End Try + + Me.Cursor = Cursors.Default + End Sub + + + Private Sub btnSaveKonfig_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveKonfig.Click + Konfiguration_save() + End Sub + + Private Sub tsbStatus_Refresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbStatus_Refresh.Click + Status_Refresh() + End Sub + + Private Sub tsbStatus_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbStatus_Save.Click + Status_Save() + End Sub + + Private Sub Timer_Uhrzeit_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_Uhrzeit.Tick + Me.Status_Clock.Text = My.Computer.Clock.LocalTime + End Sub + + Private Sub tsbSupplies_Refresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbSupplies_Refresh.Click + Refresh_Supplies() + End Sub + + Private Sub TBSTATUSBindingSource_AddingNew(ByVal sender As System.Object, ByVal e As System.ComponentModel.AddingNewEventArgs) Handles TBSTATUSBindingSource.AddingNew + MyDataset.TBSTATUS.ERFASSTWERColumn.DefaultValue = Environment.UserName + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + Watch_Ordner() + End Sub + Sub Archiv_Ordner() + Try + 'First create a FolderBrowserDialog object + Dim FolderBrowserDialog1 As New FolderBrowserDialog + 'Then use the following code to create the Dialog window + 'Change the .SelectedPath property to the default location + With FolderBrowserDialog1 + ' Desktop is the root folder in the dialog. + .RootFolder = Environment.SpecialFolder.Desktop + ' Prompt the user with a custom message. + .Description = "Archiv-Ordner für eingelesene Dateien wählen:" + If .ShowDialog = DialogResult.OK Then + Dim Path As String = .SelectedPath + Me.IMPORT_XMLARCHIVTextBox.Text = .SelectedPath + Konfiguration_save() + End If + End With + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Archiv_Ordner:") + End Try + End Sub + Sub Watch_Ordner() + Try + 'First create a FolderBrowserDialog object + Dim FolderBrowserDialog1 As New FolderBrowserDialog + ' Then use the following code to create the Dialog window + ' Change the .SelectedPath property to the default location + With FolderBrowserDialog1 + ' Desktop is the root folder in the dialog. + .RootFolder = Environment.SpecialFolder.Desktop + ' Prompt the user with a custom message. + .Description = "Überwachungsordner für Xml-Files wählen:" + If .ShowDialog = DialogResult.OK Then + Dim Path As String = .SelectedPath + Me.IMPORT_XMLTextBox.Text = .SelectedPath + Konfiguration_save() + End If + End With + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Watch_Ordner:") + End Try + End Sub + Sub Bestellungen_Ordner() + Try + 'First create a FolderBrowserDialog object + Dim FolderBrowserDialog1 As New FolderBrowserDialog + ' Then use the following code to create the Dialog window + ' Change the .SelectedPath property to the default location + With FolderBrowserDialog1 + ' Desktop is the root folder in the dialog. + .RootFolder = Environment.SpecialFolder.Desktop + ' Prompt the user with a custom message. + .Description = "Ordner für Bestellungen wählen:" + If .ShowDialog = DialogResult.OK Then + Dim Path As String = .SelectedPath + Me.IMPORT_BESTELLUNGENTextBox.Text = .SelectedPath + Konfiguration_save() + End If + End With + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Bestellungen_Ordner:") + End Try + End Sub + + Private Sub btnFolderArchiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFolderArchiv.Click + Archiv_Ordner() + End Sub + Private Sub tsbImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbImport.Click + XML_verarbeiten() + End Sub + + Private Sub tsbImport1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbImport1.Click + XML_verarbeiten() + End Sub + + Private Sub tsbImport2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbImport2.Click + XML_verarbeiten() + End Sub + Sub Bestellungen_verarbeiten() + Load_Config() + If Not Me.bwBestellungen_verarbeiten.IsBusy Then + tsProgressBar.Visible = True + tslbl_Files.Visible = True + 'Anzahl der Files auslesen + Anzahl_Dateien = 0 + Gesamtfiles = 0 + Dim diPfad As New IO.DirectoryInfo(pathBestellungen) + For Each file As IO.FileInfo In diPfad.GetFiles() + If file.Name.EndsWith(".xls") Then + Gesamtfiles = Gesamtfiles + 1 + End If + Next + tslbl_Files.Text = "Noch zu verarbeiten: " & Gesamtfiles & " Files" + tsProgressBar.Maximum = Gesamtfiles * 100 + bwBestellungen_verarbeiten.RunWorkerAsync() + Else + MsgBox("Der aktuelle Import läuft noch!", MsgBoxStyle.Exclamation, "ACHTUNG:") + End If + End Sub + Private Sub bwBestellungen_verarbeiten_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) + Dim diPfad As New IO.DirectoryInfo(pathBestellungen) + Dim Progress As Integer = 0 + Dim Counter As Integer = 0 + For Each file As IO.FileInfo In diPfad.GetFiles() + ' Dim vDatum As String = "" + If file.Name.EndsWith(".xls") Then + Anzahl_Dateien = Anzahl_Dateien + 1 + Progress += 25 + 'bwXMLverarbeiten.ReportProgress(Progress) + 'Dim str As String = file.Name + ''1106271' + 'vDatum = file.Name.Substring(4, 2) & "." & file.Name.Substring(2, 2) & ".20" & file.Name.Substring(0, 2) + + 'MsgBox(vDatum & vbNewLine & file.FullName) + Dim _DS As New DataSet + 'Datei auslesen und Dataset rückgeben lassen + _DS = XLSReader(file.FullName, file.Name) + If _DS Is Nothing Then + MsgBox("Datei: " & vbNewLine & file.FullName & vbNewLine & " wurde nicht verarbeitet!", MsgBoxStyle.Exclamation, "Achtung:") + Anzahl_Dateien = Anzahl_Dateien - 1 + Else + 'MsgBox("Anzahl: " & _DS.Tables(0).Rows.Count & vbNewLine & "Hier müssten jetzt die Updates erfolgen") + Dim DT As System.Data.DataTable + Dim DR As System.Data.DataRow + ' Dim DC As System.Data.DataColumn + '' --- DataSet zuweisen + 'DS = Me.MyDataset + '' --- Zugriff auf Tabelle + DT = _DS.Tables(0) + Dim idxGeraet, idxSerial, idxVertrag, idxMarkt, idxSupplyID As Integer + + Dim _gerät, _markt, _seriennr, _Supply, _Part As String + Dim _VAS + Dim _BestellSupplyID As String + Dim _SupplyID As Integer + Dim _BestellID As Integer + Dim _returnvalueGeraet, _returnvalueSerial, _returnvalueSupplyID, _returnvalueVAS As Type + 'Überprüfen wie die Datei aufgebaut/bearbeitet wurde? + Dim RowIndex = 0 + Dim GeraetebezeichnungHook + Dim GeraetebezeichnungHook1 + + For Each DR In DT.Rows + _VAS = Nothing + idxGeraet = 99 + + If RowIndex >= 5 Then + GeraetebezeichnungHook = DR.Item(0) + GeraetebezeichnungHook1 = DR.Item(1) + If GeraetebezeichnungHook.GetType.ToString <> "System.DBNull" Then + If GeraetebezeichnungHook = "Gerätebezeichnung" Then + idxGeraet = 0 + End If + Else + If GeraetebezeichnungHook1.GetType.ToString <> "System.DBNull" Then + If GeraetebezeichnungHook1 = "Gerätebezeichnung" Then + GeraetebezeichnungHook = "Gerätebezeichnung" + idxGeraet = 1 + End If + End If + End If + End If + + 'Dim Rowstring = DR.Item(0) + 'Dim Rowstring1 = DR.Item(1) + 'If Rowstring.GetType.ToString <> "System.DBNull" Then + ' If Rowstring.ToString.StartsWith("HP") Then + ' idxGeraet = 0 + ' End If + 'Else + ' If Rowstring1.GetType.ToString <> "System.DBNull" Then + ' Rowstring = Rowstring1 + ' End If + + 'End If + + 'If DR.Item(1).GetType.ToString <> "System.DBNull" Then + ' If Rowstring.ToString.StartsWith("HP") Then + ' idxGeraet = 1 + ' End If + 'End If + If idxGeraet < 99 Then + Exit For + End If + + RowIndex += 1 + Next + If idxGeraet = 99 Then + MsgBox("In der Datei konnte keine gültige Devicedefinition gefunden werden!", MsgBoxStyle.Exclamation) + Else + If GeraetebezeichnungHook = "Gerätebezeichnung" Then + + End If + Dim zaehler As Integer = 0 + For Each DR In DT.Rows + _gerät = "" + _seriennr = "" + _markt = "" + _SupplyID = 0 + _BestellSupplyID = "" + _BestellID = 0 + _Supply = "" + 'If zaehler >= 6 Then + ' MsgBox("_gerät " & DR.Item(1) & vbNewLine & _ + '"_seriennr " & DR.Item(2) & vbNewLine & _ + ' "_markt: " & DR.Item(4) & vbNewLine & _ + ' "_SupplyID: " & DR.Item(5)) + 'End If + _returnvalueGeraet = DR.Item(idxGeraet).GetType() + _returnvalueSerial = DR.Item(idxGeraet + 1).GetType() + _returnvalueSupplyID = DR.Item(idxGeraet + 4).GetType() + _returnvalueVAS = DR.Item(idxGeraet + 9).GetType() + If _returnvalueGeraet.ToString <> "System.DBNull" Then + If _returnvalueSerial.ToString <> "System.DBNull" Then + If _returnvalueSupplyID.ToString <> "System.DBNull" And _returnvalueVAS.ToString <> "System.DBNull" Then + Dim Device = DR.Item(idxGeraet) + If CStr(Device) <> "Gerätebezeichnung" Then '.StartsWith("HP") Then + _gerät = DR.Item(idxGeraet) + _seriennr = DR.Item(idxGeraet + 1) + _markt = DR.Item(idxGeraet + 3) + _BestellSupplyID = RTrim(LTrim(DR.Item(idxGeraet + 4))) + '_SupplyID = DR.Item(idxGeraet + 4) + _Supply = DR.Item(idxGeraet + 5) + _VAS = RTrim(LTrim(DR.Item(idxGeraet + 9).ToString)).ToString.Replace(" ", "") + _VAS = _VAS.Replace(vbCr, "").Replace(vbLf, "") + _VAS = _VAS.ToString.Where(Function(x) Not Char.IsWhiteSpace(x)).ToArray() + ' Convert to String data. + Dim value As New String(_VAS) + _VAS = value + If chkLogData.Checked Then + Dim msg = "Device: '" & _gerät & "'" & vbNewLine & _ + "Serial: '" & _seriennr & "'" & vbNewLine & _ + "Markt: '" & _markt & "'" & vbNewLine & _ + "OrderSupplyID: '" & _BestellSupplyID & "'" & vbNewLine & _ + "Supply: '" & _gerät & "'" & vbNewLine & _ + "VAS#: '" & _VAS & "'" + ClassLogger.Add(msg, False) + End If + If _BestellSupplyID.StartsWith("#2") Then 'reguläre Bestellung kommt zurück + _SupplyID = _BestellSupplyID.Replace("#2", "") + Dim sql = String.Format("SELECT ISNULL(MAX(GUID), 0) FROM TBSUPPLY_BESTELLUNG WHERE (SUPPLY_ID = {0})", _SupplyID) + _BestellID = ClassDatabase.Execute_Scalar(sql, True) + ElseIf _BestellSupplyID.StartsWith("#1") Then 'manuelle Bestellung kommt zurück + _BestellID = _BestellSupplyID.Replace("#1", "") + End If + + 'Dim GUID As Integer = TBSUPPLY_BESTELLUNGViewTableAdapter.cmdgetID_ORDER_SUPPLYID(_SupplyID) + 'MsgBox(GUID) + If _BestellID <> 0 Then + If _VAS <> String.Empty Then + Try + Dim vasint = CInt(_VAS) + Catch ex As Exception + If _VAS.ToLower.StartsWith("pa") Then + + Else + MsgBox("Achtung:" & vbNewLine & "Die Bestellnummer '" & _VAS & "' entspricht nicht den Vorgaben. (Numerisch oder beginnend mit 'PA')") + Continue For + End If + End Try + Dim upd + Try + upd = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET BESTELLNR = '{0}', FILE_ORDER_CONFIRM = '{1}' WHERE GUID = {2}", _VAS, file.Name, _BestellID) + + If ClassDatabase.Execute_non_Query(upd, True) = True Then + Counter = Counter + 1 + End If + Catch ex As Exception + MsgBox("Error in update Bestellnr:" & vbNewLine & ex.Message & vbNewLine & "Command copied to clipboard", MsgBoxStyle.Critical) + My.Computer.Clipboard.SetText(upd) + End Try + + 'TBSUPPLY_BESTELLUNGViewTableAdapter.cmdUpdateVAS(_VAS, file.Name, GUID) + Else + MsgBox("Achtung:" & vbNewLine & "Es liegt keine Bestellnummer für die Supply-ID: " & _SupplyID & " vor.") + End If + End If + Else + ClassLoggerSW.Add(">> Device is not defined for OrderImport: '" & Device & "'", False) + End If + End If + End If + End If + zaehler += 1 + Next + End If + + + End If + + 'For Each DC In DT.Columns + ' MsgBox(DC.ColumnName & vbNewLine & DC.Caption) + 'Next + Progress += 75 + Gesamtfiles += -1 + bwBestellungen_verarbeiten.ReportProgress(Progress) + If Counter > 0 Then + MoveFile(file.FullName, file.Name, pathBestellungen, pathBestellungen) + End If + + End If + Next + If Anzahl_Dateien <> 0 And Counter > 0 Then + MsgBox("Es wurde(n) " & Anzahl_Dateien & " Datei(en) erfolgreich verarbeitet!" & vbNewLine & _ + Counter & " Bestell-Nummern wurden erfolgreich upgedated.", MsgBoxStyle.Information, "Erfolgsmeldung:") + 'Me.Wertehilfen_fuellen() + Else + MsgBox("Keine Dateien zum Verarbeiten vorhanden oder" & vbNewLine & "die Dateizellen können nicht gelesen werden!" & vbNewLine & "Überwachter Ordner: " & vbNewLine & pathBestellungen, MsgBoxStyle.Exclamation, "Achtung:") + End If + End Sub + Private Function XLSReader(ByVal filepath As String, ByVal filename As String) + Try + 'Instanz des DataSet-Objektes instanzieren + Dim ds As New DataSet + 'Verbindungszeichenfolge festlegen, der Name der Excel-Datei wird als Parameter übergeben + Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath & ";" & _ + "Extended Properties=""Excel 8.0;""" + Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM [" & My.Settings.SheetnameBestellung & "$]", con) + 'DataSet füllen + da.Fill(ds) + Dim DT As System.Data.DataTable + DT = ds.Tables(0) + 'DataSet zurückgeben + Return ds + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei XLSReader:") + Return Nothing + End Try + End Function + Sub XML_verarbeiten() + Load_Config() + If Not Me.bwXMLverarbeiten.IsBusy Then + Try + ClassLoggerSW.Init("", "Supply_Watch", False) + tsProgressBar.Visible = True + tslbl_Files.Visible = True + Me.tsbtnAbbrechen.Visible = True + 'Anzahl der Files auslesen + Anzahl_Dateien = 0 + Gesamtfiles = 0 + Dim diPfad As New IO.DirectoryInfo(Me.pathImport) + For Each file As IO.FileInfo In diPfad.GetFiles() + If file.Name.EndsWith(".xml") Then + Gesamtfiles = Gesamtfiles + 1 + 'MsgBox(file.Name) + End If + Next + tslbl_Files.Text = "Noch zu verarbeiten: " & Gesamtfiles & " Files" + tsProgressBar.Maximum = Gesamtfiles * 100 + + bwXMLverarbeiten.RunWorkerAsync() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in XML-Verarbeiten:") + End Try + + Else + MsgBox("Der aktuelle Import läuft noch!", MsgBoxStyle.Exclamation, "ACHTUNG:") + End If + End Sub + _ + Private Sub bwXMLverarbeiten_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) + Try + Me.TBVERTRAG_NOTEXISTTableAdapter.Delete() + Dim diPfad As New IO.DirectoryInfo(pathImport) + Dim Progress As Integer = 0 + For Each file As IO.FileInfo In diPfad.GetFiles() + Dim vMarkt As String = "" + Dim vDatum As String = "" + Dim vVertrag As String = "" + Dim MANDANTEN_KZ As String = "" + Dim SUPPLYWATCH_AKTIV As Boolean = False + If file.Name.EndsWith(".xml") Then + ' MsgBox(file.Name) + Anzahl_Dateien = Anzahl_Dateien + 1 + Progress += 25 + bwXMLverarbeiten.ReportProgress(Progress) + 'Array für den Dateinamen + Dim ArrayDateiname() As String + Dim count As Integer + 'Array erstellen mit Trennzeichen "–" + If file.Name.Contains("–") Then + ArrayDateiname = file.Name.Split("–") + ElseIf file.Name.Contains("-") Then + ArrayDateiname = file.Name.Split("-") + End If + + MANDANTEN_KZ = Replace(ArrayDateiname(0), " ", "") + 'Auslesen ob Supplywatch für diesen Mandanten aktiv ist? + SUPPLYWATCH_AKTIV = TBMANDANTENTableAdapter.cmdCheckSW_aktiv(MANDANTEN_KZ) + 'Array Vertrag und Meldedatum erstellen erstellen mit Trennzeichen UNDERSCORE + Dim Vertrag_Arr As String() = Trim(ArrayDateiname(1)).ToString.Split("_") + vVertrag = Trim(Vertrag_Arr(0)) + 'MARKT + vMarkt = "ALL_IN" + 'Das Datum auswerten + vDatum = Trim(Vertrag_Arr(2)) + ClassLoggerSW.Add(" VERTRAG: " & vVertrag & " - Mandanten KZ: " & MANDANTEN_KZ & " - Meldedatum: " & vDatum & " - SW-Aktiv: " & SUPPLYWATCH_AKTIV.ToString, False) + + 'MsgBox(vDatum) + 'all_de_20100809_131313 + 'For count = 0 To strArr.Length - 1 + ' 'MsgBox(strArr(count).ToString) + 'Next + 'MsgBox(vMarkt) + 'MsgBox(file.Name & vbNewLine & vMarkt & vbNewLine & vDatum) + Me.TBGERAETE_NOTINLISTTableAdapter.cmdDeleteGeraete(vVertrag) + + If XMLReader(file.FullName, file.Name, vMarkt, vDatum, vVertrag, MANDANTEN_KZ, SUPPLYWATCH_AKTIV) = False Then + 'MsgBox("Datei: " & vbNewLine & file.FullName & vbNewLine & " wurde nicht verarbeitet!", MsgBoxStyle.Exclamation, "Achtung:") + Anzahl_Dateien = Anzahl_Dateien - 1 + End If + Progress += 75 + Gesamtfiles += -1 + bwXMLverarbeiten.ReportProgress(Progress) + End If + Next + If Anzahl_Dateien <> 0 Then + MsgBox("Es wurden " & Anzahl_Dateien & " Dateien erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:") + Me.Wertehilfen_fuellen() + Else + MsgBox("Keine Dateien zum Verarbeiten vorhanden!" & vbNewLine & "Überwachter Ordner: " & vbNewLine & pathImport, MsgBoxStyle.Exclamation, "Achtung:") + bwXMLverarbeiten.CancelAsync() + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei bwXMLverarbeiten:") + End Try + + End Sub + Private Sub bwBestellungenverarbeiten_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) + + If e.Cancelled Then + MsgBox("Der Importvorgang wurde abgebrochen.", MsgBoxStyle.Information, "Vorgang abgebrochen") + ElseIf e.Error IsNot Nothing Then + ' MsgBox("Fehler") + Else + 'frmImport_Report.ShowDialog() + ' MsgBox("Fertig") + End If + + Me.tsProgressBar.Visible = False + tslbl_Files.Visible = False + Me.Cursor = Cursors.Default + End Sub + Private Sub bwXMLverarbeiten_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) + + If e.Cancelled Then + MsgBox("Der Importvorgang wurde abgebrochen.", MsgBoxStyle.Information, "Vorgang abgebrochen") + ElseIf e.Error IsNot Nothing Then + ' MsgBox("Fehler") + Else + 'frmImport_Report.ShowDialog() + ' MsgBox("Fertig") + End If + + Me.tsProgressBar.Visible = False + tslbl_Files.Visible = False + Me.tsbtnAbbrechen.Visible = False + Me.Cursor = Cursors.Default + End Sub + Private Sub bwXMLverarbeiten_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) + 'Me.Cursor = Cursors.WaitCursor + 'MsgBox(e.ProgressPercentage) + Dim percent As Integer = e.ProgressPercentage + 'MsgBox(percent & vbNewLine & e.ProgressPercentage) + Me.tsProgressBar.Value = percent + tslbl_Files.Text = "Noch zu verarbeiten: " & Gesamtfiles & " File(s)" + 'If e.ProgressPercentage = 25 Then + ' 'Me.tsProgressBar.Minimum = 0 + ' 'Me.tsProgressBar.Maximum = 2 + ' Me.tsProgressBar.Value = e.ProgressPercentage + 'ElseIf e.ProgressPercentage = -3 Then + ' 'Me.lblProfilname.Text = Me._EmailProfile.Profilname + ' 'Me.lblDatei.Text = "" + 'ElseIf e.ProgressPercentage = -2 Then + ' Me.tsProgressBar.Value += 1 + 'ElseIf e.ProgressPercentage = -1 Then + ' 'Me.lblDatei.Text = Me.aktivesDokument.aName + ' Me.tsProgressBar.Value += 1 + 'Else + ' Me.tsProgressBar.Minimum = 0 + ' Me.tsProgressBar.Maximum = e.ProgressPercentage + ' Me.tsProgressBar.Value = 0 + 'End If + End Sub + Private Sub bwXLSverarbeiten_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) + 'Me.Cursor = Cursors.WaitCursor + 'MsgBox(e.ProgressPercentage) + Dim percent As Integer = e.ProgressPercentage + 'MsgBox(percent & vbNewLine & e.ProgressPercentage) + Me.tsProgressBar.Value = percent + tslbl_Files.Text = "Noch zu verarbeiten: " & Gesamtfiles & " File(s)" + End Sub + + Sub Export_Send_Data() + Try + Me.Cursor = Cursors.WaitCursor + ClassBWProfileExport.Init() + Dim dateiname As String + If ClassBWProfileExport.Profile IsNot Nothing Then + ClassLogger.Init("", "EmailReporting_", False) + 'Durchlauf für jedes Profil + For Each item As ClassBWProfilExport In ClassBWProfileExport.Profile + _EmailProfile = item + ' wenn das selektierte Profil gefunden wurde + If Me._EmailProfile IsNot Nothing Then + If Me._EmailProfile.Days <> "0000000" Or Me._EmailProfile.Days <> "" Then + Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek + If (Me._EmailProfile.Days.Substring(Dayofweek - 1, 1) = 1) And CDate(Me._EmailProfile._lastExport).ToShortDateString <> Now.Today.ToShortDateString Then + 'Verarbeitung soll heute durchgeführt werden + 'MsgBox("Soll heute ausgeführt werden" & vbNewLine & My.Computer.Clock.LocalTime.DayOfWeek & vbNewLine & Me._EmailProfile.Days.Substring(Dayofweek - 1, 1)) + ClassLogger.Add("", False) + ClassLogger.Add("Beginn der Exportverarbeitung : " & Now, False) + ClassLogger.Add(">> Starte Verarbeitung für Profil: " & _EmailProfile.Profilname, False) + + ' dient zum Überprüfen auf Fehler + Dim Fehler As Boolean = False + Dim result As String = "" + Dim verknüpfungZähler As Integer = 0 + + ' SQL-String für aktuelle Verknüpfung laden + Dim SqlString As String = Me._EmailProfile.vSQL_Anweisung + + ' wenn kein Fehler aufgetreten ist + If Not Fehler Then + Try + Dim _dir1 As New IO.DirectoryInfo(Me._EmailProfile.Path & "\Archiv") + Catch ex As Exception + IO.Directory.CreateDirectory(Me._EmailProfile.Path & "\Archiv") + End Try + Dim _dir As New IO.DirectoryInfo(Me._EmailProfile.Path & "\Archiv") + If _dir.Exists = False Then + IO.Directory.CreateDirectory(Me._EmailProfile.Path & "\Archiv") + End If + Dim SQL_ergebnis = "" + dateiname = Me._EmailProfile.Path & "\" & My.Computer.Clock.LocalTime.Year & "_" & My.Computer.Clock.LocalTime.Month & "_" & My.Computer.Clock.LocalTime.Day & "_" & Me._EmailProfile.Profilname & _ + "." & Me._EmailProfile.Format + ' die SQL-Abfrage durchführen (liefert den Wert der in den windream-Index geschrieben werden soll) + SQL_ergebnis = ExportDataFromMssqlDb(Me._EmailProfile.Profilname, dateiname, Me._EmailProfile.vSQL_Anweisung, My.Settings.ConfigConnectionString, Me._EmailProfile.Format) + + If SQL_ergebnis = "Nothing" Then + result &= " => kein SQL-ergebnis" + + ElseIf SQL_ergebnis = "Fehler" Then + Fehler = True + End If + + If Not Fehler Then + ClassLogger.Add(" => Erfolgsmeldung: Datei: '" & dateiname & "' wurde ERFOLGREICH ERZEUGT ", False) + + If Me._EmailProfile.Email = True Then + Do While file_inuse(Resultdatei) = True + System.Threading.Thread.Sleep(1000) + ClassLogger.Add(" => Datei in Benutzung " & Now.ToShortTimeString, False) + Loop + ClassLogger.Add(" => Datei ist nicht mehr in Benutzung", False) + Dim empfaenger As String() + If Me._EmailProfile.Emailto.Contains(";") Then + empfaenger = Me._EmailProfile.Emailto.Split(";") + Else + ReDim Preserve empfaenger(0) + empfaenger(0) = Me._EmailProfile.Emailto + End If + ClassLogger.Add(" => Anzahl der Email-Empfänger: " & empfaenger.Count, False) + 'Für jeden Empfänger eine Neue Mail erzeugen + For Each _mailempfaenger As String In empfaenger + Dim email As New ClassBWExportEmail + 'Die Mail zusammenbauen und versenden + With email + .Absender(Me._EmailProfile.Emailfrom, Me._EmailProfile.EmailAbsender) + .Empfänger(_mailempfaenger, _mailempfaenger) + .Nachricht(Me._EmailProfile.EmailBetreff, "" & Me._EmailProfile.EmailBody & "
Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _ + My.Computer.Clock.LocalTime.ToLongTimeString & "") + .Nachricht_Einstellungen(True, Net.Mail.MailPriority.Normal) + .Anlage(Resultdatei) + .Senden_MitAuthenzierung(Me._EmailProfile.EmailUser, Me._EmailProfile.EmailPW, Me._EmailProfile.EmailSMTP) + ClassLogger.Add(" => Email wurde ERFOLGREICH an '" & _mailempfaenger & "' versendet!", False) + End With + Next + + If Me._EmailProfile.emailbest <> "" Then + 'Bestätigungsemail versenden + Dim bempfaenger As String() + If Me._EmailProfile.emailbest.Contains(";") Then + bempfaenger = Me._EmailProfile.emailbest.Split(";") + Else + ReDim Preserve bempfaenger(0) + bempfaenger(0) = Me._EmailProfile.emailbest + End If + ClassLogger.Add(" => Anzahl der Bestätigungsempfänger: " & bempfaenger.Count, False) + 'Für jeden Empfänger eine Neue Mail erzeugen + For Each _bmailempfaenger As String In bempfaenger + Dim bemail As New ClassBWExportEmail + With bemail + .Absender(Me._EmailProfile.Emailfrom, Me._EmailProfile.EmailAbsender) + .Empfänger(_bmailempfaenger, _bmailempfaenger) + .Nachricht(Me._EmailProfile.EmailBetreff & " - Bestätigung", " Email für das Profil: " & Me._EmailProfile.Profilname & " wurde erfolgreich versendet!
" & "Datei: " & dateiname & "
Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _ + My.Computer.Clock.LocalTime.ToLongTimeString & "") + .Nachricht_Einstellungen(True, Net.Mail.MailPriority.Normal) + .Anlage(Resultdatei) + .Senden_MitAuthenzierung(Me._EmailProfile.EmailUser, Me._EmailProfile.EmailPW, Me._EmailProfile.EmailSMTP) + ClassLogger.Add(" => Bestätigungs-Email wurde ERFOLGREICH an '" & _bmailempfaenger & "' versendet!", False) + End With + Next + End If + End If + 'bw_Profil.ReportProgress(-2) + End If + ClassLogger.Add("", False) + ClassLogger.Add("", False) + End If + + ' wenn kein Fehler aufgetreten ist + If Not Fehler Then + '############################################################################################### + '#### Hintergrundverarbeitung ################################################################## + _EmailProfile.lastExport = Now.Date.ToShortDateString + _EmailProfile.Save(False) + ' Dateiname extrahieren + Dim sFile As String = IO.Path.GetFileName(dateiname) + Dim Zielname As String = Me._EmailProfile.Path & "\Archiv\" & sFile + MsgBox("Es wurde/n soeben eine/mehrere Reporting-Mail/s für das Profil: " & Me._EmailProfile.Profilname & " versendet!", MsgBoxStyle.Information, "Hinweis:") + 'System.IO.File.Move(dateiname, Zielname) + 'ClassLogger.Add(" => Datei erfolgreich in Archiv verschoben!", False) + '#### Ende ##################################################################### + '############################################################################################### + Else + ClassLogger.Add("Exportverarbeitung-ExportProfildaten", "Fehler bei ExportProfildaten für das Profil: " & Me._EmailProfile.Profilname) + End If + Fehler = False + + Else + + End If + Else + + End If + Else + + End If + Next + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Export_Send_Data:") + End Try + Me.Cursor = Cursors.Default + End Sub + ' führt eine SQL-Anweisung auf der DB aus + Public Function ExportDataFromMssqlDb(ByVal profilname As String, ByVal dateiname As String, ByVal selectAnweisung As String, ByVal _CS As String, ByVal Format As String) ' + Dim anzahl As Integer + Try + ClassLogger.Add(" => MS-SQL: Ausführung von MSSQL", False) + ' die nötigen Variablen definieren + + Dim Connection As SqlConnection = Nothing + Dim Command As SqlCommand = Nothing + Dim DataAdapter As SqlDataAdapter = Nothing + ' ConnectionString aufbauen (aus Settings auslesen) + + + ' Verbindung zur Datenbank aufbauen + Try + Connection = New SqlConnection(_CS) + Connection.Open() + Catch ex As Exception + ClassLogger.Add("ClassBGExportDatenbankzugriff.GetValueFromMssqlDb", "Verbindung zur Datenbank aufbauen", ex) + ' DB-Connection schliessen + Connection.Close() + Return "Fehler" + End Try + + Try + ' Datenadapter definieren + Dim da As New SqlDataAdapter(selectAnweisung, Connection) + Dim ds As New DataSet + da.Fill(ds) + + If ds.Tables(0).Rows.Count > 0 Then + 'Setzt das Code-Format auf ASCII + Dim dt As DataTable = ds.Tables(0) + anzahl = ds.Tables(0).Rows.Count + If Format = "csv" Then + Resultdatei = ProduceCSV(dt, dateiname, True) + + ElseIf Format = "xlsx" Then + Resultdatei = Produce_xlsx(ds, "Tabelle1", dateiname) + End If + + Return ds.Tables(0).Rows.Count + Else + Return Nothing + End If + + Return True + Catch ex As Exception + If ex.Message.StartsWith("Ein COM-Objekt") = False Then + ClassLogger.Add("GetValueFromMssqlDb", "Datenabruf", ex) + ' DB-Connection schliessen + Return "Fehler" + Else + Return anzahl + End If + Connection.Close() + End Try + Catch ex As Exception + ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden + ClassLogger.Add("GetValueFromMssqlDb", "Ein unbekannter Fehler in GetValuesFromDb.", ex) + Return "Fehler" + End Try + End Function +#Region "CSVExcelProducer" + Public Shared Function ProduceCSV(ByVal dt As DataTable, ByVal dateiname As String, ByVal WriteHeader As Boolean) + Dim newname As String = dateiname + Do While System.IO.File.Exists(newname) + newname = IO.Path.GetDirectoryName(dateiname) & "\" & Now.Hour & "_" & Now.Minute & "_" & IO.Path.GetFileName(dateiname) + Loop + Dim sw As New System.IO.StreamWriter(newname, False, System.Text.Encoding.Default) + Dim i As Int32 + Dim j As Int32 + If (WriteHeader) Then + Dim arr(dt.Columns.Count) As String + For i = 0 To dt.Columns.Count - 1 + arr(i) = dt.Columns(i).ColumnName + arr(i) = GetWriteableValue(arr(i)) + Next + sw.WriteLine(String.Join(";", arr)) + End If + + For j = 0 To dt.Rows.Count - 1 + Dim dataArr(dt.Columns.Count - 1) As String + For i = 0 To dt.Columns.Count - 1 + Dim o As Object = dt.Rows(j)(i) + dataArr(i) = GetWriteableValue(o) + Next + sw.WriteLine(String.Join(";", dataArr)) + Next + sw.Close() + ClassLogger.Add(" ==> Datei: " & dateiname & " wurde erfolgreich erzeugt", False) + Return newname + End Function + + Public Shared Function GetWriteableValue(ByVal o As Object) As String + If o Is Nothing OrElse IsDBNull(o) Then + Return "" + ElseIf (o.ToString().IndexOf(";") = -1) Then + Return o.ToString() + Else + If o.ToString.Contains("; ") Then + o.ToString.Replace("; ", "-") + End If + 'Return "\"" + o.ToString() + " \ "" + End If + End Function +#End Region + Private Function Produce_xlsx(ByVal vDataset As DataSet, ByVal vSheet_Name As String, ByVal Dateiname As String) + Dim newname As String = Dateiname + Do While System.IO.File.Exists(newname) + newname = IO.Path.GetDirectoryName(Dateiname) & "\" & Now.Hour & "_" & Now.Minute & "_" & IO.Path.GetFileName(Dateiname) + Loop + Dim xlApp As Excel.Application + Dim xlWorkBook As Excel.Workbook + Dim xlWorkSheet As Excel.Worksheet + Dim misValue As Object = System.Reflection.Missing.Value + + + xlApp = New Excel.Application + xlWorkBook = xlApp.Workbooks.Add(misValue) + xlWorkSheet = xlWorkBook.Sheets(vSheet_Name) + 'xlWorkSheet.Cells(1, 1) = "http://vb.net-informations.com" + xlsApp = xlApp + 'Schreiben der Daten + 'Die Datatable definieren + Dim dt As DataTable + dt = vDataset.Tables(0) + + 'Add the column headings for the Customers + Dim dc As DataColumn + Dim iCols As Int32 = 0 + For Each dc In dt.Columns + xlApp.Range("A1").Offset(0, iCols).Value = dc.ColumnName + iCols += 1 + Next + + 'Add the data + Dim iRows As Int32 + For iRows = 0 To dt.Rows.Count - 1 + xlApp.Range("A2").Offset(iRows).Resize(1, iCols).Value = dt.Rows(iRows).ItemArray() + Next + With xlApp.ActiveSheet.Range("A1") + .AutoFilter() + .AutoFormat(Excel.XlRangeAutoFormat.xlRangeAutoFormatSimple) 'xlRangeAutoFormatSimple + End With + 'Ende + xlWorkSheet.SaveAs(newname) + killExcelInstanceById(xlApp) + + releaseObject(xlApp) + releaseObject(xlWorkBook) + releaseObject(xlWorkSheet) + Return newname + 'xlWorkBook.Close() + 'xlApp.Quit() + End Function + ''Beenden eines speziellen Excel Prozesses, anhand seiner Id + Private Shared Sub killExcelInstanceById(ByRef xlsApp As Excel.Application) + Dim processId As IntPtr + ''API Funktion, out val: processId + GetWindowThreadProcessId(xlsApp.Hwnd, processId) + ''Prozess erstellen + Dim excelProcess As Process = Process.GetProcessById(processId.ToInt32()) + ' MsgBox("processId: " & processId.ToString & vbNewLine & excelProcess.ProcessName) + ''die lang ersehnte Erlösung, für den speziellen Excel Process der XlsApp :) + excelProcess.Kill() + ' MsgBox("wurde gekillt") + End Sub + + + Private Sub releaseObject(ByVal obj As Object) + Try + System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) + obj = Nothing + Catch ex As Exception + obj = Nothing + Finally + GC.Collect() + End Try + End Sub + ''Zugang zur API ''user32'' + Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As IntPtr) As IntPtr + Public Class Insert_String + Public Typ As String + Public Value As String + Public Sub New(ByVal lBezeichnung As String, ByVal iValue As String) + Typ = lBezeichnung + Value = iValue + End Sub + + Public Sub New() + End Sub + End Class + + Private Function XMLReader(filepath As String, filename As String, Markt As String, vDatum As String, vVertrag As String, KD_KZ As String, SW_aktiv As Boolean) + Dim file_verarbeitet As Boolean + 'Direkt überprüfen ob der Vertrag gültig ist! + If Me.TBVERTRAG_NOTEXISTTableAdapter.cmdVertragNotIn(vVertrag) > 0 Then + MsgBox("Vertrag " & vVertrag & " existiert nicht!!!!" & vbNewLine & "Datei wird in Ordner:" & vbNewLine & pathImport & "\Fehler\" & vbNewLine & " verschoben", MsgBoxStyle.Critical, "Achtung:") + marker &= vbNewLine & "==> VERTRAG " & vVertrag & " EXISTIERT NICHT" + MoveFile(filepath, filename, pathImport, pathImportArchiv, True) + file_verarbeitet = False + Return file_verarbeitet + Exit Function + End If + Dim A3DuplexSheets As Integer = 0, + A3SimplexSheets As Integer = 0, + A4DuplexSheets As Integer = 0, + A4SimplexSheets As Integer = 0, + A3ColorTotalImpressions As Integer = 0, + A3MonoTotalImpressions As Integer = 0, + A4ColorTotalImpressions As Integer = 0, + A4MonoTotalImpressions As Integer = 0, + A3TotalImages As Integer = 0, + A4TotalImages As Integer = 0, + PPUTotalCopyPageCount As Integer = 0, + ScanA3Total As Integer = 0, + ScanA4Total As Integer = 0 + Dim AverageBlackCoverage As Decimal = 0, + AverageCyanCoverage As Decimal = 0, + AverageMagentaCoverage As Decimal = 0, + AverageYellowCoverage As Decimal = 0 + + Dim _Feldbezeichnung, _xmlKnoten As String + + Geraet_inserted = False + + Dim Supply_inserted As Boolean = False + Dim _startInsert As Boolean = False + + 'Try + 'If Meldedatum_eintragen(Markt, vDatum) = False Then + ' MsgBox("Achtung: Meldedatum konnte nicht eingetragen werden!" & vbNewLine & "Bitte verständigen sie: Digital Data " & vbNewLine & "Einlesevorgang wird fortgesetzt!") + 'End If + Dim vGeraeteZaehler As Integer = 1 + Dim LastGERAETID As Integer + + ' Wir benötigen einen XmlReader für das Auslesen der XML-Datei + Dim _XMLReader As Xml.XmlReader = New Xml.XmlTextReader(filepath) + marker = "############################################################################" + ClassLoggerSW.Add("############################################################################", False) + marker = "Start des Verarbeitens für File: " & filepath + ClassLoggerSW.Add("Start des Verarbeitens für File: " & filepath, False) + ClassLoggerSW.Add("Uhrzeit: " & Now, False) + marker &= vbNewLine & Now + ' Es folgt das Auslesen der XML-Datei + With _XMLReader + Dim Geraetezaehler As Integer = 0 + + Do While .Read ' Es sind noch Daten vorhanden + ' Welche Art von Daten liegt an? + Select Case .NodeType + + ' Ein Element + Case Xml.XmlNodeType.Element + If .Name = "Device" Or .Name = "Devices" Then + _xmlKnoten = .Name + If _xmlKnoten = "Device" Then + 'MsgBox("Es folgt ein Element vom Typ " & _xmlKnoten & vbNewLine & "Zähler: " & vGeraeteZaehler, MsgBoxStyle.Information, .HasValue.ToString) + ClassLoggerSW.Add("## NEUES GERÄT - Geräte-Zähler: " & vGeraeteZaehler & " ##", False) + ClassLoggerSW.Add("Beginn: " & Now, False) + marker &= vbNewLine & "## NEUES GERÄT - Geräte-Zähler: " & vGeraeteZaehler & "##" + marker = "################# ABLAUFVERFOLGUNG für Device ###################" + 'Zurücksetzen damit der Insert erfolgen kann + Geraet_inserted = False + ' Jetzt die gesamten Daten durchlaufen um das Gerät zu inserten + 'MsgBox(ListeInsert.Count.ToString) + End If + Else + 'Hier ist klar, es handelt sich um eine Deviceeigenschaft/ ein Supply + _xmlKnoten = .Name + _Feldbezeichnung = .Name + If _Feldbezeichnung.ToLower = "averageyellowcoverage" Then + _startInsert = True + End If + 'MsgBox("Es folgt ein Element vom Typ " & _xmlKnoten & vbNewLine & "Zähler: " & vGeraeteZaehler, MsgBoxStyle.Information, .HasValue.ToString) + End If + + Case Xml.XmlNodeType.Text + ' MsgBox("Es folgt ein Text: " & .Value) + 'If Geraetezaehler <> 0 or _xmlKnoten = "Device" Then + If .Value <> "" Or .Value <> "" Then + marker &= vbNewLine & "Feldbezeichnung: " & _Feldbezeichnung & " - Value: " & .Value + 'MsgBox(Feldbezeichnung.ToLower) + Dim Insert As New Insert_String(_Feldbezeichnung, .Value) + ListeInsert.Add(Insert) + Else + 'MsgBox(" .Value = Or .Value = ", MsgBoxStyle.Critical, vGeraete_Bez & " - " & vSerienNr) + End If + + If _startInsert = True Then 'Es kann der Insert erfolgen, da der letzte EigenschaftenTag ausgewertet wurde + + 'If vSerienNrGeraet <> "" Or vSerienNrGeraet <> "" Or vSerienNrGeraet <> "" Then + 'Den Geräteverfolgungsdatensatz inserten + 'MsgBox("Vertrag: " & vVertrag & " Gerät: " & vGeraete_Bez & vbNewLine & "ModelNR: " & vModelNr & vbNewLine & "IP: " & vIP & vbNewLine & "SN:" & vSerienNrGeraet & vbNewLine & "PC: " & vPagecount & vbNewLine & _ + ' "File: " & filename & vbNewLine & Markt & vbNewLine & vDatum, MsgBoxStyle.Information, "Insert Gerät") + + marker &= vbNewLine & "2. Den Geräteverfolgungsdatensatz für Seriennummer " & vSerienNrGeraet & " inserten" + + 'ERST den Gerätekopf inserten + If Insert_Geraet(Markt, filename, vDatum, vVertrag, KD_KZ) = True Then + 'Letzte Geräte ID + LastGERAETID = Me.TBGERAETTableAdapter.cmdGetGERAET_ID(vSerienNrGeraet) + ClassLoggerSW.Add(" ==> Geraete-ID:" & LastGERAETID.ToString, False) + Geraet_inserted = True + _startInsert = False + 'Jetzt der Insert der zugehörigen Supplies + If SW_aktiv = True Then + 'NUR WENN SW AKTIV ist + If Insert_Supply(filename, vSerienNrGeraet, LastGERAETID, vDatum) = True Then + + End If + Else + + End If + ListeInsert.Clear() + 'Hochsetzen des Gerätezählers + vGeraeteZaehler = vGeraeteZaehler + 1 + 'Geraetezaehler = .Name & " " & vGeraeteZaehler + Geraet_inserted = False + Supply_inserted = False + ClassLoggerSW.Add(" Daten zu Gerät " & vSerienNrGeraet & " wurden erfolgreich verarbeitet! - " & Now, False) + marker &= vbNewLine & "################# ENDE ABLAUFVERFOLGUNG GERÄT#########################" + ClassLoggerSW.Add("", False) + + Else + _startInsert = False + Return file_verarbeitet = False + End If + 'Else + ' If vSerienNrGeraet = "" Then + ' ' MsgBox("") + ' End If + 'End If + End If + + ' Ein Kommentar + 'Case Xml.XmlNodeType.Comment + ' MsgBox("Es folgt ein Kommentar: " & .Value) + End Select + + Loop ' Weiter nach Daten schauen + '####################################################################################### + ' MsgBox("Letzter Datensatz") + + .Close() ' XMLTextReader schließen + End With + 'Die XML-File bei Erfolg verschieben + MoveFile(filepath, filename, pathImport, pathImportArchiv) + marker &= vbNewLine & "4. MoveFile erfolgreich durchlaufen" + ClassLoggerSW.Add("############## ==> File erfolgreich verarbeitet - " & Now & "##################################", False) + ClassLoggerSW.Add("", False) + file_verarbeitet = True + + Return file_verarbeitet + 'Catch ex As Exception + ' ClassLoggerSW.Add("###################### ACHTUNG FEHLER:- " & Now & " " & Now.Millisecond & " #############################################", False) + ' ClassLoggerSW.Add("Marker #############################################################", False) + ' ClassLoggerSW.Add(marker, False) + ' ClassLoggerSW.Add("###################################################################", False) + ' ClassLoggerSW.Add("FEHLERMELDUNG: " & ex.Message, False) + ' MsgBox("Fehler bei Dateiverarbeitung: " & vbNewLine & "Datei: " & filename & vbNewLine & "Gerät-SN Nummer: " & vSerienNrGeraet & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei XML-Reader") + ' MsgBox("Überprüfen Sie die LogFile", MsgBoxStyle.Critical, "Hinweis:") + ' file_verarbeitet = False + ' Return file_verarbeitet + 'End Try + End Function + Public Function Insert_Geraet(Markt As String, filename As String, Datum As String, vVertrag As String, vKD_KZ As String) + Dim vPagecount, A3DuplexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, A3TotalColorImpressions, A3TotalMonoImpression, A4TotalMonoImpressions, A4ColorTotalImpressions As Integer + Dim ScanA3TotalImages, ScanA4TotalImages, FaxIncoming As Integer + Dim AverageBlackCoverage, AverageCyanCoverage, AverageMagentaCoverage, AverageYellowCoverage As Double + vSerienNrGeraet = "" + + Try + vPORT_DISPLAY = Nothing + For i = 0 To ListeInsert.Count - 1 + Dim Value As String = ListeInsert.Item(i).Value + Select Case ListeInsert.Item(i).Typ.ToLower + Case "ipv4address".ToLower + vIP = Value + marker &= vbNewLine & "- ipv4address: " & vIP + + Case "PortDisplayString".ToLower + vPORT_DISPLAY = Value + marker &= vbNewLine & "- portdisplaystring: " & vPORT_DISPLAY + Case "displayname".ToLower + vGeraete_Bez = Value + marker &= vbNewLine & "- vgeraete_bez: " & vGeraete_Bez + Case "serialnumber".ToLower + If vSerienNrGeraet = "" Then + vSerienNrGeraet = Value + If vSerienNrGeraet.ToLower = "" Or vSerienNrGeraet.ToLower = "" Or vSerienNrGeraet.ToLower = "" Or _ + vSerienNrGeraet.ToLower.StartsWith("<") Or vSerienNrGeraet.Length < 6 Or vSerienNrGeraet.ToLower = "" Then + vSerienNrGeraet = "" + End If + + marker &= vbNewLine & "- vseriennrgeraet: " & vSerienNrGeraet + End If + + ' msgbox("1 " & vseriennrgeraet) + Case "pagecount".ToLower + If IsNumeric(Value) Then + vPagecount = Value + Else + vPagecount = "0" + End If + marker &= vbNewLine & "- vpagecount: " & vPagecount + Case "pagecountdigitalsend" + If IsNumeric(Value) Then + vPagecount = Value + Else + vPagecount = "0" + End If + marker &= vbNewLine & "- vpagecount: " & vPagecount + Case "printusage.totalimpressions" + If IsNumeric(Value) Then + vPagecount = Value + Else + vPagecount = "0" + End If + marker &= vbNewLine & "- printusage.totalimpressions: " & vPagecount + + + Case "devicemodelnumber".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + vModelNr = "" + Else + vModelNr = Value + End If + marker &= vbNewLine & "- vmodelnr: " & vModelNr + '######### A3 Duplex Sheets ############## + Case "printsheetusage.isoandjisa3.duplexsheets".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + A3DuplexSheets = 0 + Else + A3DuplexSheets = Value + End If + '######### A3 Simplex Sheets ############## + Case "printsheetusage.isoandjisa3.simplexsheets".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + A3SimplexSheets = 0 + Else + A3SimplexSheets = Value + End If + '######### A4 Duplex Sheets ############## + Case "printsheetusage.isoandjisa4.duplexsheets".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + A4DuplexSheets = 0 + Else + A4DuplexSheets = Value + End If + '######### A4 Simplex Sheets ############## + Case "printsheetusage.isoandjisa4.simplexsheets".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + A4SimplexSheets = 0 + Else + A4SimplexSheets = Value + End If + '######### A3 Total Color ############## + Case "printusage.isoandjisa3.totalcolorimpressions".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + A3TotalColorImpressions = 0 + Else + A3TotalColorImpressions = Value + End If + Case "printusage.isoandjisa3.color.totalimpressions".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + A3TotalColorImpressions = 0 + Else + A3TotalColorImpressions = Value + End If + '######### A3 Total Mono ############## + Case "printusage.isoandjisa3.totalmonoimpressions".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + A3TotalMonoImpression = 0 + Else + A3TotalMonoImpression = Value + End If + Case "printusage.isoandjisa3.mono.totalimpressions".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + A3TotalMonoImpression = 0 + Else + A3TotalMonoImpression = Value + End If + '######### A4 Total Color ############## + Case "printusage.isoandjisa4.totalcolorimpressions".ToLower + ' PrintUsage.ISOandJISA4.Color.TotalImpressions() + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + A4ColorTotalImpressions = 0 + Else + A4ColorTotalImpressions = Value + End If + Case "printusage.isoandjisa4.color.totalimpressions".ToLower + ' PrintUsage.ISOandJISA4.Color.TotalImpressions() + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + A4ColorTotalImpressions = 0 + Else + A4ColorTotalImpressions = Value + End If + '######### A4 Total Mono ############## + Case "printusage.isoandjisa4.totalmonoimpressions".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + A4TotalMonoImpressions = 0 + Else + A4TotalMonoImpressions = Value + End If + Case "scanusage.isoandjisa3.totalimages".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + ScanA3TotalImages = 0 + Else + ScanA3TotalImages = Value + End If + Case "scanusage.isoandjisa4.totalimages".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + ScanA4TotalImages = 0 + Else + ScanA4TotalImages = Value + End If + Case "pagecountfaxincoming" + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + FaxIncoming = 0 + Else + FaxIncoming = Value + End If + Case "averageblackcoverage".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + AverageBlackCoverage = CDec(0) + Else + AverageBlackCoverage = CDec(Value) + End If + Case "averagecyancoverage".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + AverageCyanCoverage = CDec(0) + Else + AverageCyanCoverage = CDec(Value) + End If + Case "averagemagentacoverage".ToLower + If Value = "" Or Value = "" Or Value.StartsWith("<") Or Value Is Nothing Then + AverageMagentaCoverage = CDec(0) + Else + AverageMagentaCoverage = CDec(Value) + End If + Case "averageyellowcoverage".ToLower + If (Value = "") Or (Value = "") Or (Value.StartsWith("<")) Or (Value Is Nothing) Then + AverageYellowCoverage = CDec(0) + Else + AverageYellowCoverage = CDec(Value) + End If + End Select + Next + If vPORT_DISPLAY Is Nothing Then + vPORT_DISPLAY = "NOT SPECIFIED" + End If + 'Jetzt könnte der Insert für das Gerät erfolgen + 'If vSerienNrGeraet <> "" Then + ' MsgBox(vVertrag) + + 'Den Geräteverfolgungsdatensatz inserten + 'MsgBox("Vertrag: " & vVertrag & " Gerät: " & vGeraete_Bez & vbNewLine & "ModelNR: " & vModelNr & vbNewLine & "IP: " & vIP & vbNewLine & "SN:" & vSerienNrGeraet & vbNewLine & "PC: " & vPagecount & vbNewLine & _ + ' "File: " & filename & vbNewLine & Markt & vbNewLine & vDatum, MsgBoxStyle.Information, "Insert Gerät") + ' MsgBox("1.1 " & vSerienNrGeraet) + marker &= vbNewLine & "2. Den Geräteverfolgungsdatensatz " & vSerienNrGeraet & " inserten" + ' MsgBox("2 " & vSerienNrGeraet) + Me.TBGERAETE_VERFOLGUNGTableAdapter.cmdinsert(vGeraete_Bez, vIP, vSerienNrGeraet, vPagecount, Markt, filename, Datum, vVertrag, vModelNr, A3DuplexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, A3TotalColorImpressions, _ + A3TotalMonoImpression, A4TotalMonoImpressions, A4ColorTotalImpressions, AverageBlackCoverage, AverageCyanCoverage, AverageMagentaCoverage, AverageYellowCoverage, ScanA3TotalImages, ScanA4TotalImages, vKD_KZ, FaxIncoming, ScanA4TotalImages, ScanA3TotalImages, vPORT_DISPLAY) + + ClassLoggerSW.Add(" ==> Gerät inserted: " & vGeraete_Bez & " - " & vSerienNrGeraet, False) + Return True + 'Else + 'Return False + ''If vSerienNrGeraet = "" Then + '' ' MsgBox("") + ''End If + 'End If + Catch ex As Exception + ClassLoggerSW.Add("###################### ACHTUNG FEHLER:- " & Now & " " & Now.Millisecond & " #############################################", False) + ClassLoggerSW.Add("Marker #############################################################", False) + ClassLoggerSW.Add(marker, False) + ClassLoggerSW.Add("###################################################################", False) + ClassLoggerSW.Add("FEHLERMELDUNG: " & ex.Message, False) + MsgBox("Fehler bei Insert des Gerätedatensatzes:" & vbNewLine & "Datei: " & filename & vbNewLine & "Gerät-SN Nummer: " & vSerienNrGeraet & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei InsertGerät") + + MsgBox("Überprüfen Sie die LogFile", MsgBoxStyle.Critical, "Hinweis:") + Return False + End Try + + End Function + Public Function Insert_Supply(vfilename As String, vSerienNrGeraet As String, LastGERAETID As String, vDatum As String) + Try + Dim vSupply_String, vLevel, vPartNumber, vProductNumber, vSerial As String + Dim insertSupply As Boolean = False + '###### Der Insert der Supplys - Hierfür die List noch einmal durchlaufen + For i = 0 To ListeInsert.Count - 1 + Dim Value As String = ListeInsert.Item(i).Value + Dim SupplyString As String = ListeInsert.Item(i).Typ.ToLower + + 'Berücksichtige nur Supply und Marker Strings + If SupplyString.ToLower.StartsWith("supp") Or SupplyString.ToLower.StartsWith("marker") Then + 'MsgBox("Value: " & Value & vbNewLine & "SupplyString: " & SupplyString) + 'Splitten des XML-Flags - Ziel: Typen bestimmen und Parameter auslesen + Dim Arr() As String + Dim _xmltag As String + Arr = ListeInsert.Item(i).Typ.Split(".") + Dim _TypID As Integer + 'Dim _parameter As String + If Arr.Length > 1 Then + If Arr(1) = "All" Then + 'ein Supply + _xmltag = Arr(0) & "." & Arr(1) & "." & Arr(2) + _TypID = 1 + ' MsgBox(Arr(1).ToString, MsgBoxStyle.Information, "Arr(1) = All") + ElseIf Arr(0).ToString.EndsWith("Kit") Then + 'Transfer oder Fuserkit + _xmltag = Arr(0) + _TypID = 4 + ElseIf Arr(0) = "Supplies" And Arr(1).ToLower = "maintenancekit" Then + 'Maintenance Kit + _xmltag = Arr(0) & "." & Arr(1) + _TypID = 5 + Else + 'eine Drum + _xmltag = Arr(0) + _TypID = 2 + ' MsgBox(Arr(0).ToString, MsgBoxStyle.Information, "Else Drum") + End If + Else + 'Entweder ein Marker Supply + If Arr(0).ToString.ToLower.StartsWith("markersupplies") Then + 'ein MarkerSupply + _xmltag = Arr(0) + _TypID = 3 + 'MsgBox(Arr(0).ToString, MsgBoxStyle.Information, "Arr(0).StartsWith(Markersupplies") + End If + End If + If vSupply_String = "" Then + 'erstes Supply-Tag + vSupply_String = _xmltag + 'MsgBox("ERSTES Supply: " & _xmltag) + 'zurücksetzten der Insert-Parameter + vPartNumber = "" + vProductNumber = "" + vLevel = "" + vSerial = "" + End If + 'Select Case _TypID + ' Case 1 'Supply/Trasnsfer/Fuser + ' _parameter = Arr(3) + ' Case 2 + ' _parameter = Arr(1) + ' Case 3 + ' _parameter = Arr(0) + 'End Select + If vSupply_String <> _xmltag Then + 'Neues Supply + 'MsgBox("ein NEUES Supply" & vbNewLine & vSupply_String, MsgBoxStyle.Information, _TypID.ToString) + vSupply_String = _xmltag + 'zurücksetzten der Insert-Parameter + vPartNumber = "" + vProductNumber = "" + vLevel = "" + vSerial = "" + Else + 'MsgBox("Folgewert") + End If + + If SupplyString.ToLower.EndsWith("partnumber") Then + vPartNumber = Value + 'If vSupply_String.EndsWith("SupplyTransferKit") And vSerienNrGeraet = "JPBTB4GHG1" Then + ' MsgBox(Trim(Value).ToString) + 'End If + + If vPartNumber = "" Or Trim(vPartNumber) = "" Or Trim(Value).StartsWith("<") Then + vPartNumber = "" + End If + End If + If SupplyString.ToLower.EndsWith("level") Then + vLevel = Value + 'If vSupply_String.EndsWith("SupplyTransferKit") And vSerienNrGeraet = "JPBTB4GHG1" Then + ' MsgBox(Trim(Value).ToString) + 'End If + If IsNumeric(vLevel) = False Then + vLevel = "201" + End If + End If + If SupplyString.ToLower.EndsWith("serialnumber") Then + vSerial = "" + vSerial = Value + 'If vSupply_String.EndsWith("SupplyTransferKit") And vSerienNrGeraet = "JPBTB4GHG1" Then + ' MsgBox(Trim(Value).ToString) + 'End If + If vSerial = "" Or Trim(Value) = "" Or Trim(Value).StartsWith("<") Then + vSerial = "" + End If + If vSerial.Length = 0 Or vSerial = "" Then + vSerial = "" + End If + End If + If SupplyString.ToLower.EndsWith("approxpercentremaining") Or SupplyString.ToLower.EndsWith("approxpercentremaining title") Then + vLevel = Value + 'If vSupply_String.EndsWith("SupplyTransferKit") And vSerienNrGeraet = "JPBTB4GHG1" Then + ' MsgBox(Trim(Value).ToString) + 'End If + If IsNumeric(vLevel) = False Then + vLevel = "201" + End If + End If + If SupplyString.ToLower.StartsWith("markersupplieslevel") And _TypID = 3 Then + 'Änderung am 11.09.2012, vorher markersuppl am Ende des tags + 'Bei MarkerSupplies gibt es nur Level + marker &= vbNewLine & "==>Ein MarkerSupply - also existieren nur Level-Tags" + vLevel = Value + vPartNumber = "4711part" + vSerial = "4711Serial" + vProductNumber = "4711product" + + If IsNumeric(vLevel) = False Then + vLevel = "201" + End If + End If + If SupplyString.ToLower.EndsWith("productnumber") Then + vProductNumber = Value + If vProductNumber = "" Or Trim(Value) = "" Or Trim(Value).StartsWith("<") Then + vProductNumber = "" + End If + End If + If _TypID = 4 Or _TypID = 5 Then + 'Änderung am 19.06.2013, vorher markersuppl am Ende des tags + 'Bei Kits gibt es nur Level und/ oderPartnumber + marker &= vbNewLine & "==>Ein TransferKit bzw Maintenance - also interessieren nur Level-Tags" + vSerial = "4711Serial" + vProductNumber = "4711product" + vPartNumber = "4711part" + End If + + 'MsgBox("vSupply_String: " & vSupply_String & vbNewLine & "vLevel: " & vLevel & vbNewLine & "vSerial: " & vSerial & vbNewLine & "vProductNumber: " & vProductNumber _ + ' & vbNewLine & "vPartNumber: " & vPartNumber) + 'Überprüfung ob Insert erfolgen kann? + If vLevel <> "" And vSerial <> "" Then + If vPartNumber <> "" And vProductNumber <> "" Then + insertSupply = True + Else + If vPartNumber <> "" Then + vProductNumber = vPartNumber + insertSupply = True + Else + If vProductNumber <> "" Then + vPartNumber = vProductNumber + insertSupply = True + End If + End If + End If + Else + insertSupply = False + End If + 'If vSupply_String.EndsWith("SupplyTransferKit") And vSerienNrGeraet = "JPBTB4GHG1" Then + ' MsgBox("vSupply_String: " & vSupply_String & vbNewLine & "vLevel: " & vLevel & vbNewLine & "vSerial: " & vSerial & vbNewLine & "vProductNumber: " & vProductNumber _ + ' & vbNewLine & "vPartNumber: " & vPartNumber) + ' MsgBox("insertSupply: " & insertSupply.ToString) + 'End If + If insertSupply = True Then + 'MsgBox("Jetzt wird Supply inserted: " & "vSupply_String: " & vSupply_String & vbNewLine & "vLevel: " & vLevel & vbNewLine & "vSerial: " & vSerial & vbNewLine & "vProductNumber: " & vProductNumber _ + ' & vbNewLine & "vPartNumber: " & vPartNumber) + 'Alle Werte da, dann auch Insert der SupplyVerfolgung + marker &= vbNewLine & "3. Den Supplyverfolgungsdatensatz " & vSupply_String & " inserten" + marker &= vbNewLine & "-vSerial " & vSerial + marker &= vbNewLine & "-vLevel " & vLevel + marker &= vbNewLine & "-vPartNumber " & vPartNumber + marker &= vbNewLine & "-LastGERAETID " & LastGERAETID + marker &= vbNewLine & "-vDatum " & vDatum + 'MsgBox(marker) + Me.TBSUPPLY_VERFOLGUNGTableAdapter.cmdInsertmanuell(vSupply_String, vSerial, vLevel, vPartNumber, Environment.UserName, LastGERAETID, vDatum) + marker &= vbNewLine & "==> ## SUPPLY ERFOLGREICH INSERTED! ## - " & Now & " " & Now.Millisecond + 'Zur Sicherheit die Variablen zurücksetzen + vSupply_String = "" + vSerial = "" + vLevel = "" + vPartNumber = "" + End If + End If + + Next 'Nächster XML-Tag + Return True + '###### Ende Insert Supplys + Catch ex As Exception + ClassLoggerSW.Add("###################### ACHTUNG FEHLER:- " & Now & " " & Now.Millisecond & " #############################################", False) + ClassLoggerSW.Add("Marker #############################################################", False) + ClassLoggerSW.Add(marker, False) + ClassLoggerSW.Add("###################################################################", False) + ClassLoggerSW.Add("FEHLERMELDUNG: " & ex.Message, False) + MsgBox("Fehler bei Insert des Supplydatensatzes:" & vbNewLine & "Datei: " & vfilename & vbNewLine & "Gerät-SN Nummer: " & vSerienNrGeraet & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei InsertGerät") + MsgBox("Überprüfen Sie die LogFile", MsgBoxStyle.Critical, "Hinweis:") + Return False + End Try + End Function + Public Function file_inuse(ByVal _filename) As Boolean + Dim fs As Integer = FreeFile() + Dim inuse As Boolean = False + If System.IO.File.Exists(_filename) Then + Try + FileOpen(fs, _filename, OpenMode.Binary, _ + OpenAccess.ReadWrite, OpenShare.LockReadWrite) + Catch + inuse = True + Finally + FileClose(fs) + End Try + End If + Return inuse + End Function + Sub MoveFile(ByVal path As String, ByVal dateiname As String, ByVal _folderFehler As String, ByVal _folderArchiv As String, Optional ByVal Fehler As Boolean = False) + Try + 'Die verarbeitete Datei verschieben + Dim FileToMove As String = path + Dim Zielname As String + If Fehler = True Then + marker &= vbNewLine & "Die XML-File in" & _folderFehler & "\Fehler verschieben" + Dim f As New IO.DirectoryInfo(_folderFehler & "\Fehler") + If f.Exists = False Then + IO.Directory.CreateDirectory(_folderFehler & "\Fehler") + marker &= vbNewLine & "Ordner \Fehler angelegt" + End If + Zielname = _folderFehler & "\Fehler\" & dateiname + Else + marker &= vbNewLine & "Die XML-File in" & _folderFehler & "\Archiv verschieben" + If _folderArchiv.ToLower.EndsWith("\archiv") Then + Zielname = _folderArchiv & "\" & dateiname 'Date.Now.Year & Date.Now.Month & Date.Now.Day & "_" & Date.Now.Hour & "_" & Date.Now.Minute & "_" & + Else + Zielname = _folderArchiv & "\Archiv\" & dateiname 'Date.Now.Year & Date.Now.Month & Date.Now.Day & "_" & Date.Now.Hour & "_" & Date.Now.Minute & "_" & + End If + End If + If System.IO.File.Exists(FileToMove) = True Then + marker &= vbNewLine & "==> Quelle: " & FileToMove + marker &= vbNewLine & "==> Ziel: " & Zielname + System.IO.File.Move(FileToMove, Zielname) + marker &= vbNewLine & "==> ERFOLGREICH verschoben" + End If + Catch ex As Exception + MsgBox("Fehler in MoveFile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Private Sub tsbGeraeteRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbGeraeteRefresh.Click + Refresh_Geraete(cmbMandanten.Text) + End Sub + + Private Sub tsbGeraeteOrderRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbGeraeteOrderRefresh.Click + ' Refresh_GeraeteOrder(cmbMandanten.Text) + Refresh_Supplies2Order(cmbMandanten.Text) + End Sub + 'Private Sub Refresh_GeraeteOrder(mandant As String) + ' Try + ' Me.VWGERAET_ORDERTableAdapter.Fill(Me.MyDataset.VWGERAET_ORDER, mandant) + ' Me.VWSUPPLIES_TO_ORDERTableAdapter.Fill(MyDataset.VWSUPPLIES_TO_ORDER, mandant) + ' Catch ex As Exception + ' MessageBox.Show(ex.Message, "Fehler beim Laden der Bestelldaten:", MessageBoxButtons.OK, MessageBoxIcon.Error) + ' End Try + 'End Sub + Private Sub Refresh_Supplies2Order(mandant As String) + Try + Me.VWSUPPLIES_2_ORDERTableAdapter.Fill(Me.MyDataset.VWSUPPLIES_2_ORDER, mandant) + Me.GridViewSupplies2Order.Columns.Item("GUID").Visible = False + Catch ex As Exception + MessageBox.Show(ex.Message, "Fehler beim Laden der Bestelldaten:", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Try + End Sub + Private Sub AlleMarkierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlleMarkierenToolStripMenuItem.Click + Try + 'Dim DS As System.Data.DataSet + 'Dim DT As System.Data.DataTable + 'Dim DR As System.Data.DataRow + + '' --- DataSet zuweisen + 'DS = Me.MyDataset + '' --- Zugriff auf Tabelle + 'DT = DS.Tables("VWGERAET_ORDER") + 'Dim Counter As Integer = 1 + 'For Each DR In DT.Rows + ' Me.TBGERAETTableAdapter.CmdBestellungJa(DR.Item("GUID")) + 'Next + Dim upd = "UPDATE TBSUPPLIES_2_ORDER_TEMP SET GUI_SELECTED = 1" + ClassDatabase.Execute_non_Query(upd) + 'For Each row As DataRow In MyDataset.VWSUPPLIES_2_ORDER.Rows + ' dd() + ' 'Me.TBGERAETTableAdapter.CmdBestellungJa() + ' row.Item("GUI_MARKER") = True + 'Next + 'Dim i As Integer + 'Dim DisplayedColumn As C1.Win.C1TrueDBGrid.C1DisplayColumnCollection = Me.VWGERAET_ORDERDG.Splits(0).DisplayColumns + 'For i = 0 To VWGERAET_ORDERDG.Splits(0).Rows.Count - 1 + ' 'MsgBox(VWGERAET_ORDERDG.Item(i, "Geraete-ID")) + ' Me.TBGERAETTableAdapter.CmdBestellungJa(VWGERAET_ORDERDG.Item(i, "Geraete-ID")) + 'Next + Refresh_Supplies2Order(cmbMandanten.Text) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Markieren von allen Geräten:") + End Try + End Sub + + Private Sub MarkierungAufhebenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MarkierungAufhebenToolStripMenuItem.Click + Try + 'Dim DS As System.Data.DataSet + 'Dim DT As System.Data.DataTable + 'Dim DR As System.Data.DataRow + + '' --- DataSet zuweisen + 'DS = Me.MyDataset + '' --- Zugriff auf Tabelle + 'DT = DS.Tables("VWGERAET_ORDER") + 'Dim Counter As Integer = 1 + 'For Each DR In DT.Rows + ' row.Item("GUI_MARKER") = False + ' Me.TBGERAETTableAdapter.CmdUpdateBestellungnein(DR.Item("GUID")) + 'Next + Dim upd = "UPDATE TBSUPPLIES_2_ORDER_TEMP SET GUI_SELECTED = 0" + ClassDatabase.Execute_non_Query(upd) + Refresh_Supplies2Order(cmbMandanten.Text) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Aufheben der Bestellmarkierung von allen Geräten:") + End Try + End Sub + + Private Sub TCGeraeteOrder_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TCGeraeteOrder.SelectedIndexChanged + Try + SPCOrder.Panel2Collapsed = True + Select Case TCGeraeteOrder.SelectedIndex + Case 0 + SPCOrder.Panel2Collapsed = True + Refresh_Supplies2Order(cmbMandanten.Text) + Case 1 + Me.Cursor = Cursors.WaitCursor + Try + Me.VWRPT_SUPPLIES_TOORDERTableAdapter.Fill(Me.MyDataset.VWRPT_SUPPLIES_TOORDER, Me.cmbMandanten.Text) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Daten zu Bericht:") + End Try + Try + Me.rptViewerBestellungen.RefreshReport() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden des Berichtes Order zu Gerät:") + End Try + Me.Cursor = Cursors.Default + Case 2 + Load_Bestellung_Gesendet() + Case 3 + ' + Case 4 + + Dim diPfad As New IO.DirectoryInfo(pathBestellungen) + Dim _count As Integer = 0 + For Each file As IO.FileInfo In diPfad.GetFiles() + If file.Name.EndsWith(".xls") Then + _count = _count + 1 + End If + Next + Me.btnImportBestellungen.Text = "Import Bestellungen" & vbCrLf & "Unverarbeitet: " & _count & " Files" + End Select + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TCGeraeteOrder.SelectedIndexChanged:") + End Try + End Sub + + Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbSetBest_gesendet.Click + If VWSUPPLIES_2_ORDERBindingSource.Count > 0 Then + Try + VWSUPPLIES_2_ORDERBindingSource.EndEdit() + ' --- Zugriff auf Tabelle + Dim Counter As Integer = 1 + For Each DR As DataRow In MyDataset.VWSUPPLIES_2_ORDER.Rows + Dim sql As String + Dim GERAET_ID = DR.Item("GERAET_ID") + If DR.Item("GUI_SELECTED") = True Then + Dim supply_ID As Integer = DR.Item("SUPPLY_ID") + If DR.Item("MANUELL") = False Then + sql = String.Format("UPDATE TBSUPPLIES SET STATUS_ID = 10, GEAENDERTWER = '{0}', MARKER = 'Frontend' WHERE GUID = {1}", Environment.UserName, supply_ID) + ClassDatabase.Execute_non_Query(sql, True) + Else + Dim ORDER_ID As Integer = DR.Item("BESTELL_ID") + sql = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET BESTELLT_WANN = GETDATE(), MARKER = 'STATUS GESENDET MANUELL', MANUELL_BESTELLT = 1 WHERE (GUID ={0})", ORDER_ID) + ClassDatabase.Execute_non_Query(sql, True) + End If + + End If + Next + Refresh_Supplies2Order(cmbMandanten.Text) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Markieren als 'Bestellung gesendet':") + End Try + End If + End Sub + Private Sub btnsetBestellt_Click(sender As Object, e As EventArgs) Handles btnsetBestellt.Click + If VWSUPPLIES_2_ORDERBindingSource.Count > 0 Then + Try + VWSUPPLIES_2_ORDERBindingSource.EndEdit() + ' --- Zugriff auf Tabelle + Dim Counter As Integer = 1 + For Each DR As DataRow In MyDataset.VWSUPPLIES_2_ORDER.Rows + Dim GUID = DR.Item("GUID") + Dim Supply_ID = DR.Item("SUPPLY_ID") + Dim sql As String + If DR.Item("GUI_SELECTED") = True Then + If DR.Item("MANUELL") = False Then + sql = String.Format("UPDATE TBSUPPLIES SET STATUS_ID = 4, GEAENDERTWER = '{0}', MARKER = 'Frontend' WHERE (GUID = {1})", Environment.UserName, Supply_ID) + ClassDatabase.Execute_non_Query(sql, True) + Else + Dim ORDER_ID As Integer = DR.Item("BESTELL_ID") + 'eine manuell ausgeführte Bestellung + sql = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET MARKER = 'STATUS BESTELLT MANUELL', MANUELL_BESTELLT = 1 WHERE (GUID ={0})", ORDER_ID) + ClassDatabase.Execute_non_Query(sql, True) + End If + + + ' Dim sql1 = String.Format("SELECT * FROM TBSUPPLIES_2_ORDER_TEMP WHERE SUPPLY_ID IN (SELECT GUID FROM TBSUPPLIES WHERE GERAET_ID = {0})", G_ID) + ' Dim DT_SUPPLIES As DataTable = ClassDatabase.Return_Datatable(sql1, True) + ' If Not IsNothing(DT_SUPPLIES) Then + ' For Each row As DataRow In DT_SUPPLIES.Rows + ' Dim supply_ID As Integer = row.Item("SUPPLY_ID") + ' If row.Item("MANUALLY") = False Then + ' sql = String.Format("UPDATE TBSUPPLIES SET STATUS_ID = 4, GEAENDERTWER = '{0}', MARKER = 'Frontend' WHERE (GUID = {1})", Environment.UserName, supply_ID) + ' ClassDatabase.Execute_non_Query(sql, True) + ' Else + ' sql = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET MARKER = 'STATUS BESTELLT MANUELL', MANUELL_BESTELLT = 1 WHERE (SUPPLY_ID ={0}) AND (MANUELL_BESTELLT = 0) AND (MANUELL = 1)", supply_ID) + ' ClassDatabase.Execute_non_Query(sql, True) + ' End If + ' Next + ' End If + End If + Next + Refresh_Supplies2Order(cmbMandanten.Text) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Markieren als 'Bestellt' für alle Geräte:") + End Try + End If + End Sub + Private Sub chbFilterStatus_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbFilterStatus.CheckedChanged + If Me.chbFilterStatus.Checked Then + 'If Me.VWSUPPLIESBindingSource.Count < 1 Then + ' Refresh_Supplies() + 'End If + 'Me.VWSUPPLIESBindingSource.DataSource = TBWH_STATUSFILTERBindingSource + 'VWSUPPLIESBindingSource.DataMember = "TBWH_STATUSFILTER_VWSUPPLIES" + Me.TBWH_STATUSFILTERDataGridView.Visible = True + Else + 'Me.VWSUPPLIESBindingSource.DataSource = MyDataset + 'VWSUPPLIESBindingSource.DataMember = "VWSUPPLIES" + Me.TBWH_STATUSFILTERDataGridView.Visible = False + Refresh_Supplies() + End If + End Sub + Private Sub tsborders_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsborders.Click + Load_Bestellungen_Manuell + + End Sub + Sub Load_Bestellungen_Manuell() + frmBestellung.Show() + End Sub + Private Sub chbFilterMarkt_Bestellungen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbFilterMarkt_Bestellungen.CheckedChanged + If Me.chbFilterMarkt_Bestellungen.Checked Then + 'Me.TBSUPPLY_BESTELLUNGViewBindingSource.DataSource = TBWH_MARKTBindingSource + 'TBSUPPLY_BESTELLUNGViewBindingSource.DataMember = "RelTBWH_MARKT_TBSUPPLY_BESTELLUNGView" + Me.DGTBWH_Markt_Bestellungen.Visible = True + Else + 'Me.TBSUPPLY_BESTELLUNGViewBindingSource.DataSource = MyDataset + 'TBSUPPLY_BESTELLUNGViewBindingSource.DataMember = "TBSUPPLY_BESTELLUNGView" + Me.DGTBWH_Markt_Bestellungen.Visible = False + End If + End Sub + + Private Sub Refresh_Bestellungen() + Try + If Me.chbFilterMarkt_Bestellungen.Checked = False And Me.chkbDatumfilterOrder.Checked = False Then + ' Me.DGTBSUPPLY_BESTELLUNG.Caption = "Bestellungen für alle Märkte" + Me.TBSUPPLY_BESTELLUNGViewTableAdapter.FillByall(Me.MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND, cmbMandanten.Text) + Else + If chbFilterMarkt_Bestellungen.Checked Then + Dim Markt As String = DGTBWH_Markt_Bestellungen.CurrentCell.Value() + + If Me.chkbDatumfilterOrder.Checked Then + ' Me.DGTBSUPPLY_BESTELLUNG.Caption = "Bestellungen für Markt: " & Markt.ToUpper & " und in Zeitraum" + Me.TBSUPPLY_BESTELLUNGViewTableAdapter.FillBy_DatumMArkt(Me.MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND, Markt, Me.dtpOrder_von.Value, Me.dtpOrder_bis.Value) + Else + ' Me.DGTBSUPPLY_BESTELLUNG.Caption = "Bestellungen für Markt: " & Markt.ToUpper + Me.TBSUPPLY_BESTELLUNGViewTableAdapter.Fill_ByMarkt(Me.MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND, Markt) + End If + ElseIf Me.chkbDatumfilterOrder.Checked Then + ' Me.DGTBSUPPLY_BESTELLUNG.Caption = "Bestellungen in Zeitraum" + Me.TBSUPPLY_BESTELLUNGViewTableAdapter.FillByDatum(Me.MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND, cmbMandanten.Text, Me.dtpOrder_von.Value, Me.dtpOrder_bis.Value) + End If + End If + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Abfragen der Bestellungen:") + End Try + End Sub + + Private Sub tsbRefresh_Bestellungen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbRefresh_Bestellungen.Click + Me.Cursor = Cursors.WaitCursor + Refresh_Bestellungen() + Cursor = Cursors.Default + End Sub + + Private Sub tsbexcel_geraete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbexcel_geraete.Click + Dim saveFileDialog1 As New SaveFileDialog + saveFileDialog1.Filter = "Excel (*.xls)|*.xls|Excel (*.xlsx)|*.xlsx" + saveFileDialog1.Title = "Export to Excel:" + saveFileDialog1.ShowDialog() + If saveFileDialog1.FileName <> "" Then + Cursor = Cursors.WaitCursor + If saveFileDialog1.FileName.EndsWith("xlsx") Then + GridViewGeraete.ExportToXlsx(saveFileDialog1.FileName) + Else + GridViewGeraete.ExportToXls(saveFileDialog1.FileName) + End If + Dim result As MsgBoxResult + result = MessageBox.Show("Datei wurde erstellt! Wollen Sie diese nun öffnen?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Process.Start(saveFileDialog1.FileName) + End If + End If + Cursor = Cursors.Default + End Sub + Public Sub XLS_Mit_Filter(ByVal vDataset As DataSet, ByVal vds_dt As String, ByVal vSheet_Name As String) + Dim dt As DataTable + + 'To manipulate an Excel workbook, the code needs to instantiate an Excel Application object, + 'and then use the object model to add a new workbook, change the name (to Northwind Customers in this example), and do other UI chores. + + 'Create an instance of Excel 2003, add a workbook, + 'and let the user know what's happening + Dim xl As New Excel.Application + xl.Workbooks.Add() + xl.ActiveSheet.Name = vSheet_Name + xl.Visible = True + xl.Range("A1").Value = "Exportiere Daten aus Datenbank...." + + 'Once Excel is loaded and running, the code needs a reference to the table in the DataSet ds. + 'Then it loops through the Columns collection of that DataTable object and places the field names + 'in the first row of the worksheet. This example uses a Customers table and a Customers column heading. + + Try + xl.ScreenUpdating = False + + 'Start with the Customers table + dt = vDataset.Tables(vds_dt) '"VWDWD_EXP_KPI" + + 'Add the column headings for the Customers + Dim dc As DataColumn + Dim iCols As Int32 = 0 + For Each dc In dt.Columns + xl.Range("A1").Offset(0, iCols).Value = dc.ColumnName + iCols += 1 + Next + + 'All that's left is to loop through the rows in the table and use the ItemArray property of the DataRow + 'object to write the contents of each data row to a row of the worksheet. This is about as close as Excel + 'comes to supporting a DataSet object directly. + + 'Add the data + Dim iRows As Int32 + For iRows = 0 To dt.Rows.Count - 1 + xl.Range("A2").Offset(iRows).Resize(1, iCols).Value = dt.Rows(iRows).ItemArray() + Next + Catch ex As Exception + + 'The remaining code in the procedure updates the UI and applies built-in formatting to the worksheet. + + Finally + xl.ScreenUpdating = True + End Try + 'Make the sheet pretty + With xl.ActiveSheet.Range("A1") + .AutoFilter() + .AutoFormat(Excel.XlRangeAutoFormat.xlRangeAutoFormatSimple) 'xlRangeAutoFormatSimple + End With + + xl = Nothing + End Sub + Public Sub XLS_FILTER_TEMP_DT(ByVal DATATABLE As DataTable, vSheet_Name As String) + Dim dt As DataTable + + 'To manipulate an Excel workbook, the code needs to instantiate an Excel Application object, + 'and then use the object model to add a new workbook, change the name (to Northwind Customers in this example), and do other UI chores. + + 'Create an instance of Excel 2003, add a workbook, + 'and let the user know what's happening + Dim xl As New Excel.Application + xl.Workbooks.Add() + xl.ActiveSheet.Name = vSheet_Name + xl.Visible = True + xl.Range("A1").Value = "Exportiere Daten aus Datenbank...." + + 'Once Excel is loaded and running, the code needs a reference to the table in the DataSet ds. + 'Then it loops through the Columns collection of that DataTable object and places the field names + 'in the first row of the worksheet. This example uses a Customers table and a Customers column heading. + + Try + xl.ScreenUpdating = False + + 'Start with the Customers table + dt = DATATABLE + + 'Add the column headings for the Customers + Dim dc As DataColumn + Dim iCols As Int32 = 0 + For Each dc In dt.Columns + xl.Range("A1").Offset(0, iCols).Value = dc.ColumnName + iCols += 1 + Next + + 'All that's left is to loop through the rows in the table and use the ItemArray property of the DataRow + 'object to write the contents of each data row to a row of the worksheet. This is about as close as Excel + 'comes to supporting a DataSet object directly. + + 'Add the data + Dim iRows As Int32 + For iRows = 0 To dt.Rows.Count - 1 + xl.Range("A2").Offset(iRows).Resize(1, iCols).Value = dt.Rows(iRows).ItemArray() + Next + Catch ex As Exception + + 'The remaining code in the procedure updates the UI and applies built-in formatting to the worksheet. + + Finally + xl.ScreenUpdating = True + End Try + 'Make the sheet pretty + With xl.ActiveSheet.Range("A1") + .AutoFilter() + .AutoFormat(Excel.XlRangeAutoFormat.xlRangeAutoFormatSimple) 'xlRangeAutoFormatSimple + End With + + xl = Nothing + End Sub + Private Sub tsbExcel_Supplies_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbExcel_Supplies.Click + Dim saveFileDialog1 As New SaveFileDialog + saveFileDialog1.Filter = "Excel (*.xls)|*.xls|Excel (*.xlsx)|*.xlsx" + saveFileDialog1.Title = "Export to Excel:" + saveFileDialog1.ShowDialog() + If saveFileDialog1.FileName <> "" Then + Cursor = Cursors.WaitCursor + If saveFileDialog1.FileName.EndsWith("xlsx") Then + GridViewVWSupplies.ExportToXlsx(saveFileDialog1.FileName) + Else + GridViewVWSupplies.ExportToXls(saveFileDialog1.FileName) + End If + Dim result As MsgBoxResult + result = MessageBox.Show("Datei wurde erstellt! Wollen Sie diese nun öffnen?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Process.Start(saveFileDialog1.FileName) + End If + End If + Cursor = Cursors.Default + End Sub + + Private Sub tsbExel_bestellungen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbExel_bestellungen.Click + Dim saveFileDialog1 As New SaveFileDialog + saveFileDialog1.Filter = "Excel (*.xls)|*.xls|Excel (*.xlsx)|*.xlsx" + saveFileDialog1.Title = "Export to Excel:" + saveFileDialog1.ShowDialog() + If saveFileDialog1.FileName <> "" Then + Cursor = Cursors.WaitCursor + If saveFileDialog1.FileName.EndsWith("xlsx") Then + GridViewBestellUebersicht.ExportToXlsx(saveFileDialog1.FileName) + Else + GridViewBestellUebersicht.ExportToXls(saveFileDialog1.FileName) + End If + Dim result As MsgBoxResult + result = MessageBox.Show("Datei wurde erstellt! Wollen Sie diese nun öffnen?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Process.Start(saveFileDialog1.FileName) + End If + + + End If + Cursor = Cursors.Default + End Sub + + 'Private Sub DGTBSUPPLY_BESTELLUNG_AfterColUpdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) + ' If FormLoaded = True Then + ' Try + ' Me.TBSUPPLY_BESTELLUNGViewBindingSource.EndEdit() + ' If MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND.GetChanges Is Nothing = False Then + ' Dim DataColumn As String = DGTBSUPPLY_BESTELLUNG.Splits(DGTBSUPPLY_BESTELLUNG.SplitIndex).DisplayColumns(DGTBSUPPLY_BESTELLUNG.Col).DataColumn.ToString + ' 'MsgBox(VWGERAET_ORDERDG.Splits(VWGERAET_ORDERDG.SplitIndex).DisplayColumns(VWGERAET_ORDERDG.Col).DataColumn.Value, MsgBoxStyle.Information, DataColumn) + ' Select Case DataColumn + ' Case "Bestell Nr" + ' Me.TBSUPPLY_BESTELLUNGViewTableAdapter.cmdUpdate_BestNr(DGTBSUPPLY_BESTELLUNG.Item(DGTBSUPPLY_BESTELLUNG.Row, "Bestell Nr"), Environment.UserName, DGTBSUPPLY_BESTELLUNG.Item(DGTBSUPPLY_BESTELLUNG.Row, "ID")) + ' End Select + ' Refresh_Bestellungen() + ' End If + ' Catch ex As Exception + ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Aktualisieren der BestellNr:") + ' End Try + ' End If + 'End Sub + Dim refresh As Boolean = False + Private Sub chbFilterMarktNV_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbFilterMarktNV.CheckedChanged + If Me.chbFilterMarktNV.Checked Then + refresh = False + 'If Me.TBGERAETBindingSource.Count < 1 Then + ' Refresh_Geraete() + 'End If + 'Me.TBGERAETBindingSource.DataSource = TBWH_MARKTBindingSource + 'TBGERAETBindingSource.DataMember = "TBWH_MARKT_TBGERAET" + Me.DGVTBWH_MARKT_VF.Visible = True + refresh = True + Else + 'Me.TBGERAETBindingSource.DataSource = MyDataset + 'TBGERAETBindingSource.DataMember = "TBGERAET" + Me.DGVTBWH_MARKT_VF.Visible = False + End If + End Sub + Private Sub DGVTBWH_MARKT_VF_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DGVTBWH_MARKT_VF.SelectionChanged + If refresh = True Then + If TabControlNachverfolgung.SelectedIndex = 0 Then + + Else + + End If + + End If + End Sub + + Private Sub chkbDatumfilter_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkbDatumfilter.CheckedChanged + If Me.chkbDatumfilter.Checked Then + dtpVerfolgung_bis.Enabled = True + dtpVerfolgung_von.Enabled = True + Else + dtpVerfolgung_bis.Enabled = False + dtpVerfolgung_von.Enabled = False + End If + End Sub + 'Sub Refresh_Verfolgung() + ' If Me.TBGERAETByMarktBindingSource.Count >= 1 Then + ' Try + ' Dim GERAET_ID As Integer = + ' If Me.chbFilterMarkt.Checked Then + ' If Me.chkbDatumfilter.Checked Then + ' Refresh_Geraete_Verfolgung(GERAET_ID, True, True) + ' Else + ' Refresh_Geraete_Verfolgung(GERAET_ID, True, False) + ' End If + ' Else + ' If Me.chkbDatumfilter.Checked Then + ' Refresh_Geraete_Verfolgung(GERAET_ID, False, True) + ' Else + ' MsgBox("bitte wählen Sie aus ob Sie nach Markt und/oder Datum filtern wollen?", MsgBoxStyle.Exclamation, "Fehlende Einschränkung:") + ' End If + ' End If + ' Refresh_Supply_Verfolgung(GERAET_ID) + ' Catch ex As Exception + ' MessageBox.Show(ex.Message, "Fehler bei TBGERAETByMarktDatagridView.RowColChange:", MessageBoxButtons.OK, MessageBoxIcon.Error) + ' End Try + ' End If + 'End Sub + + + Sub Refresh_Supply_Typen() + Try + Me.TBSUPPLY_DEFINITIONTableAdapter.Fill(Me.MyDataset.TBSUPPLY_DEFINITION) + Catch ex As System.Exception + MessageBox.Show(ex.Message, "Fehler beim Laden der SupplyTypen:", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Try + End Sub + Private Sub Save_Supply_Typen() + Try + Me.Validate() + Me.TBSUPPLY_DEFINITIONBindingSource.EndEdit() + If MyDataset.TBSUPPLY_DEFINITION.GetChanges Is Nothing = False Then + TBSUPPLY_DEFINITIONBindingSource.EndEdit() + Me.TBSUPPLY_DEFINITIONTableAdapter.Update(Me.MyDataset.TBSUPPLY_DEFINITION) + MsgBox("Die Supply-Typen wurden erfolgreich gespeichert!", MsgBoxStyle.Information, "Erfolgsmeldung:") + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Speichern der Supply-Typen:") + End Try + End Sub + Sub Refresh_Vertrag_Produkt() + Try + Me.TBVERTRAEGETableAdapter.Fill(Me.MyDataset.TBVERTRAEGE) + Me.TBPRODUKT_VERTRAGTableAdapter.Fill(Me.MyDataset.TBPRODUKT_VERTRAG) + Catch ex As Exception + MessageBox.Show(ex.Message, "Fehler bei Laden der Vertragsdaten:", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Try + End Sub + Private Sub tsbexcel_G_Verfolgung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.Cursor = Cursors.WaitCursor + XLS_Mit_Filter(MyDataset, "VWGERAETE_VERFOLGUNG", "Geräteverfolgung") + Cursor = Cursors.Default + End Sub + Private Sub chkbDatumfilterOrder_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkbDatumfilterOrder.CheckedChanged + If Me.chkbDatumfilterOrder.Checked Then + dtpOrder_von.Enabled = True + dtpOrder_bis.Enabled = True + Else + dtpOrder_von.Enabled = False + dtpOrder_bis.Enabled = False + End If + End Sub + Private Sub DGTBWH_Markt_Bestellungen_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DGTBWH_Markt_Bestellungen.SelectionChanged + If Me.FormLoaded = True And Me.TBWH_MARKTBindingSource.Count > 0 And Me.chbFilterMarkt_Bestellungen.Checked Then + Refresh_Bestellungen() + End If + End Sub + + Private Sub dtpOrder_bis_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpOrder_bis.ValueChanged + If Me.chkbDatumfilterOrder.Checked Then + Refresh_Bestellungen() + End If + End Sub + + Private Sub dtpOrder_von_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpOrder_von.ValueChanged + If Me.chkbDatumfilterOrder.Checked Then + Refresh_Bestellungen() + End If + End Sub + + Private Sub dtpVerfolgung_von_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpVerfolgung_von.ValueChanged + If dtpVerfolgung_bis.Value.ToShortDateString >= dtpVerfolgung_von.Value.ToShortDateString Then + If TabControlNachverfolgung.SelectedIndex = 0 Then + + Else + + End If + + Else + dtpVerfolgung_bis.Value = dtpVerfolgung_von.Value + End If + End Sub + Sub Refresh_Geraete_Supply() + Try + Me.VWGeraet_Supply_ZuordnungTableAdapter.Fill(Me.MyDataset.VWGeraet_Supply_Zuordnung) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Laden der Geräte-Supply Zuordnung:") + End Try + + End Sub + Private Sub tsbn_refresh_Vertraege_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbn_refresh_Vertraege.Click + Refresh_Vertrag_Produkt() + End Sub + + Private Sub tsbtn_showImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbtn_showImport.Click + frmImport_Produkte.ShowDialog() + End Sub + + Private Sub Splitter1_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles Splitter1.SplitterMoved + My.Settings.Save() + End Sub + + Private Sub spltC_Vertrag_Produkt_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles spltC_Vertrag_Produkt.SplitterMoved + My.Settings.Save() + End Sub + + Private Sub ToolStripButton21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton21.Click + Refresh_Supply_Typen() + End Sub + + Private Sub ToolStripButton22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton22.Click + Save_Supply_Typen() + End Sub + + Private Sub TBSUPPLY_DEFINITIONBindingSource_AddingNew(ByVal sender As Object, ByVal e As System.ComponentModel.AddingNewEventArgs) Handles TBSUPPLY_DEFINITIONBindingSource.AddingNew + MyDataset.TBSUPPLY_DEFINITION.ERFASSTWERColumn.DefaultValue = Environment.UserName + End Sub + + Private Sub ToolStripButton27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton27.Click + Try + TBSUPPLY_DEFINITIONBindingSource.AddNew() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TBSUPPLY_DEFINITIONBindingSource.AddNew()") + End Try + + End Sub + + Private Sub ToolStripButton28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton28.Click + Refresh_Geraete_Supply() + End Sub + + Private Sub ToolStripButton29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton29.Click + Try + Dim ID As Integer = GridViewSupplyZuordnung.GetFocusedRowCellValue(GridViewSupplyZuordnung.Columns("GUID")) + Dim SW As Integer = GridViewSupplyZuordnung.GetFocusedRowCellValue(GridViewSupplyZuordnung.Columns("SCHWELLENWERT")) + + Me.TBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Delete(ID) + Refresh_Geraete_Supply() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Löschen einer Geräte-Supply Zuordnung:") + End Try + End Sub + + Private Sub btnaddgeraete_SupplyZO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaddgeraete_SupplyZO.Click + If Me.txtPartnumber.Text = "" Then + MsgBox("Bitte geben Sie eine Partnumber für das Supply ein!", MsgBoxStyle.Exclamation, "Achtung: Fehlender Parameter!") + Me.txtPartnumber.Focus() + Exit Sub + End If + Try + Me.TBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Insert(Me.cmbModelle_WH.SelectedValue, Me.cmbSupplyDefinition.SelectedValue, Environment.UserName, txtPartnumber.Text, txtSchwellenwert.Text, txtPartnumerORDER.Text) + Me.VWGeraet_Supply_ZuordnungTableAdapter.FillByGeraet(MyDataset.VWGeraet_Supply_Zuordnung, Me.cmbModelle_WH.SelectedValue) + Me.txtPartnumber.Text = "" + Me.txtPartnumerORDER.Text = "" + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlegen einer Geräte-Supply Zuordnung:") + End Try + End Sub + + Private Sub cmbModelle_WH_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbModelle_WH.GotFocus + Me.cmbModelle_WH.DroppedDown = True + End Sub + Private Sub cmbModelle_WH_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbModelle_WH.KeyUp + AutoCompleteCombo_KeyUp(cmbModelle_WH, e) + End Sub + Public Sub AutoCompleteCombo_KeyUp(ByVal cbo As ComboBox, ByVal e As KeyEventArgs) + Dim sTypedText As String + Dim iFoundIndex As Integer + Dim oFoundItem As Object + Dim sFoundText As String + Dim sAppendText As String + + 'Allow select keys without Autocompleting + Select Case e.KeyCode + Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down + Return + End Select + + 'Get the Typed Text and Find it in the list + + sTypedText = cbo.Text + iFoundIndex = cbo.FindString(sTypedText) + + 'If we found the Typed Text in the list then Autocomplete + + If iFoundIndex >= 0 Then + 'Get the Item from the list (Return Type depends if Datasource was bound + ' or List Created) + oFoundItem = cbo.Items(iFoundIndex) + 'Use the ListControl.GetItemText to resolve the Name in case the Combo + ' was Data bound + sFoundText = cbo.GetItemText(oFoundItem) + 'Append then found text to the typed text to preserve case + sAppendText = sFoundText.Substring(sTypedText.Length) + cbo.Text = sTypedText & sAppendText + 'Select the Appended Text + cbo.SelectionStart = sTypedText.Length + cbo.SelectionLength = sAppendText.Length + End If + End Sub + + Private Sub TBWH_STATUSFILTERDataGridView_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBWH_STATUSFILTERDataGridView.SelectionChanged + If Me.FormLoaded = True And Me.TBWH_STATUSFILTERBindingSource.Count > 0 And Me.chbFilterStatus.Checked Then + Refresh_Supplies() + End If + End Sub + + Private Sub ToolStripButton30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton30.Click + Me.Cursor = Cursors.WaitCursor + frmImport_Report.Show() + Me.Cursor = Cursors.Default + End Sub + + Private Sub cmbSupplyDefinition_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSupplyDefinition.SelectedIndexChanged + If Me.FormLoaded = True Then + Me.txtPartnumber.Focus() + End If + End Sub + + Private Sub txtPartnumber_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPartnumber.TextChanged + If Me.txtPartnumber.Text <> "" Then + Me.txtPartnumerORDER.Text = Me.txtPartnumber.Text + End If + End Sub + + Private Sub tsbGeraeteverfolgung_Geraet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbGeraeteverfolgung_Geraet.Click + Try + Dim GERAET_ID As Integer = GridViewGeraete.GetFocusedRowCellValue(GridViewGeraete.Columns("GUID")) + CURRENT_GERAETE_ID = GERAET_ID + My.Settings.verf_id = GERAET_ID + My.Settings.Save() + open_Verfolgung() + Catch ex As System.Exception + 'MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Laden der Nachverfolgung zu Gerät:") + End Try + End Sub + + Private Sub btnFolderBestellungen_Click(sender As System.Object, e As System.EventArgs) Handles btnFolderBestellungen.Click + Bestellungen_Ordner() + End Sub + Private Sub btnImportBestellungen_Click(sender As System.Object, e As System.EventArgs) Handles btnImportBestellungen.Click + Bestellungen_verarbeiten() + End Sub + + Private Sub tsbtnONHOLD_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnONHOLD.Click + Try + Dim GERAET_ID As Integer = GridViewGeraete.GetFocusedRowCellValue(GridViewGeraete.Columns("GUID")) + Dim _bit As Boolean = GridViewGeraete.GetFocusedRowCellValue(GridViewGeraete.Columns("colONHOLD")) + + Dim _State As Integer + If _bit = False Then + _State = 1 + Else + _State = 0 + End If + Me.TBGERAETTableAdapter.cmdupdateStateOnHold(_State, GERAET_ID) + Refresh_Geraete(cmbMandanten.Text) + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei ONHOLD-Setzen:") + End Try + End Sub + + Private Sub tsbtnAbbrechen_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnAbbrechen.Click + Me.bwXMLverarbeiten.CancelAsync() + End Sub + Private Sub StarteMailExporterToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles StarteMailExporterToolStripMenuItem.Click + Dim result As MsgBoxResult + result = MessageBox.Show("Wollen Sie den Durchlauf aller hinterlegten Profile starten?" & vbNewLine & "Rückgängig machen nicht möglich!", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Export_Send_Data() + End If + End Sub + + Private Sub ProfileMailExporterToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ProfileMailExporterToolStripMenuItem.Click + Cursor = Cursors.WaitCursor + Dim frm As New frmBGExportProfileigenschaften + frm = frmBGExportProfileigenschaften.Instance + frm.ShowDialog() + Cursor = Cursors.Default + End Sub + + Private Sub TBVERTRAEGEBindingNavigator_RefreshItems(sender As System.Object, e As System.EventArgs) Handles TBVERTRAEGEBindingNavigator.RefreshItems + + End Sub + + Private Sub cmbDatenbank_Click(sender As System.Object, e As System.EventArgs) Handles cmbDatenbank.Click + Try + Me.Cursor = Cursors.WaitCursor + Dim csb As New SqlClient.SqlConnectionStringBuilder + csb.DataSource = Me.txtServer.Text + csb.IntegratedSecurity = False + csb.UserID = Me.txtUser.Text + csb.Password = Me.txtPasswort.Text + Dim connection As New SqlClient.SqlConnection(csb.ConnectionString) + connection.Open() + Dim cmd As New SqlClient.SqlCommand("sp_databases", connection) + cmd.CommandType = CommandType.StoredProcedure + ' Ausführen und Ergebnis in einer ListBox anzeigen + Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader + If dr.HasRows Then + Do While dr.Read + cmbDatenbank.Items.Add(dr("Database_Name")) + Loop + cmbDatenbank.DroppedDown = True + End If + connection.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Datenbank-Connect:") + End Try + Cursor = Cursors.Default + End Sub + + Private Sub ToolStripLabel7_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripLabel7.Click + + End Sub + + Private Sub Refresh_Marktverfolgung(markt As String, datevon As Date, datebis As Date) + Me.Cursor = Cursors.WaitCursor + Try + Dim oSqlConn As SqlClient.SqlConnection = New SqlClient.SqlConnection(My.Settings.ConfigConnectionString) + Dim selectstring As String = My.Settings.selectATR + selectstring = selectstring.Replace("@MARKT", markt) + selectstring = selectstring.Replace("@DATE_VON", datevon) + selectstring = selectstring.Replace("@DATE_BIS", datebis) + + Dim sqlcommand As SqlClient.SqlCommand = New SqlClient.SqlCommand(selectstring, oSqlConn) + sqlcommand.CommandTimeout = Me.txtTimeout.Text + oSqlConn.Open() + Dim oSQLDataAdapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter + Dim oDataSet As DataSet = New DataSet + oSQLDataAdapter.SelectCommand = sqlcommand + oSQLDataAdapter.Fill(oDataSet, "DATA") + ATRDATATABLE = oDataSet.Tables(0) + VWMarkt_VerfolgungBindingSource.DataSource = oDataSet.Tables(0) + GridControlATR.DataSource = VWMarkt_VerfolgungBindingSource + ' VWMarkt_VerfolgungTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + ' Me.VWMarkt_VerfolgungTableAdapter.Fill(Me.MyDataset.VWMarkt_Verfolgung, markt, datevon, datebis) + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Refresh_Marktverfolgung:") + End Try + Me.Cursor = Cursors.Default + End Sub + + Private Sub ToolStripButton35_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton35.Click + Try + Dim Markt As String = DGVTBWH_MARKT_VF.CurrentCell.Value() + Refresh_Marktverfolgung(Markt, Me.dtpVerfolgung_von.Text, Me.dtpVerfolgung_bis.Text) + Catch ex As Exception + + End Try + + End Sub + + Private Sub ToolStripButton36_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton36.Click + Me.Cursor = Cursors.WaitCursor + XLS_FILTER_TEMP_DT(ATRDATATABLE, "ATR Zeitraum") + Cursor = Cursors.Default + End Sub + Private Sub IMPORT_XMLTextBox_TextChanged(sender As System.Object, e As System.EventArgs) Handles IMPORT_XMLTextBox.TextChanged, IMPORT_XMLARCHIVTextBox.TextChanged, IMPORT_BESTELLUNGENTextBox.TextChanged + Me.btnsavePath.Visible = True + End Sub + + Private Sub btnsavePath_Click(sender As System.Object, e As System.EventArgs) Handles btnsavePath.Click + If Konfiguration_save() = True Then + Me.btnsavePath.Visible = False + End If + End Sub + Private Sub VWSUPPLIES_DG_Click(sender As System.Object, e As System.EventArgs) + + + End Sub + Private Sub tsbtnNAchverfolgung_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnNAchverfolgung.Click + open_Verfolgung() + End Sub + Sub open_Verfolgung() + 'Try + Cursor = Cursors.WaitCursor + Dim frm As New frmNachverfolgung + frm = frmNachverfolgung.Instance + frm.Show() + Cursor = Cursors.Default + ' Catch ex As Exception + 'W%MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei open Verfolgung:") + ' End Try + + End Sub + + Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click + Try + TBMANDANTENBindingSource.EndEdit() + If MyDataset.TBMANDANTEN.GetChanges Is Nothing = False Then + GEAENDERTWERTextBox1.Text = Environment.UserName + TBMANDANTENBindingSource.EndEdit() + TBMANDANTENTableAdapter.Update(MyDataset.TBMANDANTEN) + MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information, "Erfolgsmeldung:") + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Speichern Mandanten:") + End Try + End Sub + Private Sub cmbMandanten_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles cmbMandanten.SelectedIndexChanged + If cmbMandanten.SelectedIndex <> -1 Then + Dim mandant_id As Integer = TBMANDANTENTableAdapter.cmdGetMandID(cmbMandanten.SelectedItem) + My.Settings.Mandant_ID = mandant_id + End If + End Sub + Private Sub BindingNavigatorAddNewItem_Click(sender As System.Object, e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click + TBMANDANTENBindingSource.AddNew() + End Sub + Private Sub TBMANDANTENBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBMANDANTENBindingSource.AddingNew + MyDataset.TBMANDANTEN.ERSTELLLTWERColumn.DefaultValue = Environment.UserName + End Sub + Private Sub tsbtnChangelog_Click(sender As Object, e As EventArgs) Handles tsbtnChangelog.Click + Try + If tsbtnChangelog.Text = "Zeige ChangeLog" Then + tsbtnChangelog.Text = "Ausblenden ChangeLog" + Dim GERAET_ID As Integer = GridViewGeraete.GetFocusedRowCellValue(GridViewGeraete.Columns("GUID")) + Refresh_ChangeLog(GERAET_ID) + SplitContainerGeraet.Collapsed = False + Else + tsbtnChangelog.Text = "Zeige ChangeLog" + SplitContainerGeraet.Collapsed = True + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anzeige Changelog:") + End Try + + End Sub + + Private Sub Refresh_ChangeLog(GID As Integer) + Cursor = Cursors.WaitCursor + Try + Me.TBCHANGE_LOG_GERAETTableAdapter.Fill(Me.MyDataset.TBCHANGE_LOG_GERAET, GID) + Catch ex As System.Exception + MsgBox("Fehler bei Refresh ChangeLog:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + Cursor = Cursors.Default + + End Sub + + Private Sub tsbtnSuppliesSetStatusOnHold_Click(sender As Object, e As EventArgs) Handles tsbtnSuppliesSetStatusOnHold.Click + Try + Cursor = Cursors.WaitCursor + Dim i As Integer + i = VWSUPPLIES_AKTUELLDataGridView.CurrentRow.Index + If VWSUPPLIES_AKTUELLDataGridView.Item("VWSUPPLIES_AKTUELLDataGridViewSupplyID", i).Value Is Nothing = False Then + SelSupplyID = VWSUPPLIES_AKTUELLDataGridView.Item(0, i).Value + Dim _bit As Boolean = VWSUPPLIES_AKTUELLDataGridView.Item("VWSUPPLIES_AKTUELLDataGridViewOnHold", i).Value + Dim _State As Integer + If _bit = False Then + _State = 1 + Else + _State = 0 + End If + Me.TBSUPPLIESTableAdapter.CmdUpdateOnHold(Environment.UserName, _State, SelSupplyID) + Try + Dim ID As Integer + Dim GERAET_ID As Integer = GridViewGeraete.GetFocusedRowCellValue(GridViewGeraete.Columns("GUID")) + Me.VWSUPPLIES_GERAETTableAdapter.FillByGeraet(MyDataset.VWSUPPLIES_AKTUELL, GERAET_ID) + Catch ex As Exception + MessageBox.Show(ex.Message, "Fehler beim Laden der Supply-Daten nach Update OnHold:", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Try + End If + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei ONHOLD-Setzen Supply:") + End Try + Cursor = Cursors.Default + End Sub + + Private Sub VWSUPPLIES_AKTUELLDataGridView_SelectionChanged(sender As Object, e As EventArgs) Handles VWSUPPLIES_AKTUELLDataGridView.SelectionChanged + Try + If FormLoaded = True And VWSUPPLIES_AKTUELLDataGridView.RowCount > 0 Then + Dim i = VWSUPPLIES_AKTUELLDataGridView.CurrentRow.Index + SelSupplyID = VWSUPPLIES_AKTUELLDataGridView.Item("VWSUPPLIES_AKTUELLDataGridViewSupplyID", i).Value + + Me.ViewSUPPLY_STATUS_VERFOLGUNGTableAdapter.Fill(Me.MyDataset.ViewSUPPLY_STATUS_VERFOLGUNG, SelSupplyID) + Dim marker As String = TBSUPPLIESTableAdapter.CMDGetMarker(SelSupplyID) + If marker Is Nothing = False Then + Me.tslbl_Hinweis.Text = marker + Me.tslbl_Hinweis.Visible = True + Else + Me.tslbl_Hinweis.Visible = False + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "VWSUPPLIES_GERAETDataGridView.SelectionChanged:") + End Try + End Sub + + Private Sub ToolStripButton10_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton10.Click + Dim frm As New frmServiceImportLog + frm.ShowDialog() + End Sub + + Private Sub SplitContainerSupplyBestellungen_SplitterMoved(sender As Object, e As SplitterEventArgs) + If SPCOrder.Panel2Collapsed = False Then + My.Settings.Save() + End If + End Sub + + Private Sub SplitContainerSupplies_SplitterMoved(sender As Object, e As SplitterEventArgs) Handles SplitContainerSupplies.SplitterMoved + My.Settings.Save() + End Sub + Sub Load_Nachverfolgung_Supplies() + Try + If FormLoaded = True And VWSUPPLIES_2_ORDERBindingSource.Count > 0 And SPCOrder.Panel2Collapsed = False Then + Dim SupplyID = GridViewSupplies2Order.GetFocusedRowCellValue(GridViewSupplies2Order.Columns("SUPPLY_ID")) + Me.Cursor = Cursors.WaitCursor + Me.VWSUPPLY_VERFOLGUNGTableAdapter.FillBySUPPLYID(Me.MyDataset.VWSUPPLY_VERFOLGUNG, SupplyID) + End If + Catch ex As Exception + MsgBox("Fehler in VWSUPPLIES_GERAETDataGridView.SelectionChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, ) + End Try + Me.Cursor = Cursors.Default + End Sub + + + Private Sub tsbtnChangebestellt_Click(sender As Object, e As EventArgs) Handles tsbtnChangebestellt.Click + Try + Cursor = Cursors.WaitCursor + Dim i As Integer + i = VWSUPPLIES_AKTUELLDataGridView.CurrentRow.Index + If VWSUPPLIES_AKTUELLDataGridView.Item("VWSUPPLIES_AKTUELLDataGridViewSupplyID", i).Value Is Nothing = False Then + SelSupplyID = VWSUPPLIES_AKTUELLDataGridView.Item(0, i).Value + TBSUPPLIESTableAdapter.cmdUpdateBestelltManuell(Environment.UserName, "BESTELL_STATUS durch User per Oberfläche", SelSupplyID) + Try + Dim GERAET_ID As Integer = GridViewGeraete.GetFocusedRowCellValue(GridViewGeraete.Columns("GUID")) + Me.VWSUPPLIES_GERAETTableAdapter.FillByGeraet(MyDataset.VWSUPPLIES_AKTUELL, GERAET_ID) + Catch ex As Exception + MessageBox.Show(ex.Message, "Fehler beim Laden der Supply-Daten nach Update Bestellt:", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Try + End If + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei BESTELLT-Setzen Supply:") + End Try + Cursor = Cursors.Default + End Sub + + + Sub Load_Bestellung_Gesendet() + Try + Cursor = Cursors.WaitCursor + VWSUPPLIES_BESTELLUNG_GESENDETTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + Me.VWSUPPLIES_BESTELLUNG_GESENDETTableAdapter.Fill(Me.MyDataset.VWSUPPLIES_BESTELLUNG_GESENDET, cmbMandanten.Text) + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Bestellung_Gesendet:") + End Try + Cursor = Cursors.Default + End Sub + Sub Load_GridLayout_BestGesendet() + Try + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewBestellungen_Gesendet") + If File.Exists(XMLPath) Then + GridControlBestellungen_gesendet.MainView.RestoreLayoutFromXml(XMLPath) + GridViewBestellungen_Gesendet.ClearColumnsFilter() + 'grvwSelection.ClearGrouping() + GridViewBestellungen_Gesendet.ClearSelection() + GridViewBestellungen_Gesendet.OptionsView.ShowPreview = False + End If + Catch ex As Exception + + End Try + + End Sub + Sub Load_GridLayout_Geraete() + Try + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewGeraete") + If File.Exists(XMLPath) Then + GridControlGeraete.MainView.RestoreLayoutFromXml(XMLPath) + GridViewGeraete.ClearColumnsFilter() + 'grvwSelection.ClearGrouping() + GridViewGeraete.ClearSelection() + GridViewGeraete.OptionsView.ShowPreview = False + End If + Catch ex As Exception + + End Try + + End Sub + Sub Load_GridLayoutSupplies() + Try + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewVWSupplies") + If File.Exists(XMLPath) Then + GridControlVWSupplies.MainView.RestoreLayoutFromXml(XMLPath) + GridViewVWSupplies.ClearColumnsFilter() + 'grvwSelection.ClearGrouping() + GridViewVWSupplies.ClearSelection() + GridViewVWSupplies.OptionsView.ShowPreview = False + End If + Catch ex As Exception + + End Try + + End Sub + Sub Load_GridLayout_Supllies2Order() + Try + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewSupplies2order") + If File.Exists(XMLPath) Then + GridControlSupplies2Order.MainView.RestoreLayoutFromXml(XMLPath) + 'GridViewSupplies2Order.ClearColumnsFilter() + 'grvwSelection.ClearGrouping() + GridViewSupplies2Order.ClearSelection() + GridViewSupplies2Order.OptionsView.ShowPreview = False + End If + Catch ex As Exception + + End Try + + End Sub + Sub Load_GridLayout_Bestuebersicht() + Try + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewBestellungen_Uebersicht") + If File.Exists(XMLPath) Then + GridControlBestellungen.MainView.RestoreLayoutFromXml(XMLPath) + GridViewBestellUebersicht.ClearColumnsFilter() + 'grvwSelection.ClearGrouping() + GridViewBestellUebersicht.ClearSelection() + GridViewBestellUebersicht.OptionsView.ShowPreview = False + End If + Catch ex As Exception + + End Try + + End Sub + Sub Load_GridLayout_SupplyZuordnung() + Try + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewSupplyZuordnung") + If File.Exists(XMLPath) Then + GridControlSupplyZuordnung.MainView.RestoreLayoutFromXml(XMLPath) + GridViewSupplyZuordnung.ClearColumnsFilter() + 'grvwSelection.ClearGrouping() + GridViewSupplyZuordnung.ClearSelection() + GridViewSupplyZuordnung.OptionsView.ShowPreview = False + End If + Catch ex As Exception + + End Try + + End Sub + Sub Load_GridLayout_ProduktVertrag() + Try + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewProduktVertrag") + If File.Exists(XMLPath) Then + GridControlProduktVertrag.MainView.RestoreLayoutFromXml(XMLPath) + GridViewProduktVertrag.ClearColumnsFilter() + 'grvwSelection.ClearGrouping() + GridViewProduktVertrag.ClearSelection() + GridViewProduktVertrag.OptionsView.ShowPreview = False + End If + Catch ex As Exception + + End Try + + End Sub + Sub Save_GridLayout_Supplies() + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewVWSupplies") + GridControlVWSupplies.MainView.SaveLayoutToXml(XMLPath) + End Sub + Sub Save_GridLayout_Geraete() + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewGeraete") + GridControlGeraete.MainView.SaveLayoutToXml(XMLPath) + End Sub + Sub Save_GridLayout_Supplies2Order() + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewSupplies2order") + GridControlSupplies2Order.MainView.SaveLayoutToXml(XMLPath) + End Sub + Sub Save_GridLayout_Bestuebersicht() + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewBestellungen_Uebersciht") + GridControlBestellungen.MainView.SaveLayoutToXml(XMLPath) + End Sub + Sub Save_GridLayout_BestGesendet() + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewBestellungen_Gesendet") + GridControlBestellungen_gesendet.MainView.SaveLayoutToXml(XMLPath) + End Sub + + Sub Save_GridLayout_SupplyZuordnung() + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewSupplyZuordnung") + GridControlSupplyZuordnung.MainView.SaveLayoutToXml(XMLPath) + End Sub + Sub Save_GridLayout_ProduktVertrag() + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewProduktVertrag") + GridControlProduktVertrag.MainView.SaveLayoutToXml(XMLPath) + End Sub + + + + Private Sub ToolStripButton16_Click(sender As Object, e As EventArgs) Handles ToolStripButton16.Click + Load_Bestellung_Gesendet() + End Sub + + Private Sub tsbtn_setBack2Besterford_Click(sender As Object, e As EventArgs) Handles tsbtn_setBack2Besterford.Click + Try + Dim sql As String + 'Überhaupt Rows in Grid? + If GridViewBestellungen_Gesendet.RowCount > 0 Then + Dim BestellID = GridViewBestellungen_Gesendet.GetFocusedRowCellValue(GridViewBestellungen_Gesendet.Columns(0)) + Dim SupplyID = GridViewBestellungen_Gesendet.GetFocusedRowCellValue(GridViewBestellungen_Gesendet.Columns(1)) + Dim Manuell = GridViewBestellungen_Gesendet.GetFocusedRowCellValue(GridViewBestellungen_Gesendet.Columns("MANUELL")) + Dim BestelltWer = GridViewBestellungen_Gesendet.GetFocusedRowCellValue(GridViewBestellungen_Gesendet.Columns("BESTELLT_WER")) + If BestellID Is Nothing = False And Not IsNothing(SupplyID) Then + If Manuell = False Then + sql = String.Format("UPDATE TBSUPPLIES SET STATUS_ID = 2, GEAENDERTWER = '{0}', MARKER = 'Frontend' WHERE GUID = {1} AND STATUS_ID = 10", Environment.UserName, SupplyID) + If ClassDatabase.Execute_non_Query(sql, True) = True Then + sql = String.Format("DELETE FROM TBSUPPLY_BESTELLUNG WHERE (GUID = {0})", BestellID) + ClassDatabase.Execute_non_Query(sql, True) + ' TBSUPPLY_BESTELLUNGViewTableAdapter.Delete(BestellID) + End If + Else + Dim marker + If BestelltWer.ToString.StartsWith("FW_") Then + marker = "MANUELLE BESTELLUNG PER FLEETWATCH" + Else + marker = "MANUELLE BESTELLUNG PER SUPPLYWATCH" + End If + sql = String.Format("INSERT INTO TBSUPPLIES_2_ORDER_TEMP (SUPPLY_ID,MARKER,ERFASSTWER,MANUALLY,BESTELL_ID) VALUES ({0},'{1}','{2}',1,{3})", SupplyID, marker, BestelltWer, BestellID) + If ClassDatabase.Execute_non_Query(sql, True) = True Then + sql = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET MARKER = 'Rückgängig Bestellung gesendet',MANUELL_BESTELLT = 0 WHERE GUID = {0}", BestellID) + ClassDatabase.Execute_non_Query(sql, True) + End If + End If + Load_Bestellung_Gesendet() + tslbl_Hinweis.Text = "Bestellung gelöscht/Supply Status auf 'Bestell. erforderlich' - " & Now + tslbl_Hinweis.Visible = True + Else + tslbl_Hinweis.Visible = False + + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Set Back 2 'Bestellung erforderlich':") + tslbl_Hinweis.Visible = False + End Try + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Process.Start(Application.UserAppDataPath()) + End Sub + + Private Sub ToolStripButton38_Click(sender As Object, e As EventArgs) Handles tsbtnSet2BestelltManually.Click + Dim result As MsgBoxResult + result = MessageBox.Show("Wirklich manuell auf BESTELLT setzen?", "Bestätigung::", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.No Then + Exit Sub + End If + Try + Dim sql As String + 'Überhaupt Rows in Grid? + If GridViewBestellungen_Gesendet.RowCount > 0 Then + Dim BestellID = GridViewBestellungen_Gesendet.GetFocusedRowCellValue(GridViewBestellungen_Gesendet.Columns(0)) + Dim SupplyID = GridViewBestellungen_Gesendet.GetFocusedRowCellValue(GridViewBestellungen_Gesendet.Columns(1)) + Dim Manuell = GridViewBestellungen_Gesendet.GetFocusedRowCellValue(GridViewBestellungen_Gesendet.Columns("MANUELL")) + Dim BestelltWer = GridViewBestellungen_Gesendet.GetFocusedRowCellValue(GridViewBestellungen_Gesendet.Columns("BESTELLT_WER")) + If BestellID Is Nothing = False And Not IsNothing(SupplyID) Then + If Manuell = False Then + sql = String.Format("UPDATE TBSUPPLIES SET STATUS_ID = 4, STATUS_WER = '{0}', MARKER = 'MANUALLY FROM BESTELLUNG GESENDET' WHERE (STATUS_ID = 10) AND (GUID = {1})", Environment.UserName, SupplyID) + If ClassDatabase.Execute_non_Query(sql, True) = True Then + sql = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET BESTELLT_WANN = GETDATE(), MARKER = 'Status Bestellt manuell gesetzt durch: {0}' WHERE GUID = {1}", Environment.UserName, BestellID) + ClassDatabase.Execute_non_Query(sql, True) + End If + 'TBSUPPLIESTableAdapter.cmdSetBestellt(Environment.UserName, "MANUALLY FROM BESTELLUNG GESENDET", SupplyID) + Else + 'If BestelltWer.ToString.StartsWith("FW_") Then + sql = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET BESTELLT_WANN = GETDATE(), MARKER = 'Status Bestellt manuell gesetzt durch: {0}' WHERE GUID = {1}", Environment.UserName, BestellID) + ClassDatabase.Execute_non_Query(sql, True) + ' End If + End If + + Load_Bestellung_Gesendet() + tslbl_Hinweis.Text = "Bestell-ID '" & BestellID.ToString & "' - manuell auf 'Bestellt' gesetzt - " & Now + tslbl_Hinweis.Visible = True + Else + tslbl_Hinweis.Visible = False + + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Set Back 2 'Bestellung erforderlich':") + tslbl_Hinweis.Visible = False + End Try + End Sub + + Private Sub GridViewBestellUebersicht_RowUpdated(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectEventArgs) Handles GridViewBestellUebersicht.RowUpdated + Try + If FormLoaded = True Then + 'Überhaupt Rows in Grid? + If GridViewBestellUebersicht.RowCount > 0 Then + Dim coc = GridViewBestellUebersicht.FocusedValue + Dim BestellNr = GridViewBestellUebersicht.GetFocusedRowCellValue(GridViewBestellUebersicht.Columns("BESTELLNR")) + Dim ID = GridViewBestellUebersicht.GetFocusedRowCellValue(GridViewBestellUebersicht.Columns("GUID")) + Dim Menge = GridViewBestellUebersicht.GetFocusedRowCellValue(GridViewBestellUebersicht.Columns("MENGE")) + If BestellNr Is Nothing = False And Not IsNothing(ID) Then + tslbl_Hinweis.Text = "Bestell-Nr./Menge eingepflegt/geändert' - " & Now + tslbl_Hinweis.Visible = True + Me.TBSUPPLY_BESTELLUNGViewTableAdapter.cmdUpdate_BestNr(BestellNr, Environment.UserName, Menge, ID) + Refresh_Bestellungen() + Else + tslbl_Hinweis.Visible = False + End If + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Aktualisieren der BestellNr:") + tslbl_Hinweis.Visible = False + End Try + End Sub + + Private Sub ToolStripButton37_Click(sender As Object, e As EventArgs) Handles ToolStripButton37.Click + Dim saveFileDialog1 As New SaveFileDialog + saveFileDialog1.Filter = "Excel (*.xls)|*.xls|Excel (*.xlsx)|*.xlsx" + saveFileDialog1.Title = "Export to Excel:" + saveFileDialog1.ShowDialog() + If saveFileDialog1.FileName <> "" Then + Cursor = Cursors.WaitCursor + If saveFileDialog1.FileName.EndsWith("xlsx") Then + GridViewBestellungen_Gesendet.ExportToXlsx(saveFileDialog1.FileName) + Else + GridViewBestellungen_Gesendet.ExportToXls(saveFileDialog1.FileName) + End If + Dim result As MsgBoxResult + result = MessageBox.Show("Datei wurde erstellt! Wollen Sie diese nun öffnen?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Process.Start(saveFileDialog1.FileName) + End If + + + End If + Cursor = Cursors.Default + End Sub + Private Sub GridViewGeraete_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewGeraete.FocusedColumnChanged + ROWCOL_Change_Geraet() + End Sub + + Private Sub GridViewGeraete_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewGeraete.FocusedRowChanged + ROWCOL_Change_Geraet() + End Sub + Sub ROWCOL_Change_Geraet() + If FormLoaded = True Then + Try + If Me.TBGERAETBindingSource.Count = 0 Then + Exit Sub + End If + Dim GERAET_ID As Integer = GridViewGeraete.GetFocusedRowCellValue(GridViewGeraete.Columns("GUID")) + If CURRENT_GERAETE_ID <> GERAET_ID Then + CURRENT_GERAETE_ID = GERAET_ID + Try + Me.VWSUPPLIES_GERAETTableAdapter.FillByGeraet(MyDataset.VWSUPPLIES_AKTUELL, GERAET_ID) + Catch ex As Exception + MessageBox.Show(ex.Message, "Fehler beim Laden der Supply-Daten:", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Try + Refresh_ChangeLog(GERAET_ID) + End If + Catch ex As Exception + Exit Sub + End Try + + End If + End Sub + + Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnManaulOrders.Click + Load_Bestellungen_Manuell() + End Sub + + 'Private Sub GridViewGeraetOrder_RowUpdated(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectEventArgs) + ' If FormLoaded = True Then + ' Try + ' Me.VWGERAET_ORDERBindingSource.EndEdit() + ' If MyDataset.VWGERAET_ORDER.GetChanges Is Nothing = False Then + ' Dim BESTGESENDET = GridViewGeraetOrder.GetFocusedRowCellValue(GridViewGeraetOrder.Columns("BESTELLUNG")) + ' Dim GUID = GridViewGeraetOrder.GetFocusedRowCellValue(GridViewGeraetOrder.Columns("GUID")) + ' If BESTGESENDET = True Then + ' ClassDatabase.Execute_non_Query("UPDATE TBGERAET SET BESTELLUNG = 1 WHERE GUID = " & GUID, True) + ' Else + ' ClassDatabase.Execute_non_Query("UPDATE TBGERAET SET BESTELLUNG = 0 WHERE GUID = " & GUID, True) + ' ' Me.TBGERAETTableAdapter.CmdUpdateBestellungnein(GUID) + ' End If + ' ''MsgBox(VWGERAET_ORDERDG.Splits(VWGERAET_ORDERDG.SplitIndex).DisplayColumns(VWGERAET_ORDERDG.Col).DataColumn.Value, MsgBoxStyle.Information, DataColumn) + ' 'Select Case DataColumn + ' ' Case "Bestellung ja/nein" + ' ' Dim Value As Boolean = VWGERAET_ORDERDG.Splits(VWGERAET_ORDERDG.SplitIndex).DisplayColumns(VWGERAET_ORDERDG.Col).DataColumn.Value + ' ' Dim GERAET_ID As Integer = VWGERAET_ORDERDG.Item(VWGERAET_ORDERDG.Row, "Geraete-ID") + ' ' 'MsgBox(VWGERAET_ORDERDG.Splits(VWGERAET_ORDERDG.SplitIndex).DisplayColumns(VWGERAET_ORDERDG.Col).DataColumn.Value, MsgBoxStyle.Information, DataColumn) + ' ' If Value = True Then + ' ' Me.TBGERAETTableAdapter.CmdBestellungJa(GERAET_ID) + ' ' Else + ' ' Me.TBGERAETTableAdapter.CmdUpdateBestellungnein(GERAET_ID) + ' ' End If + ' 'End Select + ' End If + ' Catch ex As Exception + ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Markieren für Bestellung:") + ' End Try + ' End If + 'End Sub + + Private Sub GridViewVWSupplies_RowUpdated(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectEventArgs) Handles GridViewVWSupplies.RowUpdated + If FormLoaded = True Then + Try + Me.VWSUPPLIESBindingSource.EndEdit() + If MyDataset.VWSUPPLIES.GetChanges Is Nothing = False Then + Dim Schwellwert = GridViewVWSupplies.GetFocusedRowCellValue(GridViewVWSupplies.Columns("SCHWELLENWERT")) + Dim SUPPLY_ID = GridViewVWSupplies.GetFocusedRowCellValue(GridViewVWSupplies.Columns("SUPPLY_ID")) + Me.TBSUPPLIESTableAdapter.cmdUpdateSchwellenwert(Schwellwert, Environment.UserName, SUPPLY_ID) + 'MsgBox(VWGERAET_ORDERDG.Splits(VWGERAET_ORDERDG.SplitIndex).DisplayColumns(VWGERAET_ORDERDG.Col).DataColumn.Value, MsgBoxStyle.Information, DataColumn) + Refresh_Supplies() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Markieren für Bestellung:") + End Try + End If + End Sub + Private Sub GridViewSupplyZuordnung_RowUpdated(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectEventArgs) Handles GridViewSupplyZuordnung.RowUpdated + If FormLoaded = True Then + Try + VWGeraet_Supply_ZuordnungBindingSource.EndEdit() + If MyDataset.VWGeraet_Supply_Zuordnung.GetChanges Is Nothing = False Then + Cursor = Cursors.WaitCursor + Dim ID As Integer = GridViewSupplyZuordnung.GetFocusedRowCellValue(GridViewSupplyZuordnung.Columns("GUID")) + Dim SW As Integer = GridViewSupplyZuordnung.GetFocusedRowCellValue(GridViewSupplyZuordnung.Columns("SCHWELLENWERT")) + 'MsgBox(Me.VWGeraet_Supply_ZuordnungDG.Item(VWGeraet_Supply_ZuordnungDG.Row, "Schwellenwert") & vbNewLine & Me.VWGeraet_Supply_ZuordnungDG.Item(VWGeraet_Supply_ZuordnungDG.Row, "ID")) + Me.VWGeraet_Supply_ZuordnungTableAdapter.CmdUpdateSW(SW, ID) + Refresh_Geraete_Supply() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Update des Schwellenwertes:") + End Try + Cursor = Cursors.Default + End If + End Sub + Private Sub GerätebestellungLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GerätebestellungLöschenToolStripMenuItem.Click + Try + If FormLoaded = True Then + Dim G_ID = GridViewSupplies2Order.GetFocusedRowCellValue(GridViewSupplies2Order.Columns("GERAET_ID")) + If G_ID > 0 Then + Dim del = String.Format("DELETE FROM TBSUPPLIES_2_ORDER_TEMP WHERE SUPPLY_ID in (SELECT GUID FROM TBSUPPLIES WHERE GERAET_ID = {0})", G_ID) + If ClassDatabase.Execute_non_Query(del.ToString, True) Then + Refresh_Supplies2Order(cmbMandanten.Text) + End If + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Löschen Supplybestellung für Gerät:") + End Try + + End Sub + + Private Sub SupplybestellungLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupplybestellungLöschenToolStripMenuItem.Click + Try + If FormLoaded = True Then + Cursor = Cursors.WaitCursor + Dim SupplyID = GridViewSupplies2Order.GetFocusedRowCellValue(GridViewSupplies2Order.Columns("SUPPLY_ID")) + If SupplyID > 0 Then + Dim del = "DELETE FROM TBSUPPLIES_2_ORDER_TEMP WHERE SUPPLY_ID = " & SupplyID.ToString + If ClassDatabase.Execute_non_Query(del.ToString, True) Then + Refresh_Supplies2Order(cmbMandanten.Text) + End If + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Löschen Supplybestellung:") + End Try + Cursor = Cursors.Default + + End Sub + + Private Sub ToolStripButton38_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton38.Click + If SPCOrder.Panel2Collapsed = False Then + SPCOrder.Panel2Collapsed = True + Else + Load_Nachverfolgung_Supplies() + SPCOrder.Panel2Collapsed = False + End If + End Sub + + Private Sub GridViewSupplies2Order_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewSupplies2Order.FocusedRowChanged + Load_Nachverfolgung_Supplies() + End Sub + + Private Sub GridViewSupplies2Order_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) Handles GridViewSupplies2Order.CellValueChanged + + End Sub + + Private Sub GridViewSupplies2Order_RowUpdated(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectEventArgs) Handles GridViewSupplies2Order.RowUpdated + If FormLoaded = True Then + Try + Me.VWSUPPLIES_2_ORDERBindingSource.EndEdit() + If MyDataset.VWSUPPLIES_2_ORDER.GetChanges Is Nothing = False Then + Dim bool = GridViewSupplies2Order.GetFocusedRowCellValue(GridViewSupplies2Order.Columns("GUI_SELECTED")) + Dim GUID = GridViewSupplies2Order.GetFocusedRowCellValue(GridViewSupplies2Order.Columns("GUID")) + If bool = True Then + bool = 1 + Else + bool = 0 + End If + Dim upd = "UPDATE TBSUPPLIES_2_ORDER_TEMP SET GUI_SELECTED = " & bool & " WHERE GUID = " & GUID + ClassDatabase.Execute_non_Query(upd) + 'MsgBox(VWGERAET_ORDERDG.Splits(VWGERAET_ORDERDG.SplitIndex).DisplayColumns(VWGERAET_ORDERDG.Col).DataColumn.Value, MsgBoxStyle.Information, DataColumn) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Markieren für Bestellung:") + End Try + End If + End Sub + + Private Sub TCUebersicht_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TCUebersicht.SelectedIndexChanged + If TCUebersicht.SelectedIndex = 3 Then + Me.TBWH_MARKTTableAdapter.Fill(MyDataset.TBWH_MARKT) + End If + End Sub +End Class diff --git a/Supplywatch/ModuleCURRENT.vb b/Supplywatch/ModuleCURRENT.vb new file mode 100644 index 0000000..508a7ad --- /dev/null +++ b/Supplywatch/ModuleCURRENT.vb @@ -0,0 +1,4 @@ +Module ModuleCURRENT + Public CURRENT_GERAETE_ID As Integer + Public MyConnectionString As String +End Module diff --git a/Supplywatch/My Project/Application.Designer.vb b/Supplywatch/My Project/Application.Designer.vb new file mode 100644 index 0000000..96a57d9 --- /dev/null +++ b/Supplywatch/My Project/Application.Designer.vb @@ -0,0 +1,43 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten + ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.MCSUPPLYWATCH.FMMain + End Sub + + _ + Protected Overrides Sub OnCreateSplashScreen() + Me.SplashScreen = Global.MCSUPPLYWATCH.FMDisclaimer + End Sub + End Class +End Namespace diff --git a/Supplywatch/My Project/Application.myapp b/Supplywatch/My Project/Application.myapp new file mode 100644 index 0000000..0c54a10 --- /dev/null +++ b/Supplywatch/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + FMMain + false + 0 + true + 0 + FMDisclaimer + true + \ No newline at end of file diff --git a/Supplywatch/My Project/AssemblyInfo.vb b/Supplywatch/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..6583ee4 --- /dev/null +++ b/Supplywatch/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die mit einer Assembly verknüpft sind. + +' Die Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern +' übernehmen, indem Sie "*" eingeben: +' + + + diff --git a/Supplywatch/My Project/Resources.Designer.vb b/Supplywatch/My Project/Resources.Designer.vb new file mode 100644 index 0000000..67f39e8 --- /dev/null +++ b/Supplywatch/My Project/Resources.Designer.vb @@ -0,0 +1,413 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("MCSUPPLYWATCH.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _Public() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Public", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property aktualisieren_1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("aktualisieren_1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_back_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_back_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_Forward_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_Forward_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_Forward_16xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_Forward_16xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property asterisk_orange() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("asterisk_orange", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Beenden2() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Beenden2", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property benutzer7() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("benutzer7", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property bug() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("bug", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property bug_edit() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("bug_edit", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Checked_outforEdit_13297() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Checked-outforEdit_13297", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Checked_outforEdit_Color_13297() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Checked-outforEdit_Color_13297", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property CheckIn_13188() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("CheckIn_13188", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property CheckOutforEdit_13187() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("CheckOutforEdit_13187", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_lightning() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_lightning", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property delete() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("delete", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Delete1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Delete1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property DigitalDataLogo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("DigitalDataLogo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property EMAIL() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("EMAIL", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property email_open_image() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("email_open_image", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Excel_25ixel() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Excel_25ixel", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property fghfgh() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("fghfgh", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ico1411() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico1411", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ico2168() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico2168", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ico2312() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico2312", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ico898() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ico898", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property link_add() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("link_add", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property My_Downloads_XP() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("My Downloads XP", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property My_Rar_Files_XP() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("My Rar Files XP", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property refresh_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("refresh_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ruby_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ruby_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property save() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("save", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property table_add() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("table_add", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property table_delete() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("table_delete", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property table_save() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("table_save", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Module +End Namespace diff --git a/Supplywatch/My Project/Resources.resx b/Supplywatch/My Project/Resources.resx new file mode 100644 index 0000000..6eb787c --- /dev/null +++ b/Supplywatch/My Project/Resources.resx @@ -0,0 +1,226 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\asterisk_orange.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\benutzer7.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\table_delete.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_Forward_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ruby_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ico898.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ico2312.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_Forward_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\aktualisieren_1.jpg;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\fghfgh.ICO;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\email_open_image.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Beenden2.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\DigitalDataLogo.jpg;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\CheckIn_13188.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ico2168.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\EMAIL.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Delete1.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Public.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_back_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\table_save.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\My Downloads XP.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\My Rar Files XP.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\link_add.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bug_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_lightning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ico1411.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bug.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\CheckOutforEdit_13187.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/Supplywatch/My Project/Settings.Designer.vb b/Supplywatch/My Project/Settings.Designer.vb new file mode 100644 index 0000000..ba16cf9 --- /dev/null +++ b/Supplywatch/My Project/Settings.Designer.vb @@ -0,0 +1,650 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Automatische My.Settings-Speicherfunktion" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + + _ + Public ReadOnly Property MC_SUPPLYWATCHConnectionString() As String + Get + Return CType(Me("MC_SUPPLYWATCHConnectionString"),String) + End Get + End Property + + _ + Public Property ConfigConnectionString() As String + Get + Return CType(Me("ConfigConnectionString"),String) + End Get + Set + Me("ConfigConnectionString") = value + End Set + End Property + + _ + Public Property SQL_DATENBANK() As String + Get + Return CType(Me("SQL_DATENBANK"),String) + End Get + Set + Me("SQL_DATENBANK") = value + End Set + End Property + + _ + Public Property SQL_SERVERNAME() As String + Get + Return CType(Me("SQL_SERVERNAME"),String) + End Get + Set + Me("SQL_SERVERNAME") = value + End Set + End Property + + _ + Public Property SQL_USER() As String + Get + Return CType(Me("SQL_USER"),String) + End Get + Set + Me("SQL_USER") = value + End Set + End Property + + _ + Public Property SQL_PW() As String + Get + Return CType(Me("SQL_PW"),String) + End Get + Set + Me("SQL_PW") = value + End Set + End Property + + _ + Public Property TBSTATUSDataGridView() As String + Get + Return CType(Me("TBSTATUSDataGridView"),String) + End Get + Set + Me("TBSTATUSDataGridView") = value + End Set + End Property + + _ + Public Property SpDGeraete() As Integer + Get + Return CType(Me("SpDGeraete"),Integer) + End Get + Set + Me("SpDGeraete") = value + End Set + End Property + + _ + Public Property VWSUPPLIES_AKTUELLDataGridView() As String + Get + Return CType(Me("VWSUPPLIES_AKTUELLDataGridView"),String) + End Get + Set + Me("VWSUPPLIES_AKTUELLDataGridView") = value + End Set + End Property + + _ + Public Property SPDOrderGeraet() As Integer + Get + Return CType(Me("SPDOrderGeraet"),Integer) + End Get + Set + Me("SPDOrderGeraet") = value + End Set + End Property + + _ + Public Property VWSUPPLIES_TO_ORDERDataGridView() As String + Get + Return CType(Me("VWSUPPLIES_TO_ORDERDataGridView"),String) + End Get + Set + Me("VWSUPPLIES_TO_ORDERDataGridView") = value + End Set + End Property + + _ + Public Property Setting() As String + Get + Return CType(Me("Setting"),String) + End Get + Set + Me("Setting") = value + End Set + End Property + + _ + Public Property spltGeraeteUebersicht() As Global.System.Drawing.Point + Get + Return CType(Me("spltGeraeteUebersicht"),Global.System.Drawing.Point) + End Get + Set + Me("spltGeraeteUebersicht") = value + End Set + End Property + + _ + Public Property spltSupplies() As Global.System.Drawing.Point + Get + Return CType(Me("spltSupplies"),Global.System.Drawing.Point) + End Get + Set + Me("spltSupplies") = value + End Set + End Property + + _ + Public Property TBWH_STATUSFILTERDataGridView() As String + Get + Return CType(Me("TBWH_STATUSFILTERDataGridView"),String) + End Get + Set + Me("TBWH_STATUSFILTERDataGridView") = value + End Set + End Property + + _ + Public Property TBWH_MARKTDataGridView() As String + Get + Return CType(Me("TBWH_MARKTDataGridView"),String) + End Get + Set + Me("TBWH_MARKTDataGridView") = value + End Set + End Property + + _ + Public Property spltBestellungen() As Global.System.Drawing.Point + Get + Return CType(Me("spltBestellungen"),Global.System.Drawing.Point) + End Get + Set + Me("spltBestellungen") = value + End Set + End Property + + _ + Public Property TBSUPPLY_BESTELLUNGDataGridView() As String + Get + Return CType(Me("TBSUPPLY_BESTELLUNGDataGridView"),String) + End Get + Set + Me("TBSUPPLY_BESTELLUNGDataGridView") = value + End Set + End Property + + _ + Public Property TBSUPPLY_BESTELLUNGViewDataGridView() As String + Get + Return CType(Me("TBSUPPLY_BESTELLUNGViewDataGridView"),String) + End Get + Set + Me("TBSUPPLY_BESTELLUNGViewDataGridView") = value + End Set + End Property + + _ + Public Property DGTBWH_Markt_Bestellungen() As String + Get + Return CType(Me("DGTBWH_Markt_Bestellungen"),String) + End Get + Set + Me("DGTBWH_Markt_Bestellungen") = value + End Set + End Property + + _ + Public Property spltVerfolgung() As Integer + Get + Return CType(Me("spltVerfolgung"),Integer) + End Get + Set + Me("spltVerfolgung") = value + End Set + End Property + + _ + Public Property spltGeraet_Supply() As Integer + Get + Return CType(Me("spltGeraet_Supply"),Integer) + End Get + Set + Me("spltGeraet_Supply") = value + End Set + End Property + + _ + Public Property splitterVerfolgung() As Global.System.Drawing.Point + Get + Return CType(Me("splitterVerfolgung"),Global.System.Drawing.Point) + End Get + Set + Me("splitterVerfolgung") = value + End Set + End Property + + _ + Public Property VWGERAETE_VERFOLGUNGDataGridView() As String + Get + Return CType(Me("VWGERAETE_VERFOLGUNGDataGridView"),String) + End Get + Set + Me("VWGERAETE_VERFOLGUNGDataGridView") = value + End Set + End Property + + _ + Public Property VWSUPPLY_VERFOLGUNGDataGridView() As String + Get + Return CType(Me("VWSUPPLY_VERFOLGUNGDataGridView"),String) + End Get + Set + Me("VWSUPPLY_VERFOLGUNGDataGridView") = value + End Set + End Property + + _ + Public Property spltProduktVertrag() As Integer + Get + Return CType(Me("spltProduktVertrag"),Integer) + End Get + Set + Me("spltProduktVertrag") = value + End Set + End Property + + _ + Public Property TBVERTRAEGEDataGridView() As String + Get + Return CType(Me("TBVERTRAEGEDataGridView"),String) + End Get + Set + Me("TBVERTRAEGEDataGridView") = value + End Set + End Property + + _ + Public Property TBPRODUKT_VERTRAGDataGridView() As String + Get + Return CType(Me("TBPRODUKT_VERTRAGDataGridView"),String) + End Get + Set + Me("TBPRODUKT_VERTRAGDataGridView") = value + End Set + End Property + + _ + Public Property splitter_VertragProdukt() As Global.System.Drawing.Point + Get + Return CType(Me("splitter_VertragProdukt"),Global.System.Drawing.Point) + End Get + Set + Me("splitter_VertragProdukt") = value + End Set + End Property + + _ + Public Property TBSUPPLY_DEFINITIONDataGridView() As String + Get + Return CType(Me("TBSUPPLY_DEFINITIONDataGridView"),String) + End Get + Set + Me("TBSUPPLY_DEFINITIONDataGridView") = value + End Set + End Property + + _ + Public Property VWNotInListDataGridView() As String + Get + Return CType(Me("VWNotInListDataGridView"),String) + End Get + Set + Me("VWNotInListDataGridView") = value + End Set + End Property + + _ + Public Property TBVERTRAG_NOTEXISTDataGridView() As String + Get + Return CType(Me("TBVERTRAG_NOTEXISTDataGridView"),String) + End Get + Set + Me("TBVERTRAG_NOTEXISTDataGridView") = value + End Set + End Property + + _ + Public Property frmImport_Report() As Global.System.Drawing.Point + Get + Return CType(Me("frmImport_Report"),Global.System.Drawing.Point) + End Get + Set + Me("frmImport_Report") = value + End Set + End Property + + _ + Public Property SheetnameBestellung() As String + Get + Return CType(Me("SheetnameBestellung"),String) + End Get + Set + Me("SheetnameBestellung") = value + End Set + End Property + + _ + Public Property conFile_Reporting() As String + Get + Return CType(Me("conFile_Reporting"),String) + End Get + Set + Me("conFile_Reporting") = value + End Set + End Property + + _ + Public ReadOnly Property FehlerEmail_to() As String + Get + Return CType(Me("FehlerEmail_to"),String) + End Get + End Property + + _ + Public Property verf_id() As Integer + Get + Return CType(Me("verf_id"),Integer) + End Get + Set + Me("verf_id") = value + End Set + End Property + + _ + Public Property Mandant_ID() As String + Get + Return CType(Me("Mandant_ID"),String) + End Get + Set + Me("Mandant_ID") = value + End Set + End Property + + =2013' ABGRENZUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"T.GERAETE_ID,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"T.SERIENNR,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"T.BEZEI"& _ + "CHNUNG AS DEVICE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"MIN(CONVERT(DATE, T.MELDEDATUM)) AS ERSTES_MELDEDATUM,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"MA"& _ + "X(CONVERT(DATE, T.MELDEDATUM)) AS LETZTES_MELDEDATUM,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"MIN(T.PAGE_COUNT) AS PAG"& _ + "ECOUNT_MIN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"MAX(T.PAGE_COUNT) AS PAGECOUNT_MAX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"MAX(T.PAGE_COUNT) - MIN(T."& _ + "PAGE_COUNT) AS PAGECOUNT_ALL, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"--A4Mono"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MAX(T.A4MONOTotalImpressi"& _ + "ons) IS NULL OR MAX(T.A4MONOTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MAX(T.A4MONOTo"& _ + "talImpressions) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"END) - "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"CASE WHEN MIN(T.A4MONOTotalImpressions) IS NULL O"& _ + "R MIN(T.A4MONOTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MIN(T.A4MONOTotalImpressions"& _ + ") "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"END"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"AS PAGECOUNT_A4MONO,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"--A3Mono"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MAX(T.A3MONOTotalImpres"& _ + "sions) IS NULL OR MAX(T.A3MONOTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MAX(T.A3MONO"& _ + "TotalImpressions) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"END) - "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"CASE WHEN MIN(T.A3MONOTotalImpressions) IS NULL"& _ + " OR MIN(T.A3MONOTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MIN(T.A3MONOTotalImpressio"& _ + "ns) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"END"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"AS PAGECOUNT_A3MONO,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MAX(T.A4MONOTotalImpressions) IS"& _ + " NULL OR MAX(T.A4MONOTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MAX(T.A4MONOTotalImpr"& _ + "essions) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"END) - (CASE WHEN MIN(T.A4MONOTotalImpressions) IS NULL OR MIN(T.A4"& _ + "MONOTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MIN(T.A4MONOTotalImpressions) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)& _ + "END) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"+ "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MAX(T.A3MONOTotalImpressions) IS NULL OR MAX(T.A3MONOT"& _ + "otalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MAX(T.A3MONOTotalImpressions) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"END) - (C"& _ + "ASE WHEN MIN(T.A3MONOTotalImpressions) IS NULL OR MIN(T.A3MONOTotalImpressions) "& _ + "= 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MIN(T.A3MONOTotalImpressions) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"END) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"AS PAGECOUNT_M"& _ + "ONO,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"--A4Color"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MAX(T.A4ColorTotalImpressions) IS NULL OR MAX(T.A4"& _ + "ColorTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MAX(T.A4ColorTotalImpressions) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"EN"& _ + "D) - "&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MIN(T.A4ColorTotalImpressions) IS NULL OR MIN(T.A4ColorTotalImp"& _ + "ressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MIN(T.A4ColorTotalImpressions) END)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"AS PAGECOU"& _ + "NT_A4COLOR,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"--A3COLOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MAX(T.A3COLORTotalImpressions) IS NULL OR M"& _ + "AX(T.A3COLORTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MAX(T.A3COLORTotalImpressions)"& _ + " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"END) - (CASE WHEN MIN(T.A3COLORTotalImpressions) IS NULL OR MIN(T.A3COLORTo"& _ + "talImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MIN(T.A3COLORTotalImpressions) END)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"AS P"& _ + "AGECOUNT_A3COLOR,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"--PAGECOUNT COLOR MIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"CASE WHEN MIN(T.A4ColorTotalImpressi"& _ + "ons) IS NULL OR MIN(T.A4ColorTotalImpressions) = 0"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN MIN(T.A4ColorTotalImpr"& _ + "essions) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"ELSE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MIN(T.A4ColorTotalImpressions) IS NULL OR MIN(T.A4"& _ + "ColorTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MIN(T.A4ColorTotalImpressions) END) +"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MIN(T.A3COLORTotalImpressions) IS NULL OR MIN(T.A3COLORTotalImpress"& _ + "ions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MIN(T.A3COLORTotalImpressions) END)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"END"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"AS PAGECOU"& _ + "NT_COLOR_MIN,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"--PAGECOUNT COLOR MAX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MAX(T.A4ColorTotalImpressions"& _ + ") IS NULL OR MAX(T.A4ColorTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MAX(T.A4ColorTot"& _ + "alImpressions) END) +"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MAX(T.A3COLORTotalImpressions) IS NULL OR MAX"& _ + "(T.A3COLORTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MAX(T.A3COLORTotalImpressions) EN"& _ + "D)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"AS PAGECOUNT_COLOR_MAX,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"--PAGECOUNT COLOR ALL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MAX(T.A4ColorT"& _ + "otalImpressions) IS NULL OR MAX(T.A4ColorTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE M"& _ + "AX(T.A4ColorTotalImpressions) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"END) - "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"CASE WHEN YEAR(CONVERT(DATE, '@DATE_"& _ + "VON')) = 2012 THEN "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"CASE WHEN MIN(T.A4ColorTotalImpressions) IS NULL OR MIN(T"& _ + ".A4ColorTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MIN(T.A4ColorTotalImpressions) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)& _ + ""&Global.Microsoft.VisualBasic.ChrW(9)&"END"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"ELSE "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"CASE WHEN MIN(T.A4ColorTotalImpressions) IS NULL OR MIN(T.A4Colo"& _ + "rTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MIN(T.A4ColorTotalImpressions) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"END"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)& _ + "END"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" + "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"(CASE WHEN MAX(T.A3COLORTotalImpressions) IS NULL OR MAX(T.A3COLORTo"& _ + "talImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MAX(T.A3COLORTotalImpressions) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"END) - "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"C"& _ + "ASE WHEN YEAR(CONVERT(DATE,'@DATE_VON')) = 2012 THEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"CASE WHEN MIN(T.A3COLORTo"& _ + "talImpressions) IS NULL OR MIN(T.A3COLORTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MI"& _ + "N(T.A3COLORTotalImpressions) END"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"ELSE "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"CASE WHEN MIN(T.A3COLORTotalImpressi"& _ + "ons) IS NULL OR MIN(T.A3COLORTotalImpressions) = 0 "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"THEN 0 ELSE MIN(T.A3COLOR"& _ + "TotalImpressions) END"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"END AS PAGECOUNT_COLOR_ALL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"MC2_SUPPLYWATCH_VERFO"& _ + "LGUNG.dbo.TBGERAETE_VERFOLGUNG AS T,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"MC2_SUPPLYWATCH.dbo.TBGERAET AS T1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE"& _ + " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"T.GERAETE_ID = T1.GUID AND "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"--NOT EXISTS (SELECT GERAETE_ID FROM MC2_SUPPL"& _ + "YWATCH_VERFOLGUNG.dbo.TBGERAETE_VERFOLGUNG_bis2012 WHERE GERAETE_ID = T.GERAETE_"& _ + "ID) AND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"T.PAGE_COUNT > 0 AND T.GERAETE_ID IS NOT NULL AND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"REPLACE(T1.MARKT, "& _ + "' ', '') = REPLACE('@MARKT', ' ', '') AND "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"(CONVERT(DATE, T.MELDEDATUM) BETWEE"& _ + "N CONVERT(DATE,'@DATE_VON') AND CONVERT(DATE,'@DATE_BIS'))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"T.GERAET"& _ + "E_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"T.SERIENNR,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"T.BEZEICHNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY ERSTES_MELDEDATUM")> _ + Public ReadOnly Property selectATR() As String + Get + Return CType(Me("selectATR"),String) + End Get + End Property + + _ + Public Property SplitContainerSupplies_SD() As Integer + Get + Return CType(Me("SplitContainerSupplies_SD"),Integer) + End Get + Set + Me("SplitContainerSupplies_SD") = value + End Set + End Property + + _ + Public Property SplitContainerSupplyBestellungenSD() As Integer + Get + Return CType(Me("SplitContainerSupplyBestellungenSD"),Integer) + End Get + Set + Me("SplitContainerSupplyBestellungenSD") = value + End Set + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.MCSUPPLYWATCH.My.MySettings + Get + Return Global.MCSUPPLYWATCH.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/Supplywatch/My Project/Settings.settings b/Supplywatch/My Project/Settings.settings new file mode 100644 index 0000000..113e12d --- /dev/null +++ b/Supplywatch/My Project/Settings.settings @@ -0,0 +1,237 @@ + + + + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=192.168.8.13;Initial Catalog=MC2_SUPPLYWATCH;User ID=sa;Password=dd</ConnectionString> + <ProviderName>System.Data.SqlClient</ProviderName> +</SerializableConnectionString> + Data Source=192.168.8.13;Initial Catalog=MC2_SUPPLYWATCH;User ID=sa;Password=dd + + + Data Source=192.168.8.13;Initial Catalog=MC2_SUPPLYWATCH;User ID=sa;Password=dd + + + MC_SUPPLYWATCH + + + + + + sa + + + + + + + + + 308 + + + + + + 332 + + + + + + + + + 3, 28 + + + 224, 28 + + + + + + + + + 0, 56 + + + + + + + + + + + + 111 + + + 229 + + + 469, 25 + + + + + + + + + 266 + + + + + + + + + 510, 3 + + + + + + + + + + + + 0, 0 + + + RptOrder_Supplies + + + modReporting.xml + + + m.schreiber@didalog.de + + + 0 + + + + + + SELECT + '>=2013' ABGRENZUNG, + T.GERAETE_ID, + T.SERIENNR, + T.BEZEICHNUNG AS DEVICE, + MIN(CONVERT(DATE, T.MELDEDATUM)) AS ERSTES_MELDEDATUM, + MAX(CONVERT(DATE, T.MELDEDATUM)) AS LETZTES_MELDEDATUM, + MIN(T.PAGE_COUNT) AS PAGECOUNT_MIN, + MAX(T.PAGE_COUNT) AS PAGECOUNT_MAX, + MAX(T.PAGE_COUNT) - MIN(T.PAGE_COUNT) AS PAGECOUNT_ALL, + --A4Mono + (CASE WHEN MAX(T.A4MONOTotalImpressions) IS NULL OR MAX(T.A4MONOTotalImpressions) = 0 + THEN 0 ELSE MAX(T.A4MONOTotalImpressions) + END) - + CASE WHEN MIN(T.A4MONOTotalImpressions) IS NULL OR MIN(T.A4MONOTotalImpressions) = 0 + THEN 0 ELSE MIN(T.A4MONOTotalImpressions) + END + AS PAGECOUNT_A4MONO, + --A3Mono + (CASE WHEN MAX(T.A3MONOTotalImpressions) IS NULL OR MAX(T.A3MONOTotalImpressions) = 0 + THEN 0 ELSE MAX(T.A3MONOTotalImpressions) + END) - + CASE WHEN MIN(T.A3MONOTotalImpressions) IS NULL OR MIN(T.A3MONOTotalImpressions) = 0 + THEN 0 ELSE MIN(T.A3MONOTotalImpressions) + END + AS PAGECOUNT_A3MONO, + (CASE WHEN MAX(T.A4MONOTotalImpressions) IS NULL OR MAX(T.A4MONOTotalImpressions) = 0 + THEN 0 ELSE MAX(T.A4MONOTotalImpressions) + END) - (CASE WHEN MIN(T.A4MONOTotalImpressions) IS NULL OR MIN(T.A4MONOTotalImpressions) = 0 + THEN 0 ELSE MIN(T.A4MONOTotalImpressions) + END) + + + (CASE WHEN MAX(T.A3MONOTotalImpressions) IS NULL OR MAX(T.A3MONOTotalImpressions) = 0 + THEN 0 ELSE MAX(T.A3MONOTotalImpressions) + END) - (CASE WHEN MIN(T.A3MONOTotalImpressions) IS NULL OR MIN(T.A3MONOTotalImpressions) = 0 + THEN 0 ELSE MIN(T.A3MONOTotalImpressions) + END) + AS PAGECOUNT_MONO, + --A4Color + (CASE WHEN MAX(T.A4ColorTotalImpressions) IS NULL OR MAX(T.A4ColorTotalImpressions) = 0 + THEN 0 ELSE MAX(T.A4ColorTotalImpressions) + END) - (CASE WHEN MIN(T.A4ColorTotalImpressions) IS NULL OR MIN(T.A4ColorTotalImpressions) = 0 + THEN 0 ELSE MIN(T.A4ColorTotalImpressions) END) + AS PAGECOUNT_A4COLOR, + --A3COLOR + (CASE WHEN MAX(T.A3COLORTotalImpressions) IS NULL OR MAX(T.A3COLORTotalImpressions) = 0 + THEN 0 ELSE MAX(T.A3COLORTotalImpressions) + END) - (CASE WHEN MIN(T.A3COLORTotalImpressions) IS NULL OR MIN(T.A3COLORTotalImpressions) = 0 + THEN 0 ELSE MIN(T.A3COLORTotalImpressions) END) + AS PAGECOUNT_A3COLOR, + --PAGECOUNT COLOR MIN + CASE WHEN MIN(T.A4ColorTotalImpressions) IS NULL OR MIN(T.A4ColorTotalImpressions) = 0 + THEN MIN(T.A4ColorTotalImpressions) + ELSE + (CASE WHEN MIN(T.A4ColorTotalImpressions) IS NULL OR MIN(T.A4ColorTotalImpressions) = 0 + THEN 0 ELSE MIN(T.A4ColorTotalImpressions) END) + + (CASE WHEN MIN(T.A3COLORTotalImpressions) IS NULL OR MIN(T.A3COLORTotalImpressions) = 0 + THEN 0 ELSE MIN(T.A3COLORTotalImpressions) END) + END + AS PAGECOUNT_COLOR_MIN, + --PAGECOUNT COLOR MAX + (CASE WHEN MAX(T.A4ColorTotalImpressions) IS NULL OR MAX(T.A4ColorTotalImpressions) = 0 + THEN 0 ELSE MAX(T.A4ColorTotalImpressions) END) + + (CASE WHEN MAX(T.A3COLORTotalImpressions) IS NULL OR MAX(T.A3COLORTotalImpressions) = 0 + THEN 0 ELSE MAX(T.A3COLORTotalImpressions) END) + AS PAGECOUNT_COLOR_MAX, + --PAGECOUNT COLOR ALL + (CASE WHEN MAX(T.A4ColorTotalImpressions) IS NULL OR MAX(T.A4ColorTotalImpressions) = 0 + THEN 0 ELSE MAX(T.A4ColorTotalImpressions) + END) - + CASE WHEN YEAR(CONVERT(DATE, '@DATE_VON')) = 2012 THEN + CASE WHEN MIN(T.A4ColorTotalImpressions) IS NULL OR MIN(T.A4ColorTotalImpressions) = 0 + THEN 0 ELSE MIN(T.A4ColorTotalImpressions) + END + ELSE + CASE WHEN MIN(T.A4ColorTotalImpressions) IS NULL OR MIN(T.A4ColorTotalImpressions) = 0 + THEN 0 ELSE MIN(T.A4ColorTotalImpressions) + END + END + + + (CASE WHEN MAX(T.A3COLORTotalImpressions) IS NULL OR MAX(T.A3COLORTotalImpressions) = 0 + THEN 0 ELSE MAX(T.A3COLORTotalImpressions) + END) - + CASE WHEN YEAR(CONVERT(DATE,'@DATE_VON')) = 2012 THEN + CASE WHEN MIN(T.A3COLORTotalImpressions) IS NULL OR MIN(T.A3COLORTotalImpressions) = 0 + THEN 0 ELSE MIN(T.A3COLORTotalImpressions) END + ELSE + CASE WHEN MIN(T.A3COLORTotalImpressions) IS NULL OR MIN(T.A3COLORTotalImpressions) = 0 + THEN 0 ELSE MIN(T.A3COLORTotalImpressions) END + END AS PAGECOUNT_COLOR_ALL +FROM + MC2_SUPPLYWATCH_VERFOLGUNG.dbo.TBGERAETE_VERFOLGUNG AS T, + MC2_SUPPLYWATCH.dbo.TBGERAET AS T1 +WHERE + T.GERAETE_ID = T1.GUID AND + --NOT EXISTS (SELECT GERAETE_ID FROM MC2_SUPPLYWATCH_VERFOLGUNG.dbo.TBGERAETE_VERFOLGUNG_bis2012 WHERE GERAETE_ID = T.GERAETE_ID) AND + T.PAGE_COUNT > 0 AND T.GERAETE_ID IS NOT NULL AND + REPLACE(T1.MARKT, ' ', '') = REPLACE('@MARKT', ' ', '') AND + (CONVERT(DATE, T.MELDEDATUM) BETWEEN CONVERT(DATE,'@DATE_VON') AND CONVERT(DATE,'@DATE_BIS')) +GROUP BY + T.GERAETE_ID, + T.SERIENNR, + T.BEZEICHNUNG +ORDER BY ERSTES_MELDEDATUM + + + 746 + + + 743 + + + \ No newline at end of file diff --git a/Supplywatch/My Project/app.manifest b/Supplywatch/My Project/app.manifest new file mode 100644 index 0000000..af3961d --- /dev/null +++ b/Supplywatch/My Project/app.manifest @@ -0,0 +1,48 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Supplywatch/My Project/licenses.licx b/Supplywatch/My Project/licenses.licx new file mode 100644 index 0000000..16b05ba --- /dev/null +++ b/Supplywatch/My Project/licenses.licx @@ -0,0 +1 @@ +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Supplywatch/My Project/licenses.licx.bak b/Supplywatch/My Project/licenses.licx.bak new file mode 100644 index 0000000..0b8be43 --- /dev/null +++ b/Supplywatch/My Project/licenses.licx.bak @@ -0,0 +1 @@ +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Supplywatch/MyDataset.Designer.vb b/Supplywatch/MyDataset.Designer.vb new file mode 100644 index 0000000..9aafb73 --- /dev/null +++ b/Supplywatch/MyDataset.Designer.vb @@ -0,0 +1,46100 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class MyDataset + Inherits Global.System.Data.DataSet + + Private tableTBGERAET As TBGERAETDataTable + + Private tableVWSUPPLIES As VWSUPPLIESDataTable + + Private tableTBWH_STATUS1 As TBWH_STATUS1DataTable + + Private tableTBWH_STATUS2 As TBWH_STATUS2DataTable + + Private tableTBWH_STATUS3 As TBWH_STATUS3DataTable + + Private tableTBWH_STATUSFILTER As TBWH_STATUSFILTERDataTable + + Private tableTBSUPPLY_VERFOLGUNG As TBSUPPLY_VERFOLGUNGDataTable + + Private tableTBKONFIGURATION As TBKONFIGURATIONDataTable + + Private tableTBSTATUS As TBSTATUSDataTable + + Private tableTBWH_MARKT As TBWH_MARKTDataTable + + Private tableVWSUPPLIES_AKTUELL As VWSUPPLIES_AKTUELLDataTable + + Private tableVWGERAET_ORDER As VWGERAET_ORDERDataTable + + Private tableVWSUPPLIES_TO_ORDER As VWSUPPLIES_TO_ORDERDataTable + + Private tableTBSUPPLIES As TBSUPPLIESDataTable + + Private tableTBWH_STATUS4 As TBWH_STATUS4DataTable + + Private tableTBWH_STATUS5 As TBWH_STATUS5DataTable + + Private tableTBSUPPLY_BESTELLUNG As TBSUPPLY_BESTELLUNGDataTable + + Private tableTBWH_SUPPLIES_MARKT As TBWH_SUPPLIES_MARKTDataTable + + Private tableVWSUPPLY_BESTELLUNG_FRONTEND As VWSUPPLY_BESTELLUNG_FRONTENDDataTable + + Private tableTBGERAETByMarkt As TBGERAETByMarktDataTable + + Private tableTBIMPORT_PRODUKT As TBIMPORT_PRODUKTDataTable + + Private tableTBVERTRAEGE As TBVERTRAEGEDataTable + + Private tableTBPRODUKT_VERTRAG As TBPRODUKT_VERTRAGDataTable + + Private tableTBGERAETE_NOTINLIST As TBGERAETE_NOTINLISTDataTable + + Private tableTBWH_MODELL As TBWH_MODELLDataTable + + Private tableTBSUPPLY_DEFINITION As TBSUPPLY_DEFINITIONDataTable + + Private tableTBGERAET_SUPPLY_ZUORDNUNG As TBGERAET_SUPPLY_ZUORDNUNGDataTable + + Private tableVWGeraet_Supply_Zuordnung As VWGeraet_Supply_ZuordnungDataTable + + Private tableTBUSER_RECHTE As TBUSER_RECHTEDataTable + + Private tableTBMELDEDATUM As TBMELDEDATUMDataTable + + Private tableTBGERAETE_VERFOLGUNG As TBGERAETE_VERFOLGUNGDataTable + + Private tableVWMarkt_Verfolgung As VWMarkt_VerfolgungDataTable + + Private tableVWGERAETE_VERFOLGUNG As VWGERAETE_VERFOLGUNGDataTable + + Private tableTBREFLISTE_HISTORY As TBREFLISTE_HISTORYDataTable + + Private tableTBMANDANTEN As TBMANDANTENDataTable + + Private tableVWSUPPLY_VERFOLGUNG As VWSUPPLY_VERFOLGUNGDataTable + + Private tableTBIMPORT_PRODUKTE_DUPLIKATE As TBIMPORT_PRODUKTE_DUPLIKATEDataTable + + Private tableTBCHANGE_LOG_GERAET As TBCHANGE_LOG_GERAETDataTable + + Private tableTBSERVICE_IMP_LOG As TBSERVICE_IMP_LOGDataTable + + Private tableVWGERAETE_MELDUNG_STATUS As VWGERAETE_MELDUNG_STATUSDataTable + + Private tableViewSUPPLY_STATUS_VERFOLGUNG As ViewSUPPLY_STATUS_VERFOLGUNGDataTable + + Private tableVWSUPPLIES_BESTELLUNG_GESENDET As VWSUPPLIES_BESTELLUNG_GESENDETDataTable + + Private tableVWRPT_SUPPLIES_TOORDER As VWRPT_SUPPLIES_TOORDERDataTable + + Private tableVWSUPPLIES_2_ORDER As VWSUPPLIES_2_ORDERDataTable + + Private relationVWSUPPLIES_TBWH_STATUSFILTER As Global.System.Data.DataRelation + + Private relationTBWH_STATUSFILTER_VWSUPPLIES As Global.System.Data.DataRelation + + Private relationVWGERAET_ORDER_VWSUPPLIES_TO_ORDER As Global.System.Data.DataRelation + + Private relationFK_TBSUPPLIES_STATUS_ID As Global.System.Data.DataRelation + + Private relationFK_TBSUPPLIES_STATUS_ID1 As Global.System.Data.DataRelation + + Private relationFK_TBSUPPLIES_STATUS_ID2 As Global.System.Data.DataRelation + + Private relationFK_TBSUPPLIES_STATUS_ID3 As Global.System.Data.DataRelation + + Private relationFK_TBSUPPLIES_STATUS_ID4 As Global.System.Data.DataRelation + + Private relationTBWH_MARKT_TBGERAET As Global.System.Data.DataRelation + + Private relationRelTBWH_MARKT_TBSUPPLY_BESTELLUNGView As Global.System.Data.DataRelation + + Private relationFK_TBPRODUKT_VERTRAG_VERTRAG As Global.System.Data.DataRelation + + Private relationFK_TBGERAETE_NOTINLIST_VERTRAG As Global.System.Data.DataRelation + + Private relationFK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID As Global.System.Data.DataRelation + + Private relationFK_TBSUPPLIES_STATUS_ID5 As Global.System.Data.DataRelation + + Private relationFK_TBSUPPLIES_STATUS_ID6 As Global.System.Data.DataRelation + + Private relationFK_TBSUPPLYDEFINITION As Global.System.Data.DataRelation + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + 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 + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("TBGERAET")) Is Nothing) Then + MyBase.Tables.Add(New TBGERAETDataTable(ds.Tables("TBGERAET"))) + End If + If (Not (ds.Tables("VWSUPPLIES")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLIESDataTable(ds.Tables("VWSUPPLIES"))) + End If + If (Not (ds.Tables("TBWH_STATUS1")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_STATUS1DataTable(ds.Tables("TBWH_STATUS1"))) + End If + If (Not (ds.Tables("TBWH_STATUS2")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_STATUS2DataTable(ds.Tables("TBWH_STATUS2"))) + End If + If (Not (ds.Tables("TBWH_STATUS3")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_STATUS3DataTable(ds.Tables("TBWH_STATUS3"))) + End If + If (Not (ds.Tables("TBWH_STATUSFILTER")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_STATUSFILTERDataTable(ds.Tables("TBWH_STATUSFILTER"))) + End If + If (Not (ds.Tables("TBSUPPLY_VERFOLGUNG")) Is Nothing) Then + MyBase.Tables.Add(New TBSUPPLY_VERFOLGUNGDataTable(ds.Tables("TBSUPPLY_VERFOLGUNG"))) + End If + If (Not (ds.Tables("TBKONFIGURATION")) Is Nothing) Then + MyBase.Tables.Add(New TBKONFIGURATIONDataTable(ds.Tables("TBKONFIGURATION"))) + End If + If (Not (ds.Tables("TBSTATUS")) Is Nothing) Then + MyBase.Tables.Add(New TBSTATUSDataTable(ds.Tables("TBSTATUS"))) + End If + If (Not (ds.Tables("TBWH_MARKT")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_MARKTDataTable(ds.Tables("TBWH_MARKT"))) + End If + If (Not (ds.Tables("VWSUPPLIES_AKTUELL")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLIES_AKTUELLDataTable(ds.Tables("VWSUPPLIES_AKTUELL"))) + End If + If (Not (ds.Tables("VWGERAET_ORDER")) Is Nothing) Then + MyBase.Tables.Add(New VWGERAET_ORDERDataTable(ds.Tables("VWGERAET_ORDER"))) + End If + If (Not (ds.Tables("VWSUPPLIES_TO_ORDER")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLIES_TO_ORDERDataTable(ds.Tables("VWSUPPLIES_TO_ORDER"))) + End If + If (Not (ds.Tables("TBSUPPLIES")) Is Nothing) Then + MyBase.Tables.Add(New TBSUPPLIESDataTable(ds.Tables("TBSUPPLIES"))) + End If + If (Not (ds.Tables("TBWH_STATUS4")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_STATUS4DataTable(ds.Tables("TBWH_STATUS4"))) + End If + If (Not (ds.Tables("TBWH_STATUS5")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_STATUS5DataTable(ds.Tables("TBWH_STATUS5"))) + End If + If (Not (ds.Tables("TBSUPPLY_BESTELLUNG")) Is Nothing) Then + MyBase.Tables.Add(New TBSUPPLY_BESTELLUNGDataTable(ds.Tables("TBSUPPLY_BESTELLUNG"))) + End If + If (Not (ds.Tables("TBWH_SUPPLIES_MARKT")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_SUPPLIES_MARKTDataTable(ds.Tables("TBWH_SUPPLIES_MARKT"))) + End If + If (Not (ds.Tables("VWSUPPLY_BESTELLUNG_FRONTEND")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLY_BESTELLUNG_FRONTENDDataTable(ds.Tables("VWSUPPLY_BESTELLUNG_FRONTEND"))) + End If + If (Not (ds.Tables("TBGERAETByMarkt")) Is Nothing) Then + MyBase.Tables.Add(New TBGERAETByMarktDataTable(ds.Tables("TBGERAETByMarkt"))) + End If + If (Not (ds.Tables("TBIMPORT_PRODUKT")) Is Nothing) Then + MyBase.Tables.Add(New TBIMPORT_PRODUKTDataTable(ds.Tables("TBIMPORT_PRODUKT"))) + End If + If (Not (ds.Tables("TBVERTRAEGE")) Is Nothing) Then + MyBase.Tables.Add(New TBVERTRAEGEDataTable(ds.Tables("TBVERTRAEGE"))) + End If + If (Not (ds.Tables("TBPRODUKT_VERTRAG")) Is Nothing) Then + MyBase.Tables.Add(New TBPRODUKT_VERTRAGDataTable(ds.Tables("TBPRODUKT_VERTRAG"))) + End If + If (Not (ds.Tables("TBGERAETE_NOTINLIST")) Is Nothing) Then + MyBase.Tables.Add(New TBGERAETE_NOTINLISTDataTable(ds.Tables("TBGERAETE_NOTINLIST"))) + End If + If (Not (ds.Tables("TBWH_MODELL")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_MODELLDataTable(ds.Tables("TBWH_MODELL"))) + End If + If (Not (ds.Tables("TBSUPPLY_DEFINITION")) Is Nothing) Then + MyBase.Tables.Add(New TBSUPPLY_DEFINITIONDataTable(ds.Tables("TBSUPPLY_DEFINITION"))) + End If + If (Not (ds.Tables("TBGERAET_SUPPLY_ZUORDNUNG")) Is Nothing) Then + MyBase.Tables.Add(New TBGERAET_SUPPLY_ZUORDNUNGDataTable(ds.Tables("TBGERAET_SUPPLY_ZUORDNUNG"))) + End If + If (Not (ds.Tables("VWGeraet_Supply_Zuordnung")) Is Nothing) Then + MyBase.Tables.Add(New VWGeraet_Supply_ZuordnungDataTable(ds.Tables("VWGeraet_Supply_Zuordnung"))) + End If + If (Not (ds.Tables("TBUSER_RECHTE")) Is Nothing) Then + MyBase.Tables.Add(New TBUSER_RECHTEDataTable(ds.Tables("TBUSER_RECHTE"))) + End If + If (Not (ds.Tables("TBMELDEDATUM")) Is Nothing) Then + MyBase.Tables.Add(New TBMELDEDATUMDataTable(ds.Tables("TBMELDEDATUM"))) + End If + If (Not (ds.Tables("TBGERAETE_VERFOLGUNG")) Is Nothing) Then + MyBase.Tables.Add(New TBGERAETE_VERFOLGUNGDataTable(ds.Tables("TBGERAETE_VERFOLGUNG"))) + End If + If (Not (ds.Tables("VWMarkt_Verfolgung")) Is Nothing) Then + MyBase.Tables.Add(New VWMarkt_VerfolgungDataTable(ds.Tables("VWMarkt_Verfolgung"))) + End If + If (Not (ds.Tables("VWGERAETE_VERFOLGUNG")) Is Nothing) Then + MyBase.Tables.Add(New VWGERAETE_VERFOLGUNGDataTable(ds.Tables("VWGERAETE_VERFOLGUNG"))) + End If + If (Not (ds.Tables("TBREFLISTE_HISTORY")) Is Nothing) Then + MyBase.Tables.Add(New TBREFLISTE_HISTORYDataTable(ds.Tables("TBREFLISTE_HISTORY"))) + End If + If (Not (ds.Tables("TBMANDANTEN")) Is Nothing) Then + MyBase.Tables.Add(New TBMANDANTENDataTable(ds.Tables("TBMANDANTEN"))) + End If + If (Not (ds.Tables("VWSUPPLY_VERFOLGUNG")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLY_VERFOLGUNGDataTable(ds.Tables("VWSUPPLY_VERFOLGUNG"))) + End If + If (Not (ds.Tables("TBIMPORT_PRODUKTE_DUPLIKATE")) Is Nothing) Then + MyBase.Tables.Add(New TBIMPORT_PRODUKTE_DUPLIKATEDataTable(ds.Tables("TBIMPORT_PRODUKTE_DUPLIKATE"))) + End If + If (Not (ds.Tables("TBCHANGE_LOG_GERAET")) Is Nothing) Then + MyBase.Tables.Add(New TBCHANGE_LOG_GERAETDataTable(ds.Tables("TBCHANGE_LOG_GERAET"))) + End If + If (Not (ds.Tables("TBSERVICE_IMP_LOG")) Is Nothing) Then + MyBase.Tables.Add(New TBSERVICE_IMP_LOGDataTable(ds.Tables("TBSERVICE_IMP_LOG"))) + End If + If (Not (ds.Tables("VWGERAETE_MELDUNG_STATUS")) Is Nothing) Then + MyBase.Tables.Add(New VWGERAETE_MELDUNG_STATUSDataTable(ds.Tables("VWGERAETE_MELDUNG_STATUS"))) + End If + If (Not (ds.Tables("ViewSUPPLY_STATUS_VERFOLGUNG")) Is Nothing) Then + MyBase.Tables.Add(New ViewSUPPLY_STATUS_VERFOLGUNGDataTable(ds.Tables("ViewSUPPLY_STATUS_VERFOLGUNG"))) + End If + If (Not (ds.Tables("VWSUPPLIES_BESTELLUNG_GESENDET")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLIES_BESTELLUNG_GESENDETDataTable(ds.Tables("VWSUPPLIES_BESTELLUNG_GESENDET"))) + End If + If (Not (ds.Tables("VWRPT_SUPPLIES_TOORDER")) Is Nothing) Then + MyBase.Tables.Add(New VWRPT_SUPPLIES_TOORDERDataTable(ds.Tables("VWRPT_SUPPLIES_TOORDER"))) + End If + If (Not (ds.Tables("VWSUPPLIES_2_ORDER")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLIES_2_ORDERDataTable(ds.Tables("VWSUPPLIES_2_ORDER"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property TBGERAET() As TBGERAETDataTable + Get + Return Me.tableTBGERAET + End Get + End Property + + _ + Public ReadOnly Property VWSUPPLIES() As VWSUPPLIESDataTable + Get + Return Me.tableVWSUPPLIES + End Get + End Property + + _ + Public ReadOnly Property TBWH_STATUS1() As TBWH_STATUS1DataTable + Get + Return Me.tableTBWH_STATUS1 + End Get + End Property + + _ + Public ReadOnly Property TBWH_STATUS2() As TBWH_STATUS2DataTable + Get + Return Me.tableTBWH_STATUS2 + End Get + End Property + + _ + Public ReadOnly Property TBWH_STATUS3() As TBWH_STATUS3DataTable + Get + Return Me.tableTBWH_STATUS3 + End Get + End Property + + _ + Public ReadOnly Property TBWH_STATUSFILTER() As TBWH_STATUSFILTERDataTable + Get + Return Me.tableTBWH_STATUSFILTER + End Get + End Property + + _ + Public ReadOnly Property TBSUPPLY_VERFOLGUNG() As TBSUPPLY_VERFOLGUNGDataTable + Get + Return Me.tableTBSUPPLY_VERFOLGUNG + End Get + End Property + + _ + Public ReadOnly Property TBKONFIGURATION() As TBKONFIGURATIONDataTable + Get + Return Me.tableTBKONFIGURATION + End Get + End Property + + _ + Public ReadOnly Property TBSTATUS() As TBSTATUSDataTable + Get + Return Me.tableTBSTATUS + End Get + End Property + + _ + Public ReadOnly Property TBWH_MARKT() As TBWH_MARKTDataTable + Get + Return Me.tableTBWH_MARKT + End Get + End Property + + _ + Public ReadOnly Property VWSUPPLIES_AKTUELL() As VWSUPPLIES_AKTUELLDataTable + Get + Return Me.tableVWSUPPLIES_AKTUELL + End Get + End Property + + _ + Public ReadOnly Property VWGERAET_ORDER() As VWGERAET_ORDERDataTable + Get + Return Me.tableVWGERAET_ORDER + End Get + End Property + + _ + Public ReadOnly Property VWSUPPLIES_TO_ORDER() As VWSUPPLIES_TO_ORDERDataTable + Get + Return Me.tableVWSUPPLIES_TO_ORDER + End Get + End Property + + _ + Public ReadOnly Property TBSUPPLIES() As TBSUPPLIESDataTable + Get + Return Me.tableTBSUPPLIES + End Get + End Property + + _ + Public ReadOnly Property TBWH_STATUS4() As TBWH_STATUS4DataTable + Get + Return Me.tableTBWH_STATUS4 + End Get + End Property + + _ + Public ReadOnly Property TBWH_STATUS5() As TBWH_STATUS5DataTable + Get + Return Me.tableTBWH_STATUS5 + End Get + End Property + + _ + Public ReadOnly Property TBSUPPLY_BESTELLUNG() As TBSUPPLY_BESTELLUNGDataTable + Get + Return Me.tableTBSUPPLY_BESTELLUNG + End Get + End Property + + _ + Public ReadOnly Property TBWH_SUPPLIES_MARKT() As TBWH_SUPPLIES_MARKTDataTable + Get + Return Me.tableTBWH_SUPPLIES_MARKT + End Get + End Property + + _ + Public ReadOnly Property VWSUPPLY_BESTELLUNG_FRONTEND() As VWSUPPLY_BESTELLUNG_FRONTENDDataTable + Get + Return Me.tableVWSUPPLY_BESTELLUNG_FRONTEND + End Get + End Property + + _ + Public ReadOnly Property TBGERAETByMarkt() As TBGERAETByMarktDataTable + Get + Return Me.tableTBGERAETByMarkt + End Get + End Property + + _ + Public ReadOnly Property TBIMPORT_PRODUKT() As TBIMPORT_PRODUKTDataTable + Get + Return Me.tableTBIMPORT_PRODUKT + End Get + End Property + + _ + Public ReadOnly Property TBVERTRAEGE() As TBVERTRAEGEDataTable + Get + Return Me.tableTBVERTRAEGE + End Get + End Property + + _ + Public ReadOnly Property TBPRODUKT_VERTRAG() As TBPRODUKT_VERTRAGDataTable + Get + Return Me.tableTBPRODUKT_VERTRAG + End Get + End Property + + _ + Public ReadOnly Property TBGERAETE_NOTINLIST() As TBGERAETE_NOTINLISTDataTable + Get + Return Me.tableTBGERAETE_NOTINLIST + End Get + End Property + + _ + Public ReadOnly Property TBWH_MODELL() As TBWH_MODELLDataTable + Get + Return Me.tableTBWH_MODELL + End Get + End Property + + _ + Public ReadOnly Property TBSUPPLY_DEFINITION() As TBSUPPLY_DEFINITIONDataTable + Get + Return Me.tableTBSUPPLY_DEFINITION + End Get + End Property + + _ + Public ReadOnly Property TBGERAET_SUPPLY_ZUORDNUNG() As TBGERAET_SUPPLY_ZUORDNUNGDataTable + Get + Return Me.tableTBGERAET_SUPPLY_ZUORDNUNG + End Get + End Property + + _ + Public ReadOnly Property VWGeraet_Supply_Zuordnung() As VWGeraet_Supply_ZuordnungDataTable + Get + Return Me.tableVWGeraet_Supply_Zuordnung + End Get + End Property + + _ + Public ReadOnly Property TBUSER_RECHTE() As TBUSER_RECHTEDataTable + Get + Return Me.tableTBUSER_RECHTE + End Get + End Property + + _ + Public ReadOnly Property TBMELDEDATUM() As TBMELDEDATUMDataTable + Get + Return Me.tableTBMELDEDATUM + End Get + End Property + + _ + Public ReadOnly Property TBGERAETE_VERFOLGUNG() As TBGERAETE_VERFOLGUNGDataTable + Get + Return Me.tableTBGERAETE_VERFOLGUNG + End Get + End Property + + _ + Public ReadOnly Property VWMarkt_Verfolgung() As VWMarkt_VerfolgungDataTable + Get + Return Me.tableVWMarkt_Verfolgung + End Get + End Property + + _ + Public ReadOnly Property VWGERAETE_VERFOLGUNG() As VWGERAETE_VERFOLGUNGDataTable + Get + Return Me.tableVWGERAETE_VERFOLGUNG + End Get + End Property + + _ + Public ReadOnly Property TBREFLISTE_HISTORY() As TBREFLISTE_HISTORYDataTable + Get + Return Me.tableTBREFLISTE_HISTORY + End Get + End Property + + _ + Public ReadOnly Property TBMANDANTEN() As TBMANDANTENDataTable + Get + Return Me.tableTBMANDANTEN + End Get + End Property + + _ + Public ReadOnly Property VWSUPPLY_VERFOLGUNG() As VWSUPPLY_VERFOLGUNGDataTable + Get + Return Me.tableVWSUPPLY_VERFOLGUNG + End Get + End Property + + _ + Public ReadOnly Property TBIMPORT_PRODUKTE_DUPLIKATE() As TBIMPORT_PRODUKTE_DUPLIKATEDataTable + Get + Return Me.tableTBIMPORT_PRODUKTE_DUPLIKATE + End Get + End Property + + _ + Public ReadOnly Property TBCHANGE_LOG_GERAET() As TBCHANGE_LOG_GERAETDataTable + Get + Return Me.tableTBCHANGE_LOG_GERAET + End Get + End Property + + _ + Public ReadOnly Property TBSERVICE_IMP_LOG() As TBSERVICE_IMP_LOGDataTable + Get + Return Me.tableTBSERVICE_IMP_LOG + End Get + End Property + + _ + Public ReadOnly Property VWGERAETE_MELDUNG_STATUS() As VWGERAETE_MELDUNG_STATUSDataTable + Get + Return Me.tableVWGERAETE_MELDUNG_STATUS + End Get + End Property + + _ + Public ReadOnly Property ViewSUPPLY_STATUS_VERFOLGUNG() As ViewSUPPLY_STATUS_VERFOLGUNGDataTable + Get + Return Me.tableViewSUPPLY_STATUS_VERFOLGUNG + End Get + End Property + + _ + Public ReadOnly Property VWSUPPLIES_BESTELLUNG_GESENDET() As VWSUPPLIES_BESTELLUNG_GESENDETDataTable + Get + Return Me.tableVWSUPPLIES_BESTELLUNG_GESENDET + End Get + End Property + + _ + Public ReadOnly Property VWRPT_SUPPLIES_TOORDER() As VWRPT_SUPPLIES_TOORDERDataTable + Get + Return Me.tableVWRPT_SUPPLIES_TOORDER + End Get + End Property + + _ + Public ReadOnly Property VWSUPPLIES_2_ORDER() As VWSUPPLIES_2_ORDERDataTable + Get + Return Me.tableVWSUPPLIES_2_ORDER + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As MyDataset = CType(MyBase.Clone,MyDataset) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("TBGERAET")) Is Nothing) Then + MyBase.Tables.Add(New TBGERAETDataTable(ds.Tables("TBGERAET"))) + End If + If (Not (ds.Tables("VWSUPPLIES")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLIESDataTable(ds.Tables("VWSUPPLIES"))) + End If + If (Not (ds.Tables("TBWH_STATUS1")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_STATUS1DataTable(ds.Tables("TBWH_STATUS1"))) + End If + If (Not (ds.Tables("TBWH_STATUS2")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_STATUS2DataTable(ds.Tables("TBWH_STATUS2"))) + End If + If (Not (ds.Tables("TBWH_STATUS3")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_STATUS3DataTable(ds.Tables("TBWH_STATUS3"))) + End If + If (Not (ds.Tables("TBWH_STATUSFILTER")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_STATUSFILTERDataTable(ds.Tables("TBWH_STATUSFILTER"))) + End If + If (Not (ds.Tables("TBSUPPLY_VERFOLGUNG")) Is Nothing) Then + MyBase.Tables.Add(New TBSUPPLY_VERFOLGUNGDataTable(ds.Tables("TBSUPPLY_VERFOLGUNG"))) + End If + If (Not (ds.Tables("TBKONFIGURATION")) Is Nothing) Then + MyBase.Tables.Add(New TBKONFIGURATIONDataTable(ds.Tables("TBKONFIGURATION"))) + End If + If (Not (ds.Tables("TBSTATUS")) Is Nothing) Then + MyBase.Tables.Add(New TBSTATUSDataTable(ds.Tables("TBSTATUS"))) + End If + If (Not (ds.Tables("TBWH_MARKT")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_MARKTDataTable(ds.Tables("TBWH_MARKT"))) + End If + If (Not (ds.Tables("VWSUPPLIES_AKTUELL")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLIES_AKTUELLDataTable(ds.Tables("VWSUPPLIES_AKTUELL"))) + End If + If (Not (ds.Tables("VWGERAET_ORDER")) Is Nothing) Then + MyBase.Tables.Add(New VWGERAET_ORDERDataTable(ds.Tables("VWGERAET_ORDER"))) + End If + If (Not (ds.Tables("VWSUPPLIES_TO_ORDER")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLIES_TO_ORDERDataTable(ds.Tables("VWSUPPLIES_TO_ORDER"))) + End If + If (Not (ds.Tables("TBSUPPLIES")) Is Nothing) Then + MyBase.Tables.Add(New TBSUPPLIESDataTable(ds.Tables("TBSUPPLIES"))) + End If + If (Not (ds.Tables("TBWH_STATUS4")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_STATUS4DataTable(ds.Tables("TBWH_STATUS4"))) + End If + If (Not (ds.Tables("TBWH_STATUS5")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_STATUS5DataTable(ds.Tables("TBWH_STATUS5"))) + End If + If (Not (ds.Tables("TBSUPPLY_BESTELLUNG")) Is Nothing) Then + MyBase.Tables.Add(New TBSUPPLY_BESTELLUNGDataTable(ds.Tables("TBSUPPLY_BESTELLUNG"))) + End If + If (Not (ds.Tables("TBWH_SUPPLIES_MARKT")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_SUPPLIES_MARKTDataTable(ds.Tables("TBWH_SUPPLIES_MARKT"))) + End If + If (Not (ds.Tables("VWSUPPLY_BESTELLUNG_FRONTEND")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLY_BESTELLUNG_FRONTENDDataTable(ds.Tables("VWSUPPLY_BESTELLUNG_FRONTEND"))) + End If + If (Not (ds.Tables("TBGERAETByMarkt")) Is Nothing) Then + MyBase.Tables.Add(New TBGERAETByMarktDataTable(ds.Tables("TBGERAETByMarkt"))) + End If + If (Not (ds.Tables("TBIMPORT_PRODUKT")) Is Nothing) Then + MyBase.Tables.Add(New TBIMPORT_PRODUKTDataTable(ds.Tables("TBIMPORT_PRODUKT"))) + End If + If (Not (ds.Tables("TBVERTRAEGE")) Is Nothing) Then + MyBase.Tables.Add(New TBVERTRAEGEDataTable(ds.Tables("TBVERTRAEGE"))) + End If + If (Not (ds.Tables("TBPRODUKT_VERTRAG")) Is Nothing) Then + MyBase.Tables.Add(New TBPRODUKT_VERTRAGDataTable(ds.Tables("TBPRODUKT_VERTRAG"))) + End If + If (Not (ds.Tables("TBGERAETE_NOTINLIST")) Is Nothing) Then + MyBase.Tables.Add(New TBGERAETE_NOTINLISTDataTable(ds.Tables("TBGERAETE_NOTINLIST"))) + End If + If (Not (ds.Tables("TBWH_MODELL")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_MODELLDataTable(ds.Tables("TBWH_MODELL"))) + End If + If (Not (ds.Tables("TBSUPPLY_DEFINITION")) Is Nothing) Then + MyBase.Tables.Add(New TBSUPPLY_DEFINITIONDataTable(ds.Tables("TBSUPPLY_DEFINITION"))) + End If + If (Not (ds.Tables("TBGERAET_SUPPLY_ZUORDNUNG")) Is Nothing) Then + MyBase.Tables.Add(New TBGERAET_SUPPLY_ZUORDNUNGDataTable(ds.Tables("TBGERAET_SUPPLY_ZUORDNUNG"))) + End If + If (Not (ds.Tables("VWGeraet_Supply_Zuordnung")) Is Nothing) Then + MyBase.Tables.Add(New VWGeraet_Supply_ZuordnungDataTable(ds.Tables("VWGeraet_Supply_Zuordnung"))) + End If + If (Not (ds.Tables("TBUSER_RECHTE")) Is Nothing) Then + MyBase.Tables.Add(New TBUSER_RECHTEDataTable(ds.Tables("TBUSER_RECHTE"))) + End If + If (Not (ds.Tables("TBMELDEDATUM")) Is Nothing) Then + MyBase.Tables.Add(New TBMELDEDATUMDataTable(ds.Tables("TBMELDEDATUM"))) + End If + If (Not (ds.Tables("TBGERAETE_VERFOLGUNG")) Is Nothing) Then + MyBase.Tables.Add(New TBGERAETE_VERFOLGUNGDataTable(ds.Tables("TBGERAETE_VERFOLGUNG"))) + End If + If (Not (ds.Tables("VWMarkt_Verfolgung")) Is Nothing) Then + MyBase.Tables.Add(New VWMarkt_VerfolgungDataTable(ds.Tables("VWMarkt_Verfolgung"))) + End If + If (Not (ds.Tables("VWGERAETE_VERFOLGUNG")) Is Nothing) Then + MyBase.Tables.Add(New VWGERAETE_VERFOLGUNGDataTable(ds.Tables("VWGERAETE_VERFOLGUNG"))) + End If + If (Not (ds.Tables("TBREFLISTE_HISTORY")) Is Nothing) Then + MyBase.Tables.Add(New TBREFLISTE_HISTORYDataTable(ds.Tables("TBREFLISTE_HISTORY"))) + End If + If (Not (ds.Tables("TBMANDANTEN")) Is Nothing) Then + MyBase.Tables.Add(New TBMANDANTENDataTable(ds.Tables("TBMANDANTEN"))) + End If + If (Not (ds.Tables("VWSUPPLY_VERFOLGUNG")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLY_VERFOLGUNGDataTable(ds.Tables("VWSUPPLY_VERFOLGUNG"))) + End If + If (Not (ds.Tables("TBIMPORT_PRODUKTE_DUPLIKATE")) Is Nothing) Then + MyBase.Tables.Add(New TBIMPORT_PRODUKTE_DUPLIKATEDataTable(ds.Tables("TBIMPORT_PRODUKTE_DUPLIKATE"))) + End If + If (Not (ds.Tables("TBCHANGE_LOG_GERAET")) Is Nothing) Then + MyBase.Tables.Add(New TBCHANGE_LOG_GERAETDataTable(ds.Tables("TBCHANGE_LOG_GERAET"))) + End If + If (Not (ds.Tables("TBSERVICE_IMP_LOG")) Is Nothing) Then + MyBase.Tables.Add(New TBSERVICE_IMP_LOGDataTable(ds.Tables("TBSERVICE_IMP_LOG"))) + End If + If (Not (ds.Tables("VWGERAETE_MELDUNG_STATUS")) Is Nothing) Then + MyBase.Tables.Add(New VWGERAETE_MELDUNG_STATUSDataTable(ds.Tables("VWGERAETE_MELDUNG_STATUS"))) + End If + If (Not (ds.Tables("ViewSUPPLY_STATUS_VERFOLGUNG")) Is Nothing) Then + MyBase.Tables.Add(New ViewSUPPLY_STATUS_VERFOLGUNGDataTable(ds.Tables("ViewSUPPLY_STATUS_VERFOLGUNG"))) + End If + If (Not (ds.Tables("VWSUPPLIES_BESTELLUNG_GESENDET")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLIES_BESTELLUNG_GESENDETDataTable(ds.Tables("VWSUPPLIES_BESTELLUNG_GESENDET"))) + End If + If (Not (ds.Tables("VWRPT_SUPPLIES_TOORDER")) Is Nothing) Then + MyBase.Tables.Add(New VWRPT_SUPPLIES_TOORDERDataTable(ds.Tables("VWRPT_SUPPLIES_TOORDER"))) + End If + If (Not (ds.Tables("VWSUPPLIES_2_ORDER")) Is Nothing) Then + MyBase.Tables.Add(New VWSUPPLIES_2_ORDERDataTable(ds.Tables("VWSUPPLIES_2_ORDER"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + 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)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTBGERAET = CType(MyBase.Tables("TBGERAET"),TBGERAETDataTable) + If (initTable = true) Then + If (Not (Me.tableTBGERAET) Is Nothing) Then + Me.tableTBGERAET.InitVars + End If + End If + Me.tableVWSUPPLIES = CType(MyBase.Tables("VWSUPPLIES"),VWSUPPLIESDataTable) + If (initTable = true) Then + If (Not (Me.tableVWSUPPLIES) Is Nothing) Then + Me.tableVWSUPPLIES.InitVars + End If + End If + Me.tableTBWH_STATUS1 = CType(MyBase.Tables("TBWH_STATUS1"),TBWH_STATUS1DataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_STATUS1) Is Nothing) Then + Me.tableTBWH_STATUS1.InitVars + End If + End If + Me.tableTBWH_STATUS2 = CType(MyBase.Tables("TBWH_STATUS2"),TBWH_STATUS2DataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_STATUS2) Is Nothing) Then + Me.tableTBWH_STATUS2.InitVars + End If + End If + Me.tableTBWH_STATUS3 = CType(MyBase.Tables("TBWH_STATUS3"),TBWH_STATUS3DataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_STATUS3) Is Nothing) Then + Me.tableTBWH_STATUS3.InitVars + End If + End If + Me.tableTBWH_STATUSFILTER = CType(MyBase.Tables("TBWH_STATUSFILTER"),TBWH_STATUSFILTERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_STATUSFILTER) Is Nothing) Then + Me.tableTBWH_STATUSFILTER.InitVars + End If + End If + Me.tableTBSUPPLY_VERFOLGUNG = CType(MyBase.Tables("TBSUPPLY_VERFOLGUNG"),TBSUPPLY_VERFOLGUNGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBSUPPLY_VERFOLGUNG) Is Nothing) Then + Me.tableTBSUPPLY_VERFOLGUNG.InitVars + End If + End If + Me.tableTBKONFIGURATION = CType(MyBase.Tables("TBKONFIGURATION"),TBKONFIGURATIONDataTable) + If (initTable = true) Then + If (Not (Me.tableTBKONFIGURATION) Is Nothing) Then + Me.tableTBKONFIGURATION.InitVars + End If + End If + Me.tableTBSTATUS = CType(MyBase.Tables("TBSTATUS"),TBSTATUSDataTable) + If (initTable = true) Then + If (Not (Me.tableTBSTATUS) Is Nothing) Then + Me.tableTBSTATUS.InitVars + End If + End If + Me.tableTBWH_MARKT = CType(MyBase.Tables("TBWH_MARKT"),TBWH_MARKTDataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_MARKT) Is Nothing) Then + Me.tableTBWH_MARKT.InitVars + End If + End If + Me.tableVWSUPPLIES_AKTUELL = CType(MyBase.Tables("VWSUPPLIES_AKTUELL"),VWSUPPLIES_AKTUELLDataTable) + If (initTable = true) Then + If (Not (Me.tableVWSUPPLIES_AKTUELL) Is Nothing) Then + Me.tableVWSUPPLIES_AKTUELL.InitVars + End If + End If + Me.tableVWGERAET_ORDER = CType(MyBase.Tables("VWGERAET_ORDER"),VWGERAET_ORDERDataTable) + If (initTable = true) Then + If (Not (Me.tableVWGERAET_ORDER) Is Nothing) Then + Me.tableVWGERAET_ORDER.InitVars + End If + End If + Me.tableVWSUPPLIES_TO_ORDER = CType(MyBase.Tables("VWSUPPLIES_TO_ORDER"),VWSUPPLIES_TO_ORDERDataTable) + If (initTable = true) Then + If (Not (Me.tableVWSUPPLIES_TO_ORDER) Is Nothing) Then + Me.tableVWSUPPLIES_TO_ORDER.InitVars + End If + End If + Me.tableTBSUPPLIES = CType(MyBase.Tables("TBSUPPLIES"),TBSUPPLIESDataTable) + If (initTable = true) Then + If (Not (Me.tableTBSUPPLIES) Is Nothing) Then + Me.tableTBSUPPLIES.InitVars + End If + End If + Me.tableTBWH_STATUS4 = CType(MyBase.Tables("TBWH_STATUS4"),TBWH_STATUS4DataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_STATUS4) Is Nothing) Then + Me.tableTBWH_STATUS4.InitVars + End If + End If + Me.tableTBWH_STATUS5 = CType(MyBase.Tables("TBWH_STATUS5"),TBWH_STATUS5DataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_STATUS5) Is Nothing) Then + Me.tableTBWH_STATUS5.InitVars + End If + End If + Me.tableTBSUPPLY_BESTELLUNG = CType(MyBase.Tables("TBSUPPLY_BESTELLUNG"),TBSUPPLY_BESTELLUNGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBSUPPLY_BESTELLUNG) Is Nothing) Then + Me.tableTBSUPPLY_BESTELLUNG.InitVars + End If + End If + Me.tableTBWH_SUPPLIES_MARKT = CType(MyBase.Tables("TBWH_SUPPLIES_MARKT"),TBWH_SUPPLIES_MARKTDataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_SUPPLIES_MARKT) Is Nothing) Then + Me.tableTBWH_SUPPLIES_MARKT.InitVars + End If + End If + Me.tableVWSUPPLY_BESTELLUNG_FRONTEND = CType(MyBase.Tables("VWSUPPLY_BESTELLUNG_FRONTEND"),VWSUPPLY_BESTELLUNG_FRONTENDDataTable) + If (initTable = true) Then + If (Not (Me.tableVWSUPPLY_BESTELLUNG_FRONTEND) Is Nothing) Then + Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.InitVars + End If + End If + Me.tableTBGERAETByMarkt = CType(MyBase.Tables("TBGERAETByMarkt"),TBGERAETByMarktDataTable) + If (initTable = true) Then + If (Not (Me.tableTBGERAETByMarkt) Is Nothing) Then + Me.tableTBGERAETByMarkt.InitVars + End If + End If + Me.tableTBIMPORT_PRODUKT = CType(MyBase.Tables("TBIMPORT_PRODUKT"),TBIMPORT_PRODUKTDataTable) + If (initTable = true) Then + If (Not (Me.tableTBIMPORT_PRODUKT) Is Nothing) Then + Me.tableTBIMPORT_PRODUKT.InitVars + End If + End If + Me.tableTBVERTRAEGE = CType(MyBase.Tables("TBVERTRAEGE"),TBVERTRAEGEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBVERTRAEGE) Is Nothing) Then + Me.tableTBVERTRAEGE.InitVars + End If + End If + Me.tableTBPRODUKT_VERTRAG = CType(MyBase.Tables("TBPRODUKT_VERTRAG"),TBPRODUKT_VERTRAGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPRODUKT_VERTRAG) Is Nothing) Then + Me.tableTBPRODUKT_VERTRAG.InitVars + End If + End If + Me.tableTBGERAETE_NOTINLIST = CType(MyBase.Tables("TBGERAETE_NOTINLIST"),TBGERAETE_NOTINLISTDataTable) + If (initTable = true) Then + If (Not (Me.tableTBGERAETE_NOTINLIST) Is Nothing) Then + Me.tableTBGERAETE_NOTINLIST.InitVars + End If + End If + Me.tableTBWH_MODELL = CType(MyBase.Tables("TBWH_MODELL"),TBWH_MODELLDataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_MODELL) Is Nothing) Then + Me.tableTBWH_MODELL.InitVars + End If + End If + Me.tableTBSUPPLY_DEFINITION = CType(MyBase.Tables("TBSUPPLY_DEFINITION"),TBSUPPLY_DEFINITIONDataTable) + If (initTable = true) Then + If (Not (Me.tableTBSUPPLY_DEFINITION) Is Nothing) Then + Me.tableTBSUPPLY_DEFINITION.InitVars + End If + End If + Me.tableTBGERAET_SUPPLY_ZUORDNUNG = CType(MyBase.Tables("TBGERAET_SUPPLY_ZUORDNUNG"),TBGERAET_SUPPLY_ZUORDNUNGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBGERAET_SUPPLY_ZUORDNUNG) Is Nothing) Then + Me.tableTBGERAET_SUPPLY_ZUORDNUNG.InitVars + End If + End If + Me.tableVWGeraet_Supply_Zuordnung = CType(MyBase.Tables("VWGeraet_Supply_Zuordnung"),VWGeraet_Supply_ZuordnungDataTable) + If (initTable = true) Then + If (Not (Me.tableVWGeraet_Supply_Zuordnung) Is Nothing) Then + Me.tableVWGeraet_Supply_Zuordnung.InitVars + End If + End If + Me.tableTBUSER_RECHTE = CType(MyBase.Tables("TBUSER_RECHTE"),TBUSER_RECHTEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBUSER_RECHTE) Is Nothing) Then + Me.tableTBUSER_RECHTE.InitVars + End If + End If + Me.tableTBMELDEDATUM = CType(MyBase.Tables("TBMELDEDATUM"),TBMELDEDATUMDataTable) + If (initTable = true) Then + If (Not (Me.tableTBMELDEDATUM) Is Nothing) Then + Me.tableTBMELDEDATUM.InitVars + End If + End If + Me.tableTBGERAETE_VERFOLGUNG = CType(MyBase.Tables("TBGERAETE_VERFOLGUNG"),TBGERAETE_VERFOLGUNGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBGERAETE_VERFOLGUNG) Is Nothing) Then + Me.tableTBGERAETE_VERFOLGUNG.InitVars + End If + End If + Me.tableVWMarkt_Verfolgung = CType(MyBase.Tables("VWMarkt_Verfolgung"),VWMarkt_VerfolgungDataTable) + If (initTable = true) Then + If (Not (Me.tableVWMarkt_Verfolgung) Is Nothing) Then + Me.tableVWMarkt_Verfolgung.InitVars + End If + End If + Me.tableVWGERAETE_VERFOLGUNG = CType(MyBase.Tables("VWGERAETE_VERFOLGUNG"),VWGERAETE_VERFOLGUNGDataTable) + If (initTable = true) Then + If (Not (Me.tableVWGERAETE_VERFOLGUNG) Is Nothing) Then + Me.tableVWGERAETE_VERFOLGUNG.InitVars + End If + End If + Me.tableTBREFLISTE_HISTORY = CType(MyBase.Tables("TBREFLISTE_HISTORY"),TBREFLISTE_HISTORYDataTable) + If (initTable = true) Then + If (Not (Me.tableTBREFLISTE_HISTORY) Is Nothing) Then + Me.tableTBREFLISTE_HISTORY.InitVars + End If + End If + Me.tableTBMANDANTEN = CType(MyBase.Tables("TBMANDANTEN"),TBMANDANTENDataTable) + If (initTable = true) Then + If (Not (Me.tableTBMANDANTEN) Is Nothing) Then + Me.tableTBMANDANTEN.InitVars + End If + End If + Me.tableVWSUPPLY_VERFOLGUNG = CType(MyBase.Tables("VWSUPPLY_VERFOLGUNG"),VWSUPPLY_VERFOLGUNGDataTable) + If (initTable = true) Then + If (Not (Me.tableVWSUPPLY_VERFOLGUNG) Is Nothing) Then + Me.tableVWSUPPLY_VERFOLGUNG.InitVars + End If + End If + Me.tableTBIMPORT_PRODUKTE_DUPLIKATE = CType(MyBase.Tables("TBIMPORT_PRODUKTE_DUPLIKATE"),TBIMPORT_PRODUKTE_DUPLIKATEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBIMPORT_PRODUKTE_DUPLIKATE) Is Nothing) Then + Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.InitVars + End If + End If + Me.tableTBCHANGE_LOG_GERAET = CType(MyBase.Tables("TBCHANGE_LOG_GERAET"),TBCHANGE_LOG_GERAETDataTable) + If (initTable = true) Then + If (Not (Me.tableTBCHANGE_LOG_GERAET) Is Nothing) Then + Me.tableTBCHANGE_LOG_GERAET.InitVars + End If + End If + Me.tableTBSERVICE_IMP_LOG = CType(MyBase.Tables("TBSERVICE_IMP_LOG"),TBSERVICE_IMP_LOGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBSERVICE_IMP_LOG) Is Nothing) Then + Me.tableTBSERVICE_IMP_LOG.InitVars + End If + End If + Me.tableVWGERAETE_MELDUNG_STATUS = CType(MyBase.Tables("VWGERAETE_MELDUNG_STATUS"),VWGERAETE_MELDUNG_STATUSDataTable) + If (initTable = true) Then + If (Not (Me.tableVWGERAETE_MELDUNG_STATUS) Is Nothing) Then + Me.tableVWGERAETE_MELDUNG_STATUS.InitVars + End If + End If + Me.tableViewSUPPLY_STATUS_VERFOLGUNG = CType(MyBase.Tables("ViewSUPPLY_STATUS_VERFOLGUNG"),ViewSUPPLY_STATUS_VERFOLGUNGDataTable) + If (initTable = true) Then + If (Not (Me.tableViewSUPPLY_STATUS_VERFOLGUNG) Is Nothing) Then + Me.tableViewSUPPLY_STATUS_VERFOLGUNG.InitVars + End If + End If + Me.tableVWSUPPLIES_BESTELLUNG_GESENDET = CType(MyBase.Tables("VWSUPPLIES_BESTELLUNG_GESENDET"),VWSUPPLIES_BESTELLUNG_GESENDETDataTable) + If (initTable = true) Then + If (Not (Me.tableVWSUPPLIES_BESTELLUNG_GESENDET) Is Nothing) Then + Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.InitVars + End If + End If + Me.tableVWRPT_SUPPLIES_TOORDER = CType(MyBase.Tables("VWRPT_SUPPLIES_TOORDER"),VWRPT_SUPPLIES_TOORDERDataTable) + If (initTable = true) Then + If (Not (Me.tableVWRPT_SUPPLIES_TOORDER) Is Nothing) Then + Me.tableVWRPT_SUPPLIES_TOORDER.InitVars + End If + End If + Me.tableVWSUPPLIES_2_ORDER = CType(MyBase.Tables("VWSUPPLIES_2_ORDER"),VWSUPPLIES_2_ORDERDataTable) + If (initTable = true) Then + If (Not (Me.tableVWSUPPLIES_2_ORDER) Is Nothing) Then + Me.tableVWSUPPLIES_2_ORDER.InitVars + End If + End If + Me.relationVWSUPPLIES_TBWH_STATUSFILTER = Me.Relations("VWSUPPLIES_TBWH_STATUSFILTER") + Me.relationTBWH_STATUSFILTER_VWSUPPLIES = Me.Relations("TBWH_STATUSFILTER_VWSUPPLIES") + Me.relationVWGERAET_ORDER_VWSUPPLIES_TO_ORDER = Me.Relations("VWGERAET_ORDER_VWSUPPLIES_TO_ORDER") + Me.relationFK_TBSUPPLIES_STATUS_ID = Me.Relations("FK_TBSUPPLIES_STATUS_ID") + Me.relationFK_TBSUPPLIES_STATUS_ID1 = Me.Relations("FK_TBSUPPLIES_STATUS_ID1") + Me.relationFK_TBSUPPLIES_STATUS_ID2 = Me.Relations("FK_TBSUPPLIES_STATUS_ID2") + Me.relationFK_TBSUPPLIES_STATUS_ID3 = Me.Relations("FK_TBSUPPLIES_STATUS_ID3") + Me.relationFK_TBSUPPLIES_STATUS_ID4 = Me.Relations("FK_TBSUPPLIES_STATUS_ID4") + Me.relationTBWH_MARKT_TBGERAET = Me.Relations("TBWH_MARKT_TBGERAET") + Me.relationRelTBWH_MARKT_TBSUPPLY_BESTELLUNGView = Me.Relations("RelTBWH_MARKT_TBSUPPLY_BESTELLUNGView") + Me.relationFK_TBPRODUKT_VERTRAG_VERTRAG = Me.Relations("FK_TBPRODUKT_VERTRAG_VERTRAG") + Me.relationFK_TBGERAETE_NOTINLIST_VERTRAG = Me.Relations("FK_TBGERAETE_NOTINLIST_VERTRAG") + Me.relationFK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID = Me.Relations("FK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID") + Me.relationFK_TBSUPPLIES_STATUS_ID5 = Me.Relations("FK_TBSUPPLIES_STATUS_ID5") + Me.relationFK_TBSUPPLIES_STATUS_ID6 = Me.Relations("FK_TBSUPPLIES_STATUS_ID6") + Me.relationFK_TBSUPPLYDEFINITION = Me.Relations("FK_TBSUPPLYDEFINITION") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "MyDataset" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/MyDataset.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBGERAET = New TBGERAETDataTable() + MyBase.Tables.Add(Me.tableTBGERAET) + Me.tableVWSUPPLIES = New VWSUPPLIESDataTable() + MyBase.Tables.Add(Me.tableVWSUPPLIES) + Me.tableTBWH_STATUS1 = New TBWH_STATUS1DataTable() + MyBase.Tables.Add(Me.tableTBWH_STATUS1) + Me.tableTBWH_STATUS2 = New TBWH_STATUS2DataTable() + MyBase.Tables.Add(Me.tableTBWH_STATUS2) + Me.tableTBWH_STATUS3 = New TBWH_STATUS3DataTable() + MyBase.Tables.Add(Me.tableTBWH_STATUS3) + Me.tableTBWH_STATUSFILTER = New TBWH_STATUSFILTERDataTable() + MyBase.Tables.Add(Me.tableTBWH_STATUSFILTER) + Me.tableTBSUPPLY_VERFOLGUNG = New TBSUPPLY_VERFOLGUNGDataTable() + MyBase.Tables.Add(Me.tableTBSUPPLY_VERFOLGUNG) + Me.tableTBKONFIGURATION = New TBKONFIGURATIONDataTable() + MyBase.Tables.Add(Me.tableTBKONFIGURATION) + Me.tableTBSTATUS = New TBSTATUSDataTable() + MyBase.Tables.Add(Me.tableTBSTATUS) + Me.tableTBWH_MARKT = New TBWH_MARKTDataTable() + MyBase.Tables.Add(Me.tableTBWH_MARKT) + Me.tableVWSUPPLIES_AKTUELL = New VWSUPPLIES_AKTUELLDataTable() + MyBase.Tables.Add(Me.tableVWSUPPLIES_AKTUELL) + Me.tableVWGERAET_ORDER = New VWGERAET_ORDERDataTable() + MyBase.Tables.Add(Me.tableVWGERAET_ORDER) + Me.tableVWSUPPLIES_TO_ORDER = New VWSUPPLIES_TO_ORDERDataTable() + MyBase.Tables.Add(Me.tableVWSUPPLIES_TO_ORDER) + Me.tableTBSUPPLIES = New TBSUPPLIESDataTable() + MyBase.Tables.Add(Me.tableTBSUPPLIES) + Me.tableTBWH_STATUS4 = New TBWH_STATUS4DataTable() + MyBase.Tables.Add(Me.tableTBWH_STATUS4) + Me.tableTBWH_STATUS5 = New TBWH_STATUS5DataTable() + MyBase.Tables.Add(Me.tableTBWH_STATUS5) + Me.tableTBSUPPLY_BESTELLUNG = New TBSUPPLY_BESTELLUNGDataTable() + MyBase.Tables.Add(Me.tableTBSUPPLY_BESTELLUNG) + Me.tableTBWH_SUPPLIES_MARKT = New TBWH_SUPPLIES_MARKTDataTable() + MyBase.Tables.Add(Me.tableTBWH_SUPPLIES_MARKT) + Me.tableVWSUPPLY_BESTELLUNG_FRONTEND = New VWSUPPLY_BESTELLUNG_FRONTENDDataTable() + MyBase.Tables.Add(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND) + Me.tableTBGERAETByMarkt = New TBGERAETByMarktDataTable() + MyBase.Tables.Add(Me.tableTBGERAETByMarkt) + Me.tableTBIMPORT_PRODUKT = New TBIMPORT_PRODUKTDataTable() + MyBase.Tables.Add(Me.tableTBIMPORT_PRODUKT) + Me.tableTBVERTRAEGE = New TBVERTRAEGEDataTable() + MyBase.Tables.Add(Me.tableTBVERTRAEGE) + Me.tableTBPRODUKT_VERTRAG = New TBPRODUKT_VERTRAGDataTable() + MyBase.Tables.Add(Me.tableTBPRODUKT_VERTRAG) + Me.tableTBGERAETE_NOTINLIST = New TBGERAETE_NOTINLISTDataTable() + MyBase.Tables.Add(Me.tableTBGERAETE_NOTINLIST) + Me.tableTBWH_MODELL = New TBWH_MODELLDataTable() + MyBase.Tables.Add(Me.tableTBWH_MODELL) + Me.tableTBSUPPLY_DEFINITION = New TBSUPPLY_DEFINITIONDataTable() + MyBase.Tables.Add(Me.tableTBSUPPLY_DEFINITION) + Me.tableTBGERAET_SUPPLY_ZUORDNUNG = New TBGERAET_SUPPLY_ZUORDNUNGDataTable() + MyBase.Tables.Add(Me.tableTBGERAET_SUPPLY_ZUORDNUNG) + Me.tableVWGeraet_Supply_Zuordnung = New VWGeraet_Supply_ZuordnungDataTable() + MyBase.Tables.Add(Me.tableVWGeraet_Supply_Zuordnung) + Me.tableTBUSER_RECHTE = New TBUSER_RECHTEDataTable() + MyBase.Tables.Add(Me.tableTBUSER_RECHTE) + Me.tableTBMELDEDATUM = New TBMELDEDATUMDataTable() + MyBase.Tables.Add(Me.tableTBMELDEDATUM) + Me.tableTBGERAETE_VERFOLGUNG = New TBGERAETE_VERFOLGUNGDataTable() + MyBase.Tables.Add(Me.tableTBGERAETE_VERFOLGUNG) + Me.tableVWMarkt_Verfolgung = New VWMarkt_VerfolgungDataTable() + MyBase.Tables.Add(Me.tableVWMarkt_Verfolgung) + Me.tableVWGERAETE_VERFOLGUNG = New VWGERAETE_VERFOLGUNGDataTable() + MyBase.Tables.Add(Me.tableVWGERAETE_VERFOLGUNG) + Me.tableTBREFLISTE_HISTORY = New TBREFLISTE_HISTORYDataTable() + MyBase.Tables.Add(Me.tableTBREFLISTE_HISTORY) + Me.tableTBMANDANTEN = New TBMANDANTENDataTable() + MyBase.Tables.Add(Me.tableTBMANDANTEN) + Me.tableVWSUPPLY_VERFOLGUNG = New VWSUPPLY_VERFOLGUNGDataTable() + MyBase.Tables.Add(Me.tableVWSUPPLY_VERFOLGUNG) + Me.tableTBIMPORT_PRODUKTE_DUPLIKATE = New TBIMPORT_PRODUKTE_DUPLIKATEDataTable() + MyBase.Tables.Add(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE) + Me.tableTBCHANGE_LOG_GERAET = New TBCHANGE_LOG_GERAETDataTable() + MyBase.Tables.Add(Me.tableTBCHANGE_LOG_GERAET) + Me.tableTBSERVICE_IMP_LOG = New TBSERVICE_IMP_LOGDataTable() + MyBase.Tables.Add(Me.tableTBSERVICE_IMP_LOG) + Me.tableVWGERAETE_MELDUNG_STATUS = New VWGERAETE_MELDUNG_STATUSDataTable() + MyBase.Tables.Add(Me.tableVWGERAETE_MELDUNG_STATUS) + Me.tableViewSUPPLY_STATUS_VERFOLGUNG = New ViewSUPPLY_STATUS_VERFOLGUNGDataTable() + MyBase.Tables.Add(Me.tableViewSUPPLY_STATUS_VERFOLGUNG) + Me.tableVWSUPPLIES_BESTELLUNG_GESENDET = New VWSUPPLIES_BESTELLUNG_GESENDETDataTable() + MyBase.Tables.Add(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET) + Me.tableVWRPT_SUPPLIES_TOORDER = New VWRPT_SUPPLIES_TOORDERDataTable() + MyBase.Tables.Add(Me.tableVWRPT_SUPPLIES_TOORDER) + Me.tableVWSUPPLIES_2_ORDER = New VWSUPPLIES_2_ORDERDataTable() + MyBase.Tables.Add(Me.tableVWSUPPLIES_2_ORDER) + Me.relationVWSUPPLIES_TBWH_STATUSFILTER = New Global.System.Data.DataRelation("VWSUPPLIES_TBWH_STATUSFILTER", New Global.System.Data.DataColumn() {Me.tableVWSUPPLIES.STATUS_IDColumn}, New Global.System.Data.DataColumn() {Me.tableTBWH_STATUSFILTER.GUIDColumn}, false) + Me.Relations.Add(Me.relationVWSUPPLIES_TBWH_STATUSFILTER) + Me.relationTBWH_STATUSFILTER_VWSUPPLIES = New Global.System.Data.DataRelation("TBWH_STATUSFILTER_VWSUPPLIES", New Global.System.Data.DataColumn() {Me.tableTBWH_STATUSFILTER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWSUPPLIES.STATUS_IDColumn}, false) + Me.Relations.Add(Me.relationTBWH_STATUSFILTER_VWSUPPLIES) + Me.relationVWGERAET_ORDER_VWSUPPLIES_TO_ORDER = New Global.System.Data.DataRelation("VWGERAET_ORDER_VWSUPPLIES_TO_ORDER", New Global.System.Data.DataColumn() {Me.tableVWGERAET_ORDER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWSUPPLIES_TO_ORDER.GERAET_IDColumn}, false) + Me.Relations.Add(Me.relationVWGERAET_ORDER_VWSUPPLIES_TO_ORDER) + Me.relationFK_TBSUPPLIES_STATUS_ID = New Global.System.Data.DataRelation("FK_TBSUPPLIES_STATUS_ID", New Global.System.Data.DataColumn() {Me.tableTBWH_STATUS1.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBSUPPLIES.STATUS_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBSUPPLIES_STATUS_ID) + Me.relationFK_TBSUPPLIES_STATUS_ID1 = New Global.System.Data.DataRelation("FK_TBSUPPLIES_STATUS_ID1", New Global.System.Data.DataColumn() {Me.tableTBWH_STATUS2.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBSUPPLIES.STATUS_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBSUPPLIES_STATUS_ID1) + Me.relationFK_TBSUPPLIES_STATUS_ID2 = New Global.System.Data.DataRelation("FK_TBSUPPLIES_STATUS_ID2", New Global.System.Data.DataColumn() {Me.tableTBWH_STATUS3.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBSUPPLIES.STATUS_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBSUPPLIES_STATUS_ID2) + Me.relationFK_TBSUPPLIES_STATUS_ID3 = New Global.System.Data.DataRelation("FK_TBSUPPLIES_STATUS_ID3", New Global.System.Data.DataColumn() {Me.tableTBWH_STATUSFILTER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBSUPPLIES.STATUS_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBSUPPLIES_STATUS_ID3) + Me.relationFK_TBSUPPLIES_STATUS_ID4 = New Global.System.Data.DataRelation("FK_TBSUPPLIES_STATUS_ID4", New Global.System.Data.DataColumn() {Me.tableTBSTATUS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBSUPPLIES.STATUS_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBSUPPLIES_STATUS_ID4) + Me.relationTBWH_MARKT_TBGERAET = New Global.System.Data.DataRelation("TBWH_MARKT_TBGERAET", New Global.System.Data.DataColumn() {Me.tableTBWH_MARKT.MARKTColumn}, New Global.System.Data.DataColumn() {Me.tableTBGERAET.MARKTColumn}, false) + Me.Relations.Add(Me.relationTBWH_MARKT_TBGERAET) + Me.relationRelTBWH_MARKT_TBSUPPLY_BESTELLUNGView = New Global.System.Data.DataRelation("RelTBWH_MARKT_TBSUPPLY_BESTELLUNGView", New Global.System.Data.DataColumn() {Me.tableTBWH_MARKT.MARKTColumn}, New Global.System.Data.DataColumn() {Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MARKTColumn}, false) + Me.Relations.Add(Me.relationRelTBWH_MARKT_TBSUPPLY_BESTELLUNGView) + Me.relationFK_TBPRODUKT_VERTRAG_VERTRAG = New Global.System.Data.DataRelation("FK_TBPRODUKT_VERTRAG_VERTRAG", New Global.System.Data.DataColumn() {Me.tableTBVERTRAEGE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPRODUKT_VERTRAG.VERTRAG_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBPRODUKT_VERTRAG_VERTRAG) + Me.relationFK_TBGERAETE_NOTINLIST_VERTRAG = New Global.System.Data.DataRelation("FK_TBGERAETE_NOTINLIST_VERTRAG", New Global.System.Data.DataColumn() {Me.tableTBVERTRAEGE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBGERAETE_NOTINLIST.VERTRAG_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBGERAETE_NOTINLIST_VERTRAG) + Me.relationFK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID = New Global.System.Data.DataRelation("FK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID", New Global.System.Data.DataColumn() {Me.tableTBSUPPLY_DEFINITION.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBGERAET_SUPPLY_ZUORDNUNG.SUPPLY_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID) + Me.relationFK_TBSUPPLIES_STATUS_ID5 = New Global.System.Data.DataRelation("FK_TBSUPPLIES_STATUS_ID5", New Global.System.Data.DataColumn() {Me.tableTBWH_STATUS4.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBSUPPLIES.STATUS_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBSUPPLIES_STATUS_ID5) + Me.relationFK_TBSUPPLIES_STATUS_ID6 = New Global.System.Data.DataRelation("FK_TBSUPPLIES_STATUS_ID6", New Global.System.Data.DataColumn() {Me.tableTBWH_STATUS5.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBSUPPLIES.STATUS_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBSUPPLIES_STATUS_ID6) + Me.relationFK_TBSUPPLYDEFINITION = New Global.System.Data.DataRelation("FK_TBSUPPLYDEFINITION", New Global.System.Data.DataColumn() {Me.tableTBSUPPLY_DEFINITION.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBSUPPLIES.SUPPLY_DEF_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBSUPPLYDEFINITION) + End Sub + + _ + Private Function ShouldSerializeTBGERAET() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWSUPPLIES() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_STATUS1() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_STATUS2() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_STATUS3() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_STATUSFILTER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBSUPPLY_VERFOLGUNG() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBKONFIGURATION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBSTATUS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_MARKT() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWSUPPLIES_AKTUELL() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWGERAET_ORDER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWSUPPLIES_TO_ORDER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBSUPPLIES() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_STATUS4() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_STATUS5() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBSUPPLY_BESTELLUNG() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_SUPPLIES_MARKT() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWSUPPLY_BESTELLUNG_FRONTEND() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBGERAETByMarkt() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBIMPORT_PRODUKT() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBVERTRAEGE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPRODUKT_VERTRAG() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBGERAETE_NOTINLIST() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_MODELL() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBSUPPLY_DEFINITION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBGERAET_SUPPLY_ZUORDNUNG() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWGeraet_Supply_Zuordnung() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBUSER_RECHTE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBMELDEDATUM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBGERAETE_VERFOLGUNG() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWMarkt_Verfolgung() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWGERAETE_VERFOLGUNG() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBREFLISTE_HISTORY() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBMANDANTEN() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWSUPPLY_VERFOLGUNG() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBIMPORT_PRODUKTE_DUPLIKATE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBCHANGE_LOG_GERAET() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBSERVICE_IMP_LOG() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWGERAETE_MELDUNG_STATUS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeViewSUPPLY_STATUS_VERFOLGUNG() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWSUPPLIES_BESTELLUNG_GESENDET() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWRPT_SUPPLIES_TOORDER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWSUPPLIES_2_ORDER() As Boolean + Return false + End Function + + _ + 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 + End If + End Sub + + _ + 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() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub TBGERAETRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGERAETRowChangeEvent) + + _ + Public Delegate Sub VWSUPPLIESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLIESRowChangeEvent) + + _ + Public Delegate Sub TBWH_STATUS1RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_STATUS1RowChangeEvent) + + _ + Public Delegate Sub TBWH_STATUS2RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_STATUS2RowChangeEvent) + + _ + Public Delegate Sub TBWH_STATUS3RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_STATUS3RowChangeEvent) + + _ + Public Delegate Sub TBWH_STATUSFILTERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_STATUSFILTERRowChangeEvent) + + _ + Public Delegate Sub TBSUPPLY_VERFOLGUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBSUPPLY_VERFOLGUNGRowChangeEvent) + + _ + Public Delegate Sub TBKONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKONFIGURATIONRowChangeEvent) + + _ + Public Delegate Sub TBSTATUSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBSTATUSRowChangeEvent) + + _ + Public Delegate Sub TBWH_MARKTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_MARKTRowChangeEvent) + + _ + Public Delegate Sub VWSUPPLIES_AKTUELLRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLIES_AKTUELLRowChangeEvent) + + _ + Public Delegate Sub VWGERAET_ORDERRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGERAET_ORDERRowChangeEvent) + + _ + Public Delegate Sub VWSUPPLIES_TO_ORDERRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLIES_TO_ORDERRowChangeEvent) + + _ + Public Delegate Sub TBSUPPLIESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBSUPPLIESRowChangeEvent) + + _ + Public Delegate Sub TBWH_STATUS4RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_STATUS4RowChangeEvent) + + _ + Public Delegate Sub TBWH_STATUS5RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_STATUS5RowChangeEvent) + + _ + Public Delegate Sub TBSUPPLY_BESTELLUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBSUPPLY_BESTELLUNGRowChangeEvent) + + _ + Public Delegate Sub TBWH_SUPPLIES_MARKTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_SUPPLIES_MARKTRowChangeEvent) + + _ + Public Delegate Sub VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEvent) + + _ + Public Delegate Sub TBGERAETByMarktRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGERAETByMarktRowChangeEvent) + + _ + Public Delegate Sub TBIMPORT_PRODUKTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIMPORT_PRODUKTRowChangeEvent) + + _ + Public Delegate Sub TBVERTRAEGERowChangeEventHandler(ByVal sender As Object, ByVal e As TBVERTRAEGERowChangeEvent) + + _ + Public Delegate Sub TBPRODUKT_VERTRAGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPRODUKT_VERTRAGRowChangeEvent) + + _ + Public Delegate Sub TBGERAETE_NOTINLISTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGERAETE_NOTINLISTRowChangeEvent) + + _ + Public Delegate Sub TBWH_MODELLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_MODELLRowChangeEvent) + + _ + Public Delegate Sub TBSUPPLY_DEFINITIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBSUPPLY_DEFINITIONRowChangeEvent) + + _ + Public Delegate Sub TBGERAET_SUPPLY_ZUORDNUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGERAET_SUPPLY_ZUORDNUNGRowChangeEvent) + + _ + Public Delegate Sub VWGeraet_Supply_ZuordnungRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGeraet_Supply_ZuordnungRowChangeEvent) + + _ + Public Delegate Sub TBUSER_RECHTERowChangeEventHandler(ByVal sender As Object, ByVal e As TBUSER_RECHTERowChangeEvent) + + _ + Public Delegate Sub TBMELDEDATUMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMELDEDATUMRowChangeEvent) + + _ + Public Delegate Sub TBGERAETE_VERFOLGUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGERAETE_VERFOLGUNGRowChangeEvent) + + _ + Public Delegate Sub VWMarkt_VerfolgungRowChangeEventHandler(ByVal sender As Object, ByVal e As VWMarkt_VerfolgungRowChangeEvent) + + _ + Public Delegate Sub VWGERAETE_VERFOLGUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGERAETE_VERFOLGUNGRowChangeEvent) + + _ + Public Delegate Sub TBREFLISTE_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBREFLISTE_HISTORYRowChangeEvent) + + _ + Public Delegate Sub TBMANDANTENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMANDANTENRowChangeEvent) + + _ + Public Delegate Sub VWSUPPLY_VERFOLGUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLY_VERFOLGUNGRowChangeEvent) + + _ + Public Delegate Sub TBIMPORT_PRODUKTE_DUPLIKATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIMPORT_PRODUKTE_DUPLIKATERowChangeEvent) + + _ + Public Delegate Sub TBCHANGE_LOG_GERAETRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCHANGE_LOG_GERAETRowChangeEvent) + + _ + Public Delegate Sub TBSERVICE_IMP_LOGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBSERVICE_IMP_LOGRowChangeEvent) + + _ + Public Delegate Sub VWGERAETE_MELDUNG_STATUSRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGERAETE_MELDUNG_STATUSRowChangeEvent) + + _ + Public Delegate Sub ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEvent) + + _ + Public Delegate Sub VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEvent) + + _ + Public Delegate Sub VWRPT_SUPPLIES_TOORDERRowChangeEventHandler(ByVal sender As Object, ByVal e As VWRPT_SUPPLIES_TOORDERRowChangeEvent) + + _ + Public Delegate Sub VWSUPPLIES_2_ORDERRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLIES_2_ORDERRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBGERAETDataTable + Inherits Global.System.Data.TypedTableBase(Of TBGERAETRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnIP_ADRESSE As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnPAGE_COUNT As Global.System.Data.DataColumn + + Private columnPPM As Global.System.Data.DataColumn + + Private columnBEMERKUNG As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnBESTELLUNG As Global.System.Data.DataColumn + + Private columnMARKER As Global.System.Data.DataColumn + + Private columnPC_INITIAL As Global.System.Data.DataColumn + + Private columnDATE_INITIAL As Global.System.Data.DataColumn + + Private columnMODEL_NR As Global.System.Data.DataColumn + + Private columnUMGEZOGEN As Global.System.Data.DataColumn + + Private columnVERTRAGSNR As Global.System.Data.DataColumn + + Private columnONHOLD As Global.System.Data.DataColumn + + Private columnONHOLD_DATE As Global.System.Data.DataColumn + + Private columnMELDEDATUM As Global.System.Data.DataColumn + + Private columnNICHT_AKTIV As Global.System.Data.DataColumn + + Private columnABGEBAUT As Global.System.Data.DataColumn + + Private columnMandant As Global.System.Data.DataColumn + + Private columnMandant_KZ As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBGERAET" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property IP_ADRESSEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIP_ADRESSE + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property PAGE_COUNTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPAGE_COUNT + End Get + End Property + + _ + Public ReadOnly Property PPMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPPM + End Get + End Property + + _ + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEMERKUNG + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property BESTELLUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELLUNG + End Get + End Property + + _ + Public ReadOnly Property MARKERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKER + End Get + End Property + + _ + Public ReadOnly Property PC_INITIALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPC_INITIAL + End Get + End Property + + _ + Public ReadOnly Property DATE_INITIALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATE_INITIAL + End Get + End Property + + _ + Public ReadOnly Property MODEL_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODEL_NR + End Get + End Property + + _ + Public ReadOnly Property UMGEZOGENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUMGEZOGEN + End Get + End Property + + _ + Public ReadOnly Property VERTRAGSNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAGSNR + End Get + End Property + + _ + Public ReadOnly Property ONHOLDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnONHOLD + End Get + End Property + + _ + Public ReadOnly Property ONHOLD_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnONHOLD_DATE + End Get + End Property + + _ + Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMELDEDATUM + End Get + End Property + + _ + Public ReadOnly Property NICHT_AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNICHT_AKTIV + End Get + End Property + + _ + Public ReadOnly Property ABGEBAUTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnABGEBAUT + End Get + End Property + + _ + Public ReadOnly Property MandantColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMandant + End Get + End Property + + _ + Public ReadOnly Property Mandant_KZColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMandant_KZ + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBGERAETRow + Get + Return CType(Me.Rows(index),TBGERAETRow) + End Get + End Property + + _ + Public Event TBGERAETRowChanging As TBGERAETRowChangeEventHandler + + _ + Public Event TBGERAETRowChanged As TBGERAETRowChangeEventHandler + + _ + Public Event TBGERAETRowDeleting As TBGERAETRowChangeEventHandler + + _ + Public Event TBGERAETRowDeleted As TBGERAETRowChangeEventHandler + + _ + Public Overloads Sub AddTBGERAETRow(ByVal row As TBGERAETRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBGERAETRow( _ + ByVal BEZEICHNUNG As String, _ + ByVal IP_ADRESSE As String, _ + ByVal SERIENNR As String, _ + ByVal parentTBWH_MARKTRowByTBWH_MARKT_TBGERAET As TBWH_MARKTRow, _ + ByVal PAGE_COUNT As Integer, _ + ByVal PPM As Integer, _ + ByVal BEMERKUNG As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal BESTELLUNG As Boolean, _ + ByVal MARKER As String, _ + ByVal PC_INITIAL As Integer, _ + ByVal DATE_INITIAL As Date, _ + ByVal MODEL_NR As String, _ + ByVal UMGEZOGEN As Boolean, _ + ByVal VERTRAGSNR As String, _ + ByVal ONHOLD As Boolean, _ + ByVal ONHOLD_DATE As Date, _ + ByVal MELDEDATUM As String, _ + ByVal NICHT_AKTIV As Boolean, _ + ByVal ABGEBAUT As Boolean, _ + ByVal Mandant As String, _ + ByVal Mandant_KZ As String) As TBGERAETRow + Dim rowTBGERAETRow As TBGERAETRow = CType(Me.NewRow,TBGERAETRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, IP_ADRESSE, SERIENNR, Nothing, PAGE_COUNT, PPM, BEMERKUNG, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, BESTELLUNG, MARKER, PC_INITIAL, DATE_INITIAL, MODEL_NR, UMGEZOGEN, VERTRAGSNR, ONHOLD, ONHOLD_DATE, MELDEDATUM, NICHT_AKTIV, ABGEBAUT, Mandant, Mandant_KZ} + If (Not (parentTBWH_MARKTRowByTBWH_MARKT_TBGERAET) Is Nothing) Then + columnValuesArray(4) = parentTBWH_MARKTRowByTBWH_MARKT_TBGERAET(0) + End If + rowTBGERAETRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBGERAETRow) + Return rowTBGERAETRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBGERAETRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBGERAETRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBGERAETDataTable = CType(MyBase.Clone,TBGERAETDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBGERAETDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnIP_ADRESSE = MyBase.Columns("IP_ADRESSE") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnPAGE_COUNT = MyBase.Columns("PAGE_COUNT") + Me.columnPPM = MyBase.Columns("PPM") + Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnBESTELLUNG = MyBase.Columns("BESTELLUNG") + Me.columnMARKER = MyBase.Columns("MARKER") + Me.columnPC_INITIAL = MyBase.Columns("PC_INITIAL") + Me.columnDATE_INITIAL = MyBase.Columns("DATE_INITIAL") + Me.columnMODEL_NR = MyBase.Columns("MODEL_NR") + Me.columnUMGEZOGEN = MyBase.Columns("UMGEZOGEN") + Me.columnVERTRAGSNR = MyBase.Columns("VERTRAGSNR") + Me.columnONHOLD = MyBase.Columns("ONHOLD") + Me.columnONHOLD_DATE = MyBase.Columns("ONHOLD_DATE") + Me.columnMELDEDATUM = MyBase.Columns("MELDEDATUM") + Me.columnNICHT_AKTIV = MyBase.Columns("NICHT_AKTIV") + Me.columnABGEBAUT = MyBase.Columns("ABGEBAUT") + Me.columnMandant = MyBase.Columns("Mandant") + Me.columnMandant_KZ = MyBase.Columns("Mandant_KZ") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnIP_ADRESSE = New Global.System.Data.DataColumn("IP_ADRESSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIP_ADRESSE) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnPAGE_COUNT = New Global.System.Data.DataColumn("PAGE_COUNT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPAGE_COUNT) + Me.columnPPM = New Global.System.Data.DataColumn("PPM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPPM) + Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEMERKUNG) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnBESTELLUNG = New Global.System.Data.DataColumn("BESTELLUNG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELLUNG) + Me.columnMARKER = New Global.System.Data.DataColumn("MARKER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKER) + Me.columnPC_INITIAL = New Global.System.Data.DataColumn("PC_INITIAL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPC_INITIAL) + Me.columnDATE_INITIAL = New Global.System.Data.DataColumn("DATE_INITIAL", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATE_INITIAL) + Me.columnMODEL_NR = New Global.System.Data.DataColumn("MODEL_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODEL_NR) + Me.columnUMGEZOGEN = New Global.System.Data.DataColumn("UMGEZOGEN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUMGEZOGEN) + Me.columnVERTRAGSNR = New Global.System.Data.DataColumn("VERTRAGSNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAGSNR) + Me.columnONHOLD = New Global.System.Data.DataColumn("ONHOLD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnONHOLD) + Me.columnONHOLD_DATE = New Global.System.Data.DataColumn("ONHOLD_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnONHOLD_DATE) + Me.columnMELDEDATUM = New Global.System.Data.DataColumn("MELDEDATUM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMELDEDATUM) + Me.columnNICHT_AKTIV = New Global.System.Data.DataColumn("NICHT_AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNICHT_AKTIV) + Me.columnABGEBAUT = New Global.System.Data.DataColumn("ABGEBAUT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnABGEBAUT) + Me.columnMandant = New Global.System.Data.DataColumn("Mandant", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMandant) + Me.columnMandant_KZ = New Global.System.Data.DataColumn("Mandant_KZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMandant_KZ) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnIP_ADRESSE.MaxLength = 30 + Me.columnSERIENNR.AllowDBNull = false + Me.columnSERIENNR.MaxLength = 50 + Me.columnMARKT.MaxLength = 50 + Me.columnBEMERKUNG.MaxLength = 250 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnBESTELLUNG.DefaultValue = CType(false,Boolean) + Me.columnMARKER.MaxLength = 250 + Me.columnPC_INITIAL.AllowDBNull = false + Me.columnPC_INITIAL.DefaultValue = CType(0,Integer) + Me.columnMODEL_NR.MaxLength = 30 + Me.columnUMGEZOGEN.AllowDBNull = false + Me.columnUMGEZOGEN.DefaultValue = CType(false,Boolean) + Me.columnVERTRAGSNR.MaxLength = 50 + Me.columnONHOLD.AllowDBNull = false + Me.columnONHOLD.DefaultValue = CType(false,Boolean) + Me.columnMELDEDATUM.ReadOnly = true + Me.columnMELDEDATUM.MaxLength = 10 + Me.columnNICHT_AKTIV.AllowDBNull = false + Me.columnNICHT_AKTIV.DefaultValue = CType(false,Boolean) + Me.columnABGEBAUT.AllowDBNull = false + Me.columnABGEBAUT.DefaultValue = CType(false,Boolean) + Me.columnMandant.MaxLength = 100 + Me.columnMandant_KZ.MaxLength = 100 + End Sub + + _ + Public Function NewTBGERAETRow() As TBGERAETRow + Return CType(Me.NewRow,TBGERAETRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBGERAETRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBGERAETRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBGERAETRowChangedEvent) Is Nothing) Then + RaiseEvent TBGERAETRowChanged(Me, New TBGERAETRowChangeEvent(CType(e.Row,TBGERAETRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBGERAETRowChangingEvent) Is Nothing) Then + RaiseEvent TBGERAETRowChanging(Me, New TBGERAETRowChangeEvent(CType(e.Row,TBGERAETRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBGERAETRowDeletedEvent) Is Nothing) Then + RaiseEvent TBGERAETRowDeleted(Me, New TBGERAETRowChangeEvent(CType(e.Row,TBGERAETRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBGERAETRowDeletingEvent) Is Nothing) Then + RaiseEvent TBGERAETRowDeleting(Me, New TBGERAETRowChangeEvent(CType(e.Row,TBGERAETRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBGERAETRow(ByVal row As TBGERAETRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBGERAETDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWSUPPLIESDataTable + Inherits Global.System.Data.TypedTableBase(Of VWSUPPLIESRow) + + Private columnSUPPLY_ID As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnDEVICE As Global.System.Data.DataColumn + + Private columnSUPPLY_BEZ As Global.System.Data.DataColumn + + Private columnLEVEL As Global.System.Data.DataColumn + + Private columnSCHWELLENWERT As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnSTATUS_ID As Global.System.Data.DataColumn + + Private columnSTATUS As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnGERAET_ID As Global.System.Data.DataColumn + + Private columnSTATUS_WANN As Global.System.Data.DataColumn + + Private columnGERAET As Global.System.Data.DataColumn + + Private columnGERAET_IP As Global.System.Data.DataColumn + + Private columnGERAET_SERIENNR As Global.System.Data.DataColumn + + Private columnGERAET_PAGECOUNT As Global.System.Data.DataColumn + + Private columnGERAET_PPM As Global.System.Data.DataColumn + + Private columnBESTELLUNG As Global.System.Data.DataColumn + + Private columnSTATUS_WER As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWSUPPLIES" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_ID + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property DEVICEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEVICE + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_BEZColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_BEZ + End Get + End Property + + _ + Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL + End Get + End Property + + _ + Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCHWELLENWERT + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property STATUS_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_ID + End Get + End Property + + _ + Public ReadOnly Property STATUSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_ID + End Get + End Property + + _ + Public ReadOnly Property STATUS_WANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_WANN + End Get + End Property + + _ + Public ReadOnly Property GERAETColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET + End Get + End Property + + _ + Public ReadOnly Property GERAET_IPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_IP + End Get + End Property + + _ + Public ReadOnly Property GERAET_SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_SERIENNR + End Get + End Property + + _ + Public ReadOnly Property GERAET_PAGECOUNTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_PAGECOUNT + End Get + End Property + + _ + Public ReadOnly Property GERAET_PPMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_PPM + End Get + End Property + + _ + Public ReadOnly Property BESTELLUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELLUNG + End Get + End Property + + _ + Public ReadOnly Property STATUS_WERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_WER + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLIESRow + Get + Return CType(Me.Rows(index),VWSUPPLIESRow) + End Get + End Property + + _ + Public Event VWSUPPLIESRowChanging As VWSUPPLIESRowChangeEventHandler + + _ + Public Event VWSUPPLIESRowChanged As VWSUPPLIESRowChangeEventHandler + + _ + Public Event VWSUPPLIESRowDeleting As VWSUPPLIESRowChangeEventHandler + + _ + Public Event VWSUPPLIESRowDeleted As VWSUPPLIESRowChangeEventHandler + + _ + Public Overloads Sub AddVWSUPPLIESRow(ByVal row As VWSUPPLIESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWSUPPLIESRow( _ + ByVal SUPPLY_ID As Integer, _ + ByVal MARKT As String, _ + ByVal DEVICE As String, _ + ByVal SUPPLY_BEZ As String, _ + ByVal LEVEL As Integer, _ + ByVal SCHWELLENWERT As Integer, _ + ByVal PARTNUMBER As String, _ + ByVal SERIENNR As String, _ + ByVal parentTBWH_STATUSFILTERRowByTBWH_STATUSFILTER_VWSUPPLIES As TBWH_STATUSFILTERRow, _ + ByVal STATUS As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal GERAET_ID As Integer, _ + ByVal STATUS_WANN As Date, _ + ByVal GERAET As String, _ + ByVal GERAET_IP As String, _ + ByVal GERAET_SERIENNR As String, _ + ByVal GERAET_PAGECOUNT As Integer, _ + ByVal GERAET_PPM As Integer, _ + ByVal BESTELLUNG As Boolean, _ + ByVal STATUS_WER As String) As VWSUPPLIESRow + Dim rowVWSUPPLIESRow As VWSUPPLIESRow = CType(Me.NewRow,VWSUPPLIESRow) + Dim columnValuesArray() As Object = New Object() {SUPPLY_ID, MARKT, DEVICE, SUPPLY_BEZ, LEVEL, SCHWELLENWERT, PARTNUMBER, SERIENNR, Nothing, STATUS, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, GERAET_ID, STATUS_WANN, GERAET, GERAET_IP, GERAET_SERIENNR, GERAET_PAGECOUNT, GERAET_PPM, BESTELLUNG, STATUS_WER} + If (Not (parentTBWH_STATUSFILTERRowByTBWH_STATUSFILTER_VWSUPPLIES) Is Nothing) Then + columnValuesArray(8) = parentTBWH_STATUSFILTERRowByTBWH_STATUSFILTER_VWSUPPLIES(0) + End If + rowVWSUPPLIESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWSUPPLIESRow) + Return rowVWSUPPLIESRow + End Function + + _ + Public Function FindBySUPPLY_ID(ByVal SUPPLY_ID As Integer) As VWSUPPLIESRow + Return CType(Me.Rows.Find(New Object() {SUPPLY_ID}),VWSUPPLIESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWSUPPLIESDataTable = CType(MyBase.Clone,VWSUPPLIESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWSUPPLIESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSUPPLY_ID = MyBase.Columns("SUPPLY_ID") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnDEVICE = MyBase.Columns("DEVICE") + Me.columnSUPPLY_BEZ = MyBase.Columns("SUPPLY_BEZ") + Me.columnLEVEL = MyBase.Columns("LEVEL") + Me.columnSCHWELLENWERT = MyBase.Columns("SCHWELLENWERT") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnSTATUS_ID = MyBase.Columns("STATUS_ID") + Me.columnSTATUS = MyBase.Columns("STATUS") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnGERAET_ID = MyBase.Columns("GERAET_ID") + Me.columnSTATUS_WANN = MyBase.Columns("STATUS_WANN") + Me.columnGERAET = MyBase.Columns("GERAET") + Me.columnGERAET_IP = MyBase.Columns("GERAET_IP") + Me.columnGERAET_SERIENNR = MyBase.Columns("GERAET_SERIENNR") + Me.columnGERAET_PAGECOUNT = MyBase.Columns("GERAET_PAGECOUNT") + Me.columnGERAET_PPM = MyBase.Columns("GERAET_PPM") + Me.columnBESTELLUNG = MyBase.Columns("BESTELLUNG") + Me.columnSTATUS_WER = MyBase.Columns("STATUS_WER") + End Sub + + _ + Private Sub InitClass() + Me.columnSUPPLY_ID = New Global.System.Data.DataColumn("SUPPLY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_ID) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnDEVICE = New Global.System.Data.DataColumn("DEVICE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEVICE) + Me.columnSUPPLY_BEZ = New Global.System.Data.DataColumn("SUPPLY_BEZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_BEZ) + Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL) + Me.columnSCHWELLENWERT = New Global.System.Data.DataColumn("SCHWELLENWERT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCHWELLENWERT) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnSTATUS_ID = New Global.System.Data.DataColumn("STATUS_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_ID) + Me.columnSTATUS = New Global.System.Data.DataColumn("STATUS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnGERAET_ID = New Global.System.Data.DataColumn("GERAET_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_ID) + Me.columnSTATUS_WANN = New Global.System.Data.DataColumn("STATUS_WANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_WANN) + Me.columnGERAET = New Global.System.Data.DataColumn("GERAET", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET) + Me.columnGERAET_IP = New Global.System.Data.DataColumn("GERAET_IP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_IP) + Me.columnGERAET_SERIENNR = New Global.System.Data.DataColumn("GERAET_SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_SERIENNR) + Me.columnGERAET_PAGECOUNT = New Global.System.Data.DataColumn("GERAET_PAGECOUNT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_PAGECOUNT) + Me.columnGERAET_PPM = New Global.System.Data.DataColumn("GERAET_PPM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_PPM) + Me.columnBESTELLUNG = New Global.System.Data.DataColumn("BESTELLUNG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELLUNG) + Me.columnSTATUS_WER = New Global.System.Data.DataColumn("STATUS_WER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_WER) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSUPPLY_ID}, true)) + Me.columnSUPPLY_ID.AllowDBNull = false + Me.columnSUPPLY_ID.Unique = true + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnDEVICE.MaxLength = 100 + Me.columnSUPPLY_BEZ.MaxLength = 100 + Me.columnLEVEL.AllowDBNull = false + Me.columnSCHWELLENWERT.AllowDBNull = false + Me.columnPARTNUMBER.MaxLength = 30 + Me.columnSERIENNR.MaxLength = 30 + Me.columnSTATUS_ID.AllowDBNull = false + Me.columnSTATUS.AllowDBNull = false + Me.columnSTATUS.MaxLength = 50 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnGEAENDERTWANN.AllowDBNull = false + Me.columnGERAET_ID.AllowDBNull = false + Me.columnGERAET.MaxLength = 100 + Me.columnGERAET_IP.MaxLength = 30 + Me.columnGERAET_SERIENNR.AllowDBNull = false + Me.columnGERAET_SERIENNR.MaxLength = 50 + Me.columnBESTELLUNG.AllowDBNull = false + Me.columnSTATUS_WER.MaxLength = 30 + End Sub + + _ + Public Function NewVWSUPPLIESRow() As VWSUPPLIESRow + Return CType(Me.NewRow,VWSUPPLIESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWSUPPLIESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWSUPPLIESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWSUPPLIESRowChangedEvent) Is Nothing) Then + RaiseEvent VWSUPPLIESRowChanged(Me, New VWSUPPLIESRowChangeEvent(CType(e.Row,VWSUPPLIESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWSUPPLIESRowChangingEvent) Is Nothing) Then + RaiseEvent VWSUPPLIESRowChanging(Me, New VWSUPPLIESRowChangeEvent(CType(e.Row,VWSUPPLIESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWSUPPLIESRowDeletedEvent) Is Nothing) Then + RaiseEvent VWSUPPLIESRowDeleted(Me, New VWSUPPLIESRowChangeEvent(CType(e.Row,VWSUPPLIESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWSUPPLIESRowDeletingEvent) Is Nothing) Then + RaiseEvent VWSUPPLIESRowDeleting(Me, New VWSUPPLIESRowChangeEvent(CType(e.Row,VWSUPPLIESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWSUPPLIESRow(ByVal row As VWSUPPLIESRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWSUPPLIESDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_STATUS1DataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_STATUS1Row) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_STATUS1" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_STATUS1Row + Get + Return CType(Me.Rows(index),TBWH_STATUS1Row) + End Get + End Property + + _ + Public Event TBWH_STATUS1RowChanging As TBWH_STATUS1RowChangeEventHandler + + _ + Public Event TBWH_STATUS1RowChanged As TBWH_STATUS1RowChangeEventHandler + + _ + Public Event TBWH_STATUS1RowDeleting As TBWH_STATUS1RowChangeEventHandler + + _ + Public Event TBWH_STATUS1RowDeleted As TBWH_STATUS1RowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_STATUS1Row(ByVal row As TBWH_STATUS1Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_STATUS1Row(ByVal BEZEICHNUNG As String) As TBWH_STATUS1Row + Dim rowTBWH_STATUS1Row As TBWH_STATUS1Row = CType(Me.NewRow,TBWH_STATUS1Row) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} + rowTBWH_STATUS1Row.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_STATUS1Row) + Return rowTBWH_STATUS1Row + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBWH_STATUS1Row + Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_STATUS1Row) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_STATUS1DataTable = CType(MyBase.Clone,TBWH_STATUS1DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_STATUS1DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + End Sub + + _ + Public Function NewTBWH_STATUS1Row() As TBWH_STATUS1Row + Return CType(Me.NewRow,TBWH_STATUS1Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_STATUS1Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_STATUS1Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_STATUS1RowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS1RowChanged(Me, New TBWH_STATUS1RowChangeEvent(CType(e.Row,TBWH_STATUS1Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_STATUS1RowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS1RowChanging(Me, New TBWH_STATUS1RowChangeEvent(CType(e.Row,TBWH_STATUS1Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_STATUS1RowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS1RowDeleted(Me, New TBWH_STATUS1RowChangeEvent(CType(e.Row,TBWH_STATUS1Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_STATUS1RowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS1RowDeleting(Me, New TBWH_STATUS1RowChangeEvent(CType(e.Row,TBWH_STATUS1Row), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_STATUS1Row(ByVal row As TBWH_STATUS1Row) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_STATUS1DataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_STATUS2DataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_STATUS2Row) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_STATUS2" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_STATUS2Row + Get + Return CType(Me.Rows(index),TBWH_STATUS2Row) + End Get + End Property + + _ + Public Event TBWH_STATUS2RowChanging As TBWH_STATUS2RowChangeEventHandler + + _ + Public Event TBWH_STATUS2RowChanged As TBWH_STATUS2RowChangeEventHandler + + _ + Public Event TBWH_STATUS2RowDeleting As TBWH_STATUS2RowChangeEventHandler + + _ + Public Event TBWH_STATUS2RowDeleted As TBWH_STATUS2RowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_STATUS2Row(ByVal row As TBWH_STATUS2Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_STATUS2Row(ByVal BEZEICHNUNG As String) As TBWH_STATUS2Row + Dim rowTBWH_STATUS2Row As TBWH_STATUS2Row = CType(Me.NewRow,TBWH_STATUS2Row) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} + rowTBWH_STATUS2Row.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_STATUS2Row) + Return rowTBWH_STATUS2Row + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBWH_STATUS2Row + Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_STATUS2Row) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_STATUS2DataTable = CType(MyBase.Clone,TBWH_STATUS2DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_STATUS2DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + End Sub + + _ + Public Function NewTBWH_STATUS2Row() As TBWH_STATUS2Row + Return CType(Me.NewRow,TBWH_STATUS2Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_STATUS2Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_STATUS2Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_STATUS2RowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS2RowChanged(Me, New TBWH_STATUS2RowChangeEvent(CType(e.Row,TBWH_STATUS2Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_STATUS2RowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS2RowChanging(Me, New TBWH_STATUS2RowChangeEvent(CType(e.Row,TBWH_STATUS2Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_STATUS2RowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS2RowDeleted(Me, New TBWH_STATUS2RowChangeEvent(CType(e.Row,TBWH_STATUS2Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_STATUS2RowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS2RowDeleting(Me, New TBWH_STATUS2RowChangeEvent(CType(e.Row,TBWH_STATUS2Row), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_STATUS2Row(ByVal row As TBWH_STATUS2Row) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_STATUS2DataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_STATUS3DataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_STATUS3Row) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_STATUS3" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_STATUS3Row + Get + Return CType(Me.Rows(index),TBWH_STATUS3Row) + End Get + End Property + + _ + Public Event TBWH_STATUS3RowChanging As TBWH_STATUS3RowChangeEventHandler + + _ + Public Event TBWH_STATUS3RowChanged As TBWH_STATUS3RowChangeEventHandler + + _ + Public Event TBWH_STATUS3RowDeleting As TBWH_STATUS3RowChangeEventHandler + + _ + Public Event TBWH_STATUS3RowDeleted As TBWH_STATUS3RowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_STATUS3Row(ByVal row As TBWH_STATUS3Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_STATUS3Row(ByVal BEZEICHNUNG As String) As TBWH_STATUS3Row + Dim rowTBWH_STATUS3Row As TBWH_STATUS3Row = CType(Me.NewRow,TBWH_STATUS3Row) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} + rowTBWH_STATUS3Row.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_STATUS3Row) + Return rowTBWH_STATUS3Row + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBWH_STATUS3Row + Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_STATUS3Row) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_STATUS3DataTable = CType(MyBase.Clone,TBWH_STATUS3DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_STATUS3DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + End Sub + + _ + Public Function NewTBWH_STATUS3Row() As TBWH_STATUS3Row + Return CType(Me.NewRow,TBWH_STATUS3Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_STATUS3Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_STATUS3Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_STATUS3RowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS3RowChanged(Me, New TBWH_STATUS3RowChangeEvent(CType(e.Row,TBWH_STATUS3Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_STATUS3RowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS3RowChanging(Me, New TBWH_STATUS3RowChangeEvent(CType(e.Row,TBWH_STATUS3Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_STATUS3RowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS3RowDeleted(Me, New TBWH_STATUS3RowChangeEvent(CType(e.Row,TBWH_STATUS3Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_STATUS3RowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS3RowDeleting(Me, New TBWH_STATUS3RowChangeEvent(CType(e.Row,TBWH_STATUS3Row), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_STATUS3Row(ByVal row As TBWH_STATUS3Row) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_STATUS3DataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_STATUSFILTERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_STATUSFILTERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_STATUSFILTER" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_STATUSFILTERRow + Get + Return CType(Me.Rows(index),TBWH_STATUSFILTERRow) + End Get + End Property + + _ + Public Event TBWH_STATUSFILTERRowChanging As TBWH_STATUSFILTERRowChangeEventHandler + + _ + Public Event TBWH_STATUSFILTERRowChanged As TBWH_STATUSFILTERRowChangeEventHandler + + _ + Public Event TBWH_STATUSFILTERRowDeleting As TBWH_STATUSFILTERRowChangeEventHandler + + _ + Public Event TBWH_STATUSFILTERRowDeleted As TBWH_STATUSFILTERRowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_STATUSFILTERRow(ByVal row As TBWH_STATUSFILTERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_STATUSFILTERRow(ByVal BEZEICHNUNG As String) As TBWH_STATUSFILTERRow + Dim rowTBWH_STATUSFILTERRow As TBWH_STATUSFILTERRow = CType(Me.NewRow,TBWH_STATUSFILTERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} + rowTBWH_STATUSFILTERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_STATUSFILTERRow) + Return rowTBWH_STATUSFILTERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBWH_STATUSFILTERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_STATUSFILTERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_STATUSFILTERDataTable = CType(MyBase.Clone,TBWH_STATUSFILTERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_STATUSFILTERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + End Sub + + _ + Public Function NewTBWH_STATUSFILTERRow() As TBWH_STATUSFILTERRow + Return CType(Me.NewRow,TBWH_STATUSFILTERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_STATUSFILTERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_STATUSFILTERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_STATUSFILTERRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_STATUSFILTERRowChanged(Me, New TBWH_STATUSFILTERRowChangeEvent(CType(e.Row,TBWH_STATUSFILTERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_STATUSFILTERRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_STATUSFILTERRowChanging(Me, New TBWH_STATUSFILTERRowChangeEvent(CType(e.Row,TBWH_STATUSFILTERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_STATUSFILTERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_STATUSFILTERRowDeleted(Me, New TBWH_STATUSFILTERRowChangeEvent(CType(e.Row,TBWH_STATUSFILTERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_STATUSFILTERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_STATUSFILTERRowDeleting(Me, New TBWH_STATUSFILTERRowChangeEvent(CType(e.Row,TBWH_STATUSFILTERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_STATUSFILTERRow(ByVal row As TBWH_STATUSFILTERRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_STATUSFILTERDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBSUPPLY_VERFOLGUNGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBSUPPLY_VERFOLGUNGRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnGERAET_ID As Global.System.Data.DataColumn + + Private columnLEVEL As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnMARKER As Global.System.Data.DataColumn + + Private columnMELDEDATUM As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBSUPPLY_VERFOLGUNG" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_ID + End Get + End Property + + _ + Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property MARKERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKER + End Get + End Property + + _ + Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMELDEDATUM + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBSUPPLY_VERFOLGUNGRow + Get + Return CType(Me.Rows(index),TBSUPPLY_VERFOLGUNGRow) + End Get + End Property + + _ + Public Event TBSUPPLY_VERFOLGUNGRowChanging As TBSUPPLY_VERFOLGUNGRowChangeEventHandler + + _ + Public Event TBSUPPLY_VERFOLGUNGRowChanged As TBSUPPLY_VERFOLGUNGRowChangeEventHandler + + _ + Public Event TBSUPPLY_VERFOLGUNGRowDeleting As TBSUPPLY_VERFOLGUNGRowChangeEventHandler + + _ + Public Event TBSUPPLY_VERFOLGUNGRowDeleted As TBSUPPLY_VERFOLGUNGRowChangeEventHandler + + _ + Public Overloads Sub AddTBSUPPLY_VERFOLGUNGRow(ByVal row As TBSUPPLY_VERFOLGUNGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBSUPPLY_VERFOLGUNGRow(ByVal BEZEICHNUNG As String, ByVal SERIENNR As String, ByVal GERAET_ID As Integer, ByVal LEVEL As Integer, ByVal PARTNUMBER As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal MARKER As String, ByVal MELDEDATUM As String) As TBSUPPLY_VERFOLGUNGRow + Dim rowTBSUPPLY_VERFOLGUNGRow As TBSUPPLY_VERFOLGUNGRow = CType(Me.NewRow,TBSUPPLY_VERFOLGUNGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SERIENNR, GERAET_ID, LEVEL, PARTNUMBER, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, MARKER, MELDEDATUM} + rowTBSUPPLY_VERFOLGUNGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBSUPPLY_VERFOLGUNGRow) + Return rowTBSUPPLY_VERFOLGUNGRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBSUPPLY_VERFOLGUNGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBSUPPLY_VERFOLGUNGRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBSUPPLY_VERFOLGUNGDataTable = CType(MyBase.Clone,TBSUPPLY_VERFOLGUNGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBSUPPLY_VERFOLGUNGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnGERAET_ID = MyBase.Columns("GERAET_ID") + Me.columnLEVEL = MyBase.Columns("LEVEL") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnMARKER = MyBase.Columns("MARKER") + Me.columnMELDEDATUM = MyBase.Columns("MELDEDATUM") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnGERAET_ID = New Global.System.Data.DataColumn("GERAET_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_ID) + Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnMARKER = New Global.System.Data.DataColumn("MARKER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKER) + Me.columnMELDEDATUM = New Global.System.Data.DataColumn("MELDEDATUM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMELDEDATUM) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnSERIENNR.MaxLength = 50 + Me.columnPARTNUMBER.MaxLength = 30 + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnMARKER.MaxLength = 250 + Me.columnMELDEDATUM.MaxLength = 10 + End Sub + + _ + Public Function NewTBSUPPLY_VERFOLGUNGRow() As TBSUPPLY_VERFOLGUNGRow + Return CType(Me.NewRow,TBSUPPLY_VERFOLGUNGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBSUPPLY_VERFOLGUNGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBSUPPLY_VERFOLGUNGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBSUPPLY_VERFOLGUNGRowChangedEvent) Is Nothing) Then + RaiseEvent TBSUPPLY_VERFOLGUNGRowChanged(Me, New TBSUPPLY_VERFOLGUNGRowChangeEvent(CType(e.Row,TBSUPPLY_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBSUPPLY_VERFOLGUNGRowChangingEvent) Is Nothing) Then + RaiseEvent TBSUPPLY_VERFOLGUNGRowChanging(Me, New TBSUPPLY_VERFOLGUNGRowChangeEvent(CType(e.Row,TBSUPPLY_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBSUPPLY_VERFOLGUNGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBSUPPLY_VERFOLGUNGRowDeleted(Me, New TBSUPPLY_VERFOLGUNGRowChangeEvent(CType(e.Row,TBSUPPLY_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBSUPPLY_VERFOLGUNGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBSUPPLY_VERFOLGUNGRowDeleting(Me, New TBSUPPLY_VERFOLGUNGRowChangeEvent(CType(e.Row,TBSUPPLY_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBSUPPLY_VERFOLGUNGRow(ByVal row As TBSUPPLY_VERFOLGUNGRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBSUPPLY_VERFOLGUNGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBKONFIGURATIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBKONFIGURATIONRow) + + Private columnSTATUS_OK As Global.System.Data.DataColumn + + Private columnSTATUS_BEST As Global.System.Data.DataColumn + + Private columnSTATUS_SD As Global.System.Data.DataColumn + + Private columnBEMERKUNG As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDEF_SW As Global.System.Data.DataColumn + + Private columnSTATUS_BESTELLT As Global.System.Data.DataColumn + + Private columnSTATUS_ERSETZT As Global.System.Data.DataColumn + + Private columnSTATUS_UNKLAR As Global.System.Data.DataColumn + + Private columnIMPORT_XML As Global.System.Data.DataColumn + + Private columnIMPORT_XMLARCHIV As Global.System.Data.DataColumn + + Private columnIMPORT_BESTELLUNGEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBKONFIGURATION" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property STATUS_OKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_OK + End Get + End Property + + _ + Public ReadOnly Property STATUS_BESTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_BEST + End Get + End Property + + _ + Public ReadOnly Property STATUS_SDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_SD + End Get + End Property + + _ + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEMERKUNG + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property DEF_SWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEF_SW + End Get + End Property + + _ + Public ReadOnly Property STATUS_BESTELLTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_BESTELLT + End Get + End Property + + _ + Public ReadOnly Property STATUS_ERSETZTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_ERSETZT + End Get + End Property + + _ + Public ReadOnly Property STATUS_UNKLARColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_UNKLAR + End Get + End Property + + _ + Public ReadOnly Property IMPORT_XMLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIMPORT_XML + End Get + End Property + + _ + Public ReadOnly Property IMPORT_XMLARCHIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIMPORT_XMLARCHIV + End Get + End Property + + _ + Public ReadOnly Property IMPORT_BESTELLUNGENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIMPORT_BESTELLUNGEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBKONFIGURATIONRow + Get + Return CType(Me.Rows(index),TBKONFIGURATIONRow) + End Get + End Property + + _ + Public Event TBKONFIGURATIONRowChanging As TBKONFIGURATIONRowChangeEventHandler + + _ + Public Event TBKONFIGURATIONRowChanged As TBKONFIGURATIONRowChangeEventHandler + + _ + Public Event TBKONFIGURATIONRowDeleting As TBKONFIGURATIONRowChangeEventHandler + + _ + Public Event TBKONFIGURATIONRowDeleted As TBKONFIGURATIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBKONFIGURATIONRow(ByVal row As TBKONFIGURATIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBKONFIGURATIONRow(ByVal STATUS_OK As Integer, ByVal STATUS_BEST As Integer, ByVal STATUS_SD As Integer, ByVal BEMERKUNG As String, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal GUID As Integer, ByVal DEF_SW As Integer, ByVal STATUS_BESTELLT As Integer, ByVal STATUS_ERSETZT As Integer, ByVal STATUS_UNKLAR As Integer, ByVal IMPORT_XML As String, ByVal IMPORT_XMLARCHIV As String, ByVal IMPORT_BESTELLUNGEN As String) As TBKONFIGURATIONRow + Dim rowTBKONFIGURATIONRow As TBKONFIGURATIONRow = CType(Me.NewRow,TBKONFIGURATIONRow) + Dim columnValuesArray() As Object = New Object() {STATUS_OK, STATUS_BEST, STATUS_SD, BEMERKUNG, GEAENDERTWER, GEAENDERTWANN, GUID, DEF_SW, STATUS_BESTELLT, STATUS_ERSETZT, STATUS_UNKLAR, IMPORT_XML, IMPORT_XMLARCHIV, IMPORT_BESTELLUNGEN} + rowTBKONFIGURATIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBKONFIGURATIONRow) + Return rowTBKONFIGURATIONRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBKONFIGURATIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBKONFIGURATIONRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBKONFIGURATIONDataTable = CType(MyBase.Clone,TBKONFIGURATIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBKONFIGURATIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSTATUS_OK = MyBase.Columns("STATUS_OK") + Me.columnSTATUS_BEST = MyBase.Columns("STATUS_BEST") + Me.columnSTATUS_SD = MyBase.Columns("STATUS_SD") + Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDEF_SW = MyBase.Columns("DEF_SW") + Me.columnSTATUS_BESTELLT = MyBase.Columns("STATUS_BESTELLT") + Me.columnSTATUS_ERSETZT = MyBase.Columns("STATUS_ERSETZT") + Me.columnSTATUS_UNKLAR = MyBase.Columns("STATUS_UNKLAR") + Me.columnIMPORT_XML = MyBase.Columns("IMPORT_XML") + Me.columnIMPORT_XMLARCHIV = MyBase.Columns("IMPORT_XMLARCHIV") + Me.columnIMPORT_BESTELLUNGEN = MyBase.Columns("IMPORT_BESTELLUNGEN") + End Sub + + _ + Private Sub InitClass() + Me.columnSTATUS_OK = New Global.System.Data.DataColumn("STATUS_OK", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_OK) + Me.columnSTATUS_BEST = New Global.System.Data.DataColumn("STATUS_BEST", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_BEST) + Me.columnSTATUS_SD = New Global.System.Data.DataColumn("STATUS_SD", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_SD) + Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEMERKUNG) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDEF_SW = New Global.System.Data.DataColumn("DEF_SW", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEF_SW) + Me.columnSTATUS_BESTELLT = New Global.System.Data.DataColumn("STATUS_BESTELLT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_BESTELLT) + Me.columnSTATUS_ERSETZT = New Global.System.Data.DataColumn("STATUS_ERSETZT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_ERSETZT) + Me.columnSTATUS_UNKLAR = New Global.System.Data.DataColumn("STATUS_UNKLAR", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_UNKLAR) + Me.columnIMPORT_XML = New Global.System.Data.DataColumn("IMPORT_XML", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIMPORT_XML) + Me.columnIMPORT_XMLARCHIV = New Global.System.Data.DataColumn("IMPORT_XMLARCHIV", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIMPORT_XMLARCHIV) + Me.columnIMPORT_BESTELLUNGEN = New Global.System.Data.DataColumn("IMPORT_BESTELLUNGEN", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIMPORT_BESTELLUNGEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnSTATUS_OK.AllowDBNull = false + Me.columnSTATUS_BEST.AllowDBNull = false + Me.columnSTATUS_SD.AllowDBNull = false + Me.columnBEMERKUNG.MaxLength = 250 + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnGEAENDERTWANN.AllowDBNull = false + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnDEF_SW.AllowDBNull = false + Me.columnSTATUS_BESTELLT.AllowDBNull = false + Me.columnSTATUS_ERSETZT.AllowDBNull = false + Me.columnSTATUS_UNKLAR.AllowDBNull = false + Me.columnIMPORT_XML.MaxLength = 1000 + Me.columnIMPORT_XMLARCHIV.MaxLength = 1000 + Me.columnIMPORT_BESTELLUNGEN.MaxLength = 1000 + End Sub + + _ + Public Function NewTBKONFIGURATIONRow() As TBKONFIGURATIONRow + Return CType(Me.NewRow,TBKONFIGURATIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBKONFIGURATIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBKONFIGURATIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBKONFIGURATIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBKONFIGURATIONRowChanged(Me, New TBKONFIGURATIONRowChangeEvent(CType(e.Row,TBKONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBKONFIGURATIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBKONFIGURATIONRowChanging(Me, New TBKONFIGURATIONRowChangeEvent(CType(e.Row,TBKONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBKONFIGURATIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBKONFIGURATIONRowDeleted(Me, New TBKONFIGURATIONRowChangeEvent(CType(e.Row,TBKONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBKONFIGURATIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBKONFIGURATIONRowDeleting(Me, New TBKONFIGURATIONRowChangeEvent(CType(e.Row,TBKONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBKONFIGURATIONRow(ByVal row As TBKONFIGURATIONRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBKONFIGURATIONDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBSTATUSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBSTATUSRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnBESCHREIBUNG As Global.System.Data.DataColumn + + Private columnBEMERKUNG As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnTIMESTAMP1 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBSTATUS" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESCHREIBUNG + End Get + End Property + + _ + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEMERKUNG + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property TIMESTAMP1Column() As Global.System.Data.DataColumn + Get + Return Me.columnTIMESTAMP1 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBSTATUSRow + Get + Return CType(Me.Rows(index),TBSTATUSRow) + End Get + End Property + + _ + Public Event TBSTATUSRowChanging As TBSTATUSRowChangeEventHandler + + _ + Public Event TBSTATUSRowChanged As TBSTATUSRowChangeEventHandler + + _ + Public Event TBSTATUSRowDeleting As TBSTATUSRowChangeEventHandler + + _ + Public Event TBSTATUSRowDeleted As TBSTATUSRowChangeEventHandler + + _ + Public Overloads Sub AddTBSTATUSRow(ByVal row As TBSTATUSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBSTATUSRow(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal BEMERKUNG As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal TIMESTAMP1() As Byte) As TBSTATUSRow + Dim rowTBSTATUSRow As TBSTATUSRow = CType(Me.NewRow,TBSTATUSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, BESCHREIBUNG, BEMERKUNG, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1} + rowTBSTATUSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBSTATUSRow) + Return rowTBSTATUSRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBSTATUSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBSTATUSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBSTATUSDataTable = CType(MyBase.Clone,TBSTATUSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBSTATUSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") + Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnTIMESTAMP1 = MyBase.Columns("TIMESTAMP1") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESCHREIBUNG) + Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEMERKUNG) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnTIMESTAMP1 = New Global.System.Data.DataColumn("TIMESTAMP1", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTIMESTAMP1) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + Me.columnBESCHREIBUNG.MaxLength = 100 + Me.columnBEMERKUNG.MaxLength = 250 + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnTIMESTAMP1.ReadOnly = true + End Sub + + _ + Public Function NewTBSTATUSRow() As TBSTATUSRow + Return CType(Me.NewRow,TBSTATUSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBSTATUSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBSTATUSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBSTATUSRowChangedEvent) Is Nothing) Then + RaiseEvent TBSTATUSRowChanged(Me, New TBSTATUSRowChangeEvent(CType(e.Row,TBSTATUSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBSTATUSRowChangingEvent) Is Nothing) Then + RaiseEvent TBSTATUSRowChanging(Me, New TBSTATUSRowChangeEvent(CType(e.Row,TBSTATUSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBSTATUSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBSTATUSRowDeleted(Me, New TBSTATUSRowChangeEvent(CType(e.Row,TBSTATUSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBSTATUSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBSTATUSRowDeleting(Me, New TBSTATUSRowChangeEvent(CType(e.Row,TBSTATUSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBSTATUSRow(ByVal row As TBSTATUSRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBSTATUSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_MARKTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_MARKTRow) + + Private columnMARKT As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_MARKT" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_MARKTRow + Get + Return CType(Me.Rows(index),TBWH_MARKTRow) + End Get + End Property + + _ + Public Event TBWH_MARKTRowChanging As TBWH_MARKTRowChangeEventHandler + + _ + Public Event TBWH_MARKTRowChanged As TBWH_MARKTRowChangeEventHandler + + _ + Public Event TBWH_MARKTRowDeleting As TBWH_MARKTRowChangeEventHandler + + _ + Public Event TBWH_MARKTRowDeleted As TBWH_MARKTRowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_MARKTRow(ByVal row As TBWH_MARKTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_MARKTRow(ByVal MARKT As String) As TBWH_MARKTRow + Dim rowTBWH_MARKTRow As TBWH_MARKTRow = CType(Me.NewRow,TBWH_MARKTRow) + Dim columnValuesArray() As Object = New Object() {MARKT} + rowTBWH_MARKTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_MARKTRow) + Return rowTBWH_MARKTRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_MARKTDataTable = CType(MyBase.Clone,TBWH_MARKTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_MARKTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnMARKT = MyBase.Columns("MARKT") + End Sub + + _ + Private Sub InitClass() + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnMARKT.MaxLength = 50 + End Sub + + _ + Public Function NewTBWH_MARKTRow() As TBWH_MARKTRow + Return CType(Me.NewRow,TBWH_MARKTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_MARKTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_MARKTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_MARKTRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_MARKTRowChanged(Me, New TBWH_MARKTRowChangeEvent(CType(e.Row,TBWH_MARKTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_MARKTRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_MARKTRowChanging(Me, New TBWH_MARKTRowChangeEvent(CType(e.Row,TBWH_MARKTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_MARKTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_MARKTRowDeleted(Me, New TBWH_MARKTRowChangeEvent(CType(e.Row,TBWH_MARKTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_MARKTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_MARKTRowDeleting(Me, New TBWH_MARKTRowChangeEvent(CType(e.Row,TBWH_MARKTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_MARKTRow(ByVal row As TBWH_MARKTRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_MARKTDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWSUPPLIES_AKTUELLDataTable + Inherits Global.System.Data.TypedTableBase(Of VWSUPPLIES_AKTUELLRow) + + Private columnSUPPLY_ID As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnDEVICE As Global.System.Data.DataColumn + + Private columnSUPPLY_BEZ As Global.System.Data.DataColumn + + Private columnLEVEL As Global.System.Data.DataColumn + + Private columnSCHWELLENWERT As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnSTATUS_ID As Global.System.Data.DataColumn + + Private columnSTATUS As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnGERAET_ID As Global.System.Data.DataColumn + + Private columnSTATUS_WANN As Global.System.Data.DataColumn + + Private columnSTATUS_WER As Global.System.Data.DataColumn + + Private columnON_HOLD As Global.System.Data.DataColumn + + Private columnOH_DATE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWSUPPLIES_AKTUELL" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_ID + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property DEVICEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEVICE + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_BEZColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_BEZ + End Get + End Property + + _ + Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL + End Get + End Property + + _ + Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCHWELLENWERT + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property STATUS_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_ID + End Get + End Property + + _ + Public ReadOnly Property STATUSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_ID + End Get + End Property + + _ + Public ReadOnly Property STATUS_WANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_WANN + End Get + End Property + + _ + Public ReadOnly Property STATUS_WERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_WER + End Get + End Property + + _ + Public ReadOnly Property ON_HOLDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnON_HOLD + End Get + End Property + + _ + Public ReadOnly Property OH_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOH_DATE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLIES_AKTUELLRow + Get + Return CType(Me.Rows(index),VWSUPPLIES_AKTUELLRow) + End Get + End Property + + _ + Public Event VWSUPPLIES_AKTUELLRowChanging As VWSUPPLIES_AKTUELLRowChangeEventHandler + + _ + Public Event VWSUPPLIES_AKTUELLRowChanged As VWSUPPLIES_AKTUELLRowChangeEventHandler + + _ + Public Event VWSUPPLIES_AKTUELLRowDeleting As VWSUPPLIES_AKTUELLRowChangeEventHandler + + _ + Public Event VWSUPPLIES_AKTUELLRowDeleted As VWSUPPLIES_AKTUELLRowChangeEventHandler + + _ + Public Overloads Sub AddVWSUPPLIES_AKTUELLRow(ByVal row As VWSUPPLIES_AKTUELLRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWSUPPLIES_AKTUELLRow( _ + ByVal SUPPLY_ID As Integer, _ + ByVal MARKT As String, _ + ByVal DEVICE As String, _ + ByVal SUPPLY_BEZ As String, _ + ByVal LEVEL As Integer, _ + ByVal SCHWELLENWERT As Integer, _ + ByVal PARTNUMBER As String, _ + ByVal SERIENNR As String, _ + ByVal STATUS_ID As Integer, _ + ByVal STATUS As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal GERAET_ID As Integer, _ + ByVal STATUS_WANN As Date, _ + ByVal STATUS_WER As String, _ + ByVal ON_HOLD As Boolean, _ + ByVal OH_DATE As Date) As VWSUPPLIES_AKTUELLRow + Dim rowVWSUPPLIES_AKTUELLRow As VWSUPPLIES_AKTUELLRow = CType(Me.NewRow,VWSUPPLIES_AKTUELLRow) + Dim columnValuesArray() As Object = New Object() {SUPPLY_ID, MARKT, DEVICE, SUPPLY_BEZ, LEVEL, SCHWELLENWERT, PARTNUMBER, SERIENNR, STATUS_ID, STATUS, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, GERAET_ID, STATUS_WANN, STATUS_WER, ON_HOLD, OH_DATE} + rowVWSUPPLIES_AKTUELLRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWSUPPLIES_AKTUELLRow) + Return rowVWSUPPLIES_AKTUELLRow + End Function + + _ + Public Function FindBySUPPLY_ID(ByVal SUPPLY_ID As Integer) As VWSUPPLIES_AKTUELLRow + Return CType(Me.Rows.Find(New Object() {SUPPLY_ID}),VWSUPPLIES_AKTUELLRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWSUPPLIES_AKTUELLDataTable = CType(MyBase.Clone,VWSUPPLIES_AKTUELLDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWSUPPLIES_AKTUELLDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSUPPLY_ID = MyBase.Columns("SUPPLY_ID") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnDEVICE = MyBase.Columns("DEVICE") + Me.columnSUPPLY_BEZ = MyBase.Columns("SUPPLY_BEZ") + Me.columnLEVEL = MyBase.Columns("LEVEL") + Me.columnSCHWELLENWERT = MyBase.Columns("SCHWELLENWERT") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnSTATUS_ID = MyBase.Columns("STATUS_ID") + Me.columnSTATUS = MyBase.Columns("STATUS") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnGERAET_ID = MyBase.Columns("GERAET_ID") + Me.columnSTATUS_WANN = MyBase.Columns("STATUS_WANN") + Me.columnSTATUS_WER = MyBase.Columns("STATUS_WER") + Me.columnON_HOLD = MyBase.Columns("ON_HOLD") + Me.columnOH_DATE = MyBase.Columns("OH_DATE") + End Sub + + _ + Private Sub InitClass() + Me.columnSUPPLY_ID = New Global.System.Data.DataColumn("SUPPLY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_ID) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnDEVICE = New Global.System.Data.DataColumn("DEVICE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEVICE) + Me.columnSUPPLY_BEZ = New Global.System.Data.DataColumn("SUPPLY_BEZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_BEZ) + Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL) + Me.columnSCHWELLENWERT = New Global.System.Data.DataColumn("SCHWELLENWERT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCHWELLENWERT) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnSTATUS_ID = New Global.System.Data.DataColumn("STATUS_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_ID) + Me.columnSTATUS = New Global.System.Data.DataColumn("STATUS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnGERAET_ID = New Global.System.Data.DataColumn("GERAET_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_ID) + Me.columnSTATUS_WANN = New Global.System.Data.DataColumn("STATUS_WANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_WANN) + Me.columnSTATUS_WER = New Global.System.Data.DataColumn("STATUS_WER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_WER) + Me.columnON_HOLD = New Global.System.Data.DataColumn("ON_HOLD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnON_HOLD) + Me.columnOH_DATE = New Global.System.Data.DataColumn("OH_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOH_DATE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSUPPLY_ID}, true)) + Me.columnSUPPLY_ID.AllowDBNull = false + Me.columnSUPPLY_ID.Unique = true + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnDEVICE.MaxLength = 100 + Me.columnSUPPLY_BEZ.AllowDBNull = false + Me.columnSUPPLY_BEZ.MaxLength = 100 + Me.columnLEVEL.AllowDBNull = false + Me.columnSCHWELLENWERT.AllowDBNull = false + Me.columnPARTNUMBER.MaxLength = 30 + Me.columnSERIENNR.MaxLength = 30 + Me.columnSTATUS_ID.AllowDBNull = false + Me.columnSTATUS.AllowDBNull = false + Me.columnSTATUS.MaxLength = 50 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnGEAENDERTWANN.AllowDBNull = false + Me.columnGERAET_ID.AllowDBNull = false + Me.columnSTATUS_WER.MaxLength = 30 + Me.columnON_HOLD.AllowDBNull = false + End Sub + + _ + Public Function NewVWSUPPLIES_AKTUELLRow() As VWSUPPLIES_AKTUELLRow + Return CType(Me.NewRow,VWSUPPLIES_AKTUELLRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWSUPPLIES_AKTUELLRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWSUPPLIES_AKTUELLRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWSUPPLIES_AKTUELLRowChangedEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_AKTUELLRowChanged(Me, New VWSUPPLIES_AKTUELLRowChangeEvent(CType(e.Row,VWSUPPLIES_AKTUELLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWSUPPLIES_AKTUELLRowChangingEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_AKTUELLRowChanging(Me, New VWSUPPLIES_AKTUELLRowChangeEvent(CType(e.Row,VWSUPPLIES_AKTUELLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWSUPPLIES_AKTUELLRowDeletedEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_AKTUELLRowDeleted(Me, New VWSUPPLIES_AKTUELLRowChangeEvent(CType(e.Row,VWSUPPLIES_AKTUELLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWSUPPLIES_AKTUELLRowDeletingEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_AKTUELLRowDeleting(Me, New VWSUPPLIES_AKTUELLRowChangeEvent(CType(e.Row,VWSUPPLIES_AKTUELLRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWSUPPLIES_AKTUELLRow(ByVal row As VWSUPPLIES_AKTUELLRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWSUPPLIES_AKTUELLDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWGERAET_ORDERDataTable + Inherits Global.System.Data.TypedTableBase(Of VWGERAET_ORDERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnGERAET_BEZ As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnPAGE_COUNT As Global.System.Data.DataColumn + + Private columnPPM As Global.System.Data.DataColumn + + Private columnBESTELLUNG As Global.System.Data.DataColumn + + Private columnMANDANT_ID As Global.System.Data.DataColumn + + Private columnMANDANT As Global.System.Data.DataColumn + + Private columnMANUALLY As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWGERAET_ORDER" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property GERAET_BEZColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_BEZ + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property PAGE_COUNTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPAGE_COUNT + End Get + End Property + + _ + Public ReadOnly Property PPMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPPM + End Get + End Property + + _ + Public ReadOnly Property BESTELLUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELLUNG + End Get + End Property + + _ + Public ReadOnly Property MANDANT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANDANT_ID + End Get + End Property + + _ + Public ReadOnly Property MANDANTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANDANT + End Get + End Property + + _ + Public ReadOnly Property MANUALLYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANUALLY + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWGERAET_ORDERRow + Get + Return CType(Me.Rows(index),VWGERAET_ORDERRow) + End Get + End Property + + _ + Public Event VWGERAET_ORDERRowChanging As VWGERAET_ORDERRowChangeEventHandler + + _ + Public Event VWGERAET_ORDERRowChanged As VWGERAET_ORDERRowChangeEventHandler + + _ + Public Event VWGERAET_ORDERRowDeleting As VWGERAET_ORDERRowChangeEventHandler + + _ + Public Event VWGERAET_ORDERRowDeleted As VWGERAET_ORDERRowChangeEventHandler + + _ + Public Overloads Sub AddVWGERAET_ORDERRow(ByVal row As VWGERAET_ORDERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWGERAET_ORDERRow(ByVal GUID As Integer, ByVal GERAET_BEZ As String, ByVal SERIENNR As String, ByVal MARKT As String, ByVal PAGE_COUNT As Integer, ByVal PPM As Integer, ByVal BESTELLUNG As Boolean, ByVal MANDANT_ID As Integer, ByVal MANDANT As String, ByVal MANUALLY As Boolean) As VWGERAET_ORDERRow + Dim rowVWGERAET_ORDERRow As VWGERAET_ORDERRow = CType(Me.NewRow,VWGERAET_ORDERRow) + Dim columnValuesArray() As Object = New Object() {GUID, GERAET_BEZ, SERIENNR, MARKT, PAGE_COUNT, PPM, BESTELLUNG, MANDANT_ID, MANDANT, MANUALLY} + rowVWGERAET_ORDERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWGERAET_ORDERRow) + Return rowVWGERAET_ORDERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWGERAET_ORDERRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWGERAET_ORDERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWGERAET_ORDERDataTable = CType(MyBase.Clone,VWGERAET_ORDERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWGERAET_ORDERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnGERAET_BEZ = MyBase.Columns("GERAET_BEZ") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnPAGE_COUNT = MyBase.Columns("PAGE_COUNT") + Me.columnPPM = MyBase.Columns("PPM") + Me.columnBESTELLUNG = MyBase.Columns("BESTELLUNG") + Me.columnMANDANT_ID = MyBase.Columns("MANDANT_ID") + Me.columnMANDANT = MyBase.Columns("MANDANT") + Me.columnMANUALLY = MyBase.Columns("MANUALLY") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnGERAET_BEZ = New Global.System.Data.DataColumn("GERAET_BEZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_BEZ) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnPAGE_COUNT = New Global.System.Data.DataColumn("PAGE_COUNT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPAGE_COUNT) + Me.columnPPM = New Global.System.Data.DataColumn("PPM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPPM) + Me.columnBESTELLUNG = New Global.System.Data.DataColumn("BESTELLUNG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELLUNG) + Me.columnMANDANT_ID = New Global.System.Data.DataColumn("MANDANT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANDANT_ID) + Me.columnMANDANT = New Global.System.Data.DataColumn("MANDANT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANDANT) + Me.columnMANUALLY = New Global.System.Data.DataColumn("MANUALLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANUALLY) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnGERAET_BEZ.MaxLength = 100 + Me.columnSERIENNR.AllowDBNull = false + Me.columnSERIENNR.MaxLength = 50 + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnBESTELLUNG.AllowDBNull = false + Me.columnBESTELLUNG.DefaultValue = CType(false,Boolean) + Me.columnMANDANT_ID.AllowDBNull = false + Me.columnMANDANT.AllowDBNull = false + Me.columnMANDANT.MaxLength = 100 + Me.columnMANUALLY.ReadOnly = true + End Sub + + _ + Public Function NewVWGERAET_ORDERRow() As VWGERAET_ORDERRow + Return CType(Me.NewRow,VWGERAET_ORDERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWGERAET_ORDERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWGERAET_ORDERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWGERAET_ORDERRowChangedEvent) Is Nothing) Then + RaiseEvent VWGERAET_ORDERRowChanged(Me, New VWGERAET_ORDERRowChangeEvent(CType(e.Row,VWGERAET_ORDERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWGERAET_ORDERRowChangingEvent) Is Nothing) Then + RaiseEvent VWGERAET_ORDERRowChanging(Me, New VWGERAET_ORDERRowChangeEvent(CType(e.Row,VWGERAET_ORDERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWGERAET_ORDERRowDeletedEvent) Is Nothing) Then + RaiseEvent VWGERAET_ORDERRowDeleted(Me, New VWGERAET_ORDERRowChangeEvent(CType(e.Row,VWGERAET_ORDERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWGERAET_ORDERRowDeletingEvent) Is Nothing) Then + RaiseEvent VWGERAET_ORDERRowDeleting(Me, New VWGERAET_ORDERRowChangeEvent(CType(e.Row,VWGERAET_ORDERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWGERAET_ORDERRow(ByVal row As VWGERAET_ORDERRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWGERAET_ORDERDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWSUPPLIES_TO_ORDERDataTable + Inherits Global.System.Data.TypedTableBase(Of VWSUPPLIES_TO_ORDERRow) + + Private columnSUPPLY_ID As Global.System.Data.DataColumn + + Private columnGERAET_ID As Global.System.Data.DataColumn + + Private columnSUPPLY_BEZ As Global.System.Data.DataColumn + + Private columnLEVEL As Global.System.Data.DataColumn + + Private columnSCHWELLENWERT As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnSTATUS_ID As Global.System.Data.DataColumn + + Private columnSTATUS As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnSTATUS_WANN As Global.System.Data.DataColumn + + Private columnSTATUS_WER As Global.System.Data.DataColumn + + Private columnMANUELL As Global.System.Data.DataColumn + + Private columnMANDANT As Global.System.Data.DataColumn + + Private columnFW As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWSUPPLIES_TO_ORDER" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_ID + End Get + End Property + + _ + Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_ID + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_BEZColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_BEZ + End Get + End Property + + _ + Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL + End Get + End Property + + _ + Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCHWELLENWERT + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property STATUS_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_ID + End Get + End Property + + _ + Public ReadOnly Property STATUSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property STATUS_WANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_WANN + End Get + End Property + + _ + Public ReadOnly Property STATUS_WERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_WER + End Get + End Property + + _ + Public ReadOnly Property MANUELLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANUELL + End Get + End Property + + _ + Public ReadOnly Property MANDANTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANDANT + End Get + End Property + + _ + Public ReadOnly Property FWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFW + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLIES_TO_ORDERRow + Get + Return CType(Me.Rows(index),VWSUPPLIES_TO_ORDERRow) + End Get + End Property + + _ + Public Event VWSUPPLIES_TO_ORDERRowChanging As VWSUPPLIES_TO_ORDERRowChangeEventHandler + + _ + Public Event VWSUPPLIES_TO_ORDERRowChanged As VWSUPPLIES_TO_ORDERRowChangeEventHandler + + _ + Public Event VWSUPPLIES_TO_ORDERRowDeleting As VWSUPPLIES_TO_ORDERRowChangeEventHandler + + _ + Public Event VWSUPPLIES_TO_ORDERRowDeleted As VWSUPPLIES_TO_ORDERRowChangeEventHandler + + _ + Public Overloads Sub AddVWSUPPLIES_TO_ORDERRow(ByVal row As VWSUPPLIES_TO_ORDERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWSUPPLIES_TO_ORDERRow( _ + ByVal SUPPLY_ID As Integer, _ + ByVal parentVWGERAET_ORDERRowByVWGERAET_ORDER_VWSUPPLIES_TO_ORDER As VWGERAET_ORDERRow, _ + ByVal SUPPLY_BEZ As String, _ + ByVal LEVEL As Integer, _ + ByVal SCHWELLENWERT As Integer, _ + ByVal PARTNUMBER As String, _ + ByVal SERIENNR As String, _ + ByVal STATUS_ID As Integer, _ + ByVal STATUS As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal STATUS_WANN As Date, _ + ByVal STATUS_WER As String, _ + ByVal MANUELL As Boolean, _ + ByVal MANDANT As String, _ + ByVal FW As Boolean) As VWSUPPLIES_TO_ORDERRow + Dim rowVWSUPPLIES_TO_ORDERRow As VWSUPPLIES_TO_ORDERRow = CType(Me.NewRow,VWSUPPLIES_TO_ORDERRow) + Dim columnValuesArray() As Object = New Object() {SUPPLY_ID, Nothing, SUPPLY_BEZ, LEVEL, SCHWELLENWERT, PARTNUMBER, SERIENNR, STATUS_ID, STATUS, ERFASSTWANN, GEAENDERTWER, STATUS_WANN, STATUS_WER, MANUELL, MANDANT, FW} + If (Not (parentVWGERAET_ORDERRowByVWGERAET_ORDER_VWSUPPLIES_TO_ORDER) Is Nothing) Then + columnValuesArray(1) = parentVWGERAET_ORDERRowByVWGERAET_ORDER_VWSUPPLIES_TO_ORDER(0) + End If + rowVWSUPPLIES_TO_ORDERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWSUPPLIES_TO_ORDERRow) + Return rowVWSUPPLIES_TO_ORDERRow + End Function + + _ + Public Function FindBySUPPLY_ID(ByVal SUPPLY_ID As Integer) As VWSUPPLIES_TO_ORDERRow + Return CType(Me.Rows.Find(New Object() {SUPPLY_ID}),VWSUPPLIES_TO_ORDERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWSUPPLIES_TO_ORDERDataTable = CType(MyBase.Clone,VWSUPPLIES_TO_ORDERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWSUPPLIES_TO_ORDERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSUPPLY_ID = MyBase.Columns("SUPPLY_ID") + Me.columnGERAET_ID = MyBase.Columns("GERAET_ID") + Me.columnSUPPLY_BEZ = MyBase.Columns("SUPPLY_BEZ") + Me.columnLEVEL = MyBase.Columns("LEVEL") + Me.columnSCHWELLENWERT = MyBase.Columns("SCHWELLENWERT") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnSTATUS_ID = MyBase.Columns("STATUS_ID") + Me.columnSTATUS = MyBase.Columns("STATUS") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnSTATUS_WANN = MyBase.Columns("STATUS_WANN") + Me.columnSTATUS_WER = MyBase.Columns("STATUS_WER") + Me.columnMANUELL = MyBase.Columns("MANUELL") + Me.columnMANDANT = MyBase.Columns("MANDANT") + Me.columnFW = MyBase.Columns("FW") + End Sub + + _ + Private Sub InitClass() + Me.columnSUPPLY_ID = New Global.System.Data.DataColumn("SUPPLY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_ID) + Me.columnGERAET_ID = New Global.System.Data.DataColumn("GERAET_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_ID) + Me.columnSUPPLY_BEZ = New Global.System.Data.DataColumn("SUPPLY_BEZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_BEZ) + Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL) + Me.columnSCHWELLENWERT = New Global.System.Data.DataColumn("SCHWELLENWERT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCHWELLENWERT) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnSTATUS_ID = New Global.System.Data.DataColumn("STATUS_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_ID) + Me.columnSTATUS = New Global.System.Data.DataColumn("STATUS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnSTATUS_WANN = New Global.System.Data.DataColumn("STATUS_WANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_WANN) + Me.columnSTATUS_WER = New Global.System.Data.DataColumn("STATUS_WER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_WER) + Me.columnMANUELL = New Global.System.Data.DataColumn("MANUELL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANUELL) + Me.columnMANDANT = New Global.System.Data.DataColumn("MANDANT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANDANT) + Me.columnFW = New Global.System.Data.DataColumn("FW", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFW) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSUPPLY_ID}, true)) + Me.columnSUPPLY_ID.AllowDBNull = false + Me.columnSUPPLY_ID.Unique = true + Me.columnGERAET_ID.AllowDBNull = false + Me.columnSUPPLY_BEZ.AllowDBNull = false + Me.columnSUPPLY_BEZ.MaxLength = 100 + Me.columnLEVEL.AllowDBNull = false + Me.columnSCHWELLENWERT.AllowDBNull = false + Me.columnPARTNUMBER.MaxLength = 30 + Me.columnSERIENNR.MaxLength = 30 + Me.columnSTATUS_ID.AllowDBNull = false + Me.columnSTATUS.AllowDBNull = false + Me.columnSTATUS.MaxLength = 50 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnSTATUS_WER.MaxLength = 30 + Me.columnMANUELL.AllowDBNull = false + Me.columnMANDANT.AllowDBNull = false + Me.columnMANDANT.MaxLength = 100 + Me.columnFW.ReadOnly = true + End Sub + + _ + Public Function NewVWSUPPLIES_TO_ORDERRow() As VWSUPPLIES_TO_ORDERRow + Return CType(Me.NewRow,VWSUPPLIES_TO_ORDERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWSUPPLIES_TO_ORDERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWSUPPLIES_TO_ORDERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWSUPPLIES_TO_ORDERRowChangedEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_TO_ORDERRowChanged(Me, New VWSUPPLIES_TO_ORDERRowChangeEvent(CType(e.Row,VWSUPPLIES_TO_ORDERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWSUPPLIES_TO_ORDERRowChangingEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_TO_ORDERRowChanging(Me, New VWSUPPLIES_TO_ORDERRowChangeEvent(CType(e.Row,VWSUPPLIES_TO_ORDERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWSUPPLIES_TO_ORDERRowDeletedEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_TO_ORDERRowDeleted(Me, New VWSUPPLIES_TO_ORDERRowChangeEvent(CType(e.Row,VWSUPPLIES_TO_ORDERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWSUPPLIES_TO_ORDERRowDeletingEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_TO_ORDERRowDeleting(Me, New VWSUPPLIES_TO_ORDERRowChangeEvent(CType(e.Row,VWSUPPLIES_TO_ORDERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWSUPPLIES_TO_ORDERRow(ByVal row As VWSUPPLIES_TO_ORDERRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWSUPPLIES_TO_ORDERDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBSUPPLIESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBSUPPLIESRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnGERAET_ID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnLEVEL As Global.System.Data.DataColumn + + Private columnSCHWELLENWERT As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnSTATUS_ID As Global.System.Data.DataColumn + + Private columnSTATUS_WANN As Global.System.Data.DataColumn + + Private columnSTATUS_WER As Global.System.Data.DataColumn + + Private columnBEMERKUNG As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnTIMESTAMP1 As Global.System.Data.DataColumn + + Private columnMARKER As Global.System.Data.DataColumn + + Private columnSUPPLY_DEF_ID As Global.System.Data.DataColumn + + Private columnON_HOLD As Global.System.Data.DataColumn + + Private columnOH_DATE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBSUPPLIES" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_ID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL + End Get + End Property + + _ + Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCHWELLENWERT + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property STATUS_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_ID + End Get + End Property + + _ + Public ReadOnly Property STATUS_WANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_WANN + End Get + End Property + + _ + Public ReadOnly Property STATUS_WERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_WER + End Get + End Property + + _ + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEMERKUNG + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property TIMESTAMP1Column() As Global.System.Data.DataColumn + Get + Return Me.columnTIMESTAMP1 + End Get + End Property + + _ + Public ReadOnly Property MARKERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKER + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_DEF_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_DEF_ID + End Get + End Property + + _ + Public ReadOnly Property ON_HOLDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnON_HOLD + End Get + End Property + + _ + Public ReadOnly Property OH_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOH_DATE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBSUPPLIESRow + Get + Return CType(Me.Rows(index),TBSUPPLIESRow) + End Get + End Property + + _ + Public Event TBSUPPLIESRowChanging As TBSUPPLIESRowChangeEventHandler + + _ + Public Event TBSUPPLIESRowChanged As TBSUPPLIESRowChangeEventHandler + + _ + Public Event TBSUPPLIESRowDeleting As TBSUPPLIESRowChangeEventHandler + + _ + Public Event TBSUPPLIESRowDeleted As TBSUPPLIESRowChangeEventHandler + + _ + Public Overloads Sub AddTBSUPPLIESRow(ByVal row As TBSUPPLIESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBSUPPLIESRow( _ + ByVal GERAET_ID As Integer, _ + ByVal BEZEICHNUNG As String, _ + ByVal LEVEL As Integer, _ + ByVal SCHWELLENWERT As Integer, _ + ByVal PARTNUMBER As String, _ + ByVal SERIENNR As String, _ + ByVal parentTBWH_STATUS1RowByFK_TBSUPPLIES_STATUS_ID As TBWH_STATUS1Row, _ + ByVal STATUS_WANN As Date, _ + ByVal STATUS_WER As String, _ + ByVal BEMERKUNG As String, _ + ByVal ERFASSTWER As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal TIMESTAMP1() As Byte, _ + ByVal MARKER As String, _ + ByVal parentTBSUPPLY_DEFINITIONRowByFK_TBSUPPLYDEFINITION As TBSUPPLY_DEFINITIONRow, _ + ByVal ON_HOLD As Boolean, _ + ByVal OH_DATE As Date) As TBSUPPLIESRow + Dim rowTBSUPPLIESRow As TBSUPPLIESRow = CType(Me.NewRow,TBSUPPLIESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, GERAET_ID, BEZEICHNUNG, LEVEL, SCHWELLENWERT, PARTNUMBER, SERIENNR, Nothing, STATUS_WANN, STATUS_WER, BEMERKUNG, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1, MARKER, Nothing, ON_HOLD, OH_DATE} + If (Not (parentTBWH_STATUS1RowByFK_TBSUPPLIES_STATUS_ID) Is Nothing) Then + columnValuesArray(7) = parentTBWH_STATUS1RowByFK_TBSUPPLIES_STATUS_ID(0) + End If + If (Not (parentTBSUPPLY_DEFINITIONRowByFK_TBSUPPLYDEFINITION) Is Nothing) Then + columnValuesArray(17) = parentTBSUPPLY_DEFINITIONRowByFK_TBSUPPLYDEFINITION(0) + End If + rowTBSUPPLIESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBSUPPLIESRow) + Return rowTBSUPPLIESRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBSUPPLIESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBSUPPLIESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBSUPPLIESDataTable = CType(MyBase.Clone,TBSUPPLIESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBSUPPLIESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnGERAET_ID = MyBase.Columns("GERAET_ID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnLEVEL = MyBase.Columns("LEVEL") + Me.columnSCHWELLENWERT = MyBase.Columns("SCHWELLENWERT") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnSTATUS_ID = MyBase.Columns("STATUS_ID") + Me.columnSTATUS_WANN = MyBase.Columns("STATUS_WANN") + Me.columnSTATUS_WER = MyBase.Columns("STATUS_WER") + Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnTIMESTAMP1 = MyBase.Columns("TIMESTAMP1") + Me.columnMARKER = MyBase.Columns("MARKER") + Me.columnSUPPLY_DEF_ID = MyBase.Columns("SUPPLY_DEF_ID") + Me.columnON_HOLD = MyBase.Columns("ON_HOLD") + Me.columnOH_DATE = MyBase.Columns("OH_DATE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnGERAET_ID = New Global.System.Data.DataColumn("GERAET_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_ID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL) + Me.columnSCHWELLENWERT = New Global.System.Data.DataColumn("SCHWELLENWERT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCHWELLENWERT) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnSTATUS_ID = New Global.System.Data.DataColumn("STATUS_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_ID) + Me.columnSTATUS_WANN = New Global.System.Data.DataColumn("STATUS_WANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_WANN) + Me.columnSTATUS_WER = New Global.System.Data.DataColumn("STATUS_WER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_WER) + Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEMERKUNG) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnTIMESTAMP1 = New Global.System.Data.DataColumn("TIMESTAMP1", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTIMESTAMP1) + Me.columnMARKER = New Global.System.Data.DataColumn("MARKER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKER) + Me.columnSUPPLY_DEF_ID = New Global.System.Data.DataColumn("SUPPLY_DEF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_DEF_ID) + Me.columnON_HOLD = New Global.System.Data.DataColumn("ON_HOLD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnON_HOLD) + Me.columnOH_DATE = New Global.System.Data.DataColumn("OH_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOH_DATE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnGERAET_ID.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnLEVEL.AllowDBNull = false + Me.columnSCHWELLENWERT.AllowDBNull = false + Me.columnPARTNUMBER.MaxLength = 30 + Me.columnSERIENNR.MaxLength = 30 + Me.columnSTATUS_ID.AllowDBNull = false + Me.columnSTATUS_WER.MaxLength = 30 + Me.columnBEMERKUNG.MaxLength = 250 + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnGEAENDERTWANN.AllowDBNull = false + Me.columnTIMESTAMP1.ReadOnly = true + Me.columnMARKER.MaxLength = 250 + Me.columnSUPPLY_DEF_ID.AllowDBNull = false + Me.columnON_HOLD.AllowDBNull = false + End Sub + + _ + Public Function NewTBSUPPLIESRow() As TBSUPPLIESRow + Return CType(Me.NewRow,TBSUPPLIESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBSUPPLIESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBSUPPLIESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBSUPPLIESRowChangedEvent) Is Nothing) Then + RaiseEvent TBSUPPLIESRowChanged(Me, New TBSUPPLIESRowChangeEvent(CType(e.Row,TBSUPPLIESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBSUPPLIESRowChangingEvent) Is Nothing) Then + RaiseEvent TBSUPPLIESRowChanging(Me, New TBSUPPLIESRowChangeEvent(CType(e.Row,TBSUPPLIESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBSUPPLIESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBSUPPLIESRowDeleted(Me, New TBSUPPLIESRowChangeEvent(CType(e.Row,TBSUPPLIESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBSUPPLIESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBSUPPLIESRowDeleting(Me, New TBSUPPLIESRowChangeEvent(CType(e.Row,TBSUPPLIESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBSUPPLIESRow(ByVal row As TBSUPPLIESRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBSUPPLIESDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_STATUS4DataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_STATUS4Row) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_STATUS4" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_STATUS4Row + Get + Return CType(Me.Rows(index),TBWH_STATUS4Row) + End Get + End Property + + _ + Public Event TBWH_STATUS4RowChanging As TBWH_STATUS4RowChangeEventHandler + + _ + Public Event TBWH_STATUS4RowChanged As TBWH_STATUS4RowChangeEventHandler + + _ + Public Event TBWH_STATUS4RowDeleting As TBWH_STATUS4RowChangeEventHandler + + _ + Public Event TBWH_STATUS4RowDeleted As TBWH_STATUS4RowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_STATUS4Row(ByVal row As TBWH_STATUS4Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_STATUS4Row(ByVal BEZEICHNUNG As String) As TBWH_STATUS4Row + Dim rowTBWH_STATUS4Row As TBWH_STATUS4Row = CType(Me.NewRow,TBWH_STATUS4Row) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} + rowTBWH_STATUS4Row.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_STATUS4Row) + Return rowTBWH_STATUS4Row + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBWH_STATUS4Row + Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_STATUS4Row) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_STATUS4DataTable = CType(MyBase.Clone,TBWH_STATUS4DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_STATUS4DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + End Sub + + _ + Public Function NewTBWH_STATUS4Row() As TBWH_STATUS4Row + Return CType(Me.NewRow,TBWH_STATUS4Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_STATUS4Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_STATUS4Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_STATUS4RowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS4RowChanged(Me, New TBWH_STATUS4RowChangeEvent(CType(e.Row,TBWH_STATUS4Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_STATUS4RowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS4RowChanging(Me, New TBWH_STATUS4RowChangeEvent(CType(e.Row,TBWH_STATUS4Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_STATUS4RowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS4RowDeleted(Me, New TBWH_STATUS4RowChangeEvent(CType(e.Row,TBWH_STATUS4Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_STATUS4RowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS4RowDeleting(Me, New TBWH_STATUS4RowChangeEvent(CType(e.Row,TBWH_STATUS4Row), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_STATUS4Row(ByVal row As TBWH_STATUS4Row) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_STATUS4DataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_STATUS5DataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_STATUS5Row) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_STATUS5" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_STATUS5Row + Get + Return CType(Me.Rows(index),TBWH_STATUS5Row) + End Get + End Property + + _ + Public Event TBWH_STATUS5RowChanging As TBWH_STATUS5RowChangeEventHandler + + _ + Public Event TBWH_STATUS5RowChanged As TBWH_STATUS5RowChangeEventHandler + + _ + Public Event TBWH_STATUS5RowDeleting As TBWH_STATUS5RowChangeEventHandler + + _ + Public Event TBWH_STATUS5RowDeleted As TBWH_STATUS5RowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_STATUS5Row(ByVal row As TBWH_STATUS5Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_STATUS5Row(ByVal BEZEICHNUNG As String) As TBWH_STATUS5Row + Dim rowTBWH_STATUS5Row As TBWH_STATUS5Row = CType(Me.NewRow,TBWH_STATUS5Row) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} + rowTBWH_STATUS5Row.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_STATUS5Row) + Return rowTBWH_STATUS5Row + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBWH_STATUS5Row + Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_STATUS5Row) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_STATUS5DataTable = CType(MyBase.Clone,TBWH_STATUS5DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_STATUS5DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + End Sub + + _ + Public Function NewTBWH_STATUS5Row() As TBWH_STATUS5Row + Return CType(Me.NewRow,TBWH_STATUS5Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_STATUS5Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_STATUS5Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_STATUS5RowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS5RowChanged(Me, New TBWH_STATUS5RowChangeEvent(CType(e.Row,TBWH_STATUS5Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_STATUS5RowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS5RowChanging(Me, New TBWH_STATUS5RowChangeEvent(CType(e.Row,TBWH_STATUS5Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_STATUS5RowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS5RowDeleted(Me, New TBWH_STATUS5RowChangeEvent(CType(e.Row,TBWH_STATUS5Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_STATUS5RowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_STATUS5RowDeleting(Me, New TBWH_STATUS5RowChangeEvent(CType(e.Row,TBWH_STATUS5Row), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_STATUS5Row(ByVal row As TBWH_STATUS5Row) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_STATUS5DataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBSUPPLY_BESTELLUNGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBSUPPLY_BESTELLUNGRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnSUPPLY_BEZEICHNUNG As Global.System.Data.DataColumn + + Private columnMENGE As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnMANUELL As Global.System.Data.DataColumn + + Private columnBESTELLT_WER As Global.System.Data.DataColumn + + Private columnBESTELLT_WANN As Global.System.Data.DataColumn + + Private columnGERAET As Global.System.Data.DataColumn + + Private columnSERIEN_NR As Global.System.Data.DataColumn + + Private columnBESTELLNR As Global.System.Data.DataColumn + + Private columnGERAET_ID As Global.System.Data.DataColumn + + Private columnSUPPLY_ID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBSUPPLY_BESTELLUNG" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_BEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property MENGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMENGE + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property MANUELLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANUELL + End Get + End Property + + _ + Public ReadOnly Property BESTELLT_WERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELLT_WER + End Get + End Property + + _ + Public ReadOnly Property BESTELLT_WANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELLT_WANN + End Get + End Property + + _ + Public ReadOnly Property GERAETColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET + End Get + End Property + + _ + Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIEN_NR + End Get + End Property + + _ + Public ReadOnly Property BESTELLNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELLNR + End Get + End Property + + _ + Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_ID + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_ID + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBSUPPLY_BESTELLUNGRow + Get + Return CType(Me.Rows(index),TBSUPPLY_BESTELLUNGRow) + End Get + End Property + + _ + Public Event TBSUPPLY_BESTELLUNGRowChanging As TBSUPPLY_BESTELLUNGRowChangeEventHandler + + _ + Public Event TBSUPPLY_BESTELLUNGRowChanged As TBSUPPLY_BESTELLUNGRowChangeEventHandler + + _ + Public Event TBSUPPLY_BESTELLUNGRowDeleting As TBSUPPLY_BESTELLUNGRowChangeEventHandler + + _ + Public Event TBSUPPLY_BESTELLUNGRowDeleted As TBSUPPLY_BESTELLUNGRowChangeEventHandler + + _ + Public Overloads Sub AddTBSUPPLY_BESTELLUNGRow(ByVal row As TBSUPPLY_BESTELLUNGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBSUPPLY_BESTELLUNGRow(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Date, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal GERAET_ID As Integer, ByVal SUPPLY_ID As Integer) As TBSUPPLY_BESTELLUNGRow + Dim rowTBSUPPLY_BESTELLUNGRow As TBSUPPLY_BESTELLUNGRow = CType(Me.NewRow,TBSUPPLY_BESTELLUNGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, GERAET_ID, SUPPLY_ID} + rowTBSUPPLY_BESTELLUNGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBSUPPLY_BESTELLUNGRow) + Return rowTBSUPPLY_BESTELLUNGRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBSUPPLY_BESTELLUNGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBSUPPLY_BESTELLUNGRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBSUPPLY_BESTELLUNGDataTable = CType(MyBase.Clone,TBSUPPLY_BESTELLUNGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBSUPPLY_BESTELLUNGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnSUPPLY_BEZEICHNUNG = MyBase.Columns("SUPPLY_BEZEICHNUNG") + Me.columnMENGE = MyBase.Columns("MENGE") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnMANUELL = MyBase.Columns("MANUELL") + Me.columnBESTELLT_WER = MyBase.Columns("BESTELLT_WER") + Me.columnBESTELLT_WANN = MyBase.Columns("BESTELLT_WANN") + Me.columnGERAET = MyBase.Columns("GERAET") + Me.columnSERIEN_NR = MyBase.Columns("SERIEN_NR") + Me.columnBESTELLNR = MyBase.Columns("BESTELLNR") + Me.columnGERAET_ID = MyBase.Columns("GERAET_ID") + Me.columnSUPPLY_ID = MyBase.Columns("SUPPLY_ID") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnSUPPLY_BEZEICHNUNG = New Global.System.Data.DataColumn("SUPPLY_BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_BEZEICHNUNG) + Me.columnMENGE = New Global.System.Data.DataColumn("MENGE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMENGE) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnMANUELL = New Global.System.Data.DataColumn("MANUELL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANUELL) + Me.columnBESTELLT_WER = New Global.System.Data.DataColumn("BESTELLT_WER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELLT_WER) + Me.columnBESTELLT_WANN = New Global.System.Data.DataColumn("BESTELLT_WANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELLT_WANN) + Me.columnGERAET = New Global.System.Data.DataColumn("GERAET", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET) + Me.columnSERIEN_NR = New Global.System.Data.DataColumn("SERIEN_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIEN_NR) + Me.columnBESTELLNR = New Global.System.Data.DataColumn("BESTELLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELLNR) + Me.columnGERAET_ID = New Global.System.Data.DataColumn("GERAET_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_ID) + Me.columnSUPPLY_ID = New Global.System.Data.DataColumn("SUPPLY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_ID) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnSUPPLY_BEZEICHNUNG.AllowDBNull = false + Me.columnSUPPLY_BEZEICHNUNG.MaxLength = 100 + Me.columnMENGE.AllowDBNull = false + Me.columnMENGE.DefaultValue = CType(1,Integer) + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnMANUELL.AllowDBNull = false + Me.columnMANUELL.DefaultValue = CType(true,Boolean) + Me.columnBESTELLT_WER.AllowDBNull = false + Me.columnBESTELLT_WER.MaxLength = 30 + Me.columnBESTELLT_WANN.AllowDBNull = false + Me.columnGERAET.MaxLength = 50 + Me.columnSERIEN_NR.MaxLength = 50 + Me.columnBESTELLNR.MaxLength = 30 + End Sub + + _ + Public Function NewTBSUPPLY_BESTELLUNGRow() As TBSUPPLY_BESTELLUNGRow + Return CType(Me.NewRow,TBSUPPLY_BESTELLUNGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBSUPPLY_BESTELLUNGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBSUPPLY_BESTELLUNGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBSUPPLY_BESTELLUNGRowChangedEvent) Is Nothing) Then + RaiseEvent TBSUPPLY_BESTELLUNGRowChanged(Me, New TBSUPPLY_BESTELLUNGRowChangeEvent(CType(e.Row,TBSUPPLY_BESTELLUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBSUPPLY_BESTELLUNGRowChangingEvent) Is Nothing) Then + RaiseEvent TBSUPPLY_BESTELLUNGRowChanging(Me, New TBSUPPLY_BESTELLUNGRowChangeEvent(CType(e.Row,TBSUPPLY_BESTELLUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBSUPPLY_BESTELLUNGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBSUPPLY_BESTELLUNGRowDeleted(Me, New TBSUPPLY_BESTELLUNGRowChangeEvent(CType(e.Row,TBSUPPLY_BESTELLUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBSUPPLY_BESTELLUNGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBSUPPLY_BESTELLUNGRowDeleting(Me, New TBSUPPLY_BESTELLUNGRowChangeEvent(CType(e.Row,TBSUPPLY_BESTELLUNGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBSUPPLY_BESTELLUNGRow(ByVal row As TBSUPPLY_BESTELLUNGRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBSUPPLY_BESTELLUNGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_SUPPLIES_MARKTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_SUPPLIES_MARKTRow) + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnGUID As Global.System.Data.DataColumn + + Private columnSupply As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_SUPPLIES_MARKT" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property SupplyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSupply + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_SUPPLIES_MARKTRow + Get + Return CType(Me.Rows(index),TBWH_SUPPLIES_MARKTRow) + End Get + End Property + + _ + Public Event TBWH_SUPPLIES_MARKTRowChanging As TBWH_SUPPLIES_MARKTRowChangeEventHandler + + _ + Public Event TBWH_SUPPLIES_MARKTRowChanged As TBWH_SUPPLIES_MARKTRowChangeEventHandler + + _ + Public Event TBWH_SUPPLIES_MARKTRowDeleting As TBWH_SUPPLIES_MARKTRowChangeEventHandler + + _ + Public Event TBWH_SUPPLIES_MARKTRowDeleted As TBWH_SUPPLIES_MARKTRowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_SUPPLIES_MARKTRow(ByVal row As TBWH_SUPPLIES_MARKTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_SUPPLIES_MARKTRow(ByVal BEZEICHNUNG As String, ByVal Supply As String) As TBWH_SUPPLIES_MARKTRow + Dim rowTBWH_SUPPLIES_MARKTRow As TBWH_SUPPLIES_MARKTRow = CType(Me.NewRow,TBWH_SUPPLIES_MARKTRow) + Dim columnValuesArray() As Object = New Object() {BEZEICHNUNG, Nothing, Supply} + rowTBWH_SUPPLIES_MARKTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_SUPPLIES_MARKTRow) + Return rowTBWH_SUPPLIES_MARKTRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBWH_SUPPLIES_MARKTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_SUPPLIES_MARKTRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_SUPPLIES_MARKTDataTable = CType(MyBase.Clone,TBWH_SUPPLIES_MARKTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_SUPPLIES_MARKTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnSupply = MyBase.Columns("Supply") + End Sub + + _ + Private Sub InitClass() + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnSupply = New Global.System.Data.DataColumn("Supply", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSupply) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnSupply.MaxLength = 100 + End Sub + + _ + Public Function NewTBWH_SUPPLIES_MARKTRow() As TBWH_SUPPLIES_MARKTRow + Return CType(Me.NewRow,TBWH_SUPPLIES_MARKTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_SUPPLIES_MARKTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_SUPPLIES_MARKTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_SUPPLIES_MARKTRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_SUPPLIES_MARKTRowChanged(Me, New TBWH_SUPPLIES_MARKTRowChangeEvent(CType(e.Row,TBWH_SUPPLIES_MARKTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_SUPPLIES_MARKTRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_SUPPLIES_MARKTRowChanging(Me, New TBWH_SUPPLIES_MARKTRowChangeEvent(CType(e.Row,TBWH_SUPPLIES_MARKTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_SUPPLIES_MARKTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_SUPPLIES_MARKTRowDeleted(Me, New TBWH_SUPPLIES_MARKTRowChangeEvent(CType(e.Row,TBWH_SUPPLIES_MARKTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_SUPPLIES_MARKTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_SUPPLIES_MARKTRowDeleting(Me, New TBWH_SUPPLIES_MARKTRowChangeEvent(CType(e.Row,TBWH_SUPPLIES_MARKTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_SUPPLIES_MARKTRow(ByVal row As TBWH_SUPPLIES_MARKTRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_SUPPLIES_MARKTDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWSUPPLY_BESTELLUNG_FRONTENDDataTable + Inherits Global.System.Data.TypedTableBase(Of VWSUPPLY_BESTELLUNG_FRONTENDRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnSUPPLY_BEZEICHNUNG As Global.System.Data.DataColumn + + Private columnMENGE As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnMANUELL As Global.System.Data.DataColumn + + Private columnBESTELLT_WER As Global.System.Data.DataColumn + + Private columnBESTELLT_WANN As Global.System.Data.DataColumn + + Private columnGERAET As Global.System.Data.DataColumn + + Private columnSERIEN_NR As Global.System.Data.DataColumn + + Private columnBESTELLNR As Global.System.Data.DataColumn + + Private columnFILE_ORDER_CONFIRM As Global.System.Data.DataColumn + + Private columnMENGE_ORIGIN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWSUPPLY_BESTELLUNG_FRONTEND" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_BEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property MENGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMENGE + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property MANUELLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANUELL + End Get + End Property + + _ + Public ReadOnly Property BESTELLT_WERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELLT_WER + End Get + End Property + + _ + Public ReadOnly Property BESTELLT_WANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELLT_WANN + End Get + End Property + + _ + Public ReadOnly Property GERAETColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET + End Get + End Property + + _ + Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIEN_NR + End Get + End Property + + _ + Public ReadOnly Property BESTELLNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELLNR + End Get + End Property + + _ + Public ReadOnly Property FILE_ORDER_CONFIRMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILE_ORDER_CONFIRM + End Get + End Property + + _ + Public ReadOnly Property MENGE_ORIGINColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMENGE_ORIGIN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLY_BESTELLUNG_FRONTENDRow + Get + Return CType(Me.Rows(index),VWSUPPLY_BESTELLUNG_FRONTENDRow) + End Get + End Property + + _ + Public Event VWSUPPLY_BESTELLUNG_FRONTENDRowChanging As VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEventHandler + + _ + Public Event VWSUPPLY_BESTELLUNG_FRONTENDRowChanged As VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEventHandler + + _ + Public Event VWSUPPLY_BESTELLUNG_FRONTENDRowDeleting As VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEventHandler + + _ + Public Event VWSUPPLY_BESTELLUNG_FRONTENDRowDeleted As VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEventHandler + + _ + Public Overloads Sub AddVWSUPPLY_BESTELLUNG_FRONTENDRow(ByVal row As VWSUPPLY_BESTELLUNG_FRONTENDRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWSUPPLY_BESTELLUNG_FRONTENDRow(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal parentTBWH_MARKTRowByRelTBWH_MARKT_TBSUPPLY_BESTELLUNGView As TBWH_MARKTRow, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Date, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal FILE_ORDER_CONFIRM As String, ByVal MENGE_ORIGIN As Integer) As VWSUPPLY_BESTELLUNG_FRONTENDRow + Dim rowVWSUPPLY_BESTELLUNG_FRONTENDRow As VWSUPPLY_BESTELLUNG_FRONTENDRow = CType(Me.NewRow,VWSUPPLY_BESTELLUNG_FRONTENDRow) + Dim columnValuesArray() As Object = New Object() {Nothing, SUPPLY_BEZEICHNUNG, MENGE, Nothing, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM, MENGE_ORIGIN} + If (Not (parentTBWH_MARKTRowByRelTBWH_MARKT_TBSUPPLY_BESTELLUNGView) Is Nothing) Then + columnValuesArray(3) = parentTBWH_MARKTRowByRelTBWH_MARKT_TBSUPPLY_BESTELLUNGView(0) + End If + rowVWSUPPLY_BESTELLUNG_FRONTENDRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWSUPPLY_BESTELLUNG_FRONTENDRow) + Return rowVWSUPPLY_BESTELLUNG_FRONTENDRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWSUPPLY_BESTELLUNG_FRONTENDRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWSUPPLY_BESTELLUNG_FRONTENDRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWSUPPLY_BESTELLUNG_FRONTENDDataTable = CType(MyBase.Clone,VWSUPPLY_BESTELLUNG_FRONTENDDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWSUPPLY_BESTELLUNG_FRONTENDDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnSUPPLY_BEZEICHNUNG = MyBase.Columns("SUPPLY_BEZEICHNUNG") + Me.columnMENGE = MyBase.Columns("MENGE") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnMANUELL = MyBase.Columns("MANUELL") + Me.columnBESTELLT_WER = MyBase.Columns("BESTELLT_WER") + Me.columnBESTELLT_WANN = MyBase.Columns("BESTELLT_WANN") + Me.columnGERAET = MyBase.Columns("GERAET") + Me.columnSERIEN_NR = MyBase.Columns("SERIEN_NR") + Me.columnBESTELLNR = MyBase.Columns("BESTELLNR") + Me.columnFILE_ORDER_CONFIRM = MyBase.Columns("FILE_ORDER_CONFIRM") + Me.columnMENGE_ORIGIN = MyBase.Columns("MENGE_ORIGIN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnSUPPLY_BEZEICHNUNG = New Global.System.Data.DataColumn("SUPPLY_BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_BEZEICHNUNG) + Me.columnMENGE = New Global.System.Data.DataColumn("MENGE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMENGE) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnMANUELL = New Global.System.Data.DataColumn("MANUELL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANUELL) + Me.columnBESTELLT_WER = New Global.System.Data.DataColumn("BESTELLT_WER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELLT_WER) + Me.columnBESTELLT_WANN = New Global.System.Data.DataColumn("BESTELLT_WANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELLT_WANN) + Me.columnGERAET = New Global.System.Data.DataColumn("GERAET", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET) + Me.columnSERIEN_NR = New Global.System.Data.DataColumn("SERIEN_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIEN_NR) + Me.columnBESTELLNR = New Global.System.Data.DataColumn("BESTELLNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELLNR) + Me.columnFILE_ORDER_CONFIRM = New Global.System.Data.DataColumn("FILE_ORDER_CONFIRM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILE_ORDER_CONFIRM) + Me.columnMENGE_ORIGIN = New Global.System.Data.DataColumn("MENGE_ORIGIN", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMENGE_ORIGIN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnSUPPLY_BEZEICHNUNG.AllowDBNull = false + Me.columnSUPPLY_BEZEICHNUNG.MaxLength = 100 + Me.columnMENGE.AllowDBNull = false + Me.columnMENGE.DefaultValue = CType(1,Integer) + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnMANUELL.AllowDBNull = false + Me.columnMANUELL.DefaultValue = CType(true,Boolean) + Me.columnBESTELLT_WER.AllowDBNull = false + Me.columnBESTELLT_WER.MaxLength = 30 + Me.columnBESTELLT_WANN.AllowDBNull = false + Me.columnGERAET.MaxLength = 50 + Me.columnSERIEN_NR.MaxLength = 50 + Me.columnBESTELLNR.MaxLength = 30 + Me.columnFILE_ORDER_CONFIRM.MaxLength = 100 + Me.columnMENGE_ORIGIN.AllowDBNull = false + End Sub + + _ + Public Function NewVWSUPPLY_BESTELLUNG_FRONTENDRow() As VWSUPPLY_BESTELLUNG_FRONTENDRow + Return CType(Me.NewRow,VWSUPPLY_BESTELLUNG_FRONTENDRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWSUPPLY_BESTELLUNG_FRONTENDRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWSUPPLY_BESTELLUNG_FRONTENDRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWSUPPLY_BESTELLUNG_FRONTENDRowChangedEvent) Is Nothing) Then + RaiseEvent VWSUPPLY_BESTELLUNG_FRONTENDRowChanged(Me, New VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEvent(CType(e.Row,VWSUPPLY_BESTELLUNG_FRONTENDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWSUPPLY_BESTELLUNG_FRONTENDRowChangingEvent) Is Nothing) Then + RaiseEvent VWSUPPLY_BESTELLUNG_FRONTENDRowChanging(Me, New VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEvent(CType(e.Row,VWSUPPLY_BESTELLUNG_FRONTENDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWSUPPLY_BESTELLUNG_FRONTENDRowDeletedEvent) Is Nothing) Then + RaiseEvent VWSUPPLY_BESTELLUNG_FRONTENDRowDeleted(Me, New VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEvent(CType(e.Row,VWSUPPLY_BESTELLUNG_FRONTENDRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWSUPPLY_BESTELLUNG_FRONTENDRowDeletingEvent) Is Nothing) Then + RaiseEvent VWSUPPLY_BESTELLUNG_FRONTENDRowDeleting(Me, New VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEvent(CType(e.Row,VWSUPPLY_BESTELLUNG_FRONTENDRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWSUPPLY_BESTELLUNG_FRONTENDRow(ByVal row As VWSUPPLY_BESTELLUNG_FRONTENDRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWSUPPLY_BESTELLUNG_FRONTENDDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBGERAETByMarktDataTable + Inherits Global.System.Data.TypedTableBase(Of TBGERAETByMarktRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnDATE_INITIAL As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBGERAETByMarkt" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property DATE_INITIALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATE_INITIAL + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBGERAETByMarktRow + Get + Return CType(Me.Rows(index),TBGERAETByMarktRow) + End Get + End Property + + _ + Public Event TBGERAETByMarktRowChanging As TBGERAETByMarktRowChangeEventHandler + + _ + Public Event TBGERAETByMarktRowChanged As TBGERAETByMarktRowChangeEventHandler + + _ + Public Event TBGERAETByMarktRowDeleting As TBGERAETByMarktRowChangeEventHandler + + _ + Public Event TBGERAETByMarktRowDeleted As TBGERAETByMarktRowChangeEventHandler + + _ + Public Overloads Sub AddTBGERAETByMarktRow(ByVal row As TBGERAETByMarktRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBGERAETByMarktRow(ByVal BEZEICHNUNG As String, ByVal MARKT As String, ByVal SERIENNR As String, ByVal DATE_INITIAL As Date) As TBGERAETByMarktRow + Dim rowTBGERAETByMarktRow As TBGERAETByMarktRow = CType(Me.NewRow,TBGERAETByMarktRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, MARKT, SERIENNR, DATE_INITIAL} + rowTBGERAETByMarktRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBGERAETByMarktRow) + Return rowTBGERAETByMarktRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBGERAETByMarktRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBGERAETByMarktRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBGERAETByMarktDataTable = CType(MyBase.Clone,TBGERAETByMarktDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBGERAETByMarktDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnDATE_INITIAL = MyBase.Columns("DATE_INITIAL") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnDATE_INITIAL = New Global.System.Data.DataColumn("DATE_INITIAL", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATE_INITIAL) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnSERIENNR.AllowDBNull = false + Me.columnSERIENNR.MaxLength = 50 + Me.columnDATE_INITIAL.AllowDBNull = false + End Sub + + _ + Public Function NewTBGERAETByMarktRow() As TBGERAETByMarktRow + Return CType(Me.NewRow,TBGERAETByMarktRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBGERAETByMarktRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBGERAETByMarktRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBGERAETByMarktRowChangedEvent) Is Nothing) Then + RaiseEvent TBGERAETByMarktRowChanged(Me, New TBGERAETByMarktRowChangeEvent(CType(e.Row,TBGERAETByMarktRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBGERAETByMarktRowChangingEvent) Is Nothing) Then + RaiseEvent TBGERAETByMarktRowChanging(Me, New TBGERAETByMarktRowChangeEvent(CType(e.Row,TBGERAETByMarktRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBGERAETByMarktRowDeletedEvent) Is Nothing) Then + RaiseEvent TBGERAETByMarktRowDeleted(Me, New TBGERAETByMarktRowChangeEvent(CType(e.Row,TBGERAETByMarktRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBGERAETByMarktRowDeletingEvent) Is Nothing) Then + RaiseEvent TBGERAETByMarktRowDeleting(Me, New TBGERAETByMarktRowChangeEvent(CType(e.Row,TBGERAETByMarktRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBGERAETByMarktRow(ByVal row As TBGERAETByMarktRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBGERAETByMarktDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIMPORT_PRODUKTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIMPORT_PRODUKTRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnVERTRAGSNR As Global.System.Data.DataColumn + + Private columnSERIEN_NR As Global.System.Data.DataColumn + + Private columnPRODUKT_NR As Global.System.Data.DataColumn + + Private columnMODELL_NAME As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIMPORT_PRODUKT" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property VERTRAGSNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAGSNR + End Get + End Property + + _ + Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIEN_NR + End Get + End Property + + _ + Public ReadOnly Property PRODUKT_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRODUKT_NR + End Get + End Property + + _ + Public ReadOnly Property MODELL_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODELL_NAME + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIMPORT_PRODUKTRow + Get + Return CType(Me.Rows(index),TBIMPORT_PRODUKTRow) + End Get + End Property + + _ + Public Event TBIMPORT_PRODUKTRowChanging As TBIMPORT_PRODUKTRowChangeEventHandler + + _ + Public Event TBIMPORT_PRODUKTRowChanged As TBIMPORT_PRODUKTRowChangeEventHandler + + _ + Public Event TBIMPORT_PRODUKTRowDeleting As TBIMPORT_PRODUKTRowChangeEventHandler + + _ + Public Event TBIMPORT_PRODUKTRowDeleted As TBIMPORT_PRODUKTRowChangeEventHandler + + _ + Public Overloads Sub AddTBIMPORT_PRODUKTRow(ByVal row As TBIMPORT_PRODUKTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIMPORT_PRODUKTRow(ByVal VERTRAGSNR As String, ByVal SERIEN_NR As String, ByVal PRODUKT_NR As String, ByVal MODELL_NAME As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBIMPORT_PRODUKTRow + Dim rowTBIMPORT_PRODUKTRow As TBIMPORT_PRODUKTRow = CType(Me.NewRow,TBIMPORT_PRODUKTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, VERTRAGSNR, SERIEN_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN} + rowTBIMPORT_PRODUKTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIMPORT_PRODUKTRow) + Return rowTBIMPORT_PRODUKTRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBIMPORT_PRODUKTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIMPORT_PRODUKTRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIMPORT_PRODUKTDataTable = CType(MyBase.Clone,TBIMPORT_PRODUKTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIMPORT_PRODUKTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnVERTRAGSNR = MyBase.Columns("VERTRAGSNR") + Me.columnSERIEN_NR = MyBase.Columns("SERIEN_NR") + Me.columnPRODUKT_NR = MyBase.Columns("PRODUKT_NR") + Me.columnMODELL_NAME = MyBase.Columns("MODELL_NAME") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnVERTRAGSNR = New Global.System.Data.DataColumn("VERTRAGSNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAGSNR) + Me.columnSERIEN_NR = New Global.System.Data.DataColumn("SERIEN_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIEN_NR) + Me.columnPRODUKT_NR = New Global.System.Data.DataColumn("PRODUKT_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRODUKT_NR) + Me.columnMODELL_NAME = New Global.System.Data.DataColumn("MODELL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODELL_NAME) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnVERTRAGSNR.AllowDBNull = false + Me.columnVERTRAGSNR.MaxLength = 50 + Me.columnSERIEN_NR.MaxLength = 50 + Me.columnPRODUKT_NR.MaxLength = 30 + Me.columnMODELL_NAME.MaxLength = 50 + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnGEAENDERTWANN.AllowDBNull = false + End Sub + + _ + Public Function NewTBIMPORT_PRODUKTRow() As TBIMPORT_PRODUKTRow + Return CType(Me.NewRow,TBIMPORT_PRODUKTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIMPORT_PRODUKTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIMPORT_PRODUKTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIMPORT_PRODUKTRowChangedEvent) Is Nothing) Then + RaiseEvent TBIMPORT_PRODUKTRowChanged(Me, New TBIMPORT_PRODUKTRowChangeEvent(CType(e.Row,TBIMPORT_PRODUKTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIMPORT_PRODUKTRowChangingEvent) Is Nothing) Then + RaiseEvent TBIMPORT_PRODUKTRowChanging(Me, New TBIMPORT_PRODUKTRowChangeEvent(CType(e.Row,TBIMPORT_PRODUKTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIMPORT_PRODUKTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBIMPORT_PRODUKTRowDeleted(Me, New TBIMPORT_PRODUKTRowChangeEvent(CType(e.Row,TBIMPORT_PRODUKTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIMPORT_PRODUKTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBIMPORT_PRODUKTRowDeleting(Me, New TBIMPORT_PRODUKTRowChangeEvent(CType(e.Row,TBIMPORT_PRODUKTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIMPORT_PRODUKTRow(ByVal row As TBIMPORT_PRODUKTRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBIMPORT_PRODUKTDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBVERTRAEGEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBVERTRAEGERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnVERTRAGSNR As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG1 As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG2 As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBVERTRAEGE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property VERTRAGSNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAGSNR + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNG1Column() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG1 + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNG2Column() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG2 + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBVERTRAEGERow + Get + Return CType(Me.Rows(index),TBVERTRAEGERow) + End Get + End Property + + _ + Public Event TBVERTRAEGERowChanging As TBVERTRAEGERowChangeEventHandler + + _ + Public Event TBVERTRAEGERowChanged As TBVERTRAEGERowChangeEventHandler + + _ + Public Event TBVERTRAEGERowDeleting As TBVERTRAEGERowChangeEventHandler + + _ + Public Event TBVERTRAEGERowDeleted As TBVERTRAEGERowChangeEventHandler + + _ + Public Overloads Sub AddTBVERTRAEGERow(ByVal row As TBVERTRAEGERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBVERTRAEGERow(ByVal VERTRAGSNR As String, ByVal BEZEICHNUNG1 As String, ByVal BEZEICHNUNG2 As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBVERTRAEGERow + Dim rowTBVERTRAEGERow As TBVERTRAEGERow = CType(Me.NewRow,TBVERTRAEGERow) + Dim columnValuesArray() As Object = New Object() {Nothing, VERTRAGSNR, BEZEICHNUNG1, BEZEICHNUNG2, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN} + rowTBVERTRAEGERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBVERTRAEGERow) + Return rowTBVERTRAEGERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBVERTRAEGERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBVERTRAEGERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBVERTRAEGEDataTable = CType(MyBase.Clone,TBVERTRAEGEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBVERTRAEGEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnVERTRAGSNR = MyBase.Columns("VERTRAGSNR") + Me.columnBEZEICHNUNG1 = MyBase.Columns("BEZEICHNUNG1") + Me.columnBEZEICHNUNG2 = MyBase.Columns("BEZEICHNUNG2") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnVERTRAGSNR = New Global.System.Data.DataColumn("VERTRAGSNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAGSNR) + Me.columnBEZEICHNUNG1 = New Global.System.Data.DataColumn("BEZEICHNUNG1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG1) + Me.columnBEZEICHNUNG2 = New Global.System.Data.DataColumn("BEZEICHNUNG2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG2) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnVERTRAGSNR.AllowDBNull = false + Me.columnVERTRAGSNR.MaxLength = 50 + Me.columnBEZEICHNUNG1.MaxLength = 30 + Me.columnBEZEICHNUNG2.MaxLength = 50 + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnGEAENDERTWANN.AllowDBNull = false + End Sub + + _ + Public Function NewTBVERTRAEGERow() As TBVERTRAEGERow + Return CType(Me.NewRow,TBVERTRAEGERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBVERTRAEGERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBVERTRAEGERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBVERTRAEGERowChangedEvent) Is Nothing) Then + RaiseEvent TBVERTRAEGERowChanged(Me, New TBVERTRAEGERowChangeEvent(CType(e.Row,TBVERTRAEGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBVERTRAEGERowChangingEvent) Is Nothing) Then + RaiseEvent TBVERTRAEGERowChanging(Me, New TBVERTRAEGERowChangeEvent(CType(e.Row,TBVERTRAEGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBVERTRAEGERowDeletedEvent) Is Nothing) Then + RaiseEvent TBVERTRAEGERowDeleted(Me, New TBVERTRAEGERowChangeEvent(CType(e.Row,TBVERTRAEGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBVERTRAEGERowDeletingEvent) Is Nothing) Then + RaiseEvent TBVERTRAEGERowDeleting(Me, New TBVERTRAEGERowChangeEvent(CType(e.Row,TBVERTRAEGERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBVERTRAEGERow(ByVal row As TBVERTRAEGERow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBVERTRAEGEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPRODUKT_VERTRAGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPRODUKT_VERTRAGRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnVERTRAG_ID As Global.System.Data.DataColumn + + Private columnSERIEN_NR As Global.System.Data.DataColumn + + Private columnPRODUKT_NR As Global.System.Data.DataColumn + + Private columnMODELL_NAME As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPRODUKT_VERTRAG" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property VERTRAG_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAG_ID + End Get + End Property + + _ + Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIEN_NR + End Get + End Property + + _ + Public ReadOnly Property PRODUKT_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRODUKT_NR + End Get + End Property + + _ + Public ReadOnly Property MODELL_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODELL_NAME + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPRODUKT_VERTRAGRow + Get + Return CType(Me.Rows(index),TBPRODUKT_VERTRAGRow) + End Get + End Property + + _ + Public Event TBPRODUKT_VERTRAGRowChanging As TBPRODUKT_VERTRAGRowChangeEventHandler + + _ + Public Event TBPRODUKT_VERTRAGRowChanged As TBPRODUKT_VERTRAGRowChangeEventHandler + + _ + Public Event TBPRODUKT_VERTRAGRowDeleting As TBPRODUKT_VERTRAGRowChangeEventHandler + + _ + Public Event TBPRODUKT_VERTRAGRowDeleted As TBPRODUKT_VERTRAGRowChangeEventHandler + + _ + Public Overloads Sub AddTBPRODUKT_VERTRAGRow(ByVal row As TBPRODUKT_VERTRAGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPRODUKT_VERTRAGRow(ByVal parentTBVERTRAEGERowByFK_TBPRODUKT_VERTRAG_VERTRAG As TBVERTRAEGERow, ByVal SERIEN_NR As String, ByVal PRODUKT_NR As String, ByVal MODELL_NAME As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal AKTIV As Boolean) As TBPRODUKT_VERTRAGRow + Dim rowTBPRODUKT_VERTRAGRow As TBPRODUKT_VERTRAGRow = CType(Me.NewRow,TBPRODUKT_VERTRAGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, SERIEN_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, AKTIV} + If (Not (parentTBVERTRAEGERowByFK_TBPRODUKT_VERTRAG_VERTRAG) Is Nothing) Then + columnValuesArray(1) = parentTBVERTRAEGERowByFK_TBPRODUKT_VERTRAG_VERTRAG(0) + End If + rowTBPRODUKT_VERTRAGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPRODUKT_VERTRAGRow) + Return rowTBPRODUKT_VERTRAGRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPRODUKT_VERTRAGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPRODUKT_VERTRAGRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPRODUKT_VERTRAGDataTable = CType(MyBase.Clone,TBPRODUKT_VERTRAGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPRODUKT_VERTRAGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnVERTRAG_ID = MyBase.Columns("VERTRAG_ID") + Me.columnSERIEN_NR = MyBase.Columns("SERIEN_NR") + Me.columnPRODUKT_NR = MyBase.Columns("PRODUKT_NR") + Me.columnMODELL_NAME = MyBase.Columns("MODELL_NAME") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnAKTIV = MyBase.Columns("AKTIV") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnVERTRAG_ID = New Global.System.Data.DataColumn("VERTRAG_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAG_ID) + Me.columnSERIEN_NR = New Global.System.Data.DataColumn("SERIEN_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIEN_NR) + Me.columnPRODUKT_NR = New Global.System.Data.DataColumn("PRODUKT_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRODUKT_NR) + Me.columnMODELL_NAME = New Global.System.Data.DataColumn("MODELL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODELL_NAME) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnVERTRAG_ID.AllowDBNull = false + Me.columnSERIEN_NR.MaxLength = 30 + Me.columnPRODUKT_NR.MaxLength = 30 + Me.columnMODELL_NAME.MaxLength = 50 + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnGEANDERTWER.MaxLength = 30 + Me.columnGEAENDERTWANN.AllowDBNull = false + Me.columnAKTIV.AllowDBNull = false + End Sub + + _ + Public Function NewTBPRODUKT_VERTRAGRow() As TBPRODUKT_VERTRAGRow + Return CType(Me.NewRow,TBPRODUKT_VERTRAGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPRODUKT_VERTRAGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPRODUKT_VERTRAGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPRODUKT_VERTRAGRowChangedEvent) Is Nothing) Then + RaiseEvent TBPRODUKT_VERTRAGRowChanged(Me, New TBPRODUKT_VERTRAGRowChangeEvent(CType(e.Row,TBPRODUKT_VERTRAGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPRODUKT_VERTRAGRowChangingEvent) Is Nothing) Then + RaiseEvent TBPRODUKT_VERTRAGRowChanging(Me, New TBPRODUKT_VERTRAGRowChangeEvent(CType(e.Row,TBPRODUKT_VERTRAGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPRODUKT_VERTRAGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPRODUKT_VERTRAGRowDeleted(Me, New TBPRODUKT_VERTRAGRowChangeEvent(CType(e.Row,TBPRODUKT_VERTRAGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPRODUKT_VERTRAGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPRODUKT_VERTRAGRowDeleting(Me, New TBPRODUKT_VERTRAGRowChangeEvent(CType(e.Row,TBPRODUKT_VERTRAGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPRODUKT_VERTRAGRow(ByVal row As TBPRODUKT_VERTRAGRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBPRODUKT_VERTRAGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBGERAETE_NOTINLISTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBGERAETE_NOTINLISTRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnVERTRAG_ID As Global.System.Data.DataColumn + + Private columnMODELL_NAME As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnTIMESTAMP1 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBGERAETE_NOTINLIST" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property VERTRAG_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAG_ID + End Get + End Property + + _ + Public ReadOnly Property MODELL_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODELL_NAME + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property TIMESTAMP1Column() As Global.System.Data.DataColumn + Get + Return Me.columnTIMESTAMP1 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBGERAETE_NOTINLISTRow + Get + Return CType(Me.Rows(index),TBGERAETE_NOTINLISTRow) + End Get + End Property + + _ + Public Event TBGERAETE_NOTINLISTRowChanging As TBGERAETE_NOTINLISTRowChangeEventHandler + + _ + Public Event TBGERAETE_NOTINLISTRowChanged As TBGERAETE_NOTINLISTRowChangeEventHandler + + _ + Public Event TBGERAETE_NOTINLISTRowDeleting As TBGERAETE_NOTINLISTRowChangeEventHandler + + _ + Public Event TBGERAETE_NOTINLISTRowDeleted As TBGERAETE_NOTINLISTRowChangeEventHandler + + _ + Public Overloads Sub AddTBGERAETE_NOTINLISTRow(ByVal row As TBGERAETE_NOTINLISTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBGERAETE_NOTINLISTRow(ByVal parentTBVERTRAEGERowByFK_TBGERAETE_NOTINLIST_VERTRAG As TBVERTRAEGERow, ByVal MODELL_NAME As String, ByVal MARKT As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal TIMESTAMP1() As Byte) As TBGERAETE_NOTINLISTRow + Dim rowTBGERAETE_NOTINLISTRow As TBGERAETE_NOTINLISTRow = CType(Me.NewRow,TBGERAETE_NOTINLISTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, MODELL_NAME, MARKT, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1} + If (Not (parentTBVERTRAEGERowByFK_TBGERAETE_NOTINLIST_VERTRAG) Is Nothing) Then + columnValuesArray(1) = parentTBVERTRAEGERowByFK_TBGERAETE_NOTINLIST_VERTRAG(0) + End If + rowTBGERAETE_NOTINLISTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBGERAETE_NOTINLISTRow) + Return rowTBGERAETE_NOTINLISTRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBGERAETE_NOTINLISTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBGERAETE_NOTINLISTRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBGERAETE_NOTINLISTDataTable = CType(MyBase.Clone,TBGERAETE_NOTINLISTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBGERAETE_NOTINLISTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnVERTRAG_ID = MyBase.Columns("VERTRAG_ID") + Me.columnMODELL_NAME = MyBase.Columns("MODELL_NAME") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnTIMESTAMP1 = MyBase.Columns("TIMESTAMP1") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnVERTRAG_ID = New Global.System.Data.DataColumn("VERTRAG_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAG_ID) + Me.columnMODELL_NAME = New Global.System.Data.DataColumn("MODELL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODELL_NAME) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnTIMESTAMP1 = New Global.System.Data.DataColumn("TIMESTAMP1", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTIMESTAMP1) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnVERTRAG_ID.AllowDBNull = false + Me.columnMODELL_NAME.MaxLength = 50 + Me.columnMARKT.MaxLength = 50 + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnGEAENDERTWANN.AllowDBNull = false + Me.columnTIMESTAMP1.ReadOnly = true + End Sub + + _ + Public Function NewTBGERAETE_NOTINLISTRow() As TBGERAETE_NOTINLISTRow + Return CType(Me.NewRow,TBGERAETE_NOTINLISTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBGERAETE_NOTINLISTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBGERAETE_NOTINLISTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBGERAETE_NOTINLISTRowChangedEvent) Is Nothing) Then + RaiseEvent TBGERAETE_NOTINLISTRowChanged(Me, New TBGERAETE_NOTINLISTRowChangeEvent(CType(e.Row,TBGERAETE_NOTINLISTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBGERAETE_NOTINLISTRowChangingEvent) Is Nothing) Then + RaiseEvent TBGERAETE_NOTINLISTRowChanging(Me, New TBGERAETE_NOTINLISTRowChangeEvent(CType(e.Row,TBGERAETE_NOTINLISTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBGERAETE_NOTINLISTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBGERAETE_NOTINLISTRowDeleted(Me, New TBGERAETE_NOTINLISTRowChangeEvent(CType(e.Row,TBGERAETE_NOTINLISTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBGERAETE_NOTINLISTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBGERAETE_NOTINLISTRowDeleting(Me, New TBGERAETE_NOTINLISTRowChangeEvent(CType(e.Row,TBGERAETE_NOTINLISTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBGERAETE_NOTINLISTRow(ByVal row As TBGERAETE_NOTINLISTRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBGERAETE_NOTINLISTDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_MODELLDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_MODELLRow) + + Private columnPRODUKT_NR As Global.System.Data.DataColumn + + Private columnString As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_MODELL" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property PRODUKT_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRODUKT_NR + End Get + End Property + + _ + Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn + Get + Return Me.columnString + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_MODELLRow + Get + Return CType(Me.Rows(index),TBWH_MODELLRow) + End Get + End Property + + _ + Public Event TBWH_MODELLRowChanging As TBWH_MODELLRowChangeEventHandler + + _ + Public Event TBWH_MODELLRowChanged As TBWH_MODELLRowChangeEventHandler + + _ + Public Event TBWH_MODELLRowDeleting As TBWH_MODELLRowChangeEventHandler + + _ + Public Event TBWH_MODELLRowDeleted As TBWH_MODELLRowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_MODELLRow(ByVal row As TBWH_MODELLRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_MODELLRow(ByVal PRODUKT_NR As String, ByVal _String As String) As TBWH_MODELLRow + Dim rowTBWH_MODELLRow As TBWH_MODELLRow = CType(Me.NewRow,TBWH_MODELLRow) + Dim columnValuesArray() As Object = New Object() {PRODUKT_NR, _String} + rowTBWH_MODELLRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_MODELLRow) + Return rowTBWH_MODELLRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_MODELLDataTable = CType(MyBase.Clone,TBWH_MODELLDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_MODELLDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnPRODUKT_NR = MyBase.Columns("PRODUKT_NR") + Me.columnString = MyBase.Columns("String") + End Sub + + _ + Private Sub InitClass() + Me.columnPRODUKT_NR = New Global.System.Data.DataColumn("PRODUKT_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRODUKT_NR) + Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") + Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") + Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") + MyBase.Columns.Add(Me.columnString) + Me.columnPRODUKT_NR.MaxLength = 30 + Me.columnString.ReadOnly = true + Me.columnString.MaxLength = 83 + End Sub + + _ + Public Function NewTBWH_MODELLRow() As TBWH_MODELLRow + Return CType(Me.NewRow,TBWH_MODELLRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_MODELLRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_MODELLRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_MODELLRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_MODELLRowChanged(Me, New TBWH_MODELLRowChangeEvent(CType(e.Row,TBWH_MODELLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_MODELLRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_MODELLRowChanging(Me, New TBWH_MODELLRowChangeEvent(CType(e.Row,TBWH_MODELLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_MODELLRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_MODELLRowDeleted(Me, New TBWH_MODELLRowChangeEvent(CType(e.Row,TBWH_MODELLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_MODELLRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_MODELLRowDeleting(Me, New TBWH_MODELLRowChangeEvent(CType(e.Row,TBWH_MODELLRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_MODELLRow(ByVal row As TBWH_MODELLRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_MODELLDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBSUPPLY_DEFINITIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBSUPPLY_DEFINITIONRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnSUPPLY_BEZ As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnTIMESTAMP1 As Global.System.Data.DataColumn + + Private columnSUPPLY_NAME_DATEI As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBSUPPLY_DEFINITION" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_BEZColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_BEZ + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property TIMESTAMP1Column() As Global.System.Data.DataColumn + Get + Return Me.columnTIMESTAMP1 + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_NAME_DATEIColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_NAME_DATEI + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBSUPPLY_DEFINITIONRow + Get + Return CType(Me.Rows(index),TBSUPPLY_DEFINITIONRow) + End Get + End Property + + _ + Public Event TBSUPPLY_DEFINITIONRowChanging As TBSUPPLY_DEFINITIONRowChangeEventHandler + + _ + Public Event TBSUPPLY_DEFINITIONRowChanged As TBSUPPLY_DEFINITIONRowChangeEventHandler + + _ + Public Event TBSUPPLY_DEFINITIONRowDeleting As TBSUPPLY_DEFINITIONRowChangeEventHandler + + _ + Public Event TBSUPPLY_DEFINITIONRowDeleted As TBSUPPLY_DEFINITIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBSUPPLY_DEFINITIONRow(ByVal row As TBSUPPLY_DEFINITIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBSUPPLY_DEFINITIONRow(ByVal SUPPLY_BEZ As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal TIMESTAMP1() As Byte, ByVal SUPPLY_NAME_DATEI As String) As TBSUPPLY_DEFINITIONRow + Dim rowTBSUPPLY_DEFINITIONRow As TBSUPPLY_DEFINITIONRow = CType(Me.NewRow,TBSUPPLY_DEFINITIONRow) + Dim columnValuesArray() As Object = New Object() {Nothing, SUPPLY_BEZ, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1, SUPPLY_NAME_DATEI} + rowTBSUPPLY_DEFINITIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBSUPPLY_DEFINITIONRow) + Return rowTBSUPPLY_DEFINITIONRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBSUPPLY_DEFINITIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBSUPPLY_DEFINITIONRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBSUPPLY_DEFINITIONDataTable = CType(MyBase.Clone,TBSUPPLY_DEFINITIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBSUPPLY_DEFINITIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnSUPPLY_BEZ = MyBase.Columns("SUPPLY_BEZ") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnTIMESTAMP1 = MyBase.Columns("TIMESTAMP1") + Me.columnSUPPLY_NAME_DATEI = MyBase.Columns("SUPPLY_NAME_DATEI") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnSUPPLY_BEZ = New Global.System.Data.DataColumn("SUPPLY_BEZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_BEZ) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnTIMESTAMP1 = New Global.System.Data.DataColumn("TIMESTAMP1", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTIMESTAMP1) + Me.columnSUPPLY_NAME_DATEI = New Global.System.Data.DataColumn("SUPPLY_NAME_DATEI", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_NAME_DATEI) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnSUPPLY_BEZ.AllowDBNull = false + Me.columnSUPPLY_BEZ.MaxLength = 50 + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnTIMESTAMP1.ReadOnly = true + Me.columnSUPPLY_NAME_DATEI.MaxLength = 50 + End Sub + + _ + Public Function NewTBSUPPLY_DEFINITIONRow() As TBSUPPLY_DEFINITIONRow + Return CType(Me.NewRow,TBSUPPLY_DEFINITIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBSUPPLY_DEFINITIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBSUPPLY_DEFINITIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBSUPPLY_DEFINITIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBSUPPLY_DEFINITIONRowChanged(Me, New TBSUPPLY_DEFINITIONRowChangeEvent(CType(e.Row,TBSUPPLY_DEFINITIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBSUPPLY_DEFINITIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBSUPPLY_DEFINITIONRowChanging(Me, New TBSUPPLY_DEFINITIONRowChangeEvent(CType(e.Row,TBSUPPLY_DEFINITIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBSUPPLY_DEFINITIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBSUPPLY_DEFINITIONRowDeleted(Me, New TBSUPPLY_DEFINITIONRowChangeEvent(CType(e.Row,TBSUPPLY_DEFINITIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBSUPPLY_DEFINITIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBSUPPLY_DEFINITIONRowDeleting(Me, New TBSUPPLY_DEFINITIONRowChangeEvent(CType(e.Row,TBSUPPLY_DEFINITIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBSUPPLY_DEFINITIONRow(ByVal row As TBSUPPLY_DEFINITIONRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBSUPPLY_DEFINITIONDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBGERAET_SUPPLY_ZUORDNUNGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBGERAET_SUPPLY_ZUORDNUNGRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnGERAET_BEZ As Global.System.Data.DataColumn + + Private columnSUPPLY_ID As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + Private columnSCHWELLENWERT As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBGERAET_SUPPLY_ZUORDNUNG" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property GERAET_BEZColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_BEZ + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_ID + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCHWELLENWERT + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBGERAET_SUPPLY_ZUORDNUNGRow + Get + Return CType(Me.Rows(index),TBGERAET_SUPPLY_ZUORDNUNGRow) + End Get + End Property + + _ + Public Event TBGERAET_SUPPLY_ZUORDNUNGRowChanging As TBGERAET_SUPPLY_ZUORDNUNGRowChangeEventHandler + + _ + Public Event TBGERAET_SUPPLY_ZUORDNUNGRowChanged As TBGERAET_SUPPLY_ZUORDNUNGRowChangeEventHandler + + _ + Public Event TBGERAET_SUPPLY_ZUORDNUNGRowDeleting As TBGERAET_SUPPLY_ZUORDNUNGRowChangeEventHandler + + _ + Public Event TBGERAET_SUPPLY_ZUORDNUNGRowDeleted As TBGERAET_SUPPLY_ZUORDNUNGRowChangeEventHandler + + _ + Public Overloads Sub AddTBGERAET_SUPPLY_ZUORDNUNGRow(ByVal row As TBGERAET_SUPPLY_ZUORDNUNGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBGERAET_SUPPLY_ZUORDNUNGRow(ByVal GERAET_BEZ As String, ByVal parentTBSUPPLY_DEFINITIONRowByFK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID As TBSUPPLY_DEFINITIONRow, ByVal ERFASSTWER As String, ByVal PARTNUMBER As String, ByVal SCHWELLENWERT As Integer) As TBGERAET_SUPPLY_ZUORDNUNGRow + Dim rowTBGERAET_SUPPLY_ZUORDNUNGRow As TBGERAET_SUPPLY_ZUORDNUNGRow = CType(Me.NewRow,TBGERAET_SUPPLY_ZUORDNUNGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, GERAET_BEZ, Nothing, ERFASSTWER, PARTNUMBER, SCHWELLENWERT} + If (Not (parentTBSUPPLY_DEFINITIONRowByFK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID) Is Nothing) Then + columnValuesArray(2) = parentTBSUPPLY_DEFINITIONRowByFK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID(0) + End If + rowTBGERAET_SUPPLY_ZUORDNUNGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBGERAET_SUPPLY_ZUORDNUNGRow) + Return rowTBGERAET_SUPPLY_ZUORDNUNGRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBGERAET_SUPPLY_ZUORDNUNGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBGERAET_SUPPLY_ZUORDNUNGRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBGERAET_SUPPLY_ZUORDNUNGDataTable = CType(MyBase.Clone,TBGERAET_SUPPLY_ZUORDNUNGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBGERAET_SUPPLY_ZUORDNUNGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnGERAET_BEZ = MyBase.Columns("GERAET_BEZ") + Me.columnSUPPLY_ID = MyBase.Columns("SUPPLY_ID") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + Me.columnSCHWELLENWERT = MyBase.Columns("SCHWELLENWERT") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnGERAET_BEZ = New Global.System.Data.DataColumn("GERAET_BEZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_BEZ) + Me.columnSUPPLY_ID = New Global.System.Data.DataColumn("SUPPLY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_ID) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnSCHWELLENWERT = New Global.System.Data.DataColumn("SCHWELLENWERT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCHWELLENWERT) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnGERAET_BEZ.AllowDBNull = false + Me.columnGERAET_BEZ.MaxLength = 50 + Me.columnSUPPLY_ID.AllowDBNull = false + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnPARTNUMBER.AllowDBNull = false + Me.columnPARTNUMBER.MaxLength = 30 + Me.columnSCHWELLENWERT.AllowDBNull = false + End Sub + + _ + Public Function NewTBGERAET_SUPPLY_ZUORDNUNGRow() As TBGERAET_SUPPLY_ZUORDNUNGRow + Return CType(Me.NewRow,TBGERAET_SUPPLY_ZUORDNUNGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBGERAET_SUPPLY_ZUORDNUNGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBGERAET_SUPPLY_ZUORDNUNGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBGERAET_SUPPLY_ZUORDNUNGRowChangedEvent) Is Nothing) Then + RaiseEvent TBGERAET_SUPPLY_ZUORDNUNGRowChanged(Me, New TBGERAET_SUPPLY_ZUORDNUNGRowChangeEvent(CType(e.Row,TBGERAET_SUPPLY_ZUORDNUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBGERAET_SUPPLY_ZUORDNUNGRowChangingEvent) Is Nothing) Then + RaiseEvent TBGERAET_SUPPLY_ZUORDNUNGRowChanging(Me, New TBGERAET_SUPPLY_ZUORDNUNGRowChangeEvent(CType(e.Row,TBGERAET_SUPPLY_ZUORDNUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBGERAET_SUPPLY_ZUORDNUNGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBGERAET_SUPPLY_ZUORDNUNGRowDeleted(Me, New TBGERAET_SUPPLY_ZUORDNUNGRowChangeEvent(CType(e.Row,TBGERAET_SUPPLY_ZUORDNUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBGERAET_SUPPLY_ZUORDNUNGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBGERAET_SUPPLY_ZUORDNUNGRowDeleting(Me, New TBGERAET_SUPPLY_ZUORDNUNGRowChangeEvent(CType(e.Row,TBGERAET_SUPPLY_ZUORDNUNGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBGERAET_SUPPLY_ZUORDNUNGRow(ByVal row As TBGERAET_SUPPLY_ZUORDNUNGRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBGERAET_SUPPLY_ZUORDNUNGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWGeraet_Supply_ZuordnungDataTable + Inherits Global.System.Data.TypedTableBase(Of VWGeraet_Supply_ZuordnungRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnGERAET_BEZ As Global.System.Data.DataColumn + + Private columnSUPPLY_BEZ As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + Private columnPARTNUMBER_ORDER As Global.System.Data.DataColumn + + Private columnSCHWELLENWERT As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWGeraet_Supply_Zuordnung" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property GERAET_BEZColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_BEZ + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_BEZColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_BEZ + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBER_ORDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER_ORDER + End Get + End Property + + _ + Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCHWELLENWERT + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWGeraet_Supply_ZuordnungRow + Get + Return CType(Me.Rows(index),VWGeraet_Supply_ZuordnungRow) + End Get + End Property + + _ + Public Event VWGeraet_Supply_ZuordnungRowChanging As VWGeraet_Supply_ZuordnungRowChangeEventHandler + + _ + Public Event VWGeraet_Supply_ZuordnungRowChanged As VWGeraet_Supply_ZuordnungRowChangeEventHandler + + _ + Public Event VWGeraet_Supply_ZuordnungRowDeleting As VWGeraet_Supply_ZuordnungRowChangeEventHandler + + _ + Public Event VWGeraet_Supply_ZuordnungRowDeleted As VWGeraet_Supply_ZuordnungRowChangeEventHandler + + _ + Public Overloads Sub AddVWGeraet_Supply_ZuordnungRow(ByVal row As VWGeraet_Supply_ZuordnungRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWGeraet_Supply_ZuordnungRow(ByVal GERAET_BEZ As String, ByVal SUPPLY_BEZ As String, ByVal PARTNUMBER As String, ByVal PARTNUMBER_ORDER As String, ByVal SCHWELLENWERT As Integer, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date) As VWGeraet_Supply_ZuordnungRow + Dim rowVWGeraet_Supply_ZuordnungRow As VWGeraet_Supply_ZuordnungRow = CType(Me.NewRow,VWGeraet_Supply_ZuordnungRow) + Dim columnValuesArray() As Object = New Object() {Nothing, GERAET_BEZ, SUPPLY_BEZ, PARTNUMBER, PARTNUMBER_ORDER, SCHWELLENWERT, ERFASSTWER, ERFASSTWANN} + rowVWGeraet_Supply_ZuordnungRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWGeraet_Supply_ZuordnungRow) + Return rowVWGeraet_Supply_ZuordnungRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWGeraet_Supply_ZuordnungRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWGeraet_Supply_ZuordnungRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWGeraet_Supply_ZuordnungDataTable = CType(MyBase.Clone,VWGeraet_Supply_ZuordnungDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWGeraet_Supply_ZuordnungDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnGERAET_BEZ = MyBase.Columns("GERAET_BEZ") + Me.columnSUPPLY_BEZ = MyBase.Columns("SUPPLY_BEZ") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + Me.columnPARTNUMBER_ORDER = MyBase.Columns("PARTNUMBER_ORDER") + Me.columnSCHWELLENWERT = MyBase.Columns("SCHWELLENWERT") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnGERAET_BEZ = New Global.System.Data.DataColumn("GERAET_BEZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_BEZ) + Me.columnSUPPLY_BEZ = New Global.System.Data.DataColumn("SUPPLY_BEZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_BEZ) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnPARTNUMBER_ORDER = New Global.System.Data.DataColumn("PARTNUMBER_ORDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER_ORDER) + Me.columnSCHWELLENWERT = New Global.System.Data.DataColumn("SCHWELLENWERT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCHWELLENWERT) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnGERAET_BEZ.AllowDBNull = false + Me.columnGERAET_BEZ.MaxLength = 50 + Me.columnSUPPLY_BEZ.AllowDBNull = false + Me.columnSUPPLY_BEZ.MaxLength = 50 + Me.columnPARTNUMBER.AllowDBNull = false + Me.columnPARTNUMBER.MaxLength = 30 + Me.columnPARTNUMBER_ORDER.AllowDBNull = false + Me.columnPARTNUMBER_ORDER.MaxLength = 30 + Me.columnSCHWELLENWERT.AllowDBNull = false + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnERFASSTWANN.AllowDBNull = false + End Sub + + _ + Public Function NewVWGeraet_Supply_ZuordnungRow() As VWGeraet_Supply_ZuordnungRow + Return CType(Me.NewRow,VWGeraet_Supply_ZuordnungRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWGeraet_Supply_ZuordnungRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWGeraet_Supply_ZuordnungRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWGeraet_Supply_ZuordnungRowChangedEvent) Is Nothing) Then + RaiseEvent VWGeraet_Supply_ZuordnungRowChanged(Me, New VWGeraet_Supply_ZuordnungRowChangeEvent(CType(e.Row,VWGeraet_Supply_ZuordnungRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWGeraet_Supply_ZuordnungRowChangingEvent) Is Nothing) Then + RaiseEvent VWGeraet_Supply_ZuordnungRowChanging(Me, New VWGeraet_Supply_ZuordnungRowChangeEvent(CType(e.Row,VWGeraet_Supply_ZuordnungRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWGeraet_Supply_ZuordnungRowDeletedEvent) Is Nothing) Then + RaiseEvent VWGeraet_Supply_ZuordnungRowDeleted(Me, New VWGeraet_Supply_ZuordnungRowChangeEvent(CType(e.Row,VWGeraet_Supply_ZuordnungRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWGeraet_Supply_ZuordnungRowDeletingEvent) Is Nothing) Then + RaiseEvent VWGeraet_Supply_ZuordnungRowDeleting(Me, New VWGeraet_Supply_ZuordnungRowChangeEvent(CType(e.Row,VWGeraet_Supply_ZuordnungRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWGeraet_Supply_ZuordnungRow(ByVal row As VWGeraet_Supply_ZuordnungRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWGeraet_Supply_ZuordnungDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBUSER_RECHTEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBUSER_RECHTERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnUSR_NAME As Global.System.Data.DataColumn + + Private columnEINLESEN As Global.System.Data.DataColumn + + Private columnKONGIGURATION As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBUSER_RECHTE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property USR_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSR_NAME + End Get + End Property + + _ + Public ReadOnly Property EINLESENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEINLESEN + End Get + End Property + + _ + Public ReadOnly Property KONGIGURATIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKONGIGURATION + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBUSER_RECHTERow + Get + Return CType(Me.Rows(index),TBUSER_RECHTERow) + End Get + End Property + + _ + Public Event TBUSER_RECHTERowChanging As TBUSER_RECHTERowChangeEventHandler + + _ + Public Event TBUSER_RECHTERowChanged As TBUSER_RECHTERowChangeEventHandler + + _ + Public Event TBUSER_RECHTERowDeleting As TBUSER_RECHTERowChangeEventHandler + + _ + Public Event TBUSER_RECHTERowDeleted As TBUSER_RECHTERowChangeEventHandler + + _ + Public Overloads Sub AddTBUSER_RECHTERow(ByVal row As TBUSER_RECHTERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBUSER_RECHTERow(ByVal USR_NAME As String, ByVal EINLESEN As Boolean, ByVal KONGIGURATION As Boolean, ByVal ERFASSTWER As String, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBUSER_RECHTERow + Dim rowTBUSER_RECHTERow As TBUSER_RECHTERow = CType(Me.NewRow,TBUSER_RECHTERow) + Dim columnValuesArray() As Object = New Object() {Nothing, USR_NAME, EINLESEN, KONGIGURATION, ERFASSTWER, GEAENDERTWER, GEAENDERTWANN} + rowTBUSER_RECHTERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBUSER_RECHTERow) + Return rowTBUSER_RECHTERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBUSER_RECHTERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBUSER_RECHTERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBUSER_RECHTEDataTable = CType(MyBase.Clone,TBUSER_RECHTEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBUSER_RECHTEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnUSR_NAME = MyBase.Columns("USR_NAME") + Me.columnEINLESEN = MyBase.Columns("EINLESEN") + Me.columnKONGIGURATION = MyBase.Columns("KONGIGURATION") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnUSR_NAME = New Global.System.Data.DataColumn("USR_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSR_NAME) + Me.columnEINLESEN = New Global.System.Data.DataColumn("EINLESEN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEINLESEN) + Me.columnKONGIGURATION = New Global.System.Data.DataColumn("KONGIGURATION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKONGIGURATION) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnUSR_NAME.AllowDBNull = false + Me.columnUSR_NAME.MaxLength = 50 + Me.columnEINLESEN.AllowDBNull = false + Me.columnKONGIGURATION.AllowDBNull = false + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnGEAENDERTWER.MaxLength = 30 + End Sub + + _ + Public Function NewTBUSER_RECHTERow() As TBUSER_RECHTERow + Return CType(Me.NewRow,TBUSER_RECHTERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBUSER_RECHTERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBUSER_RECHTERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBUSER_RECHTERowChangedEvent) Is Nothing) Then + RaiseEvent TBUSER_RECHTERowChanged(Me, New TBUSER_RECHTERowChangeEvent(CType(e.Row,TBUSER_RECHTERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBUSER_RECHTERowChangingEvent) Is Nothing) Then + RaiseEvent TBUSER_RECHTERowChanging(Me, New TBUSER_RECHTERowChangeEvent(CType(e.Row,TBUSER_RECHTERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBUSER_RECHTERowDeletedEvent) Is Nothing) Then + RaiseEvent TBUSER_RECHTERowDeleted(Me, New TBUSER_RECHTERowChangeEvent(CType(e.Row,TBUSER_RECHTERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBUSER_RECHTERowDeletingEvent) Is Nothing) Then + RaiseEvent TBUSER_RECHTERowDeleting(Me, New TBUSER_RECHTERowChangeEvent(CType(e.Row,TBUSER_RECHTERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBUSER_RECHTERow(ByVal row As TBUSER_RECHTERow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBUSER_RECHTEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBMELDEDATUMDataTable + Inherits Global.System.Data.TypedTableBase(Of TBMELDEDATUMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnMELDEDATUM As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnTIMESTAMP1 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBMELDEDATUM" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMELDEDATUM + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property TIMESTAMP1Column() As Global.System.Data.DataColumn + Get + Return Me.columnTIMESTAMP1 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBMELDEDATUMRow + Get + Return CType(Me.Rows(index),TBMELDEDATUMRow) + End Get + End Property + + _ + Public Event TBMELDEDATUMRowChanging As TBMELDEDATUMRowChangeEventHandler + + _ + Public Event TBMELDEDATUMRowChanged As TBMELDEDATUMRowChangeEventHandler + + _ + Public Event TBMELDEDATUMRowDeleting As TBMELDEDATUMRowChangeEventHandler + + _ + Public Event TBMELDEDATUMRowDeleted As TBMELDEDATUMRowChangeEventHandler + + _ + Public Overloads Sub AddTBMELDEDATUMRow(ByVal row As TBMELDEDATUMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBMELDEDATUMRow(ByVal MELDEDATUM As String, ByVal MARKT As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal TIMESTAMP1() As Byte) As TBMELDEDATUMRow + Dim rowTBMELDEDATUMRow As TBMELDEDATUMRow = CType(Me.NewRow,TBMELDEDATUMRow) + Dim columnValuesArray() As Object = New Object() {Nothing, MELDEDATUM, MARKT, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, TIMESTAMP1} + rowTBMELDEDATUMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBMELDEDATUMRow) + Return rowTBMELDEDATUMRow + End Function + + _ + Public Function FindByMELDEDATUMMARKT(ByVal MELDEDATUM As String, ByVal MARKT As String) As TBMELDEDATUMRow + Return CType(Me.Rows.Find(New Object() {MELDEDATUM, MARKT}),TBMELDEDATUMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBMELDEDATUMDataTable = CType(MyBase.Clone,TBMELDEDATUMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBMELDEDATUMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnMELDEDATUM = MyBase.Columns("MELDEDATUM") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnTIMESTAMP1 = MyBase.Columns("TIMESTAMP1") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnMELDEDATUM = New Global.System.Data.DataColumn("MELDEDATUM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMELDEDATUM) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnTIMESTAMP1 = New Global.System.Data.DataColumn("TIMESTAMP1", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTIMESTAMP1) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMELDEDATUM, Me.columnMARKT}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnMELDEDATUM.AllowDBNull = false + Me.columnMELDEDATUM.MaxLength = 10 + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnGEANDERTWER.MaxLength = 30 + Me.columnTIMESTAMP1.ReadOnly = true + End Sub + + _ + Public Function NewTBMELDEDATUMRow() As TBMELDEDATUMRow + Return CType(Me.NewRow,TBMELDEDATUMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBMELDEDATUMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBMELDEDATUMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBMELDEDATUMRowChangedEvent) Is Nothing) Then + RaiseEvent TBMELDEDATUMRowChanged(Me, New TBMELDEDATUMRowChangeEvent(CType(e.Row,TBMELDEDATUMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBMELDEDATUMRowChangingEvent) Is Nothing) Then + RaiseEvent TBMELDEDATUMRowChanging(Me, New TBMELDEDATUMRowChangeEvent(CType(e.Row,TBMELDEDATUMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBMELDEDATUMRowDeletedEvent) Is Nothing) Then + RaiseEvent TBMELDEDATUMRowDeleted(Me, New TBMELDEDATUMRowChangeEvent(CType(e.Row,TBMELDEDATUMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBMELDEDATUMRowDeletingEvent) Is Nothing) Then + RaiseEvent TBMELDEDATUMRowDeleting(Me, New TBMELDEDATUMRowChangeEvent(CType(e.Row,TBMELDEDATUMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBMELDEDATUMRow(ByVal row As TBMELDEDATUMRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBMELDEDATUMDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBGERAETE_VERFOLGUNGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBGERAETE_VERFOLGUNGRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnGERAETE_ID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnIP_ADRESSE As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnPAGE_COUNT As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnDATEINAME As Global.System.Data.DataColumn + + Private columnMELDEDATUM As Global.System.Data.DataColumn + + Private columnVERTRAG As Global.System.Data.DataColumn + + Private columnNOTINLIST As Global.System.Data.DataColumn + + Private columnMODEL_NR As Global.System.Data.DataColumn + + Private columnDOPPELT_GEMELDET As Global.System.Data.DataColumn + + Private columnNO_SERIENNR As Global.System.Data.DataColumn + + Private columnA3DuplexSheets As Global.System.Data.DataColumn + + Private columnA3SimplexSheets As Global.System.Data.DataColumn + + Private columnA4DuplexSheets As Global.System.Data.DataColumn + + Private columnA4SimplexSheets As Global.System.Data.DataColumn + + Private columnA3ColorTotalImpressions As Global.System.Data.DataColumn + + Private columnA3MonoTotalImpressions As Global.System.Data.DataColumn + + Private columnA4MonoTotalImpressions As Global.System.Data.DataColumn + + Private columnA4ColorTotalImpressions As Global.System.Data.DataColumn + + Private columnAverageBlackCoverage As Global.System.Data.DataColumn + + Private columnAverageCyanCoverage As Global.System.Data.DataColumn + + Private columnAverageMagentaCoverage As Global.System.Data.DataColumn + + Private columnAverageYellowCoverage As Global.System.Data.DataColumn + + Private columnScanA3Total As Global.System.Data.DataColumn + + Private columnScanA4Total As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBGERAETE_VERFOLGUNG" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property GERAETE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAETE_ID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property IP_ADRESSEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIP_ADRESSE + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property PAGE_COUNTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPAGE_COUNT + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property DATEINAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATEINAME + End Get + End Property + + _ + Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMELDEDATUM + End Get + End Property + + _ + Public ReadOnly Property VERTRAGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAG + End Get + End Property + + _ + Public ReadOnly Property NOTINLISTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNOTINLIST + End Get + End Property + + _ + Public ReadOnly Property MODEL_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODEL_NR + End Get + End Property + + _ + Public ReadOnly Property DOPPELT_GEMELDETColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOPPELT_GEMELDET + End Get + End Property + + _ + Public ReadOnly Property NO_SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNO_SERIENNR + End Get + End Property + + _ + Public ReadOnly Property A3DuplexSheetsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnA3DuplexSheets + End Get + End Property + + _ + Public ReadOnly Property A3SimplexSheetsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnA3SimplexSheets + End Get + End Property + + _ + Public ReadOnly Property A4DuplexSheetsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnA4DuplexSheets + End Get + End Property + + _ + Public ReadOnly Property A4SimplexSheetsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnA4SimplexSheets + End Get + End Property + + _ + Public ReadOnly Property A3ColorTotalImpressionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnA3ColorTotalImpressions + End Get + End Property + + _ + Public ReadOnly Property A3MonoTotalImpressionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnA3MonoTotalImpressions + End Get + End Property + + _ + Public ReadOnly Property A4MonoTotalImpressionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnA4MonoTotalImpressions + End Get + End Property + + _ + Public ReadOnly Property A4ColorTotalImpressionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnA4ColorTotalImpressions + End Get + End Property + + _ + Public ReadOnly Property AverageBlackCoverageColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAverageBlackCoverage + End Get + End Property + + _ + Public ReadOnly Property AverageCyanCoverageColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAverageCyanCoverage + End Get + End Property + + _ + Public ReadOnly Property AverageMagentaCoverageColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAverageMagentaCoverage + End Get + End Property + + _ + Public ReadOnly Property AverageYellowCoverageColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAverageYellowCoverage + End Get + End Property + + _ + Public ReadOnly Property ScanA3TotalColumn() As Global.System.Data.DataColumn + Get + Return Me.columnScanA3Total + End Get + End Property + + _ + Public ReadOnly Property ScanA4TotalColumn() As Global.System.Data.DataColumn + Get + Return Me.columnScanA4Total + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBGERAETE_VERFOLGUNGRow + Get + Return CType(Me.Rows(index),TBGERAETE_VERFOLGUNGRow) + End Get + End Property + + _ + Public Event TBGERAETE_VERFOLGUNGRowChanging As TBGERAETE_VERFOLGUNGRowChangeEventHandler + + _ + Public Event TBGERAETE_VERFOLGUNGRowChanged As TBGERAETE_VERFOLGUNGRowChangeEventHandler + + _ + Public Event TBGERAETE_VERFOLGUNGRowDeleting As TBGERAETE_VERFOLGUNGRowChangeEventHandler + + _ + Public Event TBGERAETE_VERFOLGUNGRowDeleted As TBGERAETE_VERFOLGUNGRowChangeEventHandler + + _ + Public Overloads Sub AddTBGERAETE_VERFOLGUNGRow(ByVal row As TBGERAETE_VERFOLGUNGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBGERAETE_VERFOLGUNGRow( _ + ByVal GERAETE_ID As Integer, _ + ByVal BEZEICHNUNG As String, _ + ByVal IP_ADRESSE As String, _ + ByVal SERIENNR As String, _ + ByVal PAGE_COUNT As Integer, _ + ByVal MARKT As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal DATEINAME As String, _ + ByVal MELDEDATUM As String, _ + ByVal VERTRAG As String, _ + ByVal NOTINLIST As Boolean, _ + ByVal MODEL_NR As String, _ + ByVal DOPPELT_GEMELDET As Boolean, _ + ByVal NO_SERIENNR As Boolean, _ + ByVal A3DuplexSheets As Integer, _ + ByVal A3SimplexSheets As Integer, _ + ByVal A4DuplexSheets As Integer, _ + ByVal A4SimplexSheets As Integer, _ + ByVal A3ColorTotalImpressions As Integer, _ + ByVal A3MonoTotalImpressions As Integer, _ + ByVal A4MonoTotalImpressions As Integer, _ + ByVal A4ColorTotalImpressions As Integer, _ + ByVal AverageBlackCoverage As Decimal, _ + ByVal AverageCyanCoverage As Decimal, _ + ByVal AverageMagentaCoverage As Decimal, _ + ByVal AverageYellowCoverage As Decimal, _ + ByVal ScanA3Total As Integer, _ + ByVal ScanA4Total As Integer) As TBGERAETE_VERFOLGUNGRow + Dim rowTBGERAETE_VERFOLGUNGRow As TBGERAETE_VERFOLGUNGRow = CType(Me.NewRow,TBGERAETE_VERFOLGUNGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, GERAETE_ID, BEZEICHNUNG, IP_ADRESSE, SERIENNR, PAGE_COUNT, MARKT, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, DATEINAME, MELDEDATUM, VERTRAG, NOTINLIST, MODEL_NR, DOPPELT_GEMELDET, NO_SERIENNR, A3DuplexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, A3ColorTotalImpressions, A3MonoTotalImpressions, A4MonoTotalImpressions, A4ColorTotalImpressions, AverageBlackCoverage, AverageCyanCoverage, AverageMagentaCoverage, AverageYellowCoverage, ScanA3Total, ScanA4Total} + rowTBGERAETE_VERFOLGUNGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBGERAETE_VERFOLGUNGRow) + Return rowTBGERAETE_VERFOLGUNGRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBGERAETE_VERFOLGUNGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBGERAETE_VERFOLGUNGRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBGERAETE_VERFOLGUNGDataTable = CType(MyBase.Clone,TBGERAETE_VERFOLGUNGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBGERAETE_VERFOLGUNGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnGERAETE_ID = MyBase.Columns("GERAETE_ID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnIP_ADRESSE = MyBase.Columns("IP_ADRESSE") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnPAGE_COUNT = MyBase.Columns("PAGE_COUNT") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnDATEINAME = MyBase.Columns("DATEINAME") + Me.columnMELDEDATUM = MyBase.Columns("MELDEDATUM") + Me.columnVERTRAG = MyBase.Columns("VERTRAG") + Me.columnNOTINLIST = MyBase.Columns("NOTINLIST") + Me.columnMODEL_NR = MyBase.Columns("MODEL_NR") + Me.columnDOPPELT_GEMELDET = MyBase.Columns("DOPPELT_GEMELDET") + Me.columnNO_SERIENNR = MyBase.Columns("NO_SERIENNR") + Me.columnA3DuplexSheets = MyBase.Columns("A3DuplexSheets") + Me.columnA3SimplexSheets = MyBase.Columns("A3SimplexSheets") + Me.columnA4DuplexSheets = MyBase.Columns("A4DuplexSheets") + Me.columnA4SimplexSheets = MyBase.Columns("A4SimplexSheets") + Me.columnA3ColorTotalImpressions = MyBase.Columns("A3ColorTotalImpressions") + Me.columnA3MonoTotalImpressions = MyBase.Columns("A3MonoTotalImpressions") + Me.columnA4MonoTotalImpressions = MyBase.Columns("A4MonoTotalImpressions") + Me.columnA4ColorTotalImpressions = MyBase.Columns("A4ColorTotalImpressions") + Me.columnAverageBlackCoverage = MyBase.Columns("AverageBlackCoverage") + Me.columnAverageCyanCoverage = MyBase.Columns("AverageCyanCoverage") + Me.columnAverageMagentaCoverage = MyBase.Columns("AverageMagentaCoverage") + Me.columnAverageYellowCoverage = MyBase.Columns("AverageYellowCoverage") + Me.columnScanA3Total = MyBase.Columns("ScanA3Total") + Me.columnScanA4Total = MyBase.Columns("ScanA4Total") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnGERAETE_ID = New Global.System.Data.DataColumn("GERAETE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAETE_ID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnIP_ADRESSE = New Global.System.Data.DataColumn("IP_ADRESSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIP_ADRESSE) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnPAGE_COUNT = New Global.System.Data.DataColumn("PAGE_COUNT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPAGE_COUNT) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnDATEINAME = New Global.System.Data.DataColumn("DATEINAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATEINAME) + Me.columnMELDEDATUM = New Global.System.Data.DataColumn("MELDEDATUM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMELDEDATUM) + Me.columnVERTRAG = New Global.System.Data.DataColumn("VERTRAG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAG) + Me.columnNOTINLIST = New Global.System.Data.DataColumn("NOTINLIST", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNOTINLIST) + Me.columnMODEL_NR = New Global.System.Data.DataColumn("MODEL_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODEL_NR) + Me.columnDOPPELT_GEMELDET = New Global.System.Data.DataColumn("DOPPELT_GEMELDET", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOPPELT_GEMELDET) + Me.columnNO_SERIENNR = New Global.System.Data.DataColumn("NO_SERIENNR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNO_SERIENNR) + Me.columnA3DuplexSheets = New Global.System.Data.DataColumn("A3DuplexSheets", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnA3DuplexSheets) + Me.columnA3SimplexSheets = New Global.System.Data.DataColumn("A3SimplexSheets", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnA3SimplexSheets) + Me.columnA4DuplexSheets = New Global.System.Data.DataColumn("A4DuplexSheets", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnA4DuplexSheets) + Me.columnA4SimplexSheets = New Global.System.Data.DataColumn("A4SimplexSheets", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnA4SimplexSheets) + Me.columnA3ColorTotalImpressions = New Global.System.Data.DataColumn("A3ColorTotalImpressions", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnA3ColorTotalImpressions) + Me.columnA3MonoTotalImpressions = New Global.System.Data.DataColumn("A3MonoTotalImpressions", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnA3MonoTotalImpressions) + Me.columnA4MonoTotalImpressions = New Global.System.Data.DataColumn("A4MonoTotalImpressions", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnA4MonoTotalImpressions) + Me.columnA4ColorTotalImpressions = New Global.System.Data.DataColumn("A4ColorTotalImpressions", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnA4ColorTotalImpressions) + Me.columnAverageBlackCoverage = New Global.System.Data.DataColumn("AverageBlackCoverage", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAverageBlackCoverage) + Me.columnAverageCyanCoverage = New Global.System.Data.DataColumn("AverageCyanCoverage", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAverageCyanCoverage) + Me.columnAverageMagentaCoverage = New Global.System.Data.DataColumn("AverageMagentaCoverage", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAverageMagentaCoverage) + Me.columnAverageYellowCoverage = New Global.System.Data.DataColumn("AverageYellowCoverage", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAverageYellowCoverage) + Me.columnScanA3Total = New Global.System.Data.DataColumn("ScanA3Total", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnScanA3Total) + Me.columnScanA4Total = New Global.System.Data.DataColumn("ScanA4Total", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnScanA4Total) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnIP_ADRESSE.MaxLength = 30 + Me.columnSERIENNR.AllowDBNull = false + Me.columnSERIENNR.MaxLength = 50 + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnGEAENDERTWANN.AllowDBNull = false + Me.columnDATEINAME.MaxLength = 300 + Me.columnMELDEDATUM.MaxLength = 10 + Me.columnVERTRAG.MaxLength = 30 + Me.columnNOTINLIST.AllowDBNull = false + Me.columnMODEL_NR.MaxLength = 30 + Me.columnDOPPELT_GEMELDET.AllowDBNull = false + Me.columnNO_SERIENNR.AllowDBNull = false + End Sub + + _ + Public Function NewTBGERAETE_VERFOLGUNGRow() As TBGERAETE_VERFOLGUNGRow + Return CType(Me.NewRow,TBGERAETE_VERFOLGUNGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBGERAETE_VERFOLGUNGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBGERAETE_VERFOLGUNGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBGERAETE_VERFOLGUNGRowChangedEvent) Is Nothing) Then + RaiseEvent TBGERAETE_VERFOLGUNGRowChanged(Me, New TBGERAETE_VERFOLGUNGRowChangeEvent(CType(e.Row,TBGERAETE_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBGERAETE_VERFOLGUNGRowChangingEvent) Is Nothing) Then + RaiseEvent TBGERAETE_VERFOLGUNGRowChanging(Me, New TBGERAETE_VERFOLGUNGRowChangeEvent(CType(e.Row,TBGERAETE_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBGERAETE_VERFOLGUNGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBGERAETE_VERFOLGUNGRowDeleted(Me, New TBGERAETE_VERFOLGUNGRowChangeEvent(CType(e.Row,TBGERAETE_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBGERAETE_VERFOLGUNGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBGERAETE_VERFOLGUNGRowDeleting(Me, New TBGERAETE_VERFOLGUNGRowChangeEvent(CType(e.Row,TBGERAETE_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBGERAETE_VERFOLGUNGRow(ByVal row As TBGERAETE_VERFOLGUNGRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBGERAETE_VERFOLGUNGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWMarkt_VerfolgungDataTable + Inherits Global.System.Data.TypedTableBase(Of VWMarkt_VerfolgungRow) + + Private columnGERAETE_ID As Global.System.Data.DataColumn + + Private columnDEVICE As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnPAGE_MIN As Global.System.Data.DataColumn + + Private columnPAGE_MAX As Global.System.Data.DataColumn + + Private columnDRUCKSEITEN As Global.System.Data.DataColumn + + Private columnLETZTES_MELDEDATUM As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWMarkt_Verfolgung" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GERAETE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAETE_ID + End Get + End Property + + _ + Public ReadOnly Property DEVICEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEVICE + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property PAGE_MINColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPAGE_MIN + End Get + End Property + + _ + Public ReadOnly Property PAGE_MAXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPAGE_MAX + End Get + End Property + + _ + Public ReadOnly Property DRUCKSEITENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDRUCKSEITEN + End Get + End Property + + _ + Public ReadOnly Property LETZTES_MELDEDATUMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLETZTES_MELDEDATUM + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWMarkt_VerfolgungRow + Get + Return CType(Me.Rows(index),VWMarkt_VerfolgungRow) + End Get + End Property + + _ + Public Event VWMarkt_VerfolgungRowChanging As VWMarkt_VerfolgungRowChangeEventHandler + + _ + Public Event VWMarkt_VerfolgungRowChanged As VWMarkt_VerfolgungRowChangeEventHandler + + _ + Public Event VWMarkt_VerfolgungRowDeleting As VWMarkt_VerfolgungRowChangeEventHandler + + _ + Public Event VWMarkt_VerfolgungRowDeleted As VWMarkt_VerfolgungRowChangeEventHandler + + _ + Public Overloads Sub AddVWMarkt_VerfolgungRow(ByVal row As VWMarkt_VerfolgungRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWMarkt_VerfolgungRow(ByVal GERAETE_ID As Integer, ByVal DEVICE As String, ByVal SERIENNR As String, ByVal PAGE_MIN As Integer, ByVal PAGE_MAX As Integer, ByVal DRUCKSEITEN As Integer, ByVal LETZTES_MELDEDATUM As Date, ByVal MARKT As String) As VWMarkt_VerfolgungRow + Dim rowVWMarkt_VerfolgungRow As VWMarkt_VerfolgungRow = CType(Me.NewRow,VWMarkt_VerfolgungRow) + Dim columnValuesArray() As Object = New Object() {GERAETE_ID, DEVICE, SERIENNR, PAGE_MIN, PAGE_MAX, DRUCKSEITEN, LETZTES_MELDEDATUM, MARKT} + rowVWMarkt_VerfolgungRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWMarkt_VerfolgungRow) + Return rowVWMarkt_VerfolgungRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWMarkt_VerfolgungDataTable = CType(MyBase.Clone,VWMarkt_VerfolgungDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWMarkt_VerfolgungDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGERAETE_ID = MyBase.Columns("GERAETE_ID") + Me.columnDEVICE = MyBase.Columns("DEVICE") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnPAGE_MIN = MyBase.Columns("PAGE_MIN") + Me.columnPAGE_MAX = MyBase.Columns("PAGE_MAX") + Me.columnDRUCKSEITEN = MyBase.Columns("DRUCKSEITEN") + Me.columnLETZTES_MELDEDATUM = MyBase.Columns("LETZTES_MELDEDATUM") + Me.columnMARKT = MyBase.Columns("MARKT") + End Sub + + _ + Private Sub InitClass() + Me.columnGERAETE_ID = New Global.System.Data.DataColumn("GERAETE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAETE_ID) + Me.columnDEVICE = New Global.System.Data.DataColumn("DEVICE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEVICE) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnPAGE_MIN = New Global.System.Data.DataColumn("PAGE_MIN", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPAGE_MIN) + Me.columnPAGE_MAX = New Global.System.Data.DataColumn("PAGE_MAX", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPAGE_MAX) + Me.columnDRUCKSEITEN = New Global.System.Data.DataColumn("DRUCKSEITEN", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDRUCKSEITEN) + Me.columnLETZTES_MELDEDATUM = New Global.System.Data.DataColumn("LETZTES_MELDEDATUM", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLETZTES_MELDEDATUM) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnDEVICE.ReadOnly = true + Me.columnDEVICE.MaxLength = 100 + Me.columnSERIENNR.AllowDBNull = false + Me.columnSERIENNR.MaxLength = 50 + Me.columnPAGE_MIN.ReadOnly = true + Me.columnPAGE_MAX.ReadOnly = true + Me.columnDRUCKSEITEN.ReadOnly = true + Me.columnLETZTES_MELDEDATUM.ReadOnly = true + Me.columnMARKT.ReadOnly = true + Me.columnMARKT.MaxLength = 8000 + End Sub + + _ + Public Function NewVWMarkt_VerfolgungRow() As VWMarkt_VerfolgungRow + Return CType(Me.NewRow,VWMarkt_VerfolgungRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWMarkt_VerfolgungRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWMarkt_VerfolgungRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWMarkt_VerfolgungRowChangedEvent) Is Nothing) Then + RaiseEvent VWMarkt_VerfolgungRowChanged(Me, New VWMarkt_VerfolgungRowChangeEvent(CType(e.Row,VWMarkt_VerfolgungRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWMarkt_VerfolgungRowChangingEvent) Is Nothing) Then + RaiseEvent VWMarkt_VerfolgungRowChanging(Me, New VWMarkt_VerfolgungRowChangeEvent(CType(e.Row,VWMarkt_VerfolgungRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWMarkt_VerfolgungRowDeletedEvent) Is Nothing) Then + RaiseEvent VWMarkt_VerfolgungRowDeleted(Me, New VWMarkt_VerfolgungRowChangeEvent(CType(e.Row,VWMarkt_VerfolgungRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWMarkt_VerfolgungRowDeletingEvent) Is Nothing) Then + RaiseEvent VWMarkt_VerfolgungRowDeleting(Me, New VWMarkt_VerfolgungRowChangeEvent(CType(e.Row,VWMarkt_VerfolgungRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWMarkt_VerfolgungRow(ByVal row As VWMarkt_VerfolgungRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWMarkt_VerfolgungDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWGERAETE_VERFOLGUNGDataTable + Inherits Global.System.Data.TypedTableBase(Of VWGERAETE_VERFOLGUNGRow) + + Private columnMODELL As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnPC_INITIAL As Global.System.Data.DataColumn + + Private columnPAGE_COUNT As Global.System.Data.DataColumn + + Private columnPPM As Global.System.Data.DataColumn + + Private columnMELDEDATUM As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnDATEINAME As Global.System.Data.DataColumn + + Private columnIP_ADRESSE As Global.System.Data.DataColumn + + Private columnDATE_INITIAL As Global.System.Data.DataColumn + + Private columnGERAETE_ID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWGERAETE_VERFOLGUNG" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property MODELLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODELL + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property PC_INITIALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPC_INITIAL + End Get + End Property + + _ + Public ReadOnly Property PAGE_COUNTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPAGE_COUNT + End Get + End Property + + _ + Public ReadOnly Property PPMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPPM + End Get + End Property + + _ + Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMELDEDATUM + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property DATEINAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATEINAME + End Get + End Property + + _ + Public ReadOnly Property IP_ADRESSEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIP_ADRESSE + End Get + End Property + + _ + Public ReadOnly Property DATE_INITIALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATE_INITIAL + End Get + End Property + + _ + Public ReadOnly Property GERAETE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAETE_ID + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWGERAETE_VERFOLGUNGRow + Get + Return CType(Me.Rows(index),VWGERAETE_VERFOLGUNGRow) + End Get + End Property + + _ + Public Event VWGERAETE_VERFOLGUNGRowChanging As VWGERAETE_VERFOLGUNGRowChangeEventHandler + + _ + Public Event VWGERAETE_VERFOLGUNGRowChanged As VWGERAETE_VERFOLGUNGRowChangeEventHandler + + _ + Public Event VWGERAETE_VERFOLGUNGRowDeleting As VWGERAETE_VERFOLGUNGRowChangeEventHandler + + _ + Public Event VWGERAETE_VERFOLGUNGRowDeleted As VWGERAETE_VERFOLGUNGRowChangeEventHandler + + _ + Public Overloads Sub AddVWGERAETE_VERFOLGUNGRow(ByVal row As VWGERAETE_VERFOLGUNGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWGERAETE_VERFOLGUNGRow(ByVal MODELL As String, ByVal MARKT As String, ByVal SERIENNR As String, ByVal PC_INITIAL As Integer, ByVal PAGE_COUNT As Integer, ByVal PPM As Double, ByVal MELDEDATUM As Date, ByVal ERFASSTWANN As Date, ByVal DATEINAME As String, ByVal IP_ADRESSE As String, ByVal DATE_INITIAL As Date, ByVal GERAETE_ID As Integer) As VWGERAETE_VERFOLGUNGRow + Dim rowVWGERAETE_VERFOLGUNGRow As VWGERAETE_VERFOLGUNGRow = CType(Me.NewRow,VWGERAETE_VERFOLGUNGRow) + Dim columnValuesArray() As Object = New Object() {MODELL, MARKT, SERIENNR, PC_INITIAL, PAGE_COUNT, PPM, MELDEDATUM, ERFASSTWANN, DATEINAME, IP_ADRESSE, DATE_INITIAL, GERAETE_ID} + rowVWGERAETE_VERFOLGUNGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWGERAETE_VERFOLGUNGRow) + Return rowVWGERAETE_VERFOLGUNGRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWGERAETE_VERFOLGUNGDataTable = CType(MyBase.Clone,VWGERAETE_VERFOLGUNGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWGERAETE_VERFOLGUNGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnMODELL = MyBase.Columns("MODELL") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnPC_INITIAL = MyBase.Columns("PC_INITIAL") + Me.columnPAGE_COUNT = MyBase.Columns("PAGE_COUNT") + Me.columnPPM = MyBase.Columns("PPM") + Me.columnMELDEDATUM = MyBase.Columns("MELDEDATUM") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnDATEINAME = MyBase.Columns("DATEINAME") + Me.columnIP_ADRESSE = MyBase.Columns("IP_ADRESSE") + Me.columnDATE_INITIAL = MyBase.Columns("DATE_INITIAL") + Me.columnGERAETE_ID = MyBase.Columns("GERAETE_ID") + End Sub + + _ + Private Sub InitClass() + Me.columnMODELL = New Global.System.Data.DataColumn("MODELL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODELL) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnPC_INITIAL = New Global.System.Data.DataColumn("PC_INITIAL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPC_INITIAL) + Me.columnPAGE_COUNT = New Global.System.Data.DataColumn("PAGE_COUNT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPAGE_COUNT) + Me.columnPPM = New Global.System.Data.DataColumn("PPM", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPPM) + Me.columnMELDEDATUM = New Global.System.Data.DataColumn("MELDEDATUM", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMELDEDATUM) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnDATEINAME = New Global.System.Data.DataColumn("DATEINAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATEINAME) + Me.columnIP_ADRESSE = New Global.System.Data.DataColumn("IP_ADRESSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIP_ADRESSE) + Me.columnDATE_INITIAL = New Global.System.Data.DataColumn("DATE_INITIAL", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATE_INITIAL) + Me.columnGERAETE_ID = New Global.System.Data.DataColumn("GERAETE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAETE_ID) + Me.columnMODELL.MaxLength = 100 + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnSERIENNR.AllowDBNull = false + Me.columnSERIENNR.MaxLength = 50 + Me.columnPC_INITIAL.AllowDBNull = false + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnDATEINAME.MaxLength = 300 + Me.columnIP_ADRESSE.MaxLength = 30 + End Sub + + _ + Public Function NewVWGERAETE_VERFOLGUNGRow() As VWGERAETE_VERFOLGUNGRow + Return CType(Me.NewRow,VWGERAETE_VERFOLGUNGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWGERAETE_VERFOLGUNGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWGERAETE_VERFOLGUNGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWGERAETE_VERFOLGUNGRowChangedEvent) Is Nothing) Then + RaiseEvent VWGERAETE_VERFOLGUNGRowChanged(Me, New VWGERAETE_VERFOLGUNGRowChangeEvent(CType(e.Row,VWGERAETE_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWGERAETE_VERFOLGUNGRowChangingEvent) Is Nothing) Then + RaiseEvent VWGERAETE_VERFOLGUNGRowChanging(Me, New VWGERAETE_VERFOLGUNGRowChangeEvent(CType(e.Row,VWGERAETE_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWGERAETE_VERFOLGUNGRowDeletedEvent) Is Nothing) Then + RaiseEvent VWGERAETE_VERFOLGUNGRowDeleted(Me, New VWGERAETE_VERFOLGUNGRowChangeEvent(CType(e.Row,VWGERAETE_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWGERAETE_VERFOLGUNGRowDeletingEvent) Is Nothing) Then + RaiseEvent VWGERAETE_VERFOLGUNGRowDeleting(Me, New VWGERAETE_VERFOLGUNGRowChangeEvent(CType(e.Row,VWGERAETE_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWGERAETE_VERFOLGUNGRow(ByVal row As VWGERAETE_VERFOLGUNGRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWGERAETE_VERFOLGUNGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBREFLISTE_HISTORYDataTable + Inherits Global.System.Data.TypedTableBase(Of TBREFLISTE_HISTORYRow) + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnDatum As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBREFLISTE_HISTORY" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property DatumColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDatum + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBREFLISTE_HISTORYRow + Get + Return CType(Me.Rows(index),TBREFLISTE_HISTORYRow) + End Get + End Property + + _ + Public Event TBREFLISTE_HISTORYRowChanging As TBREFLISTE_HISTORYRowChangeEventHandler + + _ + Public Event TBREFLISTE_HISTORYRowChanged As TBREFLISTE_HISTORYRowChangeEventHandler + + _ + Public Event TBREFLISTE_HISTORYRowDeleting As TBREFLISTE_HISTORYRowChangeEventHandler + + _ + Public Event TBREFLISTE_HISTORYRowDeleted As TBREFLISTE_HISTORYRowChangeEventHandler + + _ + Public Overloads Sub AddTBREFLISTE_HISTORYRow(ByVal row As TBREFLISTE_HISTORYRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBREFLISTE_HISTORYRow(ByVal ERFASSTWER As String, ByVal Datum As Date) As TBREFLISTE_HISTORYRow + Dim rowTBREFLISTE_HISTORYRow As TBREFLISTE_HISTORYRow = CType(Me.NewRow,TBREFLISTE_HISTORYRow) + Dim columnValuesArray() As Object = New Object() {ERFASSTWER, Datum} + rowTBREFLISTE_HISTORYRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBREFLISTE_HISTORYRow) + Return rowTBREFLISTE_HISTORYRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBREFLISTE_HISTORYDataTable = CType(MyBase.Clone,TBREFLISTE_HISTORYDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBREFLISTE_HISTORYDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnDatum = MyBase.Columns("Datum") + End Sub + + _ + Private Sub InitClass() + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnDatum = New Global.System.Data.DataColumn("Datum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDatum) + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 30 + Me.columnDatum.ReadOnly = true + End Sub + + _ + Public Function NewTBREFLISTE_HISTORYRow() As TBREFLISTE_HISTORYRow + Return CType(Me.NewRow,TBREFLISTE_HISTORYRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBREFLISTE_HISTORYRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBREFLISTE_HISTORYRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBREFLISTE_HISTORYRowChangedEvent) Is Nothing) Then + RaiseEvent TBREFLISTE_HISTORYRowChanged(Me, New TBREFLISTE_HISTORYRowChangeEvent(CType(e.Row,TBREFLISTE_HISTORYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBREFLISTE_HISTORYRowChangingEvent) Is Nothing) Then + RaiseEvent TBREFLISTE_HISTORYRowChanging(Me, New TBREFLISTE_HISTORYRowChangeEvent(CType(e.Row,TBREFLISTE_HISTORYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBREFLISTE_HISTORYRowDeletedEvent) Is Nothing) Then + RaiseEvent TBREFLISTE_HISTORYRowDeleted(Me, New TBREFLISTE_HISTORYRowChangeEvent(CType(e.Row,TBREFLISTE_HISTORYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBREFLISTE_HISTORYRowDeletingEvent) Is Nothing) Then + RaiseEvent TBREFLISTE_HISTORYRowDeleting(Me, New TBREFLISTE_HISTORYRowChangeEvent(CType(e.Row,TBREFLISTE_HISTORYRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBREFLISTE_HISTORYRow(ByVal row As TBREFLISTE_HISTORYRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBREFLISTE_HISTORYDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBMANDANTENDataTable + Inherits Global.System.Data.TypedTableBase(Of TBMANDANTENRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnNAME_LANG As Global.System.Data.DataColumn + + Private columnKENNZEICHEN As Global.System.Data.DataColumn + + Private columnFLEETWATCH As Global.System.Data.DataColumn + + Private columnSUPPLYWATCH As Global.System.Data.DataColumn + + Private columnERSTELLLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnFILTER As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBMANDANTEN" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property NAME_LANGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME_LANG + End Get + End Property + + _ + Public ReadOnly Property KENNZEICHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKENNZEICHEN + End Get + End Property + + _ + Public ReadOnly Property FLEETWATCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFLEETWATCH + End Get + End Property + + _ + Public ReadOnly Property SUPPLYWATCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLYWATCH + End Get + End Property + + _ + Public ReadOnly Property ERSTELLLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property FILTERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILTER + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBMANDANTENRow + Get + Return CType(Me.Rows(index),TBMANDANTENRow) + End Get + End Property + + _ + Public Event TBMANDANTENRowChanging As TBMANDANTENRowChangeEventHandler + + _ + Public Event TBMANDANTENRowChanged As TBMANDANTENRowChangeEventHandler + + _ + Public Event TBMANDANTENRowDeleting As TBMANDANTENRowChangeEventHandler + + _ + Public Event TBMANDANTENRowDeleted As TBMANDANTENRowChangeEventHandler + + _ + Public Overloads Sub AddTBMANDANTENRow(ByVal row As TBMANDANTENRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBMANDANTENRow(ByVal NAME As String, ByVal NAME_LANG As String, ByVal KENNZEICHEN As String, ByVal FLEETWATCH As Boolean, ByVal SUPPLYWATCH As Boolean, ByVal ERSTELLLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEAENDERTWANN As Date, ByVal GEAENDERTWER As String, ByVal FILTER As String) As TBMANDANTENRow + Dim rowTBMANDANTENRow As TBMANDANTENRow = CType(Me.NewRow,TBMANDANTENRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, NAME_LANG, KENNZEICHEN, FLEETWATCH, SUPPLYWATCH, ERSTELLLTWER, ERSTELLTWANN, GEAENDERTWANN, GEAENDERTWER, FILTER} + rowTBMANDANTENRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBMANDANTENRow) + Return rowTBMANDANTENRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBMANDANTENRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBMANDANTENRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBMANDANTENDataTable = CType(MyBase.Clone,TBMANDANTENDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBMANDANTENDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnNAME_LANG = MyBase.Columns("NAME_LANG") + Me.columnKENNZEICHEN = MyBase.Columns("KENNZEICHEN") + Me.columnFLEETWATCH = MyBase.Columns("FLEETWATCH") + Me.columnSUPPLYWATCH = MyBase.Columns("SUPPLYWATCH") + Me.columnERSTELLLTWER = MyBase.Columns("ERSTELLLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnFILTER = MyBase.Columns("FILTER") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnNAME_LANG = New Global.System.Data.DataColumn("NAME_LANG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME_LANG) + Me.columnKENNZEICHEN = New Global.System.Data.DataColumn("KENNZEICHEN", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKENNZEICHEN) + Me.columnFLEETWATCH = New Global.System.Data.DataColumn("FLEETWATCH", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFLEETWATCH) + Me.columnSUPPLYWATCH = New Global.System.Data.DataColumn("SUPPLYWATCH", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLYWATCH) + Me.columnERSTELLLTWER = New Global.System.Data.DataColumn("ERSTELLLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnFILTER = New Global.System.Data.DataColumn("FILTER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILTER) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = 1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnNAME_LANG.AllowDBNull = false + Me.columnNAME_LANG.MaxLength = 100 + Me.columnKENNZEICHEN.AllowDBNull = false + Me.columnKENNZEICHEN.MaxLength = 100 + Me.columnFLEETWATCH.AllowDBNull = false + Me.columnFLEETWATCH.DefaultValue = CType(true,Boolean) + Me.columnSUPPLYWATCH.AllowDBNull = false + Me.columnSUPPLYWATCH.DefaultValue = CType(true,Boolean) + Me.columnERSTELLLTWER.AllowDBNull = false + Me.columnERSTELLLTWER.MaxLength = 30 + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnFILTER.MaxLength = 50 + End Sub + + _ + Public Function NewTBMANDANTENRow() As TBMANDANTENRow + Return CType(Me.NewRow,TBMANDANTENRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBMANDANTENRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBMANDANTENRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBMANDANTENRowChangedEvent) Is Nothing) Then + RaiseEvent TBMANDANTENRowChanged(Me, New TBMANDANTENRowChangeEvent(CType(e.Row,TBMANDANTENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBMANDANTENRowChangingEvent) Is Nothing) Then + RaiseEvent TBMANDANTENRowChanging(Me, New TBMANDANTENRowChangeEvent(CType(e.Row,TBMANDANTENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBMANDANTENRowDeletedEvent) Is Nothing) Then + RaiseEvent TBMANDANTENRowDeleted(Me, New TBMANDANTENRowChangeEvent(CType(e.Row,TBMANDANTENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBMANDANTENRowDeletingEvent) Is Nothing) Then + RaiseEvent TBMANDANTENRowDeleting(Me, New TBMANDANTENRowChangeEvent(CType(e.Row,TBMANDANTENRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBMANDANTENRow(ByVal row As TBMANDANTENRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBMANDANTENDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWSUPPLY_VERFOLGUNGDataTable + Inherits Global.System.Data.TypedTableBase(Of VWSUPPLY_VERFOLGUNGRow) + + Private columnMODELL As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnSUPPLY As Global.System.Data.DataColumn + + Private columnSUPPLY_LEVEL As Global.System.Data.DataColumn + + Private columnMELDEDATUM As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnSTATUS As Global.System.Data.DataColumn + + Private columnSUPPLY_SERIENNR As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWSUPPLY_VERFOLGUNG" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property MODELLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODELL + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property SUPPLYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_LEVEL + End Get + End Property + + _ + Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMELDEDATUM + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property STATUSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_SERIENNR + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLY_VERFOLGUNGRow + Get + Return CType(Me.Rows(index),VWSUPPLY_VERFOLGUNGRow) + End Get + End Property + + _ + Public Event VWSUPPLY_VERFOLGUNGRowChanging As VWSUPPLY_VERFOLGUNGRowChangeEventHandler + + _ + Public Event VWSUPPLY_VERFOLGUNGRowChanged As VWSUPPLY_VERFOLGUNGRowChangeEventHandler + + _ + Public Event VWSUPPLY_VERFOLGUNGRowDeleting As VWSUPPLY_VERFOLGUNGRowChangeEventHandler + + _ + Public Event VWSUPPLY_VERFOLGUNGRowDeleted As VWSUPPLY_VERFOLGUNGRowChangeEventHandler + + _ + Public Overloads Sub AddVWSUPPLY_VERFOLGUNGRow(ByVal row As VWSUPPLY_VERFOLGUNGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWSUPPLY_VERFOLGUNGRow(ByVal MODELL As String, ByVal MARKT As String, ByVal SERIENNR As String, ByVal SUPPLY As String, ByVal SUPPLY_LEVEL As Integer, ByVal MELDEDATUM As Date, ByVal ERFASSTWANN As Date, ByVal STATUS As String, ByVal SUPPLY_SERIENNR As String, ByVal PARTNUMBER As String) As VWSUPPLY_VERFOLGUNGRow + Dim rowVWSUPPLY_VERFOLGUNGRow As VWSUPPLY_VERFOLGUNGRow = CType(Me.NewRow,VWSUPPLY_VERFOLGUNGRow) + Dim columnValuesArray() As Object = New Object() {MODELL, MARKT, SERIENNR, SUPPLY, SUPPLY_LEVEL, MELDEDATUM, ERFASSTWANN, STATUS, SUPPLY_SERIENNR, PARTNUMBER} + rowVWSUPPLY_VERFOLGUNGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWSUPPLY_VERFOLGUNGRow) + Return rowVWSUPPLY_VERFOLGUNGRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWSUPPLY_VERFOLGUNGDataTable = CType(MyBase.Clone,VWSUPPLY_VERFOLGUNGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWSUPPLY_VERFOLGUNGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnMODELL = MyBase.Columns("MODELL") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnSUPPLY = MyBase.Columns("SUPPLY") + Me.columnSUPPLY_LEVEL = MyBase.Columns("SUPPLY_LEVEL") + Me.columnMELDEDATUM = MyBase.Columns("MELDEDATUM") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnSTATUS = MyBase.Columns("STATUS") + Me.columnSUPPLY_SERIENNR = MyBase.Columns("SUPPLY_SERIENNR") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + End Sub + + _ + Private Sub InitClass() + Me.columnMODELL = New Global.System.Data.DataColumn("MODELL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODELL) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnSUPPLY = New Global.System.Data.DataColumn("SUPPLY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY) + Me.columnSUPPLY_LEVEL = New Global.System.Data.DataColumn("SUPPLY_LEVEL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_LEVEL) + Me.columnMELDEDATUM = New Global.System.Data.DataColumn("MELDEDATUM", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMELDEDATUM) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnSTATUS = New Global.System.Data.DataColumn("STATUS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS) + Me.columnSUPPLY_SERIENNR = New Global.System.Data.DataColumn("SUPPLY_SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_SERIENNR) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnMODELL.MaxLength = 100 + Me.columnMARKT.MaxLength = 50 + Me.columnSERIENNR.MaxLength = 50 + Me.columnSUPPLY.MaxLength = 100 + Me.columnSUPPLY_LEVEL.AllowDBNull = false + Me.columnSUPPLY_LEVEL.DefaultValue = CType(201,Integer) + Me.columnSTATUS.MaxLength = 50 + Me.columnSUPPLY_SERIENNR.MaxLength = 50 + Me.columnPARTNUMBER.MaxLength = 30 + End Sub + + _ + Public Function NewVWSUPPLY_VERFOLGUNGRow() As VWSUPPLY_VERFOLGUNGRow + Return CType(Me.NewRow,VWSUPPLY_VERFOLGUNGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWSUPPLY_VERFOLGUNGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWSUPPLY_VERFOLGUNGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWSUPPLY_VERFOLGUNGRowChangedEvent) Is Nothing) Then + RaiseEvent VWSUPPLY_VERFOLGUNGRowChanged(Me, New VWSUPPLY_VERFOLGUNGRowChangeEvent(CType(e.Row,VWSUPPLY_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWSUPPLY_VERFOLGUNGRowChangingEvent) Is Nothing) Then + RaiseEvent VWSUPPLY_VERFOLGUNGRowChanging(Me, New VWSUPPLY_VERFOLGUNGRowChangeEvent(CType(e.Row,VWSUPPLY_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWSUPPLY_VERFOLGUNGRowDeletedEvent) Is Nothing) Then + RaiseEvent VWSUPPLY_VERFOLGUNGRowDeleted(Me, New VWSUPPLY_VERFOLGUNGRowChangeEvent(CType(e.Row,VWSUPPLY_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWSUPPLY_VERFOLGUNGRowDeletingEvent) Is Nothing) Then + RaiseEvent VWSUPPLY_VERFOLGUNGRowDeleting(Me, New VWSUPPLY_VERFOLGUNGRowChangeEvent(CType(e.Row,VWSUPPLY_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWSUPPLY_VERFOLGUNGRow(ByVal row As VWSUPPLY_VERFOLGUNGRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWSUPPLY_VERFOLGUNGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIMPORT_PRODUKTE_DUPLIKATEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIMPORT_PRODUKTE_DUPLIKATERow) + + Private columnSERIAL As Global.System.Data.DataColumn + + Private columnDUPLIKATE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIMPORT_PRODUKTE_DUPLIKATE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property SERIALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIAL + End Get + End Property + + _ + Public ReadOnly Property DUPLIKATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUPLIKATE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIMPORT_PRODUKTE_DUPLIKATERow + Get + Return CType(Me.Rows(index),TBIMPORT_PRODUKTE_DUPLIKATERow) + End Get + End Property + + _ + Public Event TBIMPORT_PRODUKTE_DUPLIKATERowChanging As TBIMPORT_PRODUKTE_DUPLIKATERowChangeEventHandler + + _ + Public Event TBIMPORT_PRODUKTE_DUPLIKATERowChanged As TBIMPORT_PRODUKTE_DUPLIKATERowChangeEventHandler + + _ + Public Event TBIMPORT_PRODUKTE_DUPLIKATERowDeleting As TBIMPORT_PRODUKTE_DUPLIKATERowChangeEventHandler + + _ + Public Event TBIMPORT_PRODUKTE_DUPLIKATERowDeleted As TBIMPORT_PRODUKTE_DUPLIKATERowChangeEventHandler + + _ + Public Overloads Sub AddTBIMPORT_PRODUKTE_DUPLIKATERow(ByVal row As TBIMPORT_PRODUKTE_DUPLIKATERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIMPORT_PRODUKTE_DUPLIKATERow(ByVal SERIAL As String, ByVal DUPLIKATE As Integer) As TBIMPORT_PRODUKTE_DUPLIKATERow + Dim rowTBIMPORT_PRODUKTE_DUPLIKATERow As TBIMPORT_PRODUKTE_DUPLIKATERow = CType(Me.NewRow,TBIMPORT_PRODUKTE_DUPLIKATERow) + Dim columnValuesArray() As Object = New Object() {SERIAL, DUPLIKATE} + rowTBIMPORT_PRODUKTE_DUPLIKATERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIMPORT_PRODUKTE_DUPLIKATERow) + Return rowTBIMPORT_PRODUKTE_DUPLIKATERow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIMPORT_PRODUKTE_DUPLIKATEDataTable = CType(MyBase.Clone,TBIMPORT_PRODUKTE_DUPLIKATEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIMPORT_PRODUKTE_DUPLIKATEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSERIAL = MyBase.Columns("SERIAL") + Me.columnDUPLIKATE = MyBase.Columns("DUPLIKATE") + End Sub + + _ + Private Sub InitClass() + Me.columnSERIAL = New Global.System.Data.DataColumn("SERIAL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIAL) + Me.columnDUPLIKATE = New Global.System.Data.DataColumn("DUPLIKATE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUPLIKATE) + Me.columnSERIAL.ReadOnly = true + Me.columnSERIAL.MaxLength = 50 + Me.columnDUPLIKATE.ReadOnly = true + End Sub + + _ + Public Function NewTBIMPORT_PRODUKTE_DUPLIKATERow() As TBIMPORT_PRODUKTE_DUPLIKATERow + Return CType(Me.NewRow,TBIMPORT_PRODUKTE_DUPLIKATERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIMPORT_PRODUKTE_DUPLIKATERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIMPORT_PRODUKTE_DUPLIKATERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIMPORT_PRODUKTE_DUPLIKATERowChangedEvent) Is Nothing) Then + RaiseEvent TBIMPORT_PRODUKTE_DUPLIKATERowChanged(Me, New TBIMPORT_PRODUKTE_DUPLIKATERowChangeEvent(CType(e.Row,TBIMPORT_PRODUKTE_DUPLIKATERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIMPORT_PRODUKTE_DUPLIKATERowChangingEvent) Is Nothing) Then + RaiseEvent TBIMPORT_PRODUKTE_DUPLIKATERowChanging(Me, New TBIMPORT_PRODUKTE_DUPLIKATERowChangeEvent(CType(e.Row,TBIMPORT_PRODUKTE_DUPLIKATERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIMPORT_PRODUKTE_DUPLIKATERowDeletedEvent) Is Nothing) Then + RaiseEvent TBIMPORT_PRODUKTE_DUPLIKATERowDeleted(Me, New TBIMPORT_PRODUKTE_DUPLIKATERowChangeEvent(CType(e.Row,TBIMPORT_PRODUKTE_DUPLIKATERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIMPORT_PRODUKTE_DUPLIKATERowDeletingEvent) Is Nothing) Then + RaiseEvent TBIMPORT_PRODUKTE_DUPLIKATERowDeleting(Me, New TBIMPORT_PRODUKTE_DUPLIKATERowChangeEvent(CType(e.Row,TBIMPORT_PRODUKTE_DUPLIKATERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIMPORT_PRODUKTE_DUPLIKATERow(ByVal row As TBIMPORT_PRODUKTE_DUPLIKATERow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBIMPORT_PRODUKTE_DUPLIKATEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCHANGE_LOG_GERAETDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCHANGE_LOG_GERAETRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnMELDUNG As Global.System.Data.DataColumn + + Private columnERFASSTWER As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBCHANGE_LOG_GERAET" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property MELDUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMELDUNG + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWER + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCHANGE_LOG_GERAETRow + Get + Return CType(Me.Rows(index),TBCHANGE_LOG_GERAETRow) + End Get + End Property + + _ + Public Event TBCHANGE_LOG_GERAETRowChanging As TBCHANGE_LOG_GERAETRowChangeEventHandler + + _ + Public Event TBCHANGE_LOG_GERAETRowChanged As TBCHANGE_LOG_GERAETRowChangeEventHandler + + _ + Public Event TBCHANGE_LOG_GERAETRowDeleting As TBCHANGE_LOG_GERAETRowChangeEventHandler + + _ + Public Event TBCHANGE_LOG_GERAETRowDeleted As TBCHANGE_LOG_GERAETRowChangeEventHandler + + _ + Public Overloads Sub AddTBCHANGE_LOG_GERAETRow(ByVal row As TBCHANGE_LOG_GERAETRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBCHANGE_LOG_GERAETRow(ByVal MELDUNG As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date) As TBCHANGE_LOG_GERAETRow + Dim rowTBCHANGE_LOG_GERAETRow As TBCHANGE_LOG_GERAETRow = CType(Me.NewRow,TBCHANGE_LOG_GERAETRow) + Dim columnValuesArray() As Object = New Object() {Nothing, MELDUNG, ERFASSTWER, ERFASSTWANN} + rowTBCHANGE_LOG_GERAETRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCHANGE_LOG_GERAETRow) + Return rowTBCHANGE_LOG_GERAETRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCHANGE_LOG_GERAETRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCHANGE_LOG_GERAETRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCHANGE_LOG_GERAETDataTable = CType(MyBase.Clone,TBCHANGE_LOG_GERAETDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCHANGE_LOG_GERAETDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnMELDUNG = MyBase.Columns("MELDUNG") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnMELDUNG = New Global.System.Data.DataColumn("MELDUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMELDUNG) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnMELDUNG.AllowDBNull = false + Me.columnMELDUNG.MaxLength = 500 + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 50 + Me.columnERFASSTWANN.AllowDBNull = false + End Sub + + _ + Public Function NewTBCHANGE_LOG_GERAETRow() As TBCHANGE_LOG_GERAETRow + Return CType(Me.NewRow,TBCHANGE_LOG_GERAETRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCHANGE_LOG_GERAETRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCHANGE_LOG_GERAETRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCHANGE_LOG_GERAETRowChangedEvent) Is Nothing) Then + RaiseEvent TBCHANGE_LOG_GERAETRowChanged(Me, New TBCHANGE_LOG_GERAETRowChangeEvent(CType(e.Row,TBCHANGE_LOG_GERAETRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCHANGE_LOG_GERAETRowChangingEvent) Is Nothing) Then + RaiseEvent TBCHANGE_LOG_GERAETRowChanging(Me, New TBCHANGE_LOG_GERAETRowChangeEvent(CType(e.Row,TBCHANGE_LOG_GERAETRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCHANGE_LOG_GERAETRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCHANGE_LOG_GERAETRowDeleted(Me, New TBCHANGE_LOG_GERAETRowChangeEvent(CType(e.Row,TBCHANGE_LOG_GERAETRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCHANGE_LOG_GERAETRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCHANGE_LOG_GERAETRowDeleting(Me, New TBCHANGE_LOG_GERAETRowChangeEvent(CType(e.Row,TBCHANGE_LOG_GERAETRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBCHANGE_LOG_GERAETRow(ByVal row As TBCHANGE_LOG_GERAETRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCHANGE_LOG_GERAETDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBSERVICE_IMP_LOGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBSERVICE_IMP_LOGRow) + + Private columnNAME As Global.System.Data.DataColumn + + Private columnVERTRAG As Global.System.Data.DataColumn + + Private columnMELDEDATUM As Global.System.Data.DataColumn + + Private columnIMPORT_DATUM As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnIMPORT_STATE As Global.System.Data.DataColumn + + Private columnDATEI As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBSERVICE_IMP_LOG" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property VERTRAGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAG + End Get + End Property + + _ + Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMELDEDATUM + End Get + End Property + + _ + Public ReadOnly Property IMPORT_DATUMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIMPORT_DATUM + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property IMPORT_STATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIMPORT_STATE + End Get + End Property + + _ + Public ReadOnly Property DATEIColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATEI + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBSERVICE_IMP_LOGRow + Get + Return CType(Me.Rows(index),TBSERVICE_IMP_LOGRow) + End Get + End Property + + _ + Public Event TBSERVICE_IMP_LOGRowChanging As TBSERVICE_IMP_LOGRowChangeEventHandler + + _ + Public Event TBSERVICE_IMP_LOGRowChanged As TBSERVICE_IMP_LOGRowChangeEventHandler + + _ + Public Event TBSERVICE_IMP_LOGRowDeleting As TBSERVICE_IMP_LOGRowChangeEventHandler + + _ + Public Event TBSERVICE_IMP_LOGRowDeleted As TBSERVICE_IMP_LOGRowChangeEventHandler + + _ + Public Overloads Sub AddTBSERVICE_IMP_LOGRow(ByVal row As TBSERVICE_IMP_LOGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBSERVICE_IMP_LOGRow(ByVal NAME As String, ByVal VERTRAG As String, ByVal MELDEDATUM As Date, ByVal IMPORT_DATUM As Date, ByVal ERFASSTWANN As Date, ByVal IMPORT_STATE As String, ByVal DATEI As String) As TBSERVICE_IMP_LOGRow + Dim rowTBSERVICE_IMP_LOGRow As TBSERVICE_IMP_LOGRow = CType(Me.NewRow,TBSERVICE_IMP_LOGRow) + Dim columnValuesArray() As Object = New Object() {NAME, VERTRAG, MELDEDATUM, IMPORT_DATUM, ERFASSTWANN, IMPORT_STATE, DATEI} + rowTBSERVICE_IMP_LOGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBSERVICE_IMP_LOGRow) + Return rowTBSERVICE_IMP_LOGRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBSERVICE_IMP_LOGDataTable = CType(MyBase.Clone,TBSERVICE_IMP_LOGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBSERVICE_IMP_LOGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnNAME = MyBase.Columns("NAME") + Me.columnVERTRAG = MyBase.Columns("VERTRAG") + Me.columnMELDEDATUM = MyBase.Columns("MELDEDATUM") + Me.columnIMPORT_DATUM = MyBase.Columns("IMPORT_DATUM") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnIMPORT_STATE = MyBase.Columns("IMPORT_STATE") + Me.columnDATEI = MyBase.Columns("DATEI") + End Sub + + _ + Private Sub InitClass() + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnVERTRAG = New Global.System.Data.DataColumn("VERTRAG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAG) + Me.columnMELDEDATUM = New Global.System.Data.DataColumn("MELDEDATUM", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMELDEDATUM) + Me.columnIMPORT_DATUM = New Global.System.Data.DataColumn("IMPORT_DATUM", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIMPORT_DATUM) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnIMPORT_STATE = New Global.System.Data.DataColumn("IMPORT_STATE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIMPORT_STATE) + Me.columnDATEI = New Global.System.Data.DataColumn("DATEI", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATEI) + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnVERTRAG.MaxLength = 30 + Me.columnMELDEDATUM.AllowDBNull = false + Me.columnIMPORT_DATUM.AllowDBNull = false + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnIMPORT_STATE.MaxLength = 100 + Me.columnDATEI.AllowDBNull = false + Me.columnDATEI.MaxLength = 100 + End Sub + + _ + Public Function NewTBSERVICE_IMP_LOGRow() As TBSERVICE_IMP_LOGRow + Return CType(Me.NewRow,TBSERVICE_IMP_LOGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBSERVICE_IMP_LOGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBSERVICE_IMP_LOGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBSERVICE_IMP_LOGRowChangedEvent) Is Nothing) Then + RaiseEvent TBSERVICE_IMP_LOGRowChanged(Me, New TBSERVICE_IMP_LOGRowChangeEvent(CType(e.Row,TBSERVICE_IMP_LOGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBSERVICE_IMP_LOGRowChangingEvent) Is Nothing) Then + RaiseEvent TBSERVICE_IMP_LOGRowChanging(Me, New TBSERVICE_IMP_LOGRowChangeEvent(CType(e.Row,TBSERVICE_IMP_LOGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBSERVICE_IMP_LOGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBSERVICE_IMP_LOGRowDeleted(Me, New TBSERVICE_IMP_LOGRowChangeEvent(CType(e.Row,TBSERVICE_IMP_LOGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBSERVICE_IMP_LOGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBSERVICE_IMP_LOGRowDeleting(Me, New TBSERVICE_IMP_LOGRowChangeEvent(CType(e.Row,TBSERVICE_IMP_LOGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBSERVICE_IMP_LOGRow(ByVal row As TBSERVICE_IMP_LOGRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBSERVICE_IMP_LOGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWGERAETE_MELDUNG_STATUSDataTable + Inherits Global.System.Data.TypedTableBase(Of VWGERAETE_MELDUNG_STATUSRow) + + Private columnMANDANT_ID As Global.System.Data.DataColumn + + Private columnGERAETE_ID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnMELDEDATUM As Global.System.Data.DataColumn + + Private columnVERTRAG As Global.System.Data.DataColumn + + Private columnSTATE As Global.System.Data.DataColumn + + Private columnMARKER As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWGERAETE_MELDUNG_STATUS" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property MANDANT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANDANT_ID + End Get + End Property + + _ + Public ReadOnly Property GERAETE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAETE_ID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMELDEDATUM + End Get + End Property + + _ + Public ReadOnly Property VERTRAGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAG + End Get + End Property + + _ + Public ReadOnly Property STATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE + End Get + End Property + + _ + Public ReadOnly Property MARKERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKER + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWGERAETE_MELDUNG_STATUSRow + Get + Return CType(Me.Rows(index),VWGERAETE_MELDUNG_STATUSRow) + End Get + End Property + + _ + Public Event VWGERAETE_MELDUNG_STATUSRowChanging As VWGERAETE_MELDUNG_STATUSRowChangeEventHandler + + _ + Public Event VWGERAETE_MELDUNG_STATUSRowChanged As VWGERAETE_MELDUNG_STATUSRowChangeEventHandler + + _ + Public Event VWGERAETE_MELDUNG_STATUSRowDeleting As VWGERAETE_MELDUNG_STATUSRowChangeEventHandler + + _ + Public Event VWGERAETE_MELDUNG_STATUSRowDeleted As VWGERAETE_MELDUNG_STATUSRowChangeEventHandler + + _ + Public Overloads Sub AddVWGERAETE_MELDUNG_STATUSRow(ByVal row As VWGERAETE_MELDUNG_STATUSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWGERAETE_MELDUNG_STATUSRow(ByVal MANDANT_ID As Integer, ByVal GERAETE_ID As Integer, ByVal BEZEICHNUNG As String, ByVal SERIENNR As String, ByVal MARKT As String, ByVal MELDEDATUM As String, ByVal VERTRAG As String, ByVal STATE As String, ByVal MARKER As String) As VWGERAETE_MELDUNG_STATUSRow + Dim rowVWGERAETE_MELDUNG_STATUSRow As VWGERAETE_MELDUNG_STATUSRow = CType(Me.NewRow,VWGERAETE_MELDUNG_STATUSRow) + Dim columnValuesArray() As Object = New Object() {MANDANT_ID, GERAETE_ID, BEZEICHNUNG, SERIENNR, MARKT, MELDEDATUM, VERTRAG, STATE, MARKER} + rowVWGERAETE_MELDUNG_STATUSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWGERAETE_MELDUNG_STATUSRow) + Return rowVWGERAETE_MELDUNG_STATUSRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWGERAETE_MELDUNG_STATUSDataTable = CType(MyBase.Clone,VWGERAETE_MELDUNG_STATUSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWGERAETE_MELDUNG_STATUSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnMANDANT_ID = MyBase.Columns("MANDANT_ID") + Me.columnGERAETE_ID = MyBase.Columns("GERAETE_ID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnMELDEDATUM = MyBase.Columns("MELDEDATUM") + Me.columnVERTRAG = MyBase.Columns("VERTRAG") + Me.columnSTATE = MyBase.Columns("STATE") + Me.columnMARKER = MyBase.Columns("MARKER") + End Sub + + _ + Private Sub InitClass() + Me.columnMANDANT_ID = New Global.System.Data.DataColumn("MANDANT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANDANT_ID) + Me.columnGERAETE_ID = New Global.System.Data.DataColumn("GERAETE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAETE_ID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnMELDEDATUM = New Global.System.Data.DataColumn("MELDEDATUM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMELDEDATUM) + Me.columnVERTRAG = New Global.System.Data.DataColumn("VERTRAG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAG) + Me.columnSTATE = New Global.System.Data.DataColumn("STATE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE) + Me.columnMARKER = New Global.System.Data.DataColumn("MARKER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKER) + Me.columnMANDANT_ID.ReadOnly = true + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnSERIENNR.AllowDBNull = false + Me.columnSERIENNR.MaxLength = 50 + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnMELDEDATUM.MaxLength = 10 + Me.columnVERTRAG.MaxLength = 30 + Me.columnSTATE.ReadOnly = true + Me.columnSTATE.MaxLength = 16 + Me.columnMARKER.MaxLength = 500 + End Sub + + _ + Public Function NewVWGERAETE_MELDUNG_STATUSRow() As VWGERAETE_MELDUNG_STATUSRow + Return CType(Me.NewRow,VWGERAETE_MELDUNG_STATUSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWGERAETE_MELDUNG_STATUSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWGERAETE_MELDUNG_STATUSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWGERAETE_MELDUNG_STATUSRowChangedEvent) Is Nothing) Then + RaiseEvent VWGERAETE_MELDUNG_STATUSRowChanged(Me, New VWGERAETE_MELDUNG_STATUSRowChangeEvent(CType(e.Row,VWGERAETE_MELDUNG_STATUSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWGERAETE_MELDUNG_STATUSRowChangingEvent) Is Nothing) Then + RaiseEvent VWGERAETE_MELDUNG_STATUSRowChanging(Me, New VWGERAETE_MELDUNG_STATUSRowChangeEvent(CType(e.Row,VWGERAETE_MELDUNG_STATUSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWGERAETE_MELDUNG_STATUSRowDeletedEvent) Is Nothing) Then + RaiseEvent VWGERAETE_MELDUNG_STATUSRowDeleted(Me, New VWGERAETE_MELDUNG_STATUSRowChangeEvent(CType(e.Row,VWGERAETE_MELDUNG_STATUSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWGERAETE_MELDUNG_STATUSRowDeletingEvent) Is Nothing) Then + RaiseEvent VWGERAETE_MELDUNG_STATUSRowDeleting(Me, New VWGERAETE_MELDUNG_STATUSRowChangeEvent(CType(e.Row,VWGERAETE_MELDUNG_STATUSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWGERAETE_MELDUNG_STATUSRow(ByVal row As VWGERAETE_MELDUNG_STATUSRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWGERAETE_MELDUNG_STATUSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class ViewSUPPLY_STATUS_VERFOLGUNGDataTable + Inherits Global.System.Data.TypedTableBase(Of ViewSUPPLY_STATUS_VERFOLGUNGRow) + + Private columnMeldedatum As Global.System.Data.DataColumn + + Private columnStatus As Global.System.Data.DataColumn + + Private columnMarker As Global.System.Data.DataColumn + + Private columnErfasst_wann As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "ViewSUPPLY_STATUS_VERFOLGUNG" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property MeldedatumColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMeldedatum + End Get + End Property + + _ + Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn + Get + Return Me.columnStatus + End Get + End Property + + _ + Public ReadOnly Property MarkerColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMarker + End Get + End Property + + _ + Public ReadOnly Property Erfasst_wannColumn() As Global.System.Data.DataColumn + Get + Return Me.columnErfasst_wann + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As ViewSUPPLY_STATUS_VERFOLGUNGRow + Get + Return CType(Me.Rows(index),ViewSUPPLY_STATUS_VERFOLGUNGRow) + End Get + End Property + + _ + Public Event ViewSUPPLY_STATUS_VERFOLGUNGRowChanging As ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEventHandler + + _ + Public Event ViewSUPPLY_STATUS_VERFOLGUNGRowChanged As ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEventHandler + + _ + Public Event ViewSUPPLY_STATUS_VERFOLGUNGRowDeleting As ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEventHandler + + _ + Public Event ViewSUPPLY_STATUS_VERFOLGUNGRowDeleted As ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEventHandler + + _ + Public Overloads Sub AddViewSUPPLY_STATUS_VERFOLGUNGRow(ByVal row As ViewSUPPLY_STATUS_VERFOLGUNGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddViewSUPPLY_STATUS_VERFOLGUNGRow(ByVal Meldedatum As Date, ByVal Status As String, ByVal Marker As String, ByVal Erfasst_wann As Date) As ViewSUPPLY_STATUS_VERFOLGUNGRow + Dim rowViewSUPPLY_STATUS_VERFOLGUNGRow As ViewSUPPLY_STATUS_VERFOLGUNGRow = CType(Me.NewRow,ViewSUPPLY_STATUS_VERFOLGUNGRow) + Dim columnValuesArray() As Object = New Object() {Meldedatum, Status, Marker, Erfasst_wann} + rowViewSUPPLY_STATUS_VERFOLGUNGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowViewSUPPLY_STATUS_VERFOLGUNGRow) + Return rowViewSUPPLY_STATUS_VERFOLGUNGRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As ViewSUPPLY_STATUS_VERFOLGUNGDataTable = CType(MyBase.Clone,ViewSUPPLY_STATUS_VERFOLGUNGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New ViewSUPPLY_STATUS_VERFOLGUNGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnMeldedatum = MyBase.Columns("Meldedatum") + Me.columnStatus = MyBase.Columns("Status") + Me.columnMarker = MyBase.Columns("Marker") + Me.columnErfasst_wann = MyBase.Columns("Erfasst wann") + End Sub + + _ + Private Sub InitClass() + Me.columnMeldedatum = New Global.System.Data.DataColumn("Meldedatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMeldedatum) + Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnStatus) + Me.columnMarker = New Global.System.Data.DataColumn("Marker", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMarker) + Me.columnErfasst_wann = New Global.System.Data.DataColumn("Erfasst wann", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnErfasst_wann) + Me.columnMeldedatum.AllowDBNull = false + Me.columnStatus.AllowDBNull = false + Me.columnStatus.MaxLength = 50 + Me.columnMarker.MaxLength = 250 + Me.columnErfasst_wann.AllowDBNull = false + End Sub + + _ + Public Function NewViewSUPPLY_STATUS_VERFOLGUNGRow() As ViewSUPPLY_STATUS_VERFOLGUNGRow + Return CType(Me.NewRow,ViewSUPPLY_STATUS_VERFOLGUNGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New ViewSUPPLY_STATUS_VERFOLGUNGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(ViewSUPPLY_STATUS_VERFOLGUNGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.ViewSUPPLY_STATUS_VERFOLGUNGRowChangedEvent) Is Nothing) Then + RaiseEvent ViewSUPPLY_STATUS_VERFOLGUNGRowChanged(Me, New ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEvent(CType(e.Row,ViewSUPPLY_STATUS_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.ViewSUPPLY_STATUS_VERFOLGUNGRowChangingEvent) Is Nothing) Then + RaiseEvent ViewSUPPLY_STATUS_VERFOLGUNGRowChanging(Me, New ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEvent(CType(e.Row,ViewSUPPLY_STATUS_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.ViewSUPPLY_STATUS_VERFOLGUNGRowDeletedEvent) Is Nothing) Then + RaiseEvent ViewSUPPLY_STATUS_VERFOLGUNGRowDeleted(Me, New ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEvent(CType(e.Row,ViewSUPPLY_STATUS_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.ViewSUPPLY_STATUS_VERFOLGUNGRowDeletingEvent) Is Nothing) Then + RaiseEvent ViewSUPPLY_STATUS_VERFOLGUNGRowDeleting(Me, New ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEvent(CType(e.Row,ViewSUPPLY_STATUS_VERFOLGUNGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveViewSUPPLY_STATUS_VERFOLGUNGRow(ByVal row As ViewSUPPLY_STATUS_VERFOLGUNGRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "ViewSUPPLY_STATUS_VERFOLGUNGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWSUPPLIES_BESTELLUNG_GESENDETDataTable + Inherits Global.System.Data.TypedTableBase(Of VWSUPPLIES_BESTELLUNG_GESENDETRow) + + Private columnBESTELL_ID As Global.System.Data.DataColumn + + Private columnBESTELLT_WANN As Global.System.Data.DataColumn + + Private columnBESTELLT_WER As Global.System.Data.DataColumn + + Private columnGERAET As Global.System.Data.DataColumn + + Private columnMANUELL As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnMENGE As Global.System.Data.DataColumn + + Private columnSERIEN_NR As Global.System.Data.DataColumn + + Private columnSUPPLY_BEZEICHNUNG As Global.System.Data.DataColumn + + Private columnMANDANT As Global.System.Data.DataColumn + + Private columnSUPPLY_ID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWSUPPLIES_BESTELLUNG_GESENDET" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property BESTELL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELL_ID + End Get + End Property + + _ + Public ReadOnly Property BESTELLT_WANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELLT_WANN + End Get + End Property + + _ + Public ReadOnly Property BESTELLT_WERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELLT_WER + End Get + End Property + + _ + Public ReadOnly Property GERAETColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET + End Get + End Property + + _ + Public ReadOnly Property MANUELLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANUELL + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property MENGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMENGE + End Get + End Property + + _ + Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIEN_NR + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_BEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property MANDANTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANDANT + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_ID + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLIES_BESTELLUNG_GESENDETRow + Get + Return CType(Me.Rows(index),VWSUPPLIES_BESTELLUNG_GESENDETRow) + End Get + End Property + + _ + Public Event VWSUPPLIES_BESTELLUNG_GESENDETRowChanging As VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEventHandler + + _ + Public Event VWSUPPLIES_BESTELLUNG_GESENDETRowChanged As VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEventHandler + + _ + Public Event VWSUPPLIES_BESTELLUNG_GESENDETRowDeleting As VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEventHandler + + _ + Public Event VWSUPPLIES_BESTELLUNG_GESENDETRowDeleted As VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEventHandler + + _ + Public Overloads Sub AddVWSUPPLIES_BESTELLUNG_GESENDETRow(ByVal row As VWSUPPLIES_BESTELLUNG_GESENDETRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWSUPPLIES_BESTELLUNG_GESENDETRow(ByVal BESTELL_ID As Integer, ByVal BESTELLT_WANN As Date, ByVal BESTELLT_WER As String, ByVal GERAET As String, ByVal MANUELL As Boolean, ByVal MARKT As String, ByVal MENGE As Integer, ByVal SERIEN_NR As String, ByVal SUPPLY_BEZEICHNUNG As String, ByVal MANDANT As String, ByVal SUPPLY_ID As Integer) As VWSUPPLIES_BESTELLUNG_GESENDETRow + Dim rowVWSUPPLIES_BESTELLUNG_GESENDETRow As VWSUPPLIES_BESTELLUNG_GESENDETRow = CType(Me.NewRow,VWSUPPLIES_BESTELLUNG_GESENDETRow) + Dim columnValuesArray() As Object = New Object() {BESTELL_ID, BESTELLT_WANN, BESTELLT_WER, GERAET, MANUELL, MARKT, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, MANDANT, SUPPLY_ID} + rowVWSUPPLIES_BESTELLUNG_GESENDETRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWSUPPLIES_BESTELLUNG_GESENDETRow) + Return rowVWSUPPLIES_BESTELLUNG_GESENDETRow + End Function + + _ + Public Function FindByBESTELL_ID(ByVal BESTELL_ID As Integer) As VWSUPPLIES_BESTELLUNG_GESENDETRow + Return CType(Me.Rows.Find(New Object() {BESTELL_ID}),VWSUPPLIES_BESTELLUNG_GESENDETRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWSUPPLIES_BESTELLUNG_GESENDETDataTable = CType(MyBase.Clone,VWSUPPLIES_BESTELLUNG_GESENDETDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWSUPPLIES_BESTELLUNG_GESENDETDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnBESTELL_ID = MyBase.Columns("BESTELL_ID") + Me.columnBESTELLT_WANN = MyBase.Columns("BESTELLT_WANN") + Me.columnBESTELLT_WER = MyBase.Columns("BESTELLT_WER") + Me.columnGERAET = MyBase.Columns("GERAET") + Me.columnMANUELL = MyBase.Columns("MANUELL") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnMENGE = MyBase.Columns("MENGE") + Me.columnSERIEN_NR = MyBase.Columns("SERIEN_NR") + Me.columnSUPPLY_BEZEICHNUNG = MyBase.Columns("SUPPLY_BEZEICHNUNG") + Me.columnMANDANT = MyBase.Columns("MANDANT") + Me.columnSUPPLY_ID = MyBase.Columns("SUPPLY_ID") + End Sub + + _ + Private Sub InitClass() + Me.columnBESTELL_ID = New Global.System.Data.DataColumn("BESTELL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELL_ID) + Me.columnBESTELLT_WANN = New Global.System.Data.DataColumn("BESTELLT_WANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELLT_WANN) + Me.columnBESTELLT_WER = New Global.System.Data.DataColumn("BESTELLT_WER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELLT_WER) + Me.columnGERAET = New Global.System.Data.DataColumn("GERAET", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET) + Me.columnMANUELL = New Global.System.Data.DataColumn("MANUELL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANUELL) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnMENGE = New Global.System.Data.DataColumn("MENGE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMENGE) + Me.columnSERIEN_NR = New Global.System.Data.DataColumn("SERIEN_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIEN_NR) + Me.columnSUPPLY_BEZEICHNUNG = New Global.System.Data.DataColumn("SUPPLY_BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_BEZEICHNUNG) + Me.columnMANDANT = New Global.System.Data.DataColumn("MANDANT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANDANT) + Me.columnSUPPLY_ID = New Global.System.Data.DataColumn("SUPPLY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_ID) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnBESTELL_ID}, true)) + Me.columnBESTELL_ID.AllowDBNull = false + Me.columnBESTELL_ID.Unique = true + Me.columnBESTELLT_WANN.AllowDBNull = false + Me.columnBESTELLT_WER.AllowDBNull = false + Me.columnBESTELLT_WER.MaxLength = 30 + Me.columnGERAET.MaxLength = 50 + Me.columnMANUELL.AllowDBNull = false + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnMENGE.AllowDBNull = false + Me.columnSERIEN_NR.MaxLength = 50 + Me.columnSUPPLY_BEZEICHNUNG.AllowDBNull = false + Me.columnSUPPLY_BEZEICHNUNG.MaxLength = 100 + Me.columnMANDANT.AllowDBNull = false + Me.columnMANDANT.MaxLength = 100 + End Sub + + _ + Public Function NewVWSUPPLIES_BESTELLUNG_GESENDETRow() As VWSUPPLIES_BESTELLUNG_GESENDETRow + Return CType(Me.NewRow,VWSUPPLIES_BESTELLUNG_GESENDETRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWSUPPLIES_BESTELLUNG_GESENDETRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWSUPPLIES_BESTELLUNG_GESENDETRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWSUPPLIES_BESTELLUNG_GESENDETRowChangedEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_BESTELLUNG_GESENDETRowChanged(Me, New VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEvent(CType(e.Row,VWSUPPLIES_BESTELLUNG_GESENDETRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWSUPPLIES_BESTELLUNG_GESENDETRowChangingEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_BESTELLUNG_GESENDETRowChanging(Me, New VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEvent(CType(e.Row,VWSUPPLIES_BESTELLUNG_GESENDETRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWSUPPLIES_BESTELLUNG_GESENDETRowDeletedEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_BESTELLUNG_GESENDETRowDeleted(Me, New VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEvent(CType(e.Row,VWSUPPLIES_BESTELLUNG_GESENDETRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWSUPPLIES_BESTELLUNG_GESENDETRowDeletingEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_BESTELLUNG_GESENDETRowDeleting(Me, New VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEvent(CType(e.Row,VWSUPPLIES_BESTELLUNG_GESENDETRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWSUPPLIES_BESTELLUNG_GESENDETRow(ByVal row As VWSUPPLIES_BESTELLUNG_GESENDETRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWSUPPLIES_BESTELLUNG_GESENDETDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWRPT_SUPPLIES_TOORDERDataTable + Inherits Global.System.Data.TypedTableBase(Of VWRPT_SUPPLIES_TOORDERRow) + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnGERAET As Global.System.Data.DataColumn + + Private columnGERAET_IP As Global.System.Data.DataColumn + + Private columnGERAET_SERIENNR As Global.System.Data.DataColumn + + Private columnGERAET_PAGECOUNT As Global.System.Data.DataColumn + + Private columnGERAET_PPM As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnSUPPLY_BEZ As Global.System.Data.DataColumn + + Private columnLEVEL As Global.System.Data.DataColumn + + Private columnSCHWELLENWERT As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnSTATUS As Global.System.Data.DataColumn + + Private columnVERTRAG As Global.System.Data.DataColumn + + Private columnPARTNUMBER_ORDER As Global.System.Data.DataColumn + + Private columnMANUELL As Global.System.Data.DataColumn + + Private columnANZAHL As Global.System.Data.DataColumn + + Private columnSUPPLY_ID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWRPT_SUPPLIES_TOORDER" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property GERAETColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET + End Get + End Property + + _ + Public ReadOnly Property GERAET_IPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_IP + End Get + End Property + + _ + Public ReadOnly Property GERAET_SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_SERIENNR + End Get + End Property + + _ + Public ReadOnly Property GERAET_PAGECOUNTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_PAGECOUNT + End Get + End Property + + _ + Public ReadOnly Property GERAET_PPMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_PPM + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_BEZColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_BEZ + End Get + End Property + + _ + Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL + End Get + End Property + + _ + Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCHWELLENWERT + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property STATUSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS + End Get + End Property + + _ + Public ReadOnly Property VERTRAGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERTRAG + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBER_ORDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER_ORDER + End Get + End Property + + _ + Public ReadOnly Property MANUELLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANUELL + End Get + End Property + + _ + Public ReadOnly Property ANZAHLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnANZAHL + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_ID + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWRPT_SUPPLIES_TOORDERRow + Get + Return CType(Me.Rows(index),VWRPT_SUPPLIES_TOORDERRow) + End Get + End Property + + _ + Public Event VWRPT_SUPPLIES_TOORDERRowChanging As VWRPT_SUPPLIES_TOORDERRowChangeEventHandler + + _ + Public Event VWRPT_SUPPLIES_TOORDERRowChanged As VWRPT_SUPPLIES_TOORDERRowChangeEventHandler + + _ + Public Event VWRPT_SUPPLIES_TOORDERRowDeleting As VWRPT_SUPPLIES_TOORDERRowChangeEventHandler + + _ + Public Event VWRPT_SUPPLIES_TOORDERRowDeleted As VWRPT_SUPPLIES_TOORDERRowChangeEventHandler + + _ + Public Overloads Sub AddVWRPT_SUPPLIES_TOORDERRow(ByVal row As VWRPT_SUPPLIES_TOORDERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWRPT_SUPPLIES_TOORDERRow( _ + ByVal GEAENDERTWER As String, _ + ByVal GERAET As String, _ + ByVal GERAET_IP As String, _ + ByVal GERAET_SERIENNR As String, _ + ByVal GERAET_PAGECOUNT As Integer, _ + ByVal GERAET_PPM As Integer, _ + ByVal MARKT As String, _ + ByVal SUPPLY_BEZ As String, _ + ByVal LEVEL As Integer, _ + ByVal SCHWELLENWERT As Integer, _ + ByVal PARTNUMBER As String, _ + ByVal SERIENNR As String, _ + ByVal STATUS As String, _ + ByVal VERTRAG As String, _ + ByVal PARTNUMBER_ORDER As String, _ + ByVal MANUELL As Boolean, _ + ByVal ANZAHL As Integer, _ + ByVal SUPPLY_ID As String) As VWRPT_SUPPLIES_TOORDERRow + Dim rowVWRPT_SUPPLIES_TOORDERRow As VWRPT_SUPPLIES_TOORDERRow = CType(Me.NewRow,VWRPT_SUPPLIES_TOORDERRow) + Dim columnValuesArray() As Object = New Object() {GEAENDERTWER, GERAET, GERAET_IP, GERAET_SERIENNR, GERAET_PAGECOUNT, GERAET_PPM, MARKT, SUPPLY_BEZ, LEVEL, SCHWELLENWERT, PARTNUMBER, SERIENNR, STATUS, VERTRAG, PARTNUMBER_ORDER, MANUELL, ANZAHL, SUPPLY_ID} + rowVWRPT_SUPPLIES_TOORDERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWRPT_SUPPLIES_TOORDERRow) + Return rowVWRPT_SUPPLIES_TOORDERRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWRPT_SUPPLIES_TOORDERDataTable = CType(MyBase.Clone,VWRPT_SUPPLIES_TOORDERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWRPT_SUPPLIES_TOORDERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnGERAET = MyBase.Columns("GERAET") + Me.columnGERAET_IP = MyBase.Columns("GERAET_IP") + Me.columnGERAET_SERIENNR = MyBase.Columns("GERAET_SERIENNR") + Me.columnGERAET_PAGECOUNT = MyBase.Columns("GERAET_PAGECOUNT") + Me.columnGERAET_PPM = MyBase.Columns("GERAET_PPM") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnSUPPLY_BEZ = MyBase.Columns("SUPPLY_BEZ") + Me.columnLEVEL = MyBase.Columns("LEVEL") + Me.columnSCHWELLENWERT = MyBase.Columns("SCHWELLENWERT") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnSTATUS = MyBase.Columns("STATUS") + Me.columnVERTRAG = MyBase.Columns("VERTRAG") + Me.columnPARTNUMBER_ORDER = MyBase.Columns("PARTNUMBER_ORDER") + Me.columnMANUELL = MyBase.Columns("MANUELL") + Me.columnANZAHL = MyBase.Columns("ANZAHL") + Me.columnSUPPLY_ID = MyBase.Columns("SUPPLY_ID") + End Sub + + _ + Private Sub InitClass() + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnGERAET = New Global.System.Data.DataColumn("GERAET", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET) + Me.columnGERAET_IP = New Global.System.Data.DataColumn("GERAET_IP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_IP) + Me.columnGERAET_SERIENNR = New Global.System.Data.DataColumn("GERAET_SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_SERIENNR) + Me.columnGERAET_PAGECOUNT = New Global.System.Data.DataColumn("GERAET_PAGECOUNT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_PAGECOUNT) + Me.columnGERAET_PPM = New Global.System.Data.DataColumn("GERAET_PPM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_PPM) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnSUPPLY_BEZ = New Global.System.Data.DataColumn("SUPPLY_BEZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_BEZ) + Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL) + Me.columnSCHWELLENWERT = New Global.System.Data.DataColumn("SCHWELLENWERT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCHWELLENWERT) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnSTATUS = New Global.System.Data.DataColumn("STATUS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS) + Me.columnVERTRAG = New Global.System.Data.DataColumn("VERTRAG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERTRAG) + Me.columnPARTNUMBER_ORDER = New Global.System.Data.DataColumn("PARTNUMBER_ORDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER_ORDER) + Me.columnMANUELL = New Global.System.Data.DataColumn("MANUELL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANUELL) + Me.columnANZAHL = New Global.System.Data.DataColumn("ANZAHL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnANZAHL) + Me.columnSUPPLY_ID = New Global.System.Data.DataColumn("SUPPLY_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_ID) + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnGERAET.MaxLength = 100 + Me.columnGERAET_IP.MaxLength = 30 + Me.columnGERAET_SERIENNR.AllowDBNull = false + Me.columnGERAET_SERIENNR.MaxLength = 50 + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnSUPPLY_BEZ.AllowDBNull = false + Me.columnSUPPLY_BEZ.MaxLength = 50 + Me.columnLEVEL.AllowDBNull = false + Me.columnSCHWELLENWERT.AllowDBNull = false + Me.columnPARTNUMBER.MaxLength = 30 + Me.columnSERIENNR.MaxLength = 30 + Me.columnSTATUS.AllowDBNull = false + Me.columnSTATUS.MaxLength = 50 + Me.columnVERTRAG.AllowDBNull = false + Me.columnVERTRAG.MaxLength = 50 + Me.columnPARTNUMBER_ORDER.AllowDBNull = false + Me.columnPARTNUMBER_ORDER.MaxLength = 30 + Me.columnMANUELL.ReadOnly = true + Me.columnANZAHL.ReadOnly = true + Me.columnSUPPLY_ID.ReadOnly = true + Me.columnSUPPLY_ID.MaxLength = 12 + End Sub + + _ + Public Function NewVWRPT_SUPPLIES_TOORDERRow() As VWRPT_SUPPLIES_TOORDERRow + Return CType(Me.NewRow,VWRPT_SUPPLIES_TOORDERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWRPT_SUPPLIES_TOORDERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWRPT_SUPPLIES_TOORDERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWRPT_SUPPLIES_TOORDERRowChangedEvent) Is Nothing) Then + RaiseEvent VWRPT_SUPPLIES_TOORDERRowChanged(Me, New VWRPT_SUPPLIES_TOORDERRowChangeEvent(CType(e.Row,VWRPT_SUPPLIES_TOORDERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWRPT_SUPPLIES_TOORDERRowChangingEvent) Is Nothing) Then + RaiseEvent VWRPT_SUPPLIES_TOORDERRowChanging(Me, New VWRPT_SUPPLIES_TOORDERRowChangeEvent(CType(e.Row,VWRPT_SUPPLIES_TOORDERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWRPT_SUPPLIES_TOORDERRowDeletedEvent) Is Nothing) Then + RaiseEvent VWRPT_SUPPLIES_TOORDERRowDeleted(Me, New VWRPT_SUPPLIES_TOORDERRowChangeEvent(CType(e.Row,VWRPT_SUPPLIES_TOORDERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWRPT_SUPPLIES_TOORDERRowDeletingEvent) Is Nothing) Then + RaiseEvent VWRPT_SUPPLIES_TOORDERRowDeleting(Me, New VWRPT_SUPPLIES_TOORDERRowChangeEvent(CType(e.Row,VWRPT_SUPPLIES_TOORDERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWRPT_SUPPLIES_TOORDERRow(ByVal row As VWRPT_SUPPLIES_TOORDERRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWRPT_SUPPLIES_TOORDERDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWSUPPLIES_2_ORDERDataTable + Inherits Global.System.Data.TypedTableBase(Of VWSUPPLIES_2_ORDERRow) + + Private columnMANDANT As Global.System.Data.DataColumn + + Private columnMANDANT_ID As Global.System.Data.DataColumn + + Private columnSUPPLY_ID As Global.System.Data.DataColumn + + Private columnGERAET_ID As Global.System.Data.DataColumn + + Private columnDEVICE As Global.System.Data.DataColumn + + Private columnDEVICE_SERIAL As Global.System.Data.DataColumn + + Private columnMARKT As Global.System.Data.DataColumn + + Private columnPAGE_COUNT As Global.System.Data.DataColumn + + Private columnPPM As Global.System.Data.DataColumn + + Private columnBESTELLUNG As Global.System.Data.DataColumn + + Private columnSUPPLY_BEZEICHNUNG As Global.System.Data.DataColumn + + Private columnLEVEL As Global.System.Data.DataColumn + + Private columnSCHWELLENWERT As Global.System.Data.DataColumn + + Private columnPARTNUMBER As Global.System.Data.DataColumn + + Private columnSERIENNR As Global.System.Data.DataColumn + + Private columnSTATUS_ID As Global.System.Data.DataColumn + + Private columnSTATUS As Global.System.Data.DataColumn + + Private columnERFASSTWANN As Global.System.Data.DataColumn + + Private columnGEAENDERTWER As Global.System.Data.DataColumn + + Private columnSTATUS_WANN As Global.System.Data.DataColumn + + Private columnSTATUS_WER As Global.System.Data.DataColumn + + Private columnMANUELL As Global.System.Data.DataColumn + + Private columnFW As Global.System.Data.DataColumn + + Private columnGUID As Global.System.Data.DataColumn + + Private columnGUI_SELECTED As Global.System.Data.DataColumn + + Private columnMENGE As Global.System.Data.DataColumn + + Private columnBESTELL_ID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWSUPPLIES_2_ORDER" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + 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 + + _ + Public ReadOnly Property MANDANTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANDANT + End Get + End Property + + _ + Public ReadOnly Property MANDANT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANDANT_ID + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_ID + End Get + End Property + + _ + Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGERAET_ID + End Get + End Property + + _ + Public ReadOnly Property DEVICEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEVICE + End Get + End Property + + _ + Public ReadOnly Property DEVICE_SERIALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEVICE_SERIAL + End Get + End Property + + _ + Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARKT + End Get + End Property + + _ + Public ReadOnly Property PAGE_COUNTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPAGE_COUNT + End Get + End Property + + _ + Public ReadOnly Property PPMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPPM + End Get + End Property + + _ + Public ReadOnly Property BESTELLUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELLUNG + End Get + End Property + + _ + Public ReadOnly Property SUPPLY_BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUPPLY_BEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLEVEL + End Get + End Property + + _ + Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCHWELLENWERT + End Get + End Property + + _ + Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARTNUMBER + End Get + End Property + + _ + Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERIENNR + End Get + End Property + + _ + Public ReadOnly Property STATUS_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_ID + End Get + End Property + + _ + Public ReadOnly Property STATUSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS + End Get + End Property + + _ + Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERFASSTWANN + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWER + End Get + End Property + + _ + Public ReadOnly Property STATUS_WANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_WANN + End Get + End Property + + _ + Public ReadOnly Property STATUS_WERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATUS_WER + End Get + End Property + + _ + Public ReadOnly Property MANUELLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMANUELL + End Get + End Property + + _ + Public ReadOnly Property FWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFW + End Get + End Property + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property GUI_SELECTEDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUI_SELECTED + End Get + End Property + + _ + Public ReadOnly Property MENGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMENGE + End Get + End Property + + _ + Public ReadOnly Property BESTELL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESTELL_ID + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLIES_2_ORDERRow + Get + Return CType(Me.Rows(index),VWSUPPLIES_2_ORDERRow) + End Get + End Property + + _ + Public Event VWSUPPLIES_2_ORDERRowChanging As VWSUPPLIES_2_ORDERRowChangeEventHandler + + _ + Public Event VWSUPPLIES_2_ORDERRowChanged As VWSUPPLIES_2_ORDERRowChangeEventHandler + + _ + Public Event VWSUPPLIES_2_ORDERRowDeleting As VWSUPPLIES_2_ORDERRowChangeEventHandler + + _ + Public Event VWSUPPLIES_2_ORDERRowDeleted As VWSUPPLIES_2_ORDERRowChangeEventHandler + + _ + Public Overloads Sub AddVWSUPPLIES_2_ORDERRow(ByVal row As VWSUPPLIES_2_ORDERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWSUPPLIES_2_ORDERRow( _ + ByVal MANDANT As String, _ + ByVal MANDANT_ID As Integer, _ + ByVal SUPPLY_ID As Integer, _ + ByVal GERAET_ID As Integer, _ + ByVal DEVICE As String, _ + ByVal DEVICE_SERIAL As String, _ + ByVal MARKT As String, _ + ByVal PAGE_COUNT As Integer, _ + ByVal PPM As Integer, _ + ByVal BESTELLUNG As Boolean, _ + ByVal SUPPLY_BEZEICHNUNG As String, _ + ByVal LEVEL As Integer, _ + ByVal SCHWELLENWERT As Integer, _ + ByVal PARTNUMBER As String, _ + ByVal SERIENNR As String, _ + ByVal STATUS_ID As Integer, _ + ByVal STATUS As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal STATUS_WANN As Date, _ + ByVal STATUS_WER As String, _ + ByVal MANUELL As Boolean, _ + ByVal FW As Boolean, _ + ByVal GUID As Integer, _ + ByVal GUI_SELECTED As Boolean, _ + ByVal MENGE As Integer, _ + ByVal BESTELL_ID As Integer) As VWSUPPLIES_2_ORDERRow + Dim rowVWSUPPLIES_2_ORDERRow As VWSUPPLIES_2_ORDERRow = CType(Me.NewRow,VWSUPPLIES_2_ORDERRow) + Dim columnValuesArray() As Object = New Object() {MANDANT, MANDANT_ID, SUPPLY_ID, GERAET_ID, DEVICE, DEVICE_SERIAL, MARKT, PAGE_COUNT, PPM, BESTELLUNG, SUPPLY_BEZEICHNUNG, LEVEL, SCHWELLENWERT, PARTNUMBER, SERIENNR, STATUS_ID, STATUS, ERFASSTWANN, GEAENDERTWER, STATUS_WANN, STATUS_WER, MANUELL, FW, GUID, GUI_SELECTED, MENGE, BESTELL_ID} + rowVWSUPPLIES_2_ORDERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWSUPPLIES_2_ORDERRow) + Return rowVWSUPPLIES_2_ORDERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWSUPPLIES_2_ORDERRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWSUPPLIES_2_ORDERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWSUPPLIES_2_ORDERDataTable = CType(MyBase.Clone,VWSUPPLIES_2_ORDERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWSUPPLIES_2_ORDERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnMANDANT = MyBase.Columns("MANDANT") + Me.columnMANDANT_ID = MyBase.Columns("MANDANT_ID") + Me.columnSUPPLY_ID = MyBase.Columns("SUPPLY_ID") + Me.columnGERAET_ID = MyBase.Columns("GERAET_ID") + Me.columnDEVICE = MyBase.Columns("DEVICE") + Me.columnDEVICE_SERIAL = MyBase.Columns("DEVICE_SERIAL") + Me.columnMARKT = MyBase.Columns("MARKT") + Me.columnPAGE_COUNT = MyBase.Columns("PAGE_COUNT") + Me.columnPPM = MyBase.Columns("PPM") + Me.columnBESTELLUNG = MyBase.Columns("BESTELLUNG") + Me.columnSUPPLY_BEZEICHNUNG = MyBase.Columns("SUPPLY_BEZEICHNUNG") + Me.columnLEVEL = MyBase.Columns("LEVEL") + Me.columnSCHWELLENWERT = MyBase.Columns("SCHWELLENWERT") + Me.columnPARTNUMBER = MyBase.Columns("PARTNUMBER") + Me.columnSERIENNR = MyBase.Columns("SERIENNR") + Me.columnSTATUS_ID = MyBase.Columns("STATUS_ID") + Me.columnSTATUS = MyBase.Columns("STATUS") + Me.columnERFASSTWANN = MyBase.Columns("ERFASSTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnSTATUS_WANN = MyBase.Columns("STATUS_WANN") + Me.columnSTATUS_WER = MyBase.Columns("STATUS_WER") + Me.columnMANUELL = MyBase.Columns("MANUELL") + Me.columnFW = MyBase.Columns("FW") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnGUI_SELECTED = MyBase.Columns("GUI_SELECTED") + Me.columnMENGE = MyBase.Columns("MENGE") + Me.columnBESTELL_ID = MyBase.Columns("BESTELL_ID") + End Sub + + _ + Private Sub InitClass() + Me.columnMANDANT = New Global.System.Data.DataColumn("MANDANT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANDANT) + Me.columnMANDANT_ID = New Global.System.Data.DataColumn("MANDANT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANDANT_ID) + Me.columnSUPPLY_ID = New Global.System.Data.DataColumn("SUPPLY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_ID) + Me.columnGERAET_ID = New Global.System.Data.DataColumn("GERAET_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGERAET_ID) + Me.columnDEVICE = New Global.System.Data.DataColumn("DEVICE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEVICE) + Me.columnDEVICE_SERIAL = New Global.System.Data.DataColumn("DEVICE_SERIAL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEVICE_SERIAL) + Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARKT) + Me.columnPAGE_COUNT = New Global.System.Data.DataColumn("PAGE_COUNT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPAGE_COUNT) + Me.columnPPM = New Global.System.Data.DataColumn("PPM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPPM) + Me.columnBESTELLUNG = New Global.System.Data.DataColumn("BESTELLUNG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELLUNG) + Me.columnSUPPLY_BEZEICHNUNG = New Global.System.Data.DataColumn("SUPPLY_BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUPPLY_BEZEICHNUNG) + Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL) + Me.columnSCHWELLENWERT = New Global.System.Data.DataColumn("SCHWELLENWERT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCHWELLENWERT) + Me.columnPARTNUMBER = New Global.System.Data.DataColumn("PARTNUMBER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARTNUMBER) + Me.columnSERIENNR = New Global.System.Data.DataColumn("SERIENNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERIENNR) + Me.columnSTATUS_ID = New Global.System.Data.DataColumn("STATUS_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_ID) + Me.columnSTATUS = New Global.System.Data.DataColumn("STATUS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS) + Me.columnERFASSTWANN = New Global.System.Data.DataColumn("ERFASSTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWANN) + Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnSTATUS_WANN = New Global.System.Data.DataColumn("STATUS_WANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_WANN) + Me.columnSTATUS_WER = New Global.System.Data.DataColumn("STATUS_WER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATUS_WER) + Me.columnMANUELL = New Global.System.Data.DataColumn("MANUELL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMANUELL) + Me.columnFW = New Global.System.Data.DataColumn("FW", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFW) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnGUI_SELECTED = New Global.System.Data.DataColumn("GUI_SELECTED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUI_SELECTED) + Me.columnMENGE = New Global.System.Data.DataColumn("MENGE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMENGE) + Me.columnBESTELL_ID = New Global.System.Data.DataColumn("BESTELL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESTELL_ID) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnMANDANT.AllowDBNull = false + Me.columnMANDANT.MaxLength = 100 + Me.columnMANDANT_ID.AllowDBNull = false + Me.columnSUPPLY_ID.AllowDBNull = false + Me.columnGERAET_ID.AllowDBNull = false + Me.columnDEVICE.MaxLength = 100 + Me.columnDEVICE_SERIAL.AllowDBNull = false + Me.columnDEVICE_SERIAL.MaxLength = 50 + Me.columnMARKT.AllowDBNull = false + Me.columnMARKT.MaxLength = 50 + Me.columnBESTELLUNG.AllowDBNull = false + Me.columnSUPPLY_BEZEICHNUNG.MaxLength = 100 + Me.columnLEVEL.AllowDBNull = false + Me.columnSCHWELLENWERT.AllowDBNull = false + Me.columnPARTNUMBER.MaxLength = 30 + Me.columnSERIENNR.MaxLength = 30 + Me.columnSTATUS_ID.AllowDBNull = false + Me.columnSTATUS.AllowDBNull = false + Me.columnSTATUS.MaxLength = 50 + Me.columnERFASSTWANN.AllowDBNull = false + Me.columnGEAENDERTWER.MaxLength = 30 + Me.columnSTATUS_WER.MaxLength = 30 + Me.columnMANUELL.AllowDBNull = false + Me.columnFW.ReadOnly = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnGUI_SELECTED.AllowDBNull = false + Me.columnMENGE.ReadOnly = true + End Sub + + _ + Public Function NewVWSUPPLIES_2_ORDERRow() As VWSUPPLIES_2_ORDERRow + Return CType(Me.NewRow,VWSUPPLIES_2_ORDERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWSUPPLIES_2_ORDERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWSUPPLIES_2_ORDERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWSUPPLIES_2_ORDERRowChangedEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_2_ORDERRowChanged(Me, New VWSUPPLIES_2_ORDERRowChangeEvent(CType(e.Row,VWSUPPLIES_2_ORDERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWSUPPLIES_2_ORDERRowChangingEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_2_ORDERRowChanging(Me, New VWSUPPLIES_2_ORDERRowChangeEvent(CType(e.Row,VWSUPPLIES_2_ORDERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWSUPPLIES_2_ORDERRowDeletedEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_2_ORDERRowDeleted(Me, New VWSUPPLIES_2_ORDERRowChangeEvent(CType(e.Row,VWSUPPLIES_2_ORDERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWSUPPLIES_2_ORDERRowDeletingEvent) Is Nothing) Then + RaiseEvent VWSUPPLIES_2_ORDERRowDeleting(Me, New VWSUPPLIES_2_ORDERRowChangeEvent(CType(e.Row,VWSUPPLIES_2_ORDERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWSUPPLIES_2_ORDERRow(ByVal row As VWSUPPLIES_2_ORDERRow) + Me.Rows.Remove(row) + End Sub + + _ + 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() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWSUPPLIES_2_ORDERDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBGERAETRow + Inherits Global.System.Data.DataRow + + Private tableTBGERAET As TBGERAETDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBGERAET = CType(Me.Table,TBGERAETDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBGERAET.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBGERAET.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableTBGERAET.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property IP_ADRESSE() As String + Get + Try + Return CType(Me(Me.tableTBGERAET.IP_ADRESSEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IP_ADRESSE in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.IP_ADRESSEColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Return CType(Me(Me.tableTBGERAET.SERIENNRColumn),String) + End Get + Set + Me(Me.tableTBGERAET.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Try + Return CType(Me(Me.tableTBGERAET.MARKTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MARKT in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.MARKTColumn) = value + End Set + End Property + + _ + Public Property PAGE_COUNT() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAET.PAGE_COUNTColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAGE_COUNT in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.PAGE_COUNTColumn) = value + End Set + End Property + + _ + Public Property PPM() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAET.PPMColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PPM in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.PPMColumn) = value + End Set + End Property + + _ + Public Property BEMERKUNG() As String + Get + Try + Return CType(Me(Me.tableTBGERAET.BEMERKUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.BEMERKUNGColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableTBGERAET.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableTBGERAET.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBGERAET.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBGERAET.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property BESTELLUNG() As Boolean + Get + Try + Return CType(Me(Me.tableTBGERAET.BESTELLUNGColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESTELLUNG in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.BESTELLUNGColumn) = value + End Set + End Property + + _ + Public Property MARKER() As String + Get + Try + Return CType(Me(Me.tableTBGERAET.MARKERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MARKER in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.MARKERColumn) = value + End Set + End Property + + _ + Public Property PC_INITIAL() As Integer + Get + Return CType(Me(Me.tableTBGERAET.PC_INITIALColumn),Integer) + End Get + Set + Me(Me.tableTBGERAET.PC_INITIALColumn) = value + End Set + End Property + + _ + Public Property DATE_INITIAL() As Date + Get + Try + Return CType(Me(Me.tableTBGERAET.DATE_INITIALColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATE_INITIAL in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.DATE_INITIALColumn) = value + End Set + End Property + + _ + Public Property MODEL_NR() As String + Get + Try + Return CType(Me(Me.tableTBGERAET.MODEL_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODEL_NR in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.MODEL_NRColumn) = value + End Set + End Property + + _ + Public Property UMGEZOGEN() As Boolean + Get + Return CType(Me(Me.tableTBGERAET.UMGEZOGENColumn),Boolean) + End Get + Set + Me(Me.tableTBGERAET.UMGEZOGENColumn) = value + End Set + End Property + + _ + Public Property VERTRAGSNR() As String + Get + Try + Return CType(Me(Me.tableTBGERAET.VERTRAGSNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VERTRAGSNR in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.VERTRAGSNRColumn) = value + End Set + End Property + + _ + Public Property ONHOLD() As Boolean + Get + Return CType(Me(Me.tableTBGERAET.ONHOLDColumn),Boolean) + End Get + Set + Me(Me.tableTBGERAET.ONHOLDColumn) = value + End Set + End Property + + _ + Public Property ONHOLD_DATE() As Date + Get + Try + Return CType(Me(Me.tableTBGERAET.ONHOLD_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ONHOLD_DATE in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.ONHOLD_DATEColumn) = value + End Set + End Property + + _ + Public Property MELDEDATUM() As String + Get + Try + Return CType(Me(Me.tableTBGERAET.MELDEDATUMColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MELDEDATUM in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.MELDEDATUMColumn) = value + End Set + End Property + + _ + Public Property NICHT_AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBGERAET.NICHT_AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBGERAET.NICHT_AKTIVColumn) = value + End Set + End Property + + _ + Public Property ABGEBAUT() As Boolean + Get + Return CType(Me(Me.tableTBGERAET.ABGEBAUTColumn),Boolean) + End Get + Set + Me(Me.tableTBGERAET.ABGEBAUTColumn) = value + End Set + End Property + + _ + Public Property Mandant() As String + Get + Try + Return CType(Me(Me.tableTBGERAET.MandantColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mandant in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.MandantColumn) = value + End Set + End Property + + _ + Public Property Mandant_KZ() As String + Get + Try + Return CType(Me(Me.tableTBGERAET.Mandant_KZColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Mandant_KZ in Tabelle TBGERAET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAET.Mandant_KZColumn) = value + End Set + End Property + + _ + Public Property TBWH_MARKTRow() As TBWH_MARKTRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBWH_MARKT_TBGERAET")),TBWH_MARKTRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("TBWH_MARKT_TBGERAET")) + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBGERAET.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIP_ADRESSENull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.IP_ADRESSEColumn) + End Function + + _ + Public Sub SetIP_ADRESSENull() + Me(Me.tableTBGERAET.IP_ADRESSEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMARKTNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.MARKTColumn) + End Function + + _ + Public Sub SetMARKTNull() + Me(Me.tableTBGERAET.MARKTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPAGE_COUNTNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.PAGE_COUNTColumn) + End Function + + _ + Public Sub SetPAGE_COUNTNull() + Me(Me.tableTBGERAET.PAGE_COUNTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPPMNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.PPMColumn) + End Function + + _ + Public Sub SetPPMNull() + Me(Me.tableTBGERAET.PPMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.BEMERKUNGColumn) + End Function + + _ + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBGERAET.BEMERKUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBGERAET.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBGERAET.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBESTELLUNGNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.BESTELLUNGColumn) + End Function + + _ + Public Sub SetBESTELLUNGNull() + Me(Me.tableTBGERAET.BESTELLUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMARKERNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.MARKERColumn) + End Function + + _ + Public Sub SetMARKERNull() + Me(Me.tableTBGERAET.MARKERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATE_INITIALNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.DATE_INITIALColumn) + End Function + + _ + Public Sub SetDATE_INITIALNull() + Me(Me.tableTBGERAET.DATE_INITIALColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMODEL_NRNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.MODEL_NRColumn) + End Function + + _ + Public Sub SetMODEL_NRNull() + Me(Me.tableTBGERAET.MODEL_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVERTRAGSNRNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.VERTRAGSNRColumn) + End Function + + _ + Public Sub SetVERTRAGSNRNull() + Me(Me.tableTBGERAET.VERTRAGSNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsONHOLD_DATENull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.ONHOLD_DATEColumn) + End Function + + _ + Public Sub SetONHOLD_DATENull() + Me(Me.tableTBGERAET.ONHOLD_DATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMELDEDATUMNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.MELDEDATUMColumn) + End Function + + _ + Public Sub SetMELDEDATUMNull() + Me(Me.tableTBGERAET.MELDEDATUMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMandantNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.MandantColumn) + End Function + + _ + Public Sub SetMandantNull() + Me(Me.tableTBGERAET.MandantColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMandant_KZNull() As Boolean + Return Me.IsNull(Me.tableTBGERAET.Mandant_KZColumn) + End Function + + _ + Public Sub SetMandant_KZNull() + Me(Me.tableTBGERAET.Mandant_KZColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWSUPPLIESRow + Inherits Global.System.Data.DataRow + + Private tableVWSUPPLIES As VWSUPPLIESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWSUPPLIES = CType(Me.Table,VWSUPPLIESDataTable) + End Sub + + _ + Public Property SUPPLY_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES.SUPPLY_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES.SUPPLY_IDColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableVWSUPPLIES.MARKTColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES.MARKTColumn) = value + End Set + End Property + + _ + Public Property DEVICE() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES.DEVICEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEVICE in Tabelle VWSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES.DEVICEColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_BEZ() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES.SUPPLY_BEZColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SUPPLY_BEZ in Tabelle VWSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES.SUPPLY_BEZColumn) = value + End Set + End Property + + _ + Public Property LEVEL() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES.LEVELColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES.LEVELColumn) = value + End Set + End Property + + _ + Public Property SCHWELLENWERT() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES.SCHWELLENWERTColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES.SCHWELLENWERTColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES.PARTNUMBERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARTNUMBER in Tabelle VWSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES.SERIENNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIENNR in Tabelle VWSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property STATUS_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES.STATUS_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES.STATUS_IDColumn) = value + End Set + End Property + + _ + Public Property STATUS() As String + Get + Return CType(Me(Me.tableVWSUPPLIES.STATUSColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES.STATUSColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableVWSUPPLIES.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableVWSUPPLIES.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle VWSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Return CType(Me(Me.tableVWSUPPLIES.GEAENDERTWANNColumn),Date) + End Get + Set + Me(Me.tableVWSUPPLIES.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property GERAET_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES.GERAET_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES.GERAET_IDColumn) = value + End Set + End Property + + _ + Public Property STATUS_WANN() As Date + Get + Try + Return CType(Me(Me.tableVWSUPPLIES.STATUS_WANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATUS_WANN in Tabelle VWSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES.STATUS_WANNColumn) = value + End Set + End Property + + _ + Public Property GERAET() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES.GERAETColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET in Tabelle VWSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES.GERAETColumn) = value + End Set + End Property + + _ + Public Property GERAET_IP() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES.GERAET_IPColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET_IP in Tabelle VWSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES.GERAET_IPColumn) = value + End Set + End Property + + _ + Public Property GERAET_SERIENNR() As String + Get + Return CType(Me(Me.tableVWSUPPLIES.GERAET_SERIENNRColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES.GERAET_SERIENNRColumn) = value + End Set + End Property + + _ + Public Property GERAET_PAGECOUNT() As Integer + Get + Try + Return CType(Me(Me.tableVWSUPPLIES.GERAET_PAGECOUNTColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET_PAGECOUNT in Tabelle VWSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES.GERAET_PAGECOUNTColumn) = value + End Set + End Property + + _ + Public Property GERAET_PPM() As Integer + Get + Try + Return CType(Me(Me.tableVWSUPPLIES.GERAET_PPMColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET_PPM in Tabelle VWSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES.GERAET_PPMColumn) = value + End Set + End Property + + _ + Public Property BESTELLUNG() As Boolean + Get + Return CType(Me(Me.tableVWSUPPLIES.BESTELLUNGColumn),Boolean) + End Get + Set + Me(Me.tableVWSUPPLIES.BESTELLUNGColumn) = value + End Set + End Property + + _ + Public Property STATUS_WER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES.STATUS_WERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATUS_WER in Tabelle VWSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES.STATUS_WERColumn) = value + End Set + End Property + + _ + Public Property TBWH_STATUSFILTERRow() As TBWH_STATUSFILTERRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBWH_STATUSFILTER_VWSUPPLIES")),TBWH_STATUSFILTERRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("TBWH_STATUSFILTER_VWSUPPLIES")) + End Set + End Property + + _ + Public Function IsDEVICENull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES.DEVICEColumn) + End Function + + _ + Public Sub SetDEVICENull() + Me(Me.tableVWSUPPLIES.DEVICEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSUPPLY_BEZNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES.SUPPLY_BEZColumn) + End Function + + _ + Public Sub SetSUPPLY_BEZNull() + Me(Me.tableVWSUPPLIES.SUPPLY_BEZColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPARTNUMBERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES.PARTNUMBERColumn) + End Function + + _ + Public Sub SetPARTNUMBERNull() + Me(Me.tableVWSUPPLIES.PARTNUMBERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERIENNRNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES.SERIENNRColumn) + End Function + + _ + Public Sub SetSERIENNRNull() + Me(Me.tableVWSUPPLIES.SERIENNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableVWSUPPLIES.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATUS_WANNNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES.STATUS_WANNColumn) + End Function + + _ + Public Sub SetSTATUS_WANNNull() + Me(Me.tableVWSUPPLIES.STATUS_WANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGERAETNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES.GERAETColumn) + End Function + + _ + Public Sub SetGERAETNull() + Me(Me.tableVWSUPPLIES.GERAETColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGERAET_IPNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES.GERAET_IPColumn) + End Function + + _ + Public Sub SetGERAET_IPNull() + Me(Me.tableVWSUPPLIES.GERAET_IPColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGERAET_PAGECOUNTNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES.GERAET_PAGECOUNTColumn) + End Function + + _ + Public Sub SetGERAET_PAGECOUNTNull() + Me(Me.tableVWSUPPLIES.GERAET_PAGECOUNTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGERAET_PPMNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES.GERAET_PPMColumn) + End Function + + _ + Public Sub SetGERAET_PPMNull() + Me(Me.tableVWSUPPLIES.GERAET_PPMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATUS_WERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES.STATUS_WERColumn) + End Function + + _ + Public Sub SetSTATUS_WERNull() + Me(Me.tableVWSUPPLIES.STATUS_WERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBWH_STATUSFILTERRows() As TBWH_STATUSFILTERRow() + If (Me.Table.ChildRelations("VWSUPPLIES_TBWH_STATUSFILTER") Is Nothing) Then + Return New TBWH_STATUSFILTERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("VWSUPPLIES_TBWH_STATUSFILTER")),TBWH_STATUSFILTERRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_STATUS1Row + Inherits Global.System.Data.DataRow + + Private tableTBWH_STATUS1 As TBWH_STATUS1DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_STATUS1 = CType(Me.Table,TBWH_STATUS1DataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWH_STATUS1.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBWH_STATUS1.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBWH_STATUS1.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBWH_STATUS1.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() + If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID") Is Nothing) Then + Return New TBSUPPLIESRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID")),TBSUPPLIESRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_STATUS2Row + Inherits Global.System.Data.DataRow + + Private tableTBWH_STATUS2 As TBWH_STATUS2DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_STATUS2 = CType(Me.Table,TBWH_STATUS2DataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWH_STATUS2.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBWH_STATUS2.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBWH_STATUS2.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBWH_STATUS2.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() + If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID1") Is Nothing) Then + Return New TBSUPPLIESRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID1")),TBSUPPLIESRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_STATUS3Row + Inherits Global.System.Data.DataRow + + Private tableTBWH_STATUS3 As TBWH_STATUS3DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_STATUS3 = CType(Me.Table,TBWH_STATUS3DataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWH_STATUS3.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBWH_STATUS3.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBWH_STATUS3.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBWH_STATUS3.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() + If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID2") Is Nothing) Then + Return New TBSUPPLIESRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID2")),TBSUPPLIESRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_STATUSFILTERRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_STATUSFILTER As TBWH_STATUSFILTERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_STATUSFILTER = CType(Me.Table,TBWH_STATUSFILTERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWH_STATUSFILTER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBWH_STATUSFILTER.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBWH_STATUSFILTER.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBWH_STATUSFILTER.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property VWSUPPLIESRow() As VWSUPPLIESRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("VWSUPPLIES_TBWH_STATUSFILTER")),VWSUPPLIESRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("VWSUPPLIES_TBWH_STATUSFILTER")) + End Set + End Property + + _ + Public Function GetVWSUPPLIESRows() As VWSUPPLIESRow() + If (Me.Table.ChildRelations("TBWH_STATUSFILTER_VWSUPPLIES") Is Nothing) Then + Return New VWSUPPLIESRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBWH_STATUSFILTER_VWSUPPLIES")),VWSUPPLIESRow()) + End If + End Function + + _ + Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() + If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID3") Is Nothing) Then + Return New TBSUPPLIESRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID3")),TBSUPPLIESRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBSUPPLY_VERFOLGUNGRow + Inherits Global.System.Data.DataRow + + Private tableTBSUPPLY_VERFOLGUNG As TBSUPPLY_VERFOLGUNGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBSUPPLY_VERFOLGUNG = CType(Me.Table,TBSUPPLY_VERFOLGUNGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBSUPPLY_VERFOLGUNG.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_VERFOLGUNG.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.SERIENNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIENNR in Tabelle TBSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_VERFOLGUNG.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property GERAET_ID() As Integer + Get + Try + Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.GERAET_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET_ID in Tabelle TBSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_VERFOLGUNG.GERAET_IDColumn) = value + End Set + End Property + + _ + Public Property LEVEL() As Integer + Get + Try + Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.LEVELColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LEVEL in Tabelle TBSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_VERFOLGUNG.LEVELColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.PARTNUMBERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARTNUMBER in Tabelle TBSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_VERFOLGUNG.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBSUPPLY_VERFOLGUNG.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.ERFASSTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERFASSTWANN in Tabelle TBSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_VERFOLGUNG.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_VERFOLGUNG.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_VERFOLGUNG.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property MARKER() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.MARKERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MARKER in Tabelle TBSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_VERFOLGUNG.MARKERColumn) = value + End Set + End Property + + _ + Public Property MELDEDATUM() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.MELDEDATUMColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MELDEDATUM in Tabelle TBSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_VERFOLGUNG.MELDEDATUMColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBSUPPLY_VERFOLGUNG.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERIENNRNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.SERIENNRColumn) + End Function + + _ + Public Sub SetSERIENNRNull() + Me(Me.tableTBSUPPLY_VERFOLGUNG.SERIENNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGERAET_IDNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.GERAET_IDColumn) + End Function + + _ + Public Sub SetGERAET_IDNull() + Me(Me.tableTBSUPPLY_VERFOLGUNG.GERAET_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLEVELNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.LEVELColumn) + End Function + + _ + Public Sub SetLEVELNull() + Me(Me.tableTBSUPPLY_VERFOLGUNG.LEVELColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPARTNUMBERNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.PARTNUMBERColumn) + End Function + + _ + Public Sub SetPARTNUMBERNull() + Me(Me.tableTBSUPPLY_VERFOLGUNG.PARTNUMBERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERFASSTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.ERFASSTWANNColumn) + End Function + + _ + Public Sub SetERFASSTWANNNull() + Me(Me.tableTBSUPPLY_VERFOLGUNG.ERFASSTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBSUPPLY_VERFOLGUNG.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBSUPPLY_VERFOLGUNG.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMARKERNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.MARKERColumn) + End Function + + _ + Public Sub SetMARKERNull() + Me(Me.tableTBSUPPLY_VERFOLGUNG.MARKERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMELDEDATUMNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.MELDEDATUMColumn) + End Function + + _ + Public Sub SetMELDEDATUMNull() + Me(Me.tableTBSUPPLY_VERFOLGUNG.MELDEDATUMColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBKONFIGURATIONRow + Inherits Global.System.Data.DataRow + + Private tableTBKONFIGURATION As TBKONFIGURATIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBKONFIGURATION = CType(Me.Table,TBKONFIGURATIONDataTable) + End Sub + + _ + Public Property STATUS_OK() As Integer + Get + Return CType(Me(Me.tableTBKONFIGURATION.STATUS_OKColumn),Integer) + End Get + Set + Me(Me.tableTBKONFIGURATION.STATUS_OKColumn) = value + End Set + End Property + + _ + Public Property STATUS_BEST() As Integer + Get + Return CType(Me(Me.tableTBKONFIGURATION.STATUS_BESTColumn),Integer) + End Get + Set + Me(Me.tableTBKONFIGURATION.STATUS_BESTColumn) = value + End Set + End Property + + _ + Public Property STATUS_SD() As Integer + Get + Return CType(Me(Me.tableTBKONFIGURATION.STATUS_SDColumn),Integer) + End Get + Set + Me(Me.tableTBKONFIGURATION.STATUS_SDColumn) = value + End Set + End Property + + _ + Public Property BEMERKUNG() As String + Get + Try + Return CType(Me(Me.tableTBKONFIGURATION.BEMERKUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBKONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBKONFIGURATION.BEMERKUNGColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBKONFIGURATION.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBKONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBKONFIGURATION.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Return CType(Me(Me.tableTBKONFIGURATION.GEAENDERTWANNColumn),Date) + End Get + Set + Me(Me.tableTBKONFIGURATION.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBKONFIGURATION.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBKONFIGURATION.GUIDColumn) = value + End Set + End Property + + _ + Public Property DEF_SW() As Integer + Get + Return CType(Me(Me.tableTBKONFIGURATION.DEF_SWColumn),Integer) + End Get + Set + Me(Me.tableTBKONFIGURATION.DEF_SWColumn) = value + End Set + End Property + + _ + Public Property STATUS_BESTELLT() As Integer + Get + Return CType(Me(Me.tableTBKONFIGURATION.STATUS_BESTELLTColumn),Integer) + End Get + Set + Me(Me.tableTBKONFIGURATION.STATUS_BESTELLTColumn) = value + End Set + End Property + + _ + Public Property STATUS_ERSETZT() As Integer + Get + Return CType(Me(Me.tableTBKONFIGURATION.STATUS_ERSETZTColumn),Integer) + End Get + Set + Me(Me.tableTBKONFIGURATION.STATUS_ERSETZTColumn) = value + End Set + End Property + + _ + Public Property STATUS_UNKLAR() As Integer + Get + Return CType(Me(Me.tableTBKONFIGURATION.STATUS_UNKLARColumn),Integer) + End Get + Set + Me(Me.tableTBKONFIGURATION.STATUS_UNKLARColumn) = value + End Set + End Property + + _ + Public Property IMPORT_XML() As String + Get + Try + Return CType(Me(Me.tableTBKONFIGURATION.IMPORT_XMLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMPORT_XML in Tabelle TBKONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBKONFIGURATION.IMPORT_XMLColumn) = value + End Set + End Property + + _ + Public Property IMPORT_XMLARCHIV() As String + Get + Try + Return CType(Me(Me.tableTBKONFIGURATION.IMPORT_XMLARCHIVColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMPORT_XMLARCHIV in Tabelle TBKONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBKONFIGURATION.IMPORT_XMLARCHIVColumn) = value + End Set + End Property + + _ + Public Property IMPORT_BESTELLUNGEN() As String + Get + Try + Return CType(Me(Me.tableTBKONFIGURATION.IMPORT_BESTELLUNGENColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMPORT_BESTELLUNGEN in Tabelle TBKONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBKONFIGURATION.IMPORT_BESTELLUNGENColumn) = value + End Set + End Property + + _ + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBKONFIGURATION.BEMERKUNGColumn) + End Function + + _ + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBKONFIGURATION.BEMERKUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBKONFIGURATION.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBKONFIGURATION.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIMPORT_XMLNull() As Boolean + Return Me.IsNull(Me.tableTBKONFIGURATION.IMPORT_XMLColumn) + End Function + + _ + Public Sub SetIMPORT_XMLNull() + Me(Me.tableTBKONFIGURATION.IMPORT_XMLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIMPORT_XMLARCHIVNull() As Boolean + Return Me.IsNull(Me.tableTBKONFIGURATION.IMPORT_XMLARCHIVColumn) + End Function + + _ + Public Sub SetIMPORT_XMLARCHIVNull() + Me(Me.tableTBKONFIGURATION.IMPORT_XMLARCHIVColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIMPORT_BESTELLUNGENNull() As Boolean + Return Me.IsNull(Me.tableTBKONFIGURATION.IMPORT_BESTELLUNGENColumn) + End Function + + _ + Public Sub SetIMPORT_BESTELLUNGENNull() + Me(Me.tableTBKONFIGURATION.IMPORT_BESTELLUNGENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBSTATUSRow + Inherits Global.System.Data.DataRow + + Private tableTBSTATUS As TBSTATUSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBSTATUS = CType(Me.Table,TBSTATUSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBSTATUS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBSTATUS.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBSTATUS.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBSTATUS.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property BESCHREIBUNG() As String + Get + Try + Return CType(Me(Me.tableTBSTATUS.BESCHREIBUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBSTATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSTATUS.BESCHREIBUNGColumn) = value + End Set + End Property + + _ + Public Property BEMERKUNG() As String + Get + Try + Return CType(Me(Me.tableTBSTATUS.BEMERKUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBSTATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSTATUS.BEMERKUNGColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBSTATUS.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBSTATUS.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBSTATUS.ERFASSTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERFASSTWANN in Tabelle TBSTATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSTATUS.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBSTATUS.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBSTATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSTATUS.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBSTATUS.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBSTATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSTATUS.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property TIMESTAMP1() As Byte() + Get + Try + Return CType(Me(Me.tableTBSTATUS.TIMESTAMP1Column),Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TIMESTAMP1 in Tabelle TBSTATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSTATUS.TIMESTAMP1Column) = value + End Set + End Property + + _ + Public Function IsBESCHREIBUNGNull() As Boolean + Return Me.IsNull(Me.tableTBSTATUS.BESCHREIBUNGColumn) + End Function + + _ + Public Sub SetBESCHREIBUNGNull() + Me(Me.tableTBSTATUS.BESCHREIBUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBSTATUS.BEMERKUNGColumn) + End Function + + _ + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBSTATUS.BEMERKUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERFASSTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBSTATUS.ERFASSTWANNColumn) + End Function + + _ + Public Sub SetERFASSTWANNNull() + Me(Me.tableTBSTATUS.ERFASSTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBSTATUS.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBSTATUS.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBSTATUS.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBSTATUS.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTIMESTAMP1Null() As Boolean + Return Me.IsNull(Me.tableTBSTATUS.TIMESTAMP1Column) + End Function + + _ + Public Sub SetTIMESTAMP1Null() + Me(Me.tableTBSTATUS.TIMESTAMP1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() + If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID4") Is Nothing) Then + Return New TBSUPPLIESRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID4")),TBSUPPLIESRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_MARKTRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_MARKT As TBWH_MARKTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_MARKT = CType(Me.Table,TBWH_MARKTDataTable) + End Sub + + _ + Public Property MARKT() As String + Get + Try + Return CType(Me(Me.tableTBWH_MARKT.MARKTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MARKT in Tabelle TBWH_MARKT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_MARKT.MARKTColumn) = value + End Set + End Property + + _ + Public Function IsMARKTNull() As Boolean + Return Me.IsNull(Me.tableTBWH_MARKT.MARKTColumn) + End Function + + _ + Public Sub SetMARKTNull() + Me(Me.tableTBWH_MARKT.MARKTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBGERAETRows() As TBGERAETRow() + If (Me.Table.ChildRelations("TBWH_MARKT_TBGERAET") Is Nothing) Then + Return New TBGERAETRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("TBWH_MARKT_TBGERAET")),TBGERAETRow()) + End If + End Function + + _ + Public Function GetVWSUPPLY_BESTELLUNG_FRONTENDRows() As VWSUPPLY_BESTELLUNG_FRONTENDRow() + If (Me.Table.ChildRelations("RelTBWH_MARKT_TBSUPPLY_BESTELLUNGView") Is Nothing) Then + Return New VWSUPPLY_BESTELLUNG_FRONTENDRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("RelTBWH_MARKT_TBSUPPLY_BESTELLUNGView")),VWSUPPLY_BESTELLUNG_FRONTENDRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWSUPPLIES_AKTUELLRow + Inherits Global.System.Data.DataRow + + Private tableVWSUPPLIES_AKTUELL As VWSUPPLIES_AKTUELLDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWSUPPLIES_AKTUELL = CType(Me.Table,VWSUPPLIES_AKTUELLDataTable) + End Sub + + _ + Public Property SUPPLY_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.SUPPLY_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.SUPPLY_IDColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.MARKTColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.MARKTColumn) = value + End Set + End Property + + _ + Public Property DEVICE() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.DEVICEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEVICE in Tabelle VWSUPPLIES_AKTUELL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.DEVICEColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_BEZ() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.SUPPLY_BEZColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.SUPPLY_BEZColumn) = value + End Set + End Property + + _ + Public Property LEVEL() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.LEVELColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.LEVELColumn) = value + End Set + End Property + + _ + Public Property SCHWELLENWERT() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.SCHWELLENWERTColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.SCHWELLENWERTColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.PARTNUMBERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARTNUMBER in Tabelle VWSUPPLIES_AKTUELL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.SERIENNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIENNR in Tabelle VWSUPPLIES_AKTUELL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property STATUS_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.STATUS_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.STATUS_IDColumn) = value + End Set + End Property + + _ + Public Property STATUS() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.STATUSColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.STATUSColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle VWSUPPLIES_AKTUELL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.GEAENDERTWANNColumn),Date) + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property GERAET_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.GERAET_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.GERAET_IDColumn) = value + End Set + End Property + + _ + Public Property STATUS_WANN() As Date + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.STATUS_WANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATUS_WANN in Tabelle VWSUPPLIES_AKTUELL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.STATUS_WANNColumn) = value + End Set + End Property + + _ + Public Property STATUS_WER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.STATUS_WERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATUS_WER in Tabelle VWSUPPLIES_AKTUELL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.STATUS_WERColumn) = value + End Set + End Property + + _ + Public Property ON_HOLD() As Boolean + Get + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.ON_HOLDColumn),Boolean) + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.ON_HOLDColumn) = value + End Set + End Property + + _ + Public Property OH_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.OH_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OH_DATE in Tabelle VWSUPPLIES_AKTUELL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_AKTUELL.OH_DATEColumn) = value + End Set + End Property + + _ + Public Function IsDEVICENull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.DEVICEColumn) + End Function + + _ + Public Sub SetDEVICENull() + Me(Me.tableVWSUPPLIES_AKTUELL.DEVICEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPARTNUMBERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.PARTNUMBERColumn) + End Function + + _ + Public Sub SetPARTNUMBERNull() + Me(Me.tableVWSUPPLIES_AKTUELL.PARTNUMBERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERIENNRNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.SERIENNRColumn) + End Function + + _ + Public Sub SetSERIENNRNull() + Me(Me.tableVWSUPPLIES_AKTUELL.SERIENNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableVWSUPPLIES_AKTUELL.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATUS_WANNNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.STATUS_WANNColumn) + End Function + + _ + Public Sub SetSTATUS_WANNNull() + Me(Me.tableVWSUPPLIES_AKTUELL.STATUS_WANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATUS_WERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.STATUS_WERColumn) + End Function + + _ + Public Sub SetSTATUS_WERNull() + Me(Me.tableVWSUPPLIES_AKTUELL.STATUS_WERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOH_DATENull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.OH_DATEColumn) + End Function + + _ + Public Sub SetOH_DATENull() + Me(Me.tableVWSUPPLIES_AKTUELL.OH_DATEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWGERAET_ORDERRow + Inherits Global.System.Data.DataRow + + Private tableVWGERAET_ORDER As VWGERAET_ORDERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWGERAET_ORDER = CType(Me.Table,VWGERAET_ORDERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWGERAET_ORDER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWGERAET_ORDER.GUIDColumn) = value + End Set + End Property + + _ + Public Property GERAET_BEZ() As String + Get + Try + Return CType(Me(Me.tableVWGERAET_ORDER.GERAET_BEZColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET_BEZ in Tabelle VWGERAET_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAET_ORDER.GERAET_BEZColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Return CType(Me(Me.tableVWGERAET_ORDER.SERIENNRColumn),String) + End Get + Set + Me(Me.tableVWGERAET_ORDER.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableVWGERAET_ORDER.MARKTColumn),String) + End Get + Set + Me(Me.tableVWGERAET_ORDER.MARKTColumn) = value + End Set + End Property + + _ + Public Property PAGE_COUNT() As Integer + Get + Try + Return CType(Me(Me.tableVWGERAET_ORDER.PAGE_COUNTColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAGE_COUNT in Tabelle VWGERAET_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAET_ORDER.PAGE_COUNTColumn) = value + End Set + End Property + + _ + Public Property PPM() As Integer + Get + Try + Return CType(Me(Me.tableVWGERAET_ORDER.PPMColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PPM in Tabelle VWGERAET_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAET_ORDER.PPMColumn) = value + End Set + End Property + + _ + Public Property BESTELLUNG() As Boolean + Get + Return CType(Me(Me.tableVWGERAET_ORDER.BESTELLUNGColumn),Boolean) + End Get + Set + Me(Me.tableVWGERAET_ORDER.BESTELLUNGColumn) = value + End Set + End Property + + _ + Public Property MANDANT_ID() As Integer + Get + Return CType(Me(Me.tableVWGERAET_ORDER.MANDANT_IDColumn),Integer) + End Get + Set + Me(Me.tableVWGERAET_ORDER.MANDANT_IDColumn) = value + End Set + End Property + + _ + Public Property MANDANT() As String + Get + Return CType(Me(Me.tableVWGERAET_ORDER.MANDANTColumn),String) + End Get + Set + Me(Me.tableVWGERAET_ORDER.MANDANTColumn) = value + End Set + End Property + + _ + Public Property MANUALLY() As Boolean + Get + Try + Return CType(Me(Me.tableVWGERAET_ORDER.MANUALLYColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MANUALLY in Tabelle VWGERAET_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAET_ORDER.MANUALLYColumn) = value + End Set + End Property + + _ + Public Function IsGERAET_BEZNull() As Boolean + Return Me.IsNull(Me.tableVWGERAET_ORDER.GERAET_BEZColumn) + End Function + + _ + Public Sub SetGERAET_BEZNull() + Me(Me.tableVWGERAET_ORDER.GERAET_BEZColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPAGE_COUNTNull() As Boolean + Return Me.IsNull(Me.tableVWGERAET_ORDER.PAGE_COUNTColumn) + End Function + + _ + Public Sub SetPAGE_COUNTNull() + Me(Me.tableVWGERAET_ORDER.PAGE_COUNTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPPMNull() As Boolean + Return Me.IsNull(Me.tableVWGERAET_ORDER.PPMColumn) + End Function + + _ + Public Sub SetPPMNull() + Me(Me.tableVWGERAET_ORDER.PPMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMANUALLYNull() As Boolean + Return Me.IsNull(Me.tableVWGERAET_ORDER.MANUALLYColumn) + End Function + + _ + Public Sub SetMANUALLYNull() + Me(Me.tableVWGERAET_ORDER.MANUALLYColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetVWSUPPLIES_TO_ORDERRows() As VWSUPPLIES_TO_ORDERRow() + If (Me.Table.ChildRelations("VWGERAET_ORDER_VWSUPPLIES_TO_ORDER") Is Nothing) Then + Return New VWSUPPLIES_TO_ORDERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("VWGERAET_ORDER_VWSUPPLIES_TO_ORDER")),VWSUPPLIES_TO_ORDERRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWSUPPLIES_TO_ORDERRow + Inherits Global.System.Data.DataRow + + Private tableVWSUPPLIES_TO_ORDER As VWSUPPLIES_TO_ORDERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWSUPPLIES_TO_ORDER = CType(Me.Table,VWSUPPLIES_TO_ORDERDataTable) + End Sub + + _ + Public Property SUPPLY_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.SUPPLY_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.SUPPLY_IDColumn) = value + End Set + End Property + + _ + Public Property GERAET_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.GERAET_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.GERAET_IDColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_BEZ() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.SUPPLY_BEZColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.SUPPLY_BEZColumn) = value + End Set + End Property + + _ + Public Property LEVEL() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.LEVELColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.LEVELColumn) = value + End Set + End Property + + _ + Public Property SCHWELLENWERT() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.SCHWELLENWERTColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.SCHWELLENWERTColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.PARTNUMBERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARTNUMBER in Tabelle VWSUPPLIES_TO_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.SERIENNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIENNR in Tabelle VWSUPPLIES_TO_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property STATUS_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.STATUS_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.STATUS_IDColumn) = value + End Set + End Property + + _ + Public Property STATUS() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.STATUSColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.STATUSColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle VWSUPPLIES_TO_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property STATUS_WANN() As Date + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.STATUS_WANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATUS_WANN in Tabelle VWSUPPLIES_TO_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.STATUS_WANNColumn) = value + End Set + End Property + + _ + Public Property STATUS_WER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.STATUS_WERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATUS_WER in Tabelle VWSUPPLIES_TO_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.STATUS_WERColumn) = value + End Set + End Property + + _ + Public Property MANUELL() As Boolean + Get + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.MANUELLColumn),Boolean) + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.MANUELLColumn) = value + End Set + End Property + + _ + Public Property MANDANT() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.MANDANTColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.MANDANTColumn) = value + End Set + End Property + + _ + Public Property FW() As Boolean + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.FWColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FW in Tabelle VWSUPPLIES_TO_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_TO_ORDER.FWColumn) = value + End Set + End Property + + _ + Public Property VWGERAET_ORDERRow() As VWGERAET_ORDERRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("VWGERAET_ORDER_VWSUPPLIES_TO_ORDER")),VWGERAET_ORDERRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("VWGERAET_ORDER_VWSUPPLIES_TO_ORDER")) + End Set + End Property + + _ + Public Function IsPARTNUMBERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_TO_ORDER.PARTNUMBERColumn) + End Function + + _ + Public Sub SetPARTNUMBERNull() + Me(Me.tableVWSUPPLIES_TO_ORDER.PARTNUMBERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERIENNRNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_TO_ORDER.SERIENNRColumn) + End Function + + _ + Public Sub SetSERIENNRNull() + Me(Me.tableVWSUPPLIES_TO_ORDER.SERIENNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_TO_ORDER.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableVWSUPPLIES_TO_ORDER.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATUS_WANNNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_TO_ORDER.STATUS_WANNColumn) + End Function + + _ + Public Sub SetSTATUS_WANNNull() + Me(Me.tableVWSUPPLIES_TO_ORDER.STATUS_WANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATUS_WERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_TO_ORDER.STATUS_WERColumn) + End Function + + _ + Public Sub SetSTATUS_WERNull() + Me(Me.tableVWSUPPLIES_TO_ORDER.STATUS_WERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFWNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_TO_ORDER.FWColumn) + End Function + + _ + Public Sub SetFWNull() + Me(Me.tableVWSUPPLIES_TO_ORDER.FWColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBSUPPLIESRow + Inherits Global.System.Data.DataRow + + Private tableTBSUPPLIES As TBSUPPLIESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBSUPPLIES = CType(Me.Table,TBSUPPLIESDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBSUPPLIES.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBSUPPLIES.GUIDColumn) = value + End Set + End Property + + _ + Public Property GERAET_ID() As Integer + Get + Return CType(Me(Me.tableTBSUPPLIES.GERAET_IDColumn),Integer) + End Get + Set + Me(Me.tableTBSUPPLIES.GERAET_IDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLIES.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLIES.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property LEVEL() As Integer + Get + Return CType(Me(Me.tableTBSUPPLIES.LEVELColumn),Integer) + End Get + Set + Me(Me.tableTBSUPPLIES.LEVELColumn) = value + End Set + End Property + + _ + Public Property SCHWELLENWERT() As Integer + Get + Return CType(Me(Me.tableTBSUPPLIES.SCHWELLENWERTColumn),Integer) + End Get + Set + Me(Me.tableTBSUPPLIES.SCHWELLENWERTColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLIES.PARTNUMBERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARTNUMBER in Tabelle TBSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLIES.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLIES.SERIENNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIENNR in Tabelle TBSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLIES.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property STATUS_ID() As Integer + Get + Return CType(Me(Me.tableTBSUPPLIES.STATUS_IDColumn),Integer) + End Get + Set + Me(Me.tableTBSUPPLIES.STATUS_IDColumn) = value + End Set + End Property + + _ + Public Property STATUS_WANN() As Date + Get + Try + Return CType(Me(Me.tableTBSUPPLIES.STATUS_WANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATUS_WANN in Tabelle TBSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLIES.STATUS_WANNColumn) = value + End Set + End Property + + _ + Public Property STATUS_WER() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLIES.STATUS_WERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATUS_WER in Tabelle TBSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLIES.STATUS_WERColumn) = value + End Set + End Property + + _ + Public Property BEMERKUNG() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLIES.BEMERKUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLIES.BEMERKUNGColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBSUPPLIES.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBSUPPLIES.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableTBSUPPLIES.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableTBSUPPLIES.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLIES.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLIES.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Return CType(Me(Me.tableTBSUPPLIES.GEAENDERTWANNColumn),Date) + End Get + Set + Me(Me.tableTBSUPPLIES.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property TIMESTAMP1() As Byte() + Get + Try + Return CType(Me(Me.tableTBSUPPLIES.TIMESTAMP1Column),Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TIMESTAMP1 in Tabelle TBSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLIES.TIMESTAMP1Column) = value + End Set + End Property + + _ + Public Property MARKER() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLIES.MARKERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MARKER in Tabelle TBSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLIES.MARKERColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_DEF_ID() As Integer + Get + Return CType(Me(Me.tableTBSUPPLIES.SUPPLY_DEF_IDColumn),Integer) + End Get + Set + Me(Me.tableTBSUPPLIES.SUPPLY_DEF_IDColumn) = value + End Set + End Property + + _ + Public Property ON_HOLD() As Boolean + Get + Return CType(Me(Me.tableTBSUPPLIES.ON_HOLDColumn),Boolean) + End Get + Set + Me(Me.tableTBSUPPLIES.ON_HOLDColumn) = value + End Set + End Property + + _ + Public Property OH_DATE() As Date + Get + Try + Return CType(Me(Me.tableTBSUPPLIES.OH_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OH_DATE in Tabelle TBSUPPLIES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLIES.OH_DATEColumn) = value + End Set + End Property + + _ + Public Property TBWH_STATUS1Row() As TBWH_STATUS1Row + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID")),TBWH_STATUS1Row) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID")) + End Set + End Property + + _ + Public Property TBWH_STATUS2Row() As TBWH_STATUS2Row + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID1")),TBWH_STATUS2Row) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID1")) + End Set + End Property + + _ + Public Property TBWH_STATUS3Row() As TBWH_STATUS3Row + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID2")),TBWH_STATUS3Row) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID2")) + End Set + End Property + + _ + Public Property TBWH_STATUSFILTERRow() As TBWH_STATUSFILTERRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID3")),TBWH_STATUSFILTERRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID3")) + End Set + End Property + + _ + Public Property TBSTATUSRow() As TBSTATUSRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID4")),TBSTATUSRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID4")) + End Set + End Property + + _ + Public Property TBWH_STATUS4Row() As TBWH_STATUS4Row + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID5")),TBWH_STATUS4Row) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID5")) + End Set + End Property + + _ + Public Property TBWH_STATUS5Row() As TBWH_STATUS5Row + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID6")),TBWH_STATUS5Row) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID6")) + End Set + End Property + + _ + Public Property TBSUPPLY_DEFINITIONRow() As TBSUPPLY_DEFINITIONRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLYDEFINITION")),TBSUPPLY_DEFINITIONRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBSUPPLYDEFINITION")) + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLIES.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBSUPPLIES.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPARTNUMBERNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLIES.PARTNUMBERColumn) + End Function + + _ + Public Sub SetPARTNUMBERNull() + Me(Me.tableTBSUPPLIES.PARTNUMBERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERIENNRNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLIES.SERIENNRColumn) + End Function + + _ + Public Sub SetSERIENNRNull() + Me(Me.tableTBSUPPLIES.SERIENNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATUS_WANNNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLIES.STATUS_WANNColumn) + End Function + + _ + Public Sub SetSTATUS_WANNNull() + Me(Me.tableTBSUPPLIES.STATUS_WANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATUS_WERNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLIES.STATUS_WERColumn) + End Function + + _ + Public Sub SetSTATUS_WERNull() + Me(Me.tableTBSUPPLIES.STATUS_WERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLIES.BEMERKUNGColumn) + End Function + + _ + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBSUPPLIES.BEMERKUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLIES.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBSUPPLIES.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTIMESTAMP1Null() As Boolean + Return Me.IsNull(Me.tableTBSUPPLIES.TIMESTAMP1Column) + End Function + + _ + Public Sub SetTIMESTAMP1Null() + Me(Me.tableTBSUPPLIES.TIMESTAMP1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMARKERNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLIES.MARKERColumn) + End Function + + _ + Public Sub SetMARKERNull() + Me(Me.tableTBSUPPLIES.MARKERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOH_DATENull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLIES.OH_DATEColumn) + End Function + + _ + Public Sub SetOH_DATENull() + Me(Me.tableTBSUPPLIES.OH_DATEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_STATUS4Row + Inherits Global.System.Data.DataRow + + Private tableTBWH_STATUS4 As TBWH_STATUS4DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_STATUS4 = CType(Me.Table,TBWH_STATUS4DataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWH_STATUS4.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBWH_STATUS4.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBWH_STATUS4.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBWH_STATUS4.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() + If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID5") Is Nothing) Then + Return New TBSUPPLIESRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID5")),TBSUPPLIESRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_STATUS5Row + Inherits Global.System.Data.DataRow + + Private tableTBWH_STATUS5 As TBWH_STATUS5DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_STATUS5 = CType(Me.Table,TBWH_STATUS5DataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWH_STATUS5.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBWH_STATUS5.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBWH_STATUS5.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBWH_STATUS5.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() + If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID6") Is Nothing) Then + Return New TBSUPPLIESRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID6")),TBSUPPLIESRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBSUPPLY_BESTELLUNGRow + Inherits Global.System.Data.DataRow + + Private tableTBSUPPLY_BESTELLUNG As TBSUPPLY_BESTELLUNGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBSUPPLY_BESTELLUNG = CType(Me.Table,TBSUPPLY_BESTELLUNGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBSUPPLY_BESTELLUNG.GUIDColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.SUPPLY_BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBSUPPLY_BESTELLUNG.SUPPLY_BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property MENGE() As Integer + Get + Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.MENGEColumn),Integer) + End Get + Set + Me(Me.tableTBSUPPLY_BESTELLUNG.MENGEColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.MARKTColumn),String) + End Get + Set + Me(Me.tableTBSUPPLY_BESTELLUNG.MARKTColumn) = value + End Set + End Property + + _ + Public Property MANUELL() As Boolean + Get + Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.MANUELLColumn),Boolean) + End Get + Set + Me(Me.tableTBSUPPLY_BESTELLUNG.MANUELLColumn) = value + End Set + End Property + + _ + Public Property BESTELLT_WER() As String + Get + Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.BESTELLT_WERColumn),String) + End Get + Set + Me(Me.tableTBSUPPLY_BESTELLUNG.BESTELLT_WERColumn) = value + End Set + End Property + + _ + Public Property BESTELLT_WANN() As Date + Get + Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.BESTELLT_WANNColumn),Date) + End Get + Set + Me(Me.tableTBSUPPLY_BESTELLUNG.BESTELLT_WANNColumn) = value + End Set + End Property + + _ + Public Property GERAET() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.GERAETColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET in Tabelle TBSUPPLY_BESTELLUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_BESTELLUNG.GERAETColumn) = value + End Set + End Property + + _ + Public Property SERIEN_NR() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.SERIEN_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIEN_NR in Tabelle TBSUPPLY_BESTELLUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_BESTELLUNG.SERIEN_NRColumn) = value + End Set + End Property + + _ + Public Property BESTELLNR() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.BESTELLNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESTELLNR in Tabelle TBSUPPLY_BESTELLUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_BESTELLUNG.BESTELLNRColumn) = value + End Set + End Property + + _ + Public Property GERAET_ID() As Integer + Get + Try + Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.GERAET_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET_ID in Tabelle TBSUPPLY_BESTELLUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_BESTELLUNG.GERAET_IDColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_ID() As Integer + Get + Try + Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.SUPPLY_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SUPPLY_ID in Tabelle TBSUPPLY_BESTELLUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_BESTELLUNG.SUPPLY_IDColumn) = value + End Set + End Property + + _ + Public Function IsGERAETNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_BESTELLUNG.GERAETColumn) + End Function + + _ + Public Sub SetGERAETNull() + Me(Me.tableTBSUPPLY_BESTELLUNG.GERAETColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERIEN_NRNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_BESTELLUNG.SERIEN_NRColumn) + End Function + + _ + Public Sub SetSERIEN_NRNull() + Me(Me.tableTBSUPPLY_BESTELLUNG.SERIEN_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBESTELLNRNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_BESTELLUNG.BESTELLNRColumn) + End Function + + _ + Public Sub SetBESTELLNRNull() + Me(Me.tableTBSUPPLY_BESTELLUNG.BESTELLNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGERAET_IDNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_BESTELLUNG.GERAET_IDColumn) + End Function + + _ + Public Sub SetGERAET_IDNull() + Me(Me.tableTBSUPPLY_BESTELLUNG.GERAET_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSUPPLY_IDNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_BESTELLUNG.SUPPLY_IDColumn) + End Function + + _ + Public Sub SetSUPPLY_IDNull() + Me(Me.tableTBSUPPLY_BESTELLUNG.SUPPLY_IDColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_SUPPLIES_MARKTRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_SUPPLIES_MARKT As TBWH_SUPPLIES_MARKTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_SUPPLIES_MARKT = CType(Me.Table,TBWH_SUPPLIES_MARKTDataTable) + End Sub + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableTBWH_SUPPLIES_MARKT.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBWH_SUPPLIES_MARKT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_SUPPLIES_MARKT.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWH_SUPPLIES_MARKT.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBWH_SUPPLIES_MARKT.GUIDColumn) = value + End Set + End Property + + _ + Public Property Supply() As String + Get + Try + Return CType(Me(Me.tableTBWH_SUPPLIES_MARKT.SupplyColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Supply in Tabelle TBWH_SUPPLIES_MARKT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_SUPPLIES_MARKT.SupplyColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBWH_SUPPLIES_MARKT.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBWH_SUPPLIES_MARKT.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSupplyNull() As Boolean + Return Me.IsNull(Me.tableTBWH_SUPPLIES_MARKT.SupplyColumn) + End Function + + _ + Public Sub SetSupplyNull() + Me(Me.tableTBWH_SUPPLIES_MARKT.SupplyColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWSUPPLY_BESTELLUNG_FRONTENDRow + Inherits Global.System.Data.DataRow + + Private tableVWSUPPLY_BESTELLUNG_FRONTEND As VWSUPPLY_BESTELLUNG_FRONTENDDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWSUPPLY_BESTELLUNG_FRONTEND = CType(Me.Table,VWSUPPLY_BESTELLUNG_FRONTENDDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.GUIDColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SUPPLY_BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SUPPLY_BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property MENGE() As Integer + Get + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MENGEColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MENGEColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MARKTColumn),String) + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MARKTColumn) = value + End Set + End Property + + _ + Public Property MANUELL() As Boolean + Get + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MANUELLColumn),Boolean) + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MANUELLColumn) = value + End Set + End Property + + _ + Public Property BESTELLT_WER() As String + Get + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WERColumn),String) + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WERColumn) = value + End Set + End Property + + _ + Public Property BESTELLT_WANN() As Date + Get + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WANNColumn),Date) + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WANNColumn) = value + End Set + End Property + + _ + Public Property GERAET() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.GERAETColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET in Tabelle VWSUPPLY_BESTELLUNG_FRONTEND ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.GERAETColumn) = value + End Set + End Property + + _ + Public Property SERIEN_NR() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SERIEN_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIEN_NR in Tabelle VWSUPPLY_BESTELLUNG_FRONTEND ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SERIEN_NRColumn) = value + End Set + End Property + + _ + Public Property BESTELLNR() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESTELLNR in Tabelle VWSUPPLY_BESTELLUNG_FRONTEND ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLNRColumn) = value + End Set + End Property + + _ + Public Property FILE_ORDER_CONFIRM() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.FILE_ORDER_CONFIRMColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_ORDER_CONFIRM in Tabelle VWSUPPLY_BESTELLUNG_FRONTEND is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.FILE_ORDER_CONFIRMColumn) = value + End Set + End Property + + _ + Public Property MENGE_ORIGIN() As Integer + Get + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MENGE_ORIGINColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MENGE_ORIGINColumn) = value + End Set + End Property + + _ + Public Property TBWH_MARKTRow() As TBWH_MARKTRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("RelTBWH_MARKT_TBSUPPLY_BESTELLUNGView")),TBWH_MARKTRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("RelTBWH_MARKT_TBSUPPLY_BESTELLUNGView")) + End Set + End Property + + _ + Public Function IsGERAETNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.GERAETColumn) + End Function + + _ + Public Sub SetGERAETNull() + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.GERAETColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERIEN_NRNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SERIEN_NRColumn) + End Function + + _ + Public Sub SetSERIEN_NRNull() + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SERIEN_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBESTELLNRNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLNRColumn) + End Function + + _ + Public Sub SetBESTELLNRNull() + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFILE_ORDER_CONFIRMNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.FILE_ORDER_CONFIRMColumn) + End Function + + _ + Public Sub SetFILE_ORDER_CONFIRMNull() + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.FILE_ORDER_CONFIRMColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBGERAETByMarktRow + Inherits Global.System.Data.DataRow + + Private tableTBGERAETByMarkt As TBGERAETByMarktDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBGERAETByMarkt = CType(Me.Table,TBGERAETByMarktDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBGERAETByMarkt.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBGERAETByMarkt.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableTBGERAETByMarkt.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBGERAETByMarkt ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETByMarkt.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableTBGERAETByMarkt.MARKTColumn),String) + End Get + Set + Me(Me.tableTBGERAETByMarkt.MARKTColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Return CType(Me(Me.tableTBGERAETByMarkt.SERIENNRColumn),String) + End Get + Set + Me(Me.tableTBGERAETByMarkt.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property DATE_INITIAL() As Date + Get + Return CType(Me(Me.tableTBGERAETByMarkt.DATE_INITIALColumn),Date) + End Get + Set + Me(Me.tableTBGERAETByMarkt.DATE_INITIALColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETByMarkt.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBGERAETByMarkt.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIMPORT_PRODUKTRow + Inherits Global.System.Data.DataRow + + Private tableTBIMPORT_PRODUKT As TBIMPORT_PRODUKTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIMPORT_PRODUKT = CType(Me.Table,TBIMPORT_PRODUKTDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBIMPORT_PRODUKT.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBIMPORT_PRODUKT.GUIDColumn) = value + End Set + End Property + + _ + Public Property VERTRAGSNR() As String + Get + Return CType(Me(Me.tableTBIMPORT_PRODUKT.VERTRAGSNRColumn),String) + End Get + Set + Me(Me.tableTBIMPORT_PRODUKT.VERTRAGSNRColumn) = value + End Set + End Property + + _ + Public Property SERIEN_NR() As String + Get + Try + Return CType(Me(Me.tableTBIMPORT_PRODUKT.SERIEN_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIEN_NR in Tabelle TBIMPORT_PRODUKT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIMPORT_PRODUKT.SERIEN_NRColumn) = value + End Set + End Property + + _ + Public Property PRODUKT_NR() As String + Get + Try + Return CType(Me(Me.tableTBIMPORT_PRODUKT.PRODUKT_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRODUKT_NR in Tabelle TBIMPORT_PRODUKT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIMPORT_PRODUKT.PRODUKT_NRColumn) = value + End Set + End Property + + _ + Public Property MODELL_NAME() As String + Get + Try + Return CType(Me(Me.tableTBIMPORT_PRODUKT.MODELL_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODELL_NAME in Tabelle TBIMPORT_PRODUKT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIMPORT_PRODUKT.MODELL_NAMEColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBIMPORT_PRODUKT.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBIMPORT_PRODUKT.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableTBIMPORT_PRODUKT.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableTBIMPORT_PRODUKT.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBIMPORT_PRODUKT.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBIMPORT_PRODUKT ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIMPORT_PRODUKT.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Return CType(Me(Me.tableTBIMPORT_PRODUKT.GEAENDERTWANNColumn),Date) + End Get + Set + Me(Me.tableTBIMPORT_PRODUKT.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsSERIEN_NRNull() As Boolean + Return Me.IsNull(Me.tableTBIMPORT_PRODUKT.SERIEN_NRColumn) + End Function + + _ + Public Sub SetSERIEN_NRNull() + Me(Me.tableTBIMPORT_PRODUKT.SERIEN_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRODUKT_NRNull() As Boolean + Return Me.IsNull(Me.tableTBIMPORT_PRODUKT.PRODUKT_NRColumn) + End Function + + _ + Public Sub SetPRODUKT_NRNull() + Me(Me.tableTBIMPORT_PRODUKT.PRODUKT_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMODELL_NAMENull() As Boolean + Return Me.IsNull(Me.tableTBIMPORT_PRODUKT.MODELL_NAMEColumn) + End Function + + _ + Public Sub SetMODELL_NAMENull() + Me(Me.tableTBIMPORT_PRODUKT.MODELL_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBIMPORT_PRODUKT.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBIMPORT_PRODUKT.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBVERTRAEGERow + Inherits Global.System.Data.DataRow + + Private tableTBVERTRAEGE As TBVERTRAEGEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBVERTRAEGE = CType(Me.Table,TBVERTRAEGEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBVERTRAEGE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBVERTRAEGE.GUIDColumn) = value + End Set + End Property + + _ + Public Property VERTRAGSNR() As String + Get + Return CType(Me(Me.tableTBVERTRAEGE.VERTRAGSNRColumn),String) + End Get + Set + Me(Me.tableTBVERTRAEGE.VERTRAGSNRColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG1() As String + Get + Try + Return CType(Me(Me.tableTBVERTRAEGE.BEZEICHNUNG1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG1 in Tabelle TBVERTRAEGE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBVERTRAEGE.BEZEICHNUNG1Column) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG2() As String + Get + Try + Return CType(Me(Me.tableTBVERTRAEGE.BEZEICHNUNG2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG2 in Tabelle TBVERTRAEGE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBVERTRAEGE.BEZEICHNUNG2Column) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBVERTRAEGE.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBVERTRAEGE.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableTBVERTRAEGE.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableTBVERTRAEGE.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBVERTRAEGE.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBVERTRAEGE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBVERTRAEGE.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Return CType(Me(Me.tableTBVERTRAEGE.GEAENDERTWANNColumn),Date) + End Get + Set + Me(Me.tableTBVERTRAEGE.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNG1Null() As Boolean + Return Me.IsNull(Me.tableTBVERTRAEGE.BEZEICHNUNG1Column) + End Function + + _ + Public Sub SetBEZEICHNUNG1Null() + Me(Me.tableTBVERTRAEGE.BEZEICHNUNG1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEZEICHNUNG2Null() As Boolean + Return Me.IsNull(Me.tableTBVERTRAEGE.BEZEICHNUNG2Column) + End Function + + _ + Public Sub SetBEZEICHNUNG2Null() + Me(Me.tableTBVERTRAEGE.BEZEICHNUNG2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBVERTRAEGE.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBVERTRAEGE.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPRODUKT_VERTRAGRows() As TBPRODUKT_VERTRAGRow() + If (Me.Table.ChildRelations("FK_TBPRODUKT_VERTRAG_VERTRAG") Is Nothing) Then + Return New TBPRODUKT_VERTRAGRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPRODUKT_VERTRAG_VERTRAG")),TBPRODUKT_VERTRAGRow()) + End If + End Function + + _ + Public Function GetTBGERAETE_NOTINLISTRows() As TBGERAETE_NOTINLISTRow() + If (Me.Table.ChildRelations("FK_TBGERAETE_NOTINLIST_VERTRAG") Is Nothing) Then + Return New TBGERAETE_NOTINLISTRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBGERAETE_NOTINLIST_VERTRAG")),TBGERAETE_NOTINLISTRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPRODUKT_VERTRAGRow + Inherits Global.System.Data.DataRow + + Private tableTBPRODUKT_VERTRAG As TBPRODUKT_VERTRAGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPRODUKT_VERTRAG = CType(Me.Table,TBPRODUKT_VERTRAGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPRODUKT_VERTRAG.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPRODUKT_VERTRAG.GUIDColumn) = value + End Set + End Property + + _ + Public Property VERTRAG_ID() As Integer + Get + Return CType(Me(Me.tableTBPRODUKT_VERTRAG.VERTRAG_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPRODUKT_VERTRAG.VERTRAG_IDColumn) = value + End Set + End Property + + _ + Public Property SERIEN_NR() As String + Get + Try + Return CType(Me(Me.tableTBPRODUKT_VERTRAG.SERIEN_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIEN_NR in Tabelle TBPRODUKT_VERTRAG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPRODUKT_VERTRAG.SERIEN_NRColumn) = value + End Set + End Property + + _ + Public Property PRODUKT_NR() As String + Get + Try + Return CType(Me(Me.tableTBPRODUKT_VERTRAG.PRODUKT_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRODUKT_NR in Tabelle TBPRODUKT_VERTRAG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPRODUKT_VERTRAG.PRODUKT_NRColumn) = value + End Set + End Property + + _ + Public Property MODELL_NAME() As String + Get + Try + Return CType(Me(Me.tableTBPRODUKT_VERTRAG.MODELL_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODELL_NAME in Tabelle TBPRODUKT_VERTRAG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPRODUKT_VERTRAG.MODELL_NAMEColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBPRODUKT_VERTRAG.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBPRODUKT_VERTRAG.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableTBPRODUKT_VERTRAG.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableTBPRODUKT_VERTRAG.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBPRODUKT_VERTRAG.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBPRODUKT_VERTRAG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPRODUKT_VERTRAG.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Return CType(Me(Me.tableTBPRODUKT_VERTRAG.GEAENDERTWANNColumn),Date) + End Get + Set + Me(Me.tableTBPRODUKT_VERTRAG.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBPRODUKT_VERTRAG.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBPRODUKT_VERTRAG.AKTIVColumn) = value + End Set + End Property + + _ + Public Property TBVERTRAEGERow() As TBVERTRAEGERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPRODUKT_VERTRAG_VERTRAG")),TBVERTRAEGERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPRODUKT_VERTRAG_VERTRAG")) + End Set + End Property + + _ + Public Function IsSERIEN_NRNull() As Boolean + Return Me.IsNull(Me.tableTBPRODUKT_VERTRAG.SERIEN_NRColumn) + End Function + + _ + Public Sub SetSERIEN_NRNull() + Me(Me.tableTBPRODUKT_VERTRAG.SERIEN_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRODUKT_NRNull() As Boolean + Return Me.IsNull(Me.tableTBPRODUKT_VERTRAG.PRODUKT_NRColumn) + End Function + + _ + Public Sub SetPRODUKT_NRNull() + Me(Me.tableTBPRODUKT_VERTRAG.PRODUKT_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMODELL_NAMENull() As Boolean + Return Me.IsNull(Me.tableTBPRODUKT_VERTRAG.MODELL_NAMEColumn) + End Function + + _ + Public Sub SetMODELL_NAMENull() + Me(Me.tableTBPRODUKT_VERTRAG.MODELL_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBPRODUKT_VERTRAG.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBPRODUKT_VERTRAG.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBGERAETE_NOTINLISTRow + Inherits Global.System.Data.DataRow + + Private tableTBGERAETE_NOTINLIST As TBGERAETE_NOTINLISTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBGERAETE_NOTINLIST = CType(Me.Table,TBGERAETE_NOTINLISTDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBGERAETE_NOTINLIST.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBGERAETE_NOTINLIST.GUIDColumn) = value + End Set + End Property + + _ + Public Property VERTRAG_ID() As Integer + Get + Return CType(Me(Me.tableTBGERAETE_NOTINLIST.VERTRAG_IDColumn),Integer) + End Get + Set + Me(Me.tableTBGERAETE_NOTINLIST.VERTRAG_IDColumn) = value + End Set + End Property + + _ + Public Property MODELL_NAME() As String + Get + Try + Return CType(Me(Me.tableTBGERAETE_NOTINLIST.MODELL_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODELL_NAME in Tabelle TBGERAETE_NOTINLIST ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_NOTINLIST.MODELL_NAMEColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Try + Return CType(Me(Me.tableTBGERAETE_NOTINLIST.MARKTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MARKT in Tabelle TBGERAETE_NOTINLIST ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_NOTINLIST.MARKTColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBGERAETE_NOTINLIST.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBGERAETE_NOTINLIST.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableTBGERAETE_NOTINLIST.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableTBGERAETE_NOTINLIST.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBGERAETE_NOTINLIST.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBGERAETE_NOTINLIST ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_NOTINLIST.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Return CType(Me(Me.tableTBGERAETE_NOTINLIST.GEAENDERTWANNColumn),Date) + End Get + Set + Me(Me.tableTBGERAETE_NOTINLIST.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property TIMESTAMP1() As Byte() + Get + Try + Return CType(Me(Me.tableTBGERAETE_NOTINLIST.TIMESTAMP1Column),Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TIMESTAMP1 in Tabelle TBGERAETE_NOTINLIST ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_NOTINLIST.TIMESTAMP1Column) = value + End Set + End Property + + _ + Public Property TBVERTRAEGERow() As TBVERTRAEGERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBGERAETE_NOTINLIST_VERTRAG")),TBVERTRAEGERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBGERAETE_NOTINLIST_VERTRAG")) + End Set + End Property + + _ + Public Function IsMODELL_NAMENull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_NOTINLIST.MODELL_NAMEColumn) + End Function + + _ + Public Sub SetMODELL_NAMENull() + Me(Me.tableTBGERAETE_NOTINLIST.MODELL_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMARKTNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_NOTINLIST.MARKTColumn) + End Function + + _ + Public Sub SetMARKTNull() + Me(Me.tableTBGERAETE_NOTINLIST.MARKTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_NOTINLIST.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBGERAETE_NOTINLIST.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTIMESTAMP1Null() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_NOTINLIST.TIMESTAMP1Column) + End Function + + _ + Public Sub SetTIMESTAMP1Null() + Me(Me.tableTBGERAETE_NOTINLIST.TIMESTAMP1Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_MODELLRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_MODELL As TBWH_MODELLDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_MODELL = CType(Me.Table,TBWH_MODELLDataTable) + End Sub + + _ + Public Property PRODUKT_NR() As String + Get + Try + Return CType(Me(Me.tableTBWH_MODELL.PRODUKT_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRODUKT_NR in Tabelle TBWH_MODELL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_MODELL.PRODUKT_NRColumn) = value + End Set + End Property + + _ + Public Property _String() As String + Get + Try + Return CType(Me(Me.tableTBWH_MODELL.StringColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle TBWH_MODELL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_MODELL.StringColumn) = value + End Set + End Property + + _ + Public Function IsPRODUKT_NRNull() As Boolean + Return Me.IsNull(Me.tableTBWH_MODELL.PRODUKT_NRColumn) + End Function + + _ + Public Sub SetPRODUKT_NRNull() + Me(Me.tableTBWH_MODELL.PRODUKT_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_StringNull() As Boolean + Return Me.IsNull(Me.tableTBWH_MODELL.StringColumn) + End Function + + _ + Public Sub Set_StringNull() + Me(Me.tableTBWH_MODELL.StringColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBSUPPLY_DEFINITIONRow + Inherits Global.System.Data.DataRow + + Private tableTBSUPPLY_DEFINITION As TBSUPPLY_DEFINITIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBSUPPLY_DEFINITION = CType(Me.Table,TBSUPPLY_DEFINITIONDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBSUPPLY_DEFINITION.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBSUPPLY_DEFINITION.GUIDColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_BEZ() As String + Get + Return CType(Me(Me.tableTBSUPPLY_DEFINITION.SUPPLY_BEZColumn),String) + End Get + Set + Me(Me.tableTBSUPPLY_DEFINITION.SUPPLY_BEZColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBSUPPLY_DEFINITION.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBSUPPLY_DEFINITION.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBSUPPLY_DEFINITION.ERFASSTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERFASSTWANN in Tabelle TBSUPPLY_DEFINITION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_DEFINITION.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLY_DEFINITION.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBSUPPLY_DEFINITION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_DEFINITION.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBSUPPLY_DEFINITION.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBSUPPLY_DEFINITION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_DEFINITION.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property TIMESTAMP1() As Byte() + Get + Try + Return CType(Me(Me.tableTBSUPPLY_DEFINITION.TIMESTAMP1Column),Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TIMESTAMP1 in Tabelle TBSUPPLY_DEFINITION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_DEFINITION.TIMESTAMP1Column) = value + End Set + End Property + + _ + Public Property SUPPLY_NAME_DATEI() As String + Get + Try + Return CType(Me(Me.tableTBSUPPLY_DEFINITION.SUPPLY_NAME_DATEIColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SUPPLY_NAME_DATEI in Tabelle TBSUPPLY_DEFINITION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSUPPLY_DEFINITION.SUPPLY_NAME_DATEIColumn) = value + End Set + End Property + + _ + Public Function IsERFASSTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_DEFINITION.ERFASSTWANNColumn) + End Function + + _ + Public Sub SetERFASSTWANNNull() + Me(Me.tableTBSUPPLY_DEFINITION.ERFASSTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_DEFINITION.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBSUPPLY_DEFINITION.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_DEFINITION.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBSUPPLY_DEFINITION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTIMESTAMP1Null() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_DEFINITION.TIMESTAMP1Column) + End Function + + _ + Public Sub SetTIMESTAMP1Null() + Me(Me.tableTBSUPPLY_DEFINITION.TIMESTAMP1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSUPPLY_NAME_DATEINull() As Boolean + Return Me.IsNull(Me.tableTBSUPPLY_DEFINITION.SUPPLY_NAME_DATEIColumn) + End Function + + _ + Public Sub SetSUPPLY_NAME_DATEINull() + Me(Me.tableTBSUPPLY_DEFINITION.SUPPLY_NAME_DATEIColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBGERAET_SUPPLY_ZUORDNUNGRows() As TBGERAET_SUPPLY_ZUORDNUNGRow() + If (Me.Table.ChildRelations("FK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID") Is Nothing) Then + Return New TBGERAET_SUPPLY_ZUORDNUNGRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID")),TBGERAET_SUPPLY_ZUORDNUNGRow()) + End If + End Function + + _ + Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() + If (Me.Table.ChildRelations("FK_TBSUPPLYDEFINITION") Is Nothing) Then + Return New TBSUPPLIESRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBSUPPLYDEFINITION")),TBSUPPLIESRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBGERAET_SUPPLY_ZUORDNUNGRow + Inherits Global.System.Data.DataRow + + Private tableTBGERAET_SUPPLY_ZUORDNUNG As TBGERAET_SUPPLY_ZUORDNUNGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBGERAET_SUPPLY_ZUORDNUNG = CType(Me.Table,TBGERAET_SUPPLY_ZUORDNUNGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.GUIDColumn) = value + End Set + End Property + + _ + Public Property GERAET_BEZ() As String + Get + Return CType(Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.GERAET_BEZColumn),String) + End Get + Set + Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.GERAET_BEZColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_ID() As Integer + Get + Return CType(Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.SUPPLY_IDColumn),Integer) + End Get + Set + Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.SUPPLY_IDColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Return CType(Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.PARTNUMBERColumn),String) + End Get + Set + Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Property SCHWELLENWERT() As Integer + Get + Return CType(Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.SCHWELLENWERTColumn),Integer) + End Get + Set + Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.SCHWELLENWERTColumn) = value + End Set + End Property + + _ + Public Property TBSUPPLY_DEFINITIONRow() As TBSUPPLY_DEFINITIONRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID")),TBSUPPLY_DEFINITIONRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID")) + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWGeraet_Supply_ZuordnungRow + Inherits Global.System.Data.DataRow + + Private tableVWGeraet_Supply_Zuordnung As VWGeraet_Supply_ZuordnungDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWGeraet_Supply_Zuordnung = CType(Me.Table,VWGeraet_Supply_ZuordnungDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWGeraet_Supply_Zuordnung.GUIDColumn) = value + End Set + End Property + + _ + Public Property GERAET_BEZ() As String + Get + Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.GERAET_BEZColumn),String) + End Get + Set + Me(Me.tableVWGeraet_Supply_Zuordnung.GERAET_BEZColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_BEZ() As String + Get + Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.SUPPLY_BEZColumn),String) + End Get + Set + Me(Me.tableVWGeraet_Supply_Zuordnung.SUPPLY_BEZColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.PARTNUMBERColumn),String) + End Get + Set + Me(Me.tableVWGeraet_Supply_Zuordnung.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER_ORDER() As String + Get + Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.PARTNUMBER_ORDERColumn),String) + End Get + Set + Me(Me.tableVWGeraet_Supply_Zuordnung.PARTNUMBER_ORDERColumn) = value + End Set + End Property + + _ + Public Property SCHWELLENWERT() As Integer + Get + Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.SCHWELLENWERTColumn),Integer) + End Get + Set + Me(Me.tableVWGeraet_Supply_Zuordnung.SCHWELLENWERTColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableVWGeraet_Supply_Zuordnung.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableVWGeraet_Supply_Zuordnung.ERFASSTWANNColumn) = value + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBUSER_RECHTERow + Inherits Global.System.Data.DataRow + + Private tableTBUSER_RECHTE As TBUSER_RECHTEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBUSER_RECHTE = CType(Me.Table,TBUSER_RECHTEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBUSER_RECHTE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBUSER_RECHTE.GUIDColumn) = value + End Set + End Property + + _ + Public Property USR_NAME() As String + Get + Return CType(Me(Me.tableTBUSER_RECHTE.USR_NAMEColumn),String) + End Get + Set + Me(Me.tableTBUSER_RECHTE.USR_NAMEColumn) = value + End Set + End Property + + _ + Public Property EINLESEN() As Boolean + Get + Return CType(Me(Me.tableTBUSER_RECHTE.EINLESENColumn),Boolean) + End Get + Set + Me(Me.tableTBUSER_RECHTE.EINLESENColumn) = value + End Set + End Property + + _ + Public Property KONGIGURATION() As Boolean + Get + Return CType(Me(Me.tableTBUSER_RECHTE.KONGIGURATIONColumn),Boolean) + End Get + Set + Me(Me.tableTBUSER_RECHTE.KONGIGURATIONColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBUSER_RECHTE.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBUSER_RECHTE.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBUSER_RECHTE.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBUSER_RECHTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBUSER_RECHTE.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBUSER_RECHTE.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBUSER_RECHTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBUSER_RECHTE.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBUSER_RECHTE.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBUSER_RECHTE.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBUSER_RECHTE.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBUSER_RECHTE.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBMELDEDATUMRow + Inherits Global.System.Data.DataRow + + Private tableTBMELDEDATUM As TBMELDEDATUMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBMELDEDATUM = CType(Me.Table,TBMELDEDATUMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBMELDEDATUM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBMELDEDATUM.GUIDColumn) = value + End Set + End Property + + _ + Public Property MELDEDATUM() As String + Get + Return CType(Me(Me.tableTBMELDEDATUM.MELDEDATUMColumn),String) + End Get + Set + Me(Me.tableTBMELDEDATUM.MELDEDATUMColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableTBMELDEDATUM.MARKTColumn),String) + End Get + Set + Me(Me.tableTBMELDEDATUM.MARKTColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBMELDEDATUM.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBMELDEDATUM.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBMELDEDATUM.ERFASSTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERFASSTWANN in Tabelle TBMELDEDATUM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBMELDEDATUM.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBMELDEDATUM.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBMELDEDATUM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBMELDEDATUM.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBMELDEDATUM.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBMELDEDATUM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBMELDEDATUM.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property TIMESTAMP1() As Byte() + Get + Try + Return CType(Me(Me.tableTBMELDEDATUM.TIMESTAMP1Column),Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TIMESTAMP1 in Tabelle TBMELDEDATUM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBMELDEDATUM.TIMESTAMP1Column) = value + End Set + End Property + + _ + Public Function IsERFASSTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBMELDEDATUM.ERFASSTWANNColumn) + End Function + + _ + Public Sub SetERFASSTWANNNull() + Me(Me.tableTBMELDEDATUM.ERFASSTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBMELDEDATUM.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBMELDEDATUM.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBMELDEDATUM.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBMELDEDATUM.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTIMESTAMP1Null() As Boolean + Return Me.IsNull(Me.tableTBMELDEDATUM.TIMESTAMP1Column) + End Function + + _ + Public Sub SetTIMESTAMP1Null() + Me(Me.tableTBMELDEDATUM.TIMESTAMP1Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBGERAETE_VERFOLGUNGRow + Inherits Global.System.Data.DataRow + + Private tableTBGERAETE_VERFOLGUNG As TBGERAETE_VERFOLGUNGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBGERAETE_VERFOLGUNG = CType(Me.Table,TBGERAETE_VERFOLGUNGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.GUIDColumn) = value + End Set + End Property + + _ + Public Property GERAETE_ID() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.GERAETE_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAETE_ID in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.GERAETE_IDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property IP_ADRESSE() As String + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.IP_ADRESSEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IP_ADRESSE in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.IP_ADRESSEColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.SERIENNRColumn),String) + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property PAGE_COUNT() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.PAGE_COUNTColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAGE_COUNT in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.PAGE_COUNTColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.MARKTColumn),String) + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.MARKTColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.GEAENDERTWANNColumn),Date) + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property DATEINAME() As String + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.DATEINAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATEINAME in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.DATEINAMEColumn) = value + End Set + End Property + + _ + Public Property MELDEDATUM() As String + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.MELDEDATUMColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MELDEDATUM in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.MELDEDATUMColumn) = value + End Set + End Property + + _ + Public Property VERTRAG() As String + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.VERTRAGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VERTRAG in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.VERTRAGColumn) = value + End Set + End Property + + _ + Public Property NOTINLIST() As Boolean + Get + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.NOTINLISTColumn),Boolean) + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.NOTINLISTColumn) = value + End Set + End Property + + _ + Public Property MODEL_NR() As String + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.MODEL_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODEL_NR in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.MODEL_NRColumn) = value + End Set + End Property + + _ + Public Property DOPPELT_GEMELDET() As Boolean + Get + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.DOPPELT_GEMELDETColumn),Boolean) + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.DOPPELT_GEMELDETColumn) = value + End Set + End Property + + _ + Public Property NO_SERIENNR() As Boolean + Get + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.NO_SERIENNRColumn),Boolean) + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.NO_SERIENNRColumn) = value + End Set + End Property + + _ + Public Property A3DuplexSheets() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.A3DuplexSheetsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte A3DuplexSheets in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.A3DuplexSheetsColumn) = value + End Set + End Property + + _ + Public Property A3SimplexSheets() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.A3SimplexSheetsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte A3SimplexSheets in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.A3SimplexSheetsColumn) = value + End Set + End Property + + _ + Public Property A4DuplexSheets() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.A4DuplexSheetsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte A4DuplexSheets in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.A4DuplexSheetsColumn) = value + End Set + End Property + + _ + Public Property A4SimplexSheets() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.A4SimplexSheetsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte A4SimplexSheets in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.A4SimplexSheetsColumn) = value + End Set + End Property + + _ + Public Property A3ColorTotalImpressions() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.A3ColorTotalImpressionsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte A3ColorTotalImpressions in Tabelle TBGERAETE_VERFOLGUNG ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.A3ColorTotalImpressionsColumn) = value + End Set + End Property + + _ + Public Property A3MonoTotalImpressions() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.A3MonoTotalImpressionsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte A3MonoTotalImpressions in Tabelle TBGERAETE_VERFOLGUNG ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.A3MonoTotalImpressionsColumn) = value + End Set + End Property + + _ + Public Property A4MonoTotalImpressions() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.A4MonoTotalImpressionsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte A4MonoTotalImpressions in Tabelle TBGERAETE_VERFOLGUNG ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.A4MonoTotalImpressionsColumn) = value + End Set + End Property + + _ + Public Property A4ColorTotalImpressions() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.A4ColorTotalImpressionsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte A4ColorTotalImpressions in Tabelle TBGERAETE_VERFOLGUNG ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.A4ColorTotalImpressionsColumn) = value + End Set + End Property + + _ + Public Property AverageBlackCoverage() As Decimal + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.AverageBlackCoverageColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AverageBlackCoverage in Tabelle TBGERAETE_VERFOLGUNG ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.AverageBlackCoverageColumn) = value + End Set + End Property + + _ + Public Property AverageCyanCoverage() As Decimal + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.AverageCyanCoverageColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AverageCyanCoverage in Tabelle TBGERAETE_VERFOLGUNG ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.AverageCyanCoverageColumn) = value + End Set + End Property + + _ + Public Property AverageMagentaCoverage() As Decimal + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.AverageMagentaCoverageColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AverageMagentaCoverage in Tabelle TBGERAETE_VERFOLGUNG ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.AverageMagentaCoverageColumn) = value + End Set + End Property + + _ + Public Property AverageYellowCoverage() As Decimal + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.AverageYellowCoverageColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AverageYellowCoverage in Tabelle TBGERAETE_VERFOLGUNG ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.AverageYellowCoverageColumn) = value + End Set + End Property + + _ + Public Property ScanA3Total() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.ScanA3TotalColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ScanA3Total in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.ScanA3TotalColumn) = value + End Set + End Property + + _ + Public Property ScanA4Total() As Integer + Get + Try + Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.ScanA4TotalColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ScanA4Total in Tabelle TBGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGERAETE_VERFOLGUNG.ScanA4TotalColumn) = value + End Set + End Property + + _ + Public Function IsGERAETE_IDNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.GERAETE_IDColumn) + End Function + + _ + Public Sub SetGERAETE_IDNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.GERAETE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIP_ADRESSENull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.IP_ADRESSEColumn) + End Function + + _ + Public Sub SetIP_ADRESSENull() + Me(Me.tableTBGERAETE_VERFOLGUNG.IP_ADRESSEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPAGE_COUNTNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.PAGE_COUNTColumn) + End Function + + _ + Public Sub SetPAGE_COUNTNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.PAGE_COUNTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATEINAMENull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.DATEINAMEColumn) + End Function + + _ + Public Sub SetDATEINAMENull() + Me(Me.tableTBGERAETE_VERFOLGUNG.DATEINAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMELDEDATUMNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.MELDEDATUMColumn) + End Function + + _ + Public Sub SetMELDEDATUMNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.MELDEDATUMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVERTRAGNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.VERTRAGColumn) + End Function + + _ + Public Sub SetVERTRAGNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.VERTRAGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMODEL_NRNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.MODEL_NRColumn) + End Function + + _ + Public Sub SetMODEL_NRNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.MODEL_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsA3DuplexSheetsNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A3DuplexSheetsColumn) + End Function + + _ + Public Sub SetA3DuplexSheetsNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.A3DuplexSheetsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsA3SimplexSheetsNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A3SimplexSheetsColumn) + End Function + + _ + Public Sub SetA3SimplexSheetsNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.A3SimplexSheetsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsA4DuplexSheetsNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A4DuplexSheetsColumn) + End Function + + _ + Public Sub SetA4DuplexSheetsNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.A4DuplexSheetsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsA4SimplexSheetsNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A4SimplexSheetsColumn) + End Function + + _ + Public Sub SetA4SimplexSheetsNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.A4SimplexSheetsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsA3ColorTotalImpressionsNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A3ColorTotalImpressionsColumn) + End Function + + _ + Public Sub SetA3ColorTotalImpressionsNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.A3ColorTotalImpressionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsA3MonoTotalImpressionsNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A3MonoTotalImpressionsColumn) + End Function + + _ + Public Sub SetA3MonoTotalImpressionsNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.A3MonoTotalImpressionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsA4MonoTotalImpressionsNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A4MonoTotalImpressionsColumn) + End Function + + _ + Public Sub SetA4MonoTotalImpressionsNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.A4MonoTotalImpressionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsA4ColorTotalImpressionsNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A4ColorTotalImpressionsColumn) + End Function + + _ + Public Sub SetA4ColorTotalImpressionsNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.A4ColorTotalImpressionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAverageBlackCoverageNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.AverageBlackCoverageColumn) + End Function + + _ + Public Sub SetAverageBlackCoverageNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.AverageBlackCoverageColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAverageCyanCoverageNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.AverageCyanCoverageColumn) + End Function + + _ + Public Sub SetAverageCyanCoverageNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.AverageCyanCoverageColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAverageMagentaCoverageNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.AverageMagentaCoverageColumn) + End Function + + _ + Public Sub SetAverageMagentaCoverageNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.AverageMagentaCoverageColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAverageYellowCoverageNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.AverageYellowCoverageColumn) + End Function + + _ + Public Sub SetAverageYellowCoverageNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.AverageYellowCoverageColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsScanA3TotalNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.ScanA3TotalColumn) + End Function + + _ + Public Sub SetScanA3TotalNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.ScanA3TotalColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsScanA4TotalNull() As Boolean + Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.ScanA4TotalColumn) + End Function + + _ + Public Sub SetScanA4TotalNull() + Me(Me.tableTBGERAETE_VERFOLGUNG.ScanA4TotalColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWMarkt_VerfolgungRow + Inherits Global.System.Data.DataRow + + Private tableVWMarkt_Verfolgung As VWMarkt_VerfolgungDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWMarkt_Verfolgung = CType(Me.Table,VWMarkt_VerfolgungDataTable) + End Sub + + _ + Public Property GERAETE_ID() As Integer + Get + Try + Return CType(Me(Me.tableVWMarkt_Verfolgung.GERAETE_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAETE_ID in Tabelle VWMarkt_Verfolgung ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWMarkt_Verfolgung.GERAETE_IDColumn) = value + End Set + End Property + + _ + Public Property DEVICE() As String + Get + Try + Return CType(Me(Me.tableVWMarkt_Verfolgung.DEVICEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEVICE in Tabelle VWMarkt_Verfolgung ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWMarkt_Verfolgung.DEVICEColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Return CType(Me(Me.tableVWMarkt_Verfolgung.SERIENNRColumn),String) + End Get + Set + Me(Me.tableVWMarkt_Verfolgung.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property PAGE_MIN() As Integer + Get + Try + Return CType(Me(Me.tableVWMarkt_Verfolgung.PAGE_MINColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAGE_MIN in Tabelle VWMarkt_Verfolgung ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWMarkt_Verfolgung.PAGE_MINColumn) = value + End Set + End Property + + _ + Public Property PAGE_MAX() As Integer + Get + Try + Return CType(Me(Me.tableVWMarkt_Verfolgung.PAGE_MAXColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAGE_MAX in Tabelle VWMarkt_Verfolgung ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWMarkt_Verfolgung.PAGE_MAXColumn) = value + End Set + End Property + + _ + Public Property DRUCKSEITEN() As Integer + Get + Try + Return CType(Me(Me.tableVWMarkt_Verfolgung.DRUCKSEITENColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DRUCKSEITEN in Tabelle VWMarkt_Verfolgung ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWMarkt_Verfolgung.DRUCKSEITENColumn) = value + End Set + End Property + + _ + Public Property LETZTES_MELDEDATUM() As Date + Get + Try + Return CType(Me(Me.tableVWMarkt_Verfolgung.LETZTES_MELDEDATUMColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LETZTES_MELDEDATUM in Tabelle VWMarkt_Verfolgung ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWMarkt_Verfolgung.LETZTES_MELDEDATUMColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Try + Return CType(Me(Me.tableVWMarkt_Verfolgung.MARKTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MARKT in Tabelle VWMarkt_Verfolgung ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWMarkt_Verfolgung.MARKTColumn) = value + End Set + End Property + + _ + Public Function IsGERAETE_IDNull() As Boolean + Return Me.IsNull(Me.tableVWMarkt_Verfolgung.GERAETE_IDColumn) + End Function + + _ + Public Sub SetGERAETE_IDNull() + Me(Me.tableVWMarkt_Verfolgung.GERAETE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDEVICENull() As Boolean + Return Me.IsNull(Me.tableVWMarkt_Verfolgung.DEVICEColumn) + End Function + + _ + Public Sub SetDEVICENull() + Me(Me.tableVWMarkt_Verfolgung.DEVICEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPAGE_MINNull() As Boolean + Return Me.IsNull(Me.tableVWMarkt_Verfolgung.PAGE_MINColumn) + End Function + + _ + Public Sub SetPAGE_MINNull() + Me(Me.tableVWMarkt_Verfolgung.PAGE_MINColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPAGE_MAXNull() As Boolean + Return Me.IsNull(Me.tableVWMarkt_Verfolgung.PAGE_MAXColumn) + End Function + + _ + Public Sub SetPAGE_MAXNull() + Me(Me.tableVWMarkt_Verfolgung.PAGE_MAXColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDRUCKSEITENNull() As Boolean + Return Me.IsNull(Me.tableVWMarkt_Verfolgung.DRUCKSEITENColumn) + End Function + + _ + Public Sub SetDRUCKSEITENNull() + Me(Me.tableVWMarkt_Verfolgung.DRUCKSEITENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLETZTES_MELDEDATUMNull() As Boolean + Return Me.IsNull(Me.tableVWMarkt_Verfolgung.LETZTES_MELDEDATUMColumn) + End Function + + _ + Public Sub SetLETZTES_MELDEDATUMNull() + Me(Me.tableVWMarkt_Verfolgung.LETZTES_MELDEDATUMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMARKTNull() As Boolean + Return Me.IsNull(Me.tableVWMarkt_Verfolgung.MARKTColumn) + End Function + + _ + Public Sub SetMARKTNull() + Me(Me.tableVWMarkt_Verfolgung.MARKTColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWGERAETE_VERFOLGUNGRow + Inherits Global.System.Data.DataRow + + Private tableVWGERAETE_VERFOLGUNG As VWGERAETE_VERFOLGUNGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWGERAETE_VERFOLGUNG = CType(Me.Table,VWGERAETE_VERFOLGUNGDataTable) + End Sub + + _ + Public Property MODELL() As String + Get + Try + Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.MODELLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODELL in Tabelle VWGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_VERFOLGUNG.MODELLColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.MARKTColumn),String) + End Get + Set + Me(Me.tableVWGERAETE_VERFOLGUNG.MARKTColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.SERIENNRColumn),String) + End Get + Set + Me(Me.tableVWGERAETE_VERFOLGUNG.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property PC_INITIAL() As Integer + Get + Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.PC_INITIALColumn),Integer) + End Get + Set + Me(Me.tableVWGERAETE_VERFOLGUNG.PC_INITIALColumn) = value + End Set + End Property + + _ + Public Property PAGE_COUNT() As Integer + Get + Try + Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.PAGE_COUNTColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAGE_COUNT in Tabelle VWGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_VERFOLGUNG.PAGE_COUNTColumn) = value + End Set + End Property + + _ + Public Property PPM() As Double + Get + Try + Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.PPMColumn),Double) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PPM in Tabelle VWGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_VERFOLGUNG.PPMColumn) = value + End Set + End Property + + _ + Public Property MELDEDATUM() As Date + Get + Try + Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.MELDEDATUMColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MELDEDATUM in Tabelle VWGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_VERFOLGUNG.MELDEDATUMColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableVWGERAETE_VERFOLGUNG.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property DATEINAME() As String + Get + Try + Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.DATEINAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATEINAME in Tabelle VWGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_VERFOLGUNG.DATEINAMEColumn) = value + End Set + End Property + + _ + Public Property IP_ADRESSE() As String + Get + Try + Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.IP_ADRESSEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IP_ADRESSE in Tabelle VWGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_VERFOLGUNG.IP_ADRESSEColumn) = value + End Set + End Property + + _ + Public Property DATE_INITIAL() As Date + Get + Try + Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.DATE_INITIALColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATE_INITIAL in Tabelle VWGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_VERFOLGUNG.DATE_INITIALColumn) = value + End Set + End Property + + _ + Public Property GERAETE_ID() As Integer + Get + Try + Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.GERAETE_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAETE_ID in Tabelle VWGERAETE_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_VERFOLGUNG.GERAETE_IDColumn) = value + End Set + End Property + + _ + Public Function IsMODELLNull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.MODELLColumn) + End Function + + _ + Public Sub SetMODELLNull() + Me(Me.tableVWGERAETE_VERFOLGUNG.MODELLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPAGE_COUNTNull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.PAGE_COUNTColumn) + End Function + + _ + Public Sub SetPAGE_COUNTNull() + Me(Me.tableVWGERAETE_VERFOLGUNG.PAGE_COUNTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPPMNull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.PPMColumn) + End Function + + _ + Public Sub SetPPMNull() + Me(Me.tableVWGERAETE_VERFOLGUNG.PPMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMELDEDATUMNull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.MELDEDATUMColumn) + End Function + + _ + Public Sub SetMELDEDATUMNull() + Me(Me.tableVWGERAETE_VERFOLGUNG.MELDEDATUMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATEINAMENull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.DATEINAMEColumn) + End Function + + _ + Public Sub SetDATEINAMENull() + Me(Me.tableVWGERAETE_VERFOLGUNG.DATEINAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIP_ADRESSENull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.IP_ADRESSEColumn) + End Function + + _ + Public Sub SetIP_ADRESSENull() + Me(Me.tableVWGERAETE_VERFOLGUNG.IP_ADRESSEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATE_INITIALNull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.DATE_INITIALColumn) + End Function + + _ + Public Sub SetDATE_INITIALNull() + Me(Me.tableVWGERAETE_VERFOLGUNG.DATE_INITIALColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGERAETE_IDNull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.GERAETE_IDColumn) + End Function + + _ + Public Sub SetGERAETE_IDNull() + Me(Me.tableVWGERAETE_VERFOLGUNG.GERAETE_IDColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBREFLISTE_HISTORYRow + Inherits Global.System.Data.DataRow + + Private tableTBREFLISTE_HISTORY As TBREFLISTE_HISTORYDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBREFLISTE_HISTORY = CType(Me.Table,TBREFLISTE_HISTORYDataTable) + End Sub + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBREFLISTE_HISTORY.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBREFLISTE_HISTORY.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property Datum() As Date + Get + Try + Return CType(Me(Me.tableTBREFLISTE_HISTORY.DatumColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Datum in Tabelle TBREFLISTE_HISTORY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBREFLISTE_HISTORY.DatumColumn) = value + End Set + End Property + + _ + Public Function IsDatumNull() As Boolean + Return Me.IsNull(Me.tableTBREFLISTE_HISTORY.DatumColumn) + End Function + + _ + Public Sub SetDatumNull() + Me(Me.tableTBREFLISTE_HISTORY.DatumColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBMANDANTENRow + Inherits Global.System.Data.DataRow + + Private tableTBMANDANTEN As TBMANDANTENDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBMANDANTEN = CType(Me.Table,TBMANDANTENDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBMANDANTEN.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBMANDANTEN.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBMANDANTEN.NAMEColumn),String) + End Get + Set + Me(Me.tableTBMANDANTEN.NAMEColumn) = value + End Set + End Property + + _ + Public Property NAME_LANG() As String + Get + Return CType(Me(Me.tableTBMANDANTEN.NAME_LANGColumn),String) + End Get + Set + Me(Me.tableTBMANDANTEN.NAME_LANGColumn) = value + End Set + End Property + + _ + Public Property KENNZEICHEN() As String + Get + Return CType(Me(Me.tableTBMANDANTEN.KENNZEICHENColumn),String) + End Get + Set + Me(Me.tableTBMANDANTEN.KENNZEICHENColumn) = value + End Set + End Property + + _ + Public Property FLEETWATCH() As Boolean + Get + Return CType(Me(Me.tableTBMANDANTEN.FLEETWATCHColumn),Boolean) + End Get + Set + Me(Me.tableTBMANDANTEN.FLEETWATCHColumn) = value + End Set + End Property + + _ + Public Property SUPPLYWATCH() As Boolean + Get + Return CType(Me(Me.tableTBMANDANTEN.SUPPLYWATCHColumn),Boolean) + End Get + Set + Me(Me.tableTBMANDANTEN.SUPPLYWATCHColumn) = value + End Set + End Property + + _ + Public Property ERSTELLLTWER() As String + Get + Return CType(Me(Me.tableTBMANDANTEN.ERSTELLLTWERColumn),String) + End Get + Set + Me(Me.tableTBMANDANTEN.ERSTELLLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBMANDANTEN.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBMANDANTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBMANDANTEN.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBMANDANTEN.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBMANDANTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBMANDANTEN.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBMANDANTEN.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBMANDANTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBMANDANTEN.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property FILTER() As String + Get + Try + Return CType(Me(Me.tableTBMANDANTEN.FILTERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILTER in Tabelle TBMANDANTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBMANDANTEN.FILTERColumn) = value + End Set + End Property + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBMANDANTEN.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBMANDANTEN.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBMANDANTEN.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBMANDANTEN.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBMANDANTEN.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBMANDANTEN.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFILTERNull() As Boolean + Return Me.IsNull(Me.tableTBMANDANTEN.FILTERColumn) + End Function + + _ + Public Sub SetFILTERNull() + Me(Me.tableTBMANDANTEN.FILTERColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWSUPPLY_VERFOLGUNGRow + Inherits Global.System.Data.DataRow + + Private tableVWSUPPLY_VERFOLGUNG As VWSUPPLY_VERFOLGUNGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWSUPPLY_VERFOLGUNG = CType(Me.Table,VWSUPPLY_VERFOLGUNGDataTable) + End Sub + + _ + Public Property MODELL() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_VERFOLGUNG.MODELLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MODELL in Tabelle VWSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_VERFOLGUNG.MODELLColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_VERFOLGUNG.MARKTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MARKT in Tabelle VWSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_VERFOLGUNG.MARKTColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_VERFOLGUNG.SERIENNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIENNR in Tabelle VWSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_VERFOLGUNG.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property SUPPLY() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLYColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SUPPLY in Tabelle VWSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLYColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_LEVEL() As Integer + Get + Return CType(Me(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLY_LEVELColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLY_LEVELColumn) = value + End Set + End Property + + _ + Public Property MELDEDATUM() As Date + Get + Try + Return CType(Me(Me.tableVWSUPPLY_VERFOLGUNG.MELDEDATUMColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MELDEDATUM in Tabelle VWSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_VERFOLGUNG.MELDEDATUMColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Try + Return CType(Me(Me.tableVWSUPPLY_VERFOLGUNG.ERFASSTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERFASSTWANN in Tabelle VWSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_VERFOLGUNG.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property STATUS() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_VERFOLGUNG.STATUSColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATUS in Tabelle VWSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_VERFOLGUNG.STATUSColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_SERIENNR() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLY_SERIENNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SUPPLY_SERIENNR in Tabelle VWSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLY_SERIENNRColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_VERFOLGUNG.PARTNUMBERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARTNUMBER in Tabelle VWSUPPLY_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_VERFOLGUNG.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Function IsMODELLNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.MODELLColumn) + End Function + + _ + Public Sub SetMODELLNull() + Me(Me.tableVWSUPPLY_VERFOLGUNG.MODELLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMARKTNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.MARKTColumn) + End Function + + _ + Public Sub SetMARKTNull() + Me(Me.tableVWSUPPLY_VERFOLGUNG.MARKTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERIENNRNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.SERIENNRColumn) + End Function + + _ + Public Sub SetSERIENNRNull() + Me(Me.tableVWSUPPLY_VERFOLGUNG.SERIENNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSUPPLYNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLYColumn) + End Function + + _ + Public Sub SetSUPPLYNull() + Me(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLYColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMELDEDATUMNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.MELDEDATUMColumn) + End Function + + _ + Public Sub SetMELDEDATUMNull() + Me(Me.tableVWSUPPLY_VERFOLGUNG.MELDEDATUMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERFASSTWANNNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.ERFASSTWANNColumn) + End Function + + _ + Public Sub SetERFASSTWANNNull() + Me(Me.tableVWSUPPLY_VERFOLGUNG.ERFASSTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATUSNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.STATUSColumn) + End Function + + _ + Public Sub SetSTATUSNull() + Me(Me.tableVWSUPPLY_VERFOLGUNG.STATUSColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSUPPLY_SERIENNRNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLY_SERIENNRColumn) + End Function + + _ + Public Sub SetSUPPLY_SERIENNRNull() + Me(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLY_SERIENNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPARTNUMBERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.PARTNUMBERColumn) + End Function + + _ + Public Sub SetPARTNUMBERNull() + Me(Me.tableVWSUPPLY_VERFOLGUNG.PARTNUMBERColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIMPORT_PRODUKTE_DUPLIKATERow + Inherits Global.System.Data.DataRow + + Private tableTBIMPORT_PRODUKTE_DUPLIKATE As TBIMPORT_PRODUKTE_DUPLIKATEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIMPORT_PRODUKTE_DUPLIKATE = CType(Me.Table,TBIMPORT_PRODUKTE_DUPLIKATEDataTable) + End Sub + + _ + Public Property SERIAL() As String + Get + Try + Return CType(Me(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.SERIALColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIAL in Tabelle TBIMPORT_PRODUKTE_DUPLIKATE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.SERIALColumn) = value + End Set + End Property + + _ + Public Property DUPLIKATE() As Integer + Get + Try + Return CType(Me(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.DUPLIKATEColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUPLIKATE in Tabelle TBIMPORT_PRODUKTE_DUPLIKATE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.DUPLIKATEColumn) = value + End Set + End Property + + _ + Public Function IsSERIALNull() As Boolean + Return Me.IsNull(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.SERIALColumn) + End Function + + _ + Public Sub SetSERIALNull() + Me(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.SERIALColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUPLIKATENull() As Boolean + Return Me.IsNull(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.DUPLIKATEColumn) + End Function + + _ + Public Sub SetDUPLIKATENull() + Me(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.DUPLIKATEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCHANGE_LOG_GERAETRow + Inherits Global.System.Data.DataRow + + Private tableTBCHANGE_LOG_GERAET As TBCHANGE_LOG_GERAETDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCHANGE_LOG_GERAET = CType(Me.Table,TBCHANGE_LOG_GERAETDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCHANGE_LOG_GERAET.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCHANGE_LOG_GERAET.GUIDColumn) = value + End Set + End Property + + _ + Public Property MELDUNG() As String + Get + Return CType(Me(Me.tableTBCHANGE_LOG_GERAET.MELDUNGColumn),String) + End Get + Set + Me(Me.tableTBCHANGE_LOG_GERAET.MELDUNGColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBCHANGE_LOG_GERAET.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBCHANGE_LOG_GERAET.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableTBCHANGE_LOG_GERAET.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableTBCHANGE_LOG_GERAET.ERFASSTWANNColumn) = value + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBSERVICE_IMP_LOGRow + Inherits Global.System.Data.DataRow + + Private tableTBSERVICE_IMP_LOG As TBSERVICE_IMP_LOGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBSERVICE_IMP_LOG = CType(Me.Table,TBSERVICE_IMP_LOGDataTable) + End Sub + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBSERVICE_IMP_LOG.NAMEColumn),String) + End Get + Set + Me(Me.tableTBSERVICE_IMP_LOG.NAMEColumn) = value + End Set + End Property + + _ + Public Property VERTRAG() As String + Get + Try + Return CType(Me(Me.tableTBSERVICE_IMP_LOG.VERTRAGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VERTRAG in Tabelle TBSERVICE_IMP_LOG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSERVICE_IMP_LOG.VERTRAGColumn) = value + End Set + End Property + + _ + Public Property MELDEDATUM() As Date + Get + Return CType(Me(Me.tableTBSERVICE_IMP_LOG.MELDEDATUMColumn),Date) + End Get + Set + Me(Me.tableTBSERVICE_IMP_LOG.MELDEDATUMColumn) = value + End Set + End Property + + _ + Public Property IMPORT_DATUM() As Date + Get + Return CType(Me(Me.tableTBSERVICE_IMP_LOG.IMPORT_DATUMColumn),Date) + End Get + Set + Me(Me.tableTBSERVICE_IMP_LOG.IMPORT_DATUMColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableTBSERVICE_IMP_LOG.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableTBSERVICE_IMP_LOG.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property IMPORT_STATE() As String + Get + Try + Return CType(Me(Me.tableTBSERVICE_IMP_LOG.IMPORT_STATEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMPORT_STATE in Tabelle TBSERVICE_IMP_LOG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBSERVICE_IMP_LOG.IMPORT_STATEColumn) = value + End Set + End Property + + _ + Public Property DATEI() As String + Get + Return CType(Me(Me.tableTBSERVICE_IMP_LOG.DATEIColumn),String) + End Get + Set + Me(Me.tableTBSERVICE_IMP_LOG.DATEIColumn) = value + End Set + End Property + + _ + Public Function IsVERTRAGNull() As Boolean + Return Me.IsNull(Me.tableTBSERVICE_IMP_LOG.VERTRAGColumn) + End Function + + _ + Public Sub SetVERTRAGNull() + Me(Me.tableTBSERVICE_IMP_LOG.VERTRAGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIMPORT_STATENull() As Boolean + Return Me.IsNull(Me.tableTBSERVICE_IMP_LOG.IMPORT_STATEColumn) + End Function + + _ + Public Sub SetIMPORT_STATENull() + Me(Me.tableTBSERVICE_IMP_LOG.IMPORT_STATEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWGERAETE_MELDUNG_STATUSRow + Inherits Global.System.Data.DataRow + + Private tableVWGERAETE_MELDUNG_STATUS As VWGERAETE_MELDUNG_STATUSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWGERAETE_MELDUNG_STATUS = CType(Me.Table,VWGERAETE_MELDUNG_STATUSDataTable) + End Sub + + _ + Public Property MANDANT_ID() As Integer + Get + Try + Return CType(Me(Me.tableVWGERAETE_MELDUNG_STATUS.MANDANT_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MANDANT_ID in Tabelle VWGERAETE_MELDUNG_STATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_MELDUNG_STATUS.MANDANT_IDColumn) = value + End Set + End Property + + _ + Public Property GERAETE_ID() As Integer + Get + Try + Return CType(Me(Me.tableVWGERAETE_MELDUNG_STATUS.GERAETE_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAETE_ID in Tabelle VWGERAETE_MELDUNG_STATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_MELDUNG_STATUS.GERAETE_IDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableVWGERAETE_MELDUNG_STATUS.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle VWGERAETE_MELDUNG_STATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_MELDUNG_STATUS.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Return CType(Me(Me.tableVWGERAETE_MELDUNG_STATUS.SERIENNRColumn),String) + End Get + Set + Me(Me.tableVWGERAETE_MELDUNG_STATUS.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableVWGERAETE_MELDUNG_STATUS.MARKTColumn),String) + End Get + Set + Me(Me.tableVWGERAETE_MELDUNG_STATUS.MARKTColumn) = value + End Set + End Property + + _ + Public Property MELDEDATUM() As String + Get + Try + Return CType(Me(Me.tableVWGERAETE_MELDUNG_STATUS.MELDEDATUMColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MELDEDATUM in Tabelle VWGERAETE_MELDUNG_STATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_MELDUNG_STATUS.MELDEDATUMColumn) = value + End Set + End Property + + _ + Public Property VERTRAG() As String + Get + Try + Return CType(Me(Me.tableVWGERAETE_MELDUNG_STATUS.VERTRAGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VERTRAG in Tabelle VWGERAETE_MELDUNG_STATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_MELDUNG_STATUS.VERTRAGColumn) = value + End Set + End Property + + _ + Public Property STATE() As String + Get + Try + Return CType(Me(Me.tableVWGERAETE_MELDUNG_STATUS.STATEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATE in Tabelle VWGERAETE_MELDUNG_STATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_MELDUNG_STATUS.STATEColumn) = value + End Set + End Property + + _ + Public Property MARKER() As String + Get + Try + Return CType(Me(Me.tableVWGERAETE_MELDUNG_STATUS.MARKERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MARKER in Tabelle VWGERAETE_MELDUNG_STATUS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGERAETE_MELDUNG_STATUS.MARKERColumn) = value + End Set + End Property + + _ + Public Function IsMANDANT_IDNull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.MANDANT_IDColumn) + End Function + + _ + Public Sub SetMANDANT_IDNull() + Me(Me.tableVWGERAETE_MELDUNG_STATUS.MANDANT_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGERAETE_IDNull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.GERAETE_IDColumn) + End Function + + _ + Public Sub SetGERAETE_IDNull() + Me(Me.tableVWGERAETE_MELDUNG_STATUS.GERAETE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableVWGERAETE_MELDUNG_STATUS.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMELDEDATUMNull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.MELDEDATUMColumn) + End Function + + _ + Public Sub SetMELDEDATUMNull() + Me(Me.tableVWGERAETE_MELDUNG_STATUS.MELDEDATUMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVERTRAGNull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.VERTRAGColumn) + End Function + + _ + Public Sub SetVERTRAGNull() + Me(Me.tableVWGERAETE_MELDUNG_STATUS.VERTRAGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATENull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.STATEColumn) + End Function + + _ + Public Sub SetSTATENull() + Me(Me.tableVWGERAETE_MELDUNG_STATUS.STATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMARKERNull() As Boolean + Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.MARKERColumn) + End Function + + _ + Public Sub SetMARKERNull() + Me(Me.tableVWGERAETE_MELDUNG_STATUS.MARKERColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class ViewSUPPLY_STATUS_VERFOLGUNGRow + Inherits Global.System.Data.DataRow + + Private tableViewSUPPLY_STATUS_VERFOLGUNG As ViewSUPPLY_STATUS_VERFOLGUNGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableViewSUPPLY_STATUS_VERFOLGUNG = CType(Me.Table,ViewSUPPLY_STATUS_VERFOLGUNGDataTable) + End Sub + + _ + Public Property Meldedatum() As Date + Get + Return CType(Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.MeldedatumColumn),Date) + End Get + Set + Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.MeldedatumColumn) = value + End Set + End Property + + _ + Public Property Status() As String + Get + Return CType(Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.StatusColumn),String) + End Get + Set + Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.StatusColumn) = value + End Set + End Property + + _ + Public Property Marker() As String + Get + Try + Return CType(Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.MarkerColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Marker in Tabelle ViewSUPPLY_STATUS_VERFOLGUNG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.MarkerColumn) = value + End Set + End Property + + _ + Public Property Erfasst_wann() As Date + Get + Return CType(Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.Erfasst_wannColumn),Date) + End Get + Set + Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.Erfasst_wannColumn) = value + End Set + End Property + + _ + Public Function IsMarkerNull() As Boolean + Return Me.IsNull(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.MarkerColumn) + End Function + + _ + Public Sub SetMarkerNull() + Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.MarkerColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWSUPPLIES_BESTELLUNG_GESENDETRow + Inherits Global.System.Data.DataRow + + Private tableVWSUPPLIES_BESTELLUNG_GESENDET As VWSUPPLIES_BESTELLUNG_GESENDETDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWSUPPLIES_BESTELLUNG_GESENDET = CType(Me.Table,VWSUPPLIES_BESTELLUNG_GESENDETDataTable) + End Sub + + _ + Public Property BESTELL_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.BESTELL_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.BESTELL_IDColumn) = value + End Set + End Property + + _ + Public Property BESTELLT_WANN() As Date + Get + Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.BESTELLT_WANNColumn),Date) + End Get + Set + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.BESTELLT_WANNColumn) = value + End Set + End Property + + _ + Public Property BESTELLT_WER() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.BESTELLT_WERColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.BESTELLT_WERColumn) = value + End Set + End Property + + _ + Public Property GERAET() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.GERAETColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET in Tabelle VWSUPPLIES_BESTELLUNG_GESENDET ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.GERAETColumn) = value + End Set + End Property + + _ + Public Property MANUELL() As Boolean + Get + Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.MANUELLColumn),Boolean) + End Get + Set + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.MANUELLColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.MARKTColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.MARKTColumn) = value + End Set + End Property + + _ + Public Property MENGE() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.MENGEColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.MENGEColumn) = value + End Set + End Property + + _ + Public Property SERIEN_NR() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SERIEN_NRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIEN_NR in Tabelle VWSUPPLIES_BESTELLUNG_GESENDET ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SERIEN_NRColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SUPPLY_BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SUPPLY_BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property MANDANT() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.MANDANTColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.MANDANTColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_ID() As Integer + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SUPPLY_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SUPPLY_ID in Tabelle VWSUPPLIES_BESTELLUNG_GESENDET ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SUPPLY_IDColumn) = value + End Set + End Property + + _ + Public Function IsGERAETNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.GERAETColumn) + End Function + + _ + Public Sub SetGERAETNull() + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.GERAETColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERIEN_NRNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SERIEN_NRColumn) + End Function + + _ + Public Sub SetSERIEN_NRNull() + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SERIEN_NRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSUPPLY_IDNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SUPPLY_IDColumn) + End Function + + _ + Public Sub SetSUPPLY_IDNull() + Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SUPPLY_IDColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWRPT_SUPPLIES_TOORDERRow + Inherits Global.System.Data.DataRow + + Private tableVWRPT_SUPPLIES_TOORDER As VWRPT_SUPPLIES_TOORDERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWRPT_SUPPLIES_TOORDER = CType(Me.Table,VWRPT_SUPPLIES_TOORDERDataTable) + End Sub + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle VWRPT_SUPPLIES_TOORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property GERAET() As String + Get + Try + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAETColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET in Tabelle VWRPT_SUPPLIES_TOORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAETColumn) = value + End Set + End Property + + _ + Public Property GERAET_IP() As String + Get + Try + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_IPColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET_IP in Tabelle VWRPT_SUPPLIES_TOORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_IPColumn) = value + End Set + End Property + + _ + Public Property GERAET_SERIENNR() As String + Get + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_SERIENNRColumn),String) + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_SERIENNRColumn) = value + End Set + End Property + + _ + Public Property GERAET_PAGECOUNT() As Integer + Get + Try + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_PAGECOUNTColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET_PAGECOUNT in Tabelle VWRPT_SUPPLIES_TOORDER ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_PAGECOUNTColumn) = value + End Set + End Property + + _ + Public Property GERAET_PPM() As Integer + Get + Try + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_PPMColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GERAET_PPM in Tabelle VWRPT_SUPPLIES_TOORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_PPMColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.MARKTColumn),String) + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.MARKTColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_BEZ() As String + Get + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.SUPPLY_BEZColumn),String) + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.SUPPLY_BEZColumn) = value + End Set + End Property + + _ + Public Property LEVEL() As Integer + Get + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.LEVELColumn),Integer) + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.LEVELColumn) = value + End Set + End Property + + _ + Public Property SCHWELLENWERT() As Integer + Get + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.SCHWELLENWERTColumn),Integer) + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.SCHWELLENWERTColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Try + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.PARTNUMBERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARTNUMBER in Tabelle VWRPT_SUPPLIES_TOORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Try + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.SERIENNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIENNR in Tabelle VWRPT_SUPPLIES_TOORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property STATUS() As String + Get + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.STATUSColumn),String) + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.STATUSColumn) = value + End Set + End Property + + _ + Public Property VERTRAG() As String + Get + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.VERTRAGColumn),String) + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.VERTRAGColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER_ORDER() As String + Get + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.PARTNUMBER_ORDERColumn),String) + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.PARTNUMBER_ORDERColumn) = value + End Set + End Property + + _ + Public Property MANUELL() As Boolean + Get + Try + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.MANUELLColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MANUELL in Tabelle VWRPT_SUPPLIES_TOORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.MANUELLColumn) = value + End Set + End Property + + _ + Public Property ANZAHL() As Integer + Get + Try + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.ANZAHLColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ANZAHL in Tabelle VWRPT_SUPPLIES_TOORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.ANZAHLColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_ID() As String + Get + Try + Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.SUPPLY_IDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SUPPLY_ID in Tabelle VWRPT_SUPPLIES_TOORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWRPT_SUPPLIES_TOORDER.SUPPLY_IDColumn) = value + End Set + End Property + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableVWRPT_SUPPLIES_TOORDER.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGERAETNull() As Boolean + Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.GERAETColumn) + End Function + + _ + Public Sub SetGERAETNull() + Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAETColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGERAET_IPNull() As Boolean + Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_IPColumn) + End Function + + _ + Public Sub SetGERAET_IPNull() + Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_IPColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGERAET_PAGECOUNTNull() As Boolean + Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_PAGECOUNTColumn) + End Function + + _ + Public Sub SetGERAET_PAGECOUNTNull() + Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_PAGECOUNTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGERAET_PPMNull() As Boolean + Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_PPMColumn) + End Function + + _ + Public Sub SetGERAET_PPMNull() + Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_PPMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPARTNUMBERNull() As Boolean + Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.PARTNUMBERColumn) + End Function + + _ + Public Sub SetPARTNUMBERNull() + Me(Me.tableVWRPT_SUPPLIES_TOORDER.PARTNUMBERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERIENNRNull() As Boolean + Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.SERIENNRColumn) + End Function + + _ + Public Sub SetSERIENNRNull() + Me(Me.tableVWRPT_SUPPLIES_TOORDER.SERIENNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMANUELLNull() As Boolean + Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.MANUELLColumn) + End Function + + _ + Public Sub SetMANUELLNull() + Me(Me.tableVWRPT_SUPPLIES_TOORDER.MANUELLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsANZAHLNull() As Boolean + Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.ANZAHLColumn) + End Function + + _ + Public Sub SetANZAHLNull() + Me(Me.tableVWRPT_SUPPLIES_TOORDER.ANZAHLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSUPPLY_IDNull() As Boolean + Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.SUPPLY_IDColumn) + End Function + + _ + Public Sub SetSUPPLY_IDNull() + Me(Me.tableVWRPT_SUPPLIES_TOORDER.SUPPLY_IDColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWSUPPLIES_2_ORDERRow + Inherits Global.System.Data.DataRow + + Private tableVWSUPPLIES_2_ORDER As VWSUPPLIES_2_ORDERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWSUPPLIES_2_ORDER = CType(Me.Table,VWSUPPLIES_2_ORDERDataTable) + End Sub + + _ + Public Property MANDANT() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.MANDANTColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.MANDANTColumn) = value + End Set + End Property + + _ + Public Property MANDANT_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.MANDANT_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.MANDANT_IDColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.SUPPLY_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.SUPPLY_IDColumn) = value + End Set + End Property + + _ + Public Property GERAET_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.GERAET_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.GERAET_IDColumn) = value + End Set + End Property + + _ + Public Property DEVICE() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.DEVICEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEVICE in Tabelle VWSUPPLIES_2_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.DEVICEColumn) = value + End Set + End Property + + _ + Public Property DEVICE_SERIAL() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.DEVICE_SERIALColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.DEVICE_SERIALColumn) = value + End Set + End Property + + _ + Public Property MARKT() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.MARKTColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.MARKTColumn) = value + End Set + End Property + + _ + Public Property PAGE_COUNT() As Integer + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.PAGE_COUNTColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAGE_COUNT in Tabelle VWSUPPLIES_2_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.PAGE_COUNTColumn) = value + End Set + End Property + + _ + Public Property PPM() As Integer + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.PPMColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PPM in Tabelle VWSUPPLIES_2_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.PPMColumn) = value + End Set + End Property + + _ + Public Property BESTELLUNG() As Boolean + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.BESTELLUNGColumn),Boolean) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.BESTELLUNGColumn) = value + End Set + End Property + + _ + Public Property SUPPLY_BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.SUPPLY_BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SUPPLY_BEZEICHNUNG in Tabelle VWSUPPLIES_2_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.SUPPLY_BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property LEVEL() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.LEVELColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.LEVELColumn) = value + End Set + End Property + + _ + Public Property SCHWELLENWERT() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.SCHWELLENWERTColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.SCHWELLENWERTColumn) = value + End Set + End Property + + _ + Public Property PARTNUMBER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.PARTNUMBERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARTNUMBER in Tabelle VWSUPPLIES_2_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.PARTNUMBERColumn) = value + End Set + End Property + + _ + Public Property SERIENNR() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.SERIENNRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERIENNR in Tabelle VWSUPPLIES_2_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.SERIENNRColumn) = value + End Set + End Property + + _ + Public Property STATUS_ID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.STATUS_IDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.STATUS_IDColumn) = value + End Set + End Property + + _ + Public Property STATUS() As String + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.STATUSColumn),String) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.STATUSColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWANN() As Date + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.ERFASSTWANNColumn),Date) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.ERFASSTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle VWSUPPLIES_2_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property STATUS_WANN() As Date + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.STATUS_WANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATUS_WANN in Tabelle VWSUPPLIES_2_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.STATUS_WANNColumn) = value + End Set + End Property + + _ + Public Property STATUS_WER() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.STATUS_WERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATUS_WER in Tabelle VWSUPPLIES_2_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.STATUS_WERColumn) = value + End Set + End Property + + _ + Public Property MANUELL() As Boolean + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.MANUELLColumn),Boolean) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.MANUELLColumn) = value + End Set + End Property + + _ + Public Property FW() As Boolean + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.FWColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FW in Tabelle VWSUPPLIES_2_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.FWColumn) = value + End Set + End Property + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.GUIDColumn) = value + End Set + End Property + + _ + Public Property GUI_SELECTED() As Boolean + Get + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.GUI_SELECTEDColumn),Boolean) + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.GUI_SELECTEDColumn) = value + End Set + End Property + + _ + Public Property MENGE() As Integer + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.MENGEColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENGE in Tabelle VWSUPPLIES_2_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.MENGEColumn) = value + End Set + End Property + + _ + Public Property BESTELL_ID() As Integer + Get + Try + Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.BESTELL_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESTELL_ID in Tabelle VWSUPPLIES_2_ORDER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLIES_2_ORDER.BESTELL_IDColumn) = value + End Set + End Property + + _ + Public Function IsDEVICENull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.DEVICEColumn) + End Function + + _ + Public Sub SetDEVICENull() + Me(Me.tableVWSUPPLIES_2_ORDER.DEVICEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPAGE_COUNTNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.PAGE_COUNTColumn) + End Function + + _ + Public Sub SetPAGE_COUNTNull() + Me(Me.tableVWSUPPLIES_2_ORDER.PAGE_COUNTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPPMNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.PPMColumn) + End Function + + _ + Public Sub SetPPMNull() + Me(Me.tableVWSUPPLIES_2_ORDER.PPMColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSUPPLY_BEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.SUPPLY_BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetSUPPLY_BEZEICHNUNGNull() + Me(Me.tableVWSUPPLIES_2_ORDER.SUPPLY_BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPARTNUMBERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.PARTNUMBERColumn) + End Function + + _ + Public Sub SetPARTNUMBERNull() + Me(Me.tableVWSUPPLIES_2_ORDER.PARTNUMBERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERIENNRNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.SERIENNRColumn) + End Function + + _ + Public Sub SetSERIENNRNull() + Me(Me.tableVWSUPPLIES_2_ORDER.SERIENNRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.GEAENDERTWERColumn) + End Function + + _ + Public Sub SetGEAENDERTWERNull() + Me(Me.tableVWSUPPLIES_2_ORDER.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATUS_WANNNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.STATUS_WANNColumn) + End Function + + _ + Public Sub SetSTATUS_WANNNull() + Me(Me.tableVWSUPPLIES_2_ORDER.STATUS_WANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATUS_WERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.STATUS_WERColumn) + End Function + + _ + Public Sub SetSTATUS_WERNull() + Me(Me.tableVWSUPPLIES_2_ORDER.STATUS_WERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFWNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.FWColumn) + End Function + + _ + Public Sub SetFWNull() + Me(Me.tableVWSUPPLIES_2_ORDER.FWColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMENGENull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.MENGEColumn) + End Function + + _ + Public Sub SetMENGENull() + Me(Me.tableVWSUPPLIES_2_ORDER.MENGEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBESTELL_IDNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.BESTELL_IDColumn) + End Function + + _ + Public Sub SetBESTELL_IDNull() + Me(Me.tableVWSUPPLIES_2_ORDER.BESTELL_IDColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBGERAETRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBGERAETRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBGERAETRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBGERAETRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWSUPPLIESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWSUPPLIESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWSUPPLIESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWSUPPLIESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_STATUS1RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_STATUS1Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_STATUS1Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_STATUS1Row + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_STATUS2RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_STATUS2Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_STATUS2Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_STATUS2Row + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_STATUS3RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_STATUS3Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_STATUS3Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_STATUS3Row + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_STATUSFILTERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_STATUSFILTERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_STATUSFILTERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_STATUSFILTERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBSUPPLY_VERFOLGUNGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBSUPPLY_VERFOLGUNGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBSUPPLY_VERFOLGUNGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBSUPPLY_VERFOLGUNGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBKONFIGURATIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBKONFIGURATIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBKONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBKONFIGURATIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBSTATUSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBSTATUSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBSTATUSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBSTATUSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_MARKTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_MARKTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_MARKTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_MARKTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWSUPPLIES_AKTUELLRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWSUPPLIES_AKTUELLRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWSUPPLIES_AKTUELLRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWSUPPLIES_AKTUELLRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWGERAET_ORDERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWGERAET_ORDERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWGERAET_ORDERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWGERAET_ORDERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWSUPPLIES_TO_ORDERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWSUPPLIES_TO_ORDERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWSUPPLIES_TO_ORDERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWSUPPLIES_TO_ORDERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBSUPPLIESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBSUPPLIESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBSUPPLIESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBSUPPLIESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_STATUS4RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_STATUS4Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_STATUS4Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_STATUS4Row + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_STATUS5RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_STATUS5Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_STATUS5Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_STATUS5Row + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBSUPPLY_BESTELLUNGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBSUPPLY_BESTELLUNGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBSUPPLY_BESTELLUNGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBSUPPLY_BESTELLUNGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_SUPPLIES_MARKTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_SUPPLIES_MARKTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_SUPPLIES_MARKTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_SUPPLIES_MARKTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWSUPPLY_BESTELLUNG_FRONTENDRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWSUPPLY_BESTELLUNG_FRONTENDRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWSUPPLY_BESTELLUNG_FRONTENDRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBGERAETByMarktRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBGERAETByMarktRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBGERAETByMarktRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBGERAETByMarktRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIMPORT_PRODUKTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIMPORT_PRODUKTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIMPORT_PRODUKTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIMPORT_PRODUKTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBVERTRAEGERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBVERTRAEGERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBVERTRAEGERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBVERTRAEGERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPRODUKT_VERTRAGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPRODUKT_VERTRAGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPRODUKT_VERTRAGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPRODUKT_VERTRAGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBGERAETE_NOTINLISTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBGERAETE_NOTINLISTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBGERAETE_NOTINLISTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBGERAETE_NOTINLISTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_MODELLRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_MODELLRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_MODELLRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_MODELLRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBSUPPLY_DEFINITIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBSUPPLY_DEFINITIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBSUPPLY_DEFINITIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBSUPPLY_DEFINITIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBGERAET_SUPPLY_ZUORDNUNGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBGERAET_SUPPLY_ZUORDNUNGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBGERAET_SUPPLY_ZUORDNUNGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBGERAET_SUPPLY_ZUORDNUNGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWGeraet_Supply_ZuordnungRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWGeraet_Supply_ZuordnungRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWGeraet_Supply_ZuordnungRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWGeraet_Supply_ZuordnungRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBUSER_RECHTERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBUSER_RECHTERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBUSER_RECHTERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBUSER_RECHTERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBMELDEDATUMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBMELDEDATUMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBMELDEDATUMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBMELDEDATUMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBGERAETE_VERFOLGUNGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBGERAETE_VERFOLGUNGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBGERAETE_VERFOLGUNGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBGERAETE_VERFOLGUNGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWMarkt_VerfolgungRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWMarkt_VerfolgungRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWMarkt_VerfolgungRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWMarkt_VerfolgungRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWGERAETE_VERFOLGUNGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWGERAETE_VERFOLGUNGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWGERAETE_VERFOLGUNGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWGERAETE_VERFOLGUNGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBREFLISTE_HISTORYRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBREFLISTE_HISTORYRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBREFLISTE_HISTORYRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBREFLISTE_HISTORYRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBMANDANTENRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBMANDANTENRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBMANDANTENRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBMANDANTENRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWSUPPLY_VERFOLGUNGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWSUPPLY_VERFOLGUNGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWSUPPLY_VERFOLGUNGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWSUPPLY_VERFOLGUNGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIMPORT_PRODUKTE_DUPLIKATERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIMPORT_PRODUKTE_DUPLIKATERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIMPORT_PRODUKTE_DUPLIKATERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIMPORT_PRODUKTE_DUPLIKATERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBCHANGE_LOG_GERAETRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCHANGE_LOG_GERAETRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCHANGE_LOG_GERAETRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCHANGE_LOG_GERAETRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBSERVICE_IMP_LOGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBSERVICE_IMP_LOGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBSERVICE_IMP_LOGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBSERVICE_IMP_LOGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWGERAETE_MELDUNG_STATUSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWGERAETE_MELDUNG_STATUSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWGERAETE_MELDUNG_STATUSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWGERAETE_MELDUNG_STATUSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As ViewSUPPLY_STATUS_VERFOLGUNGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As ViewSUPPLY_STATUS_VERFOLGUNGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As ViewSUPPLY_STATUS_VERFOLGUNGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWSUPPLIES_BESTELLUNG_GESENDETRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWSUPPLIES_BESTELLUNG_GESENDETRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWSUPPLIES_BESTELLUNG_GESENDETRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWRPT_SUPPLIES_TOORDERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWRPT_SUPPLIES_TOORDERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWRPT_SUPPLIES_TOORDERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWRPT_SUPPLIES_TOORDERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWSUPPLIES_2_ORDERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWSUPPLIES_2_ORDERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWSUPPLIES_2_ORDERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWSUPPLIES_2_ORDERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace MyDatasetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBGERAETTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBGERAET" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("IP_ADRESSE", "IP_ADRESSE") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("PAGE_COUNT", "PAGE_COUNT") + tableMapping.ColumnMappings.Add("PPM", "PPM") + tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("BESTELLUNG", "BESTELLUNG") + tableMapping.ColumnMappings.Add("MARKER", "MARKER") + tableMapping.ColumnMappings.Add("PC_INITIAL", "PC_INITIAL") + tableMapping.ColumnMappings.Add("DATE_INITIAL", "DATE_INITIAL") + tableMapping.ColumnMappings.Add("MODEL_NR", "MODEL_NR") + tableMapping.ColumnMappings.Add("UMGEZOGEN", "UMGEZOGEN") + tableMapping.ColumnMappings.Add("VERTRAGSNR", "VERTRAGSNR") + tableMapping.ColumnMappings.Add("ONHOLD", "ONHOLD") + tableMapping.ColumnMappings.Add("ONHOLD_DATE", "ONHOLD_DATE") + tableMapping.ColumnMappings.Add("MELDEDATUM", "MELDEDATUM") + tableMapping.ColumnMappings.Add("NICHT_AKTIV", "NICHT_AKTIV") + tableMapping.ColumnMappings.Add("ABGEBAUT", "ABGEBAUT") + tableMapping.ColumnMappings.Add("Mandant", "Mandant") + tableMapping.ColumnMappings.Add("Mandant_KZ", "Mandant_KZ") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(7) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET."& _ + "SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, TBGERAET.ERFASSTWANN, TBGERAET."& _ + "GEAENDERTWER, TBGERAET.GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.MARKER"& _ + ", TBGERAET.PC_INITIAL, TBGERAET.DATE_INITIAL, TBGERAET.MODEL_NR, TBGERAET.UMGEZO"& _ + "GEN, TBVERTRAEGE.VERTRAGSNR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.ONHOLD, TBGERAE"& _ + "T.ONHOLD_DATE, CONVERT(VARCHAR(10), TBGERAET.MELDEDATUM, 104) AS MELDEDATUM, TBG"& _ + "ERAET.NICHT_AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.ABGEBAUT, TBMANDANTEN.NAM"& _ + "E AS Mandant, TBMANDANTEN.KENNZEICHEN AS Mandant_KZ"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGERAET IN"& _ + "NER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBMANDANTEN ON TBGERAET.MANDANT_ID = TBMANDAN"& _ + "TEN.GUID LEFT OUTER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBVERTRAEGE ON TBGERAET.VERTR"& _ + "AG_ID = TBVERTRAEGE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBGERAET.AKTIV_REFLISTE = @Aktiv) AND (T"& _ + "BMANDANTEN.GUID = @MANDANT_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Aktiv", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV_REFLISTE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "UPDATE TBGERAET"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BESTELLUNG = 1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @O"& _ + "riginal_GUID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT ISNULL(MAX(GUID), 0) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGERAET"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (UPPER(SERIENNR) = UPPER(@SERIAL))" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIAL", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "UPDATE TBGERAET"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BESTELLUNG = 0"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @O"& _ + "riginal_GUID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "UPDATE TBGERAET"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ONHOLD = @STATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @"& _ + "GUID)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ONHOLD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET."& _ + "SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, TBGERAET.ERFASSTWANN, TBGERAET."& _ + "GEAENDERTWER, TBGERAET.GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.MARKER"& _ + ", TBGERAET.PC_INITIAL, TBGERAET.DATE_INITIAL, TBGERAET.MODEL_NR, TBGERAET.UMGEZO"& _ + "GEN, TBVERTRAEGE.VERTRAGSNR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.ONHOLD, TBGERAE"& _ + "T.ONHOLD_DATE, CONVERT(VARCHAR(10), TBGERAET.MELDEDATUM, 104) AS MELDEDATUM, TBG"& _ + "ERAET.NICHT_AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.ABGEBAUT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBGERAET LEFT OUTER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBVERTRAEGE ON TBGERAET.VERT"& _ + "RAG_ID = TBVERTRAEGE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBGERAET.GUID = @GUID)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET."& _ + "SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, TBGERAET.ERFASSTWANN, TBGERAET."& _ + "GEAENDERTWER, TBGERAET.GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.MARKER"& _ + ", TBGERAET.PC_INITIAL, TBGERAET.DATE_INITIAL, TBGERAET.MODEL_NR, TBGERAET.UMGEZO"& _ + "GEN, TBVERTRAEGE.VERTRAGSNR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.ONHOLD, TBGERAE"& _ + "T.ONHOLD_DATE, CONVERT(VARCHAR(10), TBGERAET.MELDEDATUM, 104) AS MELDEDATUM, TBG"& _ + "ERAET.NICHT_AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.ABGEBAUT, TBMANDANTEN.NAM"& _ + "E AS Mandant, TBMANDANTEN.KENNZEICHEN AS Mandant_KZ"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGERAET IN"& _ + "NER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBMANDANTEN ON TBGERAET.MANDANT_ID = TBMANDAN"& _ + "TEN.GUID LEFT OUTER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBVERTRAEGE ON TBGERAET.VERTR"& _ + "AG_ID = TBVERTRAEGE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (REPLACE(TBGERAET.MARKT, ' ', '') = REPLA"& _ + "CE(@MARKT, ' ', '')) AND (TBGERAET.AKTIV_REFLISTE = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBGERAET.BEZEIC"& _ + "HNUNG" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(7).Connection = Me.Connection + Me._commandCollection(7).CommandText = "SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET."& _ + "SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, TBGERAET.ERFASSTWANN, TBGERAET."& _ + "GEAENDERTWER, TBGERAET.GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.MARKER"& _ + ", TBGERAET.PC_INITIAL, TBGERAET.DATE_INITIAL, TBGERAET.MODEL_NR, TBGERAET.UMGEZO"& _ + "GEN, TBVERTRAEGE.VERTRAGSNR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.ONHOLD, TBGERAE"& _ + "T.ONHOLD_DATE, CONVERT(VARCHAR(10), TBGERAET.MELDEDATUM, 104) AS MELDEDATUM, TBG"& _ + "ERAET.NICHT_AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.ABGEBAUT, TBMANDANTEN.NAM"& _ + "E AS Mandant, TBMANDANTEN.KENNZEICHEN AS Mandant_KZ"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGERAET IN"& _ + "NER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBMANDANTEN ON TBGERAET.MANDANT_ID = TBMANDAN"& _ + "TEN.GUID LEFT OUTER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBVERTRAEGE ON TBGERAET.VERTR"& _ + "AG_ID = TBVERTRAEGE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (REPLACE(TBGERAET.MARKT, ' ', '') = REPLA"& _ + "CE(@MARKT, ' ', '')) AND (TBGERAET.AKTIV_REFLISTE = 1) AND (TBGERAET.ONHOLD = 0)"& _ + "" + Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGERAETDataTable, ByVal Aktiv As Boolean, ByVal MANDANT_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Aktiv,Boolean) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(MANDANT_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal Aktiv As Boolean, ByVal MANDANT_ID As Integer) As MyDataset.TBGERAETDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Aktiv,Boolean) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(MANDANT_ID,Integer) + Dim dataTable As MyDataset.TBGERAETDataTable = New MyDataset.TBGERAETDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByGUID(ByVal dataTable As MyDataset.TBGERAETDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(5) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByGUID(ByVal GUID As Integer) As MyDataset.TBGERAETDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(5) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As MyDataset.TBGERAETDataTable = New MyDataset.TBGERAETDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByMarkt(ByVal dataTable As MyDataset.TBGERAETDataTable, ByVal MARKT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(6) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByMarkt(ByVal MARKT As String) As MyDataset.TBGERAETDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(6) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + Dim dataTable As MyDataset.TBGERAETDataTable = New MyDataset.TBGERAETDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByMarktexonhold(ByVal dataTable As MyDataset.TBGERAETDataTable, ByVal MARKT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(7) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByMarktexonhold(ByVal MARKT As String) As MyDataset.TBGERAETDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(7) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + Dim dataTable As MyDataset.TBGERAETDataTable = New MyDataset.TBGERAETDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function CmdBestellungJa(ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdGetGERAET_ID(ByVal SERIAL As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (SERIAL Is Nothing) Then + Throw New Global.System.ArgumentNullException("SERIAL") + Else + command.Parameters(0).Value = CType(SERIAL,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + + _ + Public Overloads Overridable Function CmdUpdateBestellungnein(ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdupdateStateOnHold(ByVal STATE As Boolean, ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + command.Parameters(0).Value = CType(STATE,Boolean) + command.Parameters(1).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWSUPPLIESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWSUPPLIES" + tableMapping.ColumnMappings.Add("SUPPLY_ID", "SUPPLY_ID") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("DEVICE", "DEVICE") + tableMapping.ColumnMappings.Add("SUPPLY_BEZ", "SUPPLY_BEZ") + tableMapping.ColumnMappings.Add("LEVEL", "LEVEL") + tableMapping.ColumnMappings.Add("SCHWELLENWERT", "SCHWELLENWERT") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("STATUS_ID", "STATUS_ID") + tableMapping.ColumnMappings.Add("STATUS", "STATUS") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("GERAET_ID", "GERAET_ID") + tableMapping.ColumnMappings.Add("STATUS_WANN", "STATUS_WANN") + tableMapping.ColumnMappings.Add("GERAET", "GERAET") + tableMapping.ColumnMappings.Add("GERAET_IP", "GERAET_IP") + tableMapping.ColumnMappings.Add("GERAET_SERIENNR", "GERAET_SERIENNR") + tableMapping.ColumnMappings.Add("GERAET_PAGECOUNT", "GERAET_PAGECOUNT") + tableMapping.ColumnMappings.Add("GERAET_PPM", "GERAET_PPM") + tableMapping.ColumnMappings.Add("BESTELLUNG", "BESTELLUNG") + tableMapping.ColumnMappings.Add("STATUS_WER", "STATUS_WER") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(4) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT SUPPLY_ID, GERAET_ID, MARKT, DEVICE, SUPPLY_BEZ, LEVEL, SCHWELLENWE"& _ + "RT, PARTNUMBER, SERIENNR, STATUS_WANN, STATUS_ID, STATUS, GERAET, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " GERAET_IP, GERAET_SERIENNR, GERAET_PAGECOUNT, GERAET_PPM, BESTELLUN"& _ + "G, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" STATUS_W"& _ + "ER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSUPPLIES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (STATUS_ID <> 6)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT BESTELLUNG, DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET, GERA"& _ + "ET_ID, GERAET_IP, GERAET_PAGECOUNT, GERAET_PPM, GERAET_SERIENNR, LEVEL, MARKT, P"& _ + "ARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STATUS_WER, "& _ + "SUPPLY_BEZ, SUPPLY_ID FROM VWSUPPLIES" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT BESTELLUNG, DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET, GERA"& _ + "ET_ID, GERAET_IP, GERAET_PAGECOUNT, GERAET_PPM, GERAET_SERIENNR, LEVEL, MARKT, P"& _ + "ARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STATUS_WER, "& _ + "SUPPLY_BEZ, SUPPLY_ID FROM VWSUPPLIES WHERE (MARKT = @MARKT)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "SELECT BESTELLUNG, DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET, GERA"& _ + "ET_ID, GERAET_IP, GERAET_PAGECOUNT, GERAET_PPM, GERAET_SERIENNR, LEVEL, MARKT, P"& _ + "ARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STATUS_WER, "& _ + "SUPPLY_BEZ, SUPPLY_ID FROM VWSUPPLIES WHERE (STATUS_ID = @STATUS_ID)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "SELECT BESTELLUNG, DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET, GERA"& _ + "ET_ID, GERAET_IP, GERAET_PAGECOUNT, GERAET_PPM, GERAET_SERIENNR, LEVEL, MARKT, P"& _ + "ARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STATUS_WER, "& _ + "SUPPLY_BEZ, SUPPLY_ID FROM VWSUPPLIES WHERE (STATUS = @STATUS)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWSUPPLIESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.VWSUPPLIESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.VWSUPPLIESDataTable = New MyDataset.VWSUPPLIESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByAll(ByVal dataTable As MyDataset.VWSUPPLIESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByAll() As MyDataset.VWSUPPLIESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Dim dataTable As MyDataset.VWSUPPLIESDataTable = New MyDataset.VWSUPPLIESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByMARKT(ByVal dataTable As MyDataset.VWSUPPLIESDataTable, ByVal MARKT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByMARKT(ByVal MARKT As String) As MyDataset.VWSUPPLIESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + Dim dataTable As MyDataset.VWSUPPLIESDataTable = New MyDataset.VWSUPPLIESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillBySTATUS(ByVal dataTable As MyDataset.VWSUPPLIESDataTable, ByVal STATUS_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(3) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(STATUS_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBySTATUS(ByVal STATUS_ID As Integer) As MyDataset.VWSUPPLIESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(3) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(STATUS_ID,Integer) + Dim dataTable As MyDataset.VWSUPPLIESDataTable = New MyDataset.VWSUPPLIESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByStatusname(ByVal dataTable As MyDataset.VWSUPPLIESDataTable, ByVal STATUS As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(4) + If (STATUS Is Nothing) Then + Throw New Global.System.ArgumentNullException("STATUS") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(STATUS,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByStatusname(ByVal STATUS As String) As MyDataset.VWSUPPLIESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(4) + If (STATUS Is Nothing) Then + Throw New Global.System.ArgumentNullException("STATUS") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(STATUS,String) + End If + Dim dataTable As MyDataset.VWSUPPLIESDataTable = New MyDataset.VWSUPPLIESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_STATUS1TableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_STATUS1" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSTATUS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_STATUS1DataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBWH_STATUS1DataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBWH_STATUS1DataTable = New MyDataset.TBWH_STATUS1DataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_STATUS2TableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_STATUS2" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSTATUS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_STATUS2DataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBWH_STATUS2DataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBWH_STATUS2DataTable = New MyDataset.TBWH_STATUS2DataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_STATUS3TableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_STATUS3" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSTATUS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_STATUS3DataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBWH_STATUS3DataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBWH_STATUS3DataTable = New MyDataset.TBWH_STATUS3DataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_STATUSFILTERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_STATUSFILTER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSTATUS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_STATUSFILTERDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBWH_STATUSFILTERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBWH_STATUSFILTERDataTable = New MyDataset.TBWH_STATUSFILTERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBSUPPLY_VERFOLGUNGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBSUPPLY_VERFOLGUNG" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("GERAET_ID", "GERAET_ID") + tableMapping.ColumnMappings.Add("LEVEL", "LEVEL") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("MARKER", "MARKER") + tableMapping.ColumnMappings.Add("MELDEDATUM", "MELDEDATUM") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBSUPPLY_VERFOLGUNG] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_"& _ + "BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICH"& _ + "NUNG)) AND ((@IsNull_SERIENNR = 1 AND [SERIENNR] IS NULL) OR ([SERIENNR] = @Orig"& _ + "inal_SERIENNR)) AND ([GERAET_ID] = @Original_GERAET_ID) AND ([LEVEL] = @Original"& _ + "_LEVEL) AND ((@IsNull_PARTNUMBER = 1 AND [PARTNUMBER] IS NULL) OR ([PARTNUMBER] "& _ + "= @Original_PARTNUMBER)) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASST"& _ + "WANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER]"& _ + " IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ((@IsNull_GEAENDERTW"& _ + "ANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWA"& _ + "NN)) AND ((@IsNull_MARKER = 1 AND [MARKER] IS NULL) OR ([MARKER] = @Original_MAR"& _ + "KER)) AND ((@IsNull_MELDEDATUM = 1 AND [MELDEDATUM] IS NULL) OR ([MELDEDATUM] = "& _ + "@Original_MELDEDATUM)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERIENNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERIENNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GERAET_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PARTNUMBER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARTNUMBER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MARKER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MARKER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MELDEDATUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MELDEDATUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBSUPPLY_VERFOLGUNG] SET [BEZEICHNUNG] = @BEZEICHNUNG, [SERIENNR] = @SERI"& _ + "ENNR, [GERAET_ID] = @GERAET_ID, [LEVEL] = @LEVEL, [PARTNUMBER] = @PARTNUMBER, [E"& _ + "RFASSTWER] = @ERFASSTWER, [ERFASSTWANN] = @ERFASSTWANN, [GEAENDERTWER] = @GEAEND"& _ + "ERTWER, [GEAENDERTWANN] = @GEAENDERTWANN, [MARKER] = @MARKER, [MELDEDATUM] = @ME"& _ + "LDEDATUM WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZ"& _ + "EICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ((@IsNull_SER"& _ + "IENNR = 1 AND [SERIENNR] IS NULL) OR ([SERIENNR] = @Original_SERIENNR)) AND ([GE"& _ + "RAET_ID] = @Original_GERAET_ID) AND ([LEVEL] = @Original_LEVEL) AND ((@IsNull_PA"& _ + "RTNUMBER = 1 AND [PARTNUMBER] IS NULL) OR ([PARTNUMBER] = @Original_PARTNUMBER))"& _ + " AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASS"& _ + "TWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERT"& _ + "WER] = @Original_GEAENDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWA"& _ + "NN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)) AND ((@IsNull_MARKE"& _ + "R = 1 AND [MARKER] IS NULL) OR ([MARKER] = @Original_MARKER)) AND ((@IsNull_MELD"& _ + "EDATUM = 1 AND [MELDEDATUM] IS NULL) OR ([MELDEDATUM] = @Original_MELDEDATUM)));"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SERIENNR, GERAET_ID, LEVEL, PARTNUMBER, ERFASSTWER, "& _ + "ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, MARKER, MELDEDATUM FROM TBSUPPLY_VERFO"& _ + "LGUNG WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIENNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARTNUMBER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MELDEDATUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERIENNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERIENNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GERAET_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PARTNUMBER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARTNUMBER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MARKER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MARKER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MELDEDATUM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MELDEDATUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, SERIENNR, GERAET_ID, LEVEL, PARTNUMBER, ERFASSTW"& _ + "ER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, MARKER, MELDEDATUM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBSUPPLY_VERFOLGUNG" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBSUPPLY_VERFOLGUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, SERIENNR,"& _ + " LEVEL, PARTNUMBER, ERFASSTWER, GERAET_ID, MELDEDATUM)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHN"& _ + "UNG,@SERIENNR,@LEVEL,@PARTNUMBER,@ERFASSTWER,@GERAET_ID,@MELDEDATUM)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIENNR", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARTNUMBER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MELDEDATUM", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBSUPPLY_VERFOLGUNGDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBSUPPLY_VERFOLGUNGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBSUPPLY_VERFOLGUNGDataTable = New MyDataset.TBSUPPLY_VERFOLGUNGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBSUPPLY_VERFOLGUNGDataTable) 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, "TBSUPPLY_VERFOLGUNG") + 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, ByVal Original_BEZEICHNUNG As String, ByVal Original_SERIENNR As String, ByVal Original_GERAET_ID As Global.System.Nullable(Of Integer), ByVal Original_LEVEL As Global.System.Nullable(Of Integer), ByVal Original_PARTNUMBER As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_MARKER As String, ByVal Original_MELDEDATUM As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_BEZEICHNUNG Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_BEZEICHNUNG,String) + End If + If (Original_SERIENNR Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SERIENNR,String) + End If + If (Original_GERAET_ID.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_GERAET_ID.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (Original_LEVEL.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_LEVEL.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Original_PARTNUMBER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_PARTNUMBER,String) + End If + If (Original_ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERFASSTWER") + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ERFASSTWER,String) + End If + If (Original_ERFASSTWANN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ERFASSTWANN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (Original_GEAENDERTWER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_GEAENDERTWER,String) + End If + If (Original_GEAENDERTWANN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_GEAENDERTWANN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_MARKER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_MARKER,String) + End If + If (Original_MELDEDATUM Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_MELDEDATUM,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal BEZEICHNUNG As String, _ + ByVal SERIENNR As String, _ + ByVal GERAET_ID As Global.System.Nullable(Of Integer), _ + ByVal LEVEL As Global.System.Nullable(Of Integer), _ + ByVal PARTNUMBER As String, _ + ByVal ERFASSTWER As String, _ + ByVal ERFASSTWANN As Global.System.Nullable(Of Date), _ + ByVal GEAENDERTWER As String, _ + ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _ + ByVal MARKER As String, _ + ByVal MELDEDATUM As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_BEZEICHNUNG As String, _ + ByVal Original_SERIENNR As String, _ + ByVal Original_GERAET_ID As Global.System.Nullable(Of Integer), _ + ByVal Original_LEVEL As Global.System.Nullable(Of Integer), _ + ByVal Original_PARTNUMBER As String, _ + ByVal Original_ERFASSTWER As String, _ + ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), _ + ByVal Original_GEAENDERTWER As String, _ + ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), _ + ByVal Original_MARKER As String, _ + ByVal Original_MELDEDATUM As String, _ + ByVal GUID As Integer) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (SERIENNR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SERIENNR,String) + End If + If (GERAET_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GERAET_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (LEVEL.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (PARTNUMBER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(PARTNUMBER,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ERFASSTWER,String) + End If + If (ERFASSTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ERFASSTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEAENDERTWER,String) + End If + If (GEAENDERTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEAENDERTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (MARKER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(MARKER,String) + End If + If (MELDEDATUM Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(MELDEDATUM,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) + If (Original_BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_BEZEICHNUNG,String) + End If + If (Original_SERIENNR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SERIENNR,String) + End If + If (Original_GERAET_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GERAET_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (Original_LEVEL.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_LEVEL.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (Original_PARTNUMBER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_PARTNUMBER,String) + End If + If (Original_ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERFASSTWER") + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ERFASSTWER,String) + End If + If (Original_ERFASSTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ERFASSTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + If (Original_GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_GEAENDERTWER,String) + End If + If (Original_GEAENDERTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_GEAENDERTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + End If + If (Original_MARKER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_MARKER,String) + End If + If (Original_MELDEDATUM Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_MELDEDATUM,String) + End If + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal BEZEICHNUNG As String, _ + ByVal SERIENNR As String, _ + ByVal GERAET_ID As Global.System.Nullable(Of Integer), _ + ByVal LEVEL As Global.System.Nullable(Of Integer), _ + ByVal PARTNUMBER As String, _ + ByVal ERFASSTWER As String, _ + ByVal ERFASSTWANN As Global.System.Nullable(Of Date), _ + ByVal GEAENDERTWER As String, _ + ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _ + ByVal MARKER As String, _ + ByVal MELDEDATUM As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_BEZEICHNUNG As String, _ + ByVal Original_SERIENNR As String, _ + ByVal Original_GERAET_ID As Global.System.Nullable(Of Integer), _ + ByVal Original_LEVEL As Global.System.Nullable(Of Integer), _ + ByVal Original_PARTNUMBER As String, _ + ByVal Original_ERFASSTWER As String, _ + ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), _ + ByVal Original_GEAENDERTWER As String, _ + ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), _ + ByVal Original_MARKER As String, _ + ByVal Original_MELDEDATUM As String) As Integer + Return Me.Update(BEZEICHNUNG, SERIENNR, GERAET_ID, LEVEL, PARTNUMBER, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, MARKER, MELDEDATUM, Original_GUID, Original_BEZEICHNUNG, Original_SERIENNR, Original_GERAET_ID, Original_LEVEL, Original_PARTNUMBER, Original_ERFASSTWER, Original_ERFASSTWANN, Original_GEAENDERTWER, Original_GEAENDERTWANN, Original_MARKER, Original_MELDEDATUM, Original_GUID) + End Function + + _ + Public Overloads Overridable Function cmdInsertmanuell(ByVal BEZEICHNUNG As String, ByVal SERIENNR As String, ByVal LEVEL As Integer, ByVal PARTNUMBER As String, ByVal ERFASSTWER As String, ByVal GERAET_ID As Integer, ByVal MELDEDATUM As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (BEZEICHNUNG Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (SERIENNR Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(SERIENNR,String) + End If + command.Parameters(2).Value = CType(LEVEL,Integer) + If (PARTNUMBER Is Nothing) Then + command.Parameters(3).Value = Global.System.DBNull.Value + Else + command.Parameters(3).Value = CType(PARTNUMBER,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + command.Parameters(4).Value = CType(ERFASSTWER,String) + End If + command.Parameters(5).Value = CType(GERAET_ID,Integer) + If (MELDEDATUM Is Nothing) Then + command.Parameters(6).Value = Global.System.DBNull.Value + Else + command.Parameters(6).Value = CType(MELDEDATUM,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBKONFIGURATIONTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBKONFIGURATION" + tableMapping.ColumnMappings.Add("STATUS_OK", "STATUS_OK") + tableMapping.ColumnMappings.Add("STATUS_BEST", "STATUS_BEST") + tableMapping.ColumnMappings.Add("STATUS_SD", "STATUS_SD") + tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DEF_SW", "DEF_SW") + tableMapping.ColumnMappings.Add("STATUS_BESTELLT", "STATUS_BESTELLT") + tableMapping.ColumnMappings.Add("STATUS_ERSETZT", "STATUS_ERSETZT") + tableMapping.ColumnMappings.Add("STATUS_UNKLAR", "STATUS_UNKLAR") + tableMapping.ColumnMappings.Add("IMPORT_XML", "IMPORT_XML") + tableMapping.ColumnMappings.Add("IMPORT_XMLARCHIV", "IMPORT_XMLARCHIV") + tableMapping.ColumnMappings.Add("IMPORT_BESTELLUNGEN", "IMPORT_BESTELLUNGEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBKONFIGURATION] WHERE (([STATUS_OK] = @Original_STATUS_OK) AND ([ST"& _ + "ATUS_BEST] = @Original_STATUS_BEST) AND ([STATUS_SD] = @Original_STATUS_SD) AND "& _ + "((@IsNull_BEMERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEM"& _ + "ERKUNG)) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDE"& _ + "RTWER] = @Original_GEAENDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWANN"& _ + ") AND ([GUID] = @Original_GUID))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATUS_OK", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_OK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATUS_BEST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_BEST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATUS_SD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_SD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEMERKUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBKONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET STATUS_OK = @STATUS_OK, STATUS_B"& _ + "EST = @STATUS_BEST, STATUS_SD = @STATUS_SD, BEMERKUNG = @BEMERKUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " GEAENDERTWER = @GEAENDERTWER, DEF_SW = @DEF_SW, STATUS_BESTELLT ="& _ + " @STATUS_BESTELLT, STATUS_UNKLAR = @STATUS_UNKLAR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ST"& _ + "ATUS_ERSETZT = @STATUS_ERSETZT, IMPORT_XML = @IMPORT_XML, IMPORT_XMLARCHIV = @IM"& _ + "PORT_XMLARCHIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IMPORT_BESTELLUNGEN = @IMPORT_BESTELL"& _ + "UNGEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT STATUS_OK, STATUS_BEST"& _ + ", STATUS_SD, BEMERKUNG, GEAENDERTWER, GEAENDERTWANN, GUID FROM TBKONFIGURATION W"& _ + "HERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_OK", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_OK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_BEST", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_BEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_SD", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_SD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEF_SW", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEF_SW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_BESTELLT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_BESTELLT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_UNKLAR", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_UNKLAR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_ERSETZT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_ERSETZT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMPORT_XML", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_XML", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMPORT_XMLARCHIV", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_XMLARCHIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMPORT_BESTELLUNGEN", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_BESTELLUNGEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT STATUS_OK, STATUS_BEST, STATUS_SD, BEMERKUNG, GEAENDERTWER, GEAENDE"& _ + "RTWANN, GUID, DEF_SW, STATUS_BESTELLT, STATUS_ERSETZT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " STATUS_UNKLAR, IMPORT_XML, IMPORT_XMLARCHIV, IMPORT_BESTELLUNGEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBKONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBKONFIGURATIONDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBKONFIGURATIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBKONFIGURATIONDataTable = New MyDataset.TBKONFIGURATIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBKONFIGURATIONDataTable) 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, "TBKONFIGURATION") + 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_STATUS_OK As Integer, ByVal Original_STATUS_BEST As Integer, ByVal Original_STATUS_SD As Integer, ByVal Original_BEMERKUNG As String, ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_STATUS_OK,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_STATUS_BEST,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_STATUS_SD,Integer) + If (Original_BEMERKUNG Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_BEMERKUNG,String) + End If + If (Original_GEAENDERTWER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_GEAENDERTWER,String) + End If + If (Original_GEAENDERTWANN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_GEAENDERTWANN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal STATUS_OK As Integer, ByVal STATUS_BEST As Integer, ByVal STATUS_SD As Integer, ByVal BEMERKUNG As String, ByVal GEAENDERTWER As String, ByVal DEF_SW As Integer, ByVal STATUS_BESTELLT As Integer, ByVal STATUS_UNKLAR As Integer, ByVal STATUS_ERSETZT As Integer, ByVal IMPORT_XML As String, ByVal IMPORT_XMLARCHIV As String, ByVal IMPORT_BESTELLUNGEN As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(STATUS_OK,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(STATUS_BEST,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(STATUS_SD,Integer) + If (BEMERKUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(BEMERKUNG,String) + End If + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GEAENDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(DEF_SW,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(STATUS_BESTELLT,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(STATUS_UNKLAR,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(STATUS_ERSETZT,Integer) + If (IMPORT_XML Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(IMPORT_XML,String) + End If + If (IMPORT_XMLARCHIV Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(IMPORT_XMLARCHIV,String) + End If + If (IMPORT_BESTELLUNGEN Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(IMPORT_BESTELLUNGEN,String) + End If + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBSTATUSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBSTATUS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("TIMESTAMP1", "TIMESTAMP1") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBSTATUS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBSTATUS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, BESCHREIBUNG, BEMERK"& _ + "UNG, ERFASSTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@BEMERKUNG,@ERFASSTW"& _ + "ER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, BEMERKUNG, ERFASSTWER, ERFASSTWAN"& _ + "N, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1 FROM TBSTATUS WHERE (GUID = SCOPE_IDE"& _ + "NTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBSTATUS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, BESCHREIBUN"& _ + "G = @BESCHREIBUNG, BEMERKUNG = @BEMERKUNG, GEAENDERTWER = @GEAENDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, BEMERKU"& _ + "NG, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1 FROM TBSTAT"& _ + "US WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBSTATUS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSTATUS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBSTATUSDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBSTATUSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBSTATUSDataTable = New MyDataset.TBSTATUSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBSTATUSDataTable) 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, "TBSTATUS") + 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 + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal BEMERKUNG As String, ByVal ERFASSTWER As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(BEMERKUNG,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ERFASSTWER,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal BEMERKUNG As String, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BEMERKUNG,String) + End If + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GEAENDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_MARKTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_MARKT" + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT REPLACE(MARKT, ' ', '') AS MARKT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGERAET"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP B"& _ + "Y REPLACE(MARKT, ' ', '')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY MARKT" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_MARKTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBWH_MARKTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBWH_MARKTDataTable = New MyDataset.TBWH_MARKTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWSUPPLIES_AKTUELLTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWSUPPLIES_AKTUELL" + tableMapping.ColumnMappings.Add("SUPPLY_ID", "SUPPLY_ID") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("DEVICE", "DEVICE") + tableMapping.ColumnMappings.Add("SUPPLY_BEZ", "SUPPLY_BEZ") + tableMapping.ColumnMappings.Add("LEVEL", "LEVEL") + tableMapping.ColumnMappings.Add("SCHWELLENWERT", "SCHWELLENWERT") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("STATUS_ID", "STATUS_ID") + tableMapping.ColumnMappings.Add("STATUS", "STATUS") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("GERAET_ID", "GERAET_ID") + tableMapping.ColumnMappings.Add("STATUS_WANN", "STATUS_WANN") + tableMapping.ColumnMappings.Add("STATUS_WER", "STATUS_WER") + tableMapping.ColumnMappings.Add("ON_HOLD", "ON_HOLD") + tableMapping.ColumnMappings.Add("OH_DATE", "OH_DATE") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(5) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT SUPPLY_ID, GERAET_ID, MARKT, DEVICE, SUPPLY_BEZ, LEVEL, SCHWELLENWE"& _ + "RT, PARTNUMBER, SERIENNR, STATUS_ID, STATUS, ERFASSTWANN, GEAENDERTWER, GEAENDER"& _ + "TWANN, STATUS_WANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" STATUS_WER, ON_HOLD, OH_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _ + "M VWSUPPLIES_AKTUELL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (STATUS_ID <> 6)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "UPDATE TBSUPPLIES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEAENDERTWER = @GEAENDERTWER, ON_HOLD"& _ + " = @ONHOLD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ONHOLD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ON_HOLD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET_ID, LEVEL,"& _ + " MARKT, PARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STA"& _ + "TUS_WER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SUPPLY_BEZ, SUPPLY_ID, ON_HOLD, OH_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _ + "M VWSUPPLIES_AKTUELL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GERAET_ID = @GERAET) AND (STATUS_"& _ + "ID <> 6)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "SELECT DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET_ID, LEVEL,"& _ + " MARKT, PARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STA"& _ + "TUS_WER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SUPPLY_BEZ, SUPPLY_ID, ON_HOLD, OH_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _ + "M VWSUPPLIES_AKTUELL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MARKT = @MARKT) AND (STATUS_ID <>"& _ + " 6)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "SELECT DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET_ID, LEVEL,"& _ + " MARKT, PARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STA"& _ + "TUS_WER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SUPPLY_BEZ, SUPPLY_ID, ON_HOLD, OH_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _ + "M VWSUPPLIES_AKTUELL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GERAET_ID = @GERAET) AND (STATUS_"& _ + "ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT STATUS_BEST"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBKONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WH"& _ + "ERE (GUID = 1)))" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "SELECT DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET_ID, LEVEL,"& _ + " MARKT, PARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STA"& _ + "TUS_WER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SUPPLY_BEZ, SUPPLY_ID, ON_HOLD, OH_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _ + "M VWSUPPLIES_AKTUELL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (STATUS_ID = @STATUS_ID)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.VWSUPPLIES_AKTUELLDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable = New MyDataset.VWSUPPLIES_AKTUELLDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByGeraet(ByVal dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable, ByVal GERAET As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAET,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByGeraet(ByVal GERAET As Integer) As MyDataset.VWSUPPLIES_AKTUELLDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAET,Integer) + Dim dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable = New MyDataset.VWSUPPLIES_AKTUELLDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByMARKT(ByVal dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable, ByVal MARKT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(3) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByMARKT(ByVal MARKT As String) As MyDataset.VWSUPPLIES_AKTUELLDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(3) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + Dim dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable = New MyDataset.VWSUPPLIES_AKTUELLDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByNurBestellungen(ByVal dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable, ByVal GERAET As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(4) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAET,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByNurBestellungen(ByVal GERAET As Integer) As MyDataset.VWSUPPLIES_AKTUELLDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(4) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAET,Integer) + Dim dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable = New MyDataset.VWSUPPLIES_AKTUELLDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillBySTATUS(ByVal dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable, ByVal STATUS_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(5) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(STATUS_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBySTATUS(ByVal STATUS_ID As Integer) As MyDataset.VWSUPPLIES_AKTUELLDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(5) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(STATUS_ID,Integer) + Dim dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable = New MyDataset.VWSUPPLIES_AKTUELLDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function CmdUpdateOnHold(ByVal GEAENDERTWER As String, ByVal ONHOLD As Boolean, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (GEAENDERTWER Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(GEAENDERTWER,String) + End If + command.Parameters(1).Value = CType(ONHOLD,Boolean) + command.Parameters(2).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWGERAET_ORDERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWGERAET_ORDER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("GERAET_BEZ", "GERAET_BEZ") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("PAGE_COUNT", "PAGE_COUNT") + tableMapping.ColumnMappings.Add("PPM", "PPM") + tableMapping.ColumnMappings.Add("BESTELLUNG", "BESTELLUNG") + tableMapping.ColumnMappings.Add("MANDANT_ID", "MANDANT_ID") + tableMapping.ColumnMappings.Add("MANDANT", "MANDANT") + tableMapping.ColumnMappings.Add("MANUALLY", "MANUALLY") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, GERAET_BEZ, SERIENNR, MARKT, PAGE_COUNT, PPM, BESTELLUNG, MAN"& _ + "DANT_ID, MANDANT, MANUALLY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWORDER_GERAET"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MANDAN"& _ + "T = @MANDANT)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGERAET_ORDERDataTable, ByVal MANDANT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal MANDANT As String) As MyDataset.VWGERAET_ORDERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + Dim dataTable As MyDataset.VWGERAET_ORDERDataTable = New MyDataset.VWGERAET_ORDERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWSUPPLIES_TO_ORDERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWSUPPLIES_TO_ORDER" + tableMapping.ColumnMappings.Add("SUPPLY_ID", "SUPPLY_ID") + tableMapping.ColumnMappings.Add("GERAET_ID", "GERAET_ID") + tableMapping.ColumnMappings.Add("SUPPLY_BEZ", "SUPPLY_BEZ") + tableMapping.ColumnMappings.Add("LEVEL", "LEVEL") + tableMapping.ColumnMappings.Add("SCHWELLENWERT", "SCHWELLENWERT") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("STATUS_ID", "STATUS_ID") + tableMapping.ColumnMappings.Add("STATUS", "STATUS") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("STATUS_WANN", "STATUS_WANN") + tableMapping.ColumnMappings.Add("STATUS_WER", "STATUS_WER") + tableMapping.ColumnMappings.Add("MANUELL", "MANUELL") + tableMapping.ColumnMappings.Add("MANDANT", "MANDANT") + tableMapping.ColumnMappings.Add("FW", "FW") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT SUPPLY_ID, GERAET_ID, SUPPLY_BEZ, LEVEL, SCHWELLENWERT, PARTNUMBER,"& _ + " SERIENNR, STATUS_ID, STATUS, ERFASSTWANN, GEAENDERTWER, STATUS_WANN, STATUS_WER"& _ + ", MANUELL, MANDANT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWORDER_SUPPL"& _ + "IES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MANDANT = @MANDANT)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWSUPPLIES_TO_ORDERDataTable, ByVal MANDANT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal MANDANT As String) As MyDataset.VWSUPPLIES_TO_ORDERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + Dim dataTable As MyDataset.VWSUPPLIES_TO_ORDERDataTable = New MyDataset.VWSUPPLIES_TO_ORDERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBSUPPLIESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBSUPPLIES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("GERAET_ID", "GERAET_ID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("LEVEL", "LEVEL") + tableMapping.ColumnMappings.Add("SCHWELLENWERT", "SCHWELLENWERT") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("STATUS_ID", "STATUS_ID") + tableMapping.ColumnMappings.Add("STATUS_WANN", "STATUS_WANN") + tableMapping.ColumnMappings.Add("STATUS_WER", "STATUS_WER") + tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("TIMESTAMP1", "TIMESTAMP1") + tableMapping.ColumnMappings.Add("MARKER", "MARKER") + tableMapping.ColumnMappings.Add("SUPPLY_DEF_ID", "SUPPLY_DEF_ID") + tableMapping.ColumnMappings.Add("ON_HOLD", "ON_HOLD") + tableMapping.ColumnMappings.Add("OH_DATE", "OH_DATE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBSUPPLIES] WHERE (([GUID] = @Original_GUID) AND ([GERAET_ID] = @Ori"& _ + "ginal_GERAET_ID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([B"& _ + "EZEICHNUNG] = @Original_BEZEICHNUNG)) AND ([LEVEL] = @Original_LEVEL) AND ([SCHW"& _ + "ELLENWERT] = @Original_SCHWELLENWERT) AND ((@IsNull_PARTNUMBER = 1 AND [PARTNUMB"& _ + "ER] IS NULL) OR ([PARTNUMBER] = @Original_PARTNUMBER)) AND ((@IsNull_SERIENNR = "& _ + "1 AND [SERIENNR] IS NULL) OR ([SERIENNR] = @Original_SERIENNR)) AND ([STATUS_ID]"& _ + " = @Original_STATUS_ID) AND ((@IsNull_STATUS_WANN = 1 AND [STATUS_WANN] IS NULL)"& _ + " OR ([STATUS_WANN] = @Original_STATUS_WANN)) AND ((@IsNull_STATUS_WER = 1 AND [S"& _ + "TATUS_WER] IS NULL) OR ([STATUS_WER] = @Original_STATUS_WER)) AND ((@IsNull_BEME"& _ + "RKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND ("& _ + "[ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN)"& _ + " AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] ="& _ + " @Original_GEAENDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWANN) AND (("& _ + "@IsNull_MARKER = 1 AND [MARKER] IS NULL) OR ([MARKER] = @Original_MARKER)) AND ("& _ + "[SUPPLY_DEF_ID] = @Original_SUPPLY_DEF_ID) AND ([ON_HOLD] = @Original_ON_HOLD) A"& _ + "ND ((@IsNull_OH_DATE = 1 AND [OH_DATE] IS NULL) OR ([OH_DATE] = @Original_OH_DAT"& _ + "E)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GERAET_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCHWELLENWERT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCHWELLENWERT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PARTNUMBER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARTNUMBER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERIENNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERIENNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATUS_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STATUS_WANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_WANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATUS_WANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_WANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STATUS_WER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_WER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATUS_WER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_WER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEMERKUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MARKER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MARKER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SUPPLY_DEF_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_DEF_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ON_HOLD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ON_HOLD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OH_DATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OH_DATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OH_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OH_DATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBSUPPLIES] ([GERAET_ID], [BEZEICHNUNG], [LEVEL], [SCHWELLENWERT], ["& _ + "PARTNUMBER], [SERIENNR], [STATUS_ID], [STATUS_WANN], [STATUS_WER], [BEMERKUNG], "& _ + "[ERFASSTWER], [ERFASSTWANN], [GEAENDERTWER], [GEAENDERTWANN], [MARKER], [SUPPLY_"& _ + "DEF_ID], [ON_HOLD], [OH_DATE]) VALUES (@GERAET_ID, @BEZEICHNUNG, @LEVEL, @SCHWEL"& _ + "LENWERT, @PARTNUMBER, @SERIENNR, @STATUS_ID, @STATUS_WANN, @STATUS_WER, @BEMERKU"& _ + "NG, @ERFASSTWER, @ERFASSTWANN, @GEAENDERTWER, @GEAENDERTWANN, @MARKER, @SUPPLY_D"& _ + "EF_ID, @ON_HOLD, @OH_DATE)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCHWELLENWERT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCHWELLENWERT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARTNUMBER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIENNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_WANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_WANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_WER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_WER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_DEF_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_DEF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ON_HOLD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ON_HOLD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OH_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OH_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBSUPPLIES] SET [GERAET_ID] = @GERAET_ID, [BEZEICHNUNG] = @BEZEICHNUNG, ["& _ + "LEVEL] = @LEVEL, [SCHWELLENWERT] = @SCHWELLENWERT, [PARTNUMBER] = @PARTNUMBER, ["& _ + "SERIENNR] = @SERIENNR, [STATUS_ID] = @STATUS_ID, [STATUS_WANN] = @STATUS_WANN, ["& _ + "STATUS_WER] = @STATUS_WER, [BEMERKUNG] = @BEMERKUNG, [ERFASSTWER] = @ERFASSTWER,"& _ + " [ERFASSTWANN] = @ERFASSTWANN, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] ="& _ + " @GEAENDERTWANN, [MARKER] = @MARKER, [SUPPLY_DEF_ID] = @SUPPLY_DEF_ID, [ON_HOLD]"& _ + " = @ON_HOLD, [OH_DATE] = @OH_DATE WHERE (([GUID] = @Original_GUID) AND ([GERAET_"& _ + "ID] = @Original_GERAET_ID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NU"& _ + "LL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ([LEVEL] = @Original_LEVEL) "& _ + "AND ([SCHWELLENWERT] = @Original_SCHWELLENWERT) AND ((@IsNull_PARTNUMBER = 1 AND"& _ + " [PARTNUMBER] IS NULL) OR ([PARTNUMBER] = @Original_PARTNUMBER)) AND ((@IsNull_S"& _ + "ERIENNR = 1 AND [SERIENNR] IS NULL) OR ([SERIENNR] = @Original_SERIENNR)) AND (["& _ + "STATUS_ID] = @Original_STATUS_ID) AND ((@IsNull_STATUS_WANN = 1 AND [STATUS_WANN"& _ + "] IS NULL) OR ([STATUS_WANN] = @Original_STATUS_WANN)) AND ((@IsNull_STATUS_WER "& _ + "= 1 AND [STATUS_WER] IS NULL) OR ([STATUS_WER] = @Original_STATUS_WER)) AND ((@I"& _ + "sNull_BEMERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKU"& _ + "NG)) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ER"& _ + "FASSTWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAEN"& _ + "DERTWER] = @Original_GEAENDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWA"& _ + "NN) AND ((@IsNull_MARKER = 1 AND [MARKER] IS NULL) OR ([MARKER] = @Original_MARK"& _ + "ER)) AND ([SUPPLY_DEF_ID] = @Original_SUPPLY_DEF_ID) AND ([ON_HOLD] = @Original_"& _ + "ON_HOLD) AND ((@IsNull_OH_DATE = 1 AND [OH_DATE] IS NULL) OR ([OH_DATE] = @Origi"& _ + "nal_OH_DATE)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCHWELLENWERT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCHWELLENWERT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARTNUMBER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIENNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_WANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_WANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATUS_WER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_WER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_DEF_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_DEF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ON_HOLD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ON_HOLD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OH_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OH_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GERAET_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LEVEL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCHWELLENWERT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCHWELLENWERT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PARTNUMBER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARTNUMBER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERIENNR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERIENNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATUS_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STATUS_WANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_WANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATUS_WANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_WANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STATUS_WER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_WER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STATUS_WER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATUS_WER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEMERKUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MARKER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MARKER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SUPPLY_DEF_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_DEF_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ON_HOLD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ON_HOLD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_OH_DATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OH_DATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OH_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OH_DATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(4) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBSUPPLIES.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLIES" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT MARKER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLIES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE GUID = @SUPPLYID" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLYID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "UPDATE TBSUPPLIES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET STATUS_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT STATUS_BESTELLT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM "& _ + " TBKONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (GUID = 1)), GE"& _ + "AENDERTWER = @WER, MARKER = @Marker"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @SUPPLY_ID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Marker", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "UPDATE TBSUPPLIES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEAENDERTWER = @GEAENDERTWER, ON_HOLD"& _ + " = @ONHOLD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ONHOLD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ON_HOLD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "UPDATE TBSUPPLIES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SCHWELLENWERT = @SCHWELLENWERT, GEAEN"& _ + "DERTWER = @GEAENDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCHWELLENWERT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCHWELLENWERT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBSUPPLIESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBSUPPLIESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBSUPPLIESDataTable = New MyDataset.TBSUPPLIESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBSUPPLIESDataTable) 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, "TBSUPPLIES") + 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, _ + ByVal Original_GERAET_ID As Integer, _ + ByVal Original_BEZEICHNUNG As String, _ + ByVal Original_LEVEL As Integer, _ + ByVal Original_SCHWELLENWERT As Integer, _ + ByVal Original_PARTNUMBER As String, _ + ByVal Original_SERIENNR As String, _ + ByVal Original_STATUS_ID As Integer, _ + ByVal Original_STATUS_WANN As Global.System.Nullable(Of Date), _ + ByVal Original_STATUS_WER As String, _ + ByVal Original_BEMERKUNG As String, _ + ByVal Original_ERFASSTWER As String, _ + ByVal Original_ERFASSTWANN As Date, _ + ByVal Original_GEAENDERTWER As String, _ + ByVal Original_GEAENDERTWANN As Date, _ + ByVal Original_MARKER As String, _ + ByVal Original_SUPPLY_DEF_ID As Integer, _ + ByVal Original_ON_HOLD As Boolean, _ + ByVal Original_OH_DATE As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_GERAET_ID,Integer) + If (Original_BEZEICHNUNG Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_BEZEICHNUNG,String) + End If + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_LEVEL,Integer) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_SCHWELLENWERT,Integer) + If (Original_PARTNUMBER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_PARTNUMBER,String) + End If + If (Original_SERIENNR Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_SERIENNR,String) + End If + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_STATUS_ID,Integer) + If (Original_STATUS_WANN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_STATUS_WANN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (Original_STATUS_WER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_STATUS_WER,String) + End If + If (Original_BEMERKUNG Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_BEMERKUNG,String) + End If + If (Original_ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERFASSTWER") + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ERFASSTWER,String) + End If + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_ERFASSTWANN,Date) + If (Original_GEAENDERTWER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_GEAENDERTWER,String) + End If + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_GEAENDERTWANN,Date) + If (Original_MARKER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_MARKER,String) + End If + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_SUPPLY_DEF_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_ON_HOLD,Boolean) + If (Original_OH_DATE.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_OH_DATE.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal GERAET_ID As Integer, _ + ByVal BEZEICHNUNG As String, _ + ByVal LEVEL As Integer, _ + ByVal SCHWELLENWERT As Integer, _ + ByVal PARTNUMBER As String, _ + ByVal SERIENNR As String, _ + ByVal STATUS_ID As Integer, _ + ByVal STATUS_WANN As Global.System.Nullable(Of Date), _ + ByVal STATUS_WER As String, _ + ByVal BEMERKUNG As String, _ + ByVal ERFASSTWER As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal MARKER As String, _ + ByVal SUPPLY_DEF_ID As Integer, _ + ByVal ON_HOLD As Boolean, _ + ByVal OH_DATE As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(GERAET_ID,Integer) + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(BEZEICHNUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(LEVEL,Integer) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(SCHWELLENWERT,Integer) + If (PARTNUMBER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(PARTNUMBER,String) + End If + If (SERIENNR Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SERIENNR,String) + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(STATUS_ID,Integer) + If (STATUS_WANN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(STATUS_WANN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (STATUS_WER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(STATUS_WER,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(BEMERKUNG,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(ERFASSTWER,String) + End If + Me.Adapter.InsertCommand.Parameters(11).Value = CType(ERFASSTWANN,Date) + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(GEAENDERTWER,String) + End If + Me.Adapter.InsertCommand.Parameters(13).Value = CType(GEAENDERTWANN,Date) + If (MARKER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(MARKER,String) + End If + Me.Adapter.InsertCommand.Parameters(15).Value = CType(SUPPLY_DEF_ID,Integer) + Me.Adapter.InsertCommand.Parameters(16).Value = CType(ON_HOLD,Boolean) + If (OH_DATE.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(17).Value = CType(OH_DATE.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal GERAET_ID As Integer, _ + ByVal BEZEICHNUNG As String, _ + ByVal LEVEL As Integer, _ + ByVal SCHWELLENWERT As Integer, _ + ByVal PARTNUMBER As String, _ + ByVal SERIENNR As String, _ + ByVal STATUS_ID As Integer, _ + ByVal STATUS_WANN As Global.System.Nullable(Of Date), _ + ByVal STATUS_WER As String, _ + ByVal BEMERKUNG As String, _ + ByVal ERFASSTWER As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal MARKER As String, _ + ByVal SUPPLY_DEF_ID As Integer, _ + ByVal ON_HOLD As Boolean, _ + ByVal OH_DATE As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_GERAET_ID As Integer, _ + ByVal Original_BEZEICHNUNG As String, _ + ByVal Original_LEVEL As Integer, _ + ByVal Original_SCHWELLENWERT As Integer, _ + ByVal Original_PARTNUMBER As String, _ + ByVal Original_SERIENNR As String, _ + ByVal Original_STATUS_ID As Integer, _ + ByVal Original_STATUS_WANN As Global.System.Nullable(Of Date), _ + ByVal Original_STATUS_WER As String, _ + ByVal Original_BEMERKUNG As String, _ + ByVal Original_ERFASSTWER As String, _ + ByVal Original_ERFASSTWANN As Date, _ + ByVal Original_GEAENDERTWER As String, _ + ByVal Original_GEAENDERTWANN As Date, _ + ByVal Original_MARKER As String, _ + ByVal Original_SUPPLY_DEF_ID As Integer, _ + ByVal Original_ON_HOLD As Boolean, _ + ByVal Original_OH_DATE As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GERAET_ID,Integer) + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BEZEICHNUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LEVEL,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SCHWELLENWERT,Integer) + If (PARTNUMBER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(PARTNUMBER,String) + End If + If (SERIENNR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SERIENNR,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(STATUS_ID,Integer) + If (STATUS_WANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(STATUS_WANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (STATUS_WER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(STATUS_WER,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(BEMERKUNG,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ERFASSTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ERFASSTWANN,Date) + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(GEAENDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GEAENDERTWANN,Date) + If (MARKER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(MARKER,String) + End If + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SUPPLY_DEF_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ON_HOLD,Boolean) + If (OH_DATE.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(OH_DATE.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_GERAET_ID,Integer) + If (Original_BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_BEZEICHNUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_LEVEL,Integer) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_SCHWELLENWERT,Integer) + If (Original_PARTNUMBER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_PARTNUMBER,String) + End If + If (Original_SERIENNR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_SERIENNR,String) + End If + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_STATUS_ID,Integer) + If (Original_STATUS_WANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_STATUS_WANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + End If + If (Original_STATUS_WER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_STATUS_WER,String) + End If + If (Original_BEMERKUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_BEMERKUNG,String) + End If + If (Original_ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERFASSTWER") + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_ERFASSTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_ERFASSTWANN,Date) + If (Original_GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_GEAENDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_GEAENDERTWANN,Date) + If (Original_MARKER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_MARKER,String) + End If + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_SUPPLY_DEF_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_ON_HOLD,Boolean) + If (Original_OH_DATE.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_OH_DATE.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function CMDGetMarker(ByVal SUPPLYID As Integer) As Object + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(SUPPLYID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,Object) + End If + End Function + + _ + Public Overloads Overridable Function cmdUpdateBestelltManuell(ByVal WER As String, ByVal Marker As String, ByVal SUPPLY_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (WER Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(WER,String) + End If + If (Marker Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(Marker,String) + End If + command.Parameters(2).Value = CType(SUPPLY_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function CmdUpdateOnHold(ByVal GEAENDERTWER As String, ByVal ONHOLD As Boolean, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + If (GEAENDERTWER Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(GEAENDERTWER,String) + End If + command.Parameters(1).Value = CType(ONHOLD,Boolean) + command.Parameters(2).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdUpdateSchwellenwert(ByVal SCHWELLENWERT As Integer, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + command.Parameters(0).Value = CType(SCHWELLENWERT,Integer) + If (GEAENDERTWER Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(GEAENDERTWER,String) + End If + command.Parameters(2).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_STATUS4TableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_STATUS4" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSTATUS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_STATUS4DataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBWH_STATUS4DataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBWH_STATUS4DataTable = New MyDataset.TBWH_STATUS4DataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_STATUS5TableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_STATUS5" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSTATUS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_STATUS5DataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBWH_STATUS5DataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBWH_STATUS5DataTable = New MyDataset.TBWH_STATUS5DataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBSUPPLY_BESTELLUNGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBSUPPLY_BESTELLUNG" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("SUPPLY_BEZEICHNUNG", "SUPPLY_BEZEICHNUNG") + tableMapping.ColumnMappings.Add("MENGE", "MENGE") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("MANUELL", "MANUELL") + tableMapping.ColumnMappings.Add("BESTELLT_WER", "BESTELLT_WER") + tableMapping.ColumnMappings.Add("BESTELLT_WANN", "BESTELLT_WANN") + tableMapping.ColumnMappings.Add("GERAET", "GERAET") + tableMapping.ColumnMappings.Add("SERIEN_NR", "SERIEN_NR") + tableMapping.ColumnMappings.Add("BESTELLNR", "BESTELLNR") + tableMapping.ColumnMappings.Add("GERAET_ID", "GERAET_ID") + tableMapping.ColumnMappings.Add("SUPPLY_ID", "SUPPLY_ID") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SUPPLY_BEZEICHNUNG, ME"& _ + "NGE, MARKT, MANUELL, BESTELLT_WER, GERAET, SERIEN_NR, BESTELLNR, GERAET_ID, SUPP"& _ + "LY_ID, BESTELLT_WANN)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@SUPPLY_BEZEICHNUNG,@MENGE,@MARKT,@MANUELL"& _ + ",@BESTELLT_WER,@GERAET,@SERIEN_NR,@BESTELLNR,@GERAET_ID,@SUPPLY_ID,@BESTELLT_WAN"& _ + "N)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENGE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MENGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANUELL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MANUELL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLT_WER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIEN_NR", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLNR", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLT_WANN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SUPPLY_BEZEICHNUNG = @SUPPLY"& _ + "_BEZEICHNUNG, MENGE = @MENGE, MARKT = @MARKT, BESTELLNR = @BESTELLNR, SERIEN_NR "& _ + "= @SERIEN_NR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" GERAET = @GERAET, GERAET_ID = @GERAET_I"& _ + "D, SUPPLY_ID = @SUPPLY_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENGE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MENGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLNR", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIEN_NR", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(8) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BEST"& _ + "ELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, GERAET_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" S"& _ + "UPPLY_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CONVERT(VARCHAR(10)"& _ + ", BESTELLT_WANN, 104) = CONVERT(VARCHAR(10), GETDATE(), 104))" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT ISNULL(MAX(GUID), 0) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (BESTELLNR IS NULL) AND (SUPPLY_BEZEICHNUNG = @SUPPLY_BEZEICHNUNG)"& _ + " AND (MARKT = @MARKT)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "INSERT INTO TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SUPPLY_BEZEICHNUNG, ME"& _ + "NGE, MARKT, MANUELL, BESTELLT_WER, GERAET, SERIEN_NR, GERAET_ID, SUPPLY_ID, BEST"& _ + "ELLT_WANN)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@SUPPLY_BEZEICHNUNG,@MENGE,@MARKT, 1,@BESTELLT_WER,@G"& _ + "ERAET,@SERIEN_NR,@GERAET_ID,@SUPPLY_ID, GETDATE())" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENGE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MENGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLT_WER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIEN_NR", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "INSERT INTO TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SUPPLY_BEZEICHNUNG, ME"& _ + "NGE, MARKT, MANUELL, MANUELL_BESTELLT, BESTELLT_WER, GERAET, SERIEN_NR, BESTELLN"& _ + "R, GERAET_ID, SUPPLY_ID, BESTELLT_WANN, MARKER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@SUPPLY_BEZEICHN"& _ + "UNG,@MENGE,@MARKT, 1, 1,@BESTELLT_WER,@GERAET,@SERIEN_NR,@BESTELLNR,@GERAET_ID,@"& _ + "SUPPLY_ID,@DATUM,@MARKER)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENGE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MENGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLT_WER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIEN_NR", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLNR", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATUM", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "UPDATE TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET MANUELL_BESTELLT = 1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GERAET_ID = @Geraete_ID) AND (MANUELL_BESTELLT = 0) AND (MANUELL = 1)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Geraete_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "UPDATE TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BESTELLNR = @BESTELLNR, BEST"& _ + "ELLT_WER = @BESTELLT_WER, FILE_ORDER_CONFIRM = @file, MENGE = @Menge"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLNR", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLT_WER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@file", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_ORDER_CONFIRM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Menge", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MENGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "UPDATE TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BESTELLNR = @BESTELLNR, FILE"& _ + "_ORDER_CONFIRM = @File"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLNR", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@File", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_ORDER_CONFIRM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(7).Connection = Me.Connection + Me._commandCollection(7).CommandText = "SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BEST"& _ + "ELLT_WANN, GERAET, SERIEN_NR, BESTELLNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ + "ERE (CONVERT(VARCHAR(10), BESTELLT_WANN, 104) = CONVERT(VARCHAR(10), GETD"& _ + "ATE(), 104)) AND (MARKT = @MARKT)" + Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(8).Connection = Me.Connection + Me._commandCollection(8).CommandText = "SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BEST"& _ + "ELLT_WANN, GERAET, SERIEN_NR, BESTELLNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ + "ERE (MARKT = @MARKT) AND (MANUELL = 1) AND (CONVERT(DATE, BESTELLT_WANN) "& _ + "= CONVERT(DATE, @date))" + Me._commandCollection(8).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@date", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBSUPPLY_BESTELLUNGDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBSUPPLY_BESTELLUNGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBSUPPLY_BESTELLUNGDataTable = New MyDataset.TBSUPPLY_BESTELLUNGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByMARKT(ByVal dataTable As MyDataset.TBSUPPLY_BESTELLUNGDataTable, ByVal MARKT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(7) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByMARKT(ByVal MARKT As String) As MyDataset.TBSUPPLY_BESTELLUNGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(7) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + Dim dataTable As MyDataset.TBSUPPLY_BESTELLUNGDataTable = New MyDataset.TBSUPPLY_BESTELLUNGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByMarktManuell(ByVal dataTable As MyDataset.TBSUPPLY_BESTELLUNGDataTable, ByVal MARKT As String, ByVal _date As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(8) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + If (_date Is Nothing) Then + Throw New Global.System.ArgumentNullException("_date") + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(_date,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByMarktManuell(ByVal MARKT As String, ByVal _date As String) As MyDataset.TBSUPPLY_BESTELLUNGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(8) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + If (_date Is Nothing) Then + Throw New Global.System.ArgumentNullException("_date") + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(_date,String) + End If + Dim dataTable As MyDataset.TBSUPPLY_BESTELLUNGDataTable = New MyDataset.TBSUPPLY_BESTELLUNGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBSUPPLY_BESTELLUNGDataTable) 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, "TBSUPPLY_BESTELLUNG") + 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 + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal GERAET_ID As Global.System.Nullable(Of Integer), ByVal SUPPLY_ID As Global.System.Nullable(Of Integer), ByVal BESTELLT_WANN As Date) As Integer + If (SUPPLY_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("SUPPLY_BEZEICHNUNG") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(SUPPLY_BEZEICHNUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(MENGE,Integer) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(MARKT,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MANUELL,Boolean) + If (BESTELLT_WER Is Nothing) Then + Throw New Global.System.ArgumentNullException("BESTELLT_WER") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESTELLT_WER,String) + End If + If (GERAET Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(GERAET,String) + End If + If (SERIEN_NR Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SERIEN_NR,String) + End If + If (BESTELLNR Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(BESTELLNR,String) + End If + If (GERAET_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(8).Value = CType(GERAET_ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (SUPPLY_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(SUPPLY_ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(10).Value = CType(BESTELLT_WANN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal BESTELLNR As String, ByVal SERIEN_NR As String, ByVal GERAET As String, ByVal GERAET_ID As Global.System.Nullable(Of Integer), ByVal SUPPLY_ID As Global.System.Nullable(Of Integer), ByVal Original_GUID As Integer) As Integer + If (SUPPLY_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("SUPPLY_BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SUPPLY_BEZEICHNUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(MENGE,Integer) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(MARKT,String) + End If + If (BESTELLNR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(BESTELLNR,String) + End If + If (SERIEN_NR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SERIEN_NR,String) + End If + If (GERAET Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GERAET,String) + End If + If (GERAET_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GERAET_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (SUPPLY_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SUPPLY_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function cmdGetOrderID(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MARKT As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (SUPPLY_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("SUPPLY_BEZEICHNUNG") + Else + command.Parameters(0).Value = CType(SUPPLY_BEZEICHNUNG,String) + End If + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + command.Parameters(1).Value = CType(MARKT,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + + _ + Public Overloads Overridable Function CmdInsert_Manuell_Serial(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal BESTELLT_WER As String, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal GERAET_ID As Global.System.Nullable(Of Integer), ByVal SUPPLY_ID As Global.System.Nullable(Of Integer)) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (SUPPLY_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("SUPPLY_BEZEICHNUNG") + Else + command.Parameters(0).Value = CType(SUPPLY_BEZEICHNUNG,String) + End If + command.Parameters(1).Value = CType(MENGE,Integer) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + command.Parameters(2).Value = CType(MARKT,String) + End If + If (BESTELLT_WER Is Nothing) Then + Throw New Global.System.ArgumentNullException("BESTELLT_WER") + Else + command.Parameters(3).Value = CType(BESTELLT_WER,String) + End If + If (GERAET Is Nothing) Then + command.Parameters(4).Value = Global.System.DBNull.Value + Else + command.Parameters(4).Value = CType(GERAET,String) + End If + If (SERIEN_NR Is Nothing) Then + command.Parameters(5).Value = Global.System.DBNull.Value + Else + command.Parameters(5).Value = CType(SERIEN_NR,String) + End If + If (GERAET_ID.HasValue = true) Then + command.Parameters(6).Value = CType(GERAET_ID.Value,Integer) + Else + command.Parameters(6).Value = Global.System.DBNull.Value + End If + If (SUPPLY_ID.HasValue = true) Then + command.Parameters(7).Value = CType(SUPPLY_ID.Value,Integer) + Else + command.Parameters(7).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdInsertManuell_MBestellnr(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal BESTELLT_WER As String, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal GERAET_ID As Global.System.Nullable(Of Integer), ByVal SUPPLY_ID As Global.System.Nullable(Of Integer), ByVal DATUM As Date, ByVal MARKER As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + If (SUPPLY_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("SUPPLY_BEZEICHNUNG") + Else + command.Parameters(0).Value = CType(SUPPLY_BEZEICHNUNG,String) + End If + command.Parameters(1).Value = CType(MENGE,Integer) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + command.Parameters(2).Value = CType(MARKT,String) + End If + If (BESTELLT_WER Is Nothing) Then + Throw New Global.System.ArgumentNullException("BESTELLT_WER") + Else + command.Parameters(3).Value = CType(BESTELLT_WER,String) + End If + If (GERAET Is Nothing) Then + command.Parameters(4).Value = Global.System.DBNull.Value + Else + command.Parameters(4).Value = CType(GERAET,String) + End If + If (SERIEN_NR Is Nothing) Then + command.Parameters(5).Value = Global.System.DBNull.Value + Else + command.Parameters(5).Value = CType(SERIEN_NR,String) + End If + If (BESTELLNR Is Nothing) Then + command.Parameters(6).Value = Global.System.DBNull.Value + Else + command.Parameters(6).Value = CType(BESTELLNR,String) + End If + If (GERAET_ID.HasValue = true) Then + command.Parameters(7).Value = CType(GERAET_ID.Value,Integer) + Else + command.Parameters(7).Value = Global.System.DBNull.Value + End If + If (SUPPLY_ID.HasValue = true) Then + command.Parameters(8).Value = CType(SUPPLY_ID.Value,Integer) + Else + command.Parameters(8).Value = Global.System.DBNull.Value + End If + command.Parameters(9).Value = CType(DATUM,Date) + If (MARKER Is Nothing) Then + command.Parameters(10).Value = Global.System.DBNull.Value + Else + command.Parameters(10).Value = CType(MARKER,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdSET_MANUELL_ALS_BESTELLT(ByVal Geraete_ID As Global.System.Nullable(Of Integer)) As Object + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + If (Geraete_ID.HasValue = true) Then + command.Parameters(0).Value = CType(Geraete_ID.Value,Integer) + Else + command.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,Object) + End If + End Function + + _ + Public Overloads Overridable Function cmdUpdate_Bestellnr(ByVal BESTELLNR As String, ByVal BESTELLT_WER As String, ByVal file As String, ByVal Menge As Integer, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) + If (BESTELLNR Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(BESTELLNR,String) + End If + If (BESTELLT_WER Is Nothing) Then + Throw New Global.System.ArgumentNullException("BESTELLT_WER") + Else + command.Parameters(1).Value = CType(BESTELLT_WER,String) + End If + If (file Is Nothing) Then + command.Parameters(2).Value = Global.System.DBNull.Value + Else + command.Parameters(2).Value = CType(file,String) + End If + command.Parameters(3).Value = CType(Menge,Integer) + command.Parameters(4).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdUpdateVAS(ByVal BESTELLNR As String, ByVal File As String, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) + If (BESTELLNR Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(BESTELLNR,String) + End If + If (File Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(File,String) + End If + command.Parameters(2).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_SUPPLIES_MARKTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_SUPPLIES_MARKT" + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("Supply", "Supply") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBGERAET.BEZEICHNUNG + ' - ' + TBSUPPLIES.BEZEICHNUNG AS BEZEICHNUN"& _ + "G, TBSUPPLIES.BEZEICHNUNG AS Supply, TBSUPPLIES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLIES"& _ + " INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET ON TBSUPPLIES.GERAET_ID = TBGERAE"& _ + "T.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBSUPPLIES.STATUS_ID NOT IN (6, 7))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY TBSUPPLIES.B"& _ + "EZEICHNUNG, TBGERAET.MARKT, TBGERAET.BEZEICHNUNG, TBSUPPLIES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"HAVING "& _ + " (REPLACE(TBGERAET.MARKT, ' ', '') = REPLACE(@MARKT, ' ', ''))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICH"& _ + "NUNG" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT TBGERAET.BEZEICHNUNG + ' - ' + TBSUPPLIES.BEZEICHNUNG AS BEZEICHNUN"& _ + "G, TBSUPPLIES.BEZEICHNUNG AS Supply, TBSUPPLIES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLIES"& _ + " INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET ON TBSUPPLIES.GERAET_ID = TBGERAE"& _ + "T.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBGERAET.GUID = @GeraeteID) AND (TBSUPPLIES.STATUS_ID NOT "& _ + "IN (6, 7))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GeraeteID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_SUPPLIES_MARKTDataTable, ByVal MARKT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal MARKT As String) As MyDataset.TBWH_SUPPLIES_MARKTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + Dim dataTable As MyDataset.TBWH_SUPPLIES_MARKTDataTable = New MyDataset.TBWH_SUPPLIES_MARKTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByGeraet(ByVal dataTable As MyDataset.TBWH_SUPPLIES_MARKTDataTable, ByVal GeraeteID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GeraeteID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByGeraet(ByVal GeraeteID As Integer) As MyDataset.TBWH_SUPPLIES_MARKTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GeraeteID,Integer) + Dim dataTable As MyDataset.TBWH_SUPPLIES_MARKTDataTable = New MyDataset.TBWH_SUPPLIES_MARKTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWSUPPLY_BESTELLUNG_FRONTENDTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWSUPPLY_BESTELLUNG_FRONTEND" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("SUPPLY_BEZEICHNUNG", "SUPPLY_BEZEICHNUNG") + tableMapping.ColumnMappings.Add("MENGE", "MENGE") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("MANUELL", "MANUELL") + tableMapping.ColumnMappings.Add("BESTELLT_WER", "BESTELLT_WER") + tableMapping.ColumnMappings.Add("BESTELLT_WANN", "BESTELLT_WANN") + tableMapping.ColumnMappings.Add("GERAET", "GERAET") + tableMapping.ColumnMappings.Add("SERIEN_NR", "SERIEN_NR") + tableMapping.ColumnMappings.Add("BESTELLNR", "BESTELLNR") + tableMapping.ColumnMappings.Add("FILE_ORDER_CONFIRM", "FILE_ORDER_CONFIRM") + tableMapping.ColumnMappings.Add("MENGE_ORIGIN", "MENGE_ORIGIN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBSUPPLY_BESTELLUNG] ([SUPPLY_BEZEICHNUNG], [MENGE], [MARKT], [MANUE"& _ + "LL], [BESTELLT_WER], [BESTELLT_WANN], [GERAET], [SERIEN_NR], [BESTELLNR]) VALUES"& _ + " (@SUPPLY_BEZEICHNUNG, @MENGE, @MARKT, @MANUELL, @BESTELLT_WER, @BESTELLT_WANN, "& _ + "@GERAET, @SERIEN_NR, @BESTELLNR);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT"& _ + ", MANUELL, BESTELLT_WER, BESTELLT_WANN, TIMESTAMP1, GERAET, SERIEN_NR, BESTELLNR"& _ + " FROM TBSUPPLY_BESTELLUNG WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENGE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANUELL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MANUELL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLT_WER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLT_WANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIEN_NR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBSUPPLY_BESTELLUNG] SET [SUPPLY_BEZEICHNUNG] = @SUPPLY_BEZEICHNUNG, [MEN"& _ + "GE] = @MENGE, [MARKT] = @MARKT, [MANUELL] = @MANUELL, [BESTELLT_WER] = @BESTELLT"& _ + "_WER, [BESTELLT_WANN] = @BESTELLT_WANN, [GERAET] = @GERAET, [SERIEN_NR] = @SERIE"& _ + "N_NR, [BESTELLNR] = @BESTELLNR WHERE (([GUID] = @Original_GUID) AND ([TIMESTAMP1"& _ + "] = @Original_TIMESTAMP1));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANU"& _ + "ELL, BESTELLT_WER, BESTELLT_WANN, TIMESTAMP1, GERAET, SERIEN_NR, BESTELLNR FROM "& _ + "TBSUPPLY_BESTELLUNG WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENGE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANUELL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MANUELL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLT_WER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLT_WANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIEN_NR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIMESTAMP1", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIMESTAMP1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(8) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BEST"& _ + "ELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM, MENGE_ORIGIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " VWSUPPLY_BESTELLUNG_FRONTEND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MANUELL = 0) AND (REPLACE"& _ + "(MARKT, ' ', '') = REPLACE(@Markt, ' ', '')) OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MANUE"& _ + "LL = 1) AND (REPLACE(MARKT, ' ', '') = REPLACE(@Markt, ' ', ''))" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Markt", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT ISNULL(MAX(GUID), 0) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (BESTELLNR IS NULL) AND (SUPPLY_BEZEICHNUNG = @SUPPLY_BEZEICHNUNG)"& _ + " AND (REPLACE(MARKT,' ','') = REPLACE(@MARKT,' ','')) AND (SERIEN_NR = @SERIENNR"& _ + ") " + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIENNR", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT ISNULL(MAX(GUID), 0) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (SUPPLY_ID = @SUPPLY_ID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "UPDATE TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BESTELLNR = @BESTELLNR, BEST"& _ + "ELLT_WER = @BESTELLT_WER, MENGE = @Menge"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "& _ + " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLNR", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLT_WER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Menge", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MENGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "UPDATE TBSUPPLY_BESTELLUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BESTELLNR = @BESTELLNR, FILE"& _ + "_ORDER_CONFIRM = @file"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLNR", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@file", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_ORDER_CONFIRM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BEST"& _ + "ELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWS"& _ + "UPPLY_BESTELLUNG_FRONTEND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (BESTELLT_WANN BETWEEN @D_von AND @D_bis"& _ + ") AND (REPLACE(MARKT, ' ', '') = REPLACE(@MARKT, ' ', '')) OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (BESTELLT_WANN BETWEEN @D_von AND @D_bis) AND (REPLACE(MARKT, ' ', '') ="& _ + " REPLACE(@MARKT, ' ', ''))" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@D_von", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@D_bis", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "SELECT BESTELLNR, BESTELLT_WANN, BESTELLT_WER, GERAET, GUID, MANUELL, MARK"& _ + "T, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, FILE_ORDER_CONFIRM, NAME AS MANDANT, ME"& _ + "NGE_ORIGIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSUPPLY_BESTELLUNG_FRONTEND AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (YEA"& _ + "R(BESTELLT_WANN) = YEAR(GETDATE())) AND (NAME = @MANDANT)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(7).Connection = Me.Connection + Me._commandCollection(7).CommandText = "SELECT BESTELLNR, BESTELLT_WANN, BESTELLT_WER, GERAET, GUID, MANUELL, MARK"& _ + "T, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, FILE_ORDER_CONFIRM, NAME AS MANDANT, ME"& _ + "NGE_ORIGIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSUPPLY_BESTELLUNG_FRONTEND AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (NAM"& _ + "E = @MANDANT) AND (BESTELLT_WANN BETWEEN @D_von AND @D_bis)" + Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@D_von", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@D_bis", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(8).Connection = Me.Connection + Me._commandCollection(8).CommandText = "SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BEST"& _ + "ELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM, MENGE_ORIGIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " VWSUPPLY_BESTELLUNG_FRONTEND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MANUELL = 1) AND (REPLACE"& _ + "(MARKT, ' ', '') = REPLACE(@MARKT, ' ', ''))" + Me._commandCollection(8).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill_ByMarkt(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable, ByVal Markt As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Markt Is Nothing) Then + Throw New Global.System.ArgumentNullException("Markt") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Markt,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData_ByMarkt(ByVal Markt As String) As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Markt Is Nothing) Then + Throw New Global.System.ArgumentNullException("Markt") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Markt,String) + End If + Dim dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable = New MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillBy_DatumMArkt(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable, ByVal D_von As Date, ByVal D_bis As Date, ByVal MARKT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(5) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(D_von,Date) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(D_bis,Date) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(2).Value = CType(MARKT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy_DatumMarkt(ByVal D_von As Date, ByVal D_bis As Date, ByVal MARKT As String) As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(5) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(D_von,Date) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(D_bis,Date) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(2).Value = CType(MARKT,String) + End If + Dim dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable = New MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByall(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable, ByVal MANDANT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(6) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByall(ByVal MANDANT As String) As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(6) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + Dim dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable = New MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByDatum(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable, ByVal MANDANT As String, ByVal D_von As Date, ByVal D_bis As Date) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(7) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(D_von,Date) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(D_bis,Date) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByDatum(ByVal MANDANT As String, ByVal D_von As Date, ByVal D_bis As Date) As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(7) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(D_von,Date) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(D_bis,Date) + Dim dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable = New MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByManuellMArkt(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable, ByVal MARKT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(8) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByManuellMArkt(ByVal MARKT As String) As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(8) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + Dim dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable = New MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable) 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, "VWSUPPLY_BESTELLUNG_FRONTEND") + 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 + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Date, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String) As Integer + If (SUPPLY_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("SUPPLY_BEZEICHNUNG") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(SUPPLY_BEZEICHNUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(MENGE,Integer) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(MARKT,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MANUELL,Boolean) + If (BESTELLT_WER Is Nothing) Then + Throw New Global.System.ArgumentNullException("BESTELLT_WER") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESTELLT_WER,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(BESTELLT_WANN,Date) + If (GERAET Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(GERAET,String) + End If + If (SERIEN_NR Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(SERIEN_NR,String) + End If + If (BESTELLNR Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(BESTELLNR,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Date, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal Original_GUID As Integer, ByVal Original_TIMESTAMP1() As Byte, ByVal GUID As Integer) As Integer + If (SUPPLY_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("SUPPLY_BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SUPPLY_BEZEICHNUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(MENGE,Integer) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(MARKT,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MANUELL,Boolean) + If (BESTELLT_WER Is Nothing) Then + Throw New Global.System.ArgumentNullException("BESTELLT_WER") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESTELLT_WER,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(BESTELLT_WANN,Date) + If (GERAET Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GERAET,String) + End If + If (SERIEN_NR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SERIEN_NR,String) + End If + If (BESTELLNR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(BESTELLNR,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + If (Original_TIMESTAMP1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TIMESTAMP1") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_TIMESTAMP1,Byte()) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Date, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal Original_GUID As Integer, ByVal Original_TIMESTAMP1() As Byte) As Integer + Return Me.Update(SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, Original_GUID, Original_TIMESTAMP1, Original_GUID) + End Function + + _ + Public Overloads Overridable Function cmdGetID_ORDER(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MARKT As String, ByVal SERIENNR As String) As Object + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (SUPPLY_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("SUPPLY_BEZEICHNUNG") + Else + command.Parameters(0).Value = CType(SUPPLY_BEZEICHNUNG,String) + End If + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + command.Parameters(1).Value = CType(MARKT,String) + End If + If (SERIENNR Is Nothing) Then + command.Parameters(2).Value = Global.System.DBNull.Value + Else + command.Parameters(2).Value = CType(SERIENNR,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,Object) + End If + End Function + + _ + Public Overloads Overridable Function cmdgetID_ORDER_SUPPLYID(ByVal SUPPLY_ID As Global.System.Nullable(Of Integer)) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (SUPPLY_ID.HasValue = true) Then + command.Parameters(0).Value = CType(SUPPLY_ID.Value,Integer) + Else + command.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + + _ + Public Overloads Overridable Function cmdUpdate_BestNr(ByVal BESTELLNR As String, ByVal BESTELLT_WER As String, ByVal Menge As Integer, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + If (BESTELLNR Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(BESTELLNR,String) + End If + If (BESTELLT_WER Is Nothing) Then + Throw New Global.System.ArgumentNullException("BESTELLT_WER") + Else + command.Parameters(1).Value = CType(BESTELLT_WER,String) + End If + command.Parameters(2).Value = CType(Menge,Integer) + command.Parameters(3).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdUpdateVAS(ByVal BESTELLNR As String, ByVal file As String, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + If (BESTELLNR Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(BESTELLNR,String) + End If + If (file Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(file,String) + End If + command.Parameters(2).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBGERAETByMarktTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBGERAETByMarkt" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("DATE_INITIAL", "DATE_INITIAL") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBGERAET] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZEICHNUNG"& _ + " = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND "& _ + "([MARKT] = @Original_MARKT) AND ([SERIENNR] = @Original_SERIENNR) AND ([DATE_INI"& _ + "TIAL] = @Original_DATE_INITIAL))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERIENNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATE_INITIAL", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_INITIAL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBGERAET] SET [BEZEICHNUNG] = @BEZEICHNUNG, [MARKT] = @MARKT, [SERIENNR] "& _ + "= @SERIENNR, [DATE_INITIAL] = @DATE_INITIAL WHERE (([GUID] = @Original_GUID) AND"& _ + " ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Origi"& _ + "nal_BEZEICHNUNG)) AND ([MARKT] = @Original_MARKT) AND ([SERIENNR] = @Original_SE"& _ + "RIENNR) AND ([DATE_INITIAL] = @Original_DATE_INITIAL));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUN"& _ + "G, MARKT, SERIENNR, DATE_INITIAL FROM TBGERAET WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIENNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_INITIAL", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_INITIAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERIENNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATE_INITIAL", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_INITIAL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, MARKT, SERIENNR, DATE_INITIAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _ + "BGERAET"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MARKT = @MARKT)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT TBGERAETE_VERFOLGUNG.GERAETE_ID AS GUID, TBGERAETE_VERFOLGUNG.BEZEI"& _ + "CHNUNG, TBGERAETE_VERFOLGUNG.MARKT, TBGERAET.SERIENNR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAET.DATE_INITIAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGERAET INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAETE_VERFOLGUNG ON TBGERAET.GUID = TBGERAETE_VERFOLGUNG.GERAETE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (CONVERT(DATETIME, TBGERAETE_VERFOLGUNG.MELDEDATUM, 104) BETWEEN @d"& _ + "atevon AND @datebis)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY TBGERAETE_VERFOLGUNG.GERAETE_ID, TBGERAETE_VERFOL"& _ + "GUNG.BEZEICHNUNG, TBGERAETE_VERFOLGUNG.MARKT, TBGERAET.SERIENNR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAET.DATE_INITIAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBGERAETE_VERFOLGUNG.MARKT, TBGERAET"& _ + "E_VERFOLGUNG.BEZEICHNUNG" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@datevon", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@datebis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT GUID, BEZEICHNUNG, MARKT, SERIENNR, DATE_INITIAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _ + "BGERAET"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @G_ID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@G_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "SELECT TBGERAETE_VERFOLGUNG.GERAETE_ID AS GUID, TBGERAETE_VERFOLGUNG.BEZEI"& _ + "CHNUNG, TBGERAETE_VERFOLGUNG.MARKT, TBGERAET.SERIENNR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAET.DATE_INITIAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGERAET INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAETE_VERFOLGUNG ON TBGERAET.GUID = TBGERAETE_VERFOLGUNG.GERAETE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (CONVERT(DATETIME, TBGERAETE_VERFOLGUNG.MELDEDATUM, 104) BETWEEN @d"& _ + "atevon AND @datebis)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY TBGERAETE_VERFOLGUNG.GERAETE_ID, TBGERAETE_VERFOL"& _ + "GUNG.BEZEICHNUNG, TBGERAETE_VERFOLGUNG.MARKT, TBGERAET.SERIENNR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAET.DATE_INITIAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"HAVING (TBGERAETE_VERFOLGUNG.MARKT = @"& _ + "Markt)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBGERAETE_VERFOLGUNG.MARKT, TBGERAETE_VERFOLGUNG.BEZEICHNUNG" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@datevon", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@datebis", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Markt", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function FillByMarkt(ByVal dataTable As MyDataset.TBGERAETByMarktDataTable, ByVal MARKT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByMarkt(ByVal MARKT As String) As MyDataset.TBGERAETByMarktDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + Dim dataTable As MyDataset.TBGERAETByMarktDataTable = New MyDataset.TBGERAETByMarktDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByDate(ByVal dataTable As MyDataset.TBGERAETByMarktDataTable, ByVal datevon As Date, ByVal datebis As Date) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(datevon,Date) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(datebis,Date) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByDate(ByVal datevon As Date, ByVal datebis As Date) As MyDataset.TBGERAETByMarktDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(datevon,Date) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(datebis,Date) + Dim dataTable As MyDataset.TBGERAETByMarktDataTable = New MyDataset.TBGERAETByMarktDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByG_ID(ByVal dataTable As MyDataset.TBGERAETByMarktDataTable, ByVal G_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(G_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByG_ID(ByVal G_ID As Integer) As MyDataset.TBGERAETByMarktDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(G_ID,Integer) + Dim dataTable As MyDataset.TBGERAETByMarktDataTable = New MyDataset.TBGERAETByMarktDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByMarktDate(ByVal dataTable As MyDataset.TBGERAETByMarktDataTable, ByVal datevon As Date, ByVal datebis As Date, ByVal Markt As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(3) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(datevon,Date) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(datebis,Date) + If (Markt Is Nothing) Then + Throw New Global.System.ArgumentNullException("Markt") + Else + Me.Adapter.SelectCommand.Parameters(2).Value = CType(Markt,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByMarktDate(ByVal datevon As Date, ByVal datebis As Date, ByVal Markt As String) As MyDataset.TBGERAETByMarktDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(3) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(datevon,Date) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(datebis,Date) + If (Markt Is Nothing) Then + Throw New Global.System.ArgumentNullException("Markt") + Else + Me.Adapter.SelectCommand.Parameters(2).Value = CType(Markt,String) + End If + Dim dataTable As MyDataset.TBGERAETByMarktDataTable = New MyDataset.TBGERAETByMarktDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGERAETByMarktDataTable) 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, "TBGERAETByMarkt") + 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, ByVal Original_BEZEICHNUNG As String, ByVal Original_MARKT As String, ByVal Original_SERIENNR As String, ByVal Original_DATE_INITIAL As Date) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_BEZEICHNUNG Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_BEZEICHNUNG,String) + End If + If (Original_MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_MARKT") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_MARKT,String) + End If + If (Original_SERIENNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_SERIENNR") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SERIENNR,String) + End If + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_DATE_INITIAL,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal MARKT As String, ByVal SERIENNR As String, ByVal DATE_INITIAL As Date, ByVal Original_GUID As Integer, ByVal Original_BEZEICHNUNG As String, ByVal Original_MARKT As String, ByVal Original_SERIENNR As String, ByVal Original_DATE_INITIAL As Date, ByVal GUID As Integer) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(MARKT,String) + End If + If (SERIENNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("SERIENNR") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERIENNR,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATE_INITIAL,Date) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + If (Original_BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_BEZEICHNUNG,String) + End If + If (Original_MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_MARKT") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_MARKT,String) + End If + If (Original_SERIENNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_SERIENNR") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_SERIENNR,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_DATE_INITIAL,Date) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal MARKT As String, ByVal SERIENNR As String, ByVal DATE_INITIAL As Date, ByVal Original_GUID As Integer, ByVal Original_BEZEICHNUNG As String, ByVal Original_MARKT As String, ByVal Original_SERIENNR As String, ByVal Original_DATE_INITIAL As Date) As Integer + Return Me.Update(BEZEICHNUNG, MARKT, SERIENNR, DATE_INITIAL, Original_GUID, Original_BEZEICHNUNG, Original_MARKT, Original_SERIENNR, Original_DATE_INITIAL, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIMPORT_PRODUKTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIMPORT_PRODUKT" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("VERTRAGSNR", "VERTRAGSNR") + tableMapping.ColumnMappings.Add("SERIEN_NR", "SERIEN_NR") + tableMapping.ColumnMappings.Add("PRODUKT_NR", "PRODUKT_NR") + tableMapping.ColumnMappings.Add("MODELL_NAME", "MODELL_NAME") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, VERTRAGSNR, SERIEN_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, ERFASSTW"& _ + "ANN, GEAENDERTWER, GEAENDERTWANN FROM TBIMPORT_PRODUKT" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "DELETE FROM TBIMPORT_PRODUKT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MANDANT_ID = @mandant_id)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@mandant_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "INSERT INTO TBIMPORT_PRODUKT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MARKT, VERTRAGSNR, SERIEN"& _ + "_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, NICHT_AKTIV, ABGEBAUT, MANDANT_ID, ASS"& _ + "ET_NR, FILTER1, FILTER2, FILTER3, FILTER4, BF_SERIEN_NR, ON_HOLD)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@MARKT,@VERTRAGSNR,@SERIEN_NR,@PRODUKT_NR,@MODELL_NAME,@ERFASSTWER,@NICHT_AKTI"& _ + "V,@ABGEBAUT,@MANDANT_ID,@ASSET_NR,@FILTER1,@FILTER2,@FILTER3,@FILTER4,@BF,@OH)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAGSNR", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAGSNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIEN_NR", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUKT_NR", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUKT_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODELL_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MODELL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NICHT_AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "NICHT_AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ABGEBAUT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ABGEBAUT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ASSET_NR", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ASSET_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILTER1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FILTER1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILTER2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FILTER2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILTER3", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FILTER3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILTER4", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FILTER4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BF", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BF_SERIEN_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OH", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ON_HOLD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "dbo.PRINSERT_PRODUKT_VERTRAG" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.StoredProcedure + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RETURN_VALUE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.ReturnValue, 10, 0, Nothing, Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBIMPORT_PRODUKTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBIMPORT_PRODUKTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBIMPORT_PRODUKTDataTable = New MyDataset.TBIMPORT_PRODUKTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function cmddelete(ByVal mandant_id As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(mandant_id,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function CmdInsert( _ + ByVal MARKT As String, _ + ByVal VERTRAGSNR As String, _ + ByVal SERIEN_NR As String, _ + ByVal PRODUKT_NR As String, _ + ByVal MODELL_NAME As String, _ + ByVal ERFASSTWER As String, _ + ByVal NICHT_AKTIV As Boolean, _ + ByVal ABGEBAUT As Boolean, _ + ByVal MANDANT_ID As Integer, _ + ByVal ASSET_NR As String, _ + ByVal FILTER1 As String, _ + ByVal FILTER2 As String, _ + ByVal FILTER3 As String, _ + ByVal FILTER4 As String, _ + ByVal BF As String, _ + ByVal OH As Boolean) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (MARKT Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(MARKT,String) + End If + If (VERTRAGSNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERTRAGSNR") + Else + command.Parameters(1).Value = CType(VERTRAGSNR,String) + End If + If (SERIEN_NR Is Nothing) Then + command.Parameters(2).Value = Global.System.DBNull.Value + Else + command.Parameters(2).Value = CType(SERIEN_NR,String) + End If + If (PRODUKT_NR Is Nothing) Then + command.Parameters(3).Value = Global.System.DBNull.Value + Else + command.Parameters(3).Value = CType(PRODUKT_NR,String) + End If + If (MODELL_NAME Is Nothing) Then + command.Parameters(4).Value = Global.System.DBNull.Value + Else + command.Parameters(4).Value = CType(MODELL_NAME,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + command.Parameters(5).Value = CType(ERFASSTWER,String) + End If + command.Parameters(6).Value = CType(NICHT_AKTIV,Boolean) + command.Parameters(7).Value = CType(ABGEBAUT,Boolean) + command.Parameters(8).Value = CType(MANDANT_ID,Integer) + If (ASSET_NR Is Nothing) Then + command.Parameters(9).Value = Global.System.DBNull.Value + Else + command.Parameters(9).Value = CType(ASSET_NR,String) + End If + If (FILTER1 Is Nothing) Then + command.Parameters(10).Value = Global.System.DBNull.Value + Else + command.Parameters(10).Value = CType(FILTER1,String) + End If + If (FILTER2 Is Nothing) Then + command.Parameters(11).Value = Global.System.DBNull.Value + Else + command.Parameters(11).Value = CType(FILTER2,String) + End If + If (FILTER3 Is Nothing) Then + command.Parameters(12).Value = Global.System.DBNull.Value + Else + command.Parameters(12).Value = CType(FILTER3,String) + End If + If (FILTER4 Is Nothing) Then + command.Parameters(13).Value = Global.System.DBNull.Value + Else + command.Parameters(13).Value = CType(FILTER4,String) + End If + If (BF Is Nothing) Then + command.Parameters(14).Value = Global.System.DBNull.Value + Else + command.Parameters(14).Value = CType(BF,String) + End If + command.Parameters(15).Value = CType(OH,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function PRINSERT_PRODUKT_VERTRAG() As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBVERTRAEGETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBVERTRAEGE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("VERTRAGSNR", "VERTRAGSNR") + tableMapping.ColumnMappings.Add("BEZEICHNUNG1", "BEZEICHNUNG1") + tableMapping.ColumnMappings.Add("BEZEICHNUNG2", "BEZEICHNUNG2") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBVERTRAEGE] WHERE (([GUID] = @Original_GUID) AND ([VERTRAGSNR] = @O"& _ + "riginal_VERTRAGSNR) AND ((@IsNull_BEZEICHNUNG1 = 1 AND [BEZEICHNUNG1] IS NULL) O"& _ + "R ([BEZEICHNUNG1] = @Original_BEZEICHNUNG1)) AND ((@IsNull_BEZEICHNUNG2 = 1 AND "& _ + "[BEZEICHNUNG2] IS NULL) OR ([BEZEICHNUNG2] = @Original_BEZEICHNUNG2)) AND ([ERFA"& _ + "SSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN) AND "& _ + "((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] = @Ori"& _ + "ginal_GEAENDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWANN))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERTRAGSNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAGSNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBVERTRAEGE] ([VERTRAGSNR], [BEZEICHNUNG1], [BEZEICHNUNG2], [ERFASST"& _ + "WER], [ERFASSTWANN], [GEAENDERTWER], [GEAENDERTWANN]) VALUES (@VERTRAGSNR, @BEZE"& _ + "ICHNUNG1, @BEZEICHNUNG2, @ERFASSTWER, @ERFASSTWANN, @GEAENDERTWER, @GEAENDERTWAN"& _ + "N);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, VERTRAGSNR, BEZEICHNUNG1, BEZEICHNUNG2, ERFASSTWER, ERFASSTWAN"& _ + "N, GEAENDERTWER, GEAENDERTWANN FROM TBVERTRAEGE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAGSNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAGSNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBVERTRAEGE] SET [VERTRAGSNR] = @VERTRAGSNR, [BEZEICHNUNG1] = @BEZEICHNUN"& _ + "G1, [BEZEICHNUNG2] = @BEZEICHNUNG2, [ERFASSTWER] = @ERFASSTWER, [ERFASSTWANN] = "& _ + "@ERFASSTWANN, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN W"& _ + "HERE (([GUID] = @Original_GUID) AND ([VERTRAGSNR] = @Original_VERTRAGSNR) AND (("& _ + "@IsNull_BEZEICHNUNG1 = 1 AND [BEZEICHNUNG1] IS NULL) OR ([BEZEICHNUNG1] = @Origi"& _ + "nal_BEZEICHNUNG1)) AND ((@IsNull_BEZEICHNUNG2 = 1 AND [BEZEICHNUNG2] IS NULL) OR"& _ + " ([BEZEICHNUNG2] = @Original_BEZEICHNUNG2)) AND ([ERFASSTWER] = @Original_ERFASS"& _ + "TWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEAENDERTWER = 1"& _ + " AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ("& _ + "[GEAENDERTWANN] = @Original_GEAENDERTWANN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, VERTRAGSNR, BEZEICHNU"& _ + "NG1, BEZEICHNUNG2, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBV"& _ + "ERTRAEGE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAGSNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAGSNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERTRAGSNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAGSNR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, VERTRAGSNR, BEZEICHNUNG1, BEZEICHNUNG2, ERFASSTWER, ERFASSTWA"& _ + "NN, GEAENDERTWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBVERTRAEGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (AKTI"& _ + "V = 1)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT MAX(GUID) FROM TBVERTRAEGE" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT GUID, VERTRAGSNR, BEZEICHNUNG1, BEZEICHNUNG2, ERFASSTWER, ERFASSTWA"& _ + "NN, GEAENDERTWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBVERTRAEGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID"& _ + " <= @GUID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBVERTRAEGEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBVERTRAEGEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBVERTRAEGEDataTable = New MyDataset.TBVERTRAEGEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillBykleinerGUID(ByVal dataTable As MyDataset.TBVERTRAEGEDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBykleinerGUID(ByVal GUID As Integer) As MyDataset.TBVERTRAEGEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As MyDataset.TBVERTRAEGEDataTable = New MyDataset.TBVERTRAEGEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBVERTRAEGEDataTable) 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, "TBVERTRAEGE") + 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, ByVal Original_VERTRAGSNR As String, ByVal Original_BEZEICHNUNG1 As String, ByVal Original_BEZEICHNUNG2 As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Date, ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Date) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_VERTRAGSNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_VERTRAGSNR") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_VERTRAGSNR,String) + End If + If (Original_BEZEICHNUNG1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_BEZEICHNUNG1,String) + End If + If (Original_BEZEICHNUNG2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_BEZEICHNUNG2,String) + End If + If (Original_ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERFASSTWER") + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ERFASSTWER,String) + End If + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ERFASSTWANN,Date) + If (Original_GEAENDERTWER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_GEAENDERTWER,String) + End If + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_GEAENDERTWANN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal VERTRAGSNR As String, ByVal BEZEICHNUNG1 As String, ByVal BEZEICHNUNG2 As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As Integer + If (VERTRAGSNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERTRAGSNR") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(VERTRAGSNR,String) + End If + If (BEZEICHNUNG1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(BEZEICHNUNG1,String) + End If + If (BEZEICHNUNG2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(BEZEICHNUNG2,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ERFASSTWER,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ERFASSTWANN,Date) + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(GEAENDERTWER,String) + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(GEAENDERTWANN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal VERTRAGSNR As String, _ + ByVal BEZEICHNUNG1 As String, _ + ByVal BEZEICHNUNG2 As String, _ + ByVal ERFASSTWER As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal Original_GUID As Integer, _ + ByVal Original_VERTRAGSNR As String, _ + ByVal Original_BEZEICHNUNG1 As String, _ + ByVal Original_BEZEICHNUNG2 As String, _ + ByVal Original_ERFASSTWER As String, _ + ByVal Original_ERFASSTWANN As Date, _ + ByVal Original_GEAENDERTWER As String, _ + ByVal Original_GEAENDERTWANN As Date, _ + ByVal GUID As Integer) As Integer + If (VERTRAGSNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERTRAGSNR") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(VERTRAGSNR,String) + End If + If (BEZEICHNUNG1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BEZEICHNUNG1,String) + End If + If (BEZEICHNUNG2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BEZEICHNUNG2,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ERFASSTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ERFASSTWANN,Date) + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GEAENDERTWANN,Date) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + If (Original_VERTRAGSNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_VERTRAGSNR") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_VERTRAGSNR,String) + End If + If (Original_BEZEICHNUNG1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_BEZEICHNUNG1,String) + End If + If (Original_BEZEICHNUNG2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_BEZEICHNUNG2,String) + End If + If (Original_ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERFASSTWER") + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ERFASSTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ERFASSTWANN,Date) + If (Original_GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GEAENDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_GEAENDERTWANN,Date) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal VERTRAGSNR As String, ByVal BEZEICHNUNG1 As String, ByVal BEZEICHNUNG2 As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal Original_GUID As Integer, ByVal Original_VERTRAGSNR As String, ByVal Original_BEZEICHNUNG1 As String, ByVal Original_BEZEICHNUNG2 As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Date, ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Date) As Integer + Return Me.Update(VERTRAGSNR, BEZEICHNUNG1, BEZEICHNUNG2, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, Original_GUID, Original_VERTRAGSNR, Original_BEZEICHNUNG1, Original_BEZEICHNUNG2, Original_ERFASSTWER, Original_ERFASSTWANN, Original_GEAENDERTWER, Original_GEAENDERTWANN, Original_GUID) + End Function + + _ + Public Overloads Overridable Function cmdMaxGuid() As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPRODUKT_VERTRAGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPRODUKT_VERTRAG" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("VERTRAG_ID", "VERTRAG_ID") + tableMapping.ColumnMappings.Add("SERIEN_NR", "SERIEN_NR") + tableMapping.ColumnMappings.Add("PRODUKT_NR", "PRODUKT_NR") + tableMapping.ColumnMappings.Add("MODELL_NAME", "MODELL_NAME") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPRODUKT_VERTRAG] WHERE (([GUID] = @Original_GUID) AND ([VERTRAG_ID"& _ + "] = @Original_VERTRAG_ID) AND ((@IsNull_SERIEN_NR = 1 AND [SERIEN_NR] IS NULL) O"& _ + "R ([SERIEN_NR] = @Original_SERIEN_NR)) AND ((@IsNull_PRODUKT_NR = 1 AND [PRODUKT"& _ + "_NR] IS NULL) OR ([PRODUKT_NR] = @Original_PRODUKT_NR)) AND ((@IsNull_MODELL_NAM"& _ + "E = 1 AND [MODELL_NAME] IS NULL) OR ([MODELL_NAME] = @Original_MODELL_NAME)) AND"& _ + " ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWAN"& _ + "N) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = "& _ + "@Original_GEANDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWANN) AND ([AK"& _ + "TIV] = @Original_AKTIV))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERTRAG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAG_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERIEN_NR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERIEN_NR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRODUKT_NR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUKT_NR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUKT_NR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUKT_NR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MODELL_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODELL_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODELL_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODELL_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPRODUKT_VERTRAG] ([VERTRAG_ID], [SERIEN_NR], [PRODUKT_NR], [MODELL"& _ + "_NAME], [ERFASSTWER], [ERFASSTWANN], [GEANDERTWER], [GEAENDERTWANN], [AKTIV]) VA"& _ + "LUES (@VERTRAG_ID, @SERIEN_NR, @PRODUKT_NR, @MODELL_NAME, @ERFASSTWER, @ERFASSTW"& _ + "ANN, @GEANDERTWER, @GEAENDERTWANN, @AKTIV);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, VERTRAG_ID, SERIEN_NR,"& _ + " PRODUKT_NR, MODELL_NAME, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, A"& _ + "KTIV FROM TBPRODUKT_VERTRAG WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIEN_NR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUKT_NR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUKT_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODELL_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODELL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPRODUKT_VERTRAG] SET [VERTRAG_ID] = @VERTRAG_ID, [SERIEN_NR] = @SERIEN_"& _ + "NR, [PRODUKT_NR] = @PRODUKT_NR, [MODELL_NAME] = @MODELL_NAME, [ERFASSTWER] = @ER"& _ + "FASSTWER, [ERFASSTWANN] = @ERFASSTWANN, [GEANDERTWER] = @GEANDERTWER, [GEAENDERT"& _ + "WANN] = @GEAENDERTWANN, [AKTIV] = @AKTIV WHERE (([GUID] = @Original_GUID) AND (["& _ + "VERTRAG_ID] = @Original_VERTRAG_ID) AND ((@IsNull_SERIEN_NR = 1 AND [SERIEN_NR] "& _ + "IS NULL) OR ([SERIEN_NR] = @Original_SERIEN_NR)) AND ((@IsNull_PRODUKT_NR = 1 AN"& _ + "D [PRODUKT_NR] IS NULL) OR ([PRODUKT_NR] = @Original_PRODUKT_NR)) AND ((@IsNull_"& _ + "MODELL_NAME = 1 AND [MODELL_NAME] IS NULL) OR ([MODELL_NAME] = @Original_MODELL_"& _ + "NAME)) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_"& _ + "ERFASSTWANN) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEAND"& _ + "ERTWER] = @Original_GEANDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWANN"& _ + ") AND ([AKTIV] = @Original_AKTIV));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, VERTRAG_ID, SERIEN_NR, PRODUKT"& _ + "_NR, MODELL_NAME, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, AKTIV FRO"& _ + "M TBPRODUKT_VERTRAG WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIEN_NR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUKT_NR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUKT_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODELL_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODELL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERTRAG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAG_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERIEN_NR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERIEN_NR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIEN_NR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRODUKT_NR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUKT_NR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUKT_NR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUKT_NR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MODELL_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODELL_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODELL_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODELL_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, VERTRAG_ID, SERIEN_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, E"& _ + "RFASSTWANN, GEANDERTWER, GEAENDERTWANN, AKTIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPRODUKT_VERTRAG"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (AKTIV = 1)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBPRODUKT_VERTRAGDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBPRODUKT_VERTRAGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBPRODUKT_VERTRAGDataTable = New MyDataset.TBPRODUKT_VERTRAGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBPRODUKT_VERTRAGDataTable) 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, "TBPRODUKT_VERTRAG") + 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, ByVal Original_VERTRAG_ID As Integer, ByVal Original_SERIEN_NR As String, ByVal Original_PRODUKT_NR As String, ByVal Original_MODELL_NAME As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Date, ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Date, ByVal Original_AKTIV As Boolean) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_VERTRAG_ID,Integer) + If (Original_SERIEN_NR Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SERIEN_NR,String) + End If + If (Original_PRODUKT_NR Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_PRODUKT_NR,String) + End If + If (Original_MODELL_NAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_MODELL_NAME,String) + End If + If (Original_ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERFASSTWER") + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ERFASSTWER,String) + End If + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ERFASSTWANN,Date) + If (Original_GEANDERTWER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_GEANDERTWER,String) + End If + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_GEAENDERTWANN,Date) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_AKTIV,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal VERTRAG_ID As Integer, ByVal SERIEN_NR As String, ByVal PRODUKT_NR As String, ByVal MODELL_NAME As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal AKTIV As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(VERTRAG_ID,Integer) + If (SERIEN_NR Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SERIEN_NR,String) + End If + If (PRODUKT_NR Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(PRODUKT_NR,String) + End If + If (MODELL_NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MODELL_NAME,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ERFASSTWER,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ERFASSTWANN,Date) + If (GEANDERTWER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(GEANDERTWER,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(GEAENDERTWANN,Date) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(AKTIV,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal VERTRAG_ID As Integer, _ + ByVal SERIEN_NR As String, _ + ByVal PRODUKT_NR As String, _ + ByVal MODELL_NAME As String, _ + ByVal ERFASSTWER As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEANDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal AKTIV As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal Original_VERTRAG_ID As Integer, _ + ByVal Original_SERIEN_NR As String, _ + ByVal Original_PRODUKT_NR As String, _ + ByVal Original_MODELL_NAME As String, _ + ByVal Original_ERFASSTWER As String, _ + ByVal Original_ERFASSTWANN As Date, _ + ByVal Original_GEANDERTWER As String, _ + ByVal Original_GEAENDERTWANN As Date, _ + ByVal Original_AKTIV As Boolean, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(VERTRAG_ID,Integer) + If (SERIEN_NR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SERIEN_NR,String) + End If + If (PRODUKT_NR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PRODUKT_NR,String) + End If + If (MODELL_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MODELL_NAME,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ERFASSTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ERFASSTWANN,Date) + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GEANDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEAENDERTWANN,Date) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(AKTIV,Boolean) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_VERTRAG_ID,Integer) + If (Original_SERIEN_NR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_SERIEN_NR,String) + End If + If (Original_PRODUKT_NR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_PRODUKT_NR,String) + End If + If (Original_MODELL_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_MODELL_NAME,String) + End If + If (Original_ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERFASSTWER") + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ERFASSTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ERFASSTWANN,Date) + If (Original_GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GEANDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_GEAENDERTWANN,Date) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_AKTIV,Boolean) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal VERTRAG_ID As Integer, _ + ByVal SERIEN_NR As String, _ + ByVal PRODUKT_NR As String, _ + ByVal MODELL_NAME As String, _ + ByVal ERFASSTWER As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEANDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal AKTIV As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal Original_VERTRAG_ID As Integer, _ + ByVal Original_SERIEN_NR As String, _ + ByVal Original_PRODUKT_NR As String, _ + ByVal Original_MODELL_NAME As String, _ + ByVal Original_ERFASSTWER As String, _ + ByVal Original_ERFASSTWANN As Date, _ + ByVal Original_GEANDERTWER As String, _ + ByVal Original_GEAENDERTWANN As Date, _ + ByVal Original_AKTIV As Boolean) As Integer + Return Me.Update(VERTRAG_ID, SERIEN_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, AKTIV, Original_GUID, Original_VERTRAG_ID, Original_SERIEN_NR, Original_PRODUKT_NR, Original_MODELL_NAME, Original_ERFASSTWER, Original_ERFASSTWANN, Original_GEANDERTWER, Original_GEAENDERTWANN, Original_AKTIV, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBGERAETE_NOTINLISTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBGERAETE_NOTINLIST" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("VERTRAG_ID", "VERTRAG_ID") + tableMapping.ColumnMappings.Add("MODELL_NAME", "MODELL_NAME") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("TIMESTAMP1", "TIMESTAMP1") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBGERAETE_NOTINLIST] WHERE (([GUID] = @Original_GUID) AND ([TIMESTAM"& _ + "P1] = @Original_TIMESTAMP1))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIMESTAMP1", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIMESTAMP1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBGERAETE_NOTINLIST] ([VERTRAG_ID], [MODELL_NAME], [MARKT], [ERFASST"& _ + "WER], [ERFASSTWANN], [GEAENDERTWER], [GEAENDERTWANN]) VALUES (@VERTRAG_ID, @MODE"& _ + "LL_NAME, @MARKT, @ERFASSTWER, @ERFASSTWANN, @GEAENDERTWER, @GEAENDERTWANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ + "ECT GUID, VERTRAG_ID, MODELL_NAME, MARKT, ERFASSTWER, ERFASSTWANN, GEAENDERTWER,"& _ + " GEAENDERTWANN, TIMESTAMP1 FROM TBGERAETE_NOTINLIST WHERE (GUID = SCOPE_IDENTITY"& _ + "())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODELL_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODELL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBGERAETE_NOTINLIST] SET [VERTRAG_ID] = @VERTRAG_ID, [MODELL_NAME] = @MOD"& _ + "ELL_NAME, [MARKT] = @MARKT, [ERFASSTWER] = @ERFASSTWER, [ERFASSTWANN] = @ERFASST"& _ + "WANN, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE ((["& _ + "GUID] = @Original_GUID) AND ([TIMESTAMP1] = @Original_TIMESTAMP1));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", VERTRAG_ID, MODELL_NAME, MARKT, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDE"& _ + "RTWANN, TIMESTAMP1 FROM TBGERAETE_NOTINLIST WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODELL_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODELL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIMESTAMP1", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIMESTAMP1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBGERAETE_NOTINLIST.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGERAETE_NOTINLIST" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "DELETE FROM TBGERAETE_NOTINLIST"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (VERTRAG_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBV"& _ + "ERTRAEGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (VERTRAGSNR = @VERTRAGSNR)"& _ + "))" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAGSNR", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "DELETE FROM [TBGERAETE_NOTINLIST] " + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGERAETE_NOTINLISTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBGERAETE_NOTINLISTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBGERAETE_NOTINLISTDataTable = New MyDataset.TBGERAETE_NOTINLISTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGERAETE_NOTINLISTDataTable) 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, "TBGERAETE_NOTINLIST") + 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, ByVal Original_TIMESTAMP1() As Byte) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_TIMESTAMP1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TIMESTAMP1") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_TIMESTAMP1,Byte()) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal VERTRAG_ID As Integer, ByVal MODELL_NAME As String, ByVal MARKT As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(VERTRAG_ID,Integer) + If (MODELL_NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(MODELL_NAME,String) + End If + If (MARKT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(MARKT,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ERFASSTWER,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ERFASSTWANN,Date) + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(GEAENDERTWER,String) + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(GEAENDERTWANN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal VERTRAG_ID As Integer, ByVal MODELL_NAME As String, ByVal MARKT As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal Original_GUID As Integer, ByVal Original_TIMESTAMP1() As Byte, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(VERTRAG_ID,Integer) + If (MODELL_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(MODELL_NAME,String) + End If + If (MARKT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(MARKT,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ERFASSTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ERFASSTWANN,Date) + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GEAENDERTWANN,Date) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + If (Original_TIMESTAMP1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TIMESTAMP1") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_TIMESTAMP1,Byte()) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal VERTRAG_ID As Integer, ByVal MODELL_NAME As String, ByVal MARKT As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal Original_GUID As Integer, ByVal Original_TIMESTAMP1() As Byte) As Integer + Return Me.Update(VERTRAG_ID, MODELL_NAME, MARKT, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, Original_GUID, Original_TIMESTAMP1, Original_GUID) + End Function + + _ + Public Overloads Overridable Function cmdDeleteGeraete(ByVal VERTRAGSNR As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (VERTRAGSNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERTRAGSNR") + Else + command.Parameters(0).Value = CType(VERTRAGSNR,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function DeleteAll() As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_MODELLTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_MODELL" + tableMapping.ColumnMappings.Add("PRODUKT_NR", "PRODUKT_NR") + tableMapping.ColumnMappings.Add("String", "String") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT PRODUKT_NR, PRODUKT_NR + ' - ' + MODELL_NAME AS String"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPRODUKT_VERTRAG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (AKTIV = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY PRODUKT_NR, MODELL_NA"& _ + "ME" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_MODELLDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBWH_MODELLDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBWH_MODELLDataTable = New MyDataset.TBWH_MODELLDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBSUPPLY_DEFINITIONTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBSUPPLY_DEFINITION" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("SUPPLY_BEZ", "SUPPLY_BEZ") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("TIMESTAMP1", "TIMESTAMP1") + tableMapping.ColumnMappings.Add("SUPPLY_NAME_DATEI", "SUPPLY_NAME_DATEI") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBSUPPLY_DEFINITION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBSUPPLY_DEFINITION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SUPPLY_BEZ, ERFASSTWER"& _ + ", SUPPLY_NAME_DATEI)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@SUPPLY_BEZ,@ERFASSTWER,@SUPPLY_NAME_DATEI)"& _ + "; "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SUPPLY_BEZ, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTW"& _ + "ANN, TIMESTAMP1 FROM TBSUPPLY_DEFINITION WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_BEZ", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_BEZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_NAME_DATEI", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_NAME_DATEI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBSUPPLY_DEFINITION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SUPPLY_BEZ = @SUPPLY_BEZ, GE"& _ + "AENDERTWER = @GEAENDERTWER, SUPPLY_NAME_DATEI = @SUPPLY_NAME_DATEI"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SUPPLY_BEZ, ERFASSTWER, ERFASSTWANN, G"& _ + "EAENDERTWER, GEAENDERTWANN, TIMESTAMP1 FROM TBSUPPLY_DEFINITION WHERE (GUID = @G"& _ + "UID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_BEZ", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_BEZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_NAME_DATEI", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_NAME_DATEI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, SUPPLY_BEZ, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTW"& _ + "ANN, TIMESTAMP1, SUPPLY_NAME_DATEI"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLY_DEFINITION" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT ISNULL(COUNT(GUID), 0) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLY_DEFINITIO"& _ + "N"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LOWER(SUPPLY_NAME_DATEI) = LOWER(@String_Datei))" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@String_Datei", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT SUPPLY_BEZ"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLY_DEFINITION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LOWE"& _ + "R(SUPPLY_NAME_DATEI) = LOWER(@String_Datei))" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@String_Datei", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBSUPPLY_DEFINITIONDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBSUPPLY_DEFINITIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBSUPPLY_DEFINITIONDataTable = New MyDataset.TBSUPPLY_DEFINITIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBSUPPLY_DEFINITIONDataTable) 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, "TBSUPPLY_DEFINITION") + 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 + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal SUPPLY_BEZ As String, ByVal ERFASSTWER As String, ByVal SUPPLY_NAME_DATEI As String) As Integer + If (SUPPLY_BEZ Is Nothing) Then + Throw New Global.System.ArgumentNullException("SUPPLY_BEZ") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(SUPPLY_BEZ,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ERFASSTWER,String) + End If + If (SUPPLY_NAME_DATEI Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SUPPLY_NAME_DATEI,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal SUPPLY_BEZ As String, ByVal GEAENDERTWER As String, ByVal SUPPLY_NAME_DATEI As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (SUPPLY_BEZ Is Nothing) Then + Throw New Global.System.ArgumentNullException("SUPPLY_BEZ") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SUPPLY_BEZ,String) + End If + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GEAENDERTWER,String) + End If + If (SUPPLY_NAME_DATEI Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SUPPLY_NAME_DATEI,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Check_StringDatei(ByVal String_Datei As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (String_Datei Is Nothing) Then + Throw New Global.System.ArgumentNullException("String_Datei") + Else + command.Parameters(0).Value = CType(String_Datei,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + + _ + Public Overloads Overridable Function cmdgetSupplyName(ByVal String_Datei As String) As String + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (String_Datei Is Nothing) Then + Throw New Global.System.ArgumentNullException("String_Datei") + Else + command.Parameters(0).Value = CType(String_Datei,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,String) + End If + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBGERAET_SUPPLY_ZUORDNUNGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBGERAET_SUPPLY_ZUORDNUNG" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("GERAET_BEZ", "GERAET_BEZ") + tableMapping.ColumnMappings.Add("SUPPLY_ID", "SUPPLY_ID") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + tableMapping.ColumnMappings.Add("SCHWELLENWERT", "SCHWELLENWERT") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBGERAET_SUPPLY_ZUORDNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBGERAET_SUPPLY_ZUORDNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (GERAET_BEZ, SUPP"& _ + "LY_ID, ERFASSTWER, PARTNUMBER, SCHWELLENWERT, PARTNUMBER_ORDER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ("& _ + "@GERAET_BEZ,@SUPPLY_ID,@ERFASSTWER,@PARTNUMBER,@SCHWELLENWERT,@PARTNUMBER_ORDER)"& _ + "" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_BEZ", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_BEZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARTNUMBER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCHWELLENWERT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCHWELLENWERT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARTNUMBER_ORDER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "PARTNUMBER_ORDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBGERAET_SUPPLY_ZUORDNUNG] SET [GERAET_BEZ] = @GERAET_BEZ, [SUPPLY_ID] = "& _ + "@SUPPLY_ID, [ERFASSTWER] = @ERFASSTWER WHERE (([GUID] = @Original_GUID) AND ([GE"& _ + "RAET_BEZ] = @Original_GERAET_BEZ) AND ([SUPPLY_ID] = @Original_SUPPLY_ID) AND (["& _ + "ERFASSTWER] = @Original_ERFASSTWER));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, GERAET_BEZ, SUPPLY_ID, ERFAS"& _ + "STWER FROM TBGERAET_SUPPLY_ZUORDNUNG WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_BEZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_BEZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GERAET_BEZ", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_BEZ", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SUPPLY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, GERAET_BEZ, SUPPLY_ID, ERFASSTWER, PARTNUMBER, SCHWELLENWERT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGERAET_SUPPLY_ZUORDNUNG" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGERAET_SUPPLY_ZUORDNUNGDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBGERAET_SUPPLY_ZUORDNUNGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBGERAET_SUPPLY_ZUORDNUNGDataTable = New MyDataset.TBGERAET_SUPPLY_ZUORDNUNGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGERAET_SUPPLY_ZUORDNUNGDataTable) 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, "TBGERAET_SUPPLY_ZUORDNUNG") + 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 + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal GERAET_BEZ As String, ByVal SUPPLY_ID As Integer, ByVal ERFASSTWER As String, ByVal PARTNUMBER As String, ByVal SCHWELLENWERT As Integer, ByVal PARTNUMBER_ORDER As String) As Integer + If (GERAET_BEZ Is Nothing) Then + Throw New Global.System.ArgumentNullException("GERAET_BEZ") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(GERAET_BEZ,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SUPPLY_ID,Integer) + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERFASSTWER,String) + End If + If (PARTNUMBER Is Nothing) Then + Throw New Global.System.ArgumentNullException("PARTNUMBER") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(PARTNUMBER,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SCHWELLENWERT,Integer) + If (PARTNUMBER_ORDER Is Nothing) Then + Throw New Global.System.ArgumentNullException("PARTNUMBER_ORDER") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PARTNUMBER_ORDER,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal GERAET_BEZ As String, ByVal SUPPLY_ID As Integer, ByVal ERFASSTWER As String, ByVal Original_GUID As Integer, ByVal Original_GERAET_BEZ As String, ByVal Original_SUPPLY_ID As Integer, ByVal Original_ERFASSTWER As String, ByVal GUID As Integer) As Integer + If (GERAET_BEZ Is Nothing) Then + Throw New Global.System.ArgumentNullException("GERAET_BEZ") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GERAET_BEZ,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SUPPLY_ID,Integer) + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ERFASSTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + If (Original_GERAET_BEZ Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_GERAET_BEZ") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GERAET_BEZ,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SUPPLY_ID,Integer) + If (Original_ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERFASSTWER") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ERFASSTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal GERAET_BEZ As String, ByVal SUPPLY_ID As Integer, ByVal ERFASSTWER As String, ByVal Original_GUID As Integer, ByVal Original_GERAET_BEZ As String, ByVal Original_SUPPLY_ID As Integer, ByVal Original_ERFASSTWER As String) As Integer + Return Me.Update(GERAET_BEZ, SUPPLY_ID, ERFASSTWER, Original_GUID, Original_GERAET_BEZ, Original_SUPPLY_ID, Original_ERFASSTWER, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWGeraet_Supply_ZuordnungTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWGeraet_Supply_Zuordnung" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("GERAET_BEZ", "GERAET_BEZ") + tableMapping.ColumnMappings.Add("SUPPLY_BEZ", "SUPPLY_BEZ") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + tableMapping.ColumnMappings.Add("PARTNUMBER_ORDER", "PARTNUMBER_ORDER") + tableMapping.ColumnMappings.Add("SCHWELLENWERT", "SCHWELLENWERT") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBGERAET_SUPPLY_ZUORDNUNG.GUID, TBGERAET_SUPPLY_ZUORDNUNG.GERAET_BE"& _ + "Z, TBSUPPLY_DEFINITION.SUPPLY_BEZ, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET_SUPPLY_ZU"& _ + "ORDNUNG.PARTNUMBER, TBGERAET_SUPPLY_ZUORDNUNG.PARTNUMBER_ORDER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAET_SUPPLY_ZUORDNUNG.SCHWELLENWERT, TBGERAET_SUPPLY_ZUORDNUNG.ER"& _ + "FASSTWER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET_SUPPLY_ZUORDNUNG.ERFASSTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _ + " TBGERAET_SUPPLY_ZUORDNUNG INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBSUP"& _ + "PLY_DEFINITION ON TBGERAET_SUPPLY_ZUORDNUNG.SUPPLY_ID = TBSUPPLY_DEFINITION.GUID"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBGERAET_SUPPLY_ZUORDNUNG.GERAET_BEZ" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "UPDATE TBGERAET_SUPPLY_ZUORDNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SCHWELLENWERT = @SCHWE"& _ + "LLENWERT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCHWELLENWERT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCHWELLENWERT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT TBGERAET_SUPPLY_ZUORDNUNG.GUID, TBGERAET_SUPPLY_ZUORDNUNG.GERAET_BE"& _ + "Z, TBSUPPLY_DEFINITION.SUPPLY_BEZ, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET_SUPPLY_ZU"& _ + "ORDNUNG.PARTNUMBER, TBGERAET_SUPPLY_ZUORDNUNG.PARTNUMBER_ORDER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBGERAET_SUPPLY_ZUORDNUNG.SCHWELLENWERT, TBGERAET_SUPPLY_ZUORDNUNG.ER"& _ + "FASSTWER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET_SUPPLY_ZUORDNUNG.ERFASSTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _ + " TBGERAET_SUPPLY_ZUORDNUNG INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBSUP"& _ + "PLY_DEFINITION ON TBGERAET_SUPPLY_ZUORDNUNG.SUPPLY_ID = TBSUPPLY_DEFINITION.GUID"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBGERAET_SUPPLY_ZUORDNUNG.GERAET_BEZ = @GERAET_BEZ)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TB"& _ + "GERAET_SUPPLY_ZUORDNUNG.GERAET_BEZ" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_BEZ", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_BEZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGeraet_Supply_ZuordnungDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.VWGeraet_Supply_ZuordnungDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.VWGeraet_Supply_ZuordnungDataTable = New MyDataset.VWGeraet_Supply_ZuordnungDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByGeraet(ByVal dataTable As MyDataset.VWGeraet_Supply_ZuordnungDataTable, ByVal GERAET_BEZ As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (GERAET_BEZ Is Nothing) Then + Throw New Global.System.ArgumentNullException("GERAET_BEZ") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAET_BEZ,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByGeraet(ByVal GERAET_BEZ As String) As MyDataset.VWGeraet_Supply_ZuordnungDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (GERAET_BEZ Is Nothing) Then + Throw New Global.System.ArgumentNullException("GERAET_BEZ") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAET_BEZ,String) + End If + Dim dataTable As MyDataset.VWGeraet_Supply_ZuordnungDataTable = New MyDataset.VWGeraet_Supply_ZuordnungDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function CmdUpdateSW(ByVal SCHWELLENWERT As Integer, ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(SCHWELLENWERT,Integer) + command.Parameters(1).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBUSER_RECHTETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBUSER_RECHTE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("USR_NAME", "USR_NAME") + tableMapping.ColumnMappings.Add("EINLESEN", "EINLESEN") + tableMapping.ColumnMappings.Add("KONGIGURATION", "KONGIGURATION") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBUSER_RECHTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBUSER_RECHTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USR_NAME, EINLESEN, KONGIGUR"& _ + "ATION, ERFASSTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USR_NAME,@EINLESEN,@KONGIGURATION,@ERFASSTWE"& _ + "R)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USR_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USR_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINLESEN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINLESEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KONGIGURATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "KONGIGURATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBUSER_RECHTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USR_NAME = @USR_NAME, EINLESEN = @"& _ + "EINLESEN, KONGIGURATION = @KONGIGURATION, GEAENDERTWER = @GEAENDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USR_NAME, EINLESEN, KONGIGURATION, "& _ + "ERFASSTWER, GEAENDERTWER, GEAENDERTWANN FROM TBUSER_RECHTE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USR_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USR_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINLESEN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINLESEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KONGIGURATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "KONGIGURATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, USR_NAME, EINLESEN, KONGIGURATION, ERFASSTWER, GEAENDERTWER, "& _ + "GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBUSER_RECHTE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBUSER_RECHTEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBUSER_RECHTEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBUSER_RECHTEDataTable = New MyDataset.TBUSER_RECHTEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBUSER_RECHTEDataTable) 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, "TBUSER_RECHTE") + 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 + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal USR_NAME As String, ByVal EINLESEN As Boolean, ByVal KONGIGURATION As Boolean, ByVal ERFASSTWER As String) As Integer + If (USR_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USR_NAME") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USR_NAME,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINLESEN,Boolean) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(KONGIGURATION,Boolean) + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ERFASSTWER,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal USR_NAME As String, ByVal EINLESEN As Boolean, ByVal KONGIGURATION As Boolean, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (USR_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USR_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USR_NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINLESEN,Boolean) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KONGIGURATION,Boolean) + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GEAENDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBMELDEDATUMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBMELDEDATUM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("MELDEDATUM", "MELDEDATUM") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("TIMESTAMP1", "TIMESTAMP1") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBMELDEDATUM] WHERE (([MELDEDATUM] = @Original_MELDEDATUM) AND ([MAR"& _ + "KT] = @Original_MARKT) AND ([TIMESTAMP1] = @Original_TIMESTAMP1))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MELDEDATUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIMESTAMP1", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIMESTAMP1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBMELDEDATUM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MELDEDATUM, MARKT, ERFASSTWER"& _ + ")"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@MELDEDATUM,@MARKT,@ERFASSTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MELDEDATUM, M"& _ + "ARKT, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, TIMESTAMP1 FROM TBMEL"& _ + "DEDATUM WHERE (MARKT = @MARKT) AND (MELDEDATUM = @MELDEDATUM)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MELDEDATUM", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBMELDEDATUM] SET [MELDEDATUM] = @MELDEDATUM, [MARKT] = @MARKT, [ERFASSTW"& _ + "ER] = @ERFASSTWER, [ERFASSTWANN] = @ERFASSTWANN, [GEANDERTWER] = @GEANDERTWER, ["& _ + "GEAENDERTWANN] = @GEAENDERTWANN WHERE (([MELDEDATUM] = @Original_MELDEDATUM) AND"& _ + " ([MARKT] = @Original_MARKT) AND ([TIMESTAMP1] = @Original_TIMESTAMP1));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ + " GUID, MELDEDATUM, MARKT, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, T"& _ + "IMESTAMP1 FROM TBMELDEDATUM WHERE (MARKT = @MARKT) AND (MELDEDATUM = @MELDEDATUM"& _ + ")" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MELDEDATUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MELDEDATUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIMESTAMP1", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIMESTAMP1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBMELDEDATUM.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMELDEDATUM" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT ISNULL(MAX(GUID), 0) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMELDEDATUM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (MELDEDATUM = @DATE) AND (MARKT = @markt)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@markt", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBMELDEDATUMDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBMELDEDATUMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBMELDEDATUMDataTable = New MyDataset.TBMELDEDATUMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBMELDEDATUMDataTable) 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, "TBMELDEDATUM") + 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_MELDEDATUM As String, ByVal Original_MARKT As String, ByVal Original_TIMESTAMP1() As Byte) As Integer + If (Original_MELDEDATUM Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_MELDEDATUM") + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_MELDEDATUM,String) + End If + If (Original_MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_MARKT") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_MARKT,String) + End If + If (Original_TIMESTAMP1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TIMESTAMP1") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_TIMESTAMP1,Byte()) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal MELDEDATUM As String, ByVal MARKT As String, ByVal ERFASSTWER As String) As Integer + If (MELDEDATUM Is Nothing) Then + Throw New Global.System.ArgumentNullException("MELDEDATUM") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(MELDEDATUM,String) + End If + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(MARKT,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERFASSTWER,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal MELDEDATUM As String, ByVal MARKT As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_MELDEDATUM As String, ByVal Original_MARKT As String, ByVal Original_TIMESTAMP1() As Byte) As Integer + If (MELDEDATUM Is Nothing) Then + Throw New Global.System.ArgumentNullException("MELDEDATUM") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MELDEDATUM,String) + End If + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(MARKT,String) + End If + If (ERFASSTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERFASSTWER") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ERFASSTWER,String) + End If + If (ERFASSTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ERFASSTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GEANDERTWER,String) + End If + If (GEAENDERTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (Original_MELDEDATUM Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_MELDEDATUM") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_MELDEDATUM,String) + End If + If (Original_MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_MARKT") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_MARKT,String) + End If + If (Original_TIMESTAMP1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TIMESTAMP1") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_TIMESTAMP1,Byte()) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_MELDEDATUM As String, ByVal Original_MARKT As String, ByVal Original_TIMESTAMP1() As Byte) As Integer + Return Me.Update(Original_MELDEDATUM, Original_MARKT, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, Original_MELDEDATUM, Original_MARKT, Original_TIMESTAMP1) + End Function + + _ + Public Overloads Overridable Function cmdDateexists(ByVal _DATE As String, ByVal markt As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (_DATE Is Nothing) Then + Throw New Global.System.ArgumentNullException("_DATE") + Else + command.Parameters(0).Value = CType(_DATE,String) + End If + If (markt Is Nothing) Then + Throw New Global.System.ArgumentNullException("markt") + Else + command.Parameters(1).Value = CType(markt,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBGERAETE_VERFOLGUNGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBGERAETE_VERFOLGUNG" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("GERAETE_ID", "GERAETE_ID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("IP_ADRESSE", "IP_ADRESSE") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("PAGE_COUNT", "PAGE_COUNT") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("DATEINAME", "DATEINAME") + tableMapping.ColumnMappings.Add("MELDEDATUM", "MELDEDATUM") + tableMapping.ColumnMappings.Add("VERTRAG", "VERTRAG") + tableMapping.ColumnMappings.Add("NOTINLIST", "NOTINLIST") + tableMapping.ColumnMappings.Add("MODEL_NR", "MODEL_NR") + tableMapping.ColumnMappings.Add("DOPPELT_GEMELDET", "DOPPELT_GEMELDET") + tableMapping.ColumnMappings.Add("NO_SERIENNR", "NO_SERIENNR") + tableMapping.ColumnMappings.Add("A3DuplexSheets", "A3DuplexSheets") + tableMapping.ColumnMappings.Add("A3SimplexSheets", "A3SimplexSheets") + tableMapping.ColumnMappings.Add("A4DuplexSheets", "A4DuplexSheets") + tableMapping.ColumnMappings.Add("A4SimplexSheets", "A4SimplexSheets") + tableMapping.ColumnMappings.Add("A3ColorTotalImpressions", "A3ColorTotalImpressions") + tableMapping.ColumnMappings.Add("A3MonoTotalImpressions", "A3MonoTotalImpressions") + tableMapping.ColumnMappings.Add("A4MonoTotalImpressions", "A4MonoTotalImpressions") + tableMapping.ColumnMappings.Add("A4ColorTotalImpressions", "A4ColorTotalImpressions") + tableMapping.ColumnMappings.Add("AverageBlackCoverage", "AverageBlackCoverage") + tableMapping.ColumnMappings.Add("AverageCyanCoverage", "AverageCyanCoverage") + tableMapping.ColumnMappings.Add("AverageMagentaCoverage", "AverageMagentaCoverage") + tableMapping.ColumnMappings.Add("AverageYellowCoverage", "AverageYellowCoverage") + tableMapping.ColumnMappings.Add("ScanA3Total", "ScanA3Total") + tableMapping.ColumnMappings.Add("ScanA4Total", "ScanA4Total") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBGERAETE_VERFOLGUNG] WHERE (([GUID] = @Original_GUID) AND ([TIMESTA"& _ + "MP1] = @Original_TIMESTAMP1))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIMESTAMP1", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIMESTAMP1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBGERAETE_VERFOLGUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, IP_ADRES"& _ + "SE, SERIENNR, PAGE_COUNT, MARKT, DATEINAME, MELDEDATUM, VERTRAG, MODEL_NR, A3Dup"& _ + "lexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " A3ColorTotalImpressions, A3MonoTotalImpressions, A4MonoTotalImpressions,"& _ + " A4ColorTotalImpressions, AverageBlackCoverage, AverageCyanCoverage, AverageMage"& _ + "ntaCoverage, AverageYellowCoverage, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ScanA3Total, Scan"& _ + "A4Total, KD_KZ, FAX_INCOMING, SCAN_A4_TOTAL, SCAN_A3_TOTAL, PORT_DISPLAY)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUE"& _ + "S (@BEZEICHNUNG,@IP_ADRESSE,@SERIENNR,@PAGE_COUNT,@MARKT,@DATEINAME,@MELD"& _ + "EDATUM,@VERTRAG,@MODEL_NR,@A3DuplexSheets,@A3SimplexSheets,@A4DuplexSheets,@A4Si"& _ + "mplexSheets,@A3ColorTotalImpressions,@A3MonoTotalImpressions,@A4MonoTotalImpress"& _ + "ions,@A4ColorTotalImpressions,@AverageBlackCoverage,@AverageCyanCoverage,@Averag"& _ + "eMagentaCoverage,@AverageYellowCoverage,@ScanA3Total,@ScanA4Total,@KD_KZ,@FAX_IN"& _ + "COMING,@SCAN_A4_TOTAL,@SCAN_A3_TOTAL,@PORT_DISPLAY); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, GERAET"& _ + "E_ID, BEZEICHNUNG, IP_ADRESSE, SERIENNR, PAGE_COUNT, MARKT, ERFASSTWANN, GEAENDE"& _ + "RTWER, GEAENDERTWANN, TIMESTAMP1, DATEINAME, MELDEDATUM, VERTRAG, NOTINLIST, MOD"& _ + "EL_NR, DOPPELT_GEMELDET, NO_SERIENNR, A3DuplexSheets, A3SimplexSheets, A4DuplexS"& _ + "heets, A4SimplexSheets, A3ColorTotalImpressions, A3MonoTotalImpressions, A4MonoT"& _ + "otalImpressions, A4ColorTotalImpressions, AverageBlackCoverage, AverageCyanCover"& _ + "age, AverageMagentaCoverage, AverageYellowCoverage, ScanA3Total, ScanA4Total FRO"& _ + "M TBGERAETE_VERFOLGUNG WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IP_ADRESSE", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ADRESSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIENNR", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAGE_COUNT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATEINAME", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "DATEINAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MELDEDATUM", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAG", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODEL_NR", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "MODEL_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A3DuplexSheets", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A3DuplexSheets", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A3SimplexSheets", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A3SimplexSheets", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A4DuplexSheets", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A4DuplexSheets", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A4SimplexSheets", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A4SimplexSheets", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A3ColorTotalImpressions", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A3ColorTotalImpressions", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A3MonoTotalImpressions", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A3MonoTotalImpressions", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A4MonoTotalImpressions", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A4MonoTotalImpressions", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A4ColorTotalImpressions", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A4ColorTotalImpressions", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AverageBlackCoverage", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 18, 0, "AverageBlackCoverage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AverageCyanCoverage", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 18, 0, "AverageCyanCoverage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AverageMagentaCoverage", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 18, 0, "AverageMagentaCoverage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AverageYellowCoverage", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 18, 0, "AverageYellowCoverage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ScanA3Total", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ScanA3Total", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ScanA4Total", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ScanA4Total", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KD_KZ", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "KD_KZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FAX_INCOMING", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FAX_INCOMING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCAN_A4_TOTAL", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCAN_A4_TOTAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCAN_A3_TOTAL", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCAN_A3_TOTAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PORT_DISPLAY", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT_DISPLAY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBGERAETE_VERFOLGUNG] SET [GERAETE_ID] = @GERAETE_ID, [BEZEICHNUNG] = @BE"& _ + "ZEICHNUNG, [IP_ADRESSE] = @IP_ADRESSE, [SERIENNR] = @SERIENNR, [PAGE_COUNT] = @P"& _ + "AGE_COUNT, [MARKT] = @MARKT, [ERFASSTWANN] = @ERFASSTWANN, [GEAENDERTWER] = @GEA"& _ + "ENDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN, [DATEINAME] = @DATEINAME, [MELDEDAT"& _ + "UM] = @MELDEDATUM, [VERTRAG] = @VERTRAG, [NOTINLIST] = @NOTINLIST, [MODEL_NR] = "& _ + "@MODEL_NR, [DOPPELT_GEMELDET] = @DOPPELT_GEMELDET, [NO_SERIENNR] = @NO_SERIENNR,"& _ + " [A3DuplexSheets] = @A3DuplexSheets, [A3SimplexSheets] = @A3SimplexSheets, [A4Du"& _ + "plexSheets] = @A4DuplexSheets, [A4SimplexSheets] = @A4SimplexSheets, [A3ColorTot"& _ + "alImpressions] = @A3ColorTotalImpressions, [A3MonoTotalImpressions] = @A3MonoTot"& _ + "alImpressions, [A4MonoTotalImpressions] = @A4MonoTotalImpressions, [A4ColorTotal"& _ + "Impressions] = @A4ColorTotalImpressions, [AverageBlackCoverage] = @AverageBlackC"& _ + "overage, [AverageCyanCoverage] = @AverageCyanCoverage, [AverageMagentaCoverage] "& _ + "= @AverageMagentaCoverage, [AverageYellowCoverage] = @AverageYellowCoverage, [Sc"& _ + "anA3Total] = @ScanA3Total, [ScanA4Total] = @ScanA4Total WHERE (([GUID] = @Origin"& _ + "al_GUID) AND ([TIMESTAMP1] = @Original_TIMESTAMP1));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, GERAETE_ID, B"& _ + "EZEICHNUNG, IP_ADRESSE, SERIENNR, PAGE_COUNT, MARKT, ERFASSTWANN, GEAENDERTWER, "& _ + "GEAENDERTWANN, TIMESTAMP1, DATEINAME, MELDEDATUM, VERTRAG, NOTINLIST, MODEL_NR, "& _ + "DOPPELT_GEMELDET, NO_SERIENNR, A3DuplexSheets, A3SimplexSheets, A4DuplexSheets, "& _ + "A4SimplexSheets, A3ColorTotalImpressions, A3MonoTotalImpressions, A4MonoTotalImp"& _ + "ressions, A4ColorTotalImpressions, AverageBlackCoverage, AverageCyanCoverage, Av"& _ + "erageMagentaCoverage, AverageYellowCoverage, ScanA3Total, ScanA4Total FROM TBGER"& _ + "AETE_VERFOLGUNG WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAETE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAETE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IP_ADRESSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ADRESSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIENNR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATEINAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATEINAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MELDEDATUM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NOTINLIST", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NOTINLIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODEL_NR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODEL_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOPPELT_GEMELDET", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOPPELT_GEMELDET", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_SERIENNR", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_SERIENNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A3DuplexSheets", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "A3DuplexSheets", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A3SimplexSheets", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "A3SimplexSheets", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A4DuplexSheets", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "A4DuplexSheets", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A4SimplexSheets", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "A4SimplexSheets", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A3ColorTotalImpressions", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "A3ColorTotalImpressions", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A3MonoTotalImpressions", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "A3MonoTotalImpressions", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A4MonoTotalImpressions", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "A4MonoTotalImpressions", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A4ColorTotalImpressions", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "A4ColorTotalImpressions", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AverageBlackCoverage", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 0, "AverageBlackCoverage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AverageCyanCoverage", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 0, "AverageCyanCoverage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AverageMagentaCoverage", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 0, "AverageMagentaCoverage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AverageYellowCoverage", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 0, "AverageYellowCoverage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ScanA3Total", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ScanA3Total", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ScanA4Total", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ScanA4Total", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIMESTAMP1", Global.System.Data.SqlDbType.Timestamp, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIMESTAMP1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, GERAETE_ID, BEZEICHNUNG, IP_ADRESSE, SERIENNR, PAGE_COUNT, MARKT, ER"& _ + "FASSTWANN, GEAENDERTWER, GEAENDERTWANN, DATEINAME, MELDEDATUM, VERTRAG, NOTINLIS"& _ + "T, MODEL_NR, DOPPELT_GEMELDET, NO_SERIENNR, MARKT_ID, MODELL_ID, A3DuplexSheets,"& _ + " A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, A3ColorTotalImpressions, A3To"& _ + "talMonoImpressions, A4ColorTotalImpressions, A4MonoTotalImpressions, A4TotalColo"& _ + "rImpressions, A4TotalMonoImpressions, A3TotalImages, A4TotalImages, PPUTotalCopy"& _ + "PageCount, AverageBlackCoverage, AverageCyanCoverage, AverageMagentaCoverage, Av"& _ + "erageYellowCoverage, A3MonoTotalImpressions, ScanA3Total, ScanA4Total, MARKER, N"& _ + "O_CHANGE, KD_KZ, FAX_INCOMING, SCAN_A4_TOTAL, SCAN_A3_TOTAL, PAGE_COUNT_DIFF, PO"& _ + "RT_DISPLAY, BREAK_FIX, GERAETE_INSERT_OK FROM TBGERAETE_VERFOLGUNG" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBGERAETE_VERFOLGUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, IP_ADRES"& _ + "SE, SERIENNR, PAGE_COUNT, MARKT, DATEINAME, MELDEDATUM, VERTRAG, MODEL_NR, A3Dup"& _ + "lexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " A3ColorTotalImpressions, A3MonoTotalImpressions, A4MonoTotalImpressions,"& _ + " A4ColorTotalImpressions, AverageBlackCoverage, AverageCyanCoverage, AverageMage"& _ + "ntaCoverage, AverageYellowCoverage, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ScanA3Total, Scan"& _ + "A4Total, KD_KZ, FAX_INCOMING, SCAN_A4_TOTAL, SCAN_A3_TOTAL, PORT_DISPLAY)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUE"& _ + "S (@BEZEICHNUNG,@IP_ADRESSE,@SERIENNR,@PAGE_COUNT,@MARKT,@DATEINAME,@MELD"& _ + "EDATUM,@VERTRAG,@MODEL_NR,@A3DuplexSheets,@A3SimplexSheets,@A4DuplexSheets,@A4Si"& _ + "mplexSheets,@A3ColorTotalImpressions,@A3MonoTotalImpressions,@A4MonoTotalImpress"& _ + "ions,@A4ColorTotalImpressions,@AverageBlackCoverage,@AverageCyanCoverage,@Averag"& _ + "eMagentaCoverage,@AverageYellowCoverage,@ScanA3Total,@ScanA4Total,@KD_KZ,@FAX_IN"& _ + "COMING,@SCAN_A4_TOTAL,@SCAN_A3_TOTAL,@PORT_DISPLAY)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IP_ADRESSE", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ADRESSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIENNR", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAGE_COUNT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "MARKT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATEINAME", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "DATEINAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MELDEDATUM", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERTRAG", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "VERTRAG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODEL_NR", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "MODEL_NR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A3DuplexSheets", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A3DuplexSheets", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A3SimplexSheets", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A3SimplexSheets", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A4DuplexSheets", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A4DuplexSheets", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A4SimplexSheets", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A4SimplexSheets", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A3ColorTotalImpressions", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A3ColorTotalImpressions", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A3MonoTotalImpressions", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A3MonoTotalImpressions", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A4MonoTotalImpressions", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A4MonoTotalImpressions", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@A4ColorTotalImpressions", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "A4ColorTotalImpressions", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AverageBlackCoverage", Global.System.Data.SqlDbType.[Decimal], 5, Global.System.Data.ParameterDirection.Input, 8, 2, "AverageBlackCoverage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AverageCyanCoverage", Global.System.Data.SqlDbType.[Decimal], 5, Global.System.Data.ParameterDirection.Input, 8, 2, "AverageCyanCoverage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AverageMagentaCoverage", Global.System.Data.SqlDbType.[Decimal], 5, Global.System.Data.ParameterDirection.Input, 8, 2, "AverageMagentaCoverage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AverageYellowCoverage", Global.System.Data.SqlDbType.[Decimal], 5, Global.System.Data.ParameterDirection.Input, 8, 2, "AverageYellowCoverage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ScanA3Total", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ScanA3Total", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ScanA4Total", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ScanA4Total", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KD_KZ", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "KD_KZ", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FAX_INCOMING", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FAX_INCOMING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCAN_A4_TOTAL", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCAN_A4_TOTAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCAN_A3_TOTAL", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCAN_A3_TOTAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PORT_DISPLAY", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT_DISPLAY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT MAX(GUID) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGERAETE_VERFOLGUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (SERIENNR = @SERIENNR)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERIENNR", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SERIENNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "SELECT NOTINLIST FROM TBGERAETE_VERFOLGUNG WHERE (GUID = (SELECT MAX(GUID) AS Exp"& _ + "r1 FROM TBGERAETE_VERFOLGUNG AS TBGERAETE_VERFOLGUNG_1))" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGERAETE_VERFOLGUNGDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBGERAETE_VERFOLGUNGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBGERAETE_VERFOLGUNGDataTable = New MyDataset.TBGERAETE_VERFOLGUNGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGERAETE_VERFOLGUNGDataTable) 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, "TBGERAETE_VERFOLGUNG") + 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, ByVal Original_TIMESTAMP1() As Byte) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_TIMESTAMP1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TIMESTAMP1") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_TIMESTAMP1,Byte()) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal BEZEICHNUNG As String, _ + ByVal IP_ADRESSE As String, _ + ByVal SERIENNR As String, _ + ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), _ + ByVal MARKT As String, _ + ByVal DATEINAME As String, _ + ByVal MELDEDATUM As String, _ + ByVal VERTRAG As String, _ + ByVal MODEL_NR As String, _ + ByVal A3DuplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A3SimplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A4DuplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A4SimplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A3ColorTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal A3MonoTotalImpressions As Integer, _ + ByVal A4MonoTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal A4ColorTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal AverageBlackCoverage As Global.System.Nullable(Of Decimal), _ + ByVal AverageCyanCoverage As Global.System.Nullable(Of Decimal), _ + ByVal AverageMagentaCoverage As Global.System.Nullable(Of Decimal), _ + ByVal AverageYellowCoverage As Global.System.Nullable(Of Decimal), _ + ByVal ScanA3Total As Integer, _ + ByVal ScanA4Total As Global.System.Nullable(Of Integer), _ + ByVal KD_KZ As String, _ + ByVal FAX_INCOMING As Integer, _ + ByVal SCAN_A4_TOTAL As Integer, _ + ByVal SCAN_A3_TOTAL As Integer, _ + ByVal PORT_DISPLAY As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (IP_ADRESSE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(IP_ADRESSE,String) + End If + If (SERIENNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("SERIENNR") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERIENNR,String) + End If + If (PAGE_COUNT.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(PAGE_COUNT.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(MARKT,String) + End If + If (DATEINAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(DATEINAME,String) + End If + If (MELDEDATUM Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(MELDEDATUM,String) + End If + If (VERTRAG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(VERTRAG,String) + End If + If (MODEL_NR Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(MODEL_NR,String) + End If + If (A3DuplexSheets.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(A3DuplexSheets.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (A3SimplexSheets.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(10).Value = CType(A3SimplexSheets.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (A4DuplexSheets.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(11).Value = CType(A4DuplexSheets.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (A4SimplexSheets.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(12).Value = CType(A4SimplexSheets.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (A3ColorTotalImpressions.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(13).Value = CType(A3ColorTotalImpressions.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(14).Value = CType(A3MonoTotalImpressions,Integer) + If (A4MonoTotalImpressions.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(15).Value = CType(A4MonoTotalImpressions.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + If (A4ColorTotalImpressions.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(16).Value = CType(A4ColorTotalImpressions.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (AverageBlackCoverage.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(17).Value = CType(AverageBlackCoverage.Value,Decimal) + Else + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (AverageCyanCoverage.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(18).Value = CType(AverageCyanCoverage.Value,Decimal) + Else + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + If (AverageMagentaCoverage.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(19).Value = CType(AverageMagentaCoverage.Value,Decimal) + Else + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (AverageYellowCoverage.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(20).Value = CType(AverageYellowCoverage.Value,Decimal) + Else + Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(21).Value = CType(ScanA3Total,Integer) + If (ScanA4Total.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(22).Value = CType(ScanA4Total.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + End If + If (KD_KZ Is Nothing) Then + Throw New Global.System.ArgumentNullException("KD_KZ") + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(KD_KZ,String) + End If + Me.Adapter.InsertCommand.Parameters(24).Value = CType(FAX_INCOMING,Integer) + Me.Adapter.InsertCommand.Parameters(25).Value = CType(SCAN_A4_TOTAL,Integer) + Me.Adapter.InsertCommand.Parameters(26).Value = CType(SCAN_A3_TOTAL,Integer) + If (PORT_DISPLAY Is Nothing) Then + Throw New Global.System.ArgumentNullException("PORT_DISPLAY") + Else + Me.Adapter.InsertCommand.Parameters(27).Value = CType(PORT_DISPLAY,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal GERAETE_ID As Global.System.Nullable(Of Integer), _ + ByVal BEZEICHNUNG As String, _ + ByVal IP_ADRESSE As String, _ + ByVal SERIENNR As String, _ + ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), _ + ByVal MARKT As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal DATEINAME As String, _ + ByVal MELDEDATUM As String, _ + ByVal VERTRAG As String, _ + ByVal NOTINLIST As Boolean, _ + ByVal MODEL_NR As String, _ + ByVal DOPPELT_GEMELDET As Boolean, _ + ByVal NO_SERIENNR As Boolean, _ + ByVal A3DuplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A3SimplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A4DuplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A4SimplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A3ColorTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal A3MonoTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal A4MonoTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal A4ColorTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal AverageBlackCoverage As Global.System.Nullable(Of Decimal), _ + ByVal AverageCyanCoverage As Global.System.Nullable(Of Decimal), _ + ByVal AverageMagentaCoverage As Global.System.Nullable(Of Decimal), _ + ByVal AverageYellowCoverage As Global.System.Nullable(Of Decimal), _ + ByVal ScanA3Total As Global.System.Nullable(Of Integer), _ + ByVal ScanA4Total As Global.System.Nullable(Of Integer), _ + ByVal Original_GUID As Integer, _ + ByVal Original_TIMESTAMP1() As Byte, _ + ByVal GUID As Integer) As Integer + If (GERAETE_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GERAETE_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BEZEICHNUNG,String) + End If + If (IP_ADRESSE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IP_ADRESSE,String) + End If + If (SERIENNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("SERIENNR") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SERIENNR,String) + End If + If (PAGE_COUNT.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(PAGE_COUNT.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(MARKT,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ERFASSTWANN,Date) + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEAENDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEAENDERTWANN,Date) + If (DATEINAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(DATEINAME,String) + End If + If (MELDEDATUM Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(MELDEDATUM,String) + End If + If (VERTRAG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(VERTRAG,String) + End If + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(NOTINLIST,Boolean) + If (MODEL_NR Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(MODEL_NR,String) + End If + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(DOPPELT_GEMELDET,Boolean) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(NO_SERIENNR,Boolean) + If (A3DuplexSheets.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(A3DuplexSheets.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (A3SimplexSheets.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(A3SimplexSheets.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (A4DuplexSheets.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(A4DuplexSheets.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + If (A4SimplexSheets.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(A4SimplexSheets.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (A3ColorTotalImpressions.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(A3ColorTotalImpressions.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + End If + If (A3MonoTotalImpressions.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(A3MonoTotalImpressions.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + If (A4MonoTotalImpressions.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(A4MonoTotalImpressions.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + End If + If (A4ColorTotalImpressions.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(A4ColorTotalImpressions.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + If (AverageBlackCoverage.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(AverageBlackCoverage.Value,Decimal) + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + End If + If (AverageCyanCoverage.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(AverageCyanCoverage.Value,Decimal) + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + End If + If (AverageMagentaCoverage.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(AverageMagentaCoverage.Value,Decimal) + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + End If + If (AverageYellowCoverage.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(AverageYellowCoverage.Value,Decimal) + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + End If + If (ScanA3Total.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(ScanA3Total.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value + End If + If (ScanA4Total.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(ScanA4Total.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_GUID,Integer) + If (Original_TIMESTAMP1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TIMESTAMP1") + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_TIMESTAMP1,Byte()) + End If + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal GERAETE_ID As Global.System.Nullable(Of Integer), _ + ByVal BEZEICHNUNG As String, _ + ByVal IP_ADRESSE As String, _ + ByVal SERIENNR As String, _ + ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), _ + ByVal MARKT As String, _ + ByVal ERFASSTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal DATEINAME As String, _ + ByVal MELDEDATUM As String, _ + ByVal VERTRAG As String, _ + ByVal NOTINLIST As Boolean, _ + ByVal MODEL_NR As String, _ + ByVal DOPPELT_GEMELDET As Boolean, _ + ByVal NO_SERIENNR As Boolean, _ + ByVal A3DuplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A3SimplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A4DuplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A4SimplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A3ColorTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal A3MonoTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal A4MonoTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal A4ColorTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal AverageBlackCoverage As Global.System.Nullable(Of Decimal), _ + ByVal AverageCyanCoverage As Global.System.Nullable(Of Decimal), _ + ByVal AverageMagentaCoverage As Global.System.Nullable(Of Decimal), _ + ByVal AverageYellowCoverage As Global.System.Nullable(Of Decimal), _ + ByVal ScanA3Total As Global.System.Nullable(Of Integer), _ + ByVal ScanA4Total As Global.System.Nullable(Of Integer), _ + ByVal Original_GUID As Integer, _ + ByVal Original_TIMESTAMP1() As Byte) As Integer + Return Me.Update(GERAETE_ID, BEZEICHNUNG, IP_ADRESSE, SERIENNR, PAGE_COUNT, MARKT, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, DATEINAME, MELDEDATUM, VERTRAG, NOTINLIST, MODEL_NR, DOPPELT_GEMELDET, NO_SERIENNR, A3DuplexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, A3ColorTotalImpressions, A3MonoTotalImpressions, A4MonoTotalImpressions, A4ColorTotalImpressions, AverageBlackCoverage, AverageCyanCoverage, AverageMagentaCoverage, AverageYellowCoverage, ScanA3Total, ScanA4Total, Original_GUID, Original_TIMESTAMP1, Original_GUID) + End Function + + _ + Public Overloads Overridable Function cmdinsert( _ + ByVal BEZEICHNUNG As String, _ + ByVal IP_ADRESSE As String, _ + ByVal SERIENNR As String, _ + ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), _ + ByVal MARKT As String, _ + ByVal DATEINAME As String, _ + ByVal MELDEDATUM As String, _ + ByVal VERTRAG As String, _ + ByVal MODEL_NR As String, _ + ByVal A3DuplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A3SimplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A4DuplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A4SimplexSheets As Global.System.Nullable(Of Integer), _ + ByVal A3ColorTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal A3MonoTotalImpressions As Integer, _ + ByVal A4MonoTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal A4ColorTotalImpressions As Global.System.Nullable(Of Integer), _ + ByVal AverageBlackCoverage As Global.System.Nullable(Of Decimal), _ + ByVal AverageCyanCoverage As Global.System.Nullable(Of Decimal), _ + ByVal AverageMagentaCoverage As Global.System.Nullable(Of Decimal), _ + ByVal AverageYellowCoverage As Global.System.Nullable(Of Decimal), _ + ByVal ScanA3Total As Integer, _ + ByVal ScanA4Total As Global.System.Nullable(Of Integer), _ + ByVal KD_KZ As String, _ + ByVal FAX_INCOMING As Integer, _ + ByVal SCAN_A4_TOTAL As Integer, _ + ByVal SCAN_A3_TOTAL As Integer, _ + ByVal PORT_DISPLAY As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (BEZEICHNUNG Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (IP_ADRESSE Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(IP_ADRESSE,String) + End If + If (SERIENNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("SERIENNR") + Else + command.Parameters(2).Value = CType(SERIENNR,String) + End If + If (PAGE_COUNT.HasValue = true) Then + command.Parameters(3).Value = CType(PAGE_COUNT.Value,Integer) + Else + command.Parameters(3).Value = Global.System.DBNull.Value + End If + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + command.Parameters(4).Value = CType(MARKT,String) + End If + If (DATEINAME Is Nothing) Then + command.Parameters(5).Value = Global.System.DBNull.Value + Else + command.Parameters(5).Value = CType(DATEINAME,String) + End If + If (MELDEDATUM Is Nothing) Then + command.Parameters(6).Value = Global.System.DBNull.Value + Else + command.Parameters(6).Value = CType(MELDEDATUM,String) + End If + If (VERTRAG Is Nothing) Then + command.Parameters(7).Value = Global.System.DBNull.Value + Else + command.Parameters(7).Value = CType(VERTRAG,String) + End If + If (MODEL_NR Is Nothing) Then + command.Parameters(8).Value = Global.System.DBNull.Value + Else + command.Parameters(8).Value = CType(MODEL_NR,String) + End If + If (A3DuplexSheets.HasValue = true) Then + command.Parameters(9).Value = CType(A3DuplexSheets.Value,Integer) + Else + command.Parameters(9).Value = Global.System.DBNull.Value + End If + If (A3SimplexSheets.HasValue = true) Then + command.Parameters(10).Value = CType(A3SimplexSheets.Value,Integer) + Else + command.Parameters(10).Value = Global.System.DBNull.Value + End If + If (A4DuplexSheets.HasValue = true) Then + command.Parameters(11).Value = CType(A4DuplexSheets.Value,Integer) + Else + command.Parameters(11).Value = Global.System.DBNull.Value + End If + If (A4SimplexSheets.HasValue = true) Then + command.Parameters(12).Value = CType(A4SimplexSheets.Value,Integer) + Else + command.Parameters(12).Value = Global.System.DBNull.Value + End If + If (A3ColorTotalImpressions.HasValue = true) Then + command.Parameters(13).Value = CType(A3ColorTotalImpressions.Value,Integer) + Else + command.Parameters(13).Value = Global.System.DBNull.Value + End If + command.Parameters(14).Value = CType(A3MonoTotalImpressions,Integer) + If (A4MonoTotalImpressions.HasValue = true) Then + command.Parameters(15).Value = CType(A4MonoTotalImpressions.Value,Integer) + Else + command.Parameters(15).Value = Global.System.DBNull.Value + End If + If (A4ColorTotalImpressions.HasValue = true) Then + command.Parameters(16).Value = CType(A4ColorTotalImpressions.Value,Integer) + Else + command.Parameters(16).Value = Global.System.DBNull.Value + End If + If (AverageBlackCoverage.HasValue = true) Then + command.Parameters(17).Value = CType(AverageBlackCoverage.Value,Decimal) + Else + command.Parameters(17).Value = Global.System.DBNull.Value + End If + If (AverageCyanCoverage.HasValue = true) Then + command.Parameters(18).Value = CType(AverageCyanCoverage.Value,Decimal) + Else + command.Parameters(18).Value = Global.System.DBNull.Value + End If + If (AverageMagentaCoverage.HasValue = true) Then + command.Parameters(19).Value = CType(AverageMagentaCoverage.Value,Decimal) + Else + command.Parameters(19).Value = Global.System.DBNull.Value + End If + If (AverageYellowCoverage.HasValue = true) Then + command.Parameters(20).Value = CType(AverageYellowCoverage.Value,Decimal) + Else + command.Parameters(20).Value = Global.System.DBNull.Value + End If + command.Parameters(21).Value = CType(ScanA3Total,Integer) + If (ScanA4Total.HasValue = true) Then + command.Parameters(22).Value = CType(ScanA4Total.Value,Integer) + Else + command.Parameters(22).Value = Global.System.DBNull.Value + End If + If (KD_KZ Is Nothing) Then + Throw New Global.System.ArgumentNullException("KD_KZ") + Else + command.Parameters(23).Value = CType(KD_KZ,String) + End If + command.Parameters(24).Value = CType(FAX_INCOMING,Integer) + command.Parameters(25).Value = CType(SCAN_A4_TOTAL,Integer) + command.Parameters(26).Value = CType(SCAN_A3_TOTAL,Integer) + If (PORT_DISPLAY Is Nothing) Then + Throw New Global.System.ArgumentNullException("PORT_DISPLAY") + Else + command.Parameters(27).Value = CType(PORT_DISPLAY,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function CmdMaxGUID(ByVal SERIENNR As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (SERIENNR Is Nothing) Then + Throw New Global.System.ArgumentNullException("SERIENNR") + Else + command.Parameters(0).Value = CType(SERIENNR,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + + _ + Public Overloads Overridable Function cmdNotInList() As Global.System.Nullable(Of Boolean) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Boolean)() + Else + Return New Global.System.Nullable(Of Boolean)(CType(returnValue,Boolean)) + End If + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWMarkt_VerfolgungTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWMarkt_Verfolgung" + tableMapping.ColumnMappings.Add("GERAETE_ID", "GERAETE_ID") + tableMapping.ColumnMappings.Add("DEVICE", "DEVICE") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("PAGE_MIN", "PAGE_MIN") + tableMapping.ColumnMappings.Add("PAGE_MAX", "PAGE_MAX") + tableMapping.ColumnMappings.Add("DRUCKSEITEN", "DRUCKSEITEN") + tableMapping.ColumnMappings.Add("LETZTES_MELDEDATUM", "LETZTES_MELDEDATUM") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"REPLACE(MARKT, ' ', '') AS MARKT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GERAETE_ID,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SERIENNR,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"(SELEC"& _ + "T BEZEICHNUNG FROM TBGERAET AS tg WHERE (GUID = GERAETE_ID)) AS DEVICE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"MIN(PA"& _ + "GE_COUNT) AS PAGE_MIN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"MAX(PAGE_COUNT) AS PAGE_MAX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"MAX(PAGE_COUNT) - MIN(PA"& _ + "GE_COUNT) AS DRUCKSEITEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"MAX(CONVERT(DATE, MELDEDATUM)) AS LETZTES_MELDEDATUM"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"MC2_SUPPLYWATCH_VERFOLGUNG.dbo.TBGERAETE_VERFOLGUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE PAGE_COUNT > "& _ + "0 AND GERAETE_ID IS NOT NULL AND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" REPLACE(MARKT, ' ', '') = REPLACE(@MARKT, ' '"& _ + ", '') AND CONVERT(DATE, MELDEDATUM) BETWEEN CONVERT(DATE,@DATEVON) AND CONVERT(D"& _ + "ATE,@DATE_BIS) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"GERAETE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"SERIENNR,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"REPLACE(MARKT, ' ', '')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY MAX(CONVERT(DATE, MELDEDATUM)) " + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATEVON", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_BIS", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWMarkt_VerfolgungDataTable, ByVal MARKT As String, ByVal DATEVON As String, ByVal DATE_BIS As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + If (DATEVON Is Nothing) Then + Throw New Global.System.ArgumentNullException("DATEVON") + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(DATEVON,String) + End If + If (DATE_BIS Is Nothing) Then + Throw New Global.System.ArgumentNullException("DATE_BIS") + Else + Me.Adapter.SelectCommand.Parameters(2).Value = CType(DATE_BIS,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal MARKT As String, ByVal DATEVON As String, ByVal DATE_BIS As String) As MyDataset.VWMarkt_VerfolgungDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MARKT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MARKT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MARKT,String) + End If + If (DATEVON Is Nothing) Then + Throw New Global.System.ArgumentNullException("DATEVON") + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(DATEVON,String) + End If + If (DATE_BIS Is Nothing) Then + Throw New Global.System.ArgumentNullException("DATE_BIS") + Else + Me.Adapter.SelectCommand.Parameters(2).Value = CType(DATE_BIS,String) + End If + Dim dataTable As MyDataset.VWMarkt_VerfolgungDataTable = New MyDataset.VWMarkt_VerfolgungDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWGERAETE_VERFOLGUNGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWGERAETE_VERFOLGUNG" + tableMapping.ColumnMappings.Add("MODELL", "MODELL") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("PC_INITIAL", "PC_INITIAL") + tableMapping.ColumnMappings.Add("PAGE_COUNT", "PAGE_COUNT") + tableMapping.ColumnMappings.Add("PPM", "PPM") + tableMapping.ColumnMappings.Add("MELDEDATUM", "MELDEDATUM") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("DATEINAME", "DATEINAME") + tableMapping.ColumnMappings.Add("IP_ADRESSE", "IP_ADRESSE") + tableMapping.ColumnMappings.Add("DATE_INITIAL", "DATE_INITIAL") + tableMapping.ColumnMappings.Add("GERAETE_ID", "GERAETE_ID") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT MODELL, MARKT, SERIENNR, PC_INITIAL, PAGE_COUNT, PPM, MELDEDATUM, E"& _ + "RFASSTWANN, DATEINAME, IP_ADRESSE, DATE_INITIAL, GERAETE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWG"& _ + "ERAETE_VERFOLGUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GERAETE_ID = @GERAETE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY MELDEDATUM" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAETE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAETE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT DATEINAME, DATE_INITIAL, ERFASSTWANN, GERAETE_ID, IP_ADRESSE, MARKT"& _ + ", MELDEDATUM, MODELL, PAGE_COUNT, PC_INITIAL, PPM, SERIENNR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWG"& _ + "ERAETE_VERFOLGUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GERAETE_ID = @GERAETE_ID) AND (MELDEDATUM BETWE"& _ + "EN @DATUMVON AND @DATUMBIS)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY MELDEDATUM" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAETE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAETE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATUMVON", Global.System.Data.SqlDbType.[Date], 3, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATUMBIS", Global.System.Data.SqlDbType.[Date], 3, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGERAETE_VERFOLGUNGDataTable, ByVal GERAETE_ID As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (GERAETE_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAETE_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GERAETE_ID As Global.System.Nullable(Of Integer)) As MyDataset.VWGERAETE_VERFOLGUNGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (GERAETE_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAETE_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As MyDataset.VWGERAETE_VERFOLGUNGDataTable = New MyDataset.VWGERAETE_VERFOLGUNGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByDate(ByVal dataTable As MyDataset.VWGERAETE_VERFOLGUNGDataTable, ByVal GERAETE_ID As Global.System.Nullable(Of Integer), ByVal DATUMVON As String, ByVal DATUMBIS As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (GERAETE_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAETE_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (DATUMVON Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(DATUMVON,String) + End If + If (DATUMBIS Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(2).Value = CType(DATUMBIS,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByDate(ByVal GERAETE_ID As Global.System.Nullable(Of Integer), ByVal DATUMVON As String, ByVal DATUMBIS As String) As MyDataset.VWGERAETE_VERFOLGUNGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (GERAETE_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAETE_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (DATUMVON Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(DATUMVON,String) + End If + If (DATUMBIS Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(2).Value = CType(DATUMBIS,String) + End If + Dim dataTable As MyDataset.VWGERAETE_VERFOLGUNGDataTable = New MyDataset.VWGERAETE_VERFOLGUNGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBREFLISTE_HISTORYTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBREFLISTE_HISTORY" + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("Datum", "Datum") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT ERFASSTWER, CONVERT(date, ERFASSTWANN) AS Datum"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TB"& _ + "PRODUKT_VERTRAG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY ERFASSTWER, CONVERT(date, ERFASSTWANN)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Datum"& _ + " DESC" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBREFLISTE_HISTORYDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBREFLISTE_HISTORYDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBREFLISTE_HISTORYDataTable = New MyDataset.TBREFLISTE_HISTORYDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBMANDANTENTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBMANDANTEN" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("NAME_LANG", "NAME_LANG") + tableMapping.ColumnMappings.Add("KENNZEICHEN", "KENNZEICHEN") + tableMapping.ColumnMappings.Add("FLEETWATCH", "FLEETWATCH") + tableMapping.ColumnMappings.Add("SUPPLYWATCH", "SUPPLYWATCH") + tableMapping.ColumnMappings.Add("ERSTELLLTWER", "ERSTELLLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("FILTER", "FILTER") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBMANDANTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, NAME_LANG, KENNZEICHEN, "& _ + "FLEETWATCH, SUPPLYWATCH, ERSTELLLTWER, FILTER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@NAME_LANG,"& _ + "@KENNZEICHEN,@FLEETWATCH,@SUPPLYWATCH,@ERSTELLLTWER,@FILTER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NA"& _ + "ME, NAME_LANG, KENNZEICHEN, FLEETWATCH, SUPPLYWATCH, ERSTELLLTWER, ERSTELLTWANN,"& _ + " GEAENDERTWER, GEAENDERTWANN FROM TBMANDANTEN WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_LANG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_LANG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KENNZEICHEN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "KENNZEICHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FLEETWATCH", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FLEETWATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLYWATCH", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLYWATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLLTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILTER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FILTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBMANDANTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, NAME_LANG = @NAME_LANG"& _ + ", KENNZEICHEN = @KENNZEICHEN, FLEETWATCH = @FLEETWATCH, SUPPLYWATCH = @SUPPLYWAT"& _ + "CH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" GEAENDERTWER = @GEAENDERTWER, FILTER = @FILTER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"W"& _ + "HERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, NAME_LANG, KENNZEICHE"& _ + "N, FLEETWATCH, SUPPLYWATCH, ERSTELLLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTW"& _ + "ANN FROM TBMANDANTEN WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_LANG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_LANG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KENNZEICHEN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "KENNZEICHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FLEETWATCH", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FLEETWATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLYWATCH", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLYWATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILTER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FILTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, NAME_LANG, KENNZEICHEN, FLEETWATCH, SUPPLYWATCH, ERSTEL"& _ + "LLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FI"& _ + "LTER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMANDANTEN" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT SUPPLYWATCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMANDANTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (UPPER(KENNZ"& _ + "EICHEN) = UPPER(@kz))" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@kz", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT GUID AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBMANDANTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LOWER(NAM"& _ + "E) = LOWER(@name))" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBMANDANTENDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBMANDANTENDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBMANDANTENDataTable = New MyDataset.TBMANDANTENDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBMANDANTENDataTable) 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, "TBMANDANTEN") + 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 Insert(ByVal NAME As String, ByVal NAME_LANG As String, ByVal KENNZEICHEN As String, ByVal FLEETWATCH As Boolean, ByVal SUPPLYWATCH As Boolean, ByVal ERSTELLLTWER As String, ByVal FILTER As String) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (NAME_LANG Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME_LANG") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME_LANG,String) + End If + If (KENNZEICHEN Is Nothing) Then + Throw New Global.System.ArgumentNullException("KENNZEICHEN") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(KENNZEICHEN,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(FLEETWATCH,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SUPPLYWATCH,Boolean) + If (ERSTELLLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLLTWER") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ERSTELLLTWER,String) + End If + If (FILTER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(FILTER,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal NAME_LANG As String, ByVal KENNZEICHEN As String, ByVal FLEETWATCH As Boolean, ByVal SUPPLYWATCH As Boolean, ByVal GEAENDERTWER As String, ByVal FILTER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + If (NAME_LANG Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME_LANG") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME_LANG,String) + End If + If (KENNZEICHEN Is Nothing) Then + Throw New Global.System.ArgumentNullException("KENNZEICHEN") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KENNZEICHEN,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FLEETWATCH,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SUPPLYWATCH,Boolean) + If (GEAENDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERTWER,String) + End If + If (FILTER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(FILTER,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function cmdCheckSW_aktiv(ByVal kz As String) As Global.System.Nullable(Of Boolean) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (kz Is Nothing) Then + Throw New Global.System.ArgumentNullException("kz") + Else + command.Parameters(0).Value = CType(kz,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Boolean)() + Else + Return New Global.System.Nullable(Of Boolean)(CType(returnValue,Boolean)) + End If + End Function + + _ + Public Overloads Overridable Function cmdGetMandID(ByVal name As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (name Is Nothing) Then + Throw New Global.System.ArgumentNullException("name") + Else + command.Parameters(0).Value = CType(name,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWSUPPLY_VERFOLGUNGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWSUPPLY_VERFOLGUNG" + tableMapping.ColumnMappings.Add("MODELL", "MODELL") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("SUPPLY", "SUPPLY") + tableMapping.ColumnMappings.Add("SUPPLY_LEVEL", "SUPPLY_LEVEL") + tableMapping.ColumnMappings.Add("MELDEDATUM", "MELDEDATUM") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("STATUS", "STATUS") + tableMapping.ColumnMappings.Add("SUPPLY_SERIENNR", "SUPPLY_SERIENNR") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT MODELL, MARKT, SERIENNR, SUPPLY, SUPPLY_LEVEL, MELDEDATUM, ERFASSTW"& _ + "ANN, STATUS, SUPPLY_SERIENNR, PARTNUMBER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSUPPLY_VERFOLGUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"W"& _ + "HERE (GERAET_ID = @GERAET_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY MELDEDATUM" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT MODELL, MARKT, SERIENNR, SUPPLY, SUPPLY_LEVEL, MELDEDATUM, ERFASSTW"& _ + "ANN, STATUS, SUPPLY_SERIENNR, PARTNUMBER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSUPPLY_VERFOLGUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"W"& _ + "HERE (GERAET_ID = @GERAET_ID) AND (MELDEDATUM BETWEEN @datevon AND @dateb"& _ + "is)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY MELDEDATUM" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@datevon", Global.System.Data.SqlDbType.[Date], 3, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@datebis", Global.System.Data.SqlDbType.[Date], 3, Global.System.Data.ParameterDirection.Input, 0, 0, "MELDEDATUM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT SUPPLY, SUPPLY_LEVEL, MELDEDATUM, ERFASSTWANN, STATUS, SUPPLY_SERIE"& _ + "NNR, PARTNUMBER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSUPPLY_VERFOLGUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (SUPPLY_ID = "& _ + "@SUPPLY_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY ERFASSTWANN DESC" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWSUPPLY_VERFOLGUNGDataTable, ByVal GERAET_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAET_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GERAET_ID As Integer) As MyDataset.VWSUPPLY_VERFOLGUNGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAET_ID,Integer) + Dim dataTable As MyDataset.VWSUPPLY_VERFOLGUNGDataTable = New MyDataset.VWSUPPLY_VERFOLGUNGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByDate(ByVal dataTable As MyDataset.VWSUPPLY_VERFOLGUNGDataTable, ByVal GERAET_ID As Integer, ByVal datevon As String, ByVal datebis As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAET_ID,Integer) + If (datevon Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(datevon,String) + End If + If (datebis Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(2).Value = CType(datebis,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByDate(ByVal GERAET_ID As Integer, ByVal datevon As String, ByVal datebis As String) As MyDataset.VWSUPPLY_VERFOLGUNGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAET_ID,Integer) + If (datevon Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(datevon,String) + End If + If (datebis Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(2).Value = CType(datebis,String) + End If + Dim dataTable As MyDataset.VWSUPPLY_VERFOLGUNGDataTable = New MyDataset.VWSUPPLY_VERFOLGUNGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillBySUPPLYID(ByVal dataTable As MyDataset.VWSUPPLY_VERFOLGUNGDataTable, ByVal SUPPLY_ID As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (SUPPLY_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(SUPPLY_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBySUPPLYID(ByVal SUPPLY_ID As Global.System.Nullable(Of Integer)) As MyDataset.VWSUPPLY_VERFOLGUNGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (SUPPLY_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(SUPPLY_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As MyDataset.VWSUPPLY_VERFOLGUNGDataTable = New MyDataset.VWSUPPLY_VERFOLGUNGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIMPORT_PRODUKTE_DUPLIKATETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIMPORT_PRODUKTE_DUPLIKATE" + tableMapping.ColumnMappings.Add("SERIAL", "SERIAL") + tableMapping.ColumnMappings.Add("DUPLIKATE", "DUPLIKATE") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT RTRIM(LTRIM(SERIEN_NR)) AS SERIAL, COUNT(SERIEN_NR) AS DUPLIKATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"F"& _ + "ROM TBIMPORT_PRODUKT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY RTRIM(LTRIM(SERIEN_NR)), ABGEBAUT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"HAV"& _ + "ING (COUNT(SERIEN_NR) > 1) AND (ABGEBAUT = 0)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBIMPORT_PRODUKTE_DUPLIKATEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBIMPORT_PRODUKTE_DUPLIKATEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBIMPORT_PRODUKTE_DUPLIKATEDataTable = New MyDataset.TBIMPORT_PRODUKTE_DUPLIKATEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCHANGE_LOG_GERAETTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCHANGE_LOG_GERAET" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("MELDUNG", "MELDUNG") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, MELDUNG, ERFASSTWER, ERFASSTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCHANGE_LO"& _ + "G_GERAET"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GERAET_ID = @GERAET_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY ERFASSTWANN DESC" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GERAET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GERAET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCHANGE_LOG_GERAETDataTable, ByVal GERAET_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAET_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GERAET_ID As Integer) As MyDataset.TBCHANGE_LOG_GERAETDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GERAET_ID,Integer) + Dim dataTable As MyDataset.TBCHANGE_LOG_GERAETDataTable = New MyDataset.TBCHANGE_LOG_GERAETDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBSERVICE_IMP_LOGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBSERVICE_IMP_LOG" + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("VERTRAG", "VERTRAG") + tableMapping.ColumnMappings.Add("MELDEDATUM", "MELDEDATUM") + tableMapping.ColumnMappings.Add("IMPORT_DATUM", "IMPORT_DATUM") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("IMPORT_STATE", "IMPORT_STATE") + tableMapping.ColumnMappings.Add("DATEI", "DATEI") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBMANDANTEN.NAME, TBIMP_LOG_FILE.VERTRAG, TBIMP_LOG_FILE.MELDEDATUM"& _ + ", TBIMP_LOG_FILE.IMPORT_DATUM, TBIMP_LOG_FILE.ERFASSTWANN, TBIMP_LOG_FILE.IMPORT"& _ + "_STATE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIMP_LOG_FILE.DATEI"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIMP_L"& _ + "OG_FILE INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBMANDANTEN ON TBIMP_LOG_FILE.MANDA"& _ + "NT_ID = TBMANDANTEN.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBIMP_LOG_FILE.IMPORT_DATUM = CONVERT(DA"& _ + "TE, GETDATE()))" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBSERVICE_IMP_LOGDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBSERVICE_IMP_LOGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBSERVICE_IMP_LOGDataTable = New MyDataset.TBSERVICE_IMP_LOGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWGERAETE_MELDUNG_STATUSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWGERAETE_MELDUNG_STATUS" + tableMapping.ColumnMappings.Add("MANDANT_ID", "MANDANT_ID") + tableMapping.ColumnMappings.Add("GERAETE_ID", "GERAETE_ID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("MELDEDATUM", "MELDEDATUM") + tableMapping.ColumnMappings.Add("VERTRAG", "VERTRAG") + tableMapping.ColumnMappings.Add("STATE", "STATE") + tableMapping.ColumnMappings.Add("MARKER", "MARKER") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT MANDANT_ID, GERAETE_ID, BEZEICHNUNG, SERIENNR, MARKT, MELDEDATUM, V"& _ + "ERTRAG, STATE, MARKER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWGERAETE_MELDUNG_STATUS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGERAETE_MELDUNG_STATUSDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.VWGERAETE_MELDUNG_STATUSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.VWGERAETE_MELDUNG_STATUSDataTable = New MyDataset.VWGERAETE_MELDUNG_STATUSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class ViewSUPPLY_STATUS_VERFOLGUNGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "ViewSUPPLY_STATUS_VERFOLGUNG" + tableMapping.ColumnMappings.Add("Meldedatum", "Meldedatum") + tableMapping.ColumnMappings.Add("Status", "Status") + tableMapping.ColumnMappings.Add("Marker", "Marker") + tableMapping.ColumnMappings.Add("Erfasst wann", "Erfasst wann") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT T.MELDEDATUM AS Meldedatum, T1.BEZEICHNUNG AS Status, T.MARKER AS M"& _ + "arker, T.ERFASSTWANN AS [Erfasst wann]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBSUPPLY_STATUS_VERFOLGU"& _ + "NG AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBSTATUS AS T1 ON T.STATUS_ID = T1."& _ + "GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.SUPPLY_ID = @SUPPLY_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY T.GUID DESC" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUPPLY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SUPPLY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.ViewSUPPLY_STATUS_VERFOLGUNGDataTable, ByVal SUPPLY_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(SUPPLY_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal SUPPLY_ID As Integer) As MyDataset.ViewSUPPLY_STATUS_VERFOLGUNGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(SUPPLY_ID,Integer) + Dim dataTable As MyDataset.ViewSUPPLY_STATUS_VERFOLGUNGDataTable = New MyDataset.ViewSUPPLY_STATUS_VERFOLGUNGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWSUPPLIES_BESTELLUNG_GESENDETTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWSUPPLIES_BESTELLUNG_GESENDET" + tableMapping.ColumnMappings.Add("BESTELL_ID", "BESTELL_ID") + tableMapping.ColumnMappings.Add("BESTELLT_WANN", "BESTELLT_WANN") + tableMapping.ColumnMappings.Add("BESTELLT_WER", "BESTELLT_WER") + tableMapping.ColumnMappings.Add("GERAET", "GERAET") + tableMapping.ColumnMappings.Add("MANUELL", "MANUELL") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("MENGE", "MENGE") + tableMapping.ColumnMappings.Add("SERIEN_NR", "SERIEN_NR") + tableMapping.ColumnMappings.Add("SUPPLY_BEZEICHNUNG", "SUPPLY_BEZEICHNUNG") + tableMapping.ColumnMappings.Add("MANDANT", "MANDANT") + tableMapping.ColumnMappings.Add("SUPPLY_ID", "SUPPLY_ID") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT BESTELL_ID, SUPPLY_ID, BESTELLT_WANN, BESTELLT_WER, GERAET, MANUELL"& _ + ", MARKT, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, MANDANT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSUPPLI"& _ + "ES_BESTELLUNG_GESENDET"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MANDANT = @MANDANT)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "DELETE FROm TBSUPPLY_BESTELLUNG WHERE GUID = @GUID" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWSUPPLIES_BESTELLUNG_GESENDETDataTable, ByVal MANDANT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal MANDANT As String) As MyDataset.VWSUPPLIES_BESTELLUNG_GESENDETDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + Dim dataTable As MyDataset.VWSUPPLIES_BESTELLUNG_GESENDETDataTable = New MyDataset.VWSUPPLIES_BESTELLUNG_GESENDETDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function cmdDeleteBestellung(ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWRPT_SUPPLIES_TOORDERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWRPT_SUPPLIES_TOORDER" + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("GERAET", "GERAET") + tableMapping.ColumnMappings.Add("GERAET_IP", "GERAET_IP") + tableMapping.ColumnMappings.Add("GERAET_SERIENNR", "GERAET_SERIENNR") + tableMapping.ColumnMappings.Add("GERAET_PAGECOUNT", "GERAET_PAGECOUNT") + tableMapping.ColumnMappings.Add("GERAET_PPM", "GERAET_PPM") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("SUPPLY_BEZ", "SUPPLY_BEZ") + tableMapping.ColumnMappings.Add("LEVEL", "LEVEL") + tableMapping.ColumnMappings.Add("SCHWELLENWERT", "SCHWELLENWERT") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("STATUS", "STATUS") + tableMapping.ColumnMappings.Add("VERTRAG", "VERTRAG") + tableMapping.ColumnMappings.Add("PARTNUMBER_ORDER", "PARTNUMBER_ORDER") + tableMapping.ColumnMappings.Add("MANUELL", "MANUELL") + tableMapping.ColumnMappings.Add("ANZAHL", "ANZAHL") + tableMapping.ColumnMappings.Add("SUPPLY_ID", "SUPPLY_ID") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GEAENDERTWER, GERAET, GERAET_IP, GERAET_SERIENNR, GERAET_PAGECOUNT,"& _ + " GERAET_PPM, MARKT, SUPPLY_BEZ, LEVEL, SCHWELLENWERT, PARTNUMBER, SERIENNR, STAT"& _ + "US, VERTRAG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PARTNUMBER_ORDER, CONVERT(BIT, MANUELL) "& _ + "AS MANUELL, ANZAHL, SUPPLY_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWRPT_SUPPLIES_TOORDER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (MANDANT = @MANDANT)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWRPT_SUPPLIES_TOORDERDataTable, ByVal MANDANT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal MANDANT As String) As MyDataset.VWRPT_SUPPLIES_TOORDERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + Dim dataTable As MyDataset.VWRPT_SUPPLIES_TOORDERDataTable = New MyDataset.VWRPT_SUPPLIES_TOORDERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWSUPPLIES_2_ORDERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWSUPPLIES_2_ORDER" + tableMapping.ColumnMappings.Add("MANDANT", "MANDANT") + tableMapping.ColumnMappings.Add("MANDANT_ID", "MANDANT_ID") + tableMapping.ColumnMappings.Add("SUPPLY_ID", "SUPPLY_ID") + tableMapping.ColumnMappings.Add("GERAET_ID", "GERAET_ID") + tableMapping.ColumnMappings.Add("DEVICE", "DEVICE") + tableMapping.ColumnMappings.Add("DEVICE_SERIAL", "DEVICE_SERIAL") + tableMapping.ColumnMappings.Add("MARKT", "MARKT") + tableMapping.ColumnMappings.Add("PAGE_COUNT", "PAGE_COUNT") + tableMapping.ColumnMappings.Add("PPM", "PPM") + tableMapping.ColumnMappings.Add("BESTELLUNG", "BESTELLUNG") + tableMapping.ColumnMappings.Add("SUPPLY_BEZEICHNUNG", "SUPPLY_BEZEICHNUNG") + tableMapping.ColumnMappings.Add("LEVEL", "LEVEL") + tableMapping.ColumnMappings.Add("SCHWELLENWERT", "SCHWELLENWERT") + tableMapping.ColumnMappings.Add("PARTNUMBER", "PARTNUMBER") + tableMapping.ColumnMappings.Add("SERIENNR", "SERIENNR") + tableMapping.ColumnMappings.Add("STATUS_ID", "STATUS_ID") + tableMapping.ColumnMappings.Add("STATUS", "STATUS") + tableMapping.ColumnMappings.Add("ERFASSTWANN", "ERFASSTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("STATUS_WANN", "STATUS_WANN") + tableMapping.ColumnMappings.Add("STATUS_WER", "STATUS_WER") + tableMapping.ColumnMappings.Add("MANUELL", "MANUELL") + tableMapping.ColumnMappings.Add("FW", "FW") + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("GUI_SELECTED", "GUI_SELECTED") + tableMapping.ColumnMappings.Add("MENGE", "MENGE") + tableMapping.ColumnMappings.Add("BESTELL_ID", "BESTELL_ID") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.MCSUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT MANDANT, MANDANT_ID, SUPPLY_ID, GERAET_ID, DEVICE, DEVICE_SERIAL, M"& _ + "ARKT, PAGE_COUNT, PPM, BESTELLUNG, SUPPLY_BEZEICHNUNG, LEVEL, SCHWELLENWERT, PAR"& _ + "TNUMBER, SERIENNR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" STATUS_ID, STATUS, ERFASSTWANN, GE"& _ + "AENDERTWER, STATUS_WANN, STATUS_WER, MANUELL, FW, GUID, GUI_SELECTED, MENGE, BES"& _ + "TELL_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSUPPLIES_2_ORDER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MANDANT = @MANDANT)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWSUPPLIES_2_ORDERDataTable, ByVal MANDANT As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal MANDANT As String) As MyDataset.VWSUPPLIES_2_ORDERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (MANDANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("MANDANT") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) + End If + Dim dataTable As MyDataset.VWSUPPLIES_2_ORDERDataTable = New MyDataset.VWSUPPLIES_2_ORDERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBSUPPLY_VERFOLGUNGTableAdapter As TBSUPPLY_VERFOLGUNGTableAdapter + + Private _tBKONFIGURATIONTableAdapter As TBKONFIGURATIONTableAdapter + + Private _tBSTATUSTableAdapter As TBSTATUSTableAdapter + + Private _tBSUPPLIESTableAdapter As TBSUPPLIESTableAdapter + + Private _tBSUPPLY_BESTELLUNGTableAdapter As TBSUPPLY_BESTELLUNGTableAdapter + + Private _vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter As VWSUPPLY_BESTELLUNG_FRONTENDTableAdapter + + Private _tBGERAETByMarktTableAdapter As TBGERAETByMarktTableAdapter + + Private _tBVERTRAEGETableAdapter As TBVERTRAEGETableAdapter + + Private _tBPRODUKT_VERTRAGTableAdapter As TBPRODUKT_VERTRAGTableAdapter + + Private _tBGERAETE_NOTINLISTTableAdapter As TBGERAETE_NOTINLISTTableAdapter + + Private _tBSUPPLY_DEFINITIONTableAdapter As TBSUPPLY_DEFINITIONTableAdapter + + Private _tBGERAET_SUPPLY_ZUORDNUNGTableAdapter As TBGERAET_SUPPLY_ZUORDNUNGTableAdapter + + Private _tBUSER_RECHTETableAdapter As TBUSER_RECHTETableAdapter + + Private _tBMELDEDATUMTableAdapter As TBMELDEDATUMTableAdapter + + Private _tBGERAETE_VERFOLGUNGTableAdapter As TBGERAETE_VERFOLGUNGTableAdapter + + Private _tBMANDANTENTableAdapter As TBMANDANTENTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBSUPPLY_VERFOLGUNGTableAdapter() As TBSUPPLY_VERFOLGUNGTableAdapter + Get + Return Me._tBSUPPLY_VERFOLGUNGTableAdapter + End Get + Set + Me._tBSUPPLY_VERFOLGUNGTableAdapter = value + End Set + End Property + + _ + Public Property TBKONFIGURATIONTableAdapter() As TBKONFIGURATIONTableAdapter + Get + Return Me._tBKONFIGURATIONTableAdapter + End Get + Set + Me._tBKONFIGURATIONTableAdapter = value + End Set + End Property + + _ + Public Property TBSTATUSTableAdapter() As TBSTATUSTableAdapter + Get + Return Me._tBSTATUSTableAdapter + End Get + Set + Me._tBSTATUSTableAdapter = value + End Set + End Property + + _ + Public Property TBSUPPLIESTableAdapter() As TBSUPPLIESTableAdapter + Get + Return Me._tBSUPPLIESTableAdapter + End Get + Set + Me._tBSUPPLIESTableAdapter = value + End Set + End Property + + _ + Public Property TBSUPPLY_BESTELLUNGTableAdapter() As TBSUPPLY_BESTELLUNGTableAdapter + Get + Return Me._tBSUPPLY_BESTELLUNGTableAdapter + End Get + Set + Me._tBSUPPLY_BESTELLUNGTableAdapter = value + End Set + End Property + + _ + Public Property VWSUPPLY_BESTELLUNG_FRONTENDTableAdapter() As VWSUPPLY_BESTELLUNG_FRONTENDTableAdapter + Get + Return Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter + End Get + Set + Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter = value + End Set + End Property + + _ + Public Property TBGERAETByMarktTableAdapter() As TBGERAETByMarktTableAdapter + Get + Return Me._tBGERAETByMarktTableAdapter + End Get + Set + Me._tBGERAETByMarktTableAdapter = value + End Set + End Property + + _ + Public Property TBVERTRAEGETableAdapter() As TBVERTRAEGETableAdapter + Get + Return Me._tBVERTRAEGETableAdapter + End Get + Set + Me._tBVERTRAEGETableAdapter = value + End Set + End Property + + _ + Public Property TBPRODUKT_VERTRAGTableAdapter() As TBPRODUKT_VERTRAGTableAdapter + Get + Return Me._tBPRODUKT_VERTRAGTableAdapter + End Get + Set + Me._tBPRODUKT_VERTRAGTableAdapter = value + End Set + End Property + + _ + Public Property TBGERAETE_NOTINLISTTableAdapter() As TBGERAETE_NOTINLISTTableAdapter + Get + Return Me._tBGERAETE_NOTINLISTTableAdapter + End Get + Set + Me._tBGERAETE_NOTINLISTTableAdapter = value + End Set + End Property + + _ + Public Property TBSUPPLY_DEFINITIONTableAdapter() As TBSUPPLY_DEFINITIONTableAdapter + Get + Return Me._tBSUPPLY_DEFINITIONTableAdapter + End Get + Set + Me._tBSUPPLY_DEFINITIONTableAdapter = value + End Set + End Property + + _ + Public Property TBGERAET_SUPPLY_ZUORDNUNGTableAdapter() As TBGERAET_SUPPLY_ZUORDNUNGTableAdapter + Get + Return Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter + End Get + Set + Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter = value + End Set + End Property + + _ + Public Property TBUSER_RECHTETableAdapter() As TBUSER_RECHTETableAdapter + Get + Return Me._tBUSER_RECHTETableAdapter + End Get + Set + Me._tBUSER_RECHTETableAdapter = value + End Set + End Property + + _ + Public Property TBMELDEDATUMTableAdapter() As TBMELDEDATUMTableAdapter + Get + Return Me._tBMELDEDATUMTableAdapter + End Get + Set + Me._tBMELDEDATUMTableAdapter = value + End Set + End Property + + _ + Public Property TBGERAETE_VERFOLGUNGTableAdapter() As TBGERAETE_VERFOLGUNGTableAdapter + Get + Return Me._tBGERAETE_VERFOLGUNGTableAdapter + End Get + Set + Me._tBGERAETE_VERFOLGUNGTableAdapter = value + End Set + End Property + + _ + Public Property TBMANDANTENTableAdapter() As TBMANDANTENTableAdapter + Get + Return Me._tBMANDANTENTableAdapter + End Get + Set + Me._tBMANDANTENTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBSUPPLY_VERFOLGUNGTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBSUPPLY_VERFOLGUNGTableAdapter.Connection) Is Nothing)) Then + Return Me._tBSUPPLY_VERFOLGUNGTableAdapter.Connection + End If + If ((Not (Me._tBKONFIGURATIONTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBKONFIGURATIONTableAdapter.Connection) Is Nothing)) Then + Return Me._tBKONFIGURATIONTableAdapter.Connection + End If + If ((Not (Me._tBSTATUSTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBSTATUSTableAdapter.Connection) Is Nothing)) Then + Return Me._tBSTATUSTableAdapter.Connection + End If + If ((Not (Me._tBSUPPLIESTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBSUPPLIESTableAdapter.Connection) Is Nothing)) Then + Return Me._tBSUPPLIESTableAdapter.Connection + End If + If ((Not (Me._tBSUPPLY_BESTELLUNGTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBSUPPLY_BESTELLUNGTableAdapter.Connection) Is Nothing)) Then + Return Me._tBSUPPLY_BESTELLUNGTableAdapter.Connection + End If + If ((Not (Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter) Is Nothing) _ + AndAlso (Not (Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Connection) Is Nothing)) Then + Return Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Connection + End If + If ((Not (Me._tBGERAETByMarktTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBGERAETByMarktTableAdapter.Connection) Is Nothing)) Then + Return Me._tBGERAETByMarktTableAdapter.Connection + End If + If ((Not (Me._tBVERTRAEGETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBVERTRAEGETableAdapter.Connection) Is Nothing)) Then + Return Me._tBVERTRAEGETableAdapter.Connection + End If + If ((Not (Me._tBPRODUKT_VERTRAGTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPRODUKT_VERTRAGTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPRODUKT_VERTRAGTableAdapter.Connection + End If + If ((Not (Me._tBGERAETE_NOTINLISTTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBGERAETE_NOTINLISTTableAdapter.Connection) Is Nothing)) Then + Return Me._tBGERAETE_NOTINLISTTableAdapter.Connection + End If + If ((Not (Me._tBSUPPLY_DEFINITIONTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBSUPPLY_DEFINITIONTableAdapter.Connection) Is Nothing)) Then + Return Me._tBSUPPLY_DEFINITIONTableAdapter.Connection + End If + If ((Not (Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Connection) Is Nothing)) Then + Return Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Connection + End If + If ((Not (Me._tBUSER_RECHTETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBUSER_RECHTETableAdapter.Connection) Is Nothing)) Then + Return Me._tBUSER_RECHTETableAdapter.Connection + End If + If ((Not (Me._tBMELDEDATUMTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBMELDEDATUMTableAdapter.Connection) Is Nothing)) Then + Return Me._tBMELDEDATUMTableAdapter.Connection + End If + If ((Not (Me._tBGERAETE_VERFOLGUNGTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBGERAETE_VERFOLGUNGTableAdapter.Connection) Is Nothing)) Then + Return Me._tBGERAETE_VERFOLGUNGTableAdapter.Connection + End If + If ((Not (Me._tBMANDANTENTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBMANDANTENTableAdapter.Connection) Is Nothing)) Then + Return Me._tBMANDANTENTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBSUPPLY_VERFOLGUNGTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBKONFIGURATIONTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBSTATUSTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBSUPPLIESTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBSUPPLY_BESTELLUNGTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBGERAETByMarktTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBVERTRAEGETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBPRODUKT_VERTRAGTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBGERAETE_NOTINLISTTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBSUPPLY_DEFINITIONTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBUSER_RECHTETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBMELDEDATUMTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBGERAETE_VERFOLGUNGTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBMANDANTENTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + 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._tBVERTRAEGETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBVERTRAEGE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBVERTRAEGETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBSUPPLY_DEFINITIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBSUPPLY_DEFINITION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBSUPPLY_DEFINITIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBSTATUSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBSTATUS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBSTATUSTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBUSER_RECHTETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBUSER_RECHTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBUSER_RECHTETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBGERAETE_VERFOLGUNGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBGERAETE_VERFOLGUNG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBGERAETE_VERFOLGUNGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBMELDEDATUMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBMELDEDATUM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBMELDEDATUMTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBMANDANTENTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBMANDANTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBMANDANTENTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBGERAETE_NOTINLISTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBGERAETE_NOTINLIST.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBGERAETE_NOTINLISTTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPRODUKT_VERTRAGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPRODUKT_VERTRAG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPRODUKT_VERTRAGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBGERAETByMarktTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBGERAETByMarkt.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBGERAETByMarktTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.VWSUPPLY_BESTELLUNG_FRONTEND.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBSUPPLY_BESTELLUNGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBSUPPLY_BESTELLUNG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBSUPPLY_BESTELLUNGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBSUPPLIESTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBSUPPLIES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBSUPPLIESTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBKONFIGURATIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBKONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBKONFIGURATIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBSUPPLY_VERFOLGUNGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBSUPPLY_VERFOLGUNG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBSUPPLY_VERFOLGUNGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBGERAET_SUPPLY_ZUORDNUNG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + 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._tBVERTRAEGETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBVERTRAEGE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBVERTRAEGETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBSUPPLY_DEFINITIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBSUPPLY_DEFINITION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBSUPPLY_DEFINITIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBSTATUSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBSTATUS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBSTATUSTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBUSER_RECHTETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBUSER_RECHTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBUSER_RECHTETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBGERAETE_VERFOLGUNGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBGERAETE_VERFOLGUNG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBGERAETE_VERFOLGUNGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBMELDEDATUMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBMELDEDATUM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBMELDEDATUMTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBMANDANTENTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBMANDANTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBMANDANTENTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBGERAETE_NOTINLISTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBGERAETE_NOTINLIST.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBGERAETE_NOTINLISTTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPRODUKT_VERTRAGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPRODUKT_VERTRAG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPRODUKT_VERTRAGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBGERAETByMarktTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBGERAETByMarkt.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBGERAETByMarktTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.VWSUPPLY_BESTELLUNG_FRONTEND.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBSUPPLY_BESTELLUNGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBSUPPLY_BESTELLUNG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBSUPPLY_BESTELLUNGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBSUPPLIESTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBSUPPLIES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBSUPPLIESTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBKONFIGURATIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBKONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBKONFIGURATIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBSUPPLY_VERFOLGUNGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBSUPPLY_VERFOLGUNG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBSUPPLY_VERFOLGUNGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBGERAET_SUPPLY_ZUORDNUNG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + 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._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBGERAET_SUPPLY_ZUORDNUNG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBSUPPLY_VERFOLGUNGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBSUPPLY_VERFOLGUNG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBSUPPLY_VERFOLGUNGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBKONFIGURATIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBKONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBKONFIGURATIONTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBSUPPLIESTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBSUPPLIES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBSUPPLIESTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBSUPPLY_BESTELLUNGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBSUPPLY_BESTELLUNG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBSUPPLY_BESTELLUNGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.VWSUPPLY_BESTELLUNG_FRONTEND.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBGERAETByMarktTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBGERAETByMarkt.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBGERAETByMarktTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPRODUKT_VERTRAGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPRODUKT_VERTRAG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPRODUKT_VERTRAGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBGERAETE_NOTINLISTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBGERAETE_NOTINLIST.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBGERAETE_NOTINLISTTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBMANDANTENTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBMANDANTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBMANDANTENTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBMELDEDATUMTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBMELDEDATUM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBMELDEDATUMTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBGERAETE_VERFOLGUNGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBGERAETE_VERFOLGUNG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBGERAETE_VERFOLGUNGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBUSER_RECHTETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBUSER_RECHTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBUSER_RECHTETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBSTATUSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBSTATUS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBSTATUSTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBSUPPLY_DEFINITIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBSUPPLY_DEFINITION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBSUPPLY_DEFINITIONTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBVERTRAEGETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBVERTRAEGE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBVERTRAEGETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + 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 + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBSUPPLY_VERFOLGUNGTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBSUPPLY_VERFOLGUNGTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBKONFIGURATIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBKONFIGURATIONTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBSTATUSTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBSTATUSTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBSUPPLIESTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBSUPPLIESTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBSUPPLY_BESTELLUNGTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBSUPPLY_BESTELLUNGTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBGERAETByMarktTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBGERAETByMarktTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBVERTRAEGETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBVERTRAEGETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBPRODUKT_VERTRAGTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPRODUKT_VERTRAGTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBGERAETE_NOTINLISTTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBGERAETE_NOTINLISTTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBSUPPLY_DEFINITIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBSUPPLY_DEFINITIONTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBUSER_RECHTETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBUSER_RECHTETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBMELDEDATUMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBMELDEDATUMTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBGERAETE_VERFOLGUNGTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBGERAETE_VERFOLGUNGTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBMANDANTENTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBMANDANTENTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBSUPPLY_VERFOLGUNGTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBSUPPLY_VERFOLGUNGTableAdapter, Me._tBSUPPLY_VERFOLGUNGTableAdapter.Connection) + Me._tBSUPPLY_VERFOLGUNGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBSUPPLY_VERFOLGUNGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBSUPPLY_VERFOLGUNGTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBSUPPLY_VERFOLGUNGTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBSUPPLY_VERFOLGUNGTableAdapter.Adapter) + End If + End If + If (Not (Me._tBKONFIGURATIONTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBKONFIGURATIONTableAdapter, Me._tBKONFIGURATIONTableAdapter.Connection) + Me._tBKONFIGURATIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBKONFIGURATIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBKONFIGURATIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBKONFIGURATIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBKONFIGURATIONTableAdapter.Adapter) + End If + End If + If (Not (Me._tBSTATUSTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBSTATUSTableAdapter, Me._tBSTATUSTableAdapter.Connection) + Me._tBSTATUSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBSTATUSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBSTATUSTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBSTATUSTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBSTATUSTableAdapter.Adapter) + End If + End If + If (Not (Me._tBSUPPLIESTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBSUPPLIESTableAdapter, Me._tBSUPPLIESTableAdapter.Connection) + Me._tBSUPPLIESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBSUPPLIESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBSUPPLIESTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBSUPPLIESTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBSUPPLIESTableAdapter.Adapter) + End If + End If + If (Not (Me._tBSUPPLY_BESTELLUNGTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBSUPPLY_BESTELLUNGTableAdapter, Me._tBSUPPLY_BESTELLUNGTableAdapter.Connection) + Me._tBSUPPLY_BESTELLUNGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBSUPPLY_BESTELLUNGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBSUPPLY_BESTELLUNGTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBSUPPLY_BESTELLUNGTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBSUPPLY_BESTELLUNGTableAdapter.Adapter) + End If + End If + If (Not (Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter) Is Nothing) Then + revertConnections.Add(Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter, Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Connection) + Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Adapter) + End If + End If + If (Not (Me._tBGERAETByMarktTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBGERAETByMarktTableAdapter, Me._tBGERAETByMarktTableAdapter.Connection) + Me._tBGERAETByMarktTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBGERAETByMarktTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBGERAETByMarktTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBGERAETByMarktTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBGERAETByMarktTableAdapter.Adapter) + End If + End If + If (Not (Me._tBVERTRAEGETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBVERTRAEGETableAdapter, Me._tBVERTRAEGETableAdapter.Connection) + Me._tBVERTRAEGETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBVERTRAEGETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBVERTRAEGETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBVERTRAEGETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBVERTRAEGETableAdapter.Adapter) + End If + End If + If (Not (Me._tBPRODUKT_VERTRAGTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPRODUKT_VERTRAGTableAdapter, Me._tBPRODUKT_VERTRAGTableAdapter.Connection) + Me._tBPRODUKT_VERTRAGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPRODUKT_VERTRAGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPRODUKT_VERTRAGTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPRODUKT_VERTRAGTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPRODUKT_VERTRAGTableAdapter.Adapter) + End If + End If + If (Not (Me._tBGERAETE_NOTINLISTTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBGERAETE_NOTINLISTTableAdapter, Me._tBGERAETE_NOTINLISTTableAdapter.Connection) + Me._tBGERAETE_NOTINLISTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBGERAETE_NOTINLISTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBGERAETE_NOTINLISTTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBGERAETE_NOTINLISTTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBGERAETE_NOTINLISTTableAdapter.Adapter) + End If + End If + If (Not (Me._tBSUPPLY_DEFINITIONTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBSUPPLY_DEFINITIONTableAdapter, Me._tBSUPPLY_DEFINITIONTableAdapter.Connection) + Me._tBSUPPLY_DEFINITIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBSUPPLY_DEFINITIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBSUPPLY_DEFINITIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBSUPPLY_DEFINITIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBSUPPLY_DEFINITIONTableAdapter.Adapter) + End If + End If + If (Not (Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter, Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Connection) + Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Adapter) + End If + End If + If (Not (Me._tBUSER_RECHTETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBUSER_RECHTETableAdapter, Me._tBUSER_RECHTETableAdapter.Connection) + Me._tBUSER_RECHTETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBUSER_RECHTETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBUSER_RECHTETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBUSER_RECHTETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBUSER_RECHTETableAdapter.Adapter) + End If + End If + If (Not (Me._tBMELDEDATUMTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBMELDEDATUMTableAdapter, Me._tBMELDEDATUMTableAdapter.Connection) + Me._tBMELDEDATUMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBMELDEDATUMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBMELDEDATUMTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBMELDEDATUMTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBMELDEDATUMTableAdapter.Adapter) + End If + End If + If (Not (Me._tBGERAETE_VERFOLGUNGTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBGERAETE_VERFOLGUNGTableAdapter, Me._tBGERAETE_VERFOLGUNGTableAdapter.Connection) + Me._tBGERAETE_VERFOLGUNGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBGERAETE_VERFOLGUNGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBGERAETE_VERFOLGUNGTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBGERAETE_VERFOLGUNGTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBGERAETE_VERFOLGUNGTableAdapter.Adapter) + End If + End If + If (Not (Me._tBMANDANTENTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBMANDANTENTableAdapter, Me._tBMANDANTENTableAdapter.Connection) + Me._tBMANDANTENTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBMANDANTENTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBMANDANTENTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBMANDANTENTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBMANDANTENTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBSUPPLY_VERFOLGUNGTableAdapter) Is Nothing) Then + Me._tBSUPPLY_VERFOLGUNGTableAdapter.Connection = CType(revertConnections(Me._tBSUPPLY_VERFOLGUNGTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBSUPPLY_VERFOLGUNGTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBKONFIGURATIONTableAdapter) Is Nothing) Then + Me._tBKONFIGURATIONTableAdapter.Connection = CType(revertConnections(Me._tBKONFIGURATIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBKONFIGURATIONTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBSTATUSTableAdapter) Is Nothing) Then + Me._tBSTATUSTableAdapter.Connection = CType(revertConnections(Me._tBSTATUSTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBSTATUSTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBSUPPLIESTableAdapter) Is Nothing) Then + Me._tBSUPPLIESTableAdapter.Connection = CType(revertConnections(Me._tBSUPPLIESTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBSUPPLIESTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBSUPPLY_BESTELLUNGTableAdapter) Is Nothing) Then + Me._tBSUPPLY_BESTELLUNGTableAdapter.Connection = CType(revertConnections(Me._tBSUPPLY_BESTELLUNGTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBSUPPLY_BESTELLUNGTableAdapter.Transaction = Nothing + End If + If (Not (Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter) Is Nothing) Then + Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Connection = CType(revertConnections(Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._vWSUPPLY_BESTELLUNG_FRONTENDTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBGERAETByMarktTableAdapter) Is Nothing) Then + Me._tBGERAETByMarktTableAdapter.Connection = CType(revertConnections(Me._tBGERAETByMarktTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBGERAETByMarktTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBVERTRAEGETableAdapter) Is Nothing) Then + Me._tBVERTRAEGETableAdapter.Connection = CType(revertConnections(Me._tBVERTRAEGETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBVERTRAEGETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBPRODUKT_VERTRAGTableAdapter) Is Nothing) Then + Me._tBPRODUKT_VERTRAGTableAdapter.Connection = CType(revertConnections(Me._tBPRODUKT_VERTRAGTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPRODUKT_VERTRAGTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBGERAETE_NOTINLISTTableAdapter) Is Nothing) Then + Me._tBGERAETE_NOTINLISTTableAdapter.Connection = CType(revertConnections(Me._tBGERAETE_NOTINLISTTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBGERAETE_NOTINLISTTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBSUPPLY_DEFINITIONTableAdapter) Is Nothing) Then + Me._tBSUPPLY_DEFINITIONTableAdapter.Connection = CType(revertConnections(Me._tBSUPPLY_DEFINITIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBSUPPLY_DEFINITIONTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter) Is Nothing) Then + Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Connection = CType(revertConnections(Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBUSER_RECHTETableAdapter) Is Nothing) Then + Me._tBUSER_RECHTETableAdapter.Connection = CType(revertConnections(Me._tBUSER_RECHTETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBUSER_RECHTETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBMELDEDATUMTableAdapter) Is Nothing) Then + Me._tBMELDEDATUMTableAdapter.Connection = CType(revertConnections(Me._tBMELDEDATUMTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBMELDEDATUMTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBGERAETE_VERFOLGUNGTableAdapter) Is Nothing) Then + Me._tBGERAETE_VERFOLGUNGTableAdapter.Connection = CType(revertConnections(Me._tBGERAETE_VERFOLGUNGTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBGERAETE_VERFOLGUNGTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBMANDANTENTableAdapter) Is Nothing) Then + Me._tBMANDANTENTableAdapter.Connection = CType(revertConnections(Me._tBMANDANTENTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBMANDANTENTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + 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 + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + 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 + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + 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 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/Supplywatch/MyDataset.vb b/Supplywatch/MyDataset.vb new file mode 100644 index 0000000..b2c06cd --- /dev/null +++ b/Supplywatch/MyDataset.vb @@ -0,0 +1,20 @@ + + +Partial Public Class MyDataset + Partial Class VWSUPPLIES_2_ORDERDataTable + + End Class + +End Class + +Namespace MyDatasetTableAdapters + + Partial Public Class TBSUPPLIESTableAdapter + End Class +End Namespace + +Namespace MyDatasetTableAdapters + + Partial Public Class TBIMPORT_PRODUKTTableAdapter + End Class +End Namespace diff --git a/Supplywatch/MyDataset.xsc b/Supplywatch/MyDataset.xsc new file mode 100644 index 0000000..3e8b9cc --- /dev/null +++ b/Supplywatch/MyDataset.xsc @@ -0,0 +1,24 @@ + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Supplywatch/MyDataset.xsd b/Supplywatch/MyDataset.xsd new file mode 100644 index 0000000..6d47406 --- /dev/null +++ b/Supplywatch/MyDataset.xsd @@ -0,0 +1,5153 @@ + + + + + + + + + + + + + + + SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET.SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, + TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, TBGERAET.ERFASSTWANN, TBGERAET.GEAENDERTWER, TBGERAET.GEAENDERTWANN, + TBGERAET.MARKER, TBGERAET.PC_INITIAL, TBGERAET.DATE_INITIAL, TBGERAET.MODEL_NR, TBGERAET.UMGEZOGEN, TBVERTRAEGE.VERTRAGSNR, + TBGERAET.ONHOLD, TBGERAET.ONHOLD_DATE, CONVERT(VARCHAR(10), TBGERAET.MELDEDATUM, 104) AS MELDEDATUM, TBGERAET.NICHT_AKTIV, + TBGERAET.ABGEBAUT, TBMANDANTEN.NAME AS Mandant, TBMANDANTEN.KENNZEICHEN AS Mandant_KZ +FROM TBGERAET INNER JOIN + TBMANDANTEN ON TBGERAET.MANDANT_ID = TBMANDANTEN.GUID LEFT OUTER JOIN + TBVERTRAEGE ON TBGERAET.VERTRAG_ID = TBVERTRAEGE.GUID +WHERE (TBGERAET.AKTIV_REFLISTE = @Aktiv) AND (TBMANDANTEN.GUID = @MANDANT_ID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + UPDATE TBGERAET +SET BESTELLUNG = 1 +WHERE (GUID = @Original_GUID) + + + + + + + + + + + SELECT ISNULL(MAX(GUID), 0) AS Expr1 +FROM TBGERAET +WHERE (UPPER(SERIENNR) = UPPER(@SERIAL)) + + + + + + + + + + UPDATE TBGERAET +SET BESTELLUNG = 0 +WHERE (GUID = @Original_GUID) + + + + + + + + + + + UPDATE TBGERAET +SET ONHOLD = @STATE +WHERE (GUID = @GUID) + + + + + + + + + UPDATE TBGERAET +SET ONHOLD = @STATE, ONHOLD_DATE = GETDATE() +WHERE (GUID = @GUID) + + + + + + + + + + + SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET.SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, + TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, TBGERAET.ERFASSTWANN, TBGERAET.GEAENDERTWER, TBGERAET.GEAENDERTWANN, + TBGERAET.MARKER, TBGERAET.PC_INITIAL, TBGERAET.DATE_INITIAL, TBGERAET.MODEL_NR, TBGERAET.UMGEZOGEN, TBVERTRAEGE.VERTRAGSNR, + TBGERAET.ONHOLD, TBGERAET.ONHOLD_DATE, CONVERT(VARCHAR(10), TBGERAET.MELDEDATUM, 104) AS MELDEDATUM, TBGERAET.NICHT_AKTIV, + TBGERAET.ABGEBAUT +FROM TBGERAET LEFT OUTER JOIN + TBVERTRAEGE ON TBGERAET.VERTRAG_ID = TBVERTRAEGE.GUID +WHERE (TBGERAET.GUID = @GUID) + + + + + + + + + + SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET.SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, + TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, TBGERAET.ERFASSTWANN, TBGERAET.GEAENDERTWER, TBGERAET.GEAENDERTWANN, + TBGERAET.MARKER, TBGERAET.PC_INITIAL, TBGERAET.DATE_INITIAL, TBGERAET.MODEL_NR, TBGERAET.UMGEZOGEN, TBVERTRAEGE.VERTRAGSNR, + TBGERAET.ONHOLD, TBGERAET.ONHOLD_DATE, CONVERT(VARCHAR(10), TBGERAET.MELDEDATUM, 104) AS MELDEDATUM, TBGERAET.NICHT_AKTIV, + TBGERAET.ABGEBAUT, TBMANDANTEN.NAME AS Mandant, TBMANDANTEN.KENNZEICHEN AS Mandant_KZ +FROM TBGERAET INNER JOIN + TBMANDANTEN ON TBGERAET.MANDANT_ID = TBMANDANTEN.GUID LEFT OUTER JOIN + TBVERTRAEGE ON TBGERAET.VERTRAG_ID = TBVERTRAEGE.GUID +WHERE (REPLACE(TBGERAET.MARKT, ' ', '') = REPLACE(@MARKT, ' ', '')) AND (TBGERAET.AKTIV_REFLISTE = 1) +ORDER BY TBGERAET.BEZEICHNUNG + + + + + + + + + + SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET.SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, + TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, TBGERAET.ERFASSTWANN, TBGERAET.GEAENDERTWER, TBGERAET.GEAENDERTWANN, + TBGERAET.MARKER, TBGERAET.PC_INITIAL, TBGERAET.DATE_INITIAL, TBGERAET.MODEL_NR, TBGERAET.UMGEZOGEN, TBVERTRAEGE.VERTRAGSNR, + TBGERAET.ONHOLD, TBGERAET.ONHOLD_DATE, CONVERT(VARCHAR(10), TBGERAET.MELDEDATUM, 104) AS MELDEDATUM, TBGERAET.NICHT_AKTIV, + TBGERAET.ABGEBAUT, TBMANDANTEN.NAME AS Mandant, TBMANDANTEN.KENNZEICHEN AS Mandant_KZ +FROM TBGERAET INNER JOIN + TBMANDANTEN ON TBGERAET.MANDANT_ID = TBMANDANTEN.GUID LEFT OUTER JOIN + TBVERTRAEGE ON TBGERAET.VERTRAG_ID = TBVERTRAEGE.GUID +WHERE (REPLACE(TBGERAET.MARKT, ' ', '') = REPLACE(@MARKT, ' ', '')) AND (TBGERAET.AKTIV_REFLISTE = 1) AND (TBGERAET.ONHOLD = 0) + + + + + + + + + + + + + + SELECT SUPPLY_ID, GERAET_ID, MARKT, DEVICE, SUPPLY_BEZ, LEVEL, SCHWELLENWERT, PARTNUMBER, SERIENNR, STATUS_WANN, STATUS_ID, STATUS, GERAET, + GERAET_IP, GERAET_SERIENNR, GERAET_PAGECOUNT, GERAET_PPM, BESTELLUNG, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, + STATUS_WER +FROM VWSUPPLIES +WHERE (STATUS_ID <> 6) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT BESTELLUNG, DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET, GERAET_ID, GERAET_IP, GERAET_PAGECOUNT, GERAET_PPM, GERAET_SERIENNR, LEVEL, MARKT, PARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STATUS_WER, SUPPLY_BEZ, SUPPLY_ID FROM VWSUPPLIES + + + + + + + + SELECT BESTELLUNG, DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET, GERAET_ID, GERAET_IP, GERAET_PAGECOUNT, GERAET_PPM, GERAET_SERIENNR, LEVEL, MARKT, PARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STATUS_WER, SUPPLY_BEZ, SUPPLY_ID FROM VWSUPPLIES WHERE (MARKT = @MARKT) + + + + + + + + + + SELECT BESTELLUNG, DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET, GERAET_ID, GERAET_IP, GERAET_PAGECOUNT, GERAET_PPM, GERAET_SERIENNR, LEVEL, MARKT, PARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STATUS_WER, SUPPLY_BEZ, SUPPLY_ID FROM VWSUPPLIES WHERE (STATUS_ID = @STATUS_ID) + + + + + + + + + + SELECT BESTELLUNG, DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET, GERAET_ID, GERAET_IP, GERAET_PAGECOUNT, GERAET_PPM, GERAET_SERIENNR, LEVEL, MARKT, PARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STATUS_WER, SUPPLY_BEZ, SUPPLY_ID FROM VWSUPPLIES WHERE (STATUS = @STATUS) + + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG +FROM TBSTATUS + + + + + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG +FROM TBSTATUS + + + + + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG +FROM TBSTATUS + + + + + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG +FROM TBSTATUS + + + + + + + + + + + + + + + + + DELETE FROM [TBSUPPLY_VERFOLGUNG] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ((@IsNull_SERIENNR = 1 AND [SERIENNR] IS NULL) OR ([SERIENNR] = @Original_SERIENNR)) AND ([GERAET_ID] = @Original_GERAET_ID) AND ([LEVEL] = @Original_LEVEL) AND ((@IsNull_PARTNUMBER = 1 AND [PARTNUMBER] IS NULL) OR ([PARTNUMBER] = @Original_PARTNUMBER)) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)) AND ((@IsNull_MARKER = 1 AND [MARKER] IS NULL) OR ([MARKER] = @Original_MARKER)) AND ((@IsNull_MELDEDATUM = 1 AND [MELDEDATUM] IS NULL) OR ([MELDEDATUM] = @Original_MELDEDATUM))) + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG, SERIENNR, GERAET_ID, LEVEL, PARTNUMBER, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, MARKER, MELDEDATUM +FROM TBSUPPLY_VERFOLGUNG + + + + + + UPDATE [TBSUPPLY_VERFOLGUNG] SET [BEZEICHNUNG] = @BEZEICHNUNG, [SERIENNR] = @SERIENNR, [GERAET_ID] = @GERAET_ID, [LEVEL] = @LEVEL, [PARTNUMBER] = @PARTNUMBER, [ERFASSTWER] = @ERFASSTWER, [ERFASSTWANN] = @ERFASSTWANN, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN, [MARKER] = @MARKER, [MELDEDATUM] = @MELDEDATUM WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ((@IsNull_SERIENNR = 1 AND [SERIENNR] IS NULL) OR ([SERIENNR] = @Original_SERIENNR)) AND ([GERAET_ID] = @Original_GERAET_ID) AND ([LEVEL] = @Original_LEVEL) AND ((@IsNull_PARTNUMBER = 1 AND [PARTNUMBER] IS NULL) OR ([PARTNUMBER] = @Original_PARTNUMBER)) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)) AND ((@IsNull_MARKER = 1 AND [MARKER] IS NULL) OR ([MARKER] = @Original_MARKER)) AND ((@IsNull_MELDEDATUM = 1 AND [MELDEDATUM] IS NULL) OR ([MELDEDATUM] = @Original_MELDEDATUM))); +SELECT GUID, BEZEICHNUNG, SERIENNR, GERAET_ID, LEVEL, PARTNUMBER, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, MARKER, MELDEDATUM FROM TBSUPPLY_VERFOLGUNG WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO TBSUPPLY_VERFOLGUNG + (BEZEICHNUNG, SERIENNR, LEVEL, PARTNUMBER, ERFASSTWER, GERAET_ID, MELDEDATUM) +VALUES (@BEZEICHNUNG,@SERIENNR,@LEVEL,@PARTNUMBER,@ERFASSTWER,@GERAET_ID,@MELDEDATUM) + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBKONFIGURATION] WHERE (([STATUS_OK] = @Original_STATUS_OK) AND ([STATUS_BEST] = @Original_STATUS_BEST) AND ([STATUS_SD] = @Original_STATUS_SD) AND ((@IsNull_BEMERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWANN) AND ([GUID] = @Original_GUID)) + + + + + + + + + + + + + + + + SELECT STATUS_OK, STATUS_BEST, STATUS_SD, BEMERKUNG, GEAENDERTWER, GEAENDERTWANN, GUID, DEF_SW, STATUS_BESTELLT, STATUS_ERSETZT, + STATUS_UNKLAR, IMPORT_XML, IMPORT_XMLARCHIV, IMPORT_BESTELLUNGEN +FROM TBKONFIGURATION +WHERE (GUID = 1) + + + + + + UPDATE TBKONFIGURATION +SET STATUS_OK = @STATUS_OK, STATUS_BEST = @STATUS_BEST, STATUS_SD = @STATUS_SD, BEMERKUNG = @BEMERKUNG, + GEAENDERTWER = @GEAENDERTWER, DEF_SW = @DEF_SW, STATUS_BESTELLT = @STATUS_BESTELLT, STATUS_UNKLAR = @STATUS_UNKLAR, + STATUS_ERSETZT = @STATUS_ERSETZT, IMPORT_XML = @IMPORT_XML, IMPORT_XMLARCHIV = @IMPORT_XMLARCHIV, + IMPORT_BESTELLUNGEN = @IMPORT_BESTELLUNGEN +WHERE (GUID = @Original_GUID); +SELECT STATUS_OK, STATUS_BEST, STATUS_SD, BEMERKUNG, GEAENDERTWER, GEAENDERTWANN, GUID FROM TBKONFIGURATION WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBSTATUS +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBSTATUS + (BEZEICHNUNG, BESCHREIBUNG, BEMERKUNG, ERFASSTWER) +VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@BEMERKUNG,@ERFASSTWER); +SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, BEMERKUNG, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1 FROM TBSTATUS WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + SELECT TBSTATUS.* +FROM TBSTATUS + + + + + + UPDATE TBSTATUS +SET BEZEICHNUNG = @BEZEICHNUNG, BESCHREIBUNG = @BESCHREIBUNG, BEMERKUNG = @BEMERKUNG, GEAENDERTWER = @GEAENDERTWER +WHERE (GUID = @Original_GUID); +SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, BEMERKUNG, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1 FROM TBSTATUS WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT REPLACE(MARKT, ' ', '') AS MARKT +FROM TBGERAET +GROUP BY REPLACE(MARKT, ' ', '') +ORDER BY MARKT + + + + + + + + + + + + + + + + SELECT SUPPLY_ID, GERAET_ID, MARKT, DEVICE, SUPPLY_BEZ, LEVEL, SCHWELLENWERT, PARTNUMBER, SERIENNR, STATUS_ID, STATUS, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, STATUS_WANN, + STATUS_WER, ON_HOLD, OH_DATE +FROM VWSUPPLIES_AKTUELL +WHERE (STATUS_ID <> 6) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + UPDATE TBSUPPLIES +SET GEAENDERTWER = @GEAENDERTWER, ON_HOLD = @ONHOLD +WHERE (GUID = @Original_GUID) + + + + + + + + + + + + SELECT DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET_ID, LEVEL, MARKT, PARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STATUS_WER, + SUPPLY_BEZ, SUPPLY_ID, ON_HOLD, OH_DATE +FROM VWSUPPLIES_AKTUELL +WHERE (GERAET_ID = @GERAET) AND (STATUS_ID <> 6) + + + + + + + + + + SELECT DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET_ID, LEVEL, MARKT, PARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STATUS_WER, + SUPPLY_BEZ, SUPPLY_ID, ON_HOLD, OH_DATE +FROM VWSUPPLIES_AKTUELL +WHERE (MARKT = @MARKT) AND (STATUS_ID <> 6) + + + + + + + + + + SELECT DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET_ID, LEVEL, MARKT, PARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STATUS_WER, + SUPPLY_BEZ, SUPPLY_ID, ON_HOLD, OH_DATE +FROM VWSUPPLIES_AKTUELL +WHERE (GERAET_ID = @GERAET) AND (STATUS_ID = + (SELECT STATUS_BEST + FROM TBKONFIGURATION + WHERE (GUID = 1))) + + + + + + + + + + SELECT DEVICE, ERFASSTWANN, GEAENDERTWANN, GEAENDERTWER, GERAET_ID, LEVEL, MARKT, PARTNUMBER, SCHWELLENWERT, SERIENNR, STATUS, STATUS_ID, STATUS_WANN, STATUS_WER, + SUPPLY_BEZ, SUPPLY_ID, ON_HOLD, OH_DATE +FROM VWSUPPLIES_AKTUELL +WHERE (STATUS_ID = @STATUS_ID) + + + + + + + + + + + + + + SELECT GUID, GERAET_BEZ, SERIENNR, MARKT, PAGE_COUNT, PPM, BESTELLUNG, MANDANT_ID, MANDANT, MANUALLY +FROM VWORDER_GERAET +WHERE (MANDANT = @MANDANT) + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT SUPPLY_ID, GERAET_ID, SUPPLY_BEZ, LEVEL, SCHWELLENWERT, PARTNUMBER, SERIENNR, STATUS_ID, STATUS, ERFASSTWANN, GEAENDERTWER, STATUS_WANN, STATUS_WER, MANUELL, MANDANT, + FW +FROM VWORDER_SUPPLIES +WHERE (MANDANT = @MANDANT) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBSUPPLIES] WHERE (([GUID] = @Original_GUID) AND ([GERAET_ID] = @Original_GERAET_ID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ([LEVEL] = @Original_LEVEL) AND ([SCHWELLENWERT] = @Original_SCHWELLENWERT) AND ((@IsNull_PARTNUMBER = 1 AND [PARTNUMBER] IS NULL) OR ([PARTNUMBER] = @Original_PARTNUMBER)) AND ((@IsNull_SERIENNR = 1 AND [SERIENNR] IS NULL) OR ([SERIENNR] = @Original_SERIENNR)) AND ([STATUS_ID] = @Original_STATUS_ID) AND ((@IsNull_STATUS_WANN = 1 AND [STATUS_WANN] IS NULL) OR ([STATUS_WANN] = @Original_STATUS_WANN)) AND ((@IsNull_STATUS_WER = 1 AND [STATUS_WER] IS NULL) OR ([STATUS_WER] = @Original_STATUS_WER)) AND ((@IsNull_BEMERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWANN) AND ((@IsNull_MARKER = 1 AND [MARKER] IS NULL) OR ([MARKER] = @Original_MARKER)) AND ([SUPPLY_DEF_ID] = @Original_SUPPLY_DEF_ID) AND ([ON_HOLD] = @Original_ON_HOLD) AND ((@IsNull_OH_DATE = 1 AND [OH_DATE] IS NULL) OR ([OH_DATE] = @Original_OH_DATE))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBSUPPLIES] ([GERAET_ID], [BEZEICHNUNG], [LEVEL], [SCHWELLENWERT], [PARTNUMBER], [SERIENNR], [STATUS_ID], [STATUS_WANN], [STATUS_WER], [BEMERKUNG], [ERFASSTWER], [ERFASSTWANN], [GEAENDERTWER], [GEAENDERTWANN], [MARKER], [SUPPLY_DEF_ID], [ON_HOLD], [OH_DATE]) VALUES (@GERAET_ID, @BEZEICHNUNG, @LEVEL, @SCHWELLENWERT, @PARTNUMBER, @SERIENNR, @STATUS_ID, @STATUS_WANN, @STATUS_WER, @BEMERKUNG, @ERFASSTWER, @ERFASSTWANN, @GEAENDERTWER, @GEAENDERTWANN, @MARKER, @SUPPLY_DEF_ID, @ON_HOLD, @OH_DATE) + + + + + + + + + + + + + + + + + + + + + + + + + SELECT TBSUPPLIES.* +FROM TBSUPPLIES + + + + + + UPDATE [TBSUPPLIES] SET [GERAET_ID] = @GERAET_ID, [BEZEICHNUNG] = @BEZEICHNUNG, [LEVEL] = @LEVEL, [SCHWELLENWERT] = @SCHWELLENWERT, [PARTNUMBER] = @PARTNUMBER, [SERIENNR] = @SERIENNR, [STATUS_ID] = @STATUS_ID, [STATUS_WANN] = @STATUS_WANN, [STATUS_WER] = @STATUS_WER, [BEMERKUNG] = @BEMERKUNG, [ERFASSTWER] = @ERFASSTWER, [ERFASSTWANN] = @ERFASSTWANN, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN, [MARKER] = @MARKER, [SUPPLY_DEF_ID] = @SUPPLY_DEF_ID, [ON_HOLD] = @ON_HOLD, [OH_DATE] = @OH_DATE WHERE (([GUID] = @Original_GUID) AND ([GERAET_ID] = @Original_GERAET_ID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ([LEVEL] = @Original_LEVEL) AND ([SCHWELLENWERT] = @Original_SCHWELLENWERT) AND ((@IsNull_PARTNUMBER = 1 AND [PARTNUMBER] IS NULL) OR ([PARTNUMBER] = @Original_PARTNUMBER)) AND ((@IsNull_SERIENNR = 1 AND [SERIENNR] IS NULL) OR ([SERIENNR] = @Original_SERIENNR)) AND ([STATUS_ID] = @Original_STATUS_ID) AND ((@IsNull_STATUS_WANN = 1 AND [STATUS_WANN] IS NULL) OR ([STATUS_WANN] = @Original_STATUS_WANN)) AND ((@IsNull_STATUS_WER = 1 AND [STATUS_WER] IS NULL) OR ([STATUS_WER] = @Original_STATUS_WER)) AND ((@IsNull_BEMERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWANN) AND ((@IsNull_MARKER = 1 AND [MARKER] IS NULL) OR ([MARKER] = @Original_MARKER)) AND ([SUPPLY_DEF_ID] = @Original_SUPPLY_DEF_ID) AND ([ON_HOLD] = @Original_ON_HOLD) AND ((@IsNull_OH_DATE = 1 AND [OH_DATE] IS NULL) OR ([OH_DATE] = @Original_OH_DATE))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT MARKER +FROM TBSUPPLIES +WHERE GUID = @SUPPLYID + + + + + + + + + + UPDATE TBSUPPLIES +SET STATUS_ID = + (SELECT STATUS_BESTELLT + FROM TBKONFIGURATION + WHERE (GUID = 1)), GEAENDERTWER = @WER, MARKER = @Marker +WHERE (GUID = @SUPPLY_ID) + + + + + + + + + + + + UPDATE TBSUPPLIES +SET GEAENDERTWER = @GEAENDERTWER, ON_HOLD = @ONHOLD +WHERE (GUID = @Original_GUID) + + + + + + + + + + + + UPDATE TBSUPPLIES +SET SCHWELLENWERT = @SCHWELLENWERT, GEAENDERTWER = @GEAENDERTWER +WHERE (GUID = @Original_GUID) + + + + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG +FROM TBSTATUS + + + + + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG +FROM TBSTATUS + + + + + + + + + + + + + + + + + DELETE FROM TBSUPPLY_BESTELLUNG +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBSUPPLY_BESTELLUNG + (SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, GERAET, SERIEN_NR, BESTELLNR, GERAET_ID, SUPPLY_ID, BESTELLT_WANN) +VALUES (@SUPPLY_BEZEICHNUNG,@MENGE,@MARKT,@MANUELL,@BESTELLT_WER,@GERAET,@SERIEN_NR,@BESTELLNR,@GERAET_ID,@SUPPLY_ID,@BESTELLT_WANN) + + + + + + + + + + + + + + + + + + SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, GERAET_ID, + SUPPLY_ID +FROM TBSUPPLY_BESTELLUNG +WHERE (CONVERT(VARCHAR(10), BESTELLT_WANN, 104) = CONVERT(VARCHAR(10), GETDATE(), 104)) + + + + + + UPDATE TBSUPPLY_BESTELLUNG +SET SUPPLY_BEZEICHNUNG = @SUPPLY_BEZEICHNUNG, MENGE = @MENGE, MARKT = @MARKT, BESTELLNR = @BESTELLNR, SERIEN_NR = @SERIEN_NR, + GERAET = @GERAET, GERAET_ID = @GERAET_ID, SUPPLY_ID = @SUPPLY_ID +WHERE (GUID = @Original_GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT ISNULL(MAX(GUID), 0) AS Expr1 +FROM TBSUPPLY_BESTELLUNG +WHERE (BESTELLNR IS NULL) AND (SUPPLY_BEZEICHNUNG = @SUPPLY_BEZEICHNUNG) AND (MARKT = @MARKT) + + + + + + + + + + + INSERT INTO TBSUPPLY_BESTELLUNG + (SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, GERAET, SERIEN_NR, GERAET_ID, SUPPLY_ID, BESTELLT_WANN) +VALUES (@SUPPLY_BEZEICHNUNG,@MENGE,@MARKT, 1,@BESTELLT_WER,@GERAET,@SERIEN_NR,@GERAET_ID,@SUPPLY_ID, GETDATE()) + + + + + + + + + + + + + + + + + INSERT INTO TBSUPPLY_BESTELLUNG + (SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, MANUELL_BESTELLT,BESTELLT_WER, GERAET, SERIEN_NR, BESTELLNR, GERAET_ID, SUPPLY_ID, BESTELLT_WANN) +VALUES (@SUPPLY_BEZEICHNUNG,@MENGE,@MARKT,1, 1,@BESTELLT_WER,@GERAET,@SERIEN_NR,@BESTELLNR,@GERAET_ID,@SUPPLY_ID,GETDATE()) + + + + + + + + + + + + + + + + INSERT INTO TBSUPPLY_BESTELLUNG + (SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, MANUELL_BESTELLT, BESTELLT_WER, GERAET, SERIEN_NR, BESTELLNR, GERAET_ID, SUPPLY_ID, BESTELLT_WANN, MARKER) +VALUES (@SUPPLY_BEZEICHNUNG,@MENGE,@MARKT, 1, 1,@BESTELLT_WER,@GERAET,@SERIEN_NR,@BESTELLNR,@GERAET_ID,@SUPPLY_ID,@DATUM,@MARKER) + + + + + + + + + + + + + + + + + + + + UPDATE TBSUPPLY_BESTELLUNG +SET MANUELL_BESTELLT = 1 +WHERE (GERAET_ID = @Geraete_ID) AND (MANUELL_BESTELLT = 0) AND (MANUELL = 1) + + + + + + + + + + UPDATE TBSUPPLY_BESTELLUNG +SET BESTELLNR = @BESTELLNR, BESTELLT_WER = @BESTELLT_WER, FILE_ORDER_CONFIRM = @file, MENGE = @Menge +WHERE (GUID = @Original_GUID); + + + + + + + + + + + + + UPDATE TBSUPPLY_BESTELLUNG +SET BESTELLNR = @BESTELLNR, BESTELLT_WER = @BESTELLT_WER +WHERE (GUID = @Original_GUID); + + + + + + + + + + + + + UPDATE TBSUPPLY_BESTELLUNG +SET BESTELLNR = @BESTELLNR, FILE_ORDER_CONFIRM = @File +WHERE (GUID = @Original_GUID) + + + + + + + + + + UPDATE TBSUPPLY_BESTELLUNG +SET BESTELLNR = @BESTELLNR +WHERE (GUID = @Original_GUID) + + + + + + + + + + + SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR +FROM TBSUPPLY_BESTELLUNG +WHERE (CONVERT(VARCHAR(10), BESTELLT_WANN, 104) = CONVERT(VARCHAR(10), GETDATE(), 104)) AND (MARKT = @MARKT) + + + + + + + + + + SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR +FROM TBSUPPLY_BESTELLUNG +WHERE (MARKT = @MARKT) AND (MANUELL = 1) AND (CONVERT(DATE, BESTELLT_WANN) = CONVERT(DATE, @date)) + + + + + + + + + + + + + + + SELECT TBGERAET.BEZEICHNUNG + ' - ' + TBSUPPLIES.BEZEICHNUNG AS BEZEICHNUNG, TBSUPPLIES.BEZEICHNUNG AS Supply, TBSUPPLIES.GUID +FROM TBSUPPLIES INNER JOIN + TBGERAET ON TBSUPPLIES.GERAET_ID = TBGERAET.GUID +WHERE (TBSUPPLIES.STATUS_ID NOT IN (6, 7)) +GROUP BY TBSUPPLIES.BEZEICHNUNG, TBGERAET.MARKT, TBGERAET.BEZEICHNUNG, TBSUPPLIES.GUID +HAVING (REPLACE(TBGERAET.MARKT, ' ', '') = REPLACE(@MARKT, ' ', '')) +ORDER BY BEZEICHNUNG + + + + + + + + + + + + + + + + + SELECT TBGERAET.BEZEICHNUNG + ' - ' + TBSUPPLIES.BEZEICHNUNG AS BEZEICHNUNG, TBSUPPLIES.BEZEICHNUNG AS Supply, TBSUPPLIES.GUID +FROM TBSUPPLIES INNER JOIN + TBGERAET ON TBSUPPLIES.GERAET_ID = TBGERAET.GUID +WHERE (TBGERAET.GUID = @GeraeteID) AND (TBSUPPLIES.STATUS_ID NOT IN (6, 7)) +ORDER BY BEZEICHNUNG + + + + + + + + + + + + + + DELETE FROM TBSUPPLY_BESTELLUNG +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO [TBSUPPLY_BESTELLUNG] ([SUPPLY_BEZEICHNUNG], [MENGE], [MARKT], [MANUELL], [BESTELLT_WER], [BESTELLT_WANN], [GERAET], [SERIEN_NR], [BESTELLNR]) VALUES (@SUPPLY_BEZEICHNUNG, @MENGE, @MARKT, @MANUELL, @BESTELLT_WER, @BESTELLT_WANN, @GERAET, @SERIEN_NR, @BESTELLNR); +SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, TIMESTAMP1, GERAET, SERIEN_NR, BESTELLNR FROM TBSUPPLY_BESTELLUNG WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM, MENGE_ORIGIN +FROM VWSUPPLY_BESTELLUNG_FRONTEND +WHERE (MANUELL = 0) AND (REPLACE(MARKT, ' ', '') = REPLACE(@Markt, ' ', '')) OR + (MANUELL = 1) AND (REPLACE(MARKT, ' ', '') = REPLACE(@Markt, ' ', '')) + + + + + + + + UPDATE [TBSUPPLY_BESTELLUNG] SET [SUPPLY_BEZEICHNUNG] = @SUPPLY_BEZEICHNUNG, [MENGE] = @MENGE, [MARKT] = @MARKT, [MANUELL] = @MANUELL, [BESTELLT_WER] = @BESTELLT_WER, [BESTELLT_WANN] = @BESTELLT_WANN, [GERAET] = @GERAET, [SERIEN_NR] = @SERIEN_NR, [BESTELLNR] = @BESTELLNR WHERE (([GUID] = @Original_GUID) AND ([TIMESTAMP1] = @Original_TIMESTAMP1)); +SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, TIMESTAMP1, GERAET, SERIEN_NR, BESTELLNR FROM TBSUPPLY_BESTELLUNG WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT ISNULL(MAX(GUID), 0) AS Expr1 +FROM TBSUPPLY_BESTELLUNG +WHERE (BESTELLNR IS NULL) AND (SUPPLY_BEZEICHNUNG = @SUPPLY_BEZEICHNUNG) AND (REPLACE(MARKT,' ','') = REPLACE(@MARKT,' ','')) AND (SERIEN_NR = @SERIENNR) + + + + + + + + + + + + SELECT ISNULL(MAX(GUID), 0) AS Expr1 +FROM TBSUPPLY_BESTELLUNG +WHERE (SUPPLY_ID = @SUPPLY_ID) + + + + + + + + + + UPDATE TBSUPPLY_BESTELLUNG +SET BESTELLNR = @BESTELLNR, BESTELLT_WER = @BESTELLT_WER, MENGE = @Menge +WHERE (GUID = @Original_GUID); + + + + + + + + + + + + UPDATE TBSUPPLY_BESTELLUNG +SET BESTELLNR = @BESTELLNR, BESTELLT_WER = @BESTELLT_WER +WHERE (GUID = @Original_GUID); + + + + + + + + + + + + + UPDATE TBSUPPLY_BESTELLUNG +SET BESTELLNR = @BESTELLNR, FILE_ORDER_CONFIRM = @file +WHERE (GUID = @Original_GUID) + + + + + + + + + + UPDATE TBSUPPLY_BESTELLUNG +SET BESTELLNR = @BESTELLNR +WHERE (GUID = @Original_GUID) + + + + + + + + + + + SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM +FROM VWSUPPLY_BESTELLUNG_FRONTEND +WHERE (BESTELLT_WANN BETWEEN @D_von AND @D_bis) AND (REPLACE(MARKT, ' ', '') = REPLACE(@MARKT, ' ', '')) OR + (BESTELLT_WANN BETWEEN @D_von AND @D_bis) AND (REPLACE(MARKT, ' ', '') = REPLACE(@MARKT, ' ', '')) + + + + + + + + + + + + SELECT BESTELLNR, BESTELLT_WANN, BESTELLT_WER, GERAET, GUID, MANUELL, MARKT, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, FILE_ORDER_CONFIRM, NAME AS MANDANT, MENGE_ORIGIN +FROM VWSUPPLY_BESTELLUNG_FRONTEND AS T +WHERE (YEAR(BESTELLT_WANN) = YEAR(GETDATE())) AND (NAME = @MANDANT) + + + + + + + + + + SELECT BESTELLNR, BESTELLT_WANN, BESTELLT_WER, GERAET, GUID, MANUELL, MARKT, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, FILE_ORDER_CONFIRM, NAME AS MANDANT, MENGE_ORIGIN +FROM VWSUPPLY_BESTELLUNG_FRONTEND AS T +WHERE (NAME = @MANDANT) AND (BESTELLT_WANN BETWEEN @D_von AND @D_bis) + + + + + + + + + + + + SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM, MENGE_ORIGIN +FROM VWSUPPLY_BESTELLUNG_FRONTEND +WHERE (MANUELL = 1) AND (REPLACE(MARKT, ' ', '') = REPLACE(@MARKT, ' ', '')) + + + + + + + + + + + + + + DELETE FROM [TBGERAET] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ([MARKT] = @Original_MARKT) AND ([SERIENNR] = @Original_SERIENNR) AND ([DATE_INITIAL] = @Original_DATE_INITIAL)) + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG, MARKT, SERIENNR, DATE_INITIAL +FROM TBGERAET +WHERE (MARKT = @MARKT) + + + + + + + + UPDATE [TBGERAET] SET [BEZEICHNUNG] = @BEZEICHNUNG, [MARKT] = @MARKT, [SERIENNR] = @SERIENNR, [DATE_INITIAL] = @DATE_INITIAL WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ([MARKT] = @Original_MARKT) AND ([SERIENNR] = @Original_SERIENNR) AND ([DATE_INITIAL] = @Original_DATE_INITIAL)); +SELECT GUID, BEZEICHNUNG, MARKT, SERIENNR, DATE_INITIAL FROM TBGERAET WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT TBGERAETE_VERFOLGUNG.GERAETE_ID AS GUID, TBGERAETE_VERFOLGUNG.BEZEICHNUNG, TBGERAETE_VERFOLGUNG.MARKT, TBGERAET.SERIENNR, + TBGERAET.DATE_INITIAL +FROM TBGERAET INNER JOIN + TBGERAETE_VERFOLGUNG ON TBGERAET.GUID = TBGERAETE_VERFOLGUNG.GERAETE_ID +WHERE (CONVERT(DATETIME, TBGERAETE_VERFOLGUNG.MELDEDATUM, 104) BETWEEN @datevon AND @datebis) +GROUP BY TBGERAETE_VERFOLGUNG.GERAETE_ID, TBGERAETE_VERFOLGUNG.BEZEICHNUNG, TBGERAETE_VERFOLGUNG.MARKT, TBGERAET.SERIENNR, + TBGERAET.DATE_INITIAL +ORDER BY TBGERAETE_VERFOLGUNG.MARKT, TBGERAETE_VERFOLGUNG.BEZEICHNUNG + + + + + + + + + + + SELECT GUID, BEZEICHNUNG, MARKT, SERIENNR, DATE_INITIAL +FROM TBGERAET +WHERE (GUID = @G_ID) + + + + + + + + + + SELECT TBGERAETE_VERFOLGUNG.GERAETE_ID AS GUID, TBGERAETE_VERFOLGUNG.BEZEICHNUNG, TBGERAETE_VERFOLGUNG.MARKT, TBGERAET.SERIENNR, + TBGERAET.DATE_INITIAL +FROM TBGERAET INNER JOIN + TBGERAETE_VERFOLGUNG ON TBGERAET.GUID = TBGERAETE_VERFOLGUNG.GERAETE_ID +WHERE (CONVERT(DATETIME, TBGERAETE_VERFOLGUNG.MELDEDATUM, 104) BETWEEN @datevon AND @datebis) +GROUP BY TBGERAETE_VERFOLGUNG.GERAETE_ID, TBGERAETE_VERFOLGUNG.BEZEICHNUNG, TBGERAETE_VERFOLGUNG.MARKT, TBGERAET.SERIENNR, + TBGERAET.DATE_INITIAL +HAVING (TBGERAETE_VERFOLGUNG.MARKT = @Markt) +ORDER BY TBGERAETE_VERFOLGUNG.MARKT, TBGERAETE_VERFOLGUNG.BEZEICHNUNG + + + + + + + + + + + + + + + + SELECT GUID, VERTRAGSNR, SERIEN_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBIMPORT_PRODUKT + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBIMPORT_PRODUKT +WHERE (MANDANT_ID = @mandant_id) + + + + + + + + + + INSERT INTO TBIMPORT_PRODUKT + (MARKT, VERTRAGSNR, SERIEN_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, NICHT_AKTIV, ABGEBAUT, MANDANT_ID, ASSET_NR, FILTER1, FILTER2, FILTER3, FILTER4, BF_SERIEN_NR, ON_HOLD) +VALUES (@MARKT,@VERTRAGSNR,@SERIEN_NR,@PRODUKT_NR,@MODELL_NAME,@ERFASSTWER,@NICHT_AKTIV,@ABGEBAUT,@MANDANT_ID,@ASSET_NR,@FILTER1,@FILTER2,@FILTER3,@FILTER4,@BF,@OH) + + + + + + + + + + + + + + + + + + + + + + + + + dbo.PRINSERT_PRODUKT_VERTRAG + + + + + + + + + + + + + + DELETE FROM [TBVERTRAEGE] WHERE (([GUID] = @Original_GUID) AND ([VERTRAGSNR] = @Original_VERTRAGSNR) AND ((@IsNull_BEZEICHNUNG1 = 1 AND [BEZEICHNUNG1] IS NULL) OR ([BEZEICHNUNG1] = @Original_BEZEICHNUNG1)) AND ((@IsNull_BEZEICHNUNG2 = 1 AND [BEZEICHNUNG2] IS NULL) OR ([BEZEICHNUNG2] = @Original_BEZEICHNUNG2)) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWANN)) + + + + + + + + + + + + + + + + + + INSERT INTO [TBVERTRAEGE] ([VERTRAGSNR], [BEZEICHNUNG1], [BEZEICHNUNG2], [ERFASSTWER], [ERFASSTWANN], [GEAENDERTWER], [GEAENDERTWANN]) VALUES (@VERTRAGSNR, @BEZEICHNUNG1, @BEZEICHNUNG2, @ERFASSTWER, @ERFASSTWANN, @GEAENDERTWER, @GEAENDERTWANN); +SELECT GUID, VERTRAGSNR, BEZEICHNUNG1, BEZEICHNUNG2, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBVERTRAEGE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT GUID, VERTRAGSNR, BEZEICHNUNG1, BEZEICHNUNG2, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN +FROM TBVERTRAEGE +WHERE (AKTIV = 1) + + + + + + UPDATE [TBVERTRAEGE] SET [VERTRAGSNR] = @VERTRAGSNR, [BEZEICHNUNG1] = @BEZEICHNUNG1, [BEZEICHNUNG2] = @BEZEICHNUNG2, [ERFASSTWER] = @ERFASSTWER, [ERFASSTWANN] = @ERFASSTWANN, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ([VERTRAGSNR] = @Original_VERTRAGSNR) AND ((@IsNull_BEZEICHNUNG1 = 1 AND [BEZEICHNUNG1] IS NULL) OR ([BEZEICHNUNG1] = @Original_BEZEICHNUNG1)) AND ((@IsNull_BEZEICHNUNG2 = 1 AND [BEZEICHNUNG2] IS NULL) OR ([BEZEICHNUNG2] = @Original_BEZEICHNUNG2)) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWANN)); +SELECT GUID, VERTRAGSNR, BEZEICHNUNG1, BEZEICHNUNG2, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBVERTRAEGE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT MAX(GUID) FROM TBVERTRAEGE + + + + + + + + SELECT GUID, VERTRAGSNR, BEZEICHNUNG1, BEZEICHNUNG2, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN +FROM TBVERTRAEGE +WHERE (GUID <= @GUID) + + + + + + + + + + + + + + DELETE FROM [TBPRODUKT_VERTRAG] WHERE (([GUID] = @Original_GUID) AND ([VERTRAG_ID] = @Original_VERTRAG_ID) AND ((@IsNull_SERIEN_NR = 1 AND [SERIEN_NR] IS NULL) OR ([SERIEN_NR] = @Original_SERIEN_NR)) AND ((@IsNull_PRODUKT_NR = 1 AND [PRODUKT_NR] IS NULL) OR ([PRODUKT_NR] = @Original_PRODUKT_NR)) AND ((@IsNull_MODELL_NAME = 1 AND [MODELL_NAME] IS NULL) OR ([MODELL_NAME] = @Original_MODELL_NAME)) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEANDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWANN) AND ([AKTIV] = @Original_AKTIV)) + + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBPRODUKT_VERTRAG] ([VERTRAG_ID], [SERIEN_NR], [PRODUKT_NR], [MODELL_NAME], [ERFASSTWER], [ERFASSTWANN], [GEANDERTWER], [GEAENDERTWANN], [AKTIV]) VALUES (@VERTRAG_ID, @SERIEN_NR, @PRODUKT_NR, @MODELL_NAME, @ERFASSTWER, @ERFASSTWANN, @GEANDERTWER, @GEAENDERTWANN, @AKTIV); +SELECT GUID, VERTRAG_ID, SERIEN_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, AKTIV FROM TBPRODUKT_VERTRAG WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT GUID, VERTRAG_ID, SERIEN_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, AKTIV +FROM TBPRODUKT_VERTRAG +WHERE (AKTIV = 1) + + + + + + UPDATE [TBPRODUKT_VERTRAG] SET [VERTRAG_ID] = @VERTRAG_ID, [SERIEN_NR] = @SERIEN_NR, [PRODUKT_NR] = @PRODUKT_NR, [MODELL_NAME] = @MODELL_NAME, [ERFASSTWER] = @ERFASSTWER, [ERFASSTWANN] = @ERFASSTWANN, [GEANDERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN, [AKTIV] = @AKTIV WHERE (([GUID] = @Original_GUID) AND ([VERTRAG_ID] = @Original_VERTRAG_ID) AND ((@IsNull_SERIEN_NR = 1 AND [SERIEN_NR] IS NULL) OR ([SERIEN_NR] = @Original_SERIEN_NR)) AND ((@IsNull_PRODUKT_NR = 1 AND [PRODUKT_NR] IS NULL) OR ([PRODUKT_NR] = @Original_PRODUKT_NR)) AND ((@IsNull_MODELL_NAME = 1 AND [MODELL_NAME] IS NULL) OR ([MODELL_NAME] = @Original_MODELL_NAME)) AND ([ERFASSTWER] = @Original_ERFASSTWER) AND ([ERFASSTWANN] = @Original_ERFASSTWANN) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEANDERTWER)) AND ([GEAENDERTWANN] = @Original_GEAENDERTWANN) AND ([AKTIV] = @Original_AKTIV)); +SELECT GUID, VERTRAG_ID, SERIEN_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, AKTIV FROM TBPRODUKT_VERTRAG WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBGERAETE_NOTINLIST] WHERE (([GUID] = @Original_GUID) AND ([TIMESTAMP1] = @Original_TIMESTAMP1)) + + + + + + + + + INSERT INTO [TBGERAETE_NOTINLIST] ([VERTRAG_ID], [MODELL_NAME], [MARKT], [ERFASSTWER], [ERFASSTWANN], [GEAENDERTWER], [GEAENDERTWANN]) VALUES (@VERTRAG_ID, @MODELL_NAME, @MARKT, @ERFASSTWER, @ERFASSTWANN, @GEAENDERTWER, @GEAENDERTWANN); +SELECT GUID, VERTRAG_ID, MODELL_NAME, MARKT, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1 FROM TBGERAETE_NOTINLIST WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT TBGERAETE_NOTINLIST.* +FROM TBGERAETE_NOTINLIST + + + + + + UPDATE [TBGERAETE_NOTINLIST] SET [VERTRAG_ID] = @VERTRAG_ID, [MODELL_NAME] = @MODELL_NAME, [MARKT] = @MARKT, [ERFASSTWER] = @ERFASSTWER, [ERFASSTWANN] = @ERFASSTWANN, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ([TIMESTAMP1] = @Original_TIMESTAMP1)); +SELECT GUID, VERTRAG_ID, MODELL_NAME, MARKT, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1 FROM TBGERAETE_NOTINLIST WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBGERAETE_NOTINLIST +WHERE (VERTRAG_ID = + (SELECT GUID + FROM TBVERTRAEGE + WHERE (VERTRAGSNR = @VERTRAGSNR))) + + + + + + + + + + DELETE FROM [TBGERAETE_NOTINLIST] + + + + + + + + + + + + SELECT PRODUKT_NR, PRODUKT_NR + ' - ' + MODELL_NAME AS String +FROM TBPRODUKT_VERTRAG +WHERE (AKTIV = 1) +GROUP BY PRODUKT_NR, MODELL_NAME + + + + + + + + + + + + + + + + + DELETE FROM TBSUPPLY_DEFINITION +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBSUPPLY_DEFINITION + (SUPPLY_BEZ, ERFASSTWER, SUPPLY_NAME_DATEI) +VALUES (@SUPPLY_BEZ,@ERFASSTWER,@SUPPLY_NAME_DATEI); +SELECT GUID, SUPPLY_BEZ, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1 FROM TBSUPPLY_DEFINITION WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + SELECT GUID, SUPPLY_BEZ, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1, SUPPLY_NAME_DATEI +FROM TBSUPPLY_DEFINITION + + + + + + UPDATE TBSUPPLY_DEFINITION +SET SUPPLY_BEZ = @SUPPLY_BEZ, GEAENDERTWER = @GEAENDERTWER, SUPPLY_NAME_DATEI = @SUPPLY_NAME_DATEI +WHERE (GUID = @Original_GUID); +SELECT GUID, SUPPLY_BEZ, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1 FROM TBSUPPLY_DEFINITION WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT ISNULL(COUNT(GUID), 0) AS Expr1 +FROM TBSUPPLY_DEFINITION +WHERE (LOWER(SUPPLY_NAME_DATEI) = LOWER(@String_Datei)) + + + + + + + + + + SELECT SUPPLY_BEZ +FROM TBSUPPLY_DEFINITION +WHERE (LOWER(SUPPLY_NAME_DATEI) = LOWER(@String_Datei)) + + + + + + + + + + + + + + DELETE FROM TBGERAET_SUPPLY_ZUORDNUNG +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBGERAET_SUPPLY_ZUORDNUNG + (GERAET_BEZ, SUPPLY_ID, ERFASSTWER, PARTNUMBER, SCHWELLENWERT, PARTNUMBER_ORDER) +VALUES (@GERAET_BEZ,@SUPPLY_ID,@ERFASSTWER,@PARTNUMBER,@SCHWELLENWERT,@PARTNUMBER_ORDER) + + + + + + + + + + + + + SELECT GUID, GERAET_BEZ, SUPPLY_ID, ERFASSTWER, PARTNUMBER, SCHWELLENWERT +FROM TBGERAET_SUPPLY_ZUORDNUNG + + + + + + UPDATE [TBGERAET_SUPPLY_ZUORDNUNG] SET [GERAET_BEZ] = @GERAET_BEZ, [SUPPLY_ID] = @SUPPLY_ID, [ERFASSTWER] = @ERFASSTWER WHERE (([GUID] = @Original_GUID) AND ([GERAET_BEZ] = @Original_GERAET_BEZ) AND ([SUPPLY_ID] = @Original_SUPPLY_ID) AND ([ERFASSTWER] = @Original_ERFASSTWER)); +SELECT GUID, GERAET_BEZ, SUPPLY_ID, ERFASSTWER FROM TBGERAET_SUPPLY_ZUORDNUNG WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT TBGERAET_SUPPLY_ZUORDNUNG.GUID, TBGERAET_SUPPLY_ZUORDNUNG.GERAET_BEZ, TBSUPPLY_DEFINITION.SUPPLY_BEZ, + TBGERAET_SUPPLY_ZUORDNUNG.PARTNUMBER, TBGERAET_SUPPLY_ZUORDNUNG.PARTNUMBER_ORDER, + TBGERAET_SUPPLY_ZUORDNUNG.SCHWELLENWERT, TBGERAET_SUPPLY_ZUORDNUNG.ERFASSTWER, + TBGERAET_SUPPLY_ZUORDNUNG.ERFASSTWANN +FROM TBGERAET_SUPPLY_ZUORDNUNG INNER JOIN + TBSUPPLY_DEFINITION ON TBGERAET_SUPPLY_ZUORDNUNG.SUPPLY_ID = TBSUPPLY_DEFINITION.GUID +ORDER BY TBGERAET_SUPPLY_ZUORDNUNG.GERAET_BEZ + + + + + + + + + + + + + + + + + + + + UPDATE TBGERAET_SUPPLY_ZUORDNUNG +SET SCHWELLENWERT = @SCHWELLENWERT +WHERE (GUID = @GUID) + + + + + + + + + + + SELECT TBGERAET_SUPPLY_ZUORDNUNG.GUID, TBGERAET_SUPPLY_ZUORDNUNG.GERAET_BEZ, TBSUPPLY_DEFINITION.SUPPLY_BEZ, + TBGERAET_SUPPLY_ZUORDNUNG.PARTNUMBER, TBGERAET_SUPPLY_ZUORDNUNG.PARTNUMBER_ORDER, + TBGERAET_SUPPLY_ZUORDNUNG.SCHWELLENWERT, TBGERAET_SUPPLY_ZUORDNUNG.ERFASSTWER, + TBGERAET_SUPPLY_ZUORDNUNG.ERFASSTWANN +FROM TBGERAET_SUPPLY_ZUORDNUNG INNER JOIN + TBSUPPLY_DEFINITION ON TBGERAET_SUPPLY_ZUORDNUNG.SUPPLY_ID = TBSUPPLY_DEFINITION.GUID +WHERE (TBGERAET_SUPPLY_ZUORDNUNG.GERAET_BEZ = @GERAET_BEZ) +ORDER BY TBGERAET_SUPPLY_ZUORDNUNG.GERAET_BEZ + + + + + + + + + + + + + + DELETE FROM TBUSER_RECHTE +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBUSER_RECHTE + (USR_NAME, EINLESEN, KONGIGURATION, ERFASSTWER) +VALUES (@USR_NAME,@EINLESEN,@KONGIGURATION,@ERFASSTWER) + + + + + + + + + + + SELECT GUID, USR_NAME, EINLESEN, KONGIGURATION, ERFASSTWER, GEAENDERTWER, GEAENDERTWANN +FROM TBUSER_RECHTE + + + + + + UPDATE TBUSER_RECHTE +SET USR_NAME = @USR_NAME, EINLESEN = @EINLESEN, KONGIGURATION = @KONGIGURATION, GEAENDERTWER = @GEAENDERTWER +WHERE (GUID = @Original_GUID); +SELECT GUID, USR_NAME, EINLESEN, KONGIGURATION, ERFASSTWER, GEAENDERTWER, GEAENDERTWANN FROM TBUSER_RECHTE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBMELDEDATUM] WHERE (([MELDEDATUM] = @Original_MELDEDATUM) AND ([MARKT] = @Original_MARKT) AND ([TIMESTAMP1] = @Original_TIMESTAMP1)) + + + + + + + + + + INSERT INTO TBMELDEDATUM + (MELDEDATUM, MARKT, ERFASSTWER) +VALUES (@MELDEDATUM,@MARKT,@ERFASSTWER); +SELECT GUID, MELDEDATUM, MARKT, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, TIMESTAMP1 FROM TBMELDEDATUM WHERE (MARKT = @MARKT) AND (MELDEDATUM = @MELDEDATUM) + + + + + + + + + + SELECT TBMELDEDATUM.* +FROM TBMELDEDATUM + + + + + + UPDATE [TBMELDEDATUM] SET [MELDEDATUM] = @MELDEDATUM, [MARKT] = @MARKT, [ERFASSTWER] = @ERFASSTWER, [ERFASSTWANN] = @ERFASSTWANN, [GEANDERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([MELDEDATUM] = @Original_MELDEDATUM) AND ([MARKT] = @Original_MARKT) AND ([TIMESTAMP1] = @Original_TIMESTAMP1)); +SELECT GUID, MELDEDATUM, MARKT, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, TIMESTAMP1 FROM TBMELDEDATUM WHERE (MARKT = @MARKT) AND (MELDEDATUM = @MELDEDATUM) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT ISNULL(MAX(GUID), 0) AS Expr1 +FROM TBMELDEDATUM +WHERE (MELDEDATUM = @DATE) AND (MARKT = @markt) + + + + + + + + + + + + + + + DELETE FROM [TBGERAETE_VERFOLGUNG] WHERE (([GUID] = @Original_GUID) AND ([TIMESTAMP1] = @Original_TIMESTAMP1)) + + + + + + + + + INSERT INTO TBGERAETE_VERFOLGUNG + (BEZEICHNUNG, IP_ADRESSE, SERIENNR, PAGE_COUNT, MARKT, DATEINAME, MELDEDATUM, VERTRAG, MODEL_NR, A3DuplexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, + A3ColorTotalImpressions, A3MonoTotalImpressions, A4MonoTotalImpressions, A4ColorTotalImpressions, AverageBlackCoverage, AverageCyanCoverage, AverageMagentaCoverage, AverageYellowCoverage, + ScanA3Total, ScanA4Total, KD_KZ, FAX_INCOMING, SCAN_A4_TOTAL, SCAN_A3_TOTAL, PORT_DISPLAY) +VALUES (@BEZEICHNUNG,@IP_ADRESSE,@SERIENNR,@PAGE_COUNT,@MARKT,@DATEINAME,@MELDEDATUM,@VERTRAG,@MODEL_NR,@A3DuplexSheets,@A3SimplexSheets,@A4DuplexSheets,@A4SimplexSheets,@A3ColorTotalImpressions,@A3MonoTotalImpressions,@A4MonoTotalImpressions,@A4ColorTotalImpressions,@AverageBlackCoverage,@AverageCyanCoverage,@AverageMagentaCoverage,@AverageYellowCoverage,@ScanA3Total,@ScanA4Total,@KD_KZ,@FAX_INCOMING,@SCAN_A4_TOTAL,@SCAN_A3_TOTAL,@PORT_DISPLAY); +SELECT GUID, GERAETE_ID, BEZEICHNUNG, IP_ADRESSE, SERIENNR, PAGE_COUNT, MARKT, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1, DATEINAME, MELDEDATUM, VERTRAG, NOTINLIST, MODEL_NR, DOPPELT_GEMELDET, NO_SERIENNR, A3DuplexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, A3ColorTotalImpressions, A3MonoTotalImpressions, A4MonoTotalImpressions, A4ColorTotalImpressions, AverageBlackCoverage, AverageCyanCoverage, AverageMagentaCoverage, AverageYellowCoverage, ScanA3Total, ScanA4Total FROM TBGERAETE_VERFOLGUNG WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, GERAETE_ID, BEZEICHNUNG, IP_ADRESSE, SERIENNR, PAGE_COUNT, MARKT, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, DATEINAME, MELDEDATUM, VERTRAG, NOTINLIST, MODEL_NR, DOPPELT_GEMELDET, NO_SERIENNR, MARKT_ID, MODELL_ID, A3DuplexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, A3ColorTotalImpressions, A3TotalMonoImpressions, A4ColorTotalImpressions, A4MonoTotalImpressions, A4TotalColorImpressions, A4TotalMonoImpressions, A3TotalImages, A4TotalImages, PPUTotalCopyPageCount, AverageBlackCoverage, AverageCyanCoverage, AverageMagentaCoverage, AverageYellowCoverage, A3MonoTotalImpressions, ScanA3Total, ScanA4Total, MARKER, NO_CHANGE, KD_KZ, FAX_INCOMING, SCAN_A4_TOTAL, SCAN_A3_TOTAL, PAGE_COUNT_DIFF, PORT_DISPLAY, BREAK_FIX, GERAETE_INSERT_OK FROM TBGERAETE_VERFOLGUNG + + + + + + UPDATE [TBGERAETE_VERFOLGUNG] SET [GERAETE_ID] = @GERAETE_ID, [BEZEICHNUNG] = @BEZEICHNUNG, [IP_ADRESSE] = @IP_ADRESSE, [SERIENNR] = @SERIENNR, [PAGE_COUNT] = @PAGE_COUNT, [MARKT] = @MARKT, [ERFASSTWANN] = @ERFASSTWANN, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN, [DATEINAME] = @DATEINAME, [MELDEDATUM] = @MELDEDATUM, [VERTRAG] = @VERTRAG, [NOTINLIST] = @NOTINLIST, [MODEL_NR] = @MODEL_NR, [DOPPELT_GEMELDET] = @DOPPELT_GEMELDET, [NO_SERIENNR] = @NO_SERIENNR, [A3DuplexSheets] = @A3DuplexSheets, [A3SimplexSheets] = @A3SimplexSheets, [A4DuplexSheets] = @A4DuplexSheets, [A4SimplexSheets] = @A4SimplexSheets, [A3ColorTotalImpressions] = @A3ColorTotalImpressions, [A3MonoTotalImpressions] = @A3MonoTotalImpressions, [A4MonoTotalImpressions] = @A4MonoTotalImpressions, [A4ColorTotalImpressions] = @A4ColorTotalImpressions, [AverageBlackCoverage] = @AverageBlackCoverage, [AverageCyanCoverage] = @AverageCyanCoverage, [AverageMagentaCoverage] = @AverageMagentaCoverage, [AverageYellowCoverage] = @AverageYellowCoverage, [ScanA3Total] = @ScanA3Total, [ScanA4Total] = @ScanA4Total WHERE (([GUID] = @Original_GUID) AND ([TIMESTAMP1] = @Original_TIMESTAMP1)); +SELECT GUID, GERAETE_ID, BEZEICHNUNG, IP_ADRESSE, SERIENNR, PAGE_COUNT, MARKT, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1, DATEINAME, MELDEDATUM, VERTRAG, NOTINLIST, MODEL_NR, DOPPELT_GEMELDET, NO_SERIENNR, A3DuplexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, A3ColorTotalImpressions, A3MonoTotalImpressions, A4MonoTotalImpressions, A4ColorTotalImpressions, AverageBlackCoverage, AverageCyanCoverage, AverageMagentaCoverage, AverageYellowCoverage, ScanA3Total, ScanA4Total FROM TBGERAETE_VERFOLGUNG WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO TBGERAETE_VERFOLGUNG + (BEZEICHNUNG, IP_ADRESSE, SERIENNR, PAGE_COUNT, MARKT, DATEINAME, MELDEDATUM, VERTRAG, MODEL_NR, A3DuplexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, + A3ColorTotalImpressions, A3MonoTotalImpressions, A4MonoTotalImpressions, A4ColorTotalImpressions, AverageBlackCoverage, AverageCyanCoverage, AverageMagentaCoverage, AverageYellowCoverage, + ScanA3Total, ScanA4Total, KD_KZ, FAX_INCOMING, SCAN_A4_TOTAL, SCAN_A3_TOTAL, PORT_DISPLAY) +VALUES (@BEZEICHNUNG,@IP_ADRESSE,@SERIENNR,@PAGE_COUNT,@MARKT,@DATEINAME,@MELDEDATUM,@VERTRAG,@MODEL_NR,@A3DuplexSheets,@A3SimplexSheets,@A4DuplexSheets,@A4SimplexSheets,@A3ColorTotalImpressions,@A3MonoTotalImpressions,@A4MonoTotalImpressions,@A4ColorTotalImpressions,@AverageBlackCoverage,@AverageCyanCoverage,@AverageMagentaCoverage,@AverageYellowCoverage,@ScanA3Total,@ScanA4Total,@KD_KZ,@FAX_INCOMING,@SCAN_A4_TOTAL,@SCAN_A3_TOTAL,@PORT_DISPLAY) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT MAX(GUID) AS Expr1 +FROM TBGERAETE_VERFOLGUNG +WHERE (SERIENNR = @SERIENNR) + + + + + + + + + + SELECT NOTINLIST FROM TBGERAETE_VERFOLGUNG WHERE (GUID = (SELECT MAX(GUID) AS Expr1 FROM TBGERAETE_VERFOLGUNG AS TBGERAETE_VERFOLGUNG_1)) + + + + + + + + + + + + SELECT +REPLACE(MARKT, ' ', '') AS MARKT, +GERAETE_ID, +SERIENNR, +(SELECT BEZEICHNUNG FROM TBGERAET AS tg WHERE (GUID = GERAETE_ID)) AS DEVICE, +MIN(PAGE_COUNT) AS PAGE_MIN, +MAX(PAGE_COUNT) AS PAGE_MAX, +MAX(PAGE_COUNT) - MIN(PAGE_COUNT) AS DRUCKSEITEN, +MAX(CONVERT(DATE, MELDEDATUM)) AS LETZTES_MELDEDATUM +FROM +MC2_SUPPLYWATCH_VERFOLGUNG.dbo.TBGERAETE_VERFOLGUNG +WHERE PAGE_COUNT > 0 AND GERAETE_ID IS NOT NULL AND + REPLACE(MARKT, ' ', '') = REPLACE(@MARKT, ' ', '') AND CONVERT(DATE, MELDEDATUM) BETWEEN CONVERT(DATE,@DATEVON) AND CONVERT(DATE,@DATE_BIS) +GROUP BY + GERAETE_ID, + SERIENNR, + REPLACE(MARKT, ' ', '') +ORDER BY MAX(CONVERT(DATE, MELDEDATUM)) + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT MODELL, MARKT, SERIENNR, PC_INITIAL, PAGE_COUNT, PPM, MELDEDATUM, ERFASSTWANN, DATEINAME, IP_ADRESSE, DATE_INITIAL, GERAETE_ID +FROM VWGERAETE_VERFOLGUNG +WHERE (GERAETE_ID = @GERAETE_ID) +ORDER BY MELDEDATUM + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT DATEINAME, DATE_INITIAL, ERFASSTWANN, GERAETE_ID, IP_ADRESSE, MARKT, MELDEDATUM, MODELL, PAGE_COUNT, PC_INITIAL, PPM, SERIENNR +FROM VWGERAETE_VERFOLGUNG +WHERE (GERAETE_ID = @GERAETE_ID) AND (MELDEDATUM BETWEEN @DATUMVON AND @DATUMBIS) +ORDER BY MELDEDATUM + + + + + + + + + + + + + + + + SELECT ERFASSTWER, CONVERT(date, ERFASSTWANN) AS Datum +FROM TBPRODUKT_VERTRAG +GROUP BY ERFASSTWER, CONVERT(date, ERFASSTWANN) +ORDER BY Datum DESC + + + + + + + + + + + + + + + + + INSERT INTO TBMANDANTEN + (NAME, NAME_LANG, KENNZEICHEN, FLEETWATCH, SUPPLYWATCH, ERSTELLLTWER, FILTER) +VALUES (@NAME,@NAME_LANG,@KENNZEICHEN,@FLEETWATCH,@SUPPLYWATCH,@ERSTELLLTWER,@FILTER); +SELECT GUID, NAME, NAME_LANG, KENNZEICHEN, FLEETWATCH, SUPPLYWATCH, ERSTELLLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBMANDANTEN WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT GUID, NAME, NAME_LANG, KENNZEICHEN, FLEETWATCH, SUPPLYWATCH, ERSTELLLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN, + FILTER +FROM TBMANDANTEN + + + + + + UPDATE TBMANDANTEN +SET NAME = @NAME, NAME_LANG = @NAME_LANG, KENNZEICHEN = @KENNZEICHEN, FLEETWATCH = @FLEETWATCH, SUPPLYWATCH = @SUPPLYWATCH, + GEAENDERTWER = @GEAENDERTWER, FILTER = @FILTER +WHERE (GUID = @Original_GUID); +SELECT GUID, NAME, NAME_LANG, KENNZEICHEN, FLEETWATCH, SUPPLYWATCH, ERSTELLLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBMANDANTEN WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT SUPPLYWATCH +FROM TBMANDANTEN +WHERE (UPPER(KENNZEICHEN) = UPPER(@kz)) + + + + + + + + + + SELECT GUID AS Expr1 +FROM TBMANDANTEN +WHERE (LOWER(NAME) = LOWER(@name)) + + + + + + + + + + + + + + SELECT MODELL, MARKT, SERIENNR, SUPPLY, SUPPLY_LEVEL, MELDEDATUM, ERFASSTWANN, STATUS, SUPPLY_SERIENNR, PARTNUMBER +FROM VWSUPPLY_VERFOLGUNG +WHERE (GERAET_ID = @GERAET_ID) +ORDER BY MELDEDATUM + + + + + + + + + + + + + + + + + + + + + + + + SELECT MODELL, MARKT, SERIENNR, SUPPLY, SUPPLY_LEVEL, MELDEDATUM, ERFASSTWANN, STATUS, SUPPLY_SERIENNR, PARTNUMBER +FROM VWSUPPLY_VERFOLGUNG +WHERE (GERAET_ID = @GERAET_ID) AND (MELDEDATUM BETWEEN @datevon AND @datebis) +ORDER BY MELDEDATUM + + + + + + + + + + + + SELECT SUPPLY, SUPPLY_LEVEL, MELDEDATUM, ERFASSTWANN, STATUS, SUPPLY_SERIENNR, PARTNUMBER +FROM VWSUPPLY_VERFOLGUNG +WHERE (SUPPLY_ID = @SUPPLY_ID) +ORDER BY ERFASSTWANN DESC + + + + + + + + + + + + + + SELECT RTRIM(LTRIM(SERIEN_NR)) AS SERIAL, COUNT(SERIEN_NR) AS DUPLIKATE +FROM TBIMPORT_PRODUKT +GROUP BY RTRIM(LTRIM(SERIEN_NR)), ABGEBAUT +HAVING (COUNT(SERIEN_NR) > 1) AND (ABGEBAUT = 0) + + + + + + + + + + + + + + + + + SELECT GUID, MELDUNG, ERFASSTWER, ERFASSTWANN +FROM TBCHANGE_LOG_GERAET +WHERE (GERAET_ID = @GERAET_ID) +ORDER BY ERFASSTWANN DESC + + + + + + + + + + + + + + + + + + + + + SELECT TBMANDANTEN.NAME, TBIMP_LOG_FILE.VERTRAG, TBIMP_LOG_FILE.MELDEDATUM, TBIMP_LOG_FILE.IMPORT_DATUM, TBIMP_LOG_FILE.ERFASSTWANN, TBIMP_LOG_FILE.IMPORT_STATE, + TBIMP_LOG_FILE.DATEI +FROM TBIMP_LOG_FILE INNER JOIN + TBMANDANTEN ON TBIMP_LOG_FILE.MANDANT_ID = TBMANDANTEN.GUID +WHERE (TBIMP_LOG_FILE.IMPORT_DATUM = CONVERT(DATE, GETDATE())) + + + + + + + + + + + + + + + + + + + + + + SELECT MANDANT_ID, GERAETE_ID, BEZEICHNUNG, SERIENNR, MARKT, MELDEDATUM, VERTRAG, STATE, MARKER +FROM VWGERAETE_MELDUNG_STATUS + + + + + + + + + + + + + + + + + + + + + + + + SELECT T.MELDEDATUM AS Meldedatum, T1.BEZEICHNUNG AS Status, T.MARKER AS Marker, T.ERFASSTWANN AS [Erfasst wann] +FROM TBSUPPLY_STATUS_VERFOLGUNG AS T INNER JOIN + TBSTATUS AS T1 ON T.STATUS_ID = T1.GUID +WHERE (T.SUPPLY_ID = @SUPPLY_ID) +ORDER BY T.GUID DESC + + + + + + + + + + + + + + + + + + + + + SELECT BESTELL_ID, SUPPLY_ID, BESTELLT_WANN, BESTELLT_WER, GERAET, MANUELL, MARKT, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, MANDANT +FROM VWSUPPLIES_BESTELLUNG_GESENDET +WHERE (MANDANT = @MANDANT) + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROm TBSUPPLY_BESTELLUNG WHERE GUID = @GUID + + + + + + + + + + + + + + SELECT GEAENDERTWER, GERAET, GERAET_IP, GERAET_SERIENNR, GERAET_PAGECOUNT, GERAET_PPM, MARKT, SUPPLY_BEZ, LEVEL, SCHWELLENWERT, PARTNUMBER, SERIENNR, STATUS, VERTRAG, + PARTNUMBER_ORDER, CONVERT(BIT, MANUELL) AS MANUELL, ANZAHL, SUPPLY_ID +FROM VWRPT_SUPPLIES_TOORDER +WHERE (MANDANT = @MANDANT) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT MANDANT, MANDANT_ID, SUPPLY_ID, GERAET_ID, DEVICE, DEVICE_SERIAL, MARKT, PAGE_COUNT, PPM, BESTELLUNG, SUPPLY_BEZEICHNUNG, LEVEL, SCHWELLENWERT, PARTNUMBER, SERIENNR, + STATUS_ID, STATUS, ERFASSTWANN, GEAENDERTWER, STATUS_WANN, STATUS_WER, MANUELL, FW, GUID, GUI_SELECTED, MENGE, BESTELL_ID +FROM VWSUPPLIES_2_ORDER +WHERE (MANDANT = @MANDANT) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Supplywatch/MyDataset.xss b/Supplywatch/MyDataset.xss new file mode 100644 index 0000000..4ebd487 --- /dev/null +++ b/Supplywatch/MyDataset.xss @@ -0,0 +1,296 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 1100 + 53 + + + 1137 + 53 + + + + + + + 1137 + 44 + + + 1100 + 44 + + + + + + + 528 + 597 + + + 528 + 534 + + + 512 + 534 + + + 512 + 579 + + + + + + + 1129 + 206 + + + 350 + 206 + + + + + + + 1130 + 328 + + + 350 + 328 + + + + + + + 1131 + 451 + + + 350 + 451 + + + + + + + 1137 + 133 + + + 350 + 133 + + + + + + + 862 + 553 + + + 146 + 553 + + + 146 + 545 + + + + + + + 1154 + 542 + + + 403 + 542 + + + 403 + 454 + + + + + + + 1171 + 621 + + + 1171 + 734 + + + 654 + 734 + + + + + + + 1615 + 651 + + + 1615 + 687 + + + + + + + 62 + 0 + + + 62 + -30 + + + 62 + -30 + + + 62 + 0 + + + + + + + 158 + 51 + + + 248 + 51 + + + + + + + 1134 + 640 + + + 191 + 640 + + + 191 + 545 + + + + + + + 50 + 0 + + + 50 + -22 + + + 50 + -30 + + + 50 + 124 + + + + + + + 42 + 0 + + + 42 + -22 + + + 42 + -30 + + + 42 + 124 + + + + + \ No newline at end of file diff --git a/Supplywatch/Resources/Beenden2.ico b/Supplywatch/Resources/Beenden2.ico new file mode 100644 index 0000000..cd88cec Binary files /dev/null and b/Supplywatch/Resources/Beenden2.ico differ diff --git a/Supplywatch/Resources/CheckIn_13188.png b/Supplywatch/Resources/CheckIn_13188.png new file mode 100644 index 0000000..3356935 Binary files /dev/null and b/Supplywatch/Resources/CheckIn_13188.png differ diff --git a/Supplywatch/Resources/CheckOutforEdit_13187.png b/Supplywatch/Resources/CheckOutforEdit_13187.png new file mode 100644 index 0000000..1714650 Binary files /dev/null and b/Supplywatch/Resources/CheckOutforEdit_13187.png differ diff --git a/Supplywatch/Resources/Checked-outforEdit_13297.png b/Supplywatch/Resources/Checked-outforEdit_13297.png new file mode 100644 index 0000000..2214df2 Binary files /dev/null and b/Supplywatch/Resources/Checked-outforEdit_13297.png differ diff --git a/Supplywatch/Resources/Checked-outforEdit_Color_13297.png b/Supplywatch/Resources/Checked-outforEdit_Color_13297.png new file mode 100644 index 0000000..1ca507e Binary files /dev/null and b/Supplywatch/Resources/Checked-outforEdit_Color_13297.png differ diff --git a/Supplywatch/Resources/Delete1.ico b/Supplywatch/Resources/Delete1.ico new file mode 100644 index 0000000..69df469 Binary files /dev/null and b/Supplywatch/Resources/Delete1.ico differ diff --git a/Supplywatch/Resources/DigitalDataLogo.jpg b/Supplywatch/Resources/DigitalDataLogo.jpg new file mode 100644 index 0000000..a70904f Binary files /dev/null and b/Supplywatch/Resources/DigitalDataLogo.jpg differ diff --git a/Supplywatch/Resources/EMAIL.ico b/Supplywatch/Resources/EMAIL.ico new file mode 100644 index 0000000..29233dd Binary files /dev/null and b/Supplywatch/Resources/EMAIL.ico differ diff --git a/Supplywatch/Resources/Excel_25ixel.jpg b/Supplywatch/Resources/Excel_25ixel.jpg new file mode 100644 index 0000000..a1c46d1 Binary files /dev/null and b/Supplywatch/Resources/Excel_25ixel.jpg differ diff --git a/Supplywatch/Resources/My Downloads XP.ico b/Supplywatch/Resources/My Downloads XP.ico new file mode 100644 index 0000000..7dd5191 Binary files /dev/null and b/Supplywatch/Resources/My Downloads XP.ico differ diff --git a/Supplywatch/Resources/My Rar Files XP.ico b/Supplywatch/Resources/My Rar Files XP.ico new file mode 100644 index 0000000..2c1a650 Binary files /dev/null and b/Supplywatch/Resources/My Rar Files XP.ico differ diff --git a/Supplywatch/Resources/Public.ico b/Supplywatch/Resources/Public.ico new file mode 100644 index 0000000..ca3199a Binary files /dev/null and b/Supplywatch/Resources/Public.ico differ diff --git a/Supplywatch/Resources/aktualisieren_1.jpg b/Supplywatch/Resources/aktualisieren_1.jpg new file mode 100644 index 0000000..5dd25d7 Binary files /dev/null and b/Supplywatch/Resources/aktualisieren_1.jpg differ diff --git a/Supplywatch/Resources/arrow_Forward_16xLG.png b/Supplywatch/Resources/arrow_Forward_16xLG.png new file mode 100644 index 0000000..fcf477c Binary files /dev/null and b/Supplywatch/Resources/arrow_Forward_16xLG.png differ diff --git a/Supplywatch/Resources/arrow_Forward_16xMD.png b/Supplywatch/Resources/arrow_Forward_16xMD.png new file mode 100644 index 0000000..42cc661 Binary files /dev/null and b/Supplywatch/Resources/arrow_Forward_16xMD.png differ diff --git a/Supplywatch/Resources/arrow_back_16xLG.png b/Supplywatch/Resources/arrow_back_16xLG.png new file mode 100644 index 0000000..ba07001 Binary files /dev/null and b/Supplywatch/Resources/arrow_back_16xLG.png differ diff --git a/Supplywatch/Resources/asterisk_orange.png b/Supplywatch/Resources/asterisk_orange.png new file mode 100644 index 0000000..1ebebde Binary files /dev/null and b/Supplywatch/Resources/asterisk_orange.png differ diff --git a/Supplywatch/Resources/benutzer7.ico b/Supplywatch/Resources/benutzer7.ico new file mode 100644 index 0000000..1bdbe59 Binary files /dev/null and b/Supplywatch/Resources/benutzer7.ico differ diff --git a/Supplywatch/Resources/bug.png b/Supplywatch/Resources/bug.png new file mode 100644 index 0000000..2d5fb90 Binary files /dev/null and b/Supplywatch/Resources/bug.png differ diff --git a/Supplywatch/Resources/bug_edit.png b/Supplywatch/Resources/bug_edit.png new file mode 100644 index 0000000..e5c7dc0 Binary files /dev/null and b/Supplywatch/Resources/bug_edit.png differ diff --git a/Supplywatch/Resources/database_lightning.png b/Supplywatch/Resources/database_lightning.png new file mode 100644 index 0000000..d9eefc2 Binary files /dev/null and b/Supplywatch/Resources/database_lightning.png differ diff --git a/Supplywatch/Resources/delete.png b/Supplywatch/Resources/delete.png new file mode 100644 index 0000000..b622e16 Binary files /dev/null and b/Supplywatch/Resources/delete.png differ diff --git a/Supplywatch/Resources/email_open_image.png b/Supplywatch/Resources/email_open_image.png new file mode 100644 index 0000000..e588e2f Binary files /dev/null and b/Supplywatch/Resources/email_open_image.png differ diff --git a/Supplywatch/Resources/fghfgh.ICO b/Supplywatch/Resources/fghfgh.ICO new file mode 100644 index 0000000..676ceed Binary files /dev/null and b/Supplywatch/Resources/fghfgh.ICO differ diff --git a/Supplywatch/Resources/ico1411.ico b/Supplywatch/Resources/ico1411.ico new file mode 100644 index 0000000..8ce492c Binary files /dev/null and b/Supplywatch/Resources/ico1411.ico differ diff --git a/Supplywatch/Resources/ico2168.ico b/Supplywatch/Resources/ico2168.ico new file mode 100644 index 0000000..4572116 Binary files /dev/null and b/Supplywatch/Resources/ico2168.ico differ diff --git a/Supplywatch/Resources/ico2312.ico b/Supplywatch/Resources/ico2312.ico new file mode 100644 index 0000000..68e8051 Binary files /dev/null and b/Supplywatch/Resources/ico2312.ico differ diff --git a/Supplywatch/Resources/ico898.ico b/Supplywatch/Resources/ico898.ico new file mode 100644 index 0000000..dec0b1a Binary files /dev/null and b/Supplywatch/Resources/ico898.ico differ diff --git a/Supplywatch/Resources/link_add.png b/Supplywatch/Resources/link_add.png new file mode 100644 index 0000000..00be352 Binary files /dev/null and b/Supplywatch/Resources/link_add.png differ diff --git a/Supplywatch/Resources/refresh_16xLG.png b/Supplywatch/Resources/refresh_16xLG.png new file mode 100644 index 0000000..652cd85 Binary files /dev/null and b/Supplywatch/Resources/refresh_16xLG.png differ diff --git a/Supplywatch/Resources/ruby_go.png b/Supplywatch/Resources/ruby_go.png new file mode 100644 index 0000000..d8d276e Binary files /dev/null and b/Supplywatch/Resources/ruby_go.png differ diff --git a/Supplywatch/Resources/save.bmp b/Supplywatch/Resources/save.bmp new file mode 100644 index 0000000..dbd0f92 Binary files /dev/null and b/Supplywatch/Resources/save.bmp differ diff --git a/Supplywatch/Resources/table_add.png b/Supplywatch/Resources/table_add.png new file mode 100644 index 0000000..2a3e5c4 Binary files /dev/null and b/Supplywatch/Resources/table_add.png differ diff --git a/Supplywatch/Resources/table_delete.png b/Supplywatch/Resources/table_delete.png new file mode 100644 index 0000000..b85916d Binary files /dev/null and b/Supplywatch/Resources/table_delete.png differ diff --git a/Supplywatch/Resources/table_save.png b/Supplywatch/Resources/table_save.png new file mode 100644 index 0000000..25b74d1 Binary files /dev/null and b/Supplywatch/Resources/table_save.png differ diff --git a/Supplywatch/RptOrder_Supplies.rdlc b/Supplywatch/RptOrder_Supplies.rdlc new file mode 100644 index 0000000..d99f363 --- /dev/null +++ b/Supplywatch/RptOrder_Supplies.rdlc @@ -0,0 +1,908 @@ + + + + + + + + + 3.44841cm + + + 2.53592cm + + + 2.3677cm + + + 5.80319cm + + + 2.0502cm + + + 3.90228cm + + + 1.33584cm + + + 2.71165cm + + + 2.49999cm + + + 2.49999cm + + + + + 1.05834cm + + + + + true + true + + + + + Gerätebezeichnung + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Seriennummer Gerät + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Vertrag + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Lokation + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Supply ID + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Supply + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Anzahl + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Partnumber + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + VAS Bestellnummer + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Bemerkungen + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.05834cm + + + + + true + true + + + + + =Fields!GERAET.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!GERAET_SERIENNR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!VERTRAG.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!MARKT.Value + + + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + =Fields!SUPPLY_ID.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SUPPLY_BEZ.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ANZAHL.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PARTNUMBER_ORDER.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DSBESTELLUNGEN + 0.49424cm + 0.49424cm + 2.11668cm + 29.15517cm + + + + + + 2in + + + + + 11.91927in + + + 3.09562cm + true + true + + + true + true + + + + + Bestellungen für Supplies + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Bestellung vom/Order from: " & DateAdd("d",0,Today()) & " " & TimeOfDay() + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 2cm + 2cm + 2cm + 2cm + 0.13cm +