Asfinag, Mitarbeiter, UID-Prüfung, Rechnugssuche, Fiskalkunde, Kundenübersicht, div. Auswertungen für Asfinag
This commit is contained in:
@@ -3,7 +3,8 @@ Imports Microsoft.Office.Interop
|
||||
Imports Microsoft.VisualBasic.FileIO
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports System.Security.Cryptography.Xml
|
||||
|
||||
Public Class usrCntlMDMAuswertungen
|
||||
|
||||
@@ -224,7 +225,7 @@ Public Class usrCntlMDMAuswertungen
|
||||
If KdSearchBox2.KdNr <= 0 Then MsgBox("Kunde auswählen!") : Exit Sub
|
||||
|
||||
Dim f As New frmSDLAbholungEintrag(KdSearchBox2.KdNr, -1)
|
||||
|
||||
|
||||
If f.ShowDialog(Me) = DialogResult.OK Then
|
||||
|
||||
End If
|
||||
@@ -254,8 +255,8 @@ Public Class usrCntlMDMAuswertungen
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Try
|
||||
Dim dialog As New OpenFileDialog()
|
||||
dialog.Filter = "CSV Files (*.csv)|*.csv"
|
||||
Dim dialog As New OpenFileDialog()
|
||||
dialog.Filter = "CSV Files (*.csv)|*.csv"
|
||||
If (dialog.ShowDialog() = DialogResult.OK) Then
|
||||
Dim table As DataTable = convertToDT(dialog.FileName)
|
||||
Dim cnt = 1
|
||||
@@ -322,7 +323,7 @@ Public Class usrCntlMDMAuswertungen
|
||||
txtIDSEinarbeitung.Text = table.Rows.Count & " / " & table.Rows.Count
|
||||
lblProz.Text = "100.00 %"
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As System.Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
@@ -813,7 +814,7 @@ Public Class usrCntlMDMAuswertungen
|
||||
'r("VersicherungsBetrag") = getVersBetrag(r("Risiko"), r("Versicherungssumme"))
|
||||
' Next
|
||||
' dt.Columns("VersicherungsBetrag").ColumnName = "V-Betrag"
|
||||
|
||||
|
||||
'If cbxFormatNumbers.Checked Then
|
||||
' cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1), "H1:M" & (dt.Rows.Count + 1), "O1:P" & (dt.Rows.Count + 1)})
|
||||
' Else
|
||||
@@ -826,7 +827,7 @@ Public Class usrCntlMDMAuswertungen
|
||||
End Sub
|
||||
|
||||
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If MyComboBox2._value = "" Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
|
||||
Dim SQLstr = "SELECT sdl.SDLNr, sdl.[KundenNr], (SELECT isnull(ordnungsbegriff,'') FROM [VERAG].dbo.adressen where [VERAG].dbo.adressen.AdressenNr=sdl.KundenNr ) as Firma,kfzkennzeichen, "
|
||||
@@ -872,7 +873,7 @@ Public Class usrCntlMDMAuswertungen
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
||||
VERAG_PROG_ALLGEMEIN.SDL_Functions.SDL_GueltigBis_UTA_IDS()
|
||||
End Sub
|
||||
@@ -975,8 +976,266 @@ Public Class usrCntlMDMAuswertungen
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
|
||||
|
||||
Try
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim frm As New Form
|
||||
Dim dgv As New DataGridView()
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT dbo.CLFBody.PKHistory,
|
||||
dbo.CLFBody.PKFileName,
|
||||
dbo.CLFBody.PKLine,
|
||||
dbo.CLFBody.RecordType,
|
||||
dbo.CLFBody.fileNumber,
|
||||
dbo.CLFBody.cardNumber,
|
||||
dbo.CLFBody.validTo OBUID,
|
||||
dbo.CLFBody.vehicleLicensePlate,
|
||||
dbo.CLFBody.nationality,
|
||||
dbo.CLFBody.vehicleCategory,
|
||||
dbo.CLFBody.emissionCategory,
|
||||
dbo.CLFBody.status,
|
||||
dbo.CLFBody.contractDate,
|
||||
dbo.CLFBody.fileVersion,
|
||||
dbo.CLFBody.engineCharacteristics,
|
||||
dbo.CLFBody.CO2EmissionsClass,
|
||||
dbo.CLFBody.contractType FROM dbo.CLF INNER JOIN dbo.CLFBody ON dbo.CLF.PKHistory = dbo.CLFBody.PKHistory AND dbo.CLF.PKFileName = dbo.CLFBody.PKFileName
|
||||
", "ASFINAG")
|
||||
|
||||
dgv.DataSource = dt
|
||||
If dgv IsNot Nothing Then
|
||||
frm.Size = New Size(1400, 1000)
|
||||
dgv.Size = New Size(frm.Size.Width - 50, frm.Size.Height - 50)
|
||||
dgv.Dock = DockStyle.Fill
|
||||
dgv.Anchor = AnchorStyles.Left
|
||||
dgv.Anchor = AnchorStyles.Top
|
||||
dgv.ReadOnly = True
|
||||
frm.Controls.Add(dgv)
|
||||
frm.StartPosition = FormStartPosition.CenterScreen
|
||||
frm.ShowDialog()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As System.Exception
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim displayFilter = False
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
'falls Berichte nicht nur für letzten Abrechnungszeitraum benötigt werden, diesen Part aktivieren und mit abrechnungsdatum "dat_sum_bis" koppeln!
|
||||
|
||||
' sqlstr &= " SELECT dbo.TTRBody.CardNumber,Adressen.AdressenNr AS KundenNr,Adressen.[Name 1], dbo.CLFArchiv.vehicleLicensePlate,dbo.TTRBody.DeliveryDate, 'ASFINAG ' + ISNULL(dbo.tblWarenarten.WarenartDE, dbo.tblWarenarten.ProductCode) as ProductCode,dbo.TTRBody.amountInclVAT - dbo.TTRBody.VATAmount as netAmount,dbo.TTRBody.VATAmount,dbo.TTRBody.amountInclVAT as totalAmount
|
||||
' FROM dbo.CLFArchiv RIGHT OUTER JOIN
|
||||
' dbo.TTRBody ON dbo.CLFArchiv.OBUID = dbo.TTRBody.InfoField LEFT OUTER JOIN
|
||||
' dbo.tblWarenarten ON dbo.TTRBody.ProductCode = dbo.tblWarenarten.ProductCode
|
||||
'INNER JOIN [VERAG].[dbo].Kreditkarten ON dbo.TTRBody.CardNumber = Kreditkarten.KartenNr
|
||||
'INNER JOIN [VERAG].[dbo].Adressen ON Adressen.AdressenNr = Kreditkarten.AdressenNr
|
||||
' WHERE (dbo.TTRBody.PKHistory = 0) AND (dbo.TTRBody.PKFileName LIKE N'" & checkifTestfiles() & ".%') AND (TTRBody.abrechnungsdatum = '" & dat_Sum_Bis.Value.ToShortDateString & "')
|
||||
' ORDER BY dbo.TTRBody.CardNumber"
|
||||
|
||||
sqlstr &= " SELECT [cardnumber] as CardNumber
|
||||
,[licenceplate]
|
||||
,[turnoverdate]
|
||||
,[contractPartner] as ProductCode
|
||||
,[netAmount]
|
||||
,[VATamount]
|
||||
,[additionalData]
|
||||
,[totalAmount],
|
||||
Adressen.AdressenNr as KundenNr,
|
||||
Adressen.[Name 1]
|
||||
FROM tblAsfinagMaut
|
||||
INNER JOIN [dbo].Kreditkarten ON cardnumber = Kreditkarten.KartenNr
|
||||
INNER JOIN [dbo].Adressen ON Adressen.AdressenNr = Kreditkarten.AdressenNr"
|
||||
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
|
||||
'DataGridView.DataSource = dt
|
||||
|
||||
If dt.Rows.Count = 0 Then
|
||||
MsgBox("keine Daten vorhanden!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim print As New frmPrintLayout
|
||||
print.Text = "ASFINAG"
|
||||
|
||||
Dim rpt As New rptASFINAG_TransaktionenSumary
|
||||
|
||||
rpt.DataSource = dt
|
||||
|
||||
|
||||
'If cbxProdukt.Checked Then
|
||||
' rpt.GroupHeader2.DataField = "prod_descr"
|
||||
'Else
|
||||
' rpt.GroupHeader2.Visible = False
|
||||
' rpt.GroupFooter2.Visible = False
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
Dim sum = 0
|
||||
rpt.lblUeberschrift.Text = "ASFINAG Summenbericht " & CDate(dat_Sum_Bis.Value.ToShortDateString)
|
||||
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 sumNetto As Double = 0
|
||||
Dim sumMWST As Double = 0
|
||||
Dim sumBrutto As Double = 0
|
||||
|
||||
Dim sumperKdNrNetto As Double = 0
|
||||
Dim sumperKdNrMWST As Double = 0
|
||||
Dim sumperKdNrBrutto As Double = 0
|
||||
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
|
||||
|
||||
rpt.lblKundennr.Text = SQL.isDbnullEmpty(rpt.Fields.Item("KundenNr").Value, "")
|
||||
rpt.lblName1.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Name 1").Value, "")
|
||||
rpt.lblKartennr.Text = SQL.isDbnullEmpty(rpt.Fields.Item("CardNumber").Value, "") & " - " & SQL.isDbnullEmpty(rpt.Fields.Item("ProductCode").Value, "")
|
||||
|
||||
rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("netAmount").Value, 2, "")
|
||||
rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("VATamount").Value, 2, "")
|
||||
rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("totalAmount").Value, 2, "")
|
||||
|
||||
|
||||
rpt.lblSumNet.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("netAmount").Value, 2, "")
|
||||
rpt.lblSumVat.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("VATamount").Value, 2, "")
|
||||
rpt.lblSumBrt.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("totalAmount").Value, 2, "")
|
||||
|
||||
sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("netAmount").Value, 4, 0)
|
||||
sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("VATamount").Value, 4, 0)
|
||||
sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("totalAmount").Value, 4, 0)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
|
||||
rpt.lblSumNetto.Text = sumNetto.ToString("N2")
|
||||
rpt.lblSumMwst.Text = sumMWST.ToString("N2")
|
||||
rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
|
||||
|
||||
End Sub
|
||||
|
||||
print.Viewer.LoadDocument(rpt)
|
||||
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
print.Show()
|
||||
End Sub
|
||||
|
||||
Private Function checkifTestfiles() As String
|
||||
|
||||
If cbxTestdaten.Checked Then
|
||||
|
||||
Return "TEPVGTTR"
|
||||
Else
|
||||
Return "LEPVGTTR"
|
||||
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub TabPage5_Paint(sender As Object, e As PaintEventArgs) Handles TabPage5.Paint
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim letzteMaut = SQL.getValueTxtBySql("SELECT Abrechnungsdatum FROM Abrechnungsdatum", "ASFINAG")
|
||||
If letzteMaut IsNot Nothing AndAlso IsDate(letzteMaut) Then
|
||||
lblDatletzteMaut.Text = letzteMaut
|
||||
Else
|
||||
lblDatletzteMaut.Text = "-"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
|
||||
|
||||
Try
|
||||
|
||||
MsgBox("Funktion noch nicht implementiert!")
|
||||
Exit Sub
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dtAsfinagKartenpruef As DataTable = SQL.loadDgvBySql("
|
||||
SELECT cardnumber, Kreditkarten.KartenNr, Kreditkarten.AdressenNr, (SELECT Offerten.OffertenNr FROM [VERAG].[dbo].[Offerten] WHERE (((Offerten.KundenNr)=isnull([Kreditkarten].[AdressenNr],0)) AND ((Offerten.OffertenNr)=11))) AS Offerte_11
|
||||
FROM dbo.tblAsfinagMaut
|
||||
LEFT JOIN [dbo].[Kreditkarten] on cardnumber= Kreditkarten.KartenNr
|
||||
GROUP BY cardnumber, Kreditkarten.KartenNr, Kreditkarten.AdressenNr
|
||||
HAVING cardnumber is null or (cardnumber is not null AND ((Kreditkarten.AdressenNr) Is Not Null) AND (((SELECT Offerten.OffertenNr FROM [VERAG].[dbo].[Offerten] WHERE (((Offerten.KundenNr)=isnull([Kreditkarten].[AdressenNr],0)) AND ((Offerten.OffertenNr)=11)))) Is Null))
|
||||
ORDER BY cardnumber", "FMZOLL")
|
||||
|
||||
If dtAsfinagKartenpruef.Rows.Count = 0 Then
|
||||
MsgBox("Keine Daten vorhanden")
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As System.Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
|
||||
MsgBox("Funktion noch nicht implementiert!")
|
||||
|
||||
'Try
|
||||
|
||||
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' Dim frm As New Form
|
||||
' Dim dgv As New DataGridView()
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT dbo.CLFBody.PKHistory,
|
||||
' dbo.CLFBody.PKFileName,
|
||||
' dbo.CLFBody.PKLine,
|
||||
' dbo.CLFBody.RecordType,
|
||||
' dbo.CLFBody.fileNumber,
|
||||
' dbo.CLFBody.cardNumber,
|
||||
' dbo.CLFBody.validTo OBUID,
|
||||
' dbo.CLFBody.vehicleLicensePlate,
|
||||
' dbo.CLFBody.nationality,
|
||||
' dbo.CLFBody.vehicleCategory,
|
||||
' dbo.CLFBody.emissionCategory,
|
||||
' dbo.CLFBody.status,
|
||||
' dbo.CLFBody.contractDate,
|
||||
' dbo.CLFBody.fileVersion,
|
||||
' dbo.CLFBody.engineCharacteristics,
|
||||
' dbo.CLFBody.CO2EmissionsClass,
|
||||
' dbo.CLFBody.contractType FROM dbo.CLF INNER JOIN dbo.CLFBody ON dbo.CLF.PKHistory = dbo.CLFBody.PKHistory AND dbo.CLF.PKFileName = dbo.CLFBody.PKFileName
|
||||
' ", "ASFINAG")
|
||||
|
||||
' dgv.DataSource = dt
|
||||
' If dgv IsNot Nothing Then
|
||||
' frm.Size = New Size(1400, 1000)
|
||||
' dgv.Size = New Size(frm.Size.Width - 50, frm.Size.Height - 50)
|
||||
' dgv.Dock = DockStyle.Fill
|
||||
' dgv.Anchor = AnchorStyles.Left
|
||||
' dgv.Anchor = AnchorStyles.Top
|
||||
' dgv.ReadOnly = True
|
||||
' frm.Controls.Add(dgv)
|
||||
' frm.StartPosition = FormStartPosition.CenterScreen
|
||||
' frm.ShowDialog()
|
||||
' End If
|
||||
|
||||
|
||||
'Catch ex As System.Exception
|
||||
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
'End Try
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Class cMDMAuswertung
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user