ATR, Fakt (UNISPED Vorlage Zahlungsziel), Preise

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -76,6 +76,7 @@ Public Class cKundenErweitert
     Property kde_Abrechnung_SendungsdatenAusSTB As Boolean = False
     Property kde_EORIgeprueftAm As Object = Nothing
     Property kde_AdressZusatz As Object = Nothing
+    Property kde_abweichendesZZVL As Object = Nothing
 
     Dim SQL As New SQL
 
@@ -153,6 +154,7 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_UIDMehrfachverwendung", kde_UIDMehrfachverwendung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_EORIgeprueftAm", kde_EORIgeprueftAm))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AdressZusatz", kde_AdressZusatz))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_abweichendesZZVL", kde_abweichendesZZVL))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb

@@ -14,8 +14,8 @@ Public Class cOrigianlATR
     Property atr_empfaengerkdnr As Integer = -1
     Property atr_absenderkdnr As Integer = -1
     Property atr_austellungsdatum As Object = Nothing
-    Property atr_AvisoId As Object = Nothing
-    Property atr_SendungsId As Object = Nothing
+    Property atr_AvisoId As Integer = -1
+    Property atr_SendungsId As Integer = -1
     Property atr_LKW As Object = Nothing
     Property atr_dsId As Object = Nothing
     Property atr_DHL_ReferenzNr As Object = Nothing

VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb

@@ -614,8 +614,9 @@ Class TrdInvoice_FUNCTIONS
                  Count(1) AS RK_Satzzähler
                 FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
                 WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & If(Buchungsjahr > 0, " and Buchungsjahr=" & Buchungsjahr, "") & "
-                GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
+                                GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
                 ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);"
+        '" & If(Firma = 4, " and Rechnungsausgang.RechnungsNr='23800029'", "") & "
     End Function