Merge branch 'master' of http://scmadmin@172.24.11.74:90/scm/git/RecordOrganizer

2016-11-28 08:42:01 +01:00 · 2016-11-28 08:42:01 +01:00 · c2f8ddd1c3
commit c2f8ddd1c3
parent f26bde752a 5085236dce
7 changed files with 396 additions and 21 deletions
--- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
+++ b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
@ -304,6 +304,12 @@
    <Compile Include="frmFileInWork.vb">
      <SubType>Form</SubType>
    </Compile>
+    <Compile Include="frmGeodataNavigation.Designer.vb">
+      <DependentUpon>frmGeodataNavigation.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmGeodataNavigation.vb">
+      <SubType>Form</SubType>
+    </Compile>
    <Compile Include="frmGoogle.Designer.vb">
      <DependentUpon>frmGoogle.vb</DependentUpon>
    </Compile>
@ -735,6 +741,9 @@
    <EmbeddedResource Include="frmFileInWork.resx">
      <DependentUpon>frmFileInWork.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="frmGeodataNavigation.resx">
+      <DependentUpon>frmGeodataNavigation.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="frmGoogle.resx">
      <DependentUpon>frmGoogle.vb</DependentUpon>
    </EmbeddedResource>
--- a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb
+++ b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb
@ -78,6 +78,7 @@ Partial Class frmConstructor_Main
        Me.AnwendungscacheResettsmi = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripSeparator19 = New System.Windows.Forms.ToolStripSeparator()
        Me.tsbtnRefresh_Entity = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
        Me.TCDetails = New DevExpress.XtraTab.XtraTabControl()
        Me.TabDetails = New DevExpress.XtraTab.XtraTabPage()
        Me.SplitContainerDetails = New DevExpress.XtraEditors.SplitContainerControl()
@ -135,8 +136,8 @@ Partial Class frmConstructor_Main
        Me.tsbtnDoc_Refresh = New System.Windows.Forms.ToolStripButton()
        Me.TabFollowUp = New DevExpress.XtraTab.XtraTabPage()
        Me.ListViewFollowUps = New System.Windows.Forms.ListView()
-        Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
-        Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
+        Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
        Me.grpbxFU_Profile = New System.Windows.Forms.GroupBox()
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
        Me.btnRemoveUser_FollowUp = New System.Windows.Forms.Button()
@ -513,7 +514,7 @@ Partial Class frmConstructor_Main
        '
        'ToolStripRecords
        '
-        Me.ToolStripRecords.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslbldisplayRecords, Me.ToolStripDropDownButton3, Me.ToolStripSeparator19, Me.tsbtnRefresh_Entity})
+        Me.ToolStripRecords.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslbldisplayRecords, Me.ToolStripDropDownButton3, Me.ToolStripSeparator19, Me.tsbtnRefresh_Entity, Me.ToolStripButton2})
        resources.ApplyResources(Me.ToolStripRecords, "ToolStripRecords")
        Me.ToolStripRecords.Name = "ToolStripRecords"
        '
@ -597,6 +598,11 @@ Partial Class frmConstructor_Main
        resources.ApplyResources(Me.tsbtnRefresh_Entity, "tsbtnRefresh_Entity")
        Me.tsbtnRefresh_Entity.Name = "tsbtnRefresh_Entity"
        '
+        'ToolStripButton2
+        '
+        resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2")
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        '
        'TCDetails
        '
        Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.BackColor"), System.Drawing.Color)
@ -1733,4 +1739,5 @@ End Sub
    Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn
    Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn
    Friend WithEvents colRECORD_ID As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
 End Class
--- a/app/DD-Record-Organiser/frmConstructor_Main.resx
+++ b/app/DD-Record-Organiser/frmConstructor_Main.resx
@ -343,7 +343,7 @@
    <value>0, 25</value>
  </data>
  <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1067, 212</value>
+    <value>1074, 212</value>
  </data>
  <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -453,11 +453,35 @@
  <data name="tsbtnRefresh_Entity.Text" xml:space="preserve">
    <value>Neu laden</value>
  </data>
