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

Version 1.4.0.0

Browse Source
This commit is contained in:
SchreiberM
2022-08-10 11:59:11 +02:00
parent 255338aa36
commit cd394da2d1
106 changed files with 164812 additions and 546974 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
app/ClassWMResulthandler/clsProfil.vb
View File

@@ -287,52 +287,28 @@ Public Class clsProfil
Case "BNS json Download".ToUpper
Logger.Debug($"{oFileRunNo} JobType: BNS json Download")
FileJobSuccessful = _dateiverarbeitung.BNSjsonDownload(WMdok, DR_PR_JB.Item("STRING1"), DR_PR_JB.Item("STRING2"))
'Case "Send to printer".ToUpper
' Logger.Info("JobType: Send to printer")
' Dim pdfxchange = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("PDF_XCHANGE_LOCATION")
' Dim printername = DR_PR_JB.Item("STRING1")
' Dim filename = clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath
' Try
Case "Archive Document X years from Indexdate".ToUpper
Logger.Debug($"{oFileRunNo} JobType: Archive Document X years from Indexdate")
If IsNumeric(DR_PR_JB.Item("STRING1")) And DR_PR_JB.Item("STRING2").ToString.Length > 0 Then
Dim opDateValue As Object
Try
opDateValue = WMdok.GetVariableValue(DR_PR_JB.Item("STRING2"))
Dim odate = CDate(opDateValue)
Catch ex As Exception
Logger.Info($"Could not convert value {opDateValue.ToString} to date!")
Logger.Error(ex)
End Try
If Not IsNothing(opDateValue) Then
If _dateiverarbeitung.Archive_Document(WMdok, "y", DR_PR_JB.Item("STRING1"), opDateValue.ToString) = True Then
FileJobSuccessful = True
End If
End If
' If File.Exists(pdfxchange) = False Then
' Logger.Warn("PDFXChange existiert nicht am Ort...")
' Continue For
' End If
' Dim myProcess As New Process
' myProcess.StartInfo.FileName = pdfxchange
' myProcess.StartInfo.UseShellExecute = True
' myProcess.StartInfo.CreateNoWindow = False
' 'PDFXCView.exe / Print(): showui = yes c:\mydocument.pdf
' Dim _argument As String = "/printto: """ & printername & """ """ & filename & """"
' myProcess.StartInfo.Arguments = _argument
' Logger.Debug("Arguments: " & _argument)
' Try
' myProcess.Start()
' Dim p As Process
' p = Process.GetProcessById(myProcess.Id)
' Dim sw As Stopwatch = New Stopwatch()
' sw.Start()
' Do While p.HasExited = False
' If sw.Elapsed.TotalSeconds = 30 Then
' Logger.Info("Still waiting (30 sec) for ending of process-id: " & myProcess.Id.ToString)
' ElseIf sw.Elapsed.TotalMinutes = 1 Then
' Logger.Info("Still waiting (60 sec) for ending of process-id: " & myProcess.Id.ToString & " - Exit now")
' Exit Do
' End If
' Loop
' Logger.Debug("...process has exited: ")
' FileJobSuccessful = True
' sw.Stop()
' Catch ex As Exception
' Logger.Warn("Could not print (pdfxcv) file: " & filename)
' Logger.Error(ex)
' End Try
' Catch ex As Exception
' Logger.Error(ex)
' End Try
End If
End Select
Next