This commit is contained in:
SchreiberM
2017-03-23 17:16:10 +01:00
parent f4b61df91e
commit ac726d544f
9 changed files with 63 additions and 39 deletions

View File

@@ -441,7 +441,7 @@ Module ModuleHelperMethods
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 ViewName As String = "TBENTITY_TABLE" & FormId.ToString
CURRENT_VIEWNAME = ViewName
Dim EntitySQL As String
@@ -457,7 +457,7 @@ Module ModuleHelperMethods
EntitySQL = QUICK_VIEW_SQL
If EntitySQL = String.Empty Then
EntitySQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
EntitySQL = "SELECT T.* FROM TBENTITY_TABLE" & FormId.ToString & " T"
If IS_SINGLE_RECORD = True Or FORM_TYPE = 5 Then
Else