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

MS1808_14:45

Browse Source
This commit is contained in:
SchreiberM
2016-08-18 14:42:29 +02:00
parent bcee2404d5
commit 6655079922
6 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
app/DD-Record-Organiser/DD-Record-Organiser.vbproj
View File

@@ -81,8 +81,9 @@
<Reference Include="CommandLine">
<HintPath>..\..\3rdparty\lib\Commandline\CommandLine.dll</HintPath>
</Reference>
<Reference Include="DD_Rights">
<HintPath>..\..\..\DDLibraries\DD_Libraries\bin\Debug\DD_Rights.dll</HintPath>
<Reference Include="DD_Rights, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDLibraries\app\DD_Libraries\bin\Debug\DD_Rights.dll</HintPath>
</Reference>
<Reference Include="DevExpress.BonusSkins.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>

4
app/DD-Record-Organiser/frmConstructorDesigner.vb
View File

@@ -333,8 +333,8 @@ Public Class frmConstructorDesigner
docsearch = 0
End If
Dim sql = "UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = " & docsearch & "', CHANGED_WHO = '" & Environment.UserName & "' where FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
If ClassDatabase.Execute_non_Query(sql) = True Then
Dim sql = "UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = " & docsearch & " , CHANGED_WHO = '" & Environment.UserName & "' where FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
If ClassDatabase.Execute_non_Query(sql, True) = True Then
lblSaveDocSearch.Visible = True
lblSaveDocSearch.Text = "Data saved - " & Now
End If

2
app/DD-Record-Organiser/frmUserKonfig.vb
View File

@@ -561,6 +561,8 @@
Dim del = "EXEC [dbo].[PRPMO_DELETE_USER] " & USER_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
Load_User()
Else
MsgBox("Unexpected Error while deleting User.", MsgBoxStyle.Exclamation)
End If
End If