AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 30.11.2016

Browse Source
This commit is contained in:
JenneJ 2016-11-30 15:56:44 +01:00
parent 0f374eecb2
commit 57517ffed8
12 changed files with 3350 additions and 4779 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/DD-Record-Organiser/DD-Record-Organiser.vbproj
View File

@ -1462,6 +1462,7 @@
<None Include="Resources\AddExistingItem_6269.png" /> <None Include="Resources\AddExistingItem_6269.png" />
<None Include="Resources\AddExistingItem_62691.png" /> <None Include="Resources\AddExistingItem_62691.png" />
<None Include="Resources\base_globe_32.png" /> <None Include="Resources\base_globe_32.png" />
<None Include="Resources\1480524473_1.png" />
<Content Include="Resources\cube.ico" /> <Content Include="Resources\cube.ico" />
<Content Include="Resources\138_PushPin_32x42_72.png" /> <Content Include="Resources\138_PushPin_32x42_72.png" />
<None Include="Resources\PropertyGridEditorPart_6041.png" /> <None Include="Resources\PropertyGridEditorPart_6041.png" />

72
app/DD-Record-Organiser/ModuleHelperMethods.vb
View File

@ -1,4 +1,7 @@
Module ModuleHelperMethods Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Module ModuleHelperMethods
Public Enum EnumFormatOptions Public Enum EnumFormatOptions
[String] = 0 [String] = 0
@ -252,7 +255,7 @@
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical) MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Public Sub OpenFormConstructor(id As Integer, Optional recordId As Integer = -1) Public Sub OpenFormConstructor(id As Integer, Optional recordId As Integer = -1)
@ -370,7 +373,7 @@
Catch ex As Exception Catch ex As Exception
MsgBox("Could not find Right manager: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Could not find Right manager: " & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Public Sub OpenWindream_Files() Public Sub OpenWindream_Files()
Dim frm As New frmWD_Import_Doc_Record Dim frm As New frmWD_Import_Doc_Record
@ -429,6 +432,69 @@
Return Guid.NewGuid().ToString().GetHashCode().ToString("x") Return Guid.NewGuid().ToString().GetHashCode().ToString("x")
End Function End Function
Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer, ConstructorDetailID As Integer, ByRef GRID_TYPE As frmConstructor_Main.GridType, UserGuid As Integer, QUICK_VIEW_SQL As String,
IS_SINGLE_RECORD As Boolean, FORM_TYPE As Integer, ByRef VIEW_ID As Integer, ByRef GridControlMain As GridControl, ByRef grvwGrid As GridView, Optional ByRef IS_GEOData As Boolean = False)
Try
Dim ViewName As String = "VWTEMP_PMO_FORM" & FormId.ToString
Dim EntitySQL As String
If GRID_TYPE = frmConstructor_Main.GridType.Grid Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
EntitySQL = "SELECT T.* FROM " & ViewName & " T"
If IS_GEOData = True Then
EntitySQL &= " LEFT OUTER JOIN TBPMO_RECORD_GEODATA T1 ON T.[Record-ID] = T1.RECORD_ID"
EntitySQL = EntitySQL.Replace("T.*", "T.*, T1.LATITUDE,T1.LONGITUDE,T1.LOCATION")
End If
Else 'Tiles und Carousel bekommen Quick View
EntitySQL = QUICK_VIEW_SQL
If EntitySQL = String.Empty Then
EntitySQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
If IS_SINGLE_RECORD = True Or FORM_TYPE = 5 Then
Else
GRID_TYPE = frmConstructor_Main.GridType.Grid
GridControlMain.MainView = grvwGrid
VIEW_ID = 3
End If
' GridControlMain.MainView = grvwGrid
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Quick-View is configured", False)
End If
End If
Try
Dim sql = String.Format("SELECT COUNT(*) FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1} AND SQL_COMMAND IS NOT NULL AND SQL_COMMAND <> ''", USER_GUID, ConstructorDetailID)
Dim exists = ClassDatabase.Execute_Scalar(sql)
If exists = 1 Then
sql = String.Format("SELECT SQL_COMMAND FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1}", USER_GUID, ConstructorDetailID)
Dim result = ClassDatabase.Execute_Scalar(sql)
If Not IsNothing(result) Then
' result = result.ToUpper.Replace("@RECORDID", RECORD_ID)
result = result.ToUpper.Replace("@USER_ID", UserGuid)
EntitySQL = EntitySQL & " " & result.ToString
CURRENT_ENTITYSQL_WHERE = result
Else
CURRENT_ENTITYSQL_WHERE = ""
End If
Else
CURRENT_ENTITYSQL_WHERE = ""
End If
Catch ex As Exception
ClassLogger.Add("Error in Get Entity SQL for User: " & vbNewLine & ex.Message, True)
MsgBox("Error in Get Entity SQL for User: " & vbNewLine & ex.Message)
End Try
Return EntitySQL
Catch ex As Exception
ClassLogger.Add("Error in Get_Grid_Sql: " & vbNewLine & ex.Message, True)
MsgBox("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
Return Nothing
End Try
End Function
Public Class SW Public Class SW
Public label As String Public label As String
Public stopwatch As Stopwatch Public stopwatch As Stopwatch

10
app/DD-Record-Organiser/My Project/Resources.Designer.vb generated
View File

@ -2019,5 +2019,15 @@ Namespace My.Resources
Return CType(obj,System.Drawing.Bitmap) Return CType(obj,System.Drawing.Bitmap)
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property pushpin() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("_1480524473_1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module End Module
End Namespace End Namespace

3
app/DD-Record-Organiser/My Project/Resources.resx
View File

@ -706,4 +706,7 @@
<data name="base_globe_32" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="base_globe_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\base_globe_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\base_globe_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="_1480524473_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1480524473_1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root> </root>

13
app/DD-Record-Organiser/My Project/licenses.licx
View File

@ -1,9 +1,10 @@
DevExpress.XtraMap.MapControl, DevExpress.XtraMap.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraMap.MapControl, DevExpress.XtraMap.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraScheduler.SchedulerControl, DevExpress.XtraScheduler.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraScheduler.SchedulerControl, DevExpress.XtraScheduler.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

BIN
app/DD-Record-Organiser/Resources/1480524473_1.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 6.2 KiB

528
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

791
app/DD-Record-Organiser/frmConstructor_Main.en-US.resx
View File

@ -117,13 +117,6 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="DevExpress.Data.v15.2" name="DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="TreeViewMain.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="CMSEntity.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value> <value>188, 22</value>
@ -167,34 +160,6 @@
<data name="CMSEntity.Size" type="System.Drawing.Size, System.Drawing"> <data name="CMSEntity.Size" type="System.Drawing.Size, System.Drawing">
<value>189, 138</value> <value>189, 138</value>
</data> </data>
<data name="CMSEntity.Title" xml:space="preserve">
<value />
</data>
<data name="CMSEntity.ToolTip" xml:space="preserve">
<value />
</data>
<data name="CMSEntity.ToolTip1" xml:space="preserve">
<value />
</data>
<assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="CMSEntity.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="TreeViewMain.Title" xml:space="preserve">
<value />
</data>
<data name="TreeViewMain.ToolTip" xml:space="preserve">
<value />
</data>
<data name="TreeViewMain.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="TreeViewMain.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="ContextMenuGrid.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="FunktionenDataGridToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="FunktionenDataGridToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value> <value>226, 22</value>
</data> </data>
@ -276,86 +241,8 @@
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>227, 270</value> <value>227, 270</value>
</data> </data>
<data name="ContextMenuGrid.Title" xml:space="preserve"> <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>1074, 212</value>
</data>
<data name="ContextMenuGrid.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ContextMenuGrid.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ContextMenuGrid.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridControlMain.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlMain.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlMain.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControlMain.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlMain.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlMain.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlMain.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlMain.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<assembly alias="DevExpress.XtraEditors.v15.2" name="DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlMain.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
<value>Center</value>
</data>
<data name="GridControlMain.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlMain.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControlMain.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="grvwGrid.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="grvwGrid.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="grvwGrid.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="grvwGrid.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="grvwTiles.AppearanceGroupText.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="grvwTiles.AppearanceGroupText.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="grvwTiles.AppearanceGroupText.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="grvwTiles.AppearanceGroupText.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlMain.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ToolStripRecords.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data> </data>
<data name="CopyRecordtsmi.Size" type="System.Drawing.Size, System.Drawing"> <data name="CopyRecordtsmi.Size" type="System.Drawing.Size, System.Drawing">
<value>200, 22</value> <value>200, 22</value>
@ -417,65 +304,11 @@
<data name="ToolStripDropDownButton3.Text" xml:space="preserve"> <data name="ToolStripDropDownButton3.Text" xml:space="preserve">
<value>record-functions</value> <value>record-functions</value>
</data> </data>
<data name="ToolStripRecords.Title" xml:space="preserve"> <data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>1074, 25</value>
</data> </data>
<data name="ToolStripRecords.ToolTip" xml:space="preserve"> <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>786, 343</value>
</data>
<data name="ToolStripRecords.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ToolStripRecords.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="SplitContainerTop.ToolTip" xml:space="preserve">
<value />
</data>
<data name="TCDetails.AppearancePage.HeaderHotTracked.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="TCDetails.AppearancePage.HeaderHotTracked.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="TCDetails.AppearancePage.HeaderHotTracked.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="TCDetails.AppearancePage.HeaderHotTracked.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="SplitContainerDetails.Appearance.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="SplitContainerDetails.Appearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="SplitContainerDetails.Appearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="SplitContainerDetails.Appearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="pnlDetails.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="pnlDetails.Title" xml:space="preserve">
<value />
</data>
<data name="pnlDetails.ToolTip" xml:space="preserve">
<value />
</data>
<data name="pnlDetails.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="pnlDetails.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="pnlDocFill.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="statStripDoc.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data> </data>
<data name="tslblDocViewLocked.Size" type="System.Drawing.Size, System.Drawing"> <data name="tslblDocViewLocked.Size" type="System.Drawing.Size, System.Drawing">
<value>279, 19</value> <value>279, 19</value>
@ -483,50 +316,20 @@
<data name="tslblDocViewLocked.Text" xml:space="preserve"> <data name="tslblDocViewLocked.Text" xml:space="preserve">
<value>View is locked - Click Work Record for unlocking</value> <value>View is locked - Click Work Record for unlocking</value>
</data> </data>
<data name="statStripDoc.Title" xml:space="preserve"> <data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
<value /> <value>0, 293</value>
</data> </data>
<data name="statStripDoc.ToolTip" xml:space="preserve"> <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>561, 24</value>
</data> </data>
<data name="statStripDoc.ToolTip1" xml:space="preserve"> <data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>561, 317</value>
</data> </data>
<data name="statStripDoc.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2"> <data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>None</value> <value>561, 26</value>
</data> </data>
<data name="pnlDocFill.Title" xml:space="preserve"> <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>1356, 347</value>
</data>
<data name="pnlDocFill.ToolTip" xml:space="preserve">
<value />
</data>
<data name="pnlDocFill.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="pnlDocFill.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="pnlDocToolStrip.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="pnlDocToolStrip.Title" xml:space="preserve">
<value />
</data>
<data name="pnlDocToolStrip.ToolTip" xml:space="preserve">
<value />
</data>
<data name="pnlDocToolStrip.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="pnlDocToolStrip.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="SplitContainerDetails.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ToolStripEdit.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data> </data>
<data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing">
<value>49, 22</value> <value>49, 22</value>
@ -593,26 +396,14 @@
<data name="tslblFileslocked.Text" xml:space="preserve"> <data name="tslblFileslocked.Text" xml:space="preserve">
<value>No file-access</value> <value>No file-access</value>
</data> </data>
<data name="ToolStripEdit.Title" xml:space="preserve"> <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>1356, 372</value>
</data>
<data name="ToolStripEdit.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ToolStripEdit.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ToolStripEdit.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data> </data>
<data name="TabDetails.Text" xml:space="preserve"> <data name="TabDetails.Text" xml:space="preserve">
<value>Details</value> <value>Details</value>
</data> </data>
<data name="TabDetails.ToolTip" xml:space="preserve"> <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>1362, 403</value>
</data>
<data name="ContextMenuStripResultFiles.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data> </data>
<data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing"> <data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>209, 22</value>
@ -719,71 +510,8 @@
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>210, 348</value> <value>210, 348</value>
</data> </data>
<data name="ContextMenuStripResultFiles.Title" xml:space="preserve"> <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>1356, 347</value>
</data>
<data name="ContextMenuStripResultFiles.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ContextMenuStripResultFiles.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ContextMenuStripResultFiles.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridViewDoc_Search.Appearance.OddRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewDoc_Search.Appearance.OddRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewDoc_Search.Appearance.OddRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewDoc_Search.Appearance.OddRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ToolStripDokumente.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data> </data>
<data name="ToolStripLabel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripLabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>133, 22</value> <value>133, 22</value>
@ -797,48 +525,12 @@
<data name="tsbtnDoc_Refresh.Text" xml:space="preserve"> <data name="tsbtnDoc_Refresh.Text" xml:space="preserve">
<value>Reload search</value> <value>Reload search</value>
</data> </data>
<data name="ToolStripDokumente.Title" xml:space="preserve"> <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>1356, 372</value>
</data>
<data name="ToolStripDokumente.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ToolStripDokumente.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ToolStripDokumente.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data> </data>
<data name="TabWindream.Text" xml:space="preserve"> <data name="TabWindream.Text" xml:space="preserve">
<value>windream-files</value> <value>windream-files</value>
</data> </data>
<data name="TabWindream.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ListViewFollowUps.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="ListViewFollowUps.Title" xml:space="preserve">
<value />
</data>
<data name="ListViewFollowUps.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ListViewFollowUps.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ListViewFollowUps.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="grpbxFU_Profile.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GroupBox4.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="btnRemoveUser_FollowUp.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="btnRemoveUser_FollowUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnRemoveUser_FollowUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
@ -859,287 +551,41 @@
<data name="btnRemoveUser_FollowUp.Text" xml:space="preserve"> <data name="btnRemoveUser_FollowUp.Text" xml:space="preserve">
<value>delete user</value> <value>delete user</value>
</data> </data>
<data name="btnRemoveUser_FollowUp.Title" xml:space="preserve">
<value />
</data>
<data name="btnRemoveUser_FollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="btnRemoveUser_FollowUp.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="btnRemoveUser_FollowUp.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="btnAddUser_FollowUp.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="btnAddUser_FollowUp.Text" xml:space="preserve"> <data name="btnAddUser_FollowUp.Text" xml:space="preserve">
<value>Add user tu follow up</value> <value>Add user tu follow up</value>
</data> </data>
<data name="btnAddUser_FollowUp.Title" xml:space="preserve">
<value />
</data>
<data name="btnAddUser_FollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="btnAddUser_FollowUp.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="btnAddUser_FollowUp.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="cmbFollowUpUser.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="cmbFollowUpUser.Title" xml:space="preserve">
<value />
</data>
<data name="cmbFollowUpUser.ToolTip" xml:space="preserve">
<value />
</data>
<data name="cmbFollowUpUser.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="cmbFollowUpUser.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="Label6.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="Label6.Title" xml:space="preserve">
<value />
</data>
<data name="Label6.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Label6.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Label6.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="ListBoxUser2Profile.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="ListBoxUser2Profile.Title" xml:space="preserve">
<value />
</data>
<data name="ListBoxUser2Profile.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ListBoxUser2Profile.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ListBoxUser2Profile.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="Label7.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="Label7.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label7.Size" type="System.Drawing.Size, System.Drawing">
<value>216, 13</value> <value>216, 13</value>
</data> </data>
<data name="Label7.Text" xml:space="preserve"> <data name="Label7.Text" xml:space="preserve">
<value>Attention: this list overdrives the general list.</value> <value>Attention: this list overdrives the general list.</value>
</data> </data>
<data name="Label7.Title" xml:space="preserve">
<value />
</data>
<data name="Label7.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Label7.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Label7.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GroupBox4.Text" xml:space="preserve"> <data name="GroupBox4.Text" xml:space="preserve">
<value>Special recipient for record:</value> <value>Special recipient for record:</value>
</data> </data>
<data name="GroupBox4.Title" xml:space="preserve">
<value />
</data>
<data name="GroupBox4.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GroupBox4.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="GroupBox4.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="lblFollowUp_save.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="lblFollowUp_save.Size" type="System.Drawing.Size, System.Drawing"> <data name="lblFollowUp_save.Size" type="System.Drawing.Size, System.Drawing">
<value>92, 15</value> <value>92, 15</value>
</data> </data>
<data name="lblFollowUp_save.Text" xml:space="preserve"> <data name="lblFollowUp_save.Text" xml:space="preserve">
<value>Follow Up saved</value> <value>Follow Up saved</value>
</data> </data>
<data name="lblFollowUp_save.Title" xml:space="preserve">
<value />
</data>
<data name="lblFollowUp_save.ToolTip" xml:space="preserve">
<value />
</data>
<data name="lblFollowUp_save.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="lblFollowUp_save.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="chkFollowUp.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="chkFollowUp.Title" xml:space="preserve">
<value />
</data>
<data name="chkFollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="chkFollowUp.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="chkFollowUp.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="dtpFollowUp.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="dtpFollowUp.Title" xml:space="preserve">
<value />
</data>
<data name="dtpFollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="dtpFollowUp.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="dtpFollowUp.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="lblWiedervorlage_Control.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="lblWiedervorlage_Control.Title" xml:space="preserve">
<value />
</data>
<data name="lblWiedervorlage_Control.ToolTip" xml:space="preserve">
<value />
</data>
<data name="lblWiedervorlage_Control.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="lblWiedervorlage_Control.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="grpbxFU_Profile.Title" xml:space="preserve">
<value />
</data>
<data name="grpbxFU_Profile.ToolTip" xml:space="preserve">
<value />
</data>
<data name="grpbxFU_Profile.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="grpbxFU_Profile.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="Label5.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 13</value> <value>91, 13</value>
</data> </data>
<data name="Label5.Text" xml:space="preserve"> <data name="Label5.Text" xml:space="preserve">
<value>Saved Follow Ups</value> <value>Saved Follow Ups</value>
</data> </data>
<data name="Label5.Title" xml:space="preserve"> <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>1356, 372</value>
</data>
<data name="Label5.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Label5.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Label5.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data> </data>
<data name="TabFollowUp.Text" xml:space="preserve"> <data name="TabFollowUp.Text" xml:space="preserve">
<value>Follow Up</value> <value>Follow Up</value>
</data> </data>
<data name="TabFollowUp.ToolTip" xml:space="preserve"> <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>1356, 347</value>
</data> </data>
<data name="Panel1.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>Default</value> <value>1356, 347</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlPos.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlPos.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlPos.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
<value>Center</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlPos.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="grvwGridPos.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="grvwGridPos.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="grvwGridPos.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="grvwGridPos.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlPos.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Panel1.Title" xml:space="preserve">
<value />
</data>
<data name="Panel1.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Panel1.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Panel1.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data> </data>
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -1153,9 +599,6 @@
rkJggg== rkJggg==
</value> </value>
</data> </data>
<data name="BindingNavigatorPOS.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@ -1208,18 +651,6 @@
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="BindingNavigatorPOS.Title" xml:space="preserve">
<value />
</data>
<data name="BindingNavigatorPOS.ToolTip" xml:space="preserve">
<value />
</data>
<data name="BindingNavigatorPOS.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="BindingNavigatorPOS.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@ -1228,77 +659,14 @@
wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII= wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value>
</data>
<data name="TabPos.Text" xml:space="preserve"> <data name="TabPos.Text" xml:space="preserve">
<value>positions</value> <value>positions</value>
</data> </data>
<data name="TabPos.ToolTip" xml:space="preserve"> <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>1356, 347</value>
</data>
<data name="TabPageVariant.Appearance.Header.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="TabPageVariant.Appearance.Header.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="TabPageVariant.Appearance.Header.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="TabPageVariant.Appearance.Header.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControl1.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControl1.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControl1.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControl1.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControl1.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControl1.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControl1.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControl1.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
<value>Center</value>
</data>
<data name="GridControl1.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControl1.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControl1.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridViewVariants.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewVariants.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewVariants.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewVariants.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControl1.ToolTip" xml:space="preserve">
<value />
</data>
<data name="tsVariants.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data> </data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>63, 22</value> <value>63, 22</value>
@ -1306,29 +674,8 @@
<data name="ToolStripButton1.Text" xml:space="preserve"> <data name="ToolStripButton1.Text" xml:space="preserve">
<value>Reload</value> <value>Reload</value>
</data> </data>
<data name="tsVariants.Title" xml:space="preserve"> <data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>1356, 372</value>
</data>
<data name="tsVariants.ToolTip" xml:space="preserve">
<value />
</data>
<data name="tsVariants.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="tsVariants.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="TabPageVariant.ToolTip" xml:space="preserve">
<value />
</data>
<data name="TCDetails.ToolTip" xml:space="preserve">
<value />
</data>
<data name="SplitContainerMain.ToolTip" xml:space="preserve">
<value />
</data>
<data name="SplitContainerFORM.ToolTip" xml:space="preserve">
<value />
</data> </data>
<data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -1357,24 +704,7 @@
uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="NavPane.ToolTip" xml:space="preserve"> <assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<value />
</data>
<data name="StatusStrip_Main.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="StatusStrip_Main.Title" xml:space="preserve">
<value />
</data>
<data name="StatusStrip_Main.ToolTip" xml:space="preserve">
<value />
</data>
<data name="StatusStrip_Main.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="StatusStrip_Main.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
@ -1382,39 +712,6 @@
ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
</value> </value>
</data> </data>
<data name="ContextMenuDetails.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="ContextMenuDetails.Title" xml:space="preserve">
<value />
</data>
<data name="ContextMenuDetails.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ContextMenuDetails.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ContextMenuDetails.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="cmsrpContainer.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="cmsrpContainer.Title" xml:space="preserve">
<value />
</data>
<data name="cmsrpContainer.ToolTip" xml:space="preserve">
<value />
</data>
<data name="cmsrpContainer.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="cmsrpContainer.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="$this.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA
@ -1864,16 +1161,4 @@
AAAADwAA/gAAAAAPAAD//4AAAB8AAP///8AP/wAA////////AAD///////8AAP///////wAA AAAADwAA/gAAAAAPAAD//4AAAB8AAP///8AP/wAA////////AAD///////8AAP///////wAA
</value> </value>
</data> </data>
<data name="$this.Title" xml:space="preserve">
<value />
</data>
<data name="$this.ToolTip" xml:space="preserve">
<value />
</data>
<data name="$this.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="$this.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
</root> </root>

6289
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

File diff suppressed because it is too large Load Diff

117
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@ -725,62 +725,62 @@ Public Class frmConstructor_Main
'End Sub 'End Sub
Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer, ConstructorDetailID As Integer) 'Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer, ConstructorDetailID As Integer)
Try ' Try
If GRID_TYPE = GridType.Grid Then ' If GRID_TYPE = GridType.Grid Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False) ' If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
_VIEWNAME = "VWTEMP_PMO_FORM" & FormId.ToString ' _VIEWNAME = "VWTEMP_PMO_FORM" & FormId.ToString
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T" ' _ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
Else 'Tiles und Carousel bekommen Quick View ' Else 'Tiles und Carousel bekommen Quick View
' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS ' ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim query = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() ' Dim query = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form ' Select form
Where form.Item("FORM_ID") = FormId ' Where form.Item("FORM_ID") = FormId
_ENTITYSQL = query.Single().Item("SQL_QUICK_VIEW") ' _ENTITYSQL = query.Single().Item("SQL_QUICK_VIEW")
If _ENTITYSQL = String.Empty Then ' If _ENTITYSQL = String.Empty Then
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T" ' _ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
If IS_SINGLE_RECORD = True Or FORM_TYPE = 5 Then ' If IS_SINGLE_RECORD = True Or FORM_TYPE = 5 Then
Else ' Else
GRID_TYPE = GridType.Grid ' GRID_TYPE = GridType.Grid
GridControlMain.MainView = grvwGrid ' GridControlMain.MainView = grvwGrid
VIEW_ID = 3 ' VIEW_ID = 3
End If ' End If
' GridControlMain.MainView = grvwGrid ' ' GridControlMain.MainView = grvwGrid
Else ' Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Quick-View is configured", False) ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Quick-View is configured", False)
End If ' End If
End If ' End If
Try ' Try
Dim sql = String.Format("SELECT COUNT(*) FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1} AND SQL_COMMAND IS NOT NULL AND SQL_COMMAND <> ''", USER_GUID, ConstructorDetailID) ' Dim sql = String.Format("SELECT COUNT(*) FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1} AND SQL_COMMAND IS NOT NULL AND SQL_COMMAND <> ''", USER_GUID, ConstructorDetailID)
Dim exists = ClassDatabase.Execute_Scalar(sql) ' Dim exists = ClassDatabase.Execute_Scalar(sql)
If exists = 1 Then ' If exists = 1 Then
sql = String.Format("SELECT SQL_COMMAND FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1}", USER_GUID, ConstructorDetailID) ' sql = String.Format("SELECT SQL_COMMAND FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1}", USER_GUID, ConstructorDetailID)
Dim result = ClassDatabase.Execute_Scalar(sql) ' Dim result = ClassDatabase.Execute_Scalar(sql)
If Not IsNothing(result) Then ' If Not IsNothing(result) Then
result = result.ToUpper.Replace("@RECORDID", RECORD_ID) ' ' result = result.ToUpper.Replace("@RECORDID", RECORD_ID)
result = result.ToUpper.Replace("@USER_ID", USER_GUID) ' result = result.ToUpper.Replace("@USER_ID", USER_GUID)
_ENTITYSQL = _ENTITYSQL & " " & result.ToString ' _ENTITYSQL = _ENTITYSQL & " " & result.ToString
CURRENT_ENTITYSQL_WHERE = result ' CURRENT_ENTITYSQL_WHERE = result
Else ' Else
CURRENT_ENTITYSQL_WHERE = "" ' CURRENT_ENTITYSQL_WHERE = ""
End If ' End If
Else ' Else
CURRENT_ENTITYSQL_WHERE = "" ' CURRENT_ENTITYSQL_WHERE = ""
End If ' End If
Catch ex As Exception ' Catch ex As Exception
ClassLogger.Add("Error in Get Entity SQL for User: " & vbNewLine & ex.Message, True) ' ClassLogger.Add("Error in Get Entity SQL for User: " & vbNewLine & ex.Message, True)
MsgBox("Error in Get Entity SQL for User: " & vbNewLine & ex.Message) ' MsgBox("Error in Get Entity SQL for User: " & vbNewLine & ex.Message)
End Try ' End Try
CURRENT_ENTITYSQL = _ENTITYSQL ' CURRENT_ENTITYSQL = _ENTITYSQL
Catch ex As Exception ' Catch ex As Exception
ClassLogger.Add("Error in Get_Grid_Sql: " & vbNewLine & ex.Message, True) ' ClassLogger.Add("Error in Get_Grid_Sql: " & vbNewLine & ex.Message, True)
MsgBox("Error in Get_Grid_Sql: " & vbNewLine & ex.Message) ' MsgBox("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
End Try ' End Try
End Function 'End Function
Public Function Get_Pos_SQL(FormId As Integer) Public Function Get_Pos_SQL(FormId As Integer)
POS_SQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @PARENT_ID" POS_SQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @PARENT_ID"
@ -2362,7 +2362,18 @@ Public Class frmConstructor_Main
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
'Abhängig von der Entität die Selektierungs-Daten laden 'Abhängig von der Entität die Selektierungs-Daten laden
Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID) 'Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID)
' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim query = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = ENTITY_ID
Dim QuickViewSQL = query.Single().Item("SQL_QUICK_VIEW")
Dim GridSQL As String = Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, GRID_TYPE, USER_GUID, QuickViewSQL, IS_SINGLE_RECORD, FORM_TYPE, VIEW_ID, GridControlMain, grvwGrid)
_ENTITYSQL = GridSQL
CURRENT_ENTITYSQL = GridSQL
'Anzahl der Datensätze 'Anzahl der Datensätze
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & ENTITY_ID, True) ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & ENTITY_ID, True)

