347 lines
28 KiB
VB.net
347 lines
28 KiB
VB.net
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
|
|
frmZollUserStat.Show()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim frm As New frmKassenVerwaltung("tblRKSV_Kassen", "FMZOLL")
|
|
frm.ShowDialog(Me)
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Dim frm As New frmKassenVerwaltung("tblPreislisten", "FMZOLL")
|
|
frm.ShowDialog(Me)
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
Dim frm As New frmKassenVerwaltung("tblPreislistenpositionen", "FMZOLL")
|
|
frm.ShowDialog(Me)
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
Dim frm As New frmKassenVerwaltung("Leistungen", "FMZOLL")
|
|
frm.ShowDialog(Me)
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
Dim frm As New frmKassenVerwaltung("Abfertigungsarten", "FMZOLL")
|
|
frm.ShowDialog(Me)
|
|
End Sub
|
|
|
|
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
|
Dim frm As New frmKassenVerwaltung("Personal", "FMZOLL")
|
|
frm.ShowDialog(Me)
|
|
End Sub
|
|
|
|
Private Sub MyListBox1_DoubleClick(sender As Object, e As EventArgs) Handles MyListBox1.DoubleClick
|
|
If MyComboBox1.Text = "" Then Exit Sub
|
|
If MyListBox1.SelectedItems.Count > 0 Then
|
|
Dim frm As New frmKassenVerwaltung(MyListBox1.SelectedItems(0).ToString, CStr(MyComboBox1.Text))
|
|
frm.ShowDialog(Me)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub usrCntlAdministration_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
MyComboBox1.SelectedIndex = 0
|
|
txtKostenstelleJahr._value = Now.Year
|
|
End Sub
|
|
|
|
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
|
|
If MyComboBox1.Text = "" Then Exit Sub
|
|
MyListBox1.fillWithSQL("SELECT TABLE_NAME,TABLE_NAME as name FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE' ORDER BY TABLE_NAME", False, CStr(MyComboBox1.Text))
|
|
End Sub
|
|
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
|
Dim frmKasseAbschliessen As New frmKasseAbschliessen
|
|
frmKasseAbschliessen.Show(Me)
|
|
End Sub
|
|
|
|
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
|
Dim f As New frmKassenbuchSuche
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
|
VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, cbxKd.Checked, cbxBu.Checked)
|
|
End Sub
|
|
|
|
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Try
|
|
|
|
If Not IsNumeric(txtKostenstelleJahr._value) Then Me.Cursor = Cursors.Default : Exit Sub
|
|
If txtKostenstelleJahr._value < 2000 Or txtKostenstelleJahr._value > 2999 Then Me.Cursor = Cursors.Default : Exit Sub
|
|
|
|
Dim displayFilter = False ' cbxFilterInBericht.Checked
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
|
|
Dim sqlstr As String = ""
|
|
'If CheckBox1.Checked Then
|
|
' sqlstr &= " SELECT FilialenNr,Speditionsbuch.Abfertigungsart,Abfertigungsarten.Abfertigungsbezeichnung,sum(Abfertigungsanzahl) as Anzahl,SUM(Barzahlungsbetrag) as Barzahlungsbetrag,MIN(Abfertigungsdatum) as von, MAX(Abfertigungsdatum) as bis FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart WHERE 1=1 "
|
|
' sqlstr &= getSpedBuchWhere()
|
|
' sqlstr &= " group by FilialenNr,Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung "
|
|
' sqlstr &= " order by FilialenNr, Speditionsbuch.Abfertigungsart"
|
|
'Else
|
|
' sqlstr &= " SELECT Speditionsbuch.Abfertigungsart,Abfertigungsarten.Abfertigungsbezeichnung,sum(Abfertigungsanzahl) as Anzahl,SUM(Barzahlungsbetrag) as Barzahlungsbetrag,MIN(Abfertigungsdatum) as von, MAX(Abfertigungsdatum) as bis FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart WHERE 1=1 "
|
|
' sqlstr &= getSpedBuchWhere()
|
|
' sqlstr &= " group by Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung "
|
|
' sqlstr &= " order by Speditionsbuch.Abfertigungsart"
|
|
'End If
|
|
|
|
'sqlstr &= "SELECT Firma_ID,FilialenNr,Kostenstellen.Kostenstelle,Kostenstellen.Bezeichnung, sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.Steuerpflichtig) as Betrag
|
|
' FROM [Rechnungsausgang] INNER JOIN RechnungsausgangPositionen on Rechnungsausgang.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen ON Kostenstellen.Kostenstelle=Leistungen.Kostenstelle
|
|
' where Abfertigungsdatum between '" & datKostenstelleVon.Value.ToShortDateString & "' and '" & datKostenstelleBis.Value.ToShortDateString & "'
|
|
' group by Firma_ID, FilialenNr,Kostenstellen.Kostenstelle,Kostenstellen.Bezeichnung
|
|
' order by Firma_ID,FilialenNr,Kostenstellen.Kostenstelle,Kostenstellen.Bezeichnung "
|
|
|
|
Dim Firma_IDString = If(CheckBox2.Checked, " AND RG1.Firma_ID=RG2.Firma_ID ", "")
|
|
|
|
Dim jahr = txtKostenstelleJahr._value
|
|
sqlstr &= " SELECT " & If(CheckBox2.Checked, "Firma_ID2 as Firma_ID, ", "") & " FilialenNr, Kostenstelle, Bezeichnung,sum (Betrag)Gesamt,Sum(Januar)Januar ,Sum(Februar)Februar ,Sum(März)März ,Sum(April)April ,Sum(mai)mai ,Sum(Juni)Juni ,Sum(Juli)Juli ,Sum(August)August ,Sum(September)September ,Sum(Oktober)Oktober ,Sum(November)November ,Sum(Dezember)Dezember FROM (
|
|
|
|
SELECT " & If(CheckBox2.Checked, "REPLACE(Firma_ID,11,1) as Firma_ID2, ", "") & "FilialenNr,KSt1.Kostenstelle,KSt1.Bezeichnung, sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) as Betrag
|
|
|
|
,isnull((SELECT sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) FROM [Rechnungsausgang] as RG2 INNER JOIN RechnungsausgangPositionen on RG2.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt2 ON KSt2.Kostenstelle=Leistungen.Kostenstelle where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND DATEPART(MONTH,Abfertigungsdatum )=1 and KSt1.Kostenstelle=KSt2.Kostenstelle " & Firma_IDString & " and RG1.FilialenNr=RG2.FilialenNr),0) as Januar
|
|
,isnull((SELECT sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) FROM [Rechnungsausgang] as RG2 INNER JOIN RechnungsausgangPositionen on RG2.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt2 ON KSt2.Kostenstelle=Leistungen.Kostenstelle where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND DATEPART(MONTH,Abfertigungsdatum )=2 and KSt1.Kostenstelle=KSt2.Kostenstelle " & Firma_IDString & " and RG1.FilialenNr=RG2.FilialenNr),0) as Februar
|
|
,isnull((SELECT sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) FROM [Rechnungsausgang] as RG2 INNER JOIN RechnungsausgangPositionen on RG2.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt2 ON KSt2.Kostenstelle=Leistungen.Kostenstelle where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND DATEPART(MONTH,Abfertigungsdatum )=3 and KSt1.Kostenstelle=KSt2.Kostenstelle " & Firma_IDString & " and RG1.FilialenNr=RG2.FilialenNr),0) as März
|
|
,isnull((SELECT sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) FROM [Rechnungsausgang] as RG2 INNER JOIN RechnungsausgangPositionen on RG2.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt2 ON KSt2.Kostenstelle=Leistungen.Kostenstelle where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND DATEPART(MONTH,Abfertigungsdatum )=4 and KSt1.Kostenstelle=KSt2.Kostenstelle " & Firma_IDString & " and RG1.FilialenNr=RG2.FilialenNr),0) as April
|
|
,isnull((SELECT sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) FROM [Rechnungsausgang] as RG2 INNER JOIN RechnungsausgangPositionen on RG2.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt2 ON KSt2.Kostenstelle=Leistungen.Kostenstelle where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND DATEPART(MONTH,Abfertigungsdatum )=5 and KSt1.Kostenstelle=KSt2.Kostenstelle " & Firma_IDString & " and RG1.FilialenNr=RG2.FilialenNr),0) as Mai
|
|
,isnull((SELECT sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) FROM [Rechnungsausgang] as RG2 INNER JOIN RechnungsausgangPositionen on RG2.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt2 ON KSt2.Kostenstelle=Leistungen.Kostenstelle where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND DATEPART(MONTH,Abfertigungsdatum )=6 and KSt1.Kostenstelle=KSt2.Kostenstelle " & Firma_IDString & " and RG1.FilialenNr=RG2.FilialenNr),0) as Juni
|
|
,isnull((SELECT sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) FROM [Rechnungsausgang] as RG2 INNER JOIN RechnungsausgangPositionen on RG2.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt2 ON KSt2.Kostenstelle=Leistungen.Kostenstelle where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND DATEPART(MONTH,Abfertigungsdatum )=7 and KSt1.Kostenstelle=KSt2.Kostenstelle " & Firma_IDString & " and RG1.FilialenNr=RG2.FilialenNr),0) as Juli
|
|
,isnull((SELECT sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) FROM [Rechnungsausgang] as RG2 INNER JOIN RechnungsausgangPositionen on RG2.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt2 ON KSt2.Kostenstelle=Leistungen.Kostenstelle where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND DATEPART(MONTH,Abfertigungsdatum )=8 and KSt1.Kostenstelle=KSt2.Kostenstelle " & Firma_IDString & " and RG1.FilialenNr=RG2.FilialenNr),0) as August
|
|
,isnull((SELECT sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) FROM [Rechnungsausgang] as RG2 INNER JOIN RechnungsausgangPositionen on RG2.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt2 ON KSt2.Kostenstelle=Leistungen.Kostenstelle where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND DATEPART(MONTH,Abfertigungsdatum )=9 and KSt1.Kostenstelle=KSt2.Kostenstelle " & Firma_IDString & " and RG1.FilialenNr=RG2.FilialenNr),0) as September
|
|
,isnull((SELECT sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) FROM [Rechnungsausgang] as RG2 INNER JOIN RechnungsausgangPositionen on RG2.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt2 ON KSt2.Kostenstelle=Leistungen.Kostenstelle where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND DATEPART(MONTH,Abfertigungsdatum )=10 and KSt1.Kostenstelle=KSt2.Kostenstelle " & Firma_IDString & " and RG1.FilialenNr=RG2.FilialenNr),0) as Oktober
|
|
,isnull((SELECT sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) FROM [Rechnungsausgang] as RG2 INNER JOIN RechnungsausgangPositionen on RG2.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt2 ON KSt2.Kostenstelle=Leistungen.Kostenstelle where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND DATEPART(MONTH,Abfertigungsdatum )=11 and KSt1.Kostenstelle=KSt2.Kostenstelle " & Firma_IDString & " and RG1.FilialenNr=RG2.FilialenNr),0) as November
|
|
,isnull((SELECT sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag) FROM [Rechnungsausgang] as RG2 INNER JOIN RechnungsausgangPositionen on RG2.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt2 ON KSt2.Kostenstelle=Leistungen.Kostenstelle where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND DATEPART(MONTH,Abfertigungsdatum )=12 and KSt1.Kostenstelle=KSt2.Kostenstelle " & Firma_IDString & " and RG1.FilialenNr=RG2.FilialenNr),0) as Dezember
|
|
|
|
FROM [Rechnungsausgang] as RG1 INNER JOIN RechnungsausgangPositionen on RG1.RK_ID=RechnungsausgangPositionen.RK_ID INNER JOIN Leistungen ON Leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr INNER JOIN Kostenstellen as KSt1 ON KSt1.Kostenstelle=Leistungen.Kostenstelle
|
|
where DATEPART(YEAR,Abfertigungsdatum )=" & jahr & " AND Firma_ID NOT IN (15)
|
|
AND RG1.FilialenNr NOT IN (4804,4808)
|
|
|
|
group by " & If(CheckBox2.Checked, "Firma_ID, ", "") & "FilialenNr,KSt1.Kostenstelle,KSt1.Bezeichnung
|
|
|
|
) as T
|
|
group by " & If(CheckBox2.Checked, "Firma_ID2, ", "") & "FilialenNr, Kostenstelle, Bezeichnung
|
|
order by " & If(CheckBox2.Checked, "Firma_ID, ", "") & "FilialenNr,Kostenstelle,Bezeichnung "
|
|
|
|
Dim dt As DataTable = SQL.loadDgvBySql(sqlstr, "FMZOLL")
|
|
'DataGridView.DataSource = dt
|
|
|
|
|
|
Dim print As New frmPrintLayout
|
|
print.Text = "Kostenstellen-Bericht"
|
|
|
|
Dim rpt As New rptKostenstellen
|
|
|
|
rpt.DataSource = dt
|
|
|
|
'Filter anzeigen
|
|
If displayFilter Then
|
|
rpt.lblFilterTxt.Visible = displayFilter
|
|
rpt.txtFilter.Visible = displayFilter
|
|
' rpt.txtFilter.Text = SQL.getStringReplaceScalarVar(getSpedBuchWhere, getSpedbuchList)
|
|
Else
|
|
'If txtUeberschr.Text <> "" Then
|
|
' rpt.txtFilter.Text = txtUeberschr.Text
|
|
' rpt.txtFilter.Visible = True
|
|
' rpt.lblFilterTxt.Visible = True
|
|
' rpt.lblFilterTxt.Text = "Beschreibung:"
|
|
'End If
|
|
End If
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH"
|
|
Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition"
|
|
Case "UNISPED" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "UNISPED Spedition"
|
|
Case Else
|
|
End Select
|
|
|
|
|
|
If CheckBox2.Checked Then
|
|
rpt.GroupHeader2.DataField = "Firma_ID" 'Gruppierung
|
|
End If
|
|
rpt.GroupHeader1.DataField = "FilialenNr" 'Gruppierung
|
|
|
|
If rpt.DataSource.rows.count = 0 Then
|
|
rpt.Dispose() : print.Dispose()
|
|
MsgBox("Keine Daten vorhanden!")
|
|
Me.Cursor = Cursors.Default : Exit Sub
|
|
End If
|
|
|
|
Dim sum = 0
|
|
rpt.lblUeberschrift.Text = "Kostenstellenbericht " & jahr
|
|
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 sumAnz As Double = 0
|
|
Dim sumBar As Double = 0
|
|
|
|
|
|
Dim sum01 As Double = 0
|
|
Dim sum02 As Double = 0
|
|
Dim sum03 As Double = 0
|
|
Dim sum04 As Double = 0
|
|
Dim sum05 As Double = 0
|
|
Dim sum06 As Double = 0
|
|
Dim sum07 As Double = 0
|
|
Dim sum08 As Double = 0
|
|
Dim sum09 As Double = 0
|
|
Dim sum10 As Double = 0
|
|
Dim sum11 As Double = 0
|
|
Dim sum12 As Double = 0
|
|
|
|
|
|
'If cbxSpedBerichtBar.Checked Then
|
|
' rpt.lblBarzahlungsbetrag.Visible = True
|
|
' rpt.lblBarTitle.Visible = True
|
|
' rpt.lblSummeBar.Visible = True
|
|
'Else
|
|
' rpt.lblBarzahlungsbetrag.Visible = False
|
|
' rpt.lblBarTitle.Visible = False
|
|
' rpt.lblSummeBar.Visible = False
|
|
'End If
|
|
rpt.lblFiliale.Text = "Alle Filialen"
|
|
|
|
AddHandler rpt.Detail.Format, Sub()
|
|
rpt.lblVon.Text = (rpt.Fields.Item("Kostenstelle").Value)
|
|
rpt.lblBis.Text = (rpt.Fields.Item("Bezeichnung").Value)
|
|
'rpt.lblAbfAnz.Text = rpt.Fields.Item("Anzahl").Value
|
|
'rpt.lblAbfArtNr.Text = If(rpt.Fields.Item("Abfertigungsart").Value Is DBNull.Value, "-", rpt.Fields.Item("Abfertigungsart").Value)
|
|
'rpt.lblAbfArt.Text = If(rpt.Fields.Item("Abfertigungsbezeichnung").Value Is DBNull.Value, "-", rpt.Fields.Item("Abfertigungsbezeichnung").Value)
|
|
|
|
rpt.lblBetrag01.Text = CDbl(rpt.Fields.Item("Januar").Value()).ToString("N0")
|
|
rpt.lblBetrag02.Text = CDbl(rpt.Fields.Item("Februar").Value()).ToString("N0")
|
|
rpt.lblBetrag03.Text = CDbl(rpt.Fields.Item("März").Value()).ToString("N0")
|
|
rpt.lblBetrag04.Text = CDbl(rpt.Fields.Item("April").Value()).ToString("N0")
|
|
rpt.lblBetrag05.Text = CDbl(rpt.Fields.Item("Mai").Value()).ToString("N0")
|
|
rpt.lblBetrag06.Text = CDbl(rpt.Fields.Item("Juni").Value()).ToString("N0")
|
|
rpt.lblBetrag07.Text = CDbl(rpt.Fields.Item("Juli").Value()).ToString("N0")
|
|
rpt.lblBetrag08.Text = CDbl(rpt.Fields.Item("August").Value()).ToString("N0")
|
|
rpt.lblBetrag09.Text = CDbl(rpt.Fields.Item("September").Value()).ToString("N0")
|
|
rpt.lblBetrag10.Text = CDbl(rpt.Fields.Item("Oktober").Value()).ToString("N0")
|
|
rpt.lblBetrag11.Text = CDbl(rpt.Fields.Item("November").Value()).ToString("N0")
|
|
rpt.lblBetrag12.Text = CDbl(rpt.Fields.Item("Dezember").Value()).ToString("N0")
|
|
|
|
sum01 += CDbl(rpt.Fields.Item("Januar").Value)
|
|
sum02 += CDbl(rpt.Fields.Item("Februar").Value)
|
|
sum03 += CDbl(rpt.Fields.Item("März").Value)
|
|
sum04 += CDbl(rpt.Fields.Item("April").Value)
|
|
sum05 += CDbl(rpt.Fields.Item("Mai").Value)
|
|
sum06 += CDbl(rpt.Fields.Item("Juni").Value)
|
|
sum07 += CDbl(rpt.Fields.Item("Juli").Value)
|
|
sum08 += CDbl(rpt.Fields.Item("August").Value)
|
|
sum09 += CDbl(rpt.Fields.Item("September").Value)
|
|
sum10 += CDbl(rpt.Fields.Item("Oktober").Value)
|
|
sum11 += CDbl(rpt.Fields.Item("November").Value)
|
|
sum12 += CDbl(rpt.Fields.Item("Dezember").Value)
|
|
End Sub
|
|
AddHandler rpt.GroupHeader1.Format, Sub()
|
|
rpt.lblFiliale.Text = SQL.getValueTxtBySql("SELECT CAST(FilialenNr as varchar (4)) + ' ' + Grenzstelle FROM filialen WHERE FilialenNr='" & rpt.Fields.Item("FilialenNr").Value & "'", "FMZOLL")
|
|
sumAnz = 0
|
|
sumBar = 0
|
|
|
|
sum01 = 0
|
|
sum02 = 0
|
|
sum03 = 0
|
|
sum04 = 0
|
|
sum05 = 0
|
|
sum06 = 0
|
|
sum07 = 0
|
|
sum08 = 0
|
|
sum09 = 0
|
|
sum10 = 0
|
|
sum11 = 0
|
|
sum12 = 0
|
|
End Sub
|
|
AddHandler rpt.GroupFooter1.Format, Sub()
|
|
' rpt.lblSummeAnzahl.Text = sumAnz
|
|
rpt.lblSumme01.Text = sum01.ToString("N0")
|
|
rpt.lblSumme02.Text = sum02.ToString("N0")
|
|
rpt.lblSumme03.Text = sum03.ToString("N0")
|
|
rpt.lblSumme04.Text = sum04.ToString("N0")
|
|
rpt.lblSumme05.Text = sum05.ToString("N0")
|
|
rpt.lblSumme06.Text = sum06.ToString("N0")
|
|
rpt.lblSumme07.Text = sum07.ToString("N0")
|
|
rpt.lblSumme08.Text = sum08.ToString("N0")
|
|
rpt.lblSumme09.Text = sum09.ToString("N0")
|
|
rpt.lblSumme10.Text = sum10.ToString("N0")
|
|
rpt.lblSumme11.Text = sum11.ToString("N0")
|
|
rpt.lblSumme12.Text = sum12.ToString("N0")
|
|
End Sub
|
|
|
|
AddHandler rpt.GroupHeader2.Format, Sub()
|
|
If CheckBox2.Checked Then rpt.lblFirma.Text = SQL.getValueTxtBySql("SELECT TOP 1 [Firma_Bez] FROM [tblFirma] WHERE [Firma_ID]='" & rpt.Fields.Item("Firma_ID").Value & "'", "FMZOLL")
|
|
sumAnz = 0
|
|
sumBar = 0
|
|
End Sub
|
|
|
|
|
|
print.Viewer.LoadDocument(rpt)
|
|
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
|
print.Show()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
|
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
|