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

MA Anzeige Hauptfirma, div. Fixes

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-05 14:17:34 +01:00
parent 0fd21dba2a
commit b4d25e6ea1
5 changed files with 104 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -570,7 +570,7 @@ Public Class cGetMsgType
Shared Function isPLOSE_Detail(doc As String) As Boolean
Dim lines() As String = IO.File.ReadAllLines(doc)
If lines.Count > 0 Then
If lines(0).ToString.StartsWith("TR5") Or (lines.Count > 1 AndAlso (lines(0).ToString.StartsWith("TR1") And lines(1).ToString.StartsWith("TR5"))) Then
If lines(0).ToString.Replace("""", "").StartsWith("TR5") Or (lines.Count > 1 AndAlso (lines(0).ToString.Replace("""", "").StartsWith("TR1") And lines(1).ToString.Replace("""", "").StartsWith("TR5"))) Then
Return True
End If
End If
@@ -579,7 +579,7 @@ Public Class cGetMsgType
Shared Function isPLOSE_Header(doc As String) As Boolean
Dim lines() As String = IO.File.ReadAllLines(doc)
If lines.Count > 0 Then
If lines(0).ToString.StartsWith("TR6") Then
If lines(0).ToString.Replace("""", "").StartsWith("TR6") Then
Return True
End If
End If
@@ -587,8 +587,9 @@ Public Class cGetMsgType
End Function
Shared Function isPLOSE_INVData(doc As String) As Boolean
Dim lines() As String = IO.File.ReadAllLines(doc)
If lines.Count > 0 Then
If lines(0).ToString.StartsWith("PloseCode") Then
If lines(0).ToString.Replace("""", "").StartsWith("PloseCode") Then
Return True
End If
End If