fix profile copy

This commit is contained in:
Jonathan Jenne 2020-02-13 16:32:42 +01:00
parent b33ec0e0c0
commit 1768bf2a98

View File

@ -1127,7 +1127,7 @@ Public Class frmAdministration
If result = MsgBoxResult.Yes Then
Try
Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", 1"
Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", (select GUID from TBDD_MODULES where UPPER(SHORT_NAME) = 'GLOBIX')"
If ClassDatabase.Execute_non_Query(copy, True) Then
If USER_LANGUAGE = "de-DE" Then