fakt, etc.

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -2452,23 +2452,17 @@ Public Class frmMDMDatenverarbetiung
                 FROM [VERAG].[dbo].[tblIDSTransactionsNew_Details] as det
                 inner join [tblIDSTransactionsNew] as trans on det.[YearMonthDay] = trans.[YearMonthDay] and det.[CustomerCode] = trans.[CustomerCode] and det.[OutletCountryCode] = trans.[OutletCountryCode] and det.[OutletCode] = trans.[OutletCode] and det.[ProductTypeCode] = trans.[ProductTypeCode]
                 inner join  [VERAG].[dbo].[tbl_IDS_Länder] as land on det.OutletCountryCode = land.OutletCountryCode
-                where  cast(det.[YearMonthDay] as date) = '" & DateTimePicker2.Text & "' and trans.charged = 0
+                where  cast(det.[YearMonthDay] as date) = '" & DateTimePicker2.Text & "' and trans.charged = 1
                 group by trans.KdNrVERAG,det.CustomerCode, det.[YearMonthDay], det.CardNumber, land.Lieferland_ISO2, det.LicencePlateNumber,det.Transactiondate "
 
 
             Dim dt As DataTable = SQL.loadDgvBySql_Param(SQL_IDS, "FMZOLL")
 
+            Dim sqlstrBULKIMPORT As String = "SELECT *, cast( '" & datPloseAnhang.Text & "' as date) as Billingdate FROM ( " & SQL_IDS & " ) AS TEMP ORDER BY TEMP.[Customer No];"
+            Dim updated As Boolean = False
 
 
-
-
-            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-
-                Dim sqlstrBULKIMPORT As String = "SELECT *, cast( '" & datPloseAnhang.Text & "' as date) as Billingdate FROM ( " & SQL_IDS & " ) AS TEMP ORDER BY TEMP.[Customer No];"
-                Dim updated As Boolean = False
-
-
-                Dim InsertSatement As String = " INSERT INTO tblMautbericht
+            Dim InsertSatement As String = " INSERT INTO tblMautbericht
                                                     (
                                                     Datenquelle,
                                                     [Customer No],
@@ -2491,9 +2485,9 @@ Public Class frmMDMDatenverarbetiung
 
                 End If
 
-            End If
-            pic.Visible = True
-            Return True
+
+            pic.Visible = updated
+            Return updated
 
         Catch ex As System.Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)