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

MS1901

Browse Source
This commit is contained in:
SchreiberM
2017-01-20 10:16:04 +01:00
parent 3d78578381
commit 0d59a9613a
30 changed files with 7513 additions and 6350 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD-Record-Organiser/frmMass_Change.vb
View File

@@ -73,12 +73,12 @@
End If
Try
Dim err As Boolean = False
Dim RIGHT_ONLY_READ_RECORD = False
Dim RIGHT_ONLY_READ_RECORD_FILE = False
For Each Record As String In MASS_RECORD_IDs2CHANGE
If SQL_RECORD_READ_ONLY <> "" Then
RIGHT_ONLY_READ_RECORD = ClassHelper.Check_Record_Read_only(CInt(Record), CURRENT_ENTITY_ID)
If SQL_RECORD_AND_FILE_READ_ONLY <> "" Then
RIGHT_ONLY_READ_RECORD_FILE = ClassHelper.Check_Record_Read_only(CInt(Record), CURRENT_ENTITY_ID)
End If
If RIGHT_ONLY_READ_RECORD = False Then
If RIGHT_ONLY_READ_RECORD_FILE = False Then
SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", control_Id, CInt(Record))
Dim ex_GUID = ClassDatabase.Execute_Scalar(SQL, True)
If Not IsNothing(ex_GUID) Then