From ddc14dfe2a25fe279de96e08c815527911c79dc9 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 8 Jun 2026 09:29:53 +0200 Subject: [PATCH 1/6] Pruefung Vorpapier T1 --- Aviso/frmSendungsdetailsNEU.vb | 21 ++++++++++++++++----- 1 file changed, 16 insertions(+), 5 deletions(-) diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 645972d..9953ebf 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -296,12 +296,20 @@ Public Class frmSendungsdetailsNEU 'End If If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung - If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then - Dim err = "- ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte." - rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True - 'If showErr Then MsgBox(err) : Return False - End If + If Not IsValid18AlphaNumericCode(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1) Then + Dim err = "T1/Vorpapier nicht korrekt (18-stellig)!" + rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True + + Else + + If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then + Dim err = "- ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte." + rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True + 'If showErr Then MsgBox(err) : Return False + End If + + End If End If End If @@ -7989,6 +7997,9 @@ Public Class frmSendungsdetailsNEU Exit Sub End If + If Not IsValid18AlphaNumericCode(vorpT1) Then MsgBox("T1/Vorpapier nicht korrekt (18-stellig)!") : Exit Sub + + If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung <> "EUR" Then MsgBox("Warenwert der Gestellung darf nur in EUR angegeben werden") Exit Sub From b4f812062bf833657cbadc023181ec61eef2676d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 8 Jun 2026 16:22:59 +0200 Subject: [PATCH 2/6] sendungsdet, etc. --- Aviso/frmSendungsdetailsNEU.vb | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 9953ebf..e5dddd3 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -4990,15 +4990,22 @@ Public Class frmSendungsdetailsNEU Try Dim files As New List(Of String) ' Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf" + Dim counter As Integer = 0 For Each r As DataGridViewRow In dgvAnhang.SelectedRows - If r.Cells("anh_Typ").Value.ToString.ToLower = "pdf" Then files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)) + If r.Cells("anh_Typ").Value.ToString.ToLower = "pdf" Then + files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)) + counter += 1 + End If Next + VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile) - Process.Start(outputFile) + If outputFile <> "" AndAlso counter > 0 Then + Process.Start(outputFile) + End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) From a583a220c55d29897cd9003af9e634821a4bd072 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 8 Jun 2026 17:21:22 +0200 Subject: [PATCH 3/6] version --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index b2a515b..7e8fb01 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + From 911d50d8aa23ab0a24e710d6d24e255985d2e942 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 10 Jun 2026 11:49:05 +0200 Subject: [PATCH 4/6] fix --- Aviso/frmLaufzettel.vb | 3 --- 1 file changed, 3 deletions(-) diff --git a/Aviso/frmLaufzettel.vb b/Aviso/frmLaufzettel.vb index e9fc87d..f407627 100644 --- a/Aviso/frmLaufzettel.vb +++ b/Aviso/frmLaufzettel.vb @@ -643,7 +643,4 @@ Public Class frmLaufzettel Me.Cursor = Cursors.Default End Sub - Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAktenzettelDruck.CheckedChanged - - End Sub End Class \ No newline at end of file From a5d1e847f305f048531166733eafdba5c9bbd644 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 10 Jun 2026 16:52:58 +0200 Subject: [PATCH 5/6] Zollern FirmaID korrigiert. --- Aviso/usrCntlSND_ATBGestellung.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Aviso/usrCntlSND_ATBGestellung.vb b/Aviso/usrCntlSND_ATBGestellung.vb index 5633313..8661401 100644 --- a/Aviso/usrCntlSND_ATBGestellung.vb +++ b/Aviso/usrCntlSND_ATBGestellung.vb @@ -127,9 +127,9 @@ Public Class usrCntlSND_ATBGestellung If isZollern(SND) Then - Standort = Sicherheiten_Standort.ZOLLERN : firmaID = 99 + Standort = Sicherheiten_Standort.ZOLLERN : firmaID = 90 - End If + End If @@ -209,7 +209,7 @@ Public Class usrCntlSND_ATBGestellung Case Sicherheiten_Standort.IMEX firmaId = 20 Case Sicherheiten_Standort.ZOLLERN - firmaId = 99 + firmaId = 90 End Select With frm @@ -277,7 +277,7 @@ Public Class usrCntlSND_ATBGestellung If isZollern(SND) Then - Standort = Sicherheiten_Standort.ZOLLERN : firmaId = 99 + Standort = Sicherheiten_Standort.ZOLLERN : firmaId = 90 End If From 817638099e5683e8918e80bec420fb2f0e8c0bc9 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 12 Jun 2026 14:28:47 +0200 Subject: [PATCH 6/6] version --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 7e8fb01..1e2d731 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +