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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.2.8.7")> <Assembly: AssemblyVersion("4.2.8.8")>
<Assembly: AssemblyFileVersion("4.2.8.7")> <Assembly: AssemblyFileVersion("4.2.8.8")>

3
Aviso/frmLaufzettel.vb
View File

@@ -643,7 +643,4 @@ Public Class frmLaufzettel
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAktenzettelDruck.CheckedChanged
End Sub
End Class End Class

20
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -296,12 +296,20 @@ Public Class frmSendungsdetailsNEU
'End If 'End If
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung
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 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." Dim err = "- ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
'If showErr Then MsgBox(err) : Return False 'If showErr Then MsgBox(err) : Return False
End If End If
End If
End If End If
End If End If
@@ -4981,15 +4989,22 @@ Public Class frmSendungsdetailsNEU
Try Try
Dim files As New List(Of String) ' 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 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 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 Next
VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile) VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile)
If outputFile <> "" AndAlso counter > 0 Then
Process.Start(outputFile) Process.Start(outputFile)
End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -7988,6 +8003,9 @@ Public Class frmSendungsdetailsNEU
Exit Sub Exit Sub
End If 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 If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung <> "EUR" Then
MsgBox("Warenwert der Gestellung darf nur in EUR angegeben werden") MsgBox("Warenwert der Gestellung darf nur in EUR angegeben werden")
Exit Sub Exit Sub

6
Aviso/usrCntlSND_ATBGestellung.vb
View File

@@ -127,7 +127,7 @@ Public Class usrCntlSND_ATBGestellung
If isZollern(SND) Then 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 Case Sicherheiten_Standort.IMEX
firmaId = 20 firmaId = 20
Case Sicherheiten_Standort.ZOLLERN Case Sicherheiten_Standort.ZOLLERN
firmaId = 99 firmaId = 90
End Select End Select
With frm With frm
@@ -277,7 +277,7 @@ Public Class usrCntlSND_ATBGestellung
If isZollern(SND) Then If isZollern(SND) Then
Standort = Sicherheiten_Standort.ZOLLERN : firmaId = 99 Standort = Sicherheiten_Standort.ZOLLERN : firmaId = 90
End If End If