KuundenAdresse Zusatz; MDM: UTA-Mautberichterstellung; VZPreise;Teleotec-Doks;MA-AccessCode GRN AT

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -543,12 +543,15 @@ Public Class SQL
     End Function
 
 
-    Function DLookupArray(srchField, table, where, Optional conn_art = "SDL") As List(Of String)
+    Function DLookupArray(srchField, table, where, Optional conn_art = "SDL", Optional srchFieldClearName = "") As List(Of String)
         Dim list As New List(Of String)
         Dim dt = loadDgvBySql("SELECT  " & srchField & "  FROM " & table & " WHERE " & where & "", conn_art)
+
+        If srchFieldClearName = "" Then srchFieldClearName = srchField
+
         If dt IsNot Nothing Then
             For Each r As DataRow In dt.Rows
-                list.Add(r(srchField))
+                list.Add(r(srchFieldClearName))
             Next
         End If
         Return list

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -75,6 +75,7 @@ Public Class cKundenErweitert
     Property kde_UIDMehrfachverwendung As Boolean = False
     Property kde_Abrechnung_SendungsdatenAusSTB As Boolean = False
     Property kde_EORIgeprueftAm As Object = Nothing
+    Property kde_AdressZusatz As Object = Nothing
 
     Dim SQL As New SQL
 
@@ -151,6 +152,7 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveNo", kde_CreditSaveNo))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_UIDMehrfachverwendung", kde_UIDMehrfachverwendung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_EORIgeprueftAm", kde_EORIgeprueftAm))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AdressZusatz", kde_AdressZusatz))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb

@@ -83,6 +83,8 @@ Public Class cMitarbeiter
     Property mit_CSpwd As Object = Nothing
     Property mit_PersonalNr As Object = Nothing
     Property mit_timasId As Object = Nothing
+    Property mit_ATGRNAccessCode_AT51FP7 As Object = Nothing
+    Property mit_ATGRNAccessCode_AT52VA6 As Object = Nothing
 
 
 
@@ -184,6 +186,8 @@ Public Class cMitarbeiter
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_CSpwd", mit_CSpwd))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_PersonalNr", mit_PersonalNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasId", mit_timasId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT51FP7", mit_ATGRNAccessCode_AT51FP7))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT52VA6", mit_ATGRNAccessCode_AT52VA6))
 
 
         Return list
@@ -375,7 +379,8 @@ Public Class cMitarbeiter
                             If Not dr.Item("mit_CSpwd") Is DBNull.Value Then Me.mit_CSpwd = dr.Item("mit_CSpwd")
                             If Not dr.Item("mit_PersonalNr") Is DBNull.Value Then Me.mit_PersonalNr = dr.Item("mit_PersonalNr")
                             If Not dr.Item("mit_timasId") Is DBNull.Value Then Me.mit_timasId = dr.Item("mit_timasId")
-
+                            If Not dr.Item("mit_ATGRNAccessCode_AT51FP7") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT51FP7 = dr.Item("mit_ATGRNAccessCode_AT51FP7")
+                            If Not dr.Item("mit_ATGRNAccessCode_AT52VA6") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT52VA6 = dr.Item("mit_ATGRNAccessCode_AT52VA6")
 
 
                         Catch ex As Exception
@@ -400,11 +405,20 @@ Public Class cMitarbeiter
                     mit_id = cAllgemein.MITARBEITER.mit_id
                 End If
             End If
-        Dim sql As New SQL
+            Dim sql As New SQL
             If mit_id > 0 Then sql.doSQL("UPDATE tblMitarbeiter SET mit_ChatEasteregg='" & If(egg, 1, 0) & "' WHERE mit_id=" & mit_id, "ADMIN")
 
         Catch ex As Exception
 
         End Try
     End Sub
+
+
+    Public Shared Function getAccessCodeFrom_GRN(GRN)
+        Select Case If(GRN, "")
+            Case "05AT510000G000FP7" : Return If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ATGRNAccessCode_AT51FP7, "")
+            Case "16AT520000G000VA6" : Return If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ATGRNAccessCode_AT52VA6, "")
+        End Select
+        Return ""
+    End Function
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -48,6 +48,7 @@ Public Class cRechnungsausgang
     Property RechnungsKundenNr As Integer
     Property RechnungsName_1 As Object = Nothing '!!!!
     Property RechnungsName_2 As Object = Nothing '!!!!
+    Property RechnungsName_AdressZusatz As Object = Nothing '!!!!
     Property RechnungsStraße As Object = Nothing
     Property RechnungsOrt As Object = Nothing
     Property RechnungsUstIdKz As Object = Nothing
@@ -281,6 +282,7 @@ Public Class cRechnungsausgang
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsKundenNr", RechnungsKundenNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsName 1", RechnungsName_1, "RechnungsName_1")) '!!!!
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsName 2", RechnungsName_2, "RechnungsName_2")) '!!!!
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsName_AdressZusatz", RechnungsName_AdressZusatz))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsStraße", RechnungsStraße))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsOrt", RechnungsOrt))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdKz", RechnungsUstIdKz))