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

merge

Browse Source
This commit is contained in:
d.breimaier
2023-09-19 15:41:06 +02:00
parent dae5b4da77 8f8a18cce0
commit a11bcd4c5f
16 changed files with 1830 additions and 156 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -708,6 +708,7 @@ Public Class frmStartOptions
Case "5701" : Standort = "AMB"
Case "5801" : Standort = "FO"
Case "4801" : Standort = "ATL"
Case "4802" : Standort = "ATL"
Case "5003" : Standort = "SBG"
Case "5103" : Standort = "WAI"
Case "5303" : Standort = "NKD"
@@ -3133,18 +3134,18 @@ Public Class frmStartOptions
End If
SDL.Sachbearbeiter = "ASFINAG"
Dim Validto = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
Dim Validto = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
SDL.KartenNr = SQL.checkNullStr(oRDR.GetValue("CardNumber"))
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.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
@@ -3569,4 +3570,8 @@ Public Class frmStartOptions
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
Dim f As New frmDatenarchivarchiv
f.ShowDialog()
End Sub
End Class