Initial commit

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/clsdata.vb

@@ -0,0 +1,178 @@
+Public Class clsdata
+    Dim m_dsdaten As DataSet
+    Property Dsdaten As DataSet
+        Get
+            Return m_dsdaten
+        End Get
+        Set(value As DataSet)
+            m_dsdaten = value
+        End Set
+    End Property
+
+    Dim m_partnercollection As Collection
+    Property PartnerCollection As Collection
+        Get
+            Return m_partnercollection
+        End Get
+        Set(value As Collection)
+            m_partnercollection = value
+        End Set
+    End Property
+
+    Dim m_ParamCollection As Collection
+    Property ParamCollection As Collection
+        Get
+            Return m_ParamCollection
+        End Get
+        Set(value As Collection)
+            m_ParamCollection = value
+        End Set
+    End Property
+
+    Dim m_jahr As String
+    Property Jahr As String
+        Get
+            Return m_jahr
+        End Get
+        Set(value As String)
+            m_jahr = value
+        End Set
+    End Property
+
+    Sub New()
+        Me.ParamCollection = New Collection
+        Me.PartnerCollection = New Collection
+
+    End Sub
+
+    Public Function Check_Parameter() As Boolean
+        Try
+            PartnerCollection.Clear()
+            ParamCollection.Clear()
+
+            For Each r As DataRow In Me.Dsdaten.Tables(0).Rows
+                Select Case UCase(r("Paramtyp"))
+                    Case "S"
+                        Me.Jahr = r("Inhalt").ToString
+                    Case "P"
+                        Me.PartnerCollection.Add(New Partnerclass(r("Inhalt")))
+                    Case "M"
+                        Me.ParamCollection.Add(New ParamClass(r("Paramtyp"), r("Inhalt"), r("Erweiterung")))
+                    Case "D"
+                        Me.ParamCollection.Add(New ParamClass(r("Paramtyp"), r("Inhalt"), r("Erweiterung")))
+                    Case Else
+                        Return False
+                End Select
+            Next
+            Check_Partner()
+            Check_Parameters()
+        Catch
+        End Try
+
+    End Function
+
+    Private Sub Check_Partner()
+        Dim db As New clsdb
+        For i = 1 To Me.PartnerCollection.Count
+            Dim pc As Partnerclass = PartnerCollection(i)
+            If db.Check_Partner_Exists(pc.Partner) = False Then pc.HasError = 1
+        Next
+        For i As Integer = 1 To PartnerCollection.Count
+            Dim pc As Partnerclass = PartnerCollection.Item(i)
+
+        Next
+    End Sub
+
+    Private Sub Check_Parameters()
+        Dim db As New clsdb
+        For i = 1 To ParamCollection.Count
+            Dim pc As ParamClass = ParamCollection.Item(i)
+            If pc.DocType = "" Then pc.HasError = 1
+            If pc.Zeitraum <> 0 And pc.Zeitraum <> 1 And pc.Zeitraum <> 2 Then pc.HasError = 1
+        Next
+    End Sub
+
+End Class
+
+Public Class Partnerclass
+    Dim m_partner As String
+    Property Partner As String
+        Get
+            Return m_partner
+        End Get
+        Set(value As String)
+            m_partner = value
+        End Set
+    End Property
+
+    Dim m_error As Integer
+    Property HasError As Integer
+        Get
+            Return m_error
+        End Get
+        Set(value As Integer)
+            m_error = value
+        End Set
+    End Property
+    Sub New(ByVal Partnernr As String)
+        Me.Partner = Partnernr
+        Me.HasError = 0
+    End Sub
+
+End Class
+
+Public Class ParamClass
+    Dim m_paramtyp As String
+    Property Paramtyp As String
+        Get
+            Return m_paramtyp
+        End Get
+        Set(value As String)
+            m_paramtyp = value
+        End Set
+    End Property
+
+    Dim m_doctyp As String
+    Property DocType As String
+        Get
+            Return m_doctyp
+        End Get
+        Set(value As String)
+            m_doctyp = value
+        End Set
+    End Property
+
+    Dim m_zeitraum As String
+    Property Zeitraum As String
+        Get
+            Return m_zeitraum
+        End Get
+        Set(value As String)
+            Select Case value
+                Case "0", "1", "2"
+                    m_zeitraum = value
+                Case Else
+                    m_zeitraum = -1
+            End Select
+        End Set
+    End Property
+
+    Dim m_error As Integer
+    Property HasError As Integer
+        Get
+            Return m_error
+        End Get
+        Set(value As Integer)
+            m_error = value
+        End Set
+    End Property
+
+    Sub New(ByVal Typ As String, ByVal Doctype As String, ByVal Zeitraum As String)
+        Me.Paramtyp = Typ
+        Me.DocType = Doctype
+        Me.Zeitraum = Zeitraum
+        Me.HasError = 0
+    End Sub
+
+
+End Class