From 853d96140f7dabb5e0312cf9ef09a6fbee7000c3 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 23 Jun 2020 08:38:19 +0200 Subject: [PATCH] neu --- UID/My Project/Resources.Designer.vb | 13 +++- UID/My Project/Resources.resx | 7 +- initATLASAufschubkonten/frmStartOptions.vb | 80 ++++++++++++++++++++-- 3 files changed, 92 insertions(+), 8 deletions(-) diff --git a/UID/My Project/Resources.Designer.vb b/UID/My Project/Resources.Designer.vb index d898ee3..4936cd9 100644 --- a/UID/My Project/Resources.Designer.vb +++ b/UID/My Project/Resources.Designer.vb @@ -201,7 +201,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt. ''' Friend ReadOnly Property connStringAdmin() As String Get @@ -395,6 +395,15 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. + ''' + Friend ReadOnly Property llllllll() As String + Get + Return ResourceManager.GetString("llllllll", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -635,7 +644,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.9.6 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.9.7 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/UID/My Project/Resources.resx b/UID/My Project/Resources.resx index b3d62c2..c3fe943 100644 --- a/UID/My Project/Resources.resx +++ b/UID/My Project/Resources.resx @@ -185,10 +185,10 @@ ..\Resources\sanduhr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; - 1.9.6 + 1.9.7 ..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -298,4 +298,7 @@ ..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + \ No newline at end of file diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 849d3ca..1184944 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -1100,16 +1100,43 @@ Public Class frmStartOptions While (oRDR.Read) Dim KartenNr = oRDR.GetValue("CardNumber") + Dim KfzKennzeichen = fktConvert(oRDR.GetValue("KfzKennzeichen")) ' Kundennummer einlesen - Dim KdNr = SQl.getValueTxtBySql("SELECT AdressenNr FROM Kreditkarten WHERE KartenNr='" & KartenNr & "'", "SDL") + Dim KdNr As Integer = SQl.getValueTxtBySql("SELECT AdressenNr FROM Kreditkarten WHERE KartenNr='" & KartenNr & "'", "SDL",,, -1) - 'Dim SDL = New cSDL(KdNr, oRDR.GetValue("KfzKennzeichen"), SDLNr, History) + If KdNr > 0 Then + Call fktKundenSDLVerwalten(KdNr, SDLNr) + Call fktKundenLkwVerwalten(KdNr, oRDR.GetValue("KfzKennzeichen"), oRDR.GetValue("Nationalität")) - 'Call fktKundenSDLVerwalten(rstKreditkarten!AdressenNr, rstSDL!SDLNr, , "ASFINAG") - 'Call fktKundenLkwVerwalten(rstKreditkarten!AdressenNr, rstCLFBody!KfzKennzeichen, rstCLFBody!Nationalität, "ASFINAG") + Dim SDL = New VERAG_PROG_ALLGEMEIN.cSDL(KdNr, oRDR.GetValue("KfzKennzeichen"), SDLNr) + If Not SDL.hasentry Then + SDL.KundenNr = KdNr + SDL.KfzKennzeichen = KfzKennzeichen + SDL.SDLNr = SDLNr + SDL.History = 0 'fktLiefereHistorywert(!KundenNr, !SDLNr) + SDL.Erfassungsdatum = Now + Else + SDL.Änderungsdatum = Now + End If + SDL.Sachbearbeiter = "ASFINAG" + Dim Validto = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) + + SDL.KartenNr = SQl.checkNullStr(oRDR.GetValue("CardNumber")) + If Validto <> "" Then + SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(Validto, 1, 2), Mid(Validto, 3, 2), 1))) + End If + + SDL.OBUID = SQl.checkNullStr(oRDR.GetValue("OBUID")) + SDL.Vertragsabschlussdatum = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) + SDL.Kategorie = SQl.checkNullStr(oRDR.GetValue("Kategorie")) + SDL.Schadstoffklasse = SQl.checkNullStr(oRDR.GetValue("Schadstoffklasse")) + SDL.Status = SQl.checkNullStr(oRDR.GetValue("Status")) + SDL.SAVE() + + End If End While End Using @@ -1124,5 +1151,50 @@ Public Class frmStartOptions End Try End Function + Public Function fktConvert(KfzKennzeichen) As String + fktConvert = "" + Dim I As Integer + + If KfzKennzeichen Is Nothing OrElse KfzKennzeichen Is DBNull.Value Then + Return Nothing + End If + + For I = 1 To Len(KfzKennzeichen) + Select Case Mid(KfzKennzeichen, I, 1) + Case "A" To "Z" + fktConvert = fktConvert & UCase(Mid(KfzKennzeichen, I, 1)) + Case "0" To "9" + fktConvert = fktConvert & Mid(KfzKennzeichen, I, 1) + End Select + Next I + + End Function + + Public Function fktKundenLkwVerwalten(ByRef KdNr As Integer, ByRef KfzKennzeichen As String, Nationalitaet As String) + Dim SDL_LKW As New VERAG_PROG_ALLGEMEIN.cSDL_LKW(KdNr, KfzKennzeichen) + + If Not SDL_LKW.hasEntry Then + SDL_LKW.Erfassungsdatum = Now + Else + SDL_LKW.Änderungsdatum = Now + End If + SDL_LKW.Sachbearbeiter = "ASFINAG" + SDL_LKW.Nationalität = Nationalitaet + + Return SDL_LKW.SAVE + End Function + Public Function fktKundenSDLVerwalten(ByRef KdNr As Integer, ByRef SDLNr As Integer) As Boolean + Dim KUNDEN_SDL As New VERAG_PROG_ALLGEMEIN.cKundenSDL(KdNr, SDLNr) + + If Not KUNDEN_SDL.hasEntry Then + KUNDEN_SDL.Erfassungsdatum = Now + Else + KUNDEN_SDL.Änderungsdatum = Now + End If + KUNDEN_SDL.Sachbearbeiter = "ASFINAG" + + Return KUNDEN_SDL.SAVE + + End Function End Class \ No newline at end of file