div. Auswertungen f. Siener, Sicherheit_3470

SDL/Administration/usrCntlAdministration.vb

@@ -1,4 +1,8 @@
-Public Class usrCntlAdministration
+Imports com.sun.tools.internal.xjc.reader.gbind
+Imports GrapeCity.ActiveReports.ReportsCore.Tools
+Imports GrapeCity.Viewer.Common.Model
+
+Public Class usrCntlAdministration
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Private Sub btnWord_Click(sender As Object, e As EventArgs) Handles btnWord.Click
@@ -293,4 +297,50 @@
         Dim frmKasseJournalNeuBerechnen As New frmKasseJournalNeuBerechnen
         frmKasseJournalNeuBerechnen.Show(Me)
     End Sub
+
+    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click, Button13.Click, Button14.Click
+
+        Dim sqlString = ""
+
+        Select Case sender.Name
+            Case "Button12"
+                sqlString = "SELECT Vorkosten.FilialenNr, Vorkosten.AbfertigungsNr, Vorkosten.Preis, Speditionsbuch.Abfertigungsdatum 
+                                FROM Vorkosten INNER JOIN Speditionsbuch ON (Vorkosten.UnterNr = Speditionsbuch.UnterNr) AND (Vorkosten.AbfertigungsNr = Speditionsbuch.AbfertigungsNr) AND (Vorkosten.FilialenNr = Speditionsbuch.FilialenNr)
+                                GROUP BY Vorkosten.FilialenNr, Vorkosten.AbfertigungsNr, Vorkosten.Preis, Speditionsbuch.Abfertigungsdatum
+                                HAVING (Vorkosten.FilialenNr=7001) AND (Speditionsbuch.Abfertigungsdatum) Between '" & dt_von.Value.ToShortDateString & "' And '" & dt_bis.Value.ToShortDateString & "'"
+            Case "Button13"
+
+                Dim FilialenNr = InputBox("Filialen angeben", "Ostländer verrechnet", "4803,4807,4809,4811,4814,4815,4817,4819,4820,4821,4822,4823,4867,4868,4869,5003,5103")
+                Dim LeistungsNr = InputBox("LeistungsNr angeben", "Ostländer verrechnet", "109,112,260,261,300,301,302,303,304,305,306,307,308,309,310,311,314,315,316,317,319,320,321,322,323,324,325,332,333,334,335,340,341,342,343,344,347,350,351,352,353,354,356,357,358,380,418,422,435,440,441,470,501,502,503,504,505,506,520,521,529,572,610,700,710,750,760")
+
+                sqlString = "SELECT Adressen.LandKz, ROUND(Sum(dbo.fktEuro([RechnungsausgangPositionen].[SteuerpflichtigerBetrag]+[RechnungsausgangPositionen].[SteuerfreierBetrag],[Währungscode],'EUR')), 2) AS EURO
+                            FROM (Adressen INNER JOIN Rechnungsausgang ON Adressen.AdressenNr = Rechnungsausgang.RechnungsKundenNr) 
+                            INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
+                            WHERE RechnungsausgangPositionen.LeistungsNr In (" & LeistungsNr & ") 
+                            AND Rechnungsausgang.Abfertigungsdatum Between '" & dt_von.Value.ToShortDateString & "' And '" & dt_bis.Value.ToShortDateString & "'
+                            AND Rechnungsausgang.FilialenNr In (" & FilialenNr & ")
+                            GROUP BY Adressen.LandKz"
+            Case "Button14"
+                Dim FilialenNr = InputBox("Filialen für Barzahlungen angeben", "Ostländer Bar", "4803,4805,5303")
+                sqlString = "SELECT Speditionsbuch.Abfertigungsart, Sum(Speditionsbuch.Barzahlungsbetrag) AS 'Summe von Barzahlungsbetrag'
+                            FROM Speditionsbuch
+                            WHERE Speditionsbuch.FilialenNr In (" & FilialenNr & ") AND Speditionsbuch.Abfertigungsdatum Between '" & dt_von.Value.ToShortDateString & "' And '" & dt_bis.Value.ToShortDateString & "' AND Speditionsbuch.Bar = 1
+                            GROUP BY Speditionsbuch.Abfertigungsart;"
+        End Select
+
+
+        Dim dt As DataTable = SQL.loadDgvBySql(sqlString, "FMZOLL")
+
+        If dt.Rows.Count > 0 Then
+
+            cProgramFunctions.genExcelFromDT_NEW(dt)
+
+        Else
+            MsgBox("keine Daten!")
+
+        End If
+
+
+    End Sub
+
 End Class