jj 30.11.2016
This commit is contained in:
JenneJ
parent
0f374eecb2
commit
57517ffed8
@ -1462,6 +1462,7 @@
|
||||
<None Include="Resources\AddExistingItem_6269.png" />
|
||||
<None Include="Resources\AddExistingItem_62691.png" />
|
||||
<None Include="Resources\base_globe_32.png" />
|
||||
<None Include="Resources\1480524473_1.png" />
|
||||
<Content Include="Resources\cube.ico" />
|
||||
<Content Include="Resources\138_PushPin_32x42_72.png" />
|
||||
<None Include="Resources\PropertyGridEditorPart_6041.png" />
|
||||
|
||||
@ -1,4 +1,7 @@
|
||||
Module ModuleHelperMethods
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
|
||||
Module ModuleHelperMethods
|
||||
|
||||
Public Enum EnumFormatOptions
|
||||
[String] = 0
|
||||
@ -252,7 +255,7 @@
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub OpenFormConstructor(id As Integer, Optional recordId As Integer = -1)
|
||||
@ -370,7 +373,7 @@
|
||||
Catch ex As Exception
|
||||
MsgBox("Could not find Right manager: " & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
Public Sub OpenWindream_Files()
|
||||
Dim frm As New frmWD_Import_Doc_Record
|
||||
@ -429,6 +432,69 @@
|
||||
Return Guid.NewGuid().ToString().GetHashCode().ToString("x")
|
||||
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 label As String
|
||||
Public stopwatch As Stopwatch
|
||||
|
||||
@ -2019,5 +2019,15 @@ Namespace My.Resources
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
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 Namespace
|
||||
|
||||
@ -706,4 +706,7 @@
|
||||
<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>
|
||||
</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>
|
||||
@ -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.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.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
|
||||
|
||||
BIN
app/DD-Record-Organiser/Resources/1480524473_1.png
Normal file
BIN
app/DD-Record-Organiser/Resources/1480524473_1.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 6.2 KiB |
528
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb
generated
528
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@ -117,13 +117,6 @@
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</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" />
|
||||
<data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>188, 22</value>
|
||||
@ -167,34 +160,6 @@
|
||||
<data name="CMSEntity.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>189, 138</value>
|
||||
</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">
|
||||
<value>226, 22</value>
|
||||
</data>
|
||||
@ -276,86 +241,8 @@
|
||||
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>227, 270</value>
|
||||
</data>
|
||||
<data name="ContextMenuGrid.Title" xml:space="preserve">
|
||||
<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 name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1074, 212</value>
|
||||
</data>
|
||||
<data name="CopyRecordtsmi.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>200, 22</value>
|
||||
@ -417,65 +304,11 @@
|
||||
<data name="ToolStripDropDownButton3.Text" xml:space="preserve">
|
||||
<value>record-functions</value>
|
||||
</data>
|
||||
<data name="ToolStripRecords.Title" xml:space="preserve">
|
||||
<value />
|
||||
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1074, 25</value>
|
||||
</data>
|
||||
<data name="ToolStripRecords.ToolTip" xml:space="preserve">
|
||||
<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 name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>786, 343</value>
|
||||
</data>
|
||||
<data name="tslblDocViewLocked.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>279, 19</value>
|
||||
@ -483,50 +316,20 @@
|
||||
<data name="tslblDocViewLocked.Text" xml:space="preserve">
|
||||
<value>View is locked - Click Work Record for unlocking</value>
|
||||
</data>
|
||||
<data name="statStripDoc.Title" xml:space="preserve">
|
||||
<value />
|
||||
<data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 293</value>
|
||||
</data>
|
||||
<data name="statStripDoc.ToolTip" xml:space="preserve">
|
||||
<value />
|
||||
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>561, 24</value>
|
||||
</data>
|
||||
<data name="statStripDoc.ToolTip1" xml:space="preserve">
|
||||
<value />
|
||||
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>561, 317</value>
|
||||
</data>
|
||||
<data name="statStripDoc.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
|
||||
<value>None</value>
|
||||
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>561, 26</value>
|
||||
</data>
|
||||
<data name="pnlDocFill.Title" xml:space="preserve">
|
||||
<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 name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1356, 347</value>
|
||||
</data>
|
||||
<data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>49, 22</value>
|
||||
@ -593,26 +396,14 @@
|
||||
<data name="tslblFileslocked.Text" xml:space="preserve">
|
||||
<value>No file-access</value>
|
||||
</data>
|
||||
<data name="ToolStripEdit.Title" xml:space="preserve">
|
||||
<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 name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1356, 372</value>
|
||||
</data>
|
||||
<data name="TabDetails.Text" xml:space="preserve">
|
||||
<value>Details</value>
|
||||
</data>
|
||||
<data name="TabDetails.ToolTip" xml:space="preserve">
|
||||
<value />
|
||||
</data>
|
||||
<data name="ContextMenuStripResultFiles.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
|
||||
<value>Default</value>
|
||||
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1362, 403</value>
|
||||
</data>
|
||||
<data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>209, 22</value>
|
||||
@ -719,71 +510,8 @@
|
||||
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>210, 348</value>
|
||||
</data>
|
||||
<data name="ContextMenuStripResultFiles.Title" xml:space="preserve">
|
||||
<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 name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1356, 347</value>
|
||||
</data>
|
||||
<data name="ToolStripLabel1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>133, 22</value>
|
||||
@ -797,48 +525,12 @@
|
||||
<data name="tsbtnDoc_Refresh.Text" xml:space="preserve">
|
||||
<value>Reload search</value>
|
||||
</data>
|
||||
<data name="ToolStripDokumente.Title" xml:space="preserve">
|
||||
<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 name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1356, 372</value>
|
||||
</data>
|
||||
<data name="TabWindream.Text" xml:space="preserve">
|
||||
<value>windream-files</value>
|
||||
</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">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
|
||||
@ -859,287 +551,41 @@
|
||||
<data name="btnRemoveUser_FollowUp.Text" xml:space="preserve">
|
||||
<value>delete user</value>
|
||||
</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">
|
||||
<value>Add user tu follow up</value>
|
||||
</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">
|
||||
<value>216, 13</value>
|
||||
</data>
|
||||
<data name="Label7.Text" xml:space="preserve">
|
||||
<value>Attention: this list overdrives the general list.</value>
|
||||
</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">
|
||||
<value>Special recipient for record:</value>
|
||||
</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">
|
||||
<value>92, 15</value>
|
||||
</data>
|
||||
<data name="lblFollowUp_save.Text" xml:space="preserve">
|
||||
<value>Follow Up saved</value>
|
||||
</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">
|
||||
<value>91, 13</value>
|
||||
</data>
|
||||
<data name="Label5.Text" xml:space="preserve">
|
||||
<value>Saved Follow Ups</value>
|
||||
</data>
|
||||
<data name="Label5.Title" xml:space="preserve">
|
||||
<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 name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1356, 372</value>
|
||||
</data>
|
||||
<data name="TabFollowUp.Text" xml:space="preserve">
|
||||
<value>Follow Up</value>
|
||||
</data>
|
||||
<data name="TabFollowUp.ToolTip" xml:space="preserve">
|
||||
<value />
|
||||
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1356, 347</value>
|
||||
</data>
|
||||
<data name="Panel1.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
|
||||
<value>Default</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 name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1356, 347</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
@ -1153,9 +599,6 @@
|
||||
rkJggg==
|
||||
</value>
|
||||
</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">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||
@ -1208,18 +651,6 @@
|
||||
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</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">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
@ -1228,77 +659,14 @@
|
||||
wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1356, 372</value>
|
||||
</data>
|
||||
<data name="TabPos.Text" xml:space="preserve">
|
||||
<value>positions</value>
|
||||
</data>
|
||||
<data name="TabPos.ToolTip" xml:space="preserve">
|
||||
<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 name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1356, 347</value>
|
||||
</data>
|
||||
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>63, 22</value>
|
||||
@ -1306,29 +674,8 @@
|
||||
<data name="ToolStripButton1.Text" xml:space="preserve">
|
||||
<value>Reload</value>
|
||||
</data>
|
||||
<data name="tsVariants.Title" xml:space="preserve">
|
||||
<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 name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1356, 372</value>
|
||||
</data>
|
||||
<data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
@ -1357,24 +704,7 @@
|
||||
uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="NavPane.ToolTip" xml:space="preserve">
|
||||
<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>
|
||||
<assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
|
||||
@ -1382,39 +712,6 @@
|
||||
ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
|
||||
</value>
|
||||
</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">
|
||||
<value>
|
||||
AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA
|
||||
@ -1864,16 +1161,4 @@
|
||||
AAAADwAA/gAAAAAPAAD//4AAAB8AAP///8AP/wAA////////AAD///////8AAP///////wAA
|
||||
</value>
|
||||
</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>
|
||||
File diff suppressed because it is too large
Load Diff
@ -725,62 +725,62 @@ Public Class frmConstructor_Main
|
||||
|
||||
'End Sub
|
||||
|
||||
Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer, ConstructorDetailID As Integer)
|
||||
Try
|
||||
If GRID_TYPE = GridType.Grid Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
|
||||
_VIEWNAME = "VWTEMP_PMO_FORM" & FormId.ToString
|
||||
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
|
||||
Else 'Tiles und Carousel bekommen Quick View
|
||||
' 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") = FormId
|
||||
'Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer, ConstructorDetailID As Integer)
|
||||
' Try
|
||||
' If GRID_TYPE = GridType.Grid Then
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
|
||||
' _VIEWNAME = "VWTEMP_PMO_FORM" & FormId.ToString
|
||||
' _ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
|
||||
' Else 'Tiles und Carousel bekommen Quick View
|
||||
' ' 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") = FormId
|
||||
|
||||
_ENTITYSQL = query.Single().Item("SQL_QUICK_VIEW")
|
||||
' _ENTITYSQL = query.Single().Item("SQL_QUICK_VIEW")
|
||||
|
||||
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
|
||||
' 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 = 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
|
||||
' Else
|
||||
' GRID_TYPE = 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", USER_GUID)
|
||||
_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
|
||||
CURRENT_ENTITYSQL = _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)
|
||||
End Try
|
||||
End Function
|
||||
' 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", USER_GUID)
|
||||
' _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
|
||||
' CURRENT_ENTITYSQL = _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)
|
||||
' End Try
|
||||
'End Function
|
||||
|
||||
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"
|
||||
@ -2362,7 +2362,18 @@ Public Class frmConstructor_Main
|
||||
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
|
||||
|
||||
'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
|
||||
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
176
app/DD-Record-Organiser/frmGeodataNavigation.Designer.vb
generated
@ -29,24 +29,46 @@ Partial Class frmGeodataNavigation
|
||||
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
Me.tsLabelRecordCount = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
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()
|
||||
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()
|
||||
'
|
||||
'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.Size = New System.Drawing.Size(1002, 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.Location = New System.Drawing.Point(0, 625)
|
||||
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.Text = "StatusStrip1"
|
||||
'
|
||||
@ -63,18 +85,135 @@ Partial Class frmGeodataNavigation
|
||||
VectorItemsLayer1.Name = "VectorLayer"
|
||||
Me.MapControl1.Layers.Add(ImageTilesLayer1)
|
||||
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.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
|
||||
'
|
||||
'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
|
||||
'
|
||||
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.ClientSize = New System.Drawing.Size(1002, 647)
|
||||
Me.Controls.Add(Me.XtraTabControl1)
|
||||
Me.Controls.Add(Me.StatusStrip1)
|
||||
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))
|
||||
@ -84,6 +223,17 @@ Partial Class frmGeodataNavigation
|
||||
Me.StatusStrip1.ResumeLayout(False)
|
||||
Me.StatusStrip1.PerformLayout()
|
||||
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.PerformLayout()
|
||||
|
||||
@ -92,4 +242,16 @@ Partial Class frmGeodataNavigation
|
||||
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
|
||||
Friend WithEvents MapControl1 As DevExpress.XtraMap.MapControl
|
||||
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
|
||||
|
||||
@ -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)
|
||||
End Sub
|
||||
|
||||
Private Sub frmGeodataNavigation_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Private Function CreateItemList()
|
||||
' 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
|
||||
'Dim items As New List(Of MapPushpin)
|
||||
Dim items As New List(Of MapCustomElementEx)
|
||||
|
||||
' Datensätze mit Lat,Lon Werten laden
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable(Me.EntitySql)
|
||||
@ -46,18 +42,36 @@ Public Class frmGeodataNavigation
|
||||
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)
|
||||
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
|
||||
|
||||
Dim storage As New MapItemStorage()
|
||||
Dim itemArray() As MapPushpin = items.ToArray()
|
||||
Return items
|
||||
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
|
||||
|
||||
tsLabelRecordCount.Text = String.Format("{0} Elemente gefunden", items.Count)
|
||||
@ -65,27 +79,47 @@ Public Class frmGeodataNavigation
|
||||
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())
|
||||
Private Sub frmGeodataNavigation_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Try
|
||||
Dim gridView As Views.Grid.GridView = Me.Grid.FocusedView
|
||||
gridView.ActiveFilterString = Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in frmGeodataNavigation_FormClosing: " & vbNewLine & ex.Message)
|
||||
End Try
|
||||
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 item As MapPushpin = e.Item
|
||||
' Dim recordId As Integer = item.Information
|
||||
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)
|
||||
If Not IsNothing(sql) Then
|
||||
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})
|
||||
'End Sub
|
||||
Private Sub SetGridFilter(records As List(Of Integer))
|
||||
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
|
||||
Dim items As List(Of Object) = e.Selection
|
||||
@ -93,14 +127,41 @@ Public Class frmGeodataNavigation
|
||||
|
||||
For Each item As Object In items
|
||||
Try
|
||||
Dim pin As MapPushpin = CType(item, MapPushpin)
|
||||
Dim recordId As Integer = pin.Information
|
||||
'Dim pin As MapPushpin = CType(item, MapPushpin)
|
||||
'Dim recordId As Integer = pin.Information
|
||||
Dim el As MapCustomElementEx = CType(item, MapCustomElementEx)
|
||||
Dim recordId As Integer = el.Information
|
||||
records.Add(recordId)
|
||||
Catch ex As Exception
|
||||
MsgBox("Cannot convert selection to MapPushPin")
|
||||
MsgBox("Cannot convert selection to MapCustomElementEx")
|
||||
End Try
|
||||
Next
|
||||
|
||||
SetGridFilter(records)
|
||||
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
|
||||
Loading…
x
Reference in New Issue
Block a user