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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-12-09 10:44:47 +01:00
parent 40cf4a82e4
commit 1ecf84cdcb
7 changed files with 210 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -88,7 +88,7 @@ Public Class frmGeodataNavigation
dataProvider.BingKey = BING_KEY
ImageLayer.DataProvider = dataProvider
EntitySql = 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)
EntitySql = Get_Grid_Sql(CURRENT_CONSTRUCTOR_ID, CURRENT_ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, frmConstructor_Main.GridType.Grid, USER_GUID, String.Empty, False, 1, 0, GridControlGeo, grvwMain, True)
LoadData()
Catch ex As Exception
@@ -121,8 +121,8 @@ Public Class frmGeodataNavigation
GridControlGeo.DataSource = EntityDataTable
End If
Dim listcheck As List(Of String) = ClassHelper.Return_listcheck(CURRENT_FORM_ID)
Dim listdate As List(Of String) = ClassHelper.Return_listdate(CURRENT_FORM_ID)
Dim listcheck As List(Of String) = ClassHelper.Return_listcheck(CURRENT_ENTITY_ID)
Dim listdate As List(Of String) = ClassHelper.Return_listdate(CURRENT_ENTITY_ID)
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1