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

MA

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-10-27 15:21:28 +02:00
parent b56e276882
commit c08aa3750b
2 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -595,6 +595,7 @@ Public Class SQL
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
Case "EZOLL_UNISPED" : conn = GetNewOpenConnectionEZOLL_UNISPED()
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
@@ -631,6 +632,7 @@ Public Class SQL
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
Case "EZOLL_UNISPED" : conn = GetNewOpenConnectionEZOLL_UNISPED()
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
@@ -700,6 +702,7 @@ Public Class SQL
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
Case "EZOLL_UNISPED" : conn = GetNewOpenConnectionEZOLL_UNISPED()
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "SCANCANON" : conn = GetNewOpenConnectionSCANCANON()
@@ -753,6 +756,7 @@ Public Class SQL
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
Case "EZOLL_UNISPED" : conn = GetNewOpenConnectionEZOLL_UNISPED()
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()
@@ -797,6 +801,7 @@ Public Class SQL
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
Case "EZOLL_UNISPED" : conn = GetNewOpenConnectionEZOLL_UNISPED()
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
@@ -839,6 +844,7 @@ Public Class SQL
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
Case "EZOLL_UNISPED" : conn = GetNewOpenConnectionEZOLL_UNISPED()
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
@@ -875,6 +881,7 @@ Public Class SQL
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
Case "EZOLL_UNISPED" : conn = GetNewOpenConnectionEZOLL_UNISPED()
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
@@ -940,6 +947,7 @@ Public Class SQL
Case "ATLAS" : conn = GetNewOpenConnectionATLAS()
Case "ATLAS_SBG" : conn = GetNewOpenConnectionATLAS_SBG()
Case "EZOLL" : conn = GetNewOpenConnectionEZOLL()
Case "EZOLL_UNISPED" : conn = GetNewOpenConnectionEZOLL_UNISPED()
Case "AVISO" : conn = GetNewOpenConnectionAVISO()
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "WEB" : conn = GetNewOpenConnectionWEB()

3
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -41,6 +41,7 @@ Public Class cMitarbeiter
Property mit_DpUserStandardFirma2 As Object = Nothing
Property mit_EZOLL_SB As Object = Nothing
Property mit_EZOLL_SB_UNISPED As Object = Nothing
Property mit_ATLAS_SB As Object = Nothing
Property mit_pseudoUser As Boolean = False
@@ -160,6 +161,7 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardFirma", mit_DpUserStandardFirma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardFirma2", mit_DpUserStandardFirma2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_EZOLL_SB", mit_EZOLL_SB))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_EZOLL_SB_UNISPED", mit_EZOLL_SB_UNISPED))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATLAS_SB", mit_ATLAS_SB))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_pseudoUser", mit_pseudoUser))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FirmenDatenAnzeige", mit_FirmenDatenAnzeige))
@@ -351,6 +353,7 @@ Public Class cMitarbeiter
Me.mit_firma = dr.Item("mit_firma")
If Not dr.Item("mit_firmaFMZoll") Is DBNull.Value Then Me.mit_firmaFMZoll = dr.Item("mit_firmaFMZoll")
If Not dr.Item("mit_EZOLL_SB") Is DBNull.Value Then Me.mit_EZOLL_SB = dr.Item("mit_EZOLL_SB")
If Not dr.Item("mit_EZOLL_SB_UNISPED") Is DBNull.Value Then Me.mit_EZOLL_SB_UNISPED = dr.Item("mit_EZOLL_SB_UNISPED")
If Not dr.Item("mit_ATLAS_SB") Is DBNull.Value Then Me.mit_ATLAS_SB = dr.Item("mit_ATLAS_SB")
Me.mit_pseudoUser = dr.Item("mit_pseudoUser")
If Not dr.Item("mit_DAKOSY_SB") Is DBNull.Value Then Me.mit_DAKOSY_SB = dr.Item("mit_DAKOSY_SB")