neu

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