This commit is contained in:
2025-01-15 22:20:50 +01:00
parent 59a7375898
commit f4d8b6dfa3
3 changed files with 10 additions and 5 deletions

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.4.6")>
<Assembly: AssemblyFileVersion("1.3.4.6")>
<Assembly: AssemblyVersion("1.3.4.8")>
<Assembly: AssemblyFileVersion("1.3.4.8")>

View File

@@ -166,6 +166,11 @@ Public Class usrCntlKundenuebersicht
btnBonitaetBearbeiten.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_SeeHoechstKredit", "SDL") Then
lblHoechstkredit.Visible = True
Label69.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Vorauskasse_anzeigen", "SDL") Then
txtVorauskasse.Visible = True
lblVorkasse.Visible = True

View File

@@ -1,6 +1,6 @@
Imports System.Data.OleDb
Imports System.IO
Imports itextsharp.text.pdf
Imports iTextSharp.text.pdf
Imports MDM_Worker
Imports VERAG_PROG_ALLGEMEIN
@@ -1549,13 +1549,13 @@ Public Class frmMDMDatenverarbetiung
Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(IDS("InvoiceID"))
If cbxKopie.Checked Then
Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(DS.GET_TOP1_PATH)
Dim pdfReader As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(DS.GET_TOP1_PATH)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
For page As Integer = 1 To pdfReader.NumberOfPages
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("COPY ", 175, 38, 300, 20, "bold", 20, , itextsharp.text.Element.ALIGN_LEFT, page))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("COPY ", 175, 38, 300, 20, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT, page))
Next
pdfReader.Close()