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

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organizer/frmNewKombiForm.vb
View File

@@ -7,14 +7,14 @@ 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)
Dim exists As Integer = MYDB_ECM.GetScalarValue(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 Then
If MYDB_ECM.ExecuteNonQuery(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