DPM_PADM/DPM2016/Diverses/frmProgrammeinstellungen.vb

Imports System.ComponentModel

Public Class frmProgrammeinstellungen

    Dim ParameterColleation As New Collection


    Private Sub frmProgrammeinstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Properties.SelectedObject = New MailSettings
        Properties.Refresh()
        Properties_DMS.SelectedObject = New DMS_Settings
        Properties_DMS.Refresh()
        Properties_DMS.Dock = DockStyle.None
        Properties_DMS.Dock = DockStyle.Fill
        Me.ClsStammdaten_flat1.Tablename = "Tarif"
        Me.ClsStammdaten_flat1.get_data()
        Me.ClsStammdaten_flat1.ToolStripButton5.Visible = False
        Me.ClsStammdaten_flat2.Tablename = "MailTexte"
        Me.ClsStammdaten_flat2.ToolStripButton5.Visible = False
        Me.ClsStammdaten_flat2.get_data()
        Me.ClsStammdaten_flat3.Tablename = "Konto"
        Me.ClsStammdaten_flat3.ToolStripButton5.Visible = False
        Me.ClsStammdaten_flat3.get_data()
        If Globals.DruckBranche Then
            Me.ClsStammdaten_flat4.Tablename = "ProduktZusatz"
            Me.ClsStammdaten_flat4.ToolStripButton5.Visible = False
            Me.ClsStammdaten_flat4.get_data()
            Me.ClsStammdaten_flat5.Tablename = "ProduktZusatzDetail"
            Me.ClsStammdaten_flat5.ToolStripButton5.Visible = False
            Me.ClsStammdaten_flat5.get_data()
            Me.ClsStammdaten_flat6.ToolStripButton5.Visible = False
            Me.ClsStammdaten_flat6.Tablename = "Produkt"
            Me.ClsStammdaten_flat6.get_data()
        Else

            Me.TabControl1.TabPages.Remove(Me.ProduktZusatz)
            Me.TabControl1.TabPages.Remove(Me.ProduktZusaatzDetails)
            Me.TabControl1.TabPages.Remove(Me.Produkt)
        End If

        If My.Settings.SoftwareType = "PADM" Then Me.TabControl1.TabPages(0).Text = "Artikel"
        'Properties.ShowCustomProperties = True
        'Properties.Item.Clear()
        'Properties.Item.Add("Datum", New Date(Today.Ticks), False, "Parameter", "Datum", True)

        'With Properties
        '    '.ShowCustomProperties = True
        '    '.Item.Clear()
        '    '.Item.Add("My Integer", 100, False, "Simple properties", "This is an integer", True)
        '    '.Item.Add("My Date", New Date(Today.Ticks), False, "Simple properties", "This is point class", True)
        '    .Refresh()
        'End With
        Me.Width = Me.Width - 1

    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Me.Close()
    End Sub
End Class

