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

3.4.4.0

Browse Source
This commit is contained in:
Developer01
2025-10-30 18:29:35 +01:00
parent 07a4c00b01
commit 5c0120cca8
26 changed files with 1708 additions and 1465 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -3790,9 +3790,9 @@ Public Class frmConstructor_Main
Dim oSQL = $"SELECT ENTITY_DOC_SEARCH FROM TBPMO_FORM WHERE GUID = {ENTITY_ID}"
CURRENT_DOCSEARCH_SQL = MYDB_ECM.ExecuteNonQuery(oSQL)
If CURRENT_DOCSEARCH_SQL <> String.Empty Then
Dim oText = $"Die Entität-weite Suche wird im Hintergrund ausgeführt und angezeigt sobald sie fertig ist."
Dim oText = $"Die Sicht-weite Suche wird im Hintergrund ausgeführt und angezeigt sobald sie fertig ist."
If USER_LANGUAGE <> "de-De" Then
oText = $"The entity-wide search will be started in background. The result will be displayed when ready."
oText = $"The view-wide search will be started in background. The result will be displayed when ready."
End If
MsgBox(oText, vbOKOnly, "Information")
@@ -3804,9 +3804,9 @@ Public Class frmConstructor_Main
If USER_LANGUAGE <> "de-DE" Then
CURRENT_DOCSEARCH_CAPTION = "Entity-wide search"
CURRENT_DOCSEARCH_CAPTION = "view-wide search"
Else
CURRENT_DOCSEARCH_CAPTION = "Entitätssuche"
CURRENT_DOCSEARCH_CAPTION = "Sicht-Suche"
End If
Dim myformThread = New Thread(Sub()
Using frm As New frmDocSearchResult
@@ -3886,9 +3886,9 @@ Public Class frmConstructor_Main
Else
Entitystring = selnode.Text
End If
msg = "Dateien für Entität: " & Entitystring
msg = "Dateien für Sicht: " & Entitystring
If USER_LANGUAGE <> "de-DE" Then
msg = "files for entity: " & Entitystring
msg = "files for view: " & Entitystring
End If
msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
@@ -3963,9 +3963,9 @@ Public Class frmConstructor_Main
Else
Entitystring = selnode.Text
End If
msg = "Keine Dateien für Entität: " & Entitystring & " gefunden"
msg = "Keine Dateien für Sicht: " & Entitystring & " gefunden"
If USER_LANGUAGE <> "de-DE" Then
msg = "No files found for entity: " & Entitystring
msg = "No files found for View: " & Entitystring
End If
ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
If NODE_NAVIGATION Then
@@ -7245,7 +7245,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub bbtniclearCache_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniclearCache.ItemClick
Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Entität wird dann automatisch neugeladen!"
Dim msg = "Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Sicht wird dann automatisch neugeladen!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to clear the applications-cache?" & vbNewLine & "All data will be loaded new!"
End If