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

Leigheld

Browse Source
This commit is contained in:
d.breimaier
2025-12-23 08:53:27 +01:00
parent df4ae4cd01
commit 31f391b4f9
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Fakturierung/cFakturierung.vb
View File

@@ -3629,14 +3629,14 @@ Public Class cFakturierung
Dim PATH_Org = path Dim PATH_Org = path
Dim pdfReader As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(PATH_Org) Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(PATH_Org)
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
If page = 1 Then If page = 1 Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , iTextSharp.text.Element.ALIGN_LEFT, page)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , itextsharp.text.Element.ALIGN_LEFT, page))
Else Else
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RG.RechnungsNr, 7, 0.5, 100, 20, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT, page)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RG.RechnungsNr, 7, 0.5, 100, 20, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, page))
End If End If
Next Next

1
SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb generated
View File

@@ -809,6 +809,7 @@ Partial Class frmNacherfassungLeihgeld
Me.lblGesperrt.Size = New System.Drawing.Size(69, 16) Me.lblGesperrt.Size = New System.Drawing.Size(69, 16)
Me.lblGesperrt.TabIndex = 214 Me.lblGesperrt.TabIndex = 214
Me.lblGesperrt.Text = "gesperrt!" Me.lblGesperrt.Text = "gesperrt!"
Me.lblGesperrt.Visible = False
' '
'frmNacherfassungLeihgeld 'frmNacherfassungLeihgeld
' '