IT Nothotline, allgemeine Verbesserungen

2023-04-21 16:26:51 +02:00
parent 499e63e9ce
commit 8f1362f9fc
20 changed files with 1842 additions and 71 deletions
--- a/Dokumentation/App.config
+++ b/Dokumentation/App.config
@@ -1,5 +1,12 @@
 <?xml version="1.0" encoding="utf-8"?>
 <configuration>
+    <configSections>
+    </configSections>
+    <connectionStrings>
+        <add name="Dokumentation.My.MySettings.DokuConnectionString"
+            connectionString="Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;Integrated Security=True"
+            providerName="System.Data.SqlClient" />
+    </connectionStrings>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
    </startup>
--- a/Dokumentation/Classes/Class1.vb
+++ b/Dokumentation/Classes/Class1.vb
@@ -62,7 +62,7 @@ Public Class Class1
            Class1.DBConString = DBDokuTest '"Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
            Class1.FilePath = "\\192.168.0.253\backup\temp_Sebastian\DokuTest"
        Else
-            Class1.DBConString = DBDoku '"Server=buchhaltung.verag.ost.dmn\SQLEXPRESS;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
+            Class1.DBConString = DBDoku '"Server=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
            Class1.FilePath = "\\DEVELOPER.verag.ost.dmn\f\EDV-Wartung\Dokumentation"
        End If
    End Function
@@ -722,7 +722,7 @@ Public Class Class1

            '  txtbox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            ' txtbox.AutoCompleteSource = AutoCompleteSource.CustomSource
-            txtbox.AutoCompleteCustomSource = tmp
+

            For Each dr As DataRow In ds.Tables(0).Rows
                Try
@@ -733,6 +733,47 @@ Public Class Class1
                'Items.Add(dr.Item(0))
            Next

+            txtbox.AutoCompleteCustomSource = tmp
+
+            con.Close()
+        Catch ex As Exception
+            MsgBox("Fehler Autocomplete: " & ex.Message)
+            con.Close()
+        End Try
+        con.Close()
+    End Function
+
+    Public Shared Function AutocompleteCombo(ByRef Combo As ComboBox, spalte As String, Tabelle As String, Optional ByVal ItemNr As Integer = 0)
+        Dim tmp As New AutoCompleteStringCollection
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        con.ConnectionString = Class1.DBConString
+        cmd.Connection = con
+
+        Try
+            con.Open()
+
+            Dim ds As New DataSet()
+            Dim dt As New DataTable()
+            Dim dataadapter As New SqlDataAdapter("SELECT Distinct " & spalte & " from " & Tabelle & "", con)
+            dataadapter.Fill(ds)
+
+            '  txtbox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
+            ' txtbox.AutoCompleteSource = AutoCompleteSource.CustomSource
+            Combo.AutoCompleteCustomSource = tmp
+
+            For Each dr As DataRow In ds.Tables(0).Rows
+                Try
+                    tmp.Add(dr.Item(ItemNr))
+                Catch
+                End Try
+
+                'Items.Add(dr.Item(0))
+            Next
+            Combo.DataSource = tmp
+            Combo.AutoCompleteMode = AutoCompleteMode.Suggest
+            Combo.AutoCompleteCustomSource = tmp
+
            con.Close()
        Catch ex As Exception
            MsgBox("Fehler Autocomplete: " & ex.Message)
--- a/Dokumentation/Classes/cPascom.vb
+++ b/Dokumentation/Classes/cPascom.vb
@@ -1,5 +1,7 @@
 Imports System.Reflection
 Imports Chilkat
+Imports VERAG_PROG_ALLGEMEIN.cCreditSafeAPI
+
 Public Class cPascom

    Dim API_USER_AUTHORIZATION = "bW9ieTpnWlhTSVprTnhmaUQxOEU="
@@ -95,29 +97,142 @@ Public Class cPascom

    End Function

-    'Public Function GetTelArbeitsplatz4Host() As Boolean
-    '    Try
-    '        Dim lines = IO.File.ReadAllLines("\\dc01.verag.ost.dmn\NETLOGON\Telefonarbeitsplaetze.ini")
-    '        Dim colCount = lines.First.Split(";"c).Length
+    Public Function Weiterleitung(fromNr As String, toNr As String, Optional ByRef Target As String = "")
+        Try

