MDMAuswertung, etc.

VERAG_PROG_ALLGEMEIN/AVISO/cMeineFunktionenAVISO.vb

@@ -187,7 +187,7 @@ Public Class cMeineFunktionenAVISO
         Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
         Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
-            MsgBox("Keine Berechtigung!")
+            MsgBox("Keine Berechtigung! - VERIMEX")
             Return False
         End If
 

VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb

@@ -336,36 +336,28 @@ Public Class cRMC
 
 
 
-    Public Shared Function getRMCBelegeOhneRechnungen(SQL As SQL, jahr As Integer) As DataTable
+    Public Shared Function getRMCREchnungenOhneAdressen(SQL As SQL, jahr As Integer, Optional getInvoiceData As Boolean = False) As DataTable
 
 
+        Dim SQLFirst As String = ""
+        If getInvoiceData Then
+            SQLFirst = "SELECT [rmc_kdNr], [rmc_kdName], [rmc_landKZ], [rmc_reDatum], [rmc_reNr], [rmc_waehrung], case WHEN rmc_daid IS NULL THEN 0 else 1 end as PDF_Rechnung, case WHEN rmc_daId_InvAtt IS NULL THEN 0 else 1 end as PDF_Anhang "
+        Else
+            SQLFirst = "SELECT DISTINCT r.rmc_kdNr,r.rmc_kdName "
+        End If
 
 
-        Dim SQLstr = "select Temp.KundenNr, Temp.Kundenname,Temp.LandKZ, Temp.Jahr, Temp.Quartal, sum(Temp.Betrag) as 'verrechneter Bearbeitungsbetrag' from (SELECT
-              USTVA.UStVAn_KuNr as KundenNr,
-              USTVA.UStVAn_Name as Kundenname,
-              [Länderverzeichnis für die Außenhandelsstatistik].LandKz as LandKZ,
-              YEAR(R.Abfertigungsdatum)                    AS Jahr,
-              DATEPART(QUARTER, R.Abfertigungsdatum)       AS Quartal,
-              POS.LeistungsNr,
-              SUM(POS.SteuerfreierBetrag + POS.SteuerpflichtigerBetrag) AS Betrag
-          FROM tblUStVAntrag AS USTVA
-          INNER JOIN Rechnungsausgang AS R ON R.FilialenNr     = USTVA.FilialenNr AND R.AbfertigungsNr = USTVA.AbfertigungsNr
-          INNER JOIN RechnungsausgangPositionen AS POS ON R.RK_ID = POS.RK_ID 
-          INNER JOIN  [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr 
-          
-          GROUP BY
-              USTVA.UStVAn_KuNr,
-              USTVA.UStVAn_Name,
-              [Länderverzeichnis für die Außenhandelsstatistik].LandKz,
-              YEAR(R.Abfertigungsdatum),
-              DATEPART(QUARTER, R.Abfertigungsdatum),
-              POS.LeistungsNr
-          ) as Temp
-          	WHERE 1 = 1 " & IIf(jahr > 0, " AND temp.Quartal = " & jahr, "") & " 
-          	Group by Temp.KundenNr, Temp.Kundenname,Temp.LandKZ, Temp.Jahr, Temp.Quartal"
+        Dim SQLstr = "FROM tblRMCImport r
+                WHERE
+                    r.rmc_reDatum >= '" & jahr & "-01-01'
+                    AND r.rmc_reDatum < '" & jahr + 1 & "-01-01'
+                    AND NOT EXISTS (
+                        SELECT 1 FROM Adressen a WHERE a.WölflKundenNr = r.rmc_kdNr
+                    )
+                    AND NOT EXISTS (
+                        SELECT 1 FROM Adressen a WHERE a.weitereWölflKundenNr = r.rmc_kdNr)"
 
-        Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL")
+        Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLFirst & SQLstr, "FMZOLL")
 
         Return dt