Public Class MailSettings
    Private _MailClient As String
    Private _smtpserver As String
    Private _einstellung As String
    Private _gmail_absender As String
    Private _gmail_Server As String
    Private _gmail_User As String
    Private _gmail_passwort As String
    Private _Show_Mail_Dailog As String

    Dim db As New clsDB

    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("30"),
        DescriptionAttribute("Zahlungsbedingung in Tagen")>
    Public Property Zahlungsbedingungen() As String
        Get
            Return db.Get_Option(2000)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(2000, Value)
        End Set
    End Property

    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("30"),
        DescriptionAttribute("Mahnfrist 1. Manhung in Tagen")>
    Public Property Mahnfrist_1() As String
        Get
            Return db.Get_Option(5001)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(5001, Value)
        End Set
    End Property
    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("30"),
        DescriptionAttribute("Mahnfrist 2. Manhung in Tagen")>
    Public Property Mahnfrist_2() As String
        Get
            Return db.Get_Option(5002)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(5002, Value)
        End Set
    End Property

    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("30"),
        DescriptionAttribute("Mahnfrist 3. Manhung in Tagen")>
    Public Property Mahnfrist_3() As String
        Get
            Return db.Get_Option(5003)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(5003, Value)
        End Set
    End Property

    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("30"),
        DescriptionAttribute("Zahlungsfrist 3. Mahnung")>
    Public Property Zahlungsfrist_3_Mahnung() As String
        Get
            Return db.Get_Option(5004)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(5004, Value)
        End Set
    End Property
    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("30"),
        DescriptionAttribute("Zahlungsbedingungen 1. Mahnung")>
    Public Property Zahlungsbediungngen_1_Mahnung() As String
        Get
            Return db.Get_Option(5005)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(5005, Value)
        End Set
    End Property
    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("30"),
        DescriptionAttribute("Zahlungsbedingungen 2. Mahnung")>
    Public Property Zahlungsbediungngen_2_Mahnung() As String
        Get
            Return db.Get_Option(5006)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(5006, Value)
        End Set
    End Property
    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("30"),
        DescriptionAttribute("Zahlungsbedingungen 3. Mahnung")>
    Public Property Zahlungsbediungngen_3_Mahnung() As String
        Get
            Return db.Get_Option(5007)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(5007, Value)
        End Set
    End Property

    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("30"),
        DescriptionAttribute("Mahnzuschlag 1. Mahung in CHF")>
    Public Property Mahnzuschlag_1() As String
        Get
            Return db.Get_Option(5010)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(5010, Value)
        End Set
    End Property

    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("30"),
        DescriptionAttribute("Mahnzuschlag 2. Mahung in CHF")>
    Public Property Mahnzuschlag_2() As String
        Get
            Return db.Get_Option(5011)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(5011, Value)
        End Set
    End Property

    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("30"),
        DescriptionAttribute("Mahnzuschlag 3. Mahung in CHF")>
    Public Property Mahnzuschlag_3() As String
        Get
            Return db.Get_Option(5012)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(5012, Value)
        End Set
    End Property

    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("30"),
        DescriptionAttribute("Mahnfrist in Tagen: Anzahl Tage warten, bis Mahnung nach Fälligkeit ausgelöst wird")>
    Public Property Mahnfrist() As String
        Get
            Return db.Get_Option(10002)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(10002, Value)
        End Set
    End Property
    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("True"),
        DescriptionAttribute("Rabatt auf Absolue Beträge")>
    Public Property Rabatt_Absolut() As String
        Get
            Return db.Get_Option(10000)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(10000, Value)
        End Set
    End Property
    <CategoryAttribute("Abrechnung"),
        DefaultValueAttribute("True"),
        DescriptionAttribute("Kontonr aus Tabelle Konto für BESE/CAMT-Verbuchung")>
    Public Property BESR_CAMT_Konto() As String
        Get
            Return db.Get_Option(2003)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(2003, Value)
        End Set
    End Property
    <CategoryAttribute("Software Art"),
        TypeConverter(GetType(TrueFalseList)),
        DefaultValueAttribute("False"),
        DescriptionAttribute("Einsatzart der Software - Projekt-Solution (True) oder Dental-Solution (False)")>
    Public Property Projekt_Solution() As String
        Get
            Return db.Get_Option(40000)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(40000, Value)
        End Set
    End Property

    <CategoryAttribute("Mail_Einstellungen"),
        TypeConverter(GetType(MailClientList)),
        DefaultValueAttribute("Outlook"),
        DescriptionAttribute("Auswahl MailClient")>
    Public Property MailClient() As String
        Get

            Return db.Get_Option(9805)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(9805, Value)
        End Set
    End Property
    <CategoryAttribute("Mail_Einstellungen")>
    Public Property GMail_Absender As String
        Get
            Return db.Get_Option(51000)
        End Get
        Set(value As String)
            db.Save_Option(51000, value)

        End Set
    End Property

    <CategoryAttribute("Mail_Einstellungen")>
    Public Property GMail_Server As String
        Get
            Return db.Get_Option(51001)
        End Get
        Set(value As String)
            db.Save_Option(51001, value)

        End Set
    End Property

    <CategoryAttribute("Mail_Einstellungen")>
    Public Property GMail_User As String
        Get
            Return db.Get_Option(51002)
        End Get
        Set(value As String)
            db.Save_Option(51002, value)

        End Set
    End Property

    <CategoryAttribute("Mail_Einstellungen")>
    Public Property GMail_Passwort As String
        Get
            Return db.Get_Option(51003)
        End Get
        Set(value As String)
            db.Save_Option(51003, value)
        End Set
    End Property


    <CategoryAttribute("Mail_Einstellungen"),
        TypeConverter(GetType(TrueFalseList)),
        DefaultValueAttribute("True"),
        DescriptionAttribute("Mail Dialog vor dem Senden anzeigen")>
    Public Property Show_Mail_Dialog() As String
        Get
            Return db.Get_Option(51004)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(51004, Value)
        End Set
    End Property

    <CategoryAttribute("Pfade")>
    Public Property Report_Pfad As String
        Get
            Return db.Get_Option(100, False)
        End Get
        Set(value As String)
            db.Save_Option(100, value)
        End Set
    End Property
    <CategoryAttribute("Pfade")>
    Public Property SQL_Pfad As String
        Get
            Return db.Get_Option(101, False)
        End Get
        Set(value As String)
            db.Save_Option(101, value)
        End Set
    End Property

    <CategoryAttribute("Pfade")>
    Public Property PDF_Pfad As String
        Get
            Return db.Get_Option(102, False)
        End Get
        Set(value As String)
            db.Save_Option(102, value)
        End Set
    End Property

    <CategoryAttribute("PDF_Einstellungen"),
     TypeConverter(GetType(TrueFalseList)),
     DefaultValueAttribute("True"),
     DescriptionAttribute("")>
    Public Property PDF_Compress() As String
        Get
            Return db.Get_Option(50000)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(50000, Value)
        End Set
    End Property
    <CategoryAttribute("PDF_Einstellungen"),
  TypeConverter(GetType(TrueFalseList)),
  DefaultValueAttribute("True"),
  DescriptionAttribute("")>
    Public Property PDF_TextinCurves() As String
        Get
            Return db.Get_Option(50001)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(50001, Value)
        End Set
    End Property
    <CategoryAttribute("PDF_Einstellungen"),