-    '        For Each line In lines
-    '            Dim objFields = From field In line.Split(";"c)
+            cChilkat_Helper.UnlockCilkat()
+            Dim API_STRING = "pbx3.flashnet.at"
+
+            Dim rest As New Chilkat.Rest
+            Dim success As Boolean
+
+            Dim bTls As Boolean = True
+            Dim port As Integer = 443
+            Dim bAutoReconnect As Boolean = True


-    '            If String.Compare(cRes.LocalUser.Hostname, objFields(0).ToString, True) = 0 Then
-    '                Arbeitsplatz = objFields(1).ToString
-    '                '_ConString = objFields(2).ToString
-    '                Return True
-    '                Exit Function
-    '            End If
+            success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
+            If (success <> True) Then
+                Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
+                Debug.WriteLine(rest.LastErrorText)
+
+                Return False
+            End If
+
+            rest.AddHeader("Content-Type", "application/json")
+            rest.SetAuthBasic("moby", "XgDsFmMSutaMLA1")
+
+
+            Dim json As New Chilkat.JsonObject
+
+            Dim successJsonLoad As Boolean = json.Load(" 
+                        {""target"":""" & toNr & """}}")
+
+            If (successJsonLoad <> True) Then
+                MsgBox(json.LastErrorText)
+                Return False
+            End If
+
+
+            Dim sbRequestBody As New Chilkat.StringBuilder
+            json.EmitSb(sbRequestBody)
+
+            '   MsgBox(sbRequestBody.ToString)
+            Dim sbResponseBody As New Chilkat.StringBuilder
+            success = rest.FullRequestSb("POST", "/verag/services/redirect/" & fromNr, sbRequestBody, sbResponseBody)
+            If (success <> True) Then
+                Debug.WriteLine(rest.LastErrorText)
+                Return False
+            End If
+            Dim respStatusCode As Integer = rest.ResponseStatusCode
+
+            If (respStatusCode <> 200) Then
+
+                '   MsgBox(sbResponseBody.GetAsString())
+
+                Return False
+            End If
+
+
+            Dim jsonResp = New Chilkat.JsonObject()
+            jsonResp.LoadSb(sbResponseBody)
+
+            Dim gatewayId = jsonResp.StringOf("gatewayId")
+            Dim Resp_error = jsonResp.StringOf("error")
+            Dim Resp_errorCode = jsonResp.StringOf("errorCode")
+            Target = jsonResp.StringOf("target")
+
+            '   MsgBox("Hier!!!")
+
+
+            Return True
+
+
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            Return False
+        End Try
+        Return True
+
+    End Function
+
+    Function getredirect(ByRef target As String) As String
+        Try
+
+            cChilkat_Helper.UnlockCilkat()
+            Dim API_STRING = "pbx3.flashnet.at"
+
+            Dim rest As New Chilkat.Rest
+            Dim success As Boolean
+
+            Dim bTls As Boolean = True
+            Dim port As Integer = 443
+            Dim bAutoReconnect As Boolean = True
+
+
+            success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
+            If (success <> True) Then
+                Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
+                Debug.WriteLine(rest.LastErrorText)
+
+                Return False
+            End If
+
+            rest.AddHeader("Content-Type", "application/json")
+            rest.SetAuthBasic("moby", "XgDsFmMSutaMLA1")
+
+
+            Dim json As New Chilkat.JsonObject
+
+
+            Dim sbRequestBody As New Chilkat.StringBuilder
+            json.EmitSb(sbRequestBody)
+
+            '   MsgBox(sbRequestBody.ToString)
+            Dim sbResponseBody As New Chilkat.StringBuilder
+            success = rest.FullRequestNoBodySb("GET", "/verag/services/redirect/", sbResponseBody)
+            If (success <> True) Then
+                Debug.WriteLine(rest.LastErrorText)
+                Return False
+            End If
+            Dim respStatusCode As Integer = rest.ResponseStatusCode
+
+            If (respStatusCode <> 200) Then
+                Return False
+            End If
+
+            Return sbResponseBody.GetAfterBetween(target, ":", ",")
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            Return False
+        End Try
+        Return True
+    End Function
+

