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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-06-23 08:38:19 +02:00
parent 2d85480c4c
commit 853d96140f
3 changed files with 92 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
UID/My Project/Resources.Designer.vb generated
View File

@@ -201,7 +201,7 @@ Namespace My.Resources
End Property
'''<summary>
''' 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.
'''</summary>
Friend ReadOnly Property connStringAdmin() As String
Get
@@ -395,6 +395,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property llllllll() As String
Get
Return ResourceManager.GetString("llllllll", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -635,7 +644,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.9.6 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.9.7 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

7
UID/My Project/Resources.resx
View File

@@ -185,10 +185,10 @@
<value>..\Resources\sanduhr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="connStringAdmin" xml:space="preserve">
<value>Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
</data>
<data name="Version" xml:space="preserve">
<value>1.9.6</value>
<value>1.9.7</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -298,4 +298,7 @@
<data name="gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="llllllll" xml:space="preserve">
<value />
</data>
</root>

80
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -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