MS diverses

GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.vb

@@ -0,0 +1,64 @@
+Imports System.Threading.Tasks
+Imports DigitalData.Modules.ZooFlow
+Public Class frmFileflow_Duplicate
+    Dim omessagetext As String
+    Private Search As SearchRunner
+    Private Property Environment As Environment
+    Public Sub New(pFilename As String, pDate As String)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        If My.Application.User.Language = "de-DE" Then
+            omessagetext = $"Die Datei [{pFilename}] wurde bereits" & vbNewLine & "am [{pDate}] verarbeitet." & vbNewLine & "Wollen Sie die gleiche Datei noch einmal verarbeiten?"
+        Else
+            omessagetext = $"The file [{pFilename}] has already been processed at [{pDate}]. Do you want to process the same file again?"
+        End If
+        Environment = My.Application.GetEnvironment()
+
+        Search = New SearchRunner(My.LogConfig, Environment, "FlowSearch") With {
+             .BaseSearchSQL = DocResultBaseSearch
+         }
+    End Sub
+
+    Private Async Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
+        Await GetResult("DOCID")
+
+    End Sub
+    Private Async Function GetResult(oVariant As String) As Task
+        Dim oSql As String
+        Try
+            If oVariant = "DOCID" Then
+                oSql = My.Queries.Common.DOCRESULT_DocID(My.Application.Globix.DOCUMENT_ID)
+            ElseIf oVariant = "TODAY" Then
+                oSql = My.Queries.Common.DOCRESULT_TODAY
+            ElseIf oVariant = "TODAY_ME" Then
+                oSql = My.Queries.Common.DOCRESULT_TODAY_ME
+            End If
+            If oSql IsNot Nothing Then
+                Dim oResultDT = Await My.Database.GetDatatableIDBAsync(oSql)
+                If Not IsNothing(oResultDT) Then
+                    Search.Run(oResultDT, "FileFlow Duplicate File")
+                End If
+
+            End If
+
+        Catch ex As Exception
+            MsgBox("Unexpected error in getResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Function
+
+    Private Async Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
+        Await GetResult("TODAY")
+    End Sub
+
+    Private Async Sub SimpleButton5_Click(sender As Object, e As EventArgs) Handles SimpleButton5.Click
+        Await GetResult("TODAY_ME")
+    End Sub
+
+    Private Sub frmFileflow_Duplicate_Load(sender As Object, e As EventArgs) Handles Me.Load
+        LabelControlMessage.Text = omessagetext
+    End Sub
+End Class