-    '            ' End Select
-    '        Next
-    '        Return False
-    '    Catch ex As Exception
-    '        '  MsgBox("Fehler beim Lesen TSAnmeldung.ini: " & vbCrLf & ex.Message)
-    '    End Try
-    'End Function


 End Class
--- a/Dokumentation/DokuDataSet.Designer.vb
+++ b/Dokumentation/DokuDataSet.Designer.vb
--- a/Dokumentation/DokuDataSet.xsc
+++ b/Dokumentation/DokuDataSet.xsc
@@ -0,0 +1 @@
+
--- a/Dokumentation/DokuDataSet.xsd
+++ b/Dokumentation/DokuDataSet.xsd
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xs:schema id="DokuDataSet" targetNamespace="http://tempuri.org/DokuDataSet.xsd" xmlns:mstns="http://tempuri.org/DokuDataSet.xsd" xmlns="http://tempuri.org/DokuDataSet.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
+  <xs:annotation>
+    <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
+      <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+        <Connections>
+          <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="DokuConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DokuConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.Dokumentation.My.MySettings.GlobalReference.Default.DokuConnectionString" Provider="System.Data.SqlClient" />
+        </Connections>
+        <Tables>
+          <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TbL_NotfallKontakteTableAdapter" GeneratorDataComponentClassName="TbL_NotfallKontakteTableAdapter" Name="TbL_NotfallKontakte" UserDataComponentName="TbL_NotfallKontakteTableAdapter">
+            <MainSource>
+              <DbSource ConnectionRef="DokuConnectionString (MySettings)" DbObjectName="Doku.dbo.TbL_NotfallKontakte" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+                <SelectCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>SELECT Name FROM dbo.TbL_NotfallKontakte</CommandText>
+                    <Parameters />
+                  </DbCommand>
+                </SelectCommand>
+              </DbSource>
+            </MainSource>
+            <Mappings>
+              <Mapping SourceColumn="Name" DataSetColumn="Name" />
+            </Mappings>
+            <Sources />
+          </TableAdapter>
+        </Tables>
+        <Sources />
+      </DataSource>
+    </xs:appinfo>
+  </xs:annotation>
+  <xs:element name="DokuDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_UserDSName="DokuDataSet" msprop:Generator_DataSetName="DokuDataSet">
+    <xs:complexType>
+      <xs:choice minOccurs="0" maxOccurs="unbounded">
+        <xs:element name="TbL_NotfallKontakte" msprop:Generator_RowEvHandlerName="TbL_NotfallKontakteRowChangeEventHandler" msprop:Generator_RowDeletedName="TbL_NotfallKontakteRowDeleted" msprop:Generator_RowDeletingName="TbL_NotfallKontakteRowDeleting" msprop:Generator_RowEvArgName="TbL_NotfallKontakteRowChangeEvent" msprop:Generator_TablePropName="TbL_NotfallKontakte" msprop:Generator_RowChangedName="TbL_NotfallKontakteRowChanged" msprop:Generator_RowChangingName="TbL_NotfallKontakteRowChanging" msprop:Generator_TableClassName="TbL_NotfallKontakteDataTable" msprop:Generator_RowClassName="TbL_NotfallKontakteRow" msprop:Generator_TableVarName="tableTbL_NotfallKontakte" msprop:Generator_UserTableName="TbL_NotfallKontakte">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="Name" msprop:Generator_ColumnPropNameInRow="Name" msprop:Generator_ColumnPropNameInTable="NameColumn" msprop:Generator_ColumnVarNameInTable="columnName" msprop:Generator_UserColumnName="Name">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
+      </xs:choice>
+    </xs:complexType>
+  </xs:element>
+</xs:schema>
--- a/Dokumentation/DokuDataSet.xss
+++ b/Dokumentation/DokuDataSet.xss
@@ -0,0 +1 @@
+
--- a/Dokumentation/Dokumentation.vbproj
+++ b/Dokumentation/Dokumentation.vbproj
@@ -258,6 +258,11 @@
    <Compile Include="Classes\cNetzwerk.vb" />
    <Compile Include="Classes\cTSUser.vb" />
    <Compile Include="Classes\cPascom.vb" />
