neu

VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb

@@ -332,7 +332,7 @@ Class TrdInvoice_FUNCTIONS
             Dim WährungsdifferenzSteuerpflichtigerBetrag As Double
             Dim WährungsdifferenzSteuerfreierBetrag As Integer
 
-            Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma), "FMZOLL")
+            Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma), "FMZOLL", 2400)
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 For Each ROW In dt.Rows
                     Dim TRD_INVOICE As New VERAG_PROG_ALLGEMEIN.cTrdInvoice(ROW("RK_RechnungsDatum"), ROW("RK_RechnungsNr"))