AppCustom/EBCreatorService_WISAG
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Revert "MS"

Browse Source 
This reverts commit f298a1fa59.
This commit is contained in:
SchreiberM
2023-04-27 13:18:32 +02:00
parent f298a1fa59
commit e645e7c374
4 changed files with 70 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
EB_Creator/MyService.vb
View File

@@ -324,9 +324,10 @@ Public Class MyService
oStep = $"Parameter passed successfully!"
'---------
'Parameter für 2.Query
'Dim oSelectQuery2 As CustomSqlQuery = oDatasource.Queries(1)
'Dim oParameter2 As QueryParameter = oSelectQuery2.Parameters(0)
'oParameter2.Value = pDocID
' Dim oSelectQuery2 As CustomSqlQuery = oDatasource.Queries(1)
' Dim oParameter2 As QueryParameter = oSelectQuery2.Parameters(0)
' oParameter2.Value = pDocID
DocID = pDocID
Try
'Logger.Debug($"Now passing the value [{pDocID}] to parameter pDocID...")
@@ -346,14 +347,10 @@ Public Class MyService
oStep = $"Trying to create the report-document.."
oReport.CreateDocument(False)
Dim filePath As String = $"C:\Temp\{DocID}.prnx"
Logger.Debug($"oReport successfully created!")
Catch ex As Exception
Delete_EB2bCreated(pDocID)
Logger.Error(ex)
Logger.Info($"Unexpected Error in Create_EB_Report - STEP: [{oStep}] - Create for DocID: {pDocID} - GENID: {GENID} - ERROR: {ex.Message}")
Logger.Warn($"Unexpected Error in Create_EB_Report - STEP: [{oStep}] - Create for DocID: {pDocID} - GENID: {GENID} - ERROR: {ex.Message}")
DocID = 0
Exit Sub
End Try