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

MS_KW9

Browse Source
This commit is contained in:
SchreiberM
2016-03-07 09:13:55 +01:00
parent 45e67aea4e
commit 3266da1baa
17 changed files with 8363 additions and 8828 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1279,7 +1279,7 @@ Public Class frmConstructor_Main
'VerknüpfungenToolStripMenuItem.Enabled = False
FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND ENTITY_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
CURRENT_CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar("SELECT GUID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
POS_ENTITY = ClassDatabase.Execute_Scalar("SELECT POS_ENTITY FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
If VIEW_ID_RUNTIME <> -1 Then
@@ -2771,7 +2771,7 @@ Public Class frmConstructor_Main
' TODO: Ansicht zurücksetzen
Try
Dim XMLPath = Get_Grid_Layout_Filename()
If File.Exists(XMLPath) And GRID_TYPE = GridType.Grid Then
If File.Exists(XMLPath) Then
File.Delete(XMLPath)
Load_Entity_Data(ACT_EBENE)
End If