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

merge

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-06-12 19:27:24 +02:00
parent 139ffffed4 817638099e
commit 9ea1ac2aa9
4 changed files with 31 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -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
@@ -4981,15 +4989,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)
@@ -7988,6 +8003,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