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

MS_29012016

Browse Source
This commit is contained in:
SchreiberM
2016-01-29 14:46:32 +01:00
parent 3cc10569ad
commit 66b70f44b9
28 changed files with 3998 additions and 1981 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD-Record-Organiser/frmForm_Overview.vb
View File

@@ -201,10 +201,15 @@ Public Class frmForm_Overview
Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
Try
If FORM_TITLETextBox.Text = "" Then
MsgBox("Bitte geben Sie einen Titel für die Entität ein!", MsgBoxStyle.Exclamation)
MsgBox("Please insert a title for the entity! Will be displayed in Entity-hirarchy", MsgBoxStyle.Exclamation)
FORM_TITLETextBox.Focus()
Exit Sub
End If
If NAMETextBox.Text = "" Then
MsgBox("Please isnert an internal name for the entity!", MsgBoxStyle.Exclamation)
NAMETextBox.Focus()
Exit Sub
End If
Dim FORM_TITLE As String = FORM_TITLETextBox.Text
Dim DESCRIPTION As String = DESCRIPTIONTextBox.Text
@@ -231,12 +236,7 @@ Public Class frmForm_Overview
'MsgBox(FORM_TITLETextBox.Text)
'ggg()
If FORM_ID Is Nothing = False Then
' Dim SQL1 = ClassDatabase.Execute_Scalar("SELECT SQL_RECORD_SQL1 FROM TBPMO_KONFIGURATION WHERE GUID = 1")
' Dim SQL2 = ClassDatabase.Execute_Scalar("SELECT SQL_RECORD_SQL2 FROM TBPMO_KONFIGURATION WHERE GUID = 1")
' SQL2 = SQL2.ToString.Replace("@FORM_ID", FORM_ID)
' sql = "INSERT INTO TBPMO_FORM_SQL_CONSTRUCT (SCREEN_ID,FORM_ID,SQL1,SQL2,ADDED_WHO) VALUES (" & FORM_ID & ", 1,'" & SQL1 & "','" & SQL2 & "','" & ADDED_WHO & "')"
' ClassDatabase.Execute_non_Query(sql)
sql = "INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO) VALUES (" & FORM_ID & ", 1, '" & FORM_TITLE & "', '" & DESCRIPTION & "', '" & ADDED_WHO & "')"
sql = String.Format("INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO,LANGUAGE) VALUES ({0}, {1},'{2}','{3}','{4}','{5}')", FORM_ID, CURRENT_SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO, USER_LANGUAGE)
ClassDatabase.Execute_non_Query(sql)
End If
Else