neu

Aviso/Classes/cSendungsoptions.vb

@@ -132,7 +132,7 @@ Public Class SendungOptions
     End Sub
 
 
-    Shared Sub PrintSendung(art As String, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, AVISO As cAviso, Optional Printername As String = "", Optional TYP As String = "AKT")
+    Shared Sub PrintSendung(art As String, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, AVISO As cAviso, Optional Printername As String = "", Optional TYP As String = "AKT", Optional SendungsAnzahlAviso As Integer = -1)
         'TYP --> LAUFZETTEL
         Dim ADMIN As New cADMIN
 
@@ -307,6 +307,10 @@ Public Class SendungOptions
         If CBool(VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([Vorkasse],0) FROM [Kunden] where KundenNr=" & SENDUNG.tblSnd_AuftraggeberKdNr, "FMZOLL",,, False)) Then VALUES.Auftraggeber_VK = "€ VK"
 
 
+        If SendungsAnzahlAviso < 0 Then
+            SendungsAnzahlAviso = VERAGSQL.getValueTxtBySql("SELECT COUNT(*) FROM tblSendungen where tblSnd_AvisoID=" & AVISO.AvisoID, "AVISO")
+        End If
+        VALUES.SchnellAbfertigung = (SendungsAnzahlAviso = 1)
 
         SENDUNG.LOAD_ABRECHNUNG() 'Daten holen
         Dim abfertKostKdnr As Integer = -1
@@ -417,7 +421,7 @@ Public Class SendungOptions
             End If
 
             Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
-            If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
+            If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString, SENDUNG.tblSnd_DakosyRef) Then
                 ZOLLANMELDUNG = Nothing
             End If