176
app/DD-Record-Organiser/frmGeodataNavigation.Designer.vb generated
View File

@ -29,24 +29,46 @@ Partial Class frmGeodataNavigation
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tsLabelRecordCount = New System.Windows.Forms.ToolStripStatusLabel() Me.tsLabelRecordCount = New System.Windows.Forms.ToolStripStatusLabel()
Me.MapControl1 = New DevExpress.XtraMap.MapControl() Me.MapControl1 = New DevExpress.XtraMap.MapControl()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.GridControlGeo = New DevExpress.XtraGrid.GridControl()
Me.grvwMain = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtLon = New System.Windows.Forms.TextBox()
Me.txtLat = New System.Windows.Forms.TextBox()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPage1.SuspendLayout()
Me.XtraTabPage2.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.GridControlGeo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(796, 25) Me.ToolStrip1.Size = New System.Drawing.Size(1002, 25)
Me.ToolStrip1.TabIndex = 0 Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1" Me.ToolStrip1.Text = "ToolStrip1"
' '
'StatusStrip1 'StatusStrip1
' '
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsLabelRecordCount}) Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsLabelRecordCount})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 477) Me.StatusStrip1.Location = New System.Drawing.Point(0, 625)
Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(796, 22) Me.StatusStrip1.Size = New System.Drawing.Size(1002, 22)
Me.StatusStrip1.TabIndex = 1 Me.StatusStrip1.TabIndex = 1
Me.StatusStrip1.Text = "StatusStrip1" Me.StatusStrip1.Text = "StatusStrip1"
' '
@ -63,18 +85,135 @@ Partial Class frmGeodataNavigation
VectorItemsLayer1.Name = "VectorLayer" VectorItemsLayer1.Name = "VectorLayer"
Me.MapControl1.Layers.Add(ImageTilesLayer1) Me.MapControl1.Layers.Add(ImageTilesLayer1)
Me.MapControl1.Layers.Add(VectorItemsLayer1) Me.MapControl1.Layers.Add(VectorItemsLayer1)
Me.MapControl1.Location = New System.Drawing.Point(0, 25) Me.MapControl1.Location = New System.Drawing.Point(0, 0)
Me.MapControl1.Name = "MapControl1" Me.MapControl1.Name = "MapControl1"
Me.MapControl1.NavigationPanelOptions.Visible = False Me.MapControl1.NavigationPanelOptions.Visible = False
Me.MapControl1.Size = New System.Drawing.Size(796, 452) Me.MapControl1.Size = New System.Drawing.Size(996, 572)
Me.MapControl1.TabIndex = 2 Me.MapControl1.TabIndex = 2
' '
'XtraTabControl1
'
Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 25)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControl1.Size = New System.Drawing.Size(1002, 600)
Me.XtraTabControl1.TabIndex = 3
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
'
'XtraTabPage1
'
Me.XtraTabPage1.Controls.Add(Me.MapControl1)
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(996, 572)
Me.XtraTabPage1.Text = "Geodaten anzeigen"
'
'XtraTabPage2
'
Me.XtraTabPage2.Controls.Add(Me.SplitContainer1)
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(996, 572)
Me.XtraTabPage2.Text = "Geodaten bearbeiten"
'
'SplitContainer1
'
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer1.Name = "SplitContainer1"
Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.GridControlGeo)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.Button2)
Me.SplitContainer1.Panel2.Controls.Add(Me.Button1)
Me.SplitContainer1.Panel2.Controls.Add(Me.Label2)
Me.SplitContainer1.Panel2.Controls.Add(Me.Label1)
Me.SplitContainer1.Panel2.Controls.Add(Me.txtLon)
Me.SplitContainer1.Panel2.Controls.Add(Me.txtLat)
Me.SplitContainer1.Panel2MinSize = 100
Me.SplitContainer1.Size = New System.Drawing.Size(996, 572)
Me.SplitContainer1.SplitterDistance = 467
Me.SplitContainer1.TabIndex = 0
'
'GridControlGeo
'
Me.GridControlGeo.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlGeo.Location = New System.Drawing.Point(0, 0)
Me.GridControlGeo.MainView = Me.grvwMain
Me.GridControlGeo.Name = "GridControlGeo"
Me.GridControlGeo.Size = New System.Drawing.Size(996, 467)
Me.GridControlGeo.TabIndex = 0
Me.GridControlGeo.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwMain})
'
'grvwMain
'
Me.grvwMain.GridControl = Me.GridControlGeo
Me.grvwMain.Name = "grvwMain"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(467, 25)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(96, 49)
Me.Button2.TabIndex = 5
Me.Button2.Text = "Save"
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(365, 25)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(96, 49)
Me.Button1.TabIndex = 4
Me.Button1.Text = "Set on Map"
Me.Button1.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(164, 22)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(68, 16)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Longitude:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(8, 22)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(58, 16)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Latitude:"
'
'txtLon
'
Me.txtLon.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLon.Location = New System.Drawing.Point(167, 41)
Me.txtLon.Name = "txtLon"
Me.txtLon.Size = New System.Drawing.Size(150, 33)
Me.txtLon.TabIndex = 1
'
'txtLat
'
Me.txtLat.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLat.Location = New System.Drawing.Point(11, 41)
Me.txtLat.Name = "txtLat"
Me.txtLat.Size = New System.Drawing.Size(150, 33)
Me.txtLat.TabIndex = 0
'
'frmGeodataNavigation 'frmGeodataNavigation
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(796, 499) Me.ClientSize = New System.Drawing.Size(1002, 647)
Me.Controls.Add(Me.MapControl1) Me.Controls.Add(Me.XtraTabControl1)
Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@ -84,6 +223,17 @@ Partial Class frmGeodataNavigation
Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout() Me.StatusStrip1.PerformLayout()
CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPage1.ResumeLayout(False)
Me.XtraTabPage2.ResumeLayout(False)
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
Me.SplitContainer1.Panel2.PerformLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.GridControlGeo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -92,4 +242,16 @@ Partial Class frmGeodataNavigation
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents MapControl1 As DevExpress.XtraMap.MapControl Friend WithEvents MapControl1 As DevExpress.XtraMap.MapControl
Friend WithEvents tsLabelRecordCount As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents tsLabelRecordCount As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents GridControlGeo As DevExpress.XtraGrid.GridControl
Friend WithEvents grvwMain As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtLon As System.Windows.Forms.TextBox
Friend WithEvents txtLat As System.Windows.Forms.TextBox
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
End Class End Class

