118 lines
6.2 KiB
VB.net
118 lines
6.2 KiB
VB.net
Public Class frmAdminFunc
|
|
|
|
Private Sub frmStorno_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
datVon.Value = CDate("01." & Now.Month & "." & Now.Year).AddMonths(-1)
|
|
datBis.Value = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1)
|
|
End Sub
|
|
|
|
|
|
Private Sub btnStornoBonNr_Click(sender As Object, e As EventArgs) Handles btnStornoBonNr.Click
|
|
Dim cbon As New cBon
|
|
Dim list As List(Of cBon) = cbon.LOADList(datVon.Value, datBis.Value)
|
|
|
|
|
|
|
|
Dim print As New frmPrintLayout
|
|
print.Text = "Auswertung BON Manager"
|
|
|
|
Dim rpt As New rptAuswertung
|
|
|
|
|
|
Dim von As Date = datVon.Value.ToShortDateString
|
|
Dim bis As Date = datBis.Value.ToShortDateString
|
|
|
|
'Dim von As Date = CDate("01.01.2016")
|
|
' Dim bis As Date = CDate("31.01.2016")
|
|
|
|
' rpt.DataSource = SQL.loadDgvBySql("SELECT MIN(JournalNr)as JournalNr, MAX(BelegDat)as BelegDat,MAX(Buchungsdatum)as Buchungsdatum,MAX(belegNr) as BelegNr, (SELECT top 1 t.Buchungstext FROM [tblKassenbuch] as t WHERE journalnr=t.journalnr) as Buchungstext,(SELECT top 1 t.konto FROM [tblKassenbuch] as t WHERE journalnr=t.journalnr) as Konto, SUM(Soll) as Soll,SUM(haben) as Haben " &
|
|
' "FROM [tblKassenbuch] WHERE CAST(Buchungsdatum as date) BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' And Benutzer=" & PERSONAL.ID & " group by BelegNr", "FMZOLL") 'cProgramFunctions.dgridViewTods(dgvBelegPos)
|
|
|
|
Dim dt As New DataTable
|
|
dt.Columns.Add("Id", GetType(String))
|
|
dt.Columns.Add("clmnDatum", GetType(Date))
|
|
dt.Columns.Add("RgBetrag", GetType(String))
|
|
dt.Columns.Add("BonBetrag", GetType(String))
|
|
|
|
For Each p In list
|
|
If p.bon_storno = False Then
|
|
dt.Rows.Add(p.bon_Id, p.bon_datum.ToShortDateString, p.bon_betrag_Rg, p.bon_betrag_Bon)
|
|
End If
|
|
Next
|
|
|
|
|
|
|
|
rpt.DataSource = dt
|
|
|
|
|
|
If rpt.DataSource.rows.count = 0 Then
|
|
rpt.Dispose() : print.Dispose()
|
|
MsgBox("Keine Daten vorhanden!")
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim sum = 0
|
|
rpt.lblUeberschrift.Text = "Verzehrbon Ausgabe " & von.ToShortDateString & " bis " & bis.ToShortDateString
|
|
rpt.lblGeschaeftsjahr.Text = IIf(von.Month = 1, von.Year - 1, von.Year)
|
|
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
|
|
|
|
'Dim cnt As Integer = 0
|
|
rpt.lblDat.Text = Now.ToLongDateString
|
|
Dim sumRg As Double = 0
|
|
Dim sumBon As Double = 0
|
|
Dim sumBonNetto As Double = 0
|
|
Dim gesRg As Double = 0
|
|
Dim gesBon As Double = 0
|
|
Dim gesBonNetto As Double = 0
|
|
'Dim gesSumHaben As Double = 0
|
|
Dim datum = ""
|
|
' rpt.GroupHeader1.DataField = CDate(rpt.Fields.Item("clmnDatum").Value()).ToShortDateString 'clmnDatum" '"clmnDatum" 'Gruppierung
|
|
rpt.GroupHeader1.DataField = "clmnDatum"
|
|
|
|
AddHandler rpt.Detail.Format, Sub()
|
|
|
|
rpt.lblId.Text = rpt.Fields.Item("Id").Value()
|
|
rpt.lblBonDat.Text = CDate(rpt.Fields.Item("clmnDatum").Value()).ToShortDateString
|
|
|
|
Dim RgBetrag = CDbl(rpt.Fields.Item("RgBetrag").Value())
|
|
Dim BonBetrag = CDbl(rpt.Fields.Item("BonBetrag").Value())
|
|
|
|
rpt.lblBetragRg.Text = IIf(RgBetrag <> 0, RgBetrag.ToString("C"), "")
|
|
rpt.lblBetragVerzehrbon.Text = IIf(BonBetrag <> 0, BonBetrag.ToString("C"), "")
|
|
rpt.lblBetragVerzehrbonNetto.Text = IIf(BonBetrag <> 0, (BonBetrag / 1.19).ToString("C"), "")
|
|
|
|
sumRg += CDbl(rpt.Fields.Item("RgBetrag").Value())
|
|
sumBon += CDbl(rpt.Fields.Item("BonBetrag").Value())
|
|
sumBonNetto += CDbl(BonBetrag / 1.19)
|
|
gesRg += CDbl(rpt.Fields.Item("RgBetrag").Value())
|
|
gesBon += CDbl(rpt.Fields.Item("BonBetrag").Value())
|
|
gesBonNetto += CDbl(BonBetrag / 1.19)
|
|
datum = CDate(rpt.Fields.Item("clmnDatum").Value()).ToShortDateString ' Im Footer wird bereits das nächste Datum genommen, darum hier befüllt
|
|
End Sub
|
|
AddHandler rpt.GroupHeader1.Format, Sub()
|
|
sumRg = 0
|
|
sumBon = 0
|
|
sumBonNetto = 0
|
|
End Sub
|
|
AddHandler rpt.GroupFooter1.Format, Sub()
|
|
rpt.lblSummeBonDat.Text = "Summe " & datum & ":"
|
|
rpt.lblSumme_Rg.Text = sumRg.ToString("C")
|
|
rpt.lblSumme_Bon.Text = sumBon.ToString("C")
|
|
rpt.lblSumme_Bon_Netto.Text = sumBonNetto.ToString("C")
|
|
' rpt.lblEinzelpreis.Text = CDbl(rpt.Fields.Item("clmnPreis").Value()).ToString("C")
|
|
' sum += rpt.Fields.Item("clmnBetrag").Value()
|
|
End Sub
|
|
AddHandler rpt.ReportFooter1.Format, Sub()
|
|
rpt.lblGesSumme_Rg.Text = gesRg.ToString("C")
|
|
rpt.lblGesSumme_Bon.Text = gesBon.ToString("C")
|
|
rpt.lblGesSumme_Bon_Netto.Text = gesBonNetto.ToString("C")
|
|
End Sub
|
|
|
|
print.Viewer.LoadDocument(rpt)
|
|
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
|
print.Show()
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
Me.Close()
|
|
End Sub
|
|
End Class |