neu

UID/Classes/cDienstSettings.vb

@@ -16,6 +16,7 @@ Public Class cDienstSettings
     Property dpset_AbfAuswertung As Boolean
     Property dpset_StudenAuswertung As Boolean
     Property dpset_AvisoAuswertung As Boolean
+    Property dpset_land As String
 
 
 
@@ -26,6 +27,7 @@ Public Class cDienstSettings
         LOAD()
     End Sub
 
+
     Function getParameterList() As List(Of SQLVariable)
         Dim list As New List(Of SQLVariable)
         list.Add(New SQLVariable("dpset_id", dpset_id, , True))
@@ -42,6 +44,7 @@ Public Class cDienstSettings
         list.Add(New SQLVariable("dpset_AbfAuswertung", dpset_AbfAuswertung))
         list.Add(New SQLVariable("dpset_StudenAuswertung", dpset_StudenAuswertung))
         list.Add(New SQLVariable("dpset_AvisoAuswertung", dpset_AvisoAuswertung))
+        list.Add(New SQLVariable("dpset_land", dpset_land))
         Return list
     End Function
 
@@ -88,6 +91,26 @@ Public Class cDienstSettings
 
 
 
+    Shared Function getLand(dpset_niederlassung) As String
+        getLand = "AT" 'Defaut
+        Try
+            Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+                Using cmd As New SqlCommand("SELECT dpset_land FROM tblDienstSettings WHERE dpset_niederlassung=@dpset_niederlassung  ", conn)
+                    cmd.Parameters.AddWithValue("@dpset_niederlassung", dpset_niederlassung)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        getLand = dr.Item(0)
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Function
+
+
+
     Public Function getUpdateCmd() As String
         Try
             Dim list As List(Of SQLVariable) = getParameterList()