TypeConverter(GetType(TrueFalseList)),
DefaultValueAttribute("True"),
DescriptionAttribute("")>
    Public Property PDF_AllowPrint() As String
        Get
            Return db.Get_Option(50002)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(50002, Value)
        End Set
    End Property


    <CategoryAttribute("QR_Einstellungen"),
TypeConverter(GetType(TrueFalseList)),
DefaultValueAttribute("True"),
DescriptionAttribute("Verwendung des QR-Codes")>
    Public Property Use_QR() As String
        Get
            Return db.Get_Option(20000)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(20000, Value)
        End Set
    End Property

    <CategoryAttribute("QR_Einstellungen"),
DefaultValueAttribute("CHF"),
DescriptionAttribute("Verwendeter Währungscode")>
    Public Property QR_Währung() As String
        Get
            Return db.Get_Option(20001)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(20001, Value)
        End Set
    End Property
    <CategoryAttribute("QR_Einstellungen"),
DefaultValueAttribute(""),
DescriptionAttribute("Speicherort QR-Codes")>
    Public Property QR_Pfad() As String
        Get
            Return db.Get_Option(20002, False)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(20002, Value)
        End Set
    End Property
    <CategoryAttribute("QR_Einstellungen"),
TypeConverter(GetType(QRList)),
DefaultValueAttribute("NON"),
DescriptionAttribute("QR-Type: NON, QRR, SCOR")>
    Public Property QR_Type() As String
        Get
            Return db.Get_Option(20003)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(20003, Value)
        End Set
    End Property
    <CategoryAttribute("Mehrwertsteuer"),
