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

Sendungsdetails (Druckprüfung)

Browse Source
This commit is contained in:
d.breimaier
2024-09-11 11:59:04 +02:00
parent 97ad7c45cb
commit 036984b07b
2 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/Classes/cSendungsoptions.vb
View File

@@ -285,7 +285,7 @@ Public Class SendungOptions
VALUES.Frachtfuehrer_Bar_Betrag3 = CDbl(dt.Rows(2)("rksv_umsatz")).ToString("C2") VALUES.Frachtfuehrer_Bar_Betrag3 = CDbl(dt.Rows(2)("rksv_umsatz")).ToString("C2")
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
'If SENDUNG.tblSnd_bar IsNot Nothing AndAlso CBool(SENDUNG.tblSnd_bar) Then 'If SENDUNG.tblSnd_bar IsNot Nothing AndAlso CBool(SENDUNG.tblSnd_bar) Then
@@ -468,7 +468,7 @@ Public Class SendungOptions
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
' If art = "PRINT" Then ' If art = "PRINT" Then
'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW) 'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW)
@@ -658,7 +658,7 @@ Public Class SendungOptions
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
' If art = "PRINT" Then ' If art = "PRINT" Then
'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW) 'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW)

7
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -5397,10 +5397,15 @@ Public Class frmSendungsdetailsNEU
'Handelsrechnungen 'Handelsrechnungen
Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, SENDUNG.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, SENDUNG.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
Dim invoicePrinted As Boolean = False
For Each l In ANH_LIST_SND For Each l In ANH_LIST_SND
Select Case l.anh_Art.ToString.ToUpper Select Case l.anh_Art.ToString.ToUpper
Case "RECHNUNG", "HANDELSRECHNUNG", "EFATURA", "EUR1" Case "RECHNUNG", "HANDELSRECHNUNG"
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)}) VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
invoicePrinted = True
Case "EFATURA", "EUR1"
If Not invoicePrinted Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
End Select End Select
Next Next
For Each l In ANH_LIST_SND For Each l In ANH_LIST_SND