From 9f1092fc191cf44ab2df72ae1af3095a7ad73ee1 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 6 Feb 2026 09:36:22 +0100 Subject: [PATCH] Fomulare, etc. --- .../subRptLaufzettelZollDE_Vorpapier.vb | 4 +++- SDL/Formulare/KDFormulare/frmFormulare.vb | 18 ++++++++---------- 2 files changed, 11 insertions(+), 11 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb index 306c11a0..e5db058c 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb @@ -46,7 +46,9 @@ Public Class subRptLaufzettelZollDE_Vorpapier picBarcodeMRN.Location = New PointF(picBarcodeMRN.Location.X - 0.5, picBarcodeMRN.Location.Y) ATAMRN = "(" & ATAMRN & ")" - txtATAMRN.Font = New Document.Drawing.Font("Microsoft Sans Serif", 10, GrapeCity.ActiveReports.Document.Drawing.FontStyle.Regular) ' kleiner schreiben + txtATAMRN.Font = New GrapeCity.ActiveReports.Document.Drawing.Font("Microsoft Sans Serif", 10, GrapeCity.ActiveReports.Document.Drawing.FontStyle.Regular) ' kleiner schreiben + + End If End If Catch ex As Exception diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 78c5c35a..a759f269 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -1961,7 +1961,9 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVmDat.Text, 25, 260, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVmDat.Text, 25, 260, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT)) + + Dim dat As Date = Now If usrCntl.txtOrt.Text <> "" Then @@ -1971,16 +1973,17 @@ Public Class FormularManagerNEU Else If (IsDate(usrCntl.datDatum.Text)) AndAlso usrCntl.cbxDatum.Checked Then + + + dat = CDate(usrCntl.datDatum.Value) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.datDatum.Text, 50, 269, 90, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) End If End If - - - - Dim top = 0 If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then top = 25 @@ -1992,11 +1995,6 @@ Public Class FormularManagerNEU listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "") End If - Dim dat As Date = Now - - If IsDate(usrCntl.txtVmDat.Text) Then - dat = CDate(usrCntl.txtVmDat.Text) - End If If dat < CDate("01.01.2023") Then