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

plose, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-06-26 16:02:57 +02:00
parent 65f1d0010c
commit f193cb6dd3
7 changed files with 1737 additions and 1021 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -776,7 +776,17 @@ Public Class cGetMsgType
Shared Function isPLOSE_NewFormat_TR(doc As String) As Boolean
Dim lines() As String = System.IO.File.ReadAllLines(doc)
If lines.Count > 0 Then
If lines(0).ToString.Replace("""", "").StartsWith("CustomerCode") Then
If lines(0).ToString.Replace("""", "").StartsWith("CustomerCode") AndAlso lines(0).ToString.Contains("ServiceDescription") AndAlso lines(0).ToString.Contains("ItalianDocNumber") Then
Return True
End If
End If
Return False
End Function
Shared Function isPLOSE_NewFormat_INV(doc As String) As Boolean
Dim lines() As String = System.IO.File.ReadAllLines(doc)
If lines.Count > 0 Then
If lines(0).ToString.Replace("""", "").StartsWith("CustomerCode") AndAlso lines(0).ToString.Contains("DocumentNumber") AndAlso lines(0).ToString.Contains("PdfFileName") AndAlso doc.ToUpper.Contains("RDOC") Then
Return True
End If
End If