DefaultValueAttribute(""),
DescriptionAttribute("Mehrwertsteuersatz z.B. 7.7")>
    Public Property Satz() As String
        Get
            Return db.Get_Option(30000)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(30000, Value)
        End Set
    End Property
    <CategoryAttribute("Mehrwertsteuer"),
DefaultValueAttribute(""),
DescriptionAttribute("MwSt-Nummer")>
    Public Property Nummer() As String
        Get
            Return db.Get_Option(30001)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(30001, Value)
        End Set
    End Property


    <CategoryAttribute("Auswertungen"),
DefaultValueAttribute(""),
DescriptionAttribute("Bezeichnung des Absenders")>
    Public Property Absender_Bezeichnung() As String
        Get
            Return db.Get_Option(103)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(103, Value)
        End Set
    End Property
    <CategoryAttribute("Auswertungen"),
DefaultValueAttribute(""),
DescriptionAttribute("Report-Nr Journal")>
    Public Property Report_Nr_Journal() As String
        Get
            Return db.Get_Option(60000)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(60000, Value)
        End Set
    End Property
    <CategoryAttribute("Auswertungen"),
DefaultValueAttribute(""),
DescriptionAttribute("Text Vorschau Dokumente")>
    Public Property Text_Vorschau_Dokumente() As String
        Get
            Return db.Get_Option(60001)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(60001, Value)
        End Set
    End Property
    <CategoryAttribute("Auswertungen"),
TypeConverter(GetType(TrueFalseList)),
DefaultValueAttribute("False"),
DescriptionAttribute("Auswertungen ab Datenbank (True) oder ab Dateisysten (False)")>
    Public Property Auswertungen_ab_Datenbenk As String
        Get
            Return db.Get_Option(60010)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(60010, Value)
        End Set
    End Property


    <CategoryAttribute("Diverse Einstellungen"),
TypeConverter(GetType(TrueFalseList)),
DefaultValueAttribute("True"),
DescriptionAttribute("Gültig-bis bei Stamdaten ausblenden")>
    Public Property Hide_Gueltig_Bis As String
        Get
            Return db.Get_Option(9100)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(9100, Value)
        End Set
    End Property
    <CategoryAttribute("Diverse Einstellungen"),
DefaultValueAttribute(""),
DescriptionAttribute("Behandlungs-Menu Abschliessen: Menueinträge ausblenden")>
    Public Property Hide_MenuEintraege As String
        Get
            Return db.Get_Option(9101)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(9101, Value)
        End Set
    End Property

    <CategoryAttribute("Diverse Einstellungen"),
TypeConverter(GetType(TrueFalseList)),
DefaultValueAttribute("True"),
DescriptionAttribute("Recall-Bereich nach Abschluss anzeigen")>
    Public Property Show_Recall As String
        Get
            Return db.Get_Option(9102)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(9102, Value)
            db.Save_Option(10001, Value)
        End Set
    End Property

    <CategoryAttribute("Diverse Einstellungen"),
DefaultValueAttribute(""),
DescriptionAttribute("Bildverarbeitung Temp-Pfad")>
    Public Property Bildverarbeitung_Temp_Pfad As String
        Get
            Return db.Get_Option(9998)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(9998, Value)
        End Set
    End Property
    <CategoryAttribute("Diverse Einstallungen"),
DefaultValueAttribute(""),
DescriptionAttribute("Bildverarbeitung Programm-Pfad")>
    Public Property Bildverarbeitung_Programm_Pfad As String
        Get
            Return db.Get_Option(9999)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(9999, Value)
        End Set
    End Property
    <CategoryAttribute("Diverse Einstellungen"),
