edv/SDL
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-09-23 07:24:25 +02:00
parent 89d8e0a3a8
commit ce31c2c398
84 changed files with 4953 additions and 554 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/Classes/cRKSV_Kasse.vb
View File

@@ -18,6 +18,9 @@ Public Class cRKSV_Kasse
Property rksv_AesKey As Object = Nothing
Property rksv_KassaGuid As Object = Nothing
Property rksv_ipAdresse As Object = Nothing
Property rksv_DE_TSE_Serial As Object = Nothing
Property rksv_DE_user As Object = Nothing
Property rksv_DE_pwd As Object = Nothing
Dim SQL As New SQL
@@ -210,6 +213,9 @@ Public Class cRKSV_Kasse
Me.rksv_AesKey = cSqlDb.checkNullReturnValue(dr.Item("rksv_AesKey"), Nothing)
Me.rksv_KassaGuid = cSqlDb.checkNullReturnValue(dr.Item("rksv_KassaGuid"), Nothing)
Me.rksv_ipAdresse = cSqlDb.checkNullReturnValue(dr.Item("rksv_ipAdresse"), Nothing)
Me.rksv_DE_TSE_Serial = cSqlDb.checkNullReturnValue(dr.Item("rksv_DE_TSE_Serial"), Nothing)
Me.rksv_DE_user = cSqlDb.checkNullReturnValue(dr.Item("rksv_DE_user"), Nothing)
Me.rksv_DE_pwd = cSqlDb.checkNullReturnValue(dr.Item("rksv_DE_pwd"), Nothing)
End If
dr.Close()
@@ -240,6 +246,11 @@ Public Class cRKSV_Kasse
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_AesKey", rksv_AesKey))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_KassaGuid", rksv_KassaGuid))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_ipAdresse", rksv_ipAdresse))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_DE_TSE_Serial", rksv_DE_TSE_Serial))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_DE_user", rksv_DE_user))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_DE_pwd", rksv_DE_pwd))
Return list
End Function