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

vers

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-15 22:20:50 +01:00
parent 59a7375898
commit f4d8b6dfa3
3 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

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

5
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -166,6 +166,11 @@ Public Class usrCntlKundenuebersicht
btnBonitaetBearbeiten.Visible = True btnBonitaetBearbeiten.Visible = True
End If 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 If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Vorauskasse_anzeigen", "SDL") Then
txtVorauskasse.Visible = True txtVorauskasse.Visible = True
lblVorkasse.Visible = True lblVorkasse.Visible = True

6
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1,6 +1,6 @@
Imports System.Data.OleDb Imports System.Data.OleDb
Imports System.IO Imports System.IO
Imports itextsharp.text.pdf Imports iTextSharp.text.pdf
Imports MDM_Worker Imports MDM_Worker
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -1549,13 +1549,13 @@ Public Class frmMDMDatenverarbetiung
Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(IDS("InvoiceID")) Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(IDS("InvoiceID"))
If cbxKopie.Checked Then 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 fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
For page As Integer = 1 To pdfReader.NumberOfPages 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 Next
pdfReader.Close() pdfReader.Close()