129
app/DD-Record-Organiser/frmGeodataNavigation.vb
View File

@ -30,14 +30,10 @@ Public Class frmGeodataNavigation
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) 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 End Sub
Private Sub frmGeodataNavigation_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Function CreateItemList()
' Liste für PushPins anlegen ' Liste für PushPins anlegen
Dim items As New List(Of MapPushpin) 'Dim items As New List(Of MapPushpin)
Dim items As New List(Of MapCustomElementEx)
' Kartendaten laden
Dim dataProvider As New BingMapDataProvider()
dataProvider.BingKey = BING_KEY
ImageLayer.DataProvider = dataProvider
' Datensätze mit Lat,Lon Werten laden ' Datensätze mit Lat,Lon Werten laden
Dim dt As DataTable = ClassDatabase.Return_Datatable(Me.EntitySql) Dim dt As DataTable = ClassDatabase.Return_Datatable(Me.EntitySql)
@ -46,18 +42,36 @@ Public Class frmGeodataNavigation
For Each row As DataRow In dt.Rows For Each row As DataRow In dt.Rows
Dim lat As Double = row.Item("LATITUDE") Dim lat As Double = row.Item("LATITUDE")
Dim lon As Double = row.Item("LONGITUDE") 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) Dim customElement = New MapCustomElementEx() With {
.Location = New GeoPoint(lat, lon),
.Text = row.Item("Record-ID").ToString(),
.Information = row.Item("Record-ID")
}
customElement.Image = New Bitmap(My.Resources.pushpin, New Size(30, 30))
customElement.Padding = New Padding(10, 5, 10, 5)
customElement.SelectedFill = Color.White
items.Add(customElement)
'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 Next
Dim storage As New MapItemStorage() Return items
Dim itemArray() As MapPushpin = items.ToArray() End Function
storage.Items.AddRange(itemArray) Private Sub LoadItemList()
'Dim items As List(Of MapPushpin) = CreateItemList()
Dim items As List(Of MapCustomElementEx) = CreateItemList()
Dim storage As New MapItemStorage()
storage.Items.Clear()
storage.Items.AddRange(items.ToArray())
VectorLayer.Data = storage VectorLayer.Data = storage
tsLabelRecordCount.Text = String.Format("{0} Elemente gefunden", items.Count) tsLabelRecordCount.Text = String.Format("{0} Elemente gefunden", items.Count)
@ -65,27 +79,47 @@ Public Class frmGeodataNavigation
MapControl1.ZoomToFitLayerItems() MapControl1.ZoomToFitLayerItems()
End Sub End Sub
Private Sub SetGridFilter(records As List(Of Integer)) Private Sub frmGeodataNavigation_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Dim filter As New List(Of String) Try
Dim gridView As Views.Grid.GridView = Me.Grid.FocusedView
For Each id As Integer In records gridView.ActiveFilterString = Nothing
filter.Add(String.Format("[Record-Id] = {0}", id)) Catch ex As Exception
Next MsgBox("Error in frmGeodataNavigation_FormClosing: " & vbNewLine & ex.Message)
End Try
Dim gridView As Views.Grid.GridView = Me.Grid.FocusedView
gridView.ActiveFilterString = String.Join(" OR ", filter.ToArray())
End Sub End Sub
'Private Sub MapControl1_MapItemClick(sender As Object, e As MapItemClickEventArgs) Handles MapControl1.MapItemClick Private Sub frmGeodataNavigation_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Dim dataProvider As New BingMapDataProvider()
dataProvider.BingKey = BING_KEY
ImageLayer.DataProvider = dataProvider
'End Sub LoadItemList()
'Private Sub MapControl1_MapItemDoubleClick(sender As Object, e As MapItemClickEventArgs) Handles MapControl1.MapItemDoubleClick Dim sql = Get_Grid_Sql(CURRENT_CONSTRUCTOR_ID, CURRENT_FORM_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, frmConstructor_Main.GridType.Grid, USER_GUID, String.Empty, False, 1, 0, GridControlGeo, grvwMain, True)
' Dim item As MapPushpin = e.Item If Not IsNothing(sql) Then
' Dim recordId As Integer = item.Information Dim DT_GEO As DataTable = ClassDatabase.Return_Datatable(sql)
GridControlGeo.DataSource = DT_GEO
End If
Catch ex As Exception
MsgBox("Error while loading GeoData: " & vbNewLine & ex.Message)
End Try
End Sub
' SetGridFilter(New List(Of Integer) From {recordId}) Private Sub SetGridFilter(records As List(Of Integer))
'End Sub Try
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())
Catch ex As Exception
MsgBox("Error in SetGridFilter: " & vbNewLine & ex.Message)
End Try
End Sub
Private Sub MapControl1_SelectionChanged(sender As Object, e As MapSelectionChangedEventArgs) Handles MapControl1.SelectionChanged Private Sub MapControl1_SelectionChanged(sender As Object, e As MapSelectionChangedEventArgs) Handles MapControl1.SelectionChanged
Dim items As List(Of Object) = e.Selection Dim items As List(Of Object) = e.Selection
@ -93,14 +127,41 @@ Public Class frmGeodataNavigation
For Each item As Object In items For Each item As Object In items
Try Try
Dim pin As MapPushpin = CType(item, MapPushpin) 'Dim pin As MapPushpin = CType(item, MapPushpin)
Dim recordId As Integer = pin.Information 'Dim recordId As Integer = pin.Information
Dim el As MapCustomElementEx = CType(item, MapCustomElementEx)
Dim recordId As Integer = el.Information
records.Add(recordId) records.Add(recordId)
Catch ex As Exception Catch ex As Exception
MsgBox("Cannot convert selection to MapPushPin") MsgBox("Cannot convert selection to MapCustomElementEx")
End Try End Try
Next Next
SetGridFilter(records) SetGridFilter(records)
End Sub End Sub
Class MapCustomElementEx
Inherits MapCustomElement
Public Property Information As Object
End Class
Private Sub XtraTabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles XtraTabControl1.TabIndexChanged
End Sub
Private Sub grvwMain_RowStyle(sender As Object, e As Views.Grid.RowStyleEventArgs) Handles grvwMain.RowStyle
'TODO: Make Rows without geodata RED
End Sub
Private Sub grvwMain_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles grvwMain.FocusedRowChanged
'TODO: Load LatLon in Splitter2
Dim currentRow As DataRowView = grvwMain.GetFocusedRow()
Dim lat As Decimal = currentRow.Item("LATITUDE")
Dim lon As Decimal = currentRow.Item("LONGITUDE")
txtLat.Text = lat
txtLon.Text = lon
End Sub
End Class End Class