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

MS

Browse Source
This commit is contained in:
SchreiberM
2022-02-11 14:37:18 +01:00
parent 98a1821f2b
commit 05b150f282
9 changed files with 644 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -293,7 +293,7 @@ Public Class frmFlowForm
End Sub
Sub Open_FlowSearch()
Cursor = Cursors.WaitCursor
If TheFormIsAlreadyLoaded("frmFlowSearch") Then
If TheFormIsAlreadyLoaded("frmFlowSearch1") Then
Cursor = Cursors.Default
Exit Sub
End If
@@ -308,7 +308,7 @@ Public Class frmFlowForm
oSQLFlowSearch = oSQLFlowSearch.Replace("@USER_ID", My.Application.User.UserId)
oSQLFlowSearch = oSQLFlowSearch.Replace("@LANGUAGE_ID", My.Application.User.LanguageId)
oSQLFlowSearch = oSQLFlowSearch.Replace("@LANGUAGE", My.Application.User.Language)
Dim oForm As New frmFlowSearch(oSQLFlowSearch)
Dim oForm As New frmFlowSearch1()
oForm.Show()
oForm.BringToFront()
End If