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

MSE Konvertierung HUGO SIM renewal fee

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-04-18 22:33:04 +02:00
parent 2615a9f506
commit dbe0f6584d
3 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.4.7")> <Assembly: AssemblyVersion("1.2.4.8")>
<Assembly: AssemblyFileVersion("1.2.4.7")> <Assembly: AssemblyFileVersion("1.2.4.8")>

3
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -973,9 +973,6 @@ Public Class usrCntlMDMAuswertungen
End If End If
End Sub End Sub
Private Sub UsrCntlMSE_KonvertCSV1_Load(sender As Object, e As EventArgs) Handles UsrCntlMSE_KonvertCSV1.Load
End Sub
End Class End Class
Class cMDMAuswertung Class cMDMAuswertung

16
SDL/mdm/usrCntlMSE_KonvertCSV.vb
View File

@@ -35,7 +35,7 @@ Public Class usrCntlMSE_KonvertCSV
End If End If
'====================================================================== '======================================================================
'HU-GO CardNr; Leistung 22 'HU-GO CardNr; Leistung 22, 453
'====================================================================== '======================================================================
If split.Count > 16 And cnt > 0 Then If split.Count > 16 And cnt > 0 Then
If split(15) = "22" Then 'HU-GO If split(15) = "22" Then 'HU-GO
@@ -49,8 +49,20 @@ Public Class usrCntlMSE_KonvertCSV
End If End If
End If End If
End If End If
If split(15) = "453" Then 'HU-GO SIM renewal cost
If split(14).Contains("HUGO SIM renewal cost -") Then 'HU-GO SIM renewal cost
If split(14).Contains("-") Then
Dim splitHuGo = split(14).Split("-") '--> Bezeichnung / Card Nummer auslesen
If splitHuGo.Count >= 1 Then
split(17) = "'" & splitHuGo(1).Trim & "'" '--> Card Nummer in Spalte
split(14) = splitHuGo(0).Trim '--> Bezeichnung in Spalte
split(16) = splitHuGo(0).Trim '--> Bezeichnung in Spalte
End If
End If
End If
End If
End If End If
Dim Ergebnis As String = String.Join(";", split) Dim Ergebnis As String = String.Join(";", split)
writer.WriteLine(Ergebnis) writer.WriteLine(Ergebnis)