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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-01-19 20:26:05 +01:00
parent f25ff457b2
commit 2f7746d9ca
28 changed files with 2921 additions and 329 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Aviso/Classes/cSendungsoptions.vb
View File

@@ -407,7 +407,7 @@ Public Class SendungOptions
ElseIf SENDUNG.FilialenNr = "5601" Then
imgpath = resPath & "UNISPED.png"
ElseIf SENDUNG.FilialenNr = "5701" Then
imgpath = resPath & "AMBAR.png"
imgpath = resPath & "AMB.png"
Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
Case "SUB"
@@ -429,9 +429,12 @@ Public Class SendungOptions
ZOLLANMELDUNG = Nothing
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
SENDUNG.LOAD_VORKOSTEN()
End If
Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, SENDUNG.HANDLING)
Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, SENDUNG.HANDLING, SENDUNG.VORKOSTEN)
rpt.Document.CacheToDisk = False
'rpt.Document.CacheToDisk = True