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

MS08122015

Browse Source
This commit is contained in:
SchreiberM
2015-12-08 16:16:38 +01:00
parent 6b33117590
commit 8ec9839a7d
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -372,11 +372,13 @@ Public Class frmForm_Constructor_Main_2
Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer) Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer)
If GRID_TYPE = GridType.Grid Then If GRID_TYPE = GridType.Grid Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T" CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
Else 'Tiles und Carousel bekommen Quick View Else 'Tiles und Carousel bekommen Quick View
CURRENT_ENTITYSQL = String.Format("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId) CURRENT_ENTITYSQL = String.Format("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId)
CURRENT_ENTITYSQL = ClassDatabase.Execute_Scalar(CURRENT_ENTITYSQL, True) CURRENT_ENTITYSQL = ClassDatabase.Execute_Scalar(CURRENT_ENTITYSQL, True)
If CURRENT_ENTITYSQL = String.Empty Then If CURRENT_ENTITYSQL = String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> No Quick-View Configured", False)
CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T" CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
If IS_SINGLE_RECORD = True Or CURRENT_FORM_TYPE = 5 Then If IS_SINGLE_RECORD = True Or CURRENT_FORM_TYPE = 5 Then
@@ -385,9 +387,9 @@ Public Class frmForm_Constructor_Main_2
GridControlMain.MainView = grvwGrid GridControlMain.MainView = grvwGrid
VIEW_ID = 3 VIEW_ID = 3
End If End If
' GridControlMain.MainView = grvwGrid ' GridControlMain.MainView = grvwGrid
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Quick-View is configured", False)
End If End If
End If End If
End Function End Function