ustva, etc.

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb

@@ -12,6 +12,7 @@ Public Class cUStVLeistender
     Property UstV_Leistender_UstNr As Object = Nothing
     Property UstV_Leistender_Adresse As Boolean
     Property UStV_LeistenderId As Integer
+    Property UstV_aktiv As Boolean
 
     Public hasEntry = False
 
@@ -52,6 +53,7 @@ Public Class cUStVLeistender
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_UstNr", UstV_Leistender_UstNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Adresse", UstV_Leistender_Adresse))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_LeistenderId", UStV_LeistenderId,, True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_aktiv", UstV_aktiv))
         Return list
         End Function
 

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -988,7 +988,7 @@ Public Class cMDMFunctionsAllgemein
                             For page As Integer = 1 To pdfReader.NumberOfPages
                                 Dim canvas As PdfContentByte = stamper.GetOverContent(page)
                                 Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.WINANSI, BaseFont.EMBEDDED)
-                                canvas.SetFontAndSize(bf, 12)
+                                canvas.SetFontAndSize(bf, 16)
                                 canvas.BeginText()
 
                                 'The origin (0,0) is at the bottom-left corner of the page and represent coordinates in points!!!!!