Berichte, mdmFakt.
This commit is contained in:
@@ -37,6 +37,8 @@ Public Class usrcntlFakturierung
|
||||
|
||||
PathMautberichte = (New SQL).getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='GESAMTMAUT' AND [Param_name]='ANLAGE_PFAD' AND Param_testsystem = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 1, 0), "FMZOLL")
|
||||
|
||||
'PathMautberichte = "C:\Users\d.breimaier\Desktop\MDM\Mautgesamtberichte\"
|
||||
|
||||
Dim countCSV = 0
|
||||
Dim countPDF = 0
|
||||
If Directory.Exists(PathMautberichte) Then
|
||||
@@ -1261,7 +1263,15 @@ Public Class usrcntlFakturierung
|
||||
|
||||
Dim dt_PDF_selected = dtBerichtkunden_PDF.Select("[Customer No] ='" & pdf.Item(0) & "'").CopyToDataTable
|
||||
|
||||
createPDFMautbericht(pdf.Item(0), dt_PDF_selected, cbxDateMautbericht._value, PathMautberichte)
|
||||
Dim dtLaender As DataTable = (New SQL).loadDgvBySql("SELECT tblMautbericht.[Customer No], tblMautbericht.[Transaction Country], sum(tblMautbericht.[Net Amount]) as Netto, sum(tblMautbericht.[VAT Amount]) as MWST, sum(tblMautbericht.[Total Amount]) as Brutto
|
||||
FROM tblMautbericht WHERE [Customer No] ='" & pdf.Item(0) & "'
|
||||
GROUP BY [Customer No], [Transaction Country]
|
||||
ORDER BY tblMautbericht.[Customer No], tblMautbericht.[Transaction Country]", "FMZOLL")
|
||||
|
||||
|
||||
|
||||
|
||||
createPDFMautbericht(pdf.Item(0), dt_PDF_selected, cbxDateMautbericht._value, PathMautberichte, dtLaender)
|
||||
|
||||
|
||||
|
||||
@@ -1310,7 +1320,7 @@ Public Class usrcntlFakturierung
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function createPDFMautbericht(kdnr As Integer, dt As DataTable, anhangsdatum As Date, path As String) As String
|
||||
Private Function createPDFMautbericht(kdnr As Integer, dt As DataTable, anhangsdatum As Date, path As String, dtLaender As DataTable) As String
|
||||
|
||||
Dim rpt As New rptPLOSE_Anhang
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
@@ -1323,17 +1333,17 @@ Public Class usrcntlFakturierung
|
||||
rpt.GroupHeaderKz.DataField = "Licence Plate Number"
|
||||
|
||||
|
||||
rpt.txtNettoKzSum.Visible = False
|
||||
rpt.txtNettoGesSum.Visible = False
|
||||
rpt.txtNetto.Visible = False
|
||||
rpt.txtNettoKatSum.Visible = False
|
||||
rpt.lblNetto.Visible = False
|
||||
'rpt.txtNettoKzSum.Visible = False
|
||||
'rpt.txtNettoGesSum.Visible = False
|
||||
'rpt.txtNetto.Visible = False
|
||||
'rpt.txtNettoKatSum.Visible = False
|
||||
'rpt.lblNetto.Visible = False
|
||||
|
||||
rpt.txtMWSTKzSum.Visible = False
|
||||
rpt.txtMWSTGEsSum.Visible = False
|
||||
rpt.txtMWST.Visible = False
|
||||
rpt.txtMWSTKatSum.Visible = False
|
||||
rpt.lblMWST.Visible = False
|
||||
'rpt.txtMWSTKzSum.Visible = False
|
||||
'rpt.txtMWSTGEsSum.Visible = False
|
||||
'rpt.txtMWST.Visible = False
|
||||
'rpt.txtMWSTKatSum.Visible = False
|
||||
'rpt.lblMWST.Visible = False
|
||||
|
||||
'rpt.lblBrutto.Text = "Total Amount ( EUR )"
|
||||
'rpt.Label4.Text = bis.ToShortDateString
|
||||
@@ -1344,6 +1354,15 @@ Public Class usrcntlFakturierung
|
||||
rpt.lblSummeKennzeichen.Visible = False
|
||||
rpt.lblService.Visible = False
|
||||
|
||||
rpt.Label2.Visible = False
|
||||
rpt.TextBox1.Visible = False
|
||||
rpt.Label3.Visible = False
|
||||
rpt.Label4.Visible = False
|
||||
|
||||
rpt.lblFirmaFax.Visible = False
|
||||
rpt.lblFirmaEmail.Visible = False
|
||||
rpt.Label16.Visible = False
|
||||
|
||||
'rpt.lblSummeKennzeichen.Location = New PointF(rpt.lblSummeKennzeichen.Location.X + 4.5, rpt.lblSummeKennzeichen.Location.Y)
|
||||
'rpt.lblSumKategorie.Location = New PointF(rpt.lblSumKategorie.Location.X + 4.5, rpt.lblSumKategorie.Location.Y)
|
||||
'rpt.lblGessumme.Location = New PointF(rpt.lblGessumme.Location.X + 4.5, rpt.lblGessumme.Location.Y)
|
||||
@@ -1382,8 +1401,8 @@ Public Class usrcntlFakturierung
|
||||
rpt.txtMWST.Text = sql.isDbnullEmptyDbl(rpt.Fields.Item("VAT Amount").Value, 2, "")
|
||||
rpt.txtBrutto.Text = sql.isDbnullEmptyDbl(rpt.Fields.Item("Total Amount").Value, 2, "")
|
||||
|
||||
sumNetto += 0 'SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragWaehrungAbbuchung").Value, 4, 0)
|
||||
sumMWST += 0 'SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetragWaehrungAbbuchung").Value, 4, 0)
|
||||
sumNetto += sql.isDbnullEmptyDbl(rpt.Fields.Item("Net Amount").Value, 4, 0)
|
||||
sumMWST += sql.isDbnullEmptyDbl(rpt.Fields.Item("VAT Amount").Value, 4, 0)
|
||||
sumBrutto += sql.isDbnullEmptyDbl(rpt.Fields.Item("Total Amount").Value, 4, 0)
|
||||
cnt += 1
|
||||
End Sub
|
||||
@@ -1425,6 +1444,7 @@ Public Class usrcntlFakturierung
|
||||
rpt.txtMWSTKatSum.Text = sumMWSTKat.ToString("N2")
|
||||
rpt.txtBruttoKatSum.Text = sumBruttoKat.ToString("N2")
|
||||
cntKat += 1
|
||||
rpt.lblSumKategorie.Text = rpt.lblSumKategorie.Text.Replace("Kunde", sql.isDbnullEmpty(rpt.Fields.Item("Customer No").Value, ""))
|
||||
End Sub
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
'sumNettoGes += sumNettoKat
|
||||
@@ -1458,6 +1478,63 @@ Public Class usrcntlFakturierung
|
||||
Dim tmpPath = path & "\" & kdnr & "_Maut.pdf"
|
||||
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
|
||||
rpt.Run(False)
|
||||
|
||||
|
||||
|
||||
|
||||
Dim rpt2 As New rptPLOSE_LaenderGesamt
|
||||
rpt2.DataSource = dtLaender
|
||||
|
||||
rpt2.Label7.Visible = False
|
||||
rpt2.lblEU.Visible = False
|
||||
|
||||
rpt2.lblUeberschrift.Text = "Länder Gesamt"
|
||||
|
||||
Dim sum = 0
|
||||
' rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text
|
||||
rpt2.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
|
||||
|
||||
'Dim cnt As Integer = 0
|
||||
rpt2.lblDat.Text = Now.ToLongDateString
|
||||
|
||||
|
||||
Dim sumPreis As Double = 0
|
||||
Dim sumNettoLaender As Double = 0
|
||||
Dim sumMWSTLaender As Double = 0
|
||||
Dim sumBruttoLaender As Double = 0
|
||||
Dim sumBruttoAlleLeistungen As Double = 0
|
||||
Dim sumMenge As Double = 0
|
||||
|
||||
AddHandler rpt2.Detail.Format, Sub()
|
||||
rpt2.lblLand.Text = sql.isDbnullEmpty(rpt2.Fields.Item("Transaction Country").Value, "")
|
||||
rpt2.lblEU.Text = "" 'sql.isDbnullEmpty(rpt.Fields.Item("EU").Value, "")
|
||||
|
||||
rpt2.lblNetto.Text = sql.isDbnullEmptyDbl(rpt2.Fields.Item("Netto").Value, 2, "")
|
||||
rpt2.lblMWST.Text = sql.isDbnullEmptyDbl(rpt2.Fields.Item("MWST").Value, 2, "")
|
||||
rpt2.lblBrutto.Text = sql.isDbnullEmptyDbl(rpt2.Fields.Item("Brutto").Value, 2, "")
|
||||
|
||||
sumNetto += sql.isDbnullEmptyDbl(rpt2.Fields.Item("Netto").Value, 4, 0)
|
||||
sumMWST += sql.isDbnullEmptyDbl(rpt2.Fields.Item("MWST").Value, 4, 0)
|
||||
sumBrutto += sql.isDbnullEmptyDbl(rpt2.Fields.Item("Brutto").Value, 4, 0)
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
AddHandler rpt2.ReportFooter1.Format, Sub()
|
||||
rpt2.lblSumNetto.Text = sumNetto.ToString("N2")
|
||||
rpt2.lblSumMwst.Text = sumMWST.ToString("N2")
|
||||
rpt2.lblSumBrutto.Text = sumBrutto.ToString("N2")
|
||||
|
||||
End Sub
|
||||
rpt2.Run()
|
||||
|
||||
For i = 0 To rpt2.Document.Pages.Count - 1
|
||||
rpt.Document.Pages.Add(rpt2.Document.Pages(i))
|
||||
Next
|
||||
|
||||
p.NeverEmbedFonts = ""
|
||||
p.Export(rpt.Document, tmpPath)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user