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

MS

Browse Source
This commit is contained in:
SchreiberM 2022-11-07 17:54:20 +01:00
parent 333a2c0cc3
commit 555e69d1b9
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
EB_Creator/MyService.vb
View File

@ -349,15 +349,13 @@ Public Class MyService
TempFile = ""
If File.Exists(oOriginFile) = False Then
If Not IsNothing(WINDREAM) And oOriginFile.StartsWith("\\windream\objects") Then
' Dim oWmObj As WINDREAMLib.IWMObject6 = WINDREAM.GetFileByPath(oOriginFile.Replace("\\windream\objects", ""))
'If Not IsNothing(oWmObj) Then
Logger.Debug($"Trying to export WMFile: {oOriginFile}...")
Dim oReturn = WINDREAM.Export_WMFile(oOriginFile, Path.GetTempPath())
Logger.Debug($"Result of WINDREAM.Export_WMFile: [{oReturn.ToString}]")
If oReturn <> "False" Then
If File.Exists(oReturn) Then
oOriginFile = oReturn
UsedTempFile = True
TempFile = oOriginFile
TempFile = oReturn
Else
Logger.Info($"TempFile not existing ### [{oReturn}]!")
Delete_EB2bCreated(pDocID)
@ -381,14 +379,14 @@ Public Class MyService
End If
If Not IsNothing(oOriginFile) Then
If Not IsNothing(TempFile) Then
If File.Exists(My.Settings.Path2PDFTK) Then
If Create_MyStempel(pDocID, GENID) = True Then
'Jetzt Stempeln des OriginalBeleges mit dem Stamp-Report
Dim oFilewithStamp = CreateStampedPDF(oOriginFile, pDocID, GENID)
Dim oFilewithStamp = CreateStampedPDF(TempFile, pDocID, GENID)
If oFilewithStamp <> "" Then
If Concat_Files(pDocID, oOriginFile, GENID, Outputfilename, OutputFolder, oFilewithStamp, MyFreigabebericht) = True Then
If Concat_Files(pDocID, TempFile, GENID, Outputfilename, OutputFolder, oFilewithStamp, MyFreigabebericht) = True Then
If pRerun = False Then
Dim oInsert = $"INSERT INTO TBCUST_PM_RPT_CREATED (DocID,GEN_ID) VALUES ({Convert.ToInt64(pDocID)},'{GENID}')"
MyDatabase.ExecuteNonQuery(oInsert)