+    <Compile Include="DokuDataSet.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>DokuDataSet.xsd</DependentUpon>
+    </Compile>
    <Compile Include="Drucken\frmColumnsPrint.Designer.vb">
      <DependentUpon>frmColumnsPrint.vb</DependentUpon>
    </Compile>
@@ -318,6 +323,12 @@
    <Compile Include="uscntr_MessageUser.vb">
      <SubType>UserControl</SubType>
    </Compile>
+    <Compile Include="uscntr_Notruf.Designer.vb">
+      <DependentUpon>uscntr_Notruf.vb</DependentUpon>
+    </Compile>
+    <Compile Include="uscntr_Notruf.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
    <Compile Include="uscntr_TSSitzungen.Designer.vb">
      <DependentUpon>uscntr_TSSitzungen.vb</DependentUpon>
    </Compile>
@@ -532,6 +543,9 @@
    <EmbeddedResource Include="uscntr_MessageUser.resx">
      <DependentUpon>uscntr_MessageUser.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="uscntr_Notruf.resx">
+      <DependentUpon>uscntr_Notruf.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="uscntr_TSSitzungen.resx">
      <DependentUpon>uscntr_TSSitzungen.vb</DependentUpon>
    </EmbeddedResource>
@@ -609,6 +623,17 @@
    </EmbeddedResource>
  </ItemGroup>
  <ItemGroup>
+    <None Include="DokuDataSet.xsc">
+      <DependentUpon>DokuDataSet.xsd</DependentUpon>
+    </None>
+    <None Include="DokuDataSet.xsd">
+      <Generator>MSDataSetGenerator</Generator>
+      <LastGenOutput>DokuDataSet.Designer.vb</LastGenOutput>
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="DokuDataSet.xss">
+      <DependentUpon>DokuDataSet.xsd</DependentUpon>
+    </None>
    <None Include="My Project\app.manifest" />
    <None Include="My Project\Application.myapp">
      <Generator>MyApplicationCodeGenerator</Generator>
--- a/Dokumentation/Main.Designer.vb
+++ b/Dokumentation/Main.Designer.vb
@@ -95,6 +95,7 @@ Partial Class Main
        Me.IPAdresseInZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.TeamviewerVerbindenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.RDPToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.RDPFensterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
        Me.ObjektLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
@@ -116,7 +117,6 @@ Partial Class Main
        Me.panTSSitzungen = New System.Windows.Forms.Panel()
        Me.Timer_Refresh = New System.Windows.Forms.Timer(Me.components)
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
-        Me.RDPFensterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Panel2.SuspendLayout()
        Me.Panel4.SuspendLayout()
        CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -216,13 +216,13 @@ Partial Class Main
        Me.Button1.ContextMenuStrip = Me.ContextMenuStrip1
        Me.Button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.excel20
+        Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.del
        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button1.Location = New System.Drawing.Point(161, 5)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(151, 28)
        Me.Button1.TabIndex = 43
-        Me.Button1.Text = "Telefonliste"
+        Me.Button1.Text = "IT Notruf"
        Me.Button1.UseVisualStyleBackColor = False
        '
        'ContextMenuStrip1
@@ -257,7 +257,7 @@ Partial Class Main
        Me.LblDEBUGMODE.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LblDEBUGMODE.Location = New System.Drawing.Point(7, 33)
        Me.LblDEBUGMODE.Name = "LblDEBUGMODE"
-        Me.LblDEBUGMODE.Size = New System.Drawing.Size(113, 16)
+        Me.LblDEBUGMODE.Size = New System.Drawing.Size(115, 16)
        Me.LblDEBUGMODE.TabIndex = 13
        Me.LblDEBUGMODE.Text = "LblDebugmode"
        Me.LblDEBUGMODE.Visible = False
@@ -797,7 +797,7 @@ Partial Class Main
        '
        Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.DateienToolStripMenuItem, Me.SMBToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.RDPToolStripMenuItem, Me.RDPFensterToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
        Me.DGVMainContext.Name = "ContextMenuStrip2"
