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

4
Aviso/My Project/AssemblyInfo.vb
View File

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

3
Aviso/frmLaufzettel.vb
View File

@@ -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

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

8
Aviso/usrCntlSND_ATBGestellung.vb
View File

@@ -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