Wölfl Report->RG-Nr; TextToPDF->PageNum

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -169,6 +169,15 @@ Public Class SQL
     End Function
 
 
+    Public Shared Function GetEZOLL_UNISPEDConnectionString() As String
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            Return My.MySettings.Default.EZOLL_UNISPEDConnectionString
+        Else
+            Return My.MySettings.Default.EZOLL_UNISPEDConnectionString
+        End If
+    End Function
+
+
     Public Shared Function GetAVISOConnectionString() As String
         If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
             Return My.MySettings.Default.AVISOConnectionStringTEST
@@ -402,6 +411,26 @@ Public Class SQL
         End Try
         Return Nothing
 
+    End Function
+    Public Shared Function GetNewOpenConnectionEZOLL_UNISPED() As SqlConnection
+        Dim cn As New SqlConnection()
+        Try
+            cn.ConnectionString = GetEZOLL_UNISPEDConnectionString()
+            cn.Open()
+            Return cn
+        Catch
+            System.Threading.Thread.Sleep(500) 'warten...
+            '2.Versuch
+            Try
+                cn.ConnectionString = GetEZOLL_UNISPEDConnectionString()
+                cn.Open()
+                Return cn
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End Try
+        Return Nothing
+
     End Function
 
     Public Shared Function GetNewOpenConnectionAVISO() As SqlConnection
@@ -519,6 +548,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 "FD" : conn = GetNewOpenConnectionFD()

VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb

@@ -28,8 +28,8 @@ Public Class cDHF_Anhaenge
         End If
     End Sub
 
-    Sub New(AnmID, MsgTyp)
-        LOAD(AnmID, MsgTyp)
+    Sub New(AnmID, MsgTyp, LizenzNr)
+        LOAD(AnmID, MsgTyp, LizenzNr)
     End Sub
 
 
@@ -91,12 +91,13 @@ Public Class cDHF_Anhaenge
         End Try
     End Sub
 
-    Public Sub LOAD(AnmID, MsgTyp)
+    Public Sub LOAD(AnmID, MsgTyp, LizenzNr)
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE AnmID=@AnmID AND MsgTyp=@MsgTyp ", conn)
+                Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE AnmID=@AnmID AND MsgTyp=@MsgTyp AND LizenzNr=@LizenzNr ", conn)
                     cmd.Parameters.AddWithValue("@AnmID", AnmID)
                     cmd.Parameters.AddWithValue("@MsgTyp", MsgTyp)
+                    cmd.Parameters.AddWithValue("@LizenzNr", LizenzNr)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
                         For Each li In getParameterList()

VERAG_PROG_ALLGEMEIN/Classes/cPDFWriteValues.vb

@@ -8,10 +8,11 @@ Public Class cPDFWriteValues
     Private mfont As String
     Private mSize As Integer
     Private maxlength As Integer = -1
+    Private page As Integer = 1
     Private align As Integer = iTextSharp.text.Element.ALIGN_LEFT 'PdfContentByte.ALIGN_LEFT
 
 
-    Public Sub New(ByVal sText As String, ByVal X As Double, ByVal Y As Double, ByVal width As Double, ByVal height As Double, ByVal mfont As String, ByVal mSize As Integer, Optional ByVal maxlength As Integer = -1, Optional ByVal align As Integer = iTextSharp.text.Element.ALIGN_LEFT)
+    Public Sub New(ByVal sText As String, ByVal X As Double, ByVal Y As Double, ByVal width As Double, ByVal height As Double, ByVal mfont As String, ByVal mSize As Integer, Optional ByVal maxlength As Integer = -1, Optional ByVal align As Integer = iTextSharp.text.Element.ALIGN_LEFT, Optional ByVal page As Integer = 1)
         Me.sText = sText
         Me.X = X
         Me.Y = Y
@@ -21,6 +22,7 @@ Public Class cPDFWriteValues
         Me.mSize = mSize
         Me.maxlength = maxlength
         Me.align = align
+        Me.page = page
     End Sub
 
     Public ReadOnly Property Text() As Object
@@ -72,6 +74,11 @@ Public Class cPDFWriteValues
             Return align
         End Get
     End Property
+    Public ReadOnly Property getPage() As Object
+        Get
+            Return page
+        End Get
+    End Property
 
     '  Public Overrides Function ToString() As Object
     '      Return mText