edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

Browse Source
This commit is contained in:
d.breimaier
2025-01-17 15:56:22 +01:00
parent cd136faac2 3ae993608e
commit d02b7f1dea
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/kunden/usrCntlKundenuebersicht.vb
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

6
SDL/mdm/frmMDMDatenverarbetiung.vb
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()