From 3e72270c3b8d32528fccb85875d4d3fd83d13139 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 18 Apr 2017 14:03:13 +0200 Subject: [PATCH] MS --- app/DD-Record-Organizer/frmConstructor_Main.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/app/DD-Record-Organizer/frmConstructor_Main.vb b/app/DD-Record-Organizer/frmConstructor_Main.vb index 754cc26..30bfa1d 100644 --- a/app/DD-Record-Organizer/frmConstructor_Main.vb +++ b/app/DD-Record-Organizer/frmConstructor_Main.vb @@ -5801,7 +5801,7 @@ Public Class frmConstructor_Main ENTITY_STRING = ClassDatabase.Execute_Scalar(sql) sql = String.Format("select count(guid) from TBPMO_CONTROL_ENTITY_LINK where ORIGIN_CTRL_ID in (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {0}) " & "AND LINKED_CTRL_ID IN (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {1})", ENTITY_ID, node_tag) - Dim count = ClassDatabase.Execute_Scalar(sql) + Dim count = ClassDatabase.Execute_Scalar(sql, True) If Not IsNothing(count) Then If count = 0 Then MsgBox("No configuration for changing entity-link!" & vbNewLine & "Please inform Your ADDi-Admin", MsgBoxStyle.Exclamation) @@ -5809,13 +5809,15 @@ Public Class frmConstructor_Main Exit Sub End If End If - Dim msg As String = String.Format("Wollen Sie die ausgewählten Zeilen wirklich der Entität '{0}'zuordnen?", ENTITY_STRING.ToString) + Dim msg As String = String.Format("Wollen Sie die ausgewählten Zeilen wirklich der Entität '{0}' zuordnen?", ENTITY_STRING.ToString) If USER_LANGUAGE <> "de-DE" Then msg = String.Format("Do You really want to change the entity-link of the selected record to '{0}'?", ENTITY_STRING.ToString) End If Dim result As MsgBoxResult result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If result = MsgBoxResult.Yes Then + Save_Grid_Layout() + For Each _RECORD As String In e.Data.GetData(GetType(String())) Dim upd = String.Format("UPDATE TBPMO_RECORD SET FORM_ID = {0} where GUID = {1}", node_tag, _RECORD) If ClassDatabase.Execute_non_Query(upd) = True Then