+  <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
+        0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
+        bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
+        VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
+        c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
+        Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
+        mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
+        kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
+        TgDQASA1MVpwzwAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="ToolStripButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
+    <value>Magenta</value>
+  </data>
+  <data name="ToolStripButton2.Size" type="System.Drawing.Size, System.Drawing">
+    <value>78, 22</value>
+  </data>
+  <data name="ToolStripButton2.Text" xml:space="preserve">
+    <value>Geodaten</value>
+  </data>
  <data name="ToolStripRecords.Location" type="System.Drawing.Point, System.Drawing">
    <value>0, 0</value>
  </data>
  <data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1067, 25</value>
+    <value>1074, 25</value>
  </data>
  <data name="ToolStripRecords.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -538,7 +562,7 @@
    <value>0, 0</value>
  </data>
  <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>786, 336</value>
+    <value>786, 343</value>
  </data>
  <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -574,10 +598,10 @@
    <value>Ansicht gesperrt</value>
  </data>
  <data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 286</value>
+    <value>0, 293</value>
  </data>
  <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
-    <value>554, 24</value>
+    <value>561, 24</value>
  </data>
  <data name="statStripDoc.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -604,7 +628,7 @@
    <value>0, 26</value>
  </data>
  <data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
-    <value>554, 310</value>
+    <value>561, 317</value>
  </data>
  <data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@ -628,7 +652,7 @@
    <value>0, 0</value>
  </data>
  <data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
-    <value>554, 26</value>
+    <value>561, 26</value>
  </data>
  <data name="pnlDocToolStrip.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -649,7 +673,7 @@
    <value>Panel2</value>
  </data>
  <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 340</value>
+    <value>1356, 347</value>
  </data>
  <data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@ -810,7 +834,7 @@
    <value>1</value>
  </data>
  <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 365</value>
+    <value>1356, 372</value>
  </data>
  <data name="TabDetails.Text" xml:space="preserve">
    <value>Detailansicht</value>
@ -828,7 +852,7 @@
    <value>0</value>
  </data>
  <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1362, 396</value>
+    <value>1362, 403</value>
  </data>
  <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@ -975,7 +999,7 @@
    <value>Aqua</value>
  </data>
  <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 340</value>
+    <value>1356, 347</value>
  </data>
  <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
    <value>7</value>
@ -1093,7 +1117,7 @@
    <value>1</value>
  </data>
  <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 365</value>
+    <value>1356, 372</value>
  </data>
  <data name="TabWindream.Text" xml:space="preserve">
    <value>Dateien</value>
@ -1524,7 +1548,7 @@
    <value>2</value>
  </data>
  <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 365</value>
+    <value>1356, 372</value>
  </data>
  <data name="TabFollowUp.Text" xml:space="preserve">
    <value>Wiedervorlage</value>
@ -1551,7 +1575,7 @@
    <value>Cyan</value>
  </data>
  <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 340</value>
+    <value>1356, 347</value>
  </data>
  <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -1575,7 +1599,7 @@
    <value>0, 25</value>
  </data>
  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 340</value>
+    <value>1356, 347</value>
  </data>
  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
    <value>2</value>
@ -1779,7 +1803,7 @@
 </value>
  </data>
  <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 365</value>
+    <value>1356, 372</value>
  </data>
  <data name="TabPos.Text" xml:space="preserve">
    <value>Positionen</value>
@ -1890,7 +1914,7 @@
    <value>5</value>
  </data>
  <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 340</value>
+    <value>1356, 347</value>
  </data>
  <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
    <value>90</value>
@ -1962,7 +1986,7 @@
    <value>1</value>
  </data>
  <data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1356, 365</value>
+    <value>1356, 372</value>
  </data>
  <data name="TabPageVariant.Text" xml:space="preserve">
    <value>Vorgängervarianten</value>
@ -2955,6 +2979,12 @@
  <data name="&gt;&gt;tsbtnRefresh_Entity.Type" xml:space="preserve">
    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </data>
