From dbe0f6584d44f779bbf93587b86cdcf624bcf4bb Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 18 Apr 2023 22:33:04 +0200 Subject: [PATCH] MSE Konvertierung HUGO SIM renewal fee --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/mdm/usrCntlMDMAuswertungen.vb | 3 --- SDL/mdm/usrCntlMSE_KonvertCSV.vb | 16 ++++++++++++++-- 3 files changed, 16 insertions(+), 7 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 72971dfc..044c7dda 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/mdm/usrCntlMDMAuswertungen.vb b/SDL/mdm/usrCntlMDMAuswertungen.vb index 6f31aef3..af2a5e60 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.vb @@ -973,9 +973,6 @@ Public Class usrCntlMDMAuswertungen End If End Sub - Private Sub UsrCntlMSE_KonvertCSV1_Load(sender As Object, e As EventArgs) Handles UsrCntlMSE_KonvertCSV1.Load - - End Sub End Class Class cMDMAuswertung diff --git a/SDL/mdm/usrCntlMSE_KonvertCSV.vb b/SDL/mdm/usrCntlMSE_KonvertCSV.vb index 7f2dbbdb..815fc476 100644 --- a/SDL/mdm/usrCntlMSE_KonvertCSV.vb +++ b/SDL/mdm/usrCntlMSE_KonvertCSV.vb @@ -35,7 +35,7 @@ Public Class usrCntlMSE_KonvertCSV End If '====================================================================== - 'HU-GO CardNr; Leistung 22 + 'HU-GO CardNr; Leistung 22, 453 '====================================================================== If split.Count > 16 And cnt > 0 Then If split(15) = "22" Then 'HU-GO @@ -49,8 +49,20 @@ Public Class usrCntlMSE_KonvertCSV 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 + Dim Ergebnis As String = String.Join(";", split) writer.WriteLine(Ergebnis)