DefaultValueAttribute(""),
DescriptionAttribute("Funktionsbeschriftung Abschluss mit Druck")>
    Public Property Abschluss_Mit_Druck As String
        Get
            Return db.Get_Option(9103)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(9103, Value)
        End Set
    End Property

    <CategoryAttribute("Diverse Einstellungen"),
DefaultValueAttribute(""),
DescriptionAttribute("Funktionsbeschriftung Abschluss als PDF")>
    Public Property Abschluss_als_PDF As String
        Get
            Return db.Get_Option(9104)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(9104, Value)
        End Set
    End Property

    <CategoryAttribute("Diverse Einstellungen"),
DefaultValueAttribute(""),
DescriptionAttribute("Funktionsbeschriftung Abschluss mit Mail")>
    Public Property Abschluss_Mit_Mail As String
        Get
            Return db.Get_Option(9105)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(9105, Value)
        End Set
    End Property

    <CategoryAttribute("Diverse Einstellungen"),
DefaultValueAttribute(""),
DescriptionAttribute("Funktionsbeschriftung Abschluss ohne RG_Quittung")>
    Public Property Abschluss_ohne_RG_Quittung As String
        Get
            Return db.Get_Option(9106)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(9106, Value)
        End Set
    End Property
    <CategoryAttribute("Diverse Einstellungen"),
TypeConverter(GetType(TrueFalseList)),
DefaultValueAttribute("False"),
DescriptionAttribute("Tabelle mit Sicherheitsobjekten verwenden - etwas langsamere Verarbeitung")>
    Public Property Sicherheitseinstellungen_Verwenden As String
        Get
            Return db.Get_Option(60020)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(60020, Value)
        End Set
    End Property
    <CategoryAttribute("Diverse Einstellungen"),
TypeConverter(GetType(TrueFalseList)),
DefaultValueAttribute("True"),
DescriptionAttribute("Wirldcard-Suche aktiv")>
    Public Property Wildcard_Suche As String
        Get
            Return db.Get_Option(70000)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(70000, Value)
        End Set
    End Property


    <CategoryAttribute("Behandlungs-Standards"),
DefaultValueAttribute("ActUser"),
DescriptionAttribute("Standard-Behandler bei Neu-Eröffnung (ActUser = aktuell angemelder Benutzer, ansonsten User-ID aus der User-Tabelle")>
    Public Property Behandler As String
        Get
            Return db.Get_Standards(1)
        End Get
        Set(ByVal Value As String)
            db.Save_Standard(1, Value)
        End Set
    End Property

    <CategoryAttribute("Behandlungs-Standards"),
DefaultValueAttribute("5"),
DescriptionAttribute("ES-Typ-Nr aus Tabelle ESTyp")>
    Public Property ESTyp As String
        Get
            Return db.Get_Standards(2)
        End Get
        Set(ByVal Value As String)
            db.Save_Standard(2, Value)
        End Set
    End Property

    <CategoryAttribute("Behandlungs-Standards"),
DefaultValueAttribute("1"),
DescriptionAttribute("RG-Typ-Nr aus Tabelle RGTyp")>
    Public Property RGTyp As String
        Get
            Return db.Get_Standards(3)
        End Get
        Set(ByVal Value As String)
            db.Save_Standard(3, Value)
        End Set
    End Property


    <CategoryAttribute("Behandlungs-Standards"),
DefaultValueAttribute("1"),
DescriptionAttribute("Abrechnungstyp aus der Tabelle Abrechnungstyp")>
    Public Property Abrechnungstyp As String
        Get
            Return db.Get_Standards(4)
        End Get
        Set(ByVal Value As String)
            db.Save_Standard(4, Value)
        End Set
    End Property

    <CategoryAttribute("Behandlungs-Standards"),
