Plose-Prüfung, etc.

MDM_Worker/cPLOSE_Inv_Data.vb

@@ -317,6 +317,33 @@ Public Class cPLOSE_Inv_Data
 
 
 
+    End Function
+
+    Public Shared Function checkImport() As Boolean
+
+        Dim mehrfachIMportiert_SQL As String = "  select plose_Dateiname,  count(distinct(plose_Einlesedatum)) as Einlesedatum from tblPLOSE_Details 
+                                        where  plose_Fakturiert = 0
+                                        group by  plose_Dateiname
+                                        having count(distinct(plose_Einlesedatum))  > 1
+                                        order by plose_Dateiname"
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim dtMehrfachImportiert_DT As DataTable = SQL.loadDgvBySql(mehrfachIMportiert_SQL, "FMZOLL")
+
+
+        If dtMehrfachImportiert_DT.Rows.Count > 0 Then
+
+            If vbYes = MsgBox("ACHTUNG, es wurden  " & dtMehrfachImportiert_DT.Rows.Count & " Abrechnungsdaten mehrfach importiert!" & vbNewLine & "Info anzeigen?", vbYesNo) Then
+                cProgramFunctions.genExcelFromDT_NEW(dtMehrfachImportiert_DT,,, "Mehrfach importierte Dateien")
+            End If
+            Return False
+        Else
+            Return True
+        End If
+
+
+
+
     End Function
 
 

UID/usrctlProcedures.vb

@@ -3473,6 +3473,7 @@ Public Class usrctlProcedures
                     Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(fd.FileName, Encoding.Default)
                         MyReader.TextFieldType = FileIO.FieldType.Delimited
                         MyReader.SetDelimiters(";")
+                        MyReader.HasFieldsEnclosedInQuotes = True ' <— Important line! (semicolon inside quotes will be ignored)
                         Dim currentRow As String()
                         While Not MyReader.EndOfData
                             Try
@@ -3709,7 +3710,27 @@ Public Class usrctlProcedures
                         End While
 
                         If savedDY Then
-                            sql.doSQL("EXECUTE dbo.sp_DeleteDuplicateZollmeldungen", "FMZOLL")
+                            'zuerst alle doppelten löschen und die fehlerhaften zuerst
+                            Dim sql_deleleMultEntries As String = "
+                            	WITH Doppelte AS (
+                                SELECT 
+                                    *,
+                                    ROW_NUMBER() OVER (
+                                        PARTITION BY Registriernummer_MRN, PositionNo, Positionsunterlagenzeile
+                                        ORDER BY (SELECT NULL)
+                                    ) AS rn
+                                FROM [tbl_DY_Zollmeldungen_Import]
+                            
+                            )
+                            
+                            DELETE FROM Doppelte
+                            WHERE rn > 1 and importfile is null;"
+
+                            sql.doSQL(sql_deleleMultEntries, "AVISO")
+
+                            'dann generell alle doppelten löschen
+
+                            sql.doSQL("EXECUTE dbo.sp_DeleteDuplicateZollmeldungen", "AVISO")
                         End If
 
                     End Using