+  <data name="&gt;&gt;ToolStripButton2.Name" xml:space="preserve">
+    <value>ToolStripButton2</value>
+  </data>
+  <data name="&gt;&gt;ToolStripButton2.Type" xml:space="preserve">
+    <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
  <data name="&gt;&gt;tslblDocIDTab1.Name" xml:space="preserve">
    <value>tslblDocIDTab1</value>
  </data>
--- a/app/DD-Record-Organiser/frmConstructor_Main.vb
+++ b/app/DD-Record-Organiser/frmConstructor_Main.vb
@ -6287,4 +6287,9 @@ Public Class frmConstructor_Main
        End Try
        JUMP_RECORD_ID = 0
    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        Dim frm As New frmGeodataNavigation(GridControlMain, CURRENT_FORM_ID)
+        frm.Show()
+    End Sub
 End Class
--- a/app/DD-Record-Organiser/frmGeodataNavigation.Designer.vb
+++ b/app/DD-Record-Organiser/frmGeodataNavigation.Designer.vb
@ -0,0 +1,92 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmGeodataNavigation
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular ü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()
+        Dim ImageTilesLayer1 As DevExpress.XtraMap.ImageTilesLayer = New DevExpress.XtraMap.ImageTilesLayer()
+        Dim VectorItemsLayer1 As DevExpress.XtraMap.VectorItemsLayer = New DevExpress.XtraMap.VectorItemsLayer()
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
+        Me.MapControl1 = New DevExpress.XtraMap.MapControl()
+        Me.tsLabelRecordCount = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.StatusStrip1.SuspendLayout()
+        CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(796, 25)
+        Me.ToolStrip1.TabIndex = 0
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'StatusStrip1
+        '
+        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsLabelRecordCount})
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 477)
+        Me.StatusStrip1.Name = "StatusStrip1"
+        Me.StatusStrip1.Size = New System.Drawing.Size(796, 22)
+        Me.StatusStrip1.TabIndex = 1
+        Me.StatusStrip1.Text = "StatusStrip1"
+        '
+        'MapControl1
+        '
+        Me.MapControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        ImageTilesLayer1.Name = "ImageLayer"
+        VectorItemsLayer1.Name = "VectorLayer"
+        Me.MapControl1.Layers.Add(ImageTilesLayer1)
+        Me.MapControl1.Layers.Add(VectorItemsLayer1)
+        Me.MapControl1.Location = New System.Drawing.Point(0, 25)
+        Me.MapControl1.Name = "MapControl1"
+        Me.MapControl1.NavigationPanelOptions.Visible = False
+        Me.MapControl1.Size = New System.Drawing.Size(796, 452)
+        Me.MapControl1.TabIndex = 2
+        '
+        'tsLabelRecordCount
+        '
+        Me.tsLabelRecordCount.Name = "tsLabelRecordCount"
+        Me.tsLabelRecordCount.Size = New System.Drawing.Size(119, 17)
+        Me.tsLabelRecordCount.Text = "0 Elemente gefunden"
+        '
+        'frmGeodataNavigation
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(796, 499)
+        Me.Controls.Add(Me.MapControl1)
+        Me.Controls.Add(Me.StatusStrip1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Name = "frmGeodataNavigation"
+        Me.Text = "frmGeodataNavigation"
+        Me.StatusStrip1.ResumeLayout(False)
+        Me.StatusStrip1.PerformLayout()
+        CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
+    Friend WithEvents MapControl1 As DevExpress.XtraMap.MapControl
+    Friend WithEvents tsLabelRecordCount As System.Windows.Forms.ToolStripStatusLabel
+End Class
--- a/app/DD-Record-Organiser/frmGeodataNavigation.resx
+++ b/app/DD-Record-Organiser/frmGeodataNavigation.resx
@ -0,0 +1,126 @@
+<?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="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>124, 17</value>
+  </metadata>
+</root>
--- a/app/DD-Record-Organiser/frmGeodataNavigation.vb
+++ b/app/DD-Record-Organiser/frmGeodataNavigation.vb
@ -0,0 +1,106 @@
+Imports DevExpress.XtraMap
+Imports DevExpress.XtraGrid
+
+Public Class frmGeodataNavigation
+
+    Private BING_KEY As String = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ouH9e1uJmpIyVdA3jugVEWMdy1Rbt"
+    Private EntityId As Integer = Nothing
+    Private EntitySql As String = Nothing
+    Private Grid As GridControl = Nothing
+
+    Private ReadOnly Property ImageLayer() As ImageTilesLayer
+        Get
+            Return CType(MapControl1.Layers("ImageLayer"), ImageTilesLayer)
+        End Get
+    End Property
+
+    Private ReadOnly Property VectorLayer() As VectorItemsLayer
+        Get
+            Return CType(MapControl1.Layers("VectorLayer"), VectorItemsLayer)
+        End Get
+    End Property
+
+    Public Sub New(ByRef gridControl As GridControl, ByVal EntityId As Integer)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.Grid = gridControl
+        Me.EntityId = EntityId
+        Me.EntitySql = String.Format("SELECT T.*, T1.LATITUDE, T1.LONGITUDE from VWTEMP_PMO_FORM{0} T,TBPMO_RECORD_GEODATA T1 WHERE T.[Record-ID] = T1.RECORD_ID", Me.EntityId)
+    End Sub
+
+    Private Sub frmGeodataNavigation_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ' Liste für PushPins anlegen
+        Dim items As New List(Of MapPushpin)
+
+        ' Kartendaten laden
+        Dim dataProvider As New BingMapDataProvider()
+        dataProvider.BingKey = BING_KEY
+        ImageLayer.DataProvider = dataProvider
+
+        ' Datensätze mit Lat,Lon Werten laden
+        Dim dt As DataTable = ClassDatabase.Return_Datatable(Me.EntitySql)
+
+        ' PushPins
+        For Each row As DataRow In dt.Rows
+            Dim lat As Double = row.Item("LATITUDE")
+            Dim lon As Double = row.Item("LONGITUDE")
+            Dim pushpin As New MapPushpin()
+            pushpin.Location = New GeoPoint(lat, lon)
+            pushpin.Text = row.Item("Record-ID").ToString()
+            pushpin.Information = row.Item("Record-ID")
+
+            items.Add(pushpin)
+        Next
+
+        Dim storage As New MapItemStorage()
+        Dim itemArray() As MapPushpin = items.ToArray()
+
+        storage.Items.AddRange(itemArray)
+        VectorLayer.Data = storage
+
+        tsLabelRecordCount.Text = String.Format("{0} Elemente gefunden", items.Count)
+
+        MapControl1.ZoomToFitLayerItems()
+    End Sub
+
+    Private Sub SetGridFilter(records As List(Of Integer))
+        Dim filter As New List(Of String)
+
+        For Each id As Integer In records
+            filter.Add(String.Format("[Record-Id] = {0}", id))
+        Next
+
+        Dim gridView As Views.Grid.GridView = Me.Grid.FocusedView
+        gridView.ActiveFilterString = String.Join(" OR ", filter.ToArray())
+    End Sub
+
+    'Private Sub MapControl1_MapItemClick(sender As Object, e As MapItemClickEventArgs) Handles MapControl1.MapItemClick
+
+    'End Sub
+
+    'Private Sub MapControl1_MapItemDoubleClick(sender As Object, e As MapItemClickEventArgs) Handles MapControl1.MapItemDoubleClick
+    '    Dim item As MapPushpin = e.Item
+    '    Dim recordId As Integer = item.Information
+
+    '    SetGridFilter(New List(Of Integer) From {recordId})
+    'End Sub
+
+    Private Sub MapControl1_SelectionChanged(sender As Object, e As MapSelectionChangedEventArgs) Handles MapControl1.SelectionChanged
+        Dim items As List(Of Object) = e.Selection
+        Dim records As New List(Of Integer)
+
+        For Each item As Object In items
+            Try
+                Dim pin As MapPushpin = CType(item, MapPushpin)
+                Dim recordId As Integer = pin.Information
+                records.Add(recordId)
+            Catch ex As Exception
+                MsgBox("Cannot convert selection to MapPushPin")
+            End Try
+        Next
+
+        SetGridFilter(records)
+    End Sub
+End Class