DefaultValueAttribute("2"),
DescriptionAttribute("Ansatz aus Tabelle Ansatz")>
    Public Property Ansatz As String
        Get
            Return db.Get_Standards(5)
        End Get
        Set(ByVal Value As String)
            db.Save_Standard(5, Value)
        End Set
    End Property

    <CategoryAttribute("Behandlungs-Standards"),
        TypeConverter(GetType(JaNeinList)),
DefaultValueAttribute("Nein"),
DescriptionAttribute("Andrucken Taxpunkte")>
    Public Property Andrucken_Taxpunkte As String
        Get
            Return db.Get_Standards(6)
        End Get
        Set(ByVal Value As String)
            db.Save_Standard(6, Value)
        End Set
    End Property

    <CategoryAttribute("Behandlungs-Standards"),
    TypeConverter(GetType(JaNeinList)),
DefaultValueAttribute("Nein"),
DescriptionAttribute("Mit Datum")>
    Public Property Mit_Datum As String
        Get
            Return db.Get_Standards(7)
        End Get
        Set(ByVal Value As String)
            db.Save_Standard(7, Value)
        End Set
    End Property
    <CategoryAttribute("Behandlungs-Standards"),
 TypeConverter(GetType(JaNeinList)),
DefaultValueAttribute("Nein"),
DescriptionAttribute("Rabatt gesamt")>
    Public Property Rabatt_Gesamt As String
        Get
            Return db.Get_Standards(8)
        End Get
        Set(ByVal Value As String)
            db.Save_Standard(8, Value)
        End Set
    End Property
    <CategoryAttribute("Lager"),
TypeConverter(GetType(TrueFalseList)),
DefaultValueAttribute("False"),
DescriptionAttribute("Lagerbestand")>
    Public Property Lagerbestand As String
        Get
            Return db.Get_Option(70010)
        End Get
        Set(ByVal Value As String)
            db.Save_Option(70010, Value)
        End Set
    End Property
End Class