-        Me.DGVMainContext.Size = New System.Drawing.Size(230, 280)
+        Me.DGVMainContext.Size = New System.Drawing.Size(230, 258)
        '
        'DgvMainContextMenuItemHost
        '
@@ -841,6 +841,12 @@ Partial Class Main
        Me.RDPToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
        Me.RDPToolStripMenuItem.Text = "RDP Vollbild"
        '
+        'RDPFensterToolStripMenuItem
+        '
+        Me.RDPFensterToolStripMenuItem.Name = "RDPFensterToolStripMenuItem"
+        Me.RDPFensterToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
+        Me.RDPFensterToolStripMenuItem.Text = "RDP Fenster"
+        '
        'ToolStripSeparator3
        '
        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
@@ -991,12 +997,6 @@ Partial Class Main
        'Timer1
        '
        '
-        'RDPFensterToolStripMenuItem
-        '
-        Me.RDPFensterToolStripMenuItem.Name = "RDPFensterToolStripMenuItem"
-        Me.RDPFensterToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
-        Me.RDPFensterToolStripMenuItem.Text = "RDP Fenster"
-        '
        'Main
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/Dokumentation/Main.resx
+++ b/Dokumentation/Main.resx
@@ -304,9 +304,6 @@
  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1067, 17</value>
  </metadata>
-  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>48</value>
-  </metadata>
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAEAgIAAAAAAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAA
--- a/Dokumentation/Main.vb
+++ b/Dokumentation/Main.vb
@@ -3,6 +3,7 @@ Imports System.IO
 Imports System.Threading
 Imports System.ServiceProcess
 Imports System.DirectoryServices.AccountManagement
+Imports System.Web.UI.WebControls

 Public Class Main
    Public con As New SqlConnection
@@ -653,18 +654,8 @@ Public Class Main
        DeleteGastWLANUser("ABABAB")
    End Sub
    Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-        Dim i As Integer = 0
-        Dim c As String
-        ' For meh As Integer = 0 To 1
-        Dim a, b As String
-            a = UsernamePasswordGenerator("u")
-            b = UsernamePasswordGenerator("p")
-            c &= a & " - " & b & vbCrLf
-            AddGastWLANUser(a, b)
-        'Next
-
-        WriteToFile(Application.StartupPath & "\WLAN.txt", c)
-        'MsgBox(a & vbCrLf & b)
+        Dim pascom As New cPascom
+        pascom.Weiterleitung("555", "199")
    End Sub

    Public Function UsernamePasswordGenerator(x As String, Optional ByVal Zeichenanzahl As Integer = 6) As String ' wenn u dann Username, sonst Password
@@ -1510,9 +1501,18 @@ exit"
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
-        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste")
-        'MsgBox(DS.da_id)
-        DS.OPEN_SINGLE()
+        Dim frm As New frmLeer
+        frm.Text = "Notruf"
+        Dim usrcntrl As New uscntr_Notruf
+
+
+        usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
+        frm.Size = usrcntrl.Size
+        frm.Show()
+
+        AddHandler frm.FormClosing, Function()
+
+                                    End Function
    End Sub

    Public Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
@@ -1714,7 +1714,7 @@ exit"
                RestartServices(Host2Connect.FQDN, "Druckerwarteschlange")
            End If
        Else
-                MsgBox("Hostname wurde nicht gefunden.")
+            MsgBox("Hostname wurde nicht gefunden.")
        End If
    End Sub

