MS Json

2017-11-28 10:09:43 +01:00
parent 03f9c33a49
commit f656df112a
27 changed files with 78997 additions and 91 deletions
--- a/app/ResultHandler_Konfig/MyDataset.Designer.vb
+++ b/app/ResultHandler_Konfig/MyDataset.Designer.vb
@@ -869,6 +869,8 @@ Partial Public Class MyDataset
        
        Private columnGEAENDERTWANN As Global.System.Data.DataColumn
        
+        Private Shared columnLetzter_Durchlauf_defaultValue As Date = Date.Parse("1900-01-01T00:00:00")
+        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
        Public Sub New()
@@ -1147,8 +1149,9 @@ Partial Public Class MyDataset
            Me.columnDay.AllowDBNull = false
            Me.columnDay.MaxLength = 100
            Me.columnRun.AllowDBNull = false
+            Me.columnRun.DefaultValue = CType("",String)
            Me.columnRun.MaxLength = 100
-            Me.columnLetzter_Durchlauf.AllowDBNull = false
+            Me.columnLetzter_Durchlauf.DefaultValue = CType(TBWMRH_PROFILDataTable.columnLetzter_Durchlauf_defaultValue,Date)
            Me.columnRunning.AllowDBNull = false
            Me.columnRunning.DefaultValue = CType(false,Boolean)
            Me.columnReihenfolge.AllowDBNull = false
@@ -2684,7 +2687,11 @@ Partial Public Class MyDataset
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
        Public Property Letzter_Durchlauf() As Date
            Get
-                Return CType(Me(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn),Date)
+                Try 
+                    Return CType(Me(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn),Date)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Letzter_Durchlauf in Tabelle TBWMRH_PROFIL ist DBNull.", e)
+                End Try
            End Get
            Set
                Me(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn) = value
@@ -2785,6 +2792,18 @@ Partial Public Class MyDataset
            Me(Me.tableTBWMRH_PROFIL.AktivColumn) = Global.System.Convert.DBNull
        End Sub
        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Function IsLetzter_DurchlaufNull() As Boolean
+            Return Me.IsNull(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
+        Public Sub SetLetzter_DurchlaufNull()
+            Me(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn) = Global.System.Convert.DBNull
+        End Sub
+        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
        Public Function IsERSTELLTWERNull() As Boolean
@@ -4385,7 +4404,7 @@ Namespace MyDatasetTableAdapters
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _
         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
-        Public Overloads Overridable Function Insert(ByVal Profilname As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Objekttyp As String, ByVal WindreamSuche As String, ByVal Day As String, ByVal Run As String, ByVal Letzter_Durchlauf As Date, ByVal Running As Boolean, ByVal Reihenfolge As Integer, ByVal ERSTELLTWER As String) As Integer
+        Public Overloads Overridable Function Insert(ByVal Profilname As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Objekttyp As String, ByVal WindreamSuche As String, ByVal Day As String, ByVal Run As String, ByVal Letzter_Durchlauf As Global.System.Nullable(Of Date), ByVal Running As Boolean, ByVal Reihenfolge As Integer, ByVal ERSTELLTWER As String) As Integer
            If (Profilname Is Nothing) Then
                Throw New Global.System.ArgumentNullException("Profilname")
            Else
@@ -4416,7 +4435,11 @@ Namespace MyDatasetTableAdapters
            Else
                Me.Adapter.InsertCommand.Parameters(5).Value = CType(Run,String)
            End If
-            Me.Adapter.InsertCommand.Parameters(6).Value = CType(Letzter_Durchlauf,Date)
+            If (Letzter_Durchlauf.HasValue = true) Then
+                Me.Adapter.InsertCommand.Parameters(6).Value = CType(Letzter_Durchlauf.Value,Date)
+            Else
+                Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
+            End If
            Me.Adapter.InsertCommand.Parameters(7).Value = CType(Running,Boolean)
            Me.Adapter.InsertCommand.Parameters(8).Value = CType(Reihenfolge,Integer)
            If (ERSTELLTWER Is Nothing) Then
@@ -4443,7 +4466,7 @@ Namespace MyDatasetTableAdapters
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _
         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
-        Public Overloads Overridable Function Update(ByVal Profilname As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Objekttyp As String, ByVal WindreamSuche As String, ByVal Day As String, ByVal Run As String, ByVal Letzter_Durchlauf As Date, ByVal Running As Boolean, ByVal Reihenfolge As Integer, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
+        Public Overloads Overridable Function Update(ByVal Profilname As String, ByVal Aktiv As Global.System.Nullable(Of Boolean), ByVal Objekttyp As String, ByVal WindreamSuche As String, ByVal Day As String, ByVal Run As String, ByVal Letzter_Durchlauf As Global.System.Nullable(Of Date), ByVal Running As Boolean, ByVal Reihenfolge As Integer, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
            If (Profilname Is Nothing) Then
                Throw New Global.System.ArgumentNullException("Profilname")
            Else
@@ -4474,7 +4497,11 @@ Namespace MyDatasetTableAdapters
            Else
                Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Run,String)
            End If
-            Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Letzter_Durchlauf,Date)
+            If (Letzter_Durchlauf.HasValue = true) Then
+                Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Letzter_Durchlauf.Value,Date)
+            Else
+                Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
+            End If
            Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Running,Boolean)
            Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Reihenfolge,Integer)
            If (GEAENDERTWER Is Nothing) Then