Public Class MailClientList : Inherits System.ComponentModel.StringConverter
    Dim _MailClientList As String() = New String() {"Outlook", "MAPI", "GMAIL"}
    Public Overloads Overrides Function GetStandardValues(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection
        Return New StandardValuesCollection(_MailClientList)
    End Function
    '''
    Public Overloads Overrides Function GetStandardValuesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function
    '''
    Public Overloads Overrides Function GetStandardValuesExclusive(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function
End Class

Public Class TrueFalseList : Inherits System.ComponentModel.StringConverter
    Dim _TrueFalseList As String() = New String() {"True", "False"}
    Public Overloads Overrides Function GetStandardValues(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection
        Return New StandardValuesCollection(_TrueFalseList)
    End Function
    '''
    Public Overloads Overrides Function GetStandardValuesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function
    '''
    Public Overloads Overrides Function GetStandardValuesExclusive(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function
End Class

Public Class JaNeinList : Inherits System.ComponentModel.StringConverter
    Dim _JaNeinList As String() = New String() {"Ja", "Nein"}
    Public Overloads Overrides Function GetStandardValues(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection
        Return New StandardValuesCollection(_JaNeinList)
    End Function
    '''
    Public Overloads Overrides Function GetStandardValuesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function
    '''
    Public Overloads Overrides Function GetStandardValuesExclusive(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function
End Class
Public Class QRList : Inherits System.ComponentModel.StringConverter
    Dim _QRList As String() = New String() {"NON", "QRR", "SCOR"}
    Public Overloads Overrides Function GetStandardValues(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection
        Return New StandardValuesCollection(_QRList)
    End Function
    '''
    Public Overloads Overrides Function GetStandardValuesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function
    '''
    Public Overloads Overrides Function GetStandardValuesExclusive(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function
End Class

Public Class DMS_Settings
    Dim db As New clsDB
    <CategoryAttribute("DMS-Einstellungen"),
        TypeConverter(GetType(JaNeinList)),
       DefaultValueAttribute("True"),
       DescriptionAttribute("Dokumente auf Datenbank speichern")>
    Public Property Dokumente_in_Datenbank() As String
        Get
            Return db.Get_DMSSettings(1)
        End Get
        Set(ByVal Value As String)
            db.Save_DMSSettings(1, Value)
        End Set
    End Property
    <CategoryAttribute("DMS-Einstellungen"),
       DefaultValueAttribute(""),
       DescriptionAttribute("Dokument-Pfad")>
    Public Property DokumentPfad() As String
        Get
            Return db.Get_DMSSettings(2)
        End Get
        Set(ByVal Value As String)
            db.Save_DMSSettings(2, Value)
        End Set
    End Property

    <CategoryAttribute("DMS-Einstellungen"),
       DefaultValueAttribute(""),
       DescriptionAttribute("Editierbare Dokumenttypen")>
    Public Property Editierbare_Dokumenttypen() As String
        Get
            Return db.Get_DMSSettings(3)
        End Get
        Set(ByVal Value As String)
            db.Save_DMSSettings(3, Value)
        End Set
    End Property

    <CategoryAttribute("DMS-Einstellungen"),
       DefaultValueAttribute(""),
       DescriptionAttribute("Sicherungsverzeichnis")>
    Public Property Sicherungspfad() As String
        Get
            Return db.Get_DMSSettings(4)
        End Get
        Set(ByVal Value As String)
            db.Save_DMSSettings(4, Value)
        End Set
    End Property

    <CategoryAttribute("DMS-Einstellungen"),
        TypeConverter(GetType(JaNeinList)),
       DefaultValueAttribute("True"),
       DescriptionAttribute("Sicherung bei Dokumentbearbeitung")>
    Public Property Sicherung_bei_Dokumentbearbeitung() As String
        Get
            Return db.Get_DMSSettings(5)
        End Get
        Set(ByVal Value As String)
            db.Save_DMSSettings(5, Value)
        End Set
    End Property

    <CategoryAttribute("DMS-Einstellungen"),
       DefaultValueAttribute(""),
       DescriptionAttribute("Vorschau-Verzeichnis")>
    Public Property Vorschauverzeichnis() As String
        Get
            Return db.Get_DMSSettings(6)
        End Get
        Set(ByVal Value As String)
            db.Save_DMSSettings(6, Value)
        End Set
    End Property

    <CategoryAttribute("DMS-Einstellungen"),
       DefaultValueAttribute(""),
       DescriptionAttribute("Typen bei Vorschau nicht gestattet")>
    Public Property Exclude_Preview_Type As String
        Get
            Return db.Get_DMSSettings(7)
        End Get
        Set(ByVal Value As String)
            db.Save_DMSSettings(7, Value)
        End Set
    End Property
    <CategoryAttribute("DMS-Einstellungen"),
       DefaultValueAttribute(""),
       DescriptionAttribute("Nr. Struktureintrag eigene Rechnungen")>
    Public Property Struktur_Eigene_Rechnungen As String
        Get
            Return db.Get_DMSSettings(8)
        End Get
        Set(ByVal Value As String)
            db.Save_DMSSettings(8, Value)
        End Set
    End Property
    <CategoryAttribute("DMS-Einstellungen"),
       DefaultValueAttribute(""),
       DescriptionAttribute("Nr. Struktureintrag fremde Rechnungen")>
    Public Property Struktur_fremde_Rechnungen As String
        Get
            Return db.Get_DMSSettings(9)
        End Get
        Set(ByVal Value As String)
            db.Save_DMSSettings(9, Value)
        End Set
    End Property



    <CategoryAttribute("DMS-Einstellungen"),
       TypeConverter(GetType(JaNeinList)),
      DefaultValueAttribute("True"),
      DescriptionAttribute("RG-Kopie beim Garant ablegen")>
    Public Property RG_Kopie_Garant() As String
        Get
            Return db.Get_DMSSettings(10)
        End Get
        Set(ByVal Value As String)
            db.Save_DMSSettings(10, Value)
        End Set
    End Property
End Class