--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -289,7 +289,7 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.83 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.84 ähnelt.
        '''</summary>
        Friend ReadOnly Property Version() As String
            Get
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -155,7 +155,7 @@
    <value>..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="Version" xml:space="preserve">
-    <value>0.0.1.83</value>
+    <value>0.0.1.84</value>
  </data>
  <data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
--- a/Project/Settings.Designer.vb
+++ b/Project/Settings.Designer.vb
@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
    
    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.4.0.0"),  _
     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
    Partial Friend NotInheritable Class MySettings
        Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -53,6 +53,17 @@ Namespace My
                Return defaultInstance
            End Get
        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;Integrated Security=Tru"& _ 
+            "e")>  _
+        Public ReadOnly Property DokuConnectionString() As String
+            Get
+                Return CType(Me("DokuConnectionString"),String)
+            End Get
+        End Property
    End Class
 End Namespace

--- a/Project/Settings.settings
+++ b/Project/Settings.settings
@@ -1,7 +1,14 @@
 <?xml version='1.0' encoding='utf-8'?>
-<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
-  <Profiles>
-    <Profile Name="(Default)" />
-  </Profiles>
-  <Settings />
-</SettingsFile>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
+  <Profiles />
+  <Settings>
+    <Setting Name="DokuConnectionString" Type="(Connection string)" Scope="Application">
+      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
+&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
+  &lt;ConnectionString&gt;Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;Integrated Security=True&lt;/ConnectionString&gt;
+  &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
+&lt;/SerializableConnectionString&gt;</DesignTimeValue>
+      <Value Profile="(Default)">Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;Integrated Security=True</Value>
+    </Setting>
+  </Settings>
+</SettingsFile>
--- a/Dokumentation/frmHostBearbeiten.Designer.vb
+++ b/Dokumentation/frmHostBearbeiten.Designer.vb
@@ -60,6 +60,7 @@ Partial Class frmHostBearbeiten
        Me.TxtLink = New System.Windows.Forms.TextBox()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.MitHTTPFüllenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.MitHTTPSFuellen = New System.Windows.Forms.ToolStripMenuItem()
        Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.FFPortToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.CmdIPUp = New System.Windows.Forms.Button()
@@ -91,7 +92,6 @@ Partial Class frmHostBearbeiten
        Me.PanFirewall = New System.Windows.Forms.Panel()
        Me.PanSlaves = New System.Windows.Forms.Panel()
        Me.PanNavTop = New System.Windows.Forms.Panel()
-        Me.MitHTTPSFuellen = New System.Windows.Forms.ToolStripMenuItem()
        Me.ContextMenuStrip2.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -423,24 +423,30 @@ Partial Class frmHostBearbeiten
        '
        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MitHTTPFüllenToolStripMenuItem, Me.MitHTTPSFuellen, Me.KopierenToolStripMenuItem, Me.FFPortToolStripMenuItem})
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 114)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(163, 92)
        '
        'MitHTTPFüllenToolStripMenuItem
        '
        Me.MitHTTPFüllenToolStripMenuItem.Name = "MitHTTPFüllenToolStripMenuItem"
-        Me.MitHTTPFüllenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.MitHTTPFüllenToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
        Me.MitHTTPFüllenToolStripMenuItem.Text = "mit HTTP füllen"
        '
+        'MitHTTPSFuellen
+        '
+        Me.MitHTTPSFuellen.Name = "MitHTTPSFuellen"
+        Me.MitHTTPSFuellen.Size = New System.Drawing.Size(162, 22)
+        Me.MitHTTPSFuellen.Text = "Mit HTTPS füllen"
+        '
        'KopierenToolStripMenuItem
        '
        Me.KopierenToolStripMenuItem.Name = "KopierenToolStripMenuItem"
-        Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
        Me.KopierenToolStripMenuItem.Text = "Kopieren"
        '
        'FFPortToolStripMenuItem
        '
        Me.FFPortToolStripMenuItem.Name = "FFPortToolStripMenuItem"
-        Me.FFPortToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.FFPortToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
        Me.FFPortToolStripMenuItem.Text = "FF Port"
        Me.FFPortToolStripMenuItem.Visible = False
        '
@@ -792,12 +798,6 @@ Partial Class frmHostBearbeiten
        Me.PanNavTop.Size = New System.Drawing.Size(309, 32)
        Me.PanNavTop.TabIndex = 141
        '
-        'MitHTTPSFuellen
-        '
-        Me.MitHTTPSFuellen.Name = "MitHTTPSFuellen"
-        Me.MitHTTPSFuellen.Size = New System.Drawing.Size(180, 22)
-        Me.MitHTTPSFuellen.Text = "Mit HTTPS füllen"
-        '
        'frmHostBearbeiten
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/Dokumentation/frmHostBearbeiten.vb
+++ b/Dokumentation/frmHostBearbeiten.vb
@@ -403,4 +403,6 @@
    Private Sub MitHTTPSFuellen_Click(sender As Object, e As EventArgs) Handles MitHTTPSFuellen.Click
        TxtLink.Text = "https://" & TxtIP.Text & "/"
    End Sub
+
+
 End Class
--- a/Dokumentation/uscntr_Notruf.Designer.vb
+++ b/Dokumentation/uscntr_Notruf.Designer.vb
@@ -0,0 +1,187 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class uscntr_Notruf
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.DokuDataSet = New Dokumentation.DokuDataSet()
+        Me.TbLNotfallKontakteBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.TbL_NotfallKontakteTableAdapter = New Dokumentation.DokuDataSetTableAdapters.TbL_NotfallKontakteTableAdapter()
+        Me.TbLNotfallKontakteBindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        CType(Me.DokuDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TbLNotfallKontakteBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TbLNotfallKontakteBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'FlatButton1
+        '
+        Me.FlatButton1.allowBorder = False
+        Me.FlatButton1.BackColor = System.Drawing.SystemColors.AppWorkspace
+        Me.FlatButton1.FlatAppearance.BorderSize = 0
+        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton1.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton1.Location = New System.Drawing.Point(172, 57)
+        Me.FlatButton1.Name = "FlatButton1"
+        Me.FlatButton1.Size = New System.Drawing.Size(127, 23)
+        Me.FlatButton1.TabIndex = 9
+        Me.FlatButton1.Text = "Weiterleitung setzen"
+        Me.FlatButton1.UseVisualStyleBackColor = False
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(77, 25)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(89, 13)
+        Me.Label2.TabIndex = 8
+        Me.Label2.Text = "Eingestelltes Ziel:"
+        '
+        'DokuDataSet
+        '
+        Me.DokuDataSet.DataSetName = "DokuDataSet"
+        Me.DokuDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'TbLNotfallKontakteBindingSource
+        '
+        Me.TbLNotfallKontakteBindingSource.DataMember = "TbL_NotfallKontakte"
+        Me.TbLNotfallKontakteBindingSource.DataSource = Me.DokuDataSet
+        '
+        'TbL_NotfallKontakteTableAdapter
+        '
+        Me.TbL_NotfallKontakteTableAdapter.ClearBeforeFill = True
+        '
+        'TbLNotfallKontakteBindingSource1
+        '
+        Me.TbLNotfallKontakteBindingSource1.DataMember = "TbL_NotfallKontakte"
+        Me.TbLNotfallKontakteBindingSource1.DataSource = Me.DokuDataSet
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
+        Me.ComboBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(35, 58)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
+        Me.ComboBox1.TabIndex = 10
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(172, 25)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(39, 13)
+        Me.Label3.TabIndex = 11
+        Me.Label3.Text = "Label3"
+        '
+        'FlatButton2
+        '
+        Me.FlatButton2.allowBorder = False
+        Me.FlatButton2.BackColor = System.Drawing.SystemColors.AppWorkspace
+        Me.FlatButton2.FlatAppearance.BorderSize = 0
+        Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton2.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton2.Location = New System.Drawing.Point(172, 95)
+        Me.FlatButton2.Name = "FlatButton2"
+        Me.FlatButton2.Size = New System.Drawing.Size(127, 23)
+        Me.FlatButton2.TabIndex = 12
+        Me.FlatButton2.Text = "Weiterleitung starten"
+        Me.FlatButton2.UseVisualStyleBackColor = False
+        '
+        'FlatButton3
+        '
+        Me.FlatButton3.allowBorder = False
+        Me.FlatButton3.BackColor = System.Drawing.SystemColors.AppWorkspace
+        Me.FlatButton3.FlatAppearance.BorderSize = 0
+        Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton3.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton3.Location = New System.Drawing.Point(172, 124)
+        Me.FlatButton3.Name = "FlatButton3"
+        Me.FlatButton3.Size = New System.Drawing.Size(127, 23)
+        Me.FlatButton3.TabIndex = 13
+        Me.FlatButton3.Text = "Weiterleitung beenden"
+        Me.FlatButton3.UseVisualStyleBackColor = False
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(172, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(39, 13)
+        Me.Label1.TabIndex = 15
+        Me.Label1.Text = "Label1"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(93, 0)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(73, 13)
+        Me.Label4.TabIndex = 14
+        Me.Label4.Text = "Akutelles Ziel:"
+        '
+        'uscntr_Notruf
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSize = True
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.FlatButton3)
+        Me.Controls.Add(Me.FlatButton2)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.FlatButton1)
+        Me.Controls.Add(Me.Label2)
+        Me.MinimumSize = New System.Drawing.Size(320, 162)
+        Me.Name = "uscntr_Notruf"
+        Me.Size = New System.Drawing.Size(320, 162)
+        CType(Me.DokuDataSet, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TbLNotfallKontakteBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TbLNotfallKontakteBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents Label2 As Label
+    Friend WithEvents TbLNotfallKontakteBindingSource As BindingSource
+    Friend WithEvents DokuDataSet As DokuDataSet
+    Friend WithEvents TbL_NotfallKontakteTableAdapter As DokuDataSetTableAdapters.TbL_NotfallKontakteTableAdapter
+    Friend WithEvents TbLNotfallKontakteBindingSource1 As BindingSource
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents FlatButton3 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label4 As Label
+End Class
--- a/Dokumentation/uscntr_Notruf.resx
+++ b/Dokumentation/uscntr_Notruf.resx
@@ -0,0 +1,132 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="DokuDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="TbLNotfallKontakteBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>140, 17</value>
+  </metadata>
+  <metadata name="TbL_NotfallKontakteTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>375, 17</value>
+  </metadata>
+  <metadata name="TbLNotfallKontakteBindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>610, 17</value>
+  </metadata>
+</root>
--- a/Dokumentation/uscntr_Notruf.vb
+++ b/Dokumentation/uscntr_Notruf.vb
@@ -0,0 +1,55 @@
+Public Class uscntr_Notruf
+
+    Dim ds As New DataSet
+    Dim WeiterleitungsZiel As String = ""
+    Dim aktuellesWeiterleitungsziel As String = ""
+
+    Private Sub uscntr_Notruf_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        refreshDisplay() : refreshds()
+        Class1.AutocompleteCombo(ComboBox1, "Name", "TbL_NotfallKontakte")
+
+    End Sub
+
+    Function refreshds()
+        cSQL.SQL2DS("select name, Telefonnummer,notruf from TbL_NotfallKontakte", ds)
+    End Function
+
+    Function refreshDisplay()
+        Dim tmp As New DataSet
+        cSQL.SQL2DS("select name, Telefonnummer from TbL_NotfallKontakte where Notruf = 1", tmp)
+        If tmp.Tables(0).Rows.Count > 0 Then
+            Label3.Text = tmp.Tables(0).Rows(0).Item(0).ToString
+            WeiterleitungsZiel = tmp.Tables(0).Rows(0).Item(1).ToString
+        End If
+        Dim pascom As New cPascom
+        aktuellesWeiterleitungsziel = pascom.getredirect("555")
+        Label1.Text = aktuellesWeiterleitungsziel
+    End Function
+
+    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
+        cSQL.UpdateSQL("TbL_NotfallKontakte", "Notruf = 0", "Notruf = 1")
+        cSQL.UpdateSQL("TbL_NotfallKontakte", "Notruf = 1", "name = " & "'" & ComboBox1.SelectedValue & "'")
+        refreshDisplay()
+        refreshds()
+
+
+    End Sub
+
+    Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
+        Dim pascom As New cPascom
+        pascom.Weiterleitung("555", WeiterleitungsZiel, aktuellesWeiterleitungsziel)
+        refreshDisplay()
+
+    End Sub
+
+    Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
+        Dim pascom As New cPascom
+        pascom.Weiterleitung("555", "199", aktuellesWeiterleitungsziel)
+        refreshDisplay()
+    End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+        refreshDisplay()
+
+    End Sub
+End Class