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

MS_2

Browse Source
This commit is contained in:
SchreiberM
2015-11-10 10:09:36 +01:00
parent 2aa4e4ba58
commit fa334c5a4c
2 changed files with 876 additions and 382 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
app/DD-Record-Organiser/frmForm_Constructor.vb
View File

@@ -967,7 +967,7 @@ Public Class frmForm_Constructor
Private Function Return_SearchPattern(ByVal content As String) Private Function Return_SearchPattern(ByVal content As String)
Select Case content.ToUpper Select Case content.ToUpper
Case "@Record-ID".ToUpper Case "@Record-ID".ToUpper
Return SelectedRecordID Return CURRENT_RECORD_ID
Case "@EntityID".ToUpper Case "@EntityID".ToUpper
Return CURRENT_FORM_ID Return CURRENT_FORM_ID
Case "@ParentID".ToUpper Case "@ParentID".ToUpper
@@ -1965,8 +1965,7 @@ Public Class frmForm_Constructor
tsbtnRecordAdd.Visible = False tsbtnRecordAdd.Visible = False
tsbtnRecorddelete.Visible = False tsbtnRecorddelete.Visible = False
tsbtnRecordSave.Visible = False tsbtnRecordSave.Visible = False
Dim id = CURRENT_RECORD_ID ' MsgBox(CURRENT_RECORD_ID)
MsgBox(CURRENT_RECORD_ID)
Case Else Case Else
tsbtnRecordAdd.Visible = True tsbtnRecordAdd.Visible = True

1253
app/DD-Record-Organiser/frmMain.resx
View File

File diff suppressed because it is too large Load Diff