Mahnlauf, FaktAbrechnung, Fremdrechnungen, MDM-Functions

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -34,7 +34,7 @@ Public Class frmMDMDatenverarbetiung
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         Select Case LIEFERANT
-            Case "PLOSE" : genSummenbericht_PLOSE()
+            Case "PLOSE" : genSummenbericht_PLOSE() : genSummenbericht_nachLand_PLOSE()
             Case "ASFINAG" : genSummenbericht_ASFINAG()
             Case "UTA" : genSummenbericht_UTA()
             Case "IDS" : genSummenbericht_IDS(17, cbxIDSmitVerag.Checked) : genSummenbericht_IDS(21, cbxIDSmitVerag.Checked)
@@ -303,6 +303,100 @@ Public Class frmMDMDatenverarbetiung
         print.Show()
     End Sub
 
+    Sub genSummenbericht_nachLand_PLOSE()
+        Dim displayFilter = False
+        Dim sqlstr As String = ""
+        sqlstr = "SELECT
+                    COUNT(*) AS Anzahl,
+                    [plInv_SupplierCountry],
+                    SUM([plInv_Nettobetrag])   AS plose_Nettobetrag,
+                    SUM([plInv_MWSTBetrag])    AS plose_MWSTBetrag,
+                    SUM([plInv_Bruttobetrag])  AS plose_Bruttobetrag,
+                    isnull([plInv_Currency],'EUR')            AS Währung
+                FROM [tblPLOSE_Inv_Data]
+                WHERE [plInv_SupplierRechnungsDatum] >= (
+                    SELECT MIN(plose_RechnungsDatum)
+                    FROM tblPLOSE_Details
+                    WHERE plose_DatumTransaktion BETWEEN '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'
+                      AND plose_Fakturiert = 0
+                      AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & ")
+                )
+                GROUP BY
+                    [plInv_SupplierCountry],
+                    [plInv_Currency]
+                ORDER BY
+                    [plInv_SupplierCountry]"
+
+
+        Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
+        'DataGridView.DataSource = dt
+
+
+        Dim print As New frmPrintLayout
+        print.Text = "PLOSE"
+
+        Dim rpt As New rptPLOSE_TransaktionenSumary
+
+        rpt.DataSource = dt
+
+
+        'If cbxProdukt.Checked Then
+        '    rpt.GroupHeader2.DataField = "prod_descr"
+        'Else
+        '    rpt.GroupHeader2.Visible = False
+        '    rpt.GroupFooter2.Visible = False
+        'End If
+
+
+
+        Dim sum = 0
+        rpt.lblUeberschrift.Text = "PLOSE Summenbericht nach Land " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text
+        rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+        'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung
+
+        'Dim cnt As Integer = 0
+        rpt.lblDat.Text = Now.ToLongDateString
+
+
+        Dim sumPreis As Double = 0
+        Dim sumNetto As Double = 0
+        Dim sumMWST As Double = 0
+        Dim sumBrutto As Double = 0
+        Dim sumMenge As Double = 0
+
+        AddHandler rpt.Detail.Format, Sub()
+                                          '   rpt.lblProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
+                                          rpt.lblAnzahl.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Anzahl").Value, "")
+                                          rpt.lblProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plInv_SupplierCountry").Value, "")
+                                          rpt.lblMenge.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Währung").Value, "")
+                                          ' rpt.lblPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "")
+                                          rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 2, "")
+                                          rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
+                                          rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 2, "")
+
+
+
+                                          sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 4, 0)
+                                          sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
+                                          sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 4, 0)
+
+                                      End Sub
+
+
+        AddHandler rpt.ReportFooter1.Format, Sub()
+                                                 rpt.lblSumMenge.Text = sumMenge.ToString("N0")
+                                                 'rpt.lblSumPreis.Text = sumPreis.ToString("N2")
+                                                 rpt.lblSumNetto.Text = sumNetto.ToString("N2")
+                                                 rpt.lblSumMwst.Text = sumMWST.ToString("N2")
+                                                 rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
+
+                                             End Sub
+
+        print.Viewer.LoadDocument(rpt)
+        print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
+        print.Show()
+    End Sub
+
     Sub genSummenbericht_ASFINAG()
         Dim displayFilter = False
         Dim sqlstr As String = ""