From f4d8b6dfa3bdd826e888a0d49857033781e9b415 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 15 Jan 2025 22:20:50 +0100 Subject: [PATCH] vers --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/kunden/usrCntlKundenuebersicht.vb | 5 +++++ SDL/mdm/frmMDMDatenverarbetiung.vb | 6 +++--- 3 files changed, 10 insertions(+), 5 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index d3423d08..35501df4 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 0c669c91..f041abfa 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -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 diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index fd35c5e5..a4294d96 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -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()