div. Auswertungen f. Siener, Sicherheit_3470
This commit is contained in:
97
SDL/Administration/usrCntlAdministration.Designer.vb
generated
97
SDL/Administration/usrCntlAdministration.Designer.vb
generated
@@ -52,6 +52,13 @@ Partial Class usrCntlAdministration
|
||||
Me.datKostenstelleBis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.datKostenstelleVon = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Button10 = New System.Windows.Forms.Button()
|
||||
Me.Button12 = New System.Windows.Forms.Button()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.Button13 = New System.Windows.Forms.Button()
|
||||
Me.Button14 = New System.Windows.Forms.Button()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.dt_bis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.dt_von = New System.Windows.Forms.DateTimePicker()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
@@ -324,10 +331,12 @@ Partial Class usrCntlAdministration
|
||||
Me.txtKostenstelleJahr._DateTimeOnly = False
|
||||
Me.txtKostenstelleJahr._numbersOnly = True
|
||||
Me.txtKostenstelleJahr._numbersOnlyKommastellen = ""
|
||||
Me.txtKostenstelleJahr._numbersOnlyTrennzeichen = True
|
||||
Me.txtKostenstelleJahr._Prozent = False
|
||||
Me.txtKostenstelleJahr._ShortDateNew = False
|
||||
Me.txtKostenstelleJahr._ShortDateOnly = False
|
||||
Me.txtKostenstelleJahr._TimeOnly = False
|
||||
Me.txtKostenstelleJahr._TimeOnly_Seconds = False
|
||||
Me.txtKostenstelleJahr._value = ""
|
||||
Me.txtKostenstelleJahr._Waehrung = False
|
||||
Me.txtKostenstelleJahr._WaehrungZeichen = True
|
||||
@@ -405,11 +414,92 @@ Partial Class usrCntlAdministration
|
||||
Me.Button10.Text = "Kasse Journal-Nr neu berechnen"
|
||||
Me.Button10.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button12
|
||||
'
|
||||
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button12.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button12.Location = New System.Drawing.Point(241, 572)
|
||||
Me.Button12.Name = "Button12"
|
||||
Me.Button12.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button12.TabIndex = 26
|
||||
Me.Button12.Text = "Brexit Vorkosten"
|
||||
Me.Button12.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label8.Location = New System.Drawing.Point(238, 526)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(91, 13)
|
||||
Me.Label8.TabIndex = 27
|
||||
Me.Label8.Text = "Auswertungen:"
|
||||
'
|
||||
'Button13
|
||||
'
|
||||
Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button13.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button13.Location = New System.Drawing.Point(241, 602)
|
||||
Me.Button13.Name = "Button13"
|
||||
Me.Button13.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button13.TabIndex = 28
|
||||
Me.Button13.Text = "DL - Ostländer verrechnet"
|
||||
Me.Button13.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button14
|
||||
'
|
||||
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button14.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button14.Location = New System.Drawing.Point(241, 632)
|
||||
Me.Button14.Name = "Button14"
|
||||
Me.Button14.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button14.TabIndex = 29
|
||||
Me.Button14.Text = "DL - Ostländer Bar"
|
||||
Me.Button14.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Location = New System.Drawing.Point(343, 550)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label9.TabIndex = 32
|
||||
Me.Label9.Text = "-"
|
||||
'
|
||||
'dt_bis
|
||||
'
|
||||
Me.dt_bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dt_bis.Location = New System.Drawing.Point(359, 546)
|
||||
Me.dt_bis.Name = "dt_bis"
|
||||
Me.dt_bis.Size = New System.Drawing.Size(82, 20)
|
||||
Me.dt_bis.TabIndex = 31
|
||||
'
|
||||
'dt_von
|
||||
'
|
||||
Me.dt_von.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dt_von.Location = New System.Drawing.Point(256, 546)
|
||||
Me.dt_von.Name = "dt_von"
|
||||
Me.dt_von.Size = New System.Drawing.Size(82, 20)
|
||||
Me.dt_von.TabIndex = 30
|
||||
'
|
||||
'usrCntlAdministration
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.Controls.Add(Me.Label9)
|
||||
Me.Controls.Add(Me.dt_bis)
|
||||
Me.Controls.Add(Me.dt_von)
|
||||
Me.Controls.Add(Me.Button14)
|
||||
Me.Controls.Add(Me.Button13)
|
||||
Me.Controls.Add(Me.Label8)
|
||||
Me.Controls.Add(Me.Button12)
|
||||
Me.Controls.Add(Me.Button10)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.GroupBox2)
|
||||
@@ -474,4 +564,11 @@ Partial Class usrCntlAdministration
|
||||
Friend WithEvents datKostenstelleVon As DateTimePicker
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents Button10 As Button
|
||||
Friend WithEvents Button12 As Button
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents Button13 As Button
|
||||
Friend WithEvents Button14 As Button
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents dt_bis As DateTimePicker
|
||||
Friend WithEvents dt_von As DateTimePicker
|
||||
End Class
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user