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

6
app/DD-Record-Organizer/frmNewVariant.vb
View File

@@ -22,9 +22,9 @@ Public Class frmNewVariant
RelinkFiles = 1
End If
Dim SQL = String.Format("EXEC PRPMO_CREATE_VARIANT {0},'{1}','{2}','{3}','{4}'", CURRENT_RECORD_ID, USER_USERNAME, cmbReason.Text, txtComment.Text, RelinkFiles)
If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
Dim sel = String.Format("SELECT MAX(GUID) FROM TBPMO_RECORD WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper)
CURRENT_RECORD_ID = ClassDatabase.Execute_Scalar(sel)
CURRENT_RECORD_ID = MYDB_ECM.GetScalarValue(sel)
msg = "Die neue Variante wurde erzeugt?"
If USER_LANGUAGE <> "de-DE" Then
msg = "The new variant was created successfully?"
@@ -49,7 +49,7 @@ Public Class frmNewVariant
Private Sub frmNewVariant_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Dim sel = String.Format("SELECT * FROM TBPMO_ENTITY_VARIANT_REASONS WHERE ENTITY_ID = {0}", CURRENT_ENTITY_ID)
DT_REASONS = ClassDatabase.Return_Datatable(sel)
DT_REASONS = MYDB_ECM.GetDatatable(sel)
cmbReason.DataSource = DT_REASONS
cmbReason.DisplayMember = DT_REASONS.Columns("REASON_CODE").ColumnName
cmbReason.ValueMember = DT_REASONS.Columns(0).ColumnName