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
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -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)