
Public Class cBuergschaft
    Property brg_id As Integer = -1
    Property brg_datum As String = ""
    Property brg_at_tag As String = ""
    Property brg_at_woche As String = ""
    Property brg_de_tag As String = ""
    Property brg_de_woche As String = ""
    Property brg_at_tag_atlas As String = ""
    Property brg_at_tag_zolaris As String = ""
    Property brg_at_woche_atlas As String = ""
    Property brg_at_woche_zolaris As String = ""
    Property brg_de_tag_atlas As String = ""
    Property brg_de_woche_atlas As String = ""
End Class

Public Class cMonitoringBrg
    Property brgusrset_id As Integer = -1
    Property brgusrset_username As String = ""
    Property brgusrset_gvvAt_summe As Double = 0.0
    Property brgusrset_gvvAt_tag_warn1 As Double = 0.0
    Property brgusrset_gvvAt_tag_warn2 As Double = 0.0
    Property brgusrset_gvvAt_woche_warn1 As Double = 0.0
    Property brgusrset_gvvAt_woche_warn2 As Double = 0.0
    Property brgusrset_gvvDe_summe As Double = 0.0
    Property brgusrset_gvvDe_tag_warn1 As Double = 0.0
    Property brgusrset_gvvDe_tag_warn2 As Double = 0.0
    Property brgusrset_gvvDe_woche_warn1 As Double = 0.0
    Property brgusrset_gvvDe_woche_warn2 As Double = 0.0
    Property brgusrset_gvvDe2_summe As Double = 0.0
    Property brgusrset_gvvDe2_tag_warn1 As Double = 0.0
    Property brgusrset_gvvDe2_tag_warn2 As Double = 0.0
    Property brgusrset_gvvDe2_woche_warn1 As Double = 0.0
    Property brgusrset_gvvDe2_woche_warn2 As Double = 0.0
    Property brgusrset_aufschub_AG_de_summe As Double = 0.0
    Property brgusrset_aufschub_AG_de_warn1 As Double = 0.0
    Property brgusrset_aufschub_AG_de_warn2 As Double = 0.0
    Property brgusrset_aufschub_AG_at_summe As Double = 0.0
    Property brgusrset_aufschub_AG_at_warn1 As Double = 0.0
    Property brgusrset_aufschub_AG_at_warn2 As Double = 0.0
    Property brgusrset_aufschub_CS_at_summe As Double = 0.0
    Property brgusrset_aufschub_CS_at_warn1 As Double = 0.0
    Property brgusrset_aufschub_CS_at_warn2 As Double = 0.0
    Property brgusrset_aufschub_ZS_at_summe As Double = 0.0
    Property brgusrset_aufschub_ZS_at_warn1 As Double = 0.0
    Property brgusrset_aufschub_ZS_at_warn2 As Double = 0.0

    Property brgusrset_aufschub_imex_de_summe As Double = 0.0
    Property brgusrset_aufschub_imex_de_warn1 As Double = 0.0
    Property brgusrset_aufschub_imex_de_warn2 As Double = 0.0


    Property brgusrset_gvvAt_imex_de_summe As Double = 0.0
    Property brgusrset_gvvAt_imex_tag_warn1 As Double = 0.0
    Property brgusrset_gvvAt_imex_tag_warn2 As Double = 0.0
    Property brgusrset_gvvAt_imex_woche_warn1 As Double = 0.0
    Property brgusrset_gvvAt_imex_woche_warn2 As Double = 0.0

    Property brgusrset_gvvAt_ATILLA_de_summe As Double = 0.0
    Property brgusrset_gvvAt_ATILLA_tag_warn1 As Double = 0.0
    Property brgusrset_gvvAt_ATILLA_tag_warn2 As Double = 0.0
    Property brgusrset_gvvAt_ATILLA_woche_warn1 As Double = 0.0
    Property brgusrset_gvvAt_ATILLA_woche_warn2 As Double = 0.0

    Property brgusrset_gvvAt_CS_at_summe As Double = 0.0
    Property brgusrset_gvvAt_CS_tag_warn1 As Double = 0.0
    Property brgusrset_gvvAt_CS_tag_warn2 As Double = 0.0
    Property brgusrset_gvvAt_CS_woche_warn1 As Double = 0.0
    Property brgusrset_gvvAt_CS_woche_warn2 As Double = 0.0


End Class


Public Class MyListItem
    Private mText As String
    Private mValue As String

    Public Sub New(ByVal pText As String, ByVal pValue As String)
        mText = pText
        mValue = pValue
    End Sub

    Public ReadOnly Property Text() As String
        Get
            Return mText
        End Get
    End Property

    Public ReadOnly Property Value() As String
        Get
            Return mValue
        End Get
    End Property

    Public Overrides Function ToString() As String
        Return mText
    End Function

End Class