edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

plose testparam

Browse Source
This commit is contained in:
d.breimaier
2025-01-21 10:01:44 +01:00
parent a8375efde9
commit 28dad85ee4
4 changed files with 10 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -285,7 +285,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
downloadedFile.Dispose()
Dim fi As FileInfo = New FileInfo(filePath)
If fi.Extension = ".uta" Then
If fi.Extension.ToLower = ".uta" Then
ListBox3.Items.Add(frmStartOptions.cut_file(fi.Name)) 'zur Liste hinzufügen
cnt += 1
End If
@@ -472,11 +472,12 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Dim pdfAtt = doc.Attachments(0)
If pdfAtt.FileName = "ZUGFeRD-invoice.xml" Then
Dim filename = Path.GetFileName(pdfAtt.FileName)
File.WriteAllBytes(filename, pdfAtt.Data)
Dim xmlFile = doc.Attachments(0)
Dim pathTempXMLFile = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(xmlFile.FileName, ".xml", False, False)
File.WriteAllBytes(pathTempXMLFile, pdfAtt.Data)
Dim docxml As New XmlDocument()
docxml.Load(New XmlTextReader(filename))
docxml.Load(New XmlTextReader(pathTempXMLFile))
If docxml.HasChildNodes Then
If docxml.GetElementsByTagName("rsm:ExchangedDocument").Count > 0 Then
@@ -529,6 +530,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Catch ex As System.Exception
MsgBox(ex.StackTrace)
End Try
ElseIf fi.Name.ToString.StartsWith("AP") AndAlso fi.Name.ToLower.Contains("epn") Then 'nur einzelpostennachweise