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

MS_04.01

Browse Source
This commit is contained in:
SchreiberM
2017-01-04 17:09:26 +01:00
parent 4ab7e368b1 29b3857635
commit 26812ffeb7
128 changed files with 17813 additions and 20419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -7,15 +7,15 @@ Public Class frmNewKombiForm
STRING1 = Me.TextBox1.Text
Dim Sql = "select count(*) from TBPMO_FORM_CONSTRUCTOR where UPPER(FORM_TITLE) = UPPER('" & STRING1 & "')"
Dim exists As Integer = ClassDatabase.Execute_Scalar(sql, True)
Dim exists As Integer = ClassDatabase.Execute_Scalar(Sql)
If exists = 1 Then
MsgBox("Achtung: Dieser Name existiert bereits!" & vbNewLine & "Bitte wählen Sie einen anderen Namen!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Sql = "EXEC [PRPMO_CREATE_CONSTRUCTOR] " & INTEGER1.ToString & ", '" & STRING1 & "'"
If ClassDatabase.Execute_non_Query(Sql, True) = True Then
Dim result As MsgBoxResult = MsgBox("Das Kombiformular wurde erfolgreich erzeugt!" & vbNewLine & "Wollen Sie die Konfiguration anzeigen?", MsgBoxStyle.YesNo, "Frage:")
If ClassDatabase.Execute_non_Query(Sql) = True Then
Dim result As MsgBoxResult = MsgBox("Die neue Sicht wurde erfolgreich erzeugt!" & vbNewLine & "Wollen Sie die Konfiguration anzeigen?", MsgBoxStyle.YesNo, "Frage:")
If result = MsgBoxResult.Yes Then
Dim frm As New frmConstructorDesigner
frm.MdiParent = frmMain