Asfinag, Mitarbeiter, UID-Prüfung, Rechnugssuche, Fiskalkunde, Kundenübersicht, div. Auswertungen für Asfinag

SDL/Fakturierung/frmRechnungenSuche.Designer.vb

@@ -132,6 +132,7 @@ Partial Class frmRechnungenSuche
         Me.Label4 = New System.Windows.Forms.Label()
         Me.pnlTop = New System.Windows.Forms.Panel()
         Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.lblunterschRe = New System.Windows.Forms.Label()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer.Panel1.SuspendLayout()
         Me.SplitContainer.Panel2.SuspendLayout()
@@ -1472,6 +1473,7 @@ Partial Class frmRechnungenSuche
         'pnlOpt
         '
         Me.pnlOpt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlOpt.Controls.Add(Me.lblunterschRe)
         Me.pnlOpt.Controls.Add(Me.Label17)
         Me.pnlOpt.Controls.Add(Me.txtMaxSrch)
         Me.pnlOpt.Controls.Add(Me.pnlBerichte)
@@ -1730,7 +1732,7 @@ Partial Class frmRechnungenSuche
         '
         Me.lblErgebnis.Location = New System.Drawing.Point(990, 4)
         Me.lblErgebnis.Name = "lblErgebnis"
-        Me.lblErgebnis.Size = New System.Drawing.Size(215, 14)
+        Me.lblErgebnis.Size = New System.Drawing.Size(168, 16)
         Me.lblErgebnis.TabIndex = 2
         Me.lblErgebnis.Text = "Ergebnisse: 0"
         Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -1797,6 +1799,15 @@ Partial Class frmRechnungenSuche
         Me.TestToolStripMenuItem.Size = New System.Drawing.Size(150, 19)
         Me.TestToolStripMenuItem.Text = "test"
         '
+        'lblunterschRe
+        '
+        Me.lblunterschRe.Location = New System.Drawing.Point(1164, 2)
+        Me.lblunterschRe.Name = "lblunterschRe"
+        Me.lblunterschRe.Size = New System.Drawing.Size(162, 20)
+        Me.lblunterschRe.TabIndex = 45
+        Me.lblunterschRe.Text = "Anz untersch. Belege: 0"
+        Me.lblunterschRe.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
         'frmRechnungenSuche
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1946,4 +1957,5 @@ Partial Class frmRechnungenSuche
     Friend WithEvents btnPDF As Button
     Friend WithEvents ctxtRg As ContextMenuStrip
     Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents lblunterschRe As Label
 End Class

SDL/Fakturierung/frmRechnungenSuche.resx

@@ -126,9 +126,6 @@
   <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>316, 17</value>
   </metadata>
-  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>316, 17</value>
-  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="ToolStripMenuItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

SDL/Fakturierung/frmRechnungenSuche.vb

@@ -1,4 +1,5 @@
 Imports System.Data.SqlClient
+Imports DAKOSY_Worker.DEERRE
 Imports TAlex.WPF.Helpers
 
 Public Class frmRechnungenSuche
@@ -86,8 +87,9 @@ Public Class frmRechnungenSuche
             .Columns("SteuerfreierGesamtbetrag").HeaderText = "Betrag (stfr.)"
             .Columns("SteuerfreierGesamtbetrag").DefaultCellStyle.Format = "N2"
 
-
             lblErgebnis.Text = "Ergebnisse: " & .RowCount
+            lblunterschRe.Text = "Anz. untersch. Belege: " & .Rows.Cast(Of DataGridViewRow)().[Select](Function(r) CInt(r.Cells("RechnungsNr").Value)).Distinct().Count()
+
         End With
         brexitXLS = False
         Me.Cursor = Cursors.Default
@@ -814,8 +816,8 @@ Public Class frmRechnungenSuche
         Dim list As New List(Of Integer)
         If DataGridView.SelectedRows.Count > 0 Then
             For Each r As DataGridViewRow In DataGridView.SelectedRows
-                If listRgNr.FindIndex((Function(x) x.ToString = r.Cells("RechnungsNr").Value)) < 0 Then
+                If listRgNr.FindIndex((Function(x) x.ToString = r.Cells("RechnungsNr").Value)) <0 Then
-                    list.Add(r.Cells("RK_ID").Value)
+                    List.Add(r.Cells("RK_ID").Value)
                     listRgNr.Add(r.Cells("RechnungsNr").Value)
                 End If
             Next

SDL/SDL.vbproj

@@ -727,6 +727,12 @@
     <Compile Include="mdm\Besuchsberichte\usrCntlBesuchsberichte.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="mdm\frmDatumsabfrage.Designer.vb">
+      <DependentUpon>frmDatumsabfrage.vb</DependentUpon>
+    </Compile>
+    <Compile Include="mdm\frmDatumsabfrage.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="mdm\PLOSE\frmPLOSE_ProductCodes.Designer.vb">
       <DependentUpon>frmPLOSE_ProductCodes.vb</DependentUpon>
     </Compile>
@@ -739,10 +745,10 @@
     <Compile Include="mdm\PLOSE\rptPLOSE_CustomerConsortio.vb">
       <SubType>Component</SubType>
     </Compile>
-    <Compile Include="mdm\PLOSE\rptASFINAG_TransaktionenSumary.Designer.vb">
+    <Compile Include="mdm\rptASFINAG_TransaktionenSumary.Designer.vb">
       <DependentUpon>rptASFINAG_TransaktionenSumary.vb</DependentUpon>
     </Compile>
-    <Compile Include="mdm\PLOSE\rptASFINAG_TransaktionenSumary.vb">
+    <Compile Include="mdm\rptASFINAG_TransaktionenSumary.vb">
       <SubType>Component</SubType>
     </Compile>
     <Compile Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb">
@@ -3119,13 +3125,16 @@
     <EmbeddedResource Include="mdm\Besuchsberichte\usrCntlBesuchsberichte.resx">
       <DependentUpon>usrCntlBesuchsberichte.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="mdm\frmDatumsabfrage.resx">
+      <DependentUpon>frmDatumsabfrage.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="mdm\PLOSE\frmPLOSE_ProductCodes.resx">
       <DependentUpon>frmPLOSE_ProductCodes.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="mdm\PLOSE\rptPLOSE_CustomerConsortio.resx">
       <DependentUpon>rptPLOSE_CustomerConsortio.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="mdm\PLOSE\rptASFINAG_TransaktionenSumary.resx">
+    <EmbeddedResource Include="mdm\rptASFINAG_TransaktionenSumary.resx">
       <DependentUpon>rptASFINAG_TransaktionenSumary.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenPLOSE_MEDPASS.resx">

SDL/frmEssensbestellungenAdministration.vb

@@ -26,9 +26,6 @@ Public Class frmEssensbestellungenAdministration
 
         cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen]", False, "AVISO", True)
 
-        setMDM()
-
-
         cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen]  UNION SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)) as kwDateNew FROM [tblEBMenu] where MenuDateVon > GETDATE()ORDER BY eb_kw desc", False, "AVISO", True)
 
         cbxMailKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] ORDER BY eb_kw desc", False, "AVISO", True)
@@ -37,6 +34,8 @@ Public Class frmEssensbestellungenAdministration
         cbxMailGebäude.changeItem("")
         cbxMailGebäude.Items.AddRange(cboGebaeude.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
 
+        setMDM()
+
         loadBestellungen()
 
     End Sub

SDL/kunden/Berichte/rptFiskalkunde.vb

@@ -43,6 +43,12 @@ Public Class rptFiskalkunde
 
         lblUeberschrift.Text = "Checkliste f<>r " & FK.FK_Art & "-Fiskal Kunden"
 
+        If FK.FK_Art = "DE" Then
+            picVeragAG.Visible = True
+        Else
+            picVeragCS.Visible = True
+        End If
+
         txtKdNr.Text = AD.AdressenNr
         txtFirma.Text = AD.Name_1 & " " & AD.Name_2
         txtEMail.Text = AD.E_Mail
@@ -146,9 +152,9 @@ Public Class rptFiskalkunde
 
 
         Select Case Firma
-            Case "IMEX" : Me.picVERAG.Image = My.Resources.IMEX_LOGO_simple : Me.Label28.Text = "IMEX Customs Service GmbH"
+            Case "IMEX" : Me.picVeragAG.Image = My.Resources.IMEX_LOGO_simple : Me.Label28.Text = "IMEX Customs Service GmbH"
-            Case "ATILLA" : Me.picVERAG.Image = My.Resources.Atilla : Me.Label28.Text = "ATILLA Spedition"
+            Case "ATILLA" : Me.picVeragAG.Image = My.Resources.Atilla : Me.Label28.Text = "ATILLA Spedition"
-            Case "UNISPED" : Me.picVERAG.Image = My.Resources.Unisped_logo : Me.Label28.Text = "UNISPED Speditions GmbH"
+            Case "UNISPED" : Me.picVeragAG.Image = My.Resources.Unisped_logo : Me.Label28.Text = "UNISPED Speditions GmbH"
             Case Else
         End Select
         txtAnsprechpartner.Text = AD.Ansprechpartner

SDL/kunden/usrCntlKundenuebersicht.Designer.vb

@@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht))
-        Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.btnExcel = New System.Windows.Forms.Button()
@@ -110,6 +110,7 @@ Partial Class usrCntlKundenuebersicht
         Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
         Me.lblBesonderheiten = New System.Windows.Forms.Label()
         Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.PictureBox6 = New System.Windows.Forms.PictureBox()
         Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.btnCreditsafe = New System.Windows.Forms.Button()
         Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton()
@@ -254,7 +255,6 @@ Partial Class usrCntlKundenuebersicht
         Me.btnReloadOP = New System.Windows.Forms.Button()
         Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.SessionService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService()
-        Me.PictureBox6 = New System.Windows.Forms.PictureBox()
         Me.cntxtAddVM.SuspendLayout()
         Me.tbWeitereKundenDetails.SuspendLayout()
         Me.tbOfferten.SuspendLayout()
@@ -274,6 +274,7 @@ Partial Class usrCntlKundenuebersicht
         Me.Panel9.SuspendLayout()
         Me.pnlVERAGSnspr.SuspendLayout()
         Me.Panel4.SuspendLayout()
+        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel5.SuspendLayout()
         Me.Panel7.SuspendLayout()
         Me.grpAdresse.SuspendLayout()
@@ -305,7 +306,6 @@ Partial Class usrCntlKundenuebersicht
         Me.ContextMenuStrip3.SuspendLayout()
         Me.ContextMenuStrip2.SuspendLayout()
         Me.ContextMenuStrip4.SuspendLayout()
-        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'cntxtAddVM
@@ -393,8 +393,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
         Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
         Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
-        DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
+        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
         Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
         Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -414,8 +414,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False
         Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True
         Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
-        DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
+        Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
         Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
         Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -425,10 +425,10 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
         Me.dgvOffertenSperrliste.ReadOnly = True
         Me.dgvOffertenSperrliste.RowHeadersVisible = False
-        DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle27.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
-        DataGridViewCellStyle27.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
-        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle27
+        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257)
         Me.dgvOffertenSperrliste.TabIndex = 0
@@ -566,8 +566,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvOffenePosten.AllowUserToAddRows = False
         Me.dgvOffenePosten.AllowUserToDeleteRows = False
         Me.dgvOffenePosten.AllowUserToResizeRows = False
-        DataGridViewCellStyle28.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle28
+        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
         Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -647,8 +647,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
         Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
         Me.dgvUmsatzbericht.AllowUserToResizeRows = False
-        DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
+        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
         Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill
@@ -710,8 +710,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvAnhaenge.AllowUserToAddRows = False
         Me.dgvAnhaenge.AllowUserToDeleteRows = False
         Me.dgvAnhaenge.AllowUserToResizeRows = False
-        DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30
+        Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
         Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -1005,6 +1005,7 @@ Partial Class usrCntlKundenuebersicht
         '
         'UsrCntlKundenBesonderheiten1
         '
+        Me.UsrCntlKundenBesonderheiten1.AutoScroll = True
         Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
         Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32)
@@ -1398,6 +1399,7 @@ Partial Class usrCntlKundenuebersicht
         Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(7, 32)
         Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
         Me.rtbAbf_Besonderheiten.ReadOnly = True
+        Me.rtbAbf_Besonderheiten.ShowSelectionMargin = True
         Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(660, 200)
         Me.rtbAbf_Besonderheiten.TabIndex = 7
         Me.rtbAbf_Besonderheiten.Text = ""
@@ -1433,6 +1435,17 @@ Partial Class usrCntlKundenuebersicht
         Me.Panel4.Size = New System.Drawing.Size(662, 26)
         Me.Panel4.TabIndex = 37
         '
+        'PictureBox6
+        '
+        Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
+        Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox6.Location = New System.Drawing.Point(639, 4)
+        Me.PictureBox6.Name = "PictureBox6"
+        Me.PictureBox6.Size = New System.Drawing.Size(18, 19)
+        Me.PictureBox6.TabIndex = 132
+        Me.PictureBox6.TabStop = False
+        Me.PictureBox6.Visible = False
+        '
         'FlatButton2
         '
         Me.FlatButton2.allowBorder = False
@@ -2399,8 +2412,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvVollmachten.AllowUserToDeleteRows = False
         Me.dgvVollmachten.AllowUserToOrderColumns = True
         Me.dgvVollmachten.AllowUserToResizeRows = False
-        DataGridViewCellStyle31.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31
+        Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White
         Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2453,8 +2466,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvVertraege.AllowUserToDeleteRows = False
         Me.dgvVertraege.AllowUserToOrderColumns = True
         Me.dgvVertraege.AllowUserToResizeRows = False
-        DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32
+        Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
         Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White
         Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2629,8 +2642,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvGestGarantie.AllowUserToDeleteRows = False
         Me.dgvGestGarantie.AllowUserToOrderColumns = True
         Me.dgvGestGarantie.AllowUserToResizeRows = False
-        DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33
+        Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White
         Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill
@@ -3083,24 +3096,24 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvAufschub.AllowUserToResizeColumns = False
         Me.dgvAufschub.AllowUserToResizeRows = False
         Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle34
+        Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
         Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL})
-        DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle36
+        Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12
         Me.dgvAufschub.Location = New System.Drawing.Point(13, 61)
         Me.dgvAufschub.MultiSelect = False
         Me.dgvAufschub.Name = "dgvAufschub"
@@ -3127,8 +3140,8 @@ Partial Class usrCntlKundenuebersicht
         '
         'HZA
         '
-        DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        Me.HZA.DefaultCellStyle = DataGridViewCellStyle35
+        Me.HZA.DefaultCellStyle = DataGridViewCellStyle11
         Me.HZA.HeaderText = "HZA"
         Me.HZA.Name = "HZA"
         Me.HZA.ReadOnly = True
@@ -3312,17 +3325,6 @@ Partial Class usrCntlKundenuebersicht
         Me.SessionService1.Url = "https://finanzonline.bmf.gv.at/fonws/ws/session"
         Me.SessionService1.UseDefaultCredentials = False
         '
-        'PictureBox6
-        '
-        Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
-        Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox6.Location = New System.Drawing.Point(639, 4)
-        Me.PictureBox6.Name = "PictureBox6"
-        Me.PictureBox6.Size = New System.Drawing.Size(18, 19)
-        Me.PictureBox6.TabIndex = 132
-        Me.PictureBox6.TabStop = False
-        Me.PictureBox6.Visible = False
-        '
         'usrCntlKundenuebersicht
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3369,6 +3371,7 @@ Partial Class usrCntlKundenuebersicht
         Me.pnlVERAGSnspr.PerformLayout()
         Me.Panel4.ResumeLayout(False)
         Me.Panel4.PerformLayout()
+        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel5.ResumeLayout(False)
         Me.Panel5.PerformLayout()
         Me.Panel7.ResumeLayout(False)
@@ -3409,7 +3412,6 @@ Partial Class usrCntlKundenuebersicht
         Me.ContextMenuStrip3.ResumeLayout(False)
         Me.ContextMenuStrip2.ResumeLayout(False)
         Me.ContextMenuStrip4.ResumeLayout(False)
-        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -3019,4 +3019,23 @@ Public Class usrCntlKundenuebersicht
         Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Creditsafe"
         Process.Start(webAddress)
     End Sub
+
+    Private Sub rtbAbf_Besonderheiten_VScroll(sender As Object, e As EventArgs) Handles rtbAbf_Besonderheiten.HScroll, rtbAbf_Besonderheiten.VScroll
+        With rtbAbf_Besonderheiten
+            .ReadOnly = True
+            .Text = .Text & vbCrLf
+            .SelectionStart = .Text.Length
+            .ScrollToCaret()
+        End With
+
+    End Sub
+
+    Private Sub rtbAbf_Besonderheiten_TextChanged(sender As Object, e As EventArgs) Handles rtbAbf_Besonderheiten.TextChanged
+        With rtbAbf_Besonderheiten
+            .ReadOnly = True
+            .Text = .Text & vbCrLf
+            .SelectionStart = .Text.Length
+            .ScrollToCaret()
+        End With
+    End Sub
 End Class

SDL/mdm/frmDatumsabfrage.Designer.vb

@@ -0,0 +1,126 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmDatumsabfrage
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.dtp_date = New System.Windows.Forms.DateTimePicker()
+        Me.btnClose = New System.Windows.Forms.Button()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.MyPanel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'MyPanel1
+        '
+        Me.MyPanel1.BackColor = System.Drawing.Color.White
+        Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.MyPanel1.Controls.Add(Me.dtp_date)
+        Me.MyPanel1.Controls.Add(Me.btnClose)
+        Me.MyPanel1.Controls.Add(Me.btn)
+        Me.MyPanel1.Controls.Add(Me.lbl)
+        Me.MyPanel1.Controls.Add(Me.Label1)
+        Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.MyPanel1.Location = New System.Drawing.Point(0, 0)
+        Me.MyPanel1.Name = "MyPanel1"
+        Me.MyPanel1.Size = New System.Drawing.Size(264, 77)
+        Me.MyPanel1.TabIndex = 3
+        '
+        'dtp_date
+        '
+        Me.dtp_date.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtp_date.Location = New System.Drawing.Point(16, 29)
+        Me.dtp_date.Name = "dtp_date"
+        Me.dtp_date.Size = New System.Drawing.Size(100, 20)
+        Me.dtp_date.TabIndex = 25
+        '
+        'btnClose
+        '
+        Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnClose.BackColor = System.Drawing.Color.Red
+        Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.White
+        Me.btnClose.FlatAppearance.BorderSize = 0
+        Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
+        Me.btnClose.ForeColor = System.Drawing.Color.White
+        Me.btnClose.Location = New System.Drawing.Point(231, 0)
+        Me.btnClose.Name = "btnClose"
+        Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.btnClose.Size = New System.Drawing.Size(31, 20)
+        Me.btnClose.TabIndex = 5
+        Me.btnClose.Text = "X"
+        Me.btnClose.UseVisualStyleBackColor = False
+        '
+        'btn
+        '
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
+        Me.btn.Location = New System.Drawing.Point(197, 48)
+        Me.btn.Margin = New System.Windows.Forms.Padding(0)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(57, 22)
+        Me.btn.TabIndex = 2
+        Me.btn.Text = "OK"
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(13, 8)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(215, 13)
+        Me.lbl.TabIndex = 0
+        Me.lbl.Text = "Bitte geben Sie das Abrechnungsdatum an: "
+        '
+        'Label1
+        '
+        Me.Label1.ForeColor = System.Drawing.Color.Red
+        Me.Label1.Location = New System.Drawing.Point(13, 52)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(159, 18)
+        Me.Label1.TabIndex = 6
+        '
+        'frmDatumsabfrage
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(264, 77)
+        Me.Controls.Add(Me.MyPanel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Name = "frmDatumsabfrage"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "frmDatumsabfrage"
+        Me.MyPanel1.ResumeLayout(False)
+        Me.MyPanel1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
+    Friend WithEvents btnClose As Button
+    Friend WithEvents btn As Button
+    Friend WithEvents lbl As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents dtp_date As DateTimePicker
+End Class

SDL/mdm/frmDatumsabfrage.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

SDL/mdm/frmDatumsabfrage.vb

@@ -0,0 +1,35 @@
+Imports GrapeCity.Viewer.Common.Model
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmDatumsabfrage
+
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+    End Sub
+
+    Public Datum As Date = CDate(Now.ToShortDateString)
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Label1.Text = ""
+
+        If CDate(dtp_date.Value) > CDate(Now.ToShortDateString) Then Label1.Text = "Muss heute oder früher sein!" : Me.DialogResult = DialogResult.None : Exit Sub
+        Me.DialogResult = DialogResult.OK
+    End Sub
+
+    Private Sub dtp_date_KeyDown(sender As Object, e As KeyEventArgs) Handles dtp_date.KeyDown
+        If e.KeyCode = Keys.Return Then
+            btn.PerformClick()
+        End If
+    End Sub
+
+    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
+        Datum = CDate(Now.ToShortDateString)
+        Me.Close()
+    End Sub
+
+    Private Sub frmDatumsabfrage(sender As Object, e As EventArgs) Handles Me.Load
+        dtp_date.Value = Now.ToShortDateString
+    End Sub
+
+End Class

SDL/mdm/frmMDMDatenverarbetiung.Designer.vb

@@ -25,6 +25,8 @@ Partial Class frmMDMDatenverarbetiung
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDMDatenverarbetiung))
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.cbxASFINAGNichtAbgerechnet = New System.Windows.Forms.CheckBox()
+        Me.cbxTestdaten = New System.Windows.Forms.CheckBox()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.Label46 = New System.Windows.Forms.Label()
         Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker()
@@ -41,6 +43,9 @@ Partial Class frmMDMDatenverarbetiung
         Me.lblProzPruef = New System.Windows.Forms.Label()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.pic = New System.Windows.Forms.PictureBox()
+        Me.pnlAsfinag = New System.Windows.Forms.Panel()
+        Me.bntDatumzuruecksetzen = New System.Windows.Forms.Button()
+        Me.bntDatumsetzen = New System.Windows.Forms.Button()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.Button6 = New System.Windows.Forms.Button()
         Me.Button5 = New System.Windows.Forms.Button()
@@ -64,26 +69,21 @@ Partial Class frmMDMDatenverarbetiung
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.pnlAsfinag = New System.Windows.Forms.Panel()
-        Me.Datum_Abrechnungsdaten = New System.Windows.Forms.DateTimePicker()
-        Me.Button9 = New System.Windows.Forms.Button()
-        Me.Button10 = New System.Windows.Forms.Button()
-        Me.cbxNichtabgerechnet = New System.Windows.Forms.CheckBox()
-        Me.cbxTestdaten = New System.Windows.Forms.CheckBox()
         Me.pnl.SuspendLayout()
         Me.Panel4.SuspendLayout()
         Me.FlowLayoutPanel.SuspendLayout()
         Me.Panel1.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pnlAsfinag.SuspendLayout()
         Me.Panel3.SuspendLayout()
         Me.Panel2.SuspendLayout()
         CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.pnlAsfinag.SuspendLayout()
         Me.SuspendLayout()
         '
         'pnl
         '
+        Me.pnl.Controls.Add(Me.cbxASFINAGNichtAbgerechnet)
         Me.pnl.Controls.Add(Me.cbxTestdaten)
         Me.pnl.Controls.Add(Me.Panel4)
         Me.pnl.Controls.Add(Me.FlowLayoutPanel)
@@ -97,6 +97,30 @@ Partial Class frmMDMDatenverarbetiung
         Me.pnl.Size = New System.Drawing.Size(1163, 100)
         Me.pnl.TabIndex = 1
         '
+        'cbxASFINAGNichtAbgerechnet
+        '
+        Me.cbxASFINAGNichtAbgerechnet.AutoSize = True
+        Me.cbxASFINAGNichtAbgerechnet.Checked = True
+        Me.cbxASFINAGNichtAbgerechnet.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxASFINAGNichtAbgerechnet.Location = New System.Drawing.Point(784, 75)
+        Me.cbxASFINAGNichtAbgerechnet.Name = "cbxASFINAGNichtAbgerechnet"
+        Me.cbxASFINAGNichtAbgerechnet.Size = New System.Drawing.Size(112, 17)
+        Me.cbxASFINAGNichtAbgerechnet.TabIndex = 52
+        Me.cbxASFINAGNichtAbgerechnet.Text = "nicht abgerechnet"
+        Me.cbxASFINAGNichtAbgerechnet.UseVisualStyleBackColor = True
+        '
+        'cbxTestdaten
+        '
+        Me.cbxTestdaten.AutoSize = True
+        Me.cbxTestdaten.Checked = True
+        Me.cbxTestdaten.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxTestdaten.Location = New System.Drawing.Point(905, 75)
+        Me.cbxTestdaten.Name = "cbxTestdaten"
+        Me.cbxTestdaten.Size = New System.Drawing.Size(74, 17)
+        Me.cbxTestdaten.TabIndex = 51
+        Me.cbxTestdaten.Text = "Testdaten"
+        Me.cbxTestdaten.UseVisualStyleBackColor = True
+        '
         'Panel4
         '
         Me.Panel4.Controls.Add(Me.Label46)
@@ -276,6 +300,36 @@ Partial Class frmMDMDatenverarbetiung
         Me.pic.TabStop = False
         Me.pic.Visible = False
         '
+        'pnlAsfinag
+        '
+        Me.pnlAsfinag.Controls.Add(Me.bntDatumzuruecksetzen)
+        Me.pnlAsfinag.Controls.Add(Me.bntDatumsetzen)
+        Me.pnlAsfinag.Location = New System.Drawing.Point(616, 6)
+        Me.pnlAsfinag.Name = "pnlAsfinag"
+        Me.pnlAsfinag.Size = New System.Drawing.Size(311, 53)
+        Me.pnlAsfinag.TabIndex = 29
+        Me.pnlAsfinag.Visible = False
+        '
+        'bntDatumzuruecksetzen
+        '
+        Me.bntDatumzuruecksetzen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.bntDatumzuruecksetzen.Location = New System.Drawing.Point(168, 5)
+        Me.bntDatumzuruecksetzen.Name = "bntDatumzuruecksetzen"
+        Me.bntDatumzuruecksetzen.Size = New System.Drawing.Size(140, 23)
+        Me.bntDatumzuruecksetzen.TabIndex = 49
+        Me.bntDatumzuruecksetzen.Text = "Abr-datum zurücksetzen"
+        Me.bntDatumzuruecksetzen.UseVisualStyleBackColor = True
+        '
+        'bntDatumsetzen
+        '
+        Me.bntDatumsetzen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.bntDatumsetzen.Location = New System.Drawing.Point(10, 3)
+        Me.bntDatumsetzen.Name = "bntDatumsetzen"
+        Me.bntDatumsetzen.Size = New System.Drawing.Size(129, 23)
+        Me.bntDatumsetzen.TabIndex = 48
+        Me.bntDatumsetzen.Text = "Abr-datum setzen"
+        Me.bntDatumsetzen.UseVisualStyleBackColor = True
+        '
         'Panel3
         '
         Me.Panel3.BackColor = System.Drawing.Color.White
@@ -558,70 +612,6 @@ Partial Class frmMDMDatenverarbetiung
         Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577)
         Me.MyDatagridview1.TabIndex = 0
         '
-        'pnlAsfinag
-        '
-        Me.pnlAsfinag.Controls.Add(Me.cbxNichtabgerechnet)
-        Me.pnlAsfinag.Controls.Add(Me.Button10)
-        Me.pnlAsfinag.Controls.Add(Me.Button9)
-        Me.pnlAsfinag.Controls.Add(Me.Datum_Abrechnungsdaten)
-        Me.pnlAsfinag.Location = New System.Drawing.Point(616, 6)
-        Me.pnlAsfinag.Name = "pnlAsfinag"
-        Me.pnlAsfinag.Size = New System.Drawing.Size(311, 53)
-        Me.pnlAsfinag.TabIndex = 29
-        Me.pnlAsfinag.Visible = False
-        '
-        'Datum_Abrechnungsdaten
-        '
-        Me.Datum_Abrechnungsdaten.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.Datum_Abrechnungsdaten.Location = New System.Drawing.Point(193, 3)
-        Me.Datum_Abrechnungsdaten.Name = "Datum_Abrechnungsdaten"
-        Me.Datum_Abrechnungsdaten.Size = New System.Drawing.Size(103, 20)
-        Me.Datum_Abrechnungsdaten.TabIndex = 22
-        '
-        'Button9
-        '
-        Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button9.Location = New System.Drawing.Point(10, 27)
-        Me.Button9.Name = "Button9"
-        Me.Button9.Size = New System.Drawing.Size(129, 23)
-        Me.Button9.TabIndex = 48
-        Me.Button9.Text = "Abr-datum setzen"
-        Me.Button9.UseVisualStyleBackColor = True
-        '
-        'Button10
-        '
-        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button10.Location = New System.Drawing.Point(168, 27)
-        Me.Button10.Name = "Button10"
-        Me.Button10.Size = New System.Drawing.Size(140, 23)
-        Me.Button10.TabIndex = 49
-        Me.Button10.Text = "Abr-datum zurücksetzen"
-        Me.Button10.UseVisualStyleBackColor = True
-        '
-        'cbxNichtabgerechnet
-        '
-        Me.cbxNichtabgerechnet.AutoSize = True
-        Me.cbxNichtabgerechnet.Checked = True
-        Me.cbxNichtabgerechnet.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxNichtabgerechnet.Location = New System.Drawing.Point(10, 6)
-        Me.cbxNichtabgerechnet.Name = "cbxNichtabgerechnet"
-        Me.cbxNichtabgerechnet.Size = New System.Drawing.Size(112, 17)
-        Me.cbxNichtabgerechnet.TabIndex = 50
-        Me.cbxNichtabgerechnet.Text = "nicht abgerechnet"
-        Me.cbxNichtabgerechnet.UseVisualStyleBackColor = True
-        '
-        'cbxTestdaten
-        '
-        Me.cbxTestdaten.AutoSize = True
-        Me.cbxTestdaten.Checked = True
-        Me.cbxTestdaten.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxTestdaten.Location = New System.Drawing.Point(896, 74)
-        Me.cbxTestdaten.Name = "cbxTestdaten"
-        Me.cbxTestdaten.Size = New System.Drawing.Size(74, 17)
-        Me.cbxTestdaten.TabIndex = 51
-        Me.cbxTestdaten.Text = "Testdaten"
-        Me.cbxTestdaten.UseVisualStyleBackColor = True
-        '
         'frmMDMDatenverarbetiung
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -644,12 +634,11 @@ Partial Class frmMDMDatenverarbetiung
         Me.Panel1.PerformLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.pnlAsfinag.ResumeLayout(False)
         Me.Panel3.ResumeLayout(False)
         Me.Panel2.ResumeLayout(False)
         Me.Panel2.PerformLayout()
         CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.pnlAsfinag.ResumeLayout(False)
-        Me.pnlAsfinag.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub
@@ -695,9 +684,8 @@ Partial Class frmMDMDatenverarbetiung
     Friend WithEvents Panel4 As Panel
     Friend WithEvents Button8 As Button
     Friend WithEvents pnlAsfinag As Panel
-    Friend WithEvents Button9 As Button
+    Friend WithEvents bntDatumsetzen As Button
-    Friend WithEvents Datum_Abrechnungsdaten As DateTimePicker
+    Friend WithEvents bntDatumzuruecksetzen As Button
-    Friend WithEvents Button10 As Button
-    Friend WithEvents cbxNichtabgerechnet As CheckBox
     Friend WithEvents cbxTestdaten As CheckBox
+    Friend WithEvents cbxASFINAGNichtAbgerechnet As CheckBox
 End Class

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -2,6 +2,8 @@
 Imports System.IO
 Imports com.sun.jdi
 Imports DAKOSY_Worker.NichtAbschliessendeFestsetzung
+Imports sun.nio.cs.ext
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmMDMDatenverarbetiung
 
@@ -11,6 +13,7 @@ Public Class frmMDMDatenverarbetiung
 
     ' Dim ProduktCode_NOT_IN = "SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE  [plp_einarbeiten]=0 "
     Dim ProduktCode_NOT_IN = "'9020'"
+    Dim datum As Date = Nothing
     Private Sub frmPloseDatenverarbetiung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.Top = 0
         Me.Height = My.Computer.Screen.WorkingArea.Height
@@ -71,8 +74,8 @@ Public Class frmMDMDatenverarbetiung
                 btnDatenLaden.Text = "Daten laden"
             Case "UTA" : initDgv_UTA()
                 btnDatenLaden.Text = "Daten laden"
-            Case "ASFINAG" : initDgv_ASFINAG(Not cbxNichtabgerechnet.Checked)
+            Case "ASFINAG" : initDgv_ASFINAG(Not cbxASFINAGNichtAbgerechnet.Checked)
-                btnDatenLaden.Text = "Mautdaten laden"
+                btnDatenLaden.Text = "Mautdaten einlesen"
         End Select
     End Sub
 
@@ -92,6 +95,7 @@ Public Class frmMDMDatenverarbetiung
                     'End If
                 End If
             Case "ASFINAG"
+                MsgBox("Funktion nicht implementiert")
 
         End Select
     End Sub
@@ -197,14 +201,15 @@ Public Class frmMDMDatenverarbetiung
         Dim displayFilter = False
         Dim sqlstr As String = ""
 
+        If datum = Nothing Then Exit Sub
 
-        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
+        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
                         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 = '" & Datum_Abrechnungsdaten.Value.ToShortDateString & "')
+                    WHERE (dbo.TTRBody.PKHistory = 0) AND (dbo.TTRBody.PKFileName LIKE N'" & checkifTestfiles() & ".%') AND (TTRBody.abrechnungsdatum = '" & datum.ToShortDateString & "')
                     ORDER BY dbo.TTRBody.CardNumber"
 
 
@@ -230,7 +235,7 @@ Public Class frmMDMDatenverarbetiung
 
 
         Dim sum = 0
-        rpt.lblUeberschrift.Text = "ASFINAG Summenbericht " & CDate(Datum_Abrechnungsdaten.Value.ToShortDateString)
+        rpt.lblUeberschrift.Text = "ASFINAG Summenbericht " & CDate(datum.ToShortDateString)
         rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
         'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung
 
@@ -457,8 +462,8 @@ Public Class frmMDMDatenverarbetiung
 
     Sub initDgv_ASFINAG(abgerechnet As Boolean)
 
-        dat_Sum_Von.Value = CDate(SQL.getValueTxtBySql("SELECT Abrechnungsdatum FROM Abrechnungsdatum", "ASFINAG"))
+        'datum = CDate(SQL.getValueTxtBySql("SELECT Abrechnungsdatum FROM Abrechnungsdatum", "ASFINAG"))
-        Dim sqlString = "AND (TTRBody.abrechnungsdatum " & IIf(abgerechnet, "= '" & Datum_Abrechnungsdaten.Value.ToShortDateString & "')", "is null)")
+        Dim sqlString = "AND (TTRBody.abrechnungsdatum " & IIf(abgerechnet, "is not null)", "is null)")
         With MyDatagridview1
             .Columns.Clear()
             'MsgBox(.sql)
@@ -1711,21 +1716,24 @@ Public Class frmMDMDatenverarbetiung
         pruefData_ASFINAG = True
         Try
 
-            Dim SQLAbrechnungsparameter = ""
+            '     Dim dtAsfinagKartenpruef As DataTable = SQL.loadDgvBySql("
-            If MsgBox("Prüfung auf Inkonsistenz der Kartennummern mit Abrechnungsdatum vom " & Datum_Abrechnungsdaten.Value.ToShortDateString & " ?", vbYesNoCancel) = MsgBoxResult.Ok Then
+            '                 SELECT dbo.TTRBody.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
-                SQLAbrechnungsparameter = " AND (TTRBody.abrechnungsdatum = '" & Datum_Abrechnungsdaten.Value.ToShortDateString & "') "
+            '                     FROM dbo.CLFArchiv 
-            End If
+            '                     RIGHT OUTER JOIN dbo.TTRBody ON dbo.CLFArchiv.OBUID = dbo.TTRBody.InfoField 
+            'LEFT OUTER JOIN dbo.tblWarenarten ON dbo.TTRBody.ProductCode = dbo.tblWarenarten.ProductCode
+            '                     LEFT JOIN [VERAG].[dbo].[Kreditkarten] on dbo.TTRBody.CardNumber = Kreditkarten.KartenNr
+            '                     WHERE (dbo.TTRBody.PKHistory = 0) AND (dbo.TTRBody.PKFileName LIKE N'" & checkifTestfiles() & ".%')" & SQLAbrechnungsparameter &
+            '                     "GROUP BY dbo.TTRBody.CardNumber, Kreditkarten.KartenNr, Kreditkarten.AdressenNr
+            '                     HAVING dbo.TTRBody.CardNumber is null or (dbo.TTRBody.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 dbo.TTRBody.CardNumber", "ASFINAG")
 
             Dim dtAsfinagKartenpruef As DataTable = SQL.loadDgvBySql("
-                        SELECT dbo.TTRBody.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
+                        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.CLFArchiv 
+                            FROM dbo.tblAsfinagMaut 
-                            RIGHT OUTER JOIN dbo.TTRBody ON dbo.CLFArchiv.OBUID = dbo.TTRBody.InfoField 
+                            LEFT JOIN [dbo].[Kreditkarten] on cardnumber= Kreditkarten.KartenNr
-							LEFT OUTER JOIN dbo.tblWarenarten ON dbo.TTRBody.ProductCode = dbo.tblWarenarten.ProductCode
+                            GROUP BY cardnumber, Kreditkarten.KartenNr, Kreditkarten.AdressenNr
-                            LEFT JOIN [VERAG].[dbo].[Kreditkarten] on dbo.TTRBody.CardNumber = Kreditkarten.KartenNr
+                            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))
-                            WHERE (dbo.TTRBody.PKHistory = 0) AND (dbo.TTRBody.PKFileName LIKE N'" & checkifTestfiles() & ".%')" & SQLAbrechnungsparameter &
+                            ORDER BY cardnumber", "FMZOLL")
-                            "GROUP BY dbo.TTRBody.CardNumber, Kreditkarten.KartenNr, Kreditkarten.AdressenNr
-                            HAVING dbo.TTRBody.CardNumber is null or (dbo.TTRBody.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 dbo.TTRBody.CardNumber", "ASFINAG")
 
 
             Dim VERAGKdNr = -1
@@ -2008,38 +2016,79 @@ Public Class frmMDMDatenverarbetiung
         initLieferant("ASFINAG", sender)
     End Sub
 
-    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles bntDatumsetzen.Click
-        If CDate(Datum_Abrechnungsdaten.Value) <= Today.AddDays(1) Then
+        'Abrechnungsdatum setzen
-            If MsgBox("Möchten Sie das Abrechnungsdatum auf " & Datum_Abrechnungsdaten.Value.ToShortDateString & " setzen?", vbYesNoCancel) = MsgBoxResult.Yes Then
 
-                'SQL.doSQL("DELETE * from tblAsfinagMaut", "FMZOLL")
+        If cbxASFINAGNichtAbgerechnet.Checked = False Then
-
+            cbxASFINAGNichtAbgerechnet.Checked = True
-                SQL.doSQL("Update Abrechnungsdatum SET Abrechnungsdatum = '" & Datum_Abrechnungsdaten.Value.ToShortDateString & "'", "ASFINAG")
-                If SQL.doSQL("UPDATE dbo.TTRBody SET Abrechnungsdatum = '" & Datum_Abrechnungsdaten.Value.ToShortDateString & "' WHERE (PKHistory = 0) AND (PKFileName LIKE N'" & checkifTestfiles() & ".%') AND (FileCreationDate <= '" & Datum_Abrechnungsdaten.Value.ToShortDateString & "') AND (abrechnungsdatum IS NULL)", "ASFINAG") Then MsgBox("Abrechnungsdatum gesetzt!")
-
-                Dim dt As DataTable = SQL.loadDgvBySql("SELECT *  FROM tblAsfinagMaut", "FMZOLL")
-
-                initDgv_ASFINAG(Not cbxNichtabgerechnet.Checked)
-            End If
-        Else
-            MsgBox("Datum muss kleiner/gleich Tagesdatum sein")
         End If
+
+        If MyDatagridview1.Rows.Count = 0 Then
+            MsgBox("keine Daten zum abrechnen vorhanden!")
+            Exit Sub
+        End If
+
+        Dim f As New frmDatumsabfrage()
+        f.ShowDialog()
+        If f.DialogResult = DialogResult.OK Then
+            SQL.doSQL("DELETE FROM tblAsfinagMaut", "FMZOLL")
+            If SQL.doSQL("Update Abrechnungsdatum SET Abrechnungsdatum = '" & f.Datum.ToShortDateString & "'", "ASFINAG") Then
+                If SQL.doSQL("UPDATE dbo.TTRBody SET Abrechnungsdatum = '" & f.Datum.ToShortDateString & "' WHERE (PKHistory = 0) AND (PKFileName LIKE N'" & checkifTestfiles() & ".%') AND (FileCreationDate <= '" & f.Datum.ToShortDateString & "') AND (abrechnungsdatum IS NULL)", "ASFINAG") Then
+
+                    Dim dt As DataTable = SQL.loadDgvBySql("Select dbo.TTRBody.OBUID, dbo.TTRBody.CardNumber, dbo.TTRBody.receiptNumber, dbo.TTRBody.VATAmount, dbo.TTRBody.amountInclVAT, dbo.TTRBody.abrechnungsdatum, dbo.tblWarenarten.WarenartDE, dbo.CLFArchiv.vehicleLicensePlate, dbo.TTRBody.InfoField, dbo.TTRBody.ProductCode, dbo.TTRBody.Town 
+                            From dbo.CLFArchiv 
+                            RIGHT OUTER Join dbo.TTRBody ON dbo.CLFArchiv.OBUID = dbo.TTRBody.OBUID 
+                            LEFT OUTER Join dbo.tblWarenarten ON dbo.TTRBody.ProductCode = dbo.tblWarenarten.ProductCode
+                            Where (dbo.TTRBody.PKHistory = 0) And (dbo.TTRBody.PKFileName Like N'" & checkifTestfiles() & ".%') AND TTRBody.abrechnungsdatum = '" & f.Datum.ToShortDateString & "'
+                            Order By dbo.TTRBody.CardNumber, dbo.TTRBody.FileCreationDate, dbo.TTRBody.PKHistory, dbo.TTRBody.PKFileName, dbo.TTRBody.PKLine", "ASFINAG")
+                    If dt.Rows.Count = 0 Then
+                        MsgBox("Es wurden keine Daten in tblAsfinagMaut geschrieben!")
+                        Exit Sub
+                    End If
+                    For Each row As DataRow In dt.Rows
+                        Dim maut As New cAsfinagMaut()
+                        maut.cardnumber = row.Item("CardNumber")
+                        maut.licenceplate = IIf(Not IsDBNull(row.Item("vehicleLicensePlate")), row.Item("vehicleLicensePlate"), row.Item("InfoField"))
+                        maut.turnoverdate = row.Item("abrechnungsdatum")
+                        maut.contractPartner = "ASFINAG " & IIf(Not IsDBNull(row.Item("WarenartDE")), row.Item("WarenartDE"), "Product Code " & row.Item("ProductCode"))
+                        maut.netAmount = CDbl(row.Item("amountInclVAT")) - CDbl(row.Item("VATAmount"))
+                        maut.VATamount = CDbl(row.Item("VATAmount"))
+                        maut.totalAmount = CDbl(row.Item("amountInclVAT"))
+                        maut.additionalData = row.Item("Town") 'wird nicht mehr verwendet????
+                        maut.SAVE()
+                    Next
+                    MsgBox("Abrechnungsdatum gesetzt!")
+                End If
+            End If
+
+            cbxASFINAGNichtAbgerechnet.Checked = False
+            'initDgv_ASFINAG(Not cbxASFINAGNichtAbgerechnet.Checked)
+        End If
+
+
     End Sub
 
-    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles bntDatumzuruecksetzen.Click
-        If CDate(Datum_Abrechnungsdaten.Value) <= Today.AddDays(1) Then
+        If cbxASFINAGNichtAbgerechnet.Checked = True Then
-            If MsgBox("Möchten Sie das Abrechnungsdatum vom " & Datum_Abrechnungsdaten.Value.ToShortDateString & "zurücksetzen?", vbYesNoCancel) = MsgBoxResult.Ok Then
+            cbxASFINAGNichtAbgerechnet.Checked = False
-                If SQL.doSQL("UPDATE dbo.TTRBody SET Abrechnungsdatum = 'NULL' WHERE Abrechnungsdatum = '" & Datum_Abrechnungsdaten.Value.ToShortDateString & "' AND (PKHistory = 0) AND (PKFileName LIKE N'" & checkifTestfiles() & ".%')", "ASFINAG") Then MsgBox("Abrechnungsdatum zurückgesetzt!")
-            End If
-        Else
-            MsgBox("Datum muss kleiner/gleich Tagesdatum sein")
         End If
-    End Sub
 
-    Private Sub Datum_Abrechnungsdaten_ValueChanged(sender As Object, e As EventArgs) Handles Datum_Abrechnungsdaten.ValueChanged
+        If MyDatagridview1.Rows.Count = 0 Then
-        If Datum_Abrechnungsdaten IsNot Nothing Then
+            MsgBox("keine Daten zum zurücksetzen vorhanden!")
-            cbxNichtabgerechnet.Checked = False
+            Exit Sub
         End If
+
+        Dim datum = CDate(SQL.getValueTxtBySql("Select Abrechnungsdatum FROM Abrechnungsdatum", "ASFINAG"))
+
+        If MsgBox("Möchten Sie das Abrechnungsdatum vom " & datum.ToShortDateString & " zurücksetzen?", vbYesNoCancel) = MsgBoxResult.Yes Then
+            If SQL.doSQL("UPDATE dbo.TTRBody Set Abrechnungsdatum = NULL WHERE Abrechnungsdatum = '" & datum & "' AND (PKHistory = 0) AND (PKFileName LIKE '%" & checkifTestfiles() & ".%')", "ASFINAG") Then
+                MsgBox("Abrechnungsdatum zurückgesetzt!")
+                cbxASFINAGNichtAbgerechnet.Checked = True
+                'initDgv_ASFINAG(cbxASFINAGNichtAbgerechnet.Checked)
+            End If
+        End If
+
+
     End Sub
 
     Private Function checkifTestfiles() As String
@@ -2054,5 +2103,7 @@ Public Class frmMDMDatenverarbetiung
 
     End Function
 
-
+    Private Sub cbxASFINAGNichtAbgerechnet_CheckedChanged(sender As Object, e As EventArgs) Handles cbxASFINAGNichtAbgerechnet.CheckedChanged
+        If Me.LIEFERANT = "ASFINAG" Then initDgv_ASFINAG(Not cbxASFINAGNichtAbgerechnet.Checked)
+    End Sub
 End Class

SDL/mdm/usrCntlMDMAuswertungen.Designer.vb

@@ -150,6 +150,24 @@ Partial Class usrCntlMDMAuswertungen
         Me.Button12 = New System.Windows.Forms.Button()
         Me.TabPage4 = New System.Windows.Forms.TabPage()
         Me.UsrCntlMSE_KonvertCSV1 = New SDL.usrCntlMSE_KonvertCSV()
+        Me.TabPage5 = New System.Windows.Forms.TabPage()
+        Me.Label53 = New System.Windows.Forms.Label()
+        Me.GroupBox16 = New System.Windows.Forms.GroupBox()
+        Me.Label54 = New System.Windows.Forms.Label()
+        Me.Button20 = New System.Windows.Forms.Button()
+        Me.Label49 = New System.Windows.Forms.Label()
+        Me.GroupBox15 = New System.Windows.Forms.GroupBox()
+        Me.lblDatletzteMaut = New System.Windows.Forms.Label()
+        Me.Label52 = New System.Windows.Forms.Label()
+        Me.cbxTestdaten = New System.Windows.Forms.CheckBox()
+        Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker()
+        Me.Button19 = New System.Windows.Forms.Button()
+        Me.Label51 = New System.Windows.Forms.Label()
+        Me.Button17 = New System.Windows.Forms.Button()
+        Me.Label48 = New System.Windows.Forms.Label()
+        Me.GroupBox14 = New System.Windows.Forms.GroupBox()
+        Me.Label50 = New System.Windows.Forms.Label()
+        Me.Button16 = New System.Windows.Forms.Button()
         Me.Button15 = New System.Windows.Forms.Button()
         Me.pnl = New System.Windows.Forms.Panel()
         Me.GroupBox1.SuspendLayout()
@@ -178,6 +196,10 @@ Partial Class usrCntlMDMAuswertungen
         Me.GroupBox12.SuspendLayout()
         Me.GroupBox11.SuspendLayout()
         Me.TabPage4.SuspendLayout()
+        Me.TabPage5.SuspendLayout()
+        Me.GroupBox16.SuspendLayout()
+        Me.GroupBox15.SuspendLayout()
+        Me.GroupBox14.SuspendLayout()
         Me.pnl.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -448,6 +470,7 @@ Partial Class usrCntlMDMAuswertungen
         Me.kdUeberfaelligeBest._displayWoelflKd = False
         Me.kdUeberfaelligeBest._hideIfListEmpty = True
         Me.kdUeberfaelligeBest._loadKdData = False
+        Me.kdUeberfaelligeBest._searchName1 = True
         Me.kdUeberfaelligeBest._UseFIRMA = ""
         Me.kdUeberfaelligeBest._ValueKdAndName = True
         Me.kdUeberfaelligeBest.dgvpos = "LEFT"
@@ -608,6 +631,7 @@ Partial Class usrCntlMDMAuswertungen
         Me.KdSearchBox1._displayWoelflKd = False
         Me.KdSearchBox1._hideIfListEmpty = True
         Me.KdSearchBox1._loadKdData = False
+        Me.KdSearchBox1._searchName1 = True
         Me.KdSearchBox1._UseFIRMA = ""
         Me.KdSearchBox1._ValueKdAndName = True
         Me.KdSearchBox1.dgvpos = "LEFT"
@@ -727,6 +751,7 @@ Partial Class usrCntlMDMAuswertungen
         Me.KdSearchBox2._displayWoelflKd = False
         Me.KdSearchBox2._hideIfListEmpty = True
         Me.KdSearchBox2._loadKdData = False
+        Me.KdSearchBox2._searchName1 = True
         Me.KdSearchBox2._UseFIRMA = ""
         Me.KdSearchBox2._ValueKdAndName = True
         Me.KdSearchBox2.dgvpos = "LEFT"
@@ -1147,6 +1172,7 @@ Partial Class usrCntlMDMAuswertungen
         Me.tbcntr.Controls.Add(Me.TabPage2)
         Me.tbcntr.Controls.Add(Me.tbPLOSE)
         Me.tbcntr.Controls.Add(Me.TabPage4)
+        Me.tbcntr.Controls.Add(Me.TabPage5)
         Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill
         Me.tbcntr.Location = New System.Drawing.Point(0, 54)
         Me.tbcntr.Name = "tbcntr"
@@ -1600,6 +1626,198 @@ Partial Class usrCntlMDMAuswertungen
         Me.UsrCntlMSE_KonvertCSV1.Size = New System.Drawing.Size(728, 97)
         Me.UsrCntlMSE_KonvertCSV1.TabIndex = 0
         '
+        'TabPage5
+        '
+        Me.TabPage5.Controls.Add(Me.Label53)
+        Me.TabPage5.Controls.Add(Me.GroupBox16)
+        Me.TabPage5.Controls.Add(Me.Label49)
+        Me.TabPage5.Controls.Add(Me.GroupBox15)
+        Me.TabPage5.Controls.Add(Me.Label48)
+        Me.TabPage5.Controls.Add(Me.GroupBox14)
+        Me.TabPage5.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage5.Name = "TabPage5"
+        Me.TabPage5.Size = New System.Drawing.Size(1049, 990)
+        Me.TabPage5.TabIndex = 6
+        Me.TabPage5.Text = "ASFINAG"
+        Me.TabPage5.UseVisualStyleBackColor = True
+        '
+        'Label53
+        '
+        Me.Label53.AutoSize = True
+        Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label53.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label53.Location = New System.Drawing.Point(7, 246)
+        Me.Label53.Name = "Label53"
+        Me.Label53.Size = New System.Drawing.Size(143, 17)
+        Me.Label53.TabIndex = 13
+        Me.Label53.Text = "Konsistenzprüfung"
+        '
+        'GroupBox16
+        '
+        Me.GroupBox16.Controls.Add(Me.Label54)
+        Me.GroupBox16.Controls.Add(Me.Button20)
+        Me.GroupBox16.Location = New System.Drawing.Point(6, 257)
+        Me.GroupBox16.Name = "GroupBox16"
+        Me.GroupBox16.Size = New System.Drawing.Size(697, 94)
+        Me.GroupBox16.TabIndex = 12
+        Me.GroupBox16.TabStop = False
+        '
+        'Label54
+        '
+        Me.Label54.AutoSize = True
+        Me.Label54.Location = New System.Drawing.Point(147, 19)
+        Me.Label54.Name = "Label54"
+        Me.Label54.Size = New System.Drawing.Size(152, 13)
+        Me.Label54.TabIndex = 6
+        Me.Label54.Text = "Prüft die Daten auf inkonistenz"
+        '
+        'Button20
+        '
+        Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button20.Location = New System.Drawing.Point(6, 19)
+        Me.Button20.Name = "Button20"
+        Me.Button20.Size = New System.Drawing.Size(121, 49)
+        Me.Button20.TabIndex = 4
+        Me.Button20.Text = "Karten prüfen"
+        Me.Button20.UseVisualStyleBackColor = True
+        '
+        'Label49
+        '
+        Me.Label49.AutoSize = True
+        Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label49.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label49.Location = New System.Drawing.Point(9, 126)
+        Me.Label49.Name = "Label49"
+        Me.Label49.Size = New System.Drawing.Size(102, 17)
+        Me.Label49.TabIndex = 11
+        Me.Label49.Text = "Mautberichte"
+        '
+        'GroupBox15
+        '
+        Me.GroupBox15.Controls.Add(Me.lblDatletzteMaut)
+        Me.GroupBox15.Controls.Add(Me.Label52)
+        Me.GroupBox15.Controls.Add(Me.cbxTestdaten)
+        Me.GroupBox15.Controls.Add(Me.dat_Sum_Bis)
+        Me.GroupBox15.Controls.Add(Me.Button19)
+        Me.GroupBox15.Controls.Add(Me.Label51)
+        Me.GroupBox15.Controls.Add(Me.Button17)
+        Me.GroupBox15.Location = New System.Drawing.Point(8, 137)
+        Me.GroupBox15.Name = "GroupBox15"
+        Me.GroupBox15.Size = New System.Drawing.Size(697, 94)
+        Me.GroupBox15.TabIndex = 10
+        Me.GroupBox15.TabStop = False
+        '
+        'lblDatletzteMaut
+        '
+        Me.lblDatletzteMaut.AutoSize = True
+        Me.lblDatletzteMaut.Location = New System.Drawing.Point(428, 31)
+        Me.lblDatletzteMaut.Name = "lblDatletzteMaut"
+        Me.lblDatletzteMaut.Size = New System.Drawing.Size(10, 13)
+        Me.lblDatletzteMaut.TabIndex = 55
+        Me.lblDatletzteMaut.Text = "-"
+        '
+        'Label52
+        '
+        Me.Label52.AutoSize = True
+        Me.Label52.Location = New System.Drawing.Point(428, 14)
+        Me.Label52.Name = "Label52"
+        Me.Label52.Size = New System.Drawing.Size(131, 13)
+        Me.Label52.TabIndex = 54
+        Me.Label52.Text = "letzte abgerechnete Maut:"
+        '
+        'cbxTestdaten
+        '
+        Me.cbxTestdaten.AutoSize = True
+        Me.cbxTestdaten.Checked = True
+        Me.cbxTestdaten.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxTestdaten.Location = New System.Drawing.Point(326, 14)
+        Me.cbxTestdaten.Name = "cbxTestdaten"
+        Me.cbxTestdaten.Size = New System.Drawing.Size(74, 17)
+        Me.cbxTestdaten.TabIndex = 52
+        Me.cbxTestdaten.Text = "Testdaten"
+        Me.cbxTestdaten.UseVisualStyleBackColor = True
+        '
+        'dat_Sum_Bis
+        '
+        Me.dat_Sum_Bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dat_Sum_Bis.Location = New System.Drawing.Point(260, 31)
+        Me.dat_Sum_Bis.Name = "dat_Sum_Bis"
+        Me.dat_Sum_Bis.Size = New System.Drawing.Size(103, 20)
+        Me.dat_Sum_Bis.TabIndex = 25
+        '
+        'Button19
+        '
+        Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button19.Location = New System.Drawing.Point(133, 19)
+        Me.Button19.Name = "Button19"
+        Me.Button19.Size = New System.Drawing.Size(121, 49)
+        Me.Button19.TabIndex = 6
+        Me.Button19.Text = "Gesamtsummen"
+        Me.Button19.UseVisualStyleBackColor = True
+        '
+        'Label51
+        '
+        Me.Label51.AutoSize = True
+        Me.Label51.Location = New System.Drawing.Point(257, 15)
+        Me.Label51.Name = "Label51"
+        Me.Label51.Size = New System.Drawing.Size(46, 13)
+        Me.Label51.TabIndex = 5
+        Me.Label51.Text = "Berichte"
+        '
+        'Button17
+        '
+        Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button17.Location = New System.Drawing.Point(6, 19)
+        Me.Button17.Name = "Button17"
+        Me.Button17.Size = New System.Drawing.Size(121, 49)
+        Me.Button17.TabIndex = 4
+        Me.Button17.Text = "Mautbericht"
+        Me.Button17.UseVisualStyleBackColor = True
+        '
+        'Label48
+        '
+        Me.Label48.AutoSize = True
+        Me.Label48.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label48.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label48.Location = New System.Drawing.Point(7, 9)
+        Me.Label48.Name = "Label48"
+        Me.Label48.Size = New System.Drawing.Size(181, 17)
+        Me.Label48.TabIndex = 9
+        Me.Label48.Text = "Contractdaten anzeigen"
+        '
+        'GroupBox14
+        '
+        Me.GroupBox14.Controls.Add(Me.Label50)
+        Me.GroupBox14.Controls.Add(Me.Button16)
+        Me.GroupBox14.Location = New System.Drawing.Point(6, 20)
+        Me.GroupBox14.Name = "GroupBox14"
+        Me.GroupBox14.Size = New System.Drawing.Size(697, 94)
+        Me.GroupBox14.TabIndex = 8
+        Me.GroupBox14.TabStop = False
+        '
+        'Label50
+        '
+        Me.Label50.AutoSize = True
+        Me.Label50.Location = New System.Drawing.Point(145, 19)
+        Me.Label50.Name = "Label50"
+        Me.Label50.Size = New System.Drawing.Size(218, 13)
+        Me.Label50.TabIndex = 5
+        Me.Label50.Text = "Liefert eine Liste der aktuellen Contractdaten"
+        '
+        'Button16
+        '
+        Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button16.Location = New System.Drawing.Point(6, 19)
+        Me.Button16.Name = "Button16"
+        Me.Button16.Size = New System.Drawing.Size(121, 49)
+        Me.Button16.TabIndex = 4
+        Me.Button16.Text = "anzeigen"
+        Me.Button16.UseVisualStyleBackColor = True
+        '
         'Button15
         '
         Me.Button15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -1677,6 +1895,14 @@ Partial Class usrCntlMDMAuswertungen
         Me.GroupBox11.ResumeLayout(False)
         Me.GroupBox11.PerformLayout()
         Me.TabPage4.ResumeLayout(False)
+        Me.TabPage5.ResumeLayout(False)
+        Me.TabPage5.PerformLayout()
+        Me.GroupBox16.ResumeLayout(False)
+        Me.GroupBox16.PerformLayout()
+        Me.GroupBox15.ResumeLayout(False)
+        Me.GroupBox15.PerformLayout()
+        Me.GroupBox14.ResumeLayout(False)
+        Me.GroupBox14.PerformLayout()
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
         Me.ResumeLayout(False)
@@ -1811,4 +2037,22 @@ Partial Class usrCntlMDMAuswertungen
     Friend WithEvents GroupBox13 As GroupBox
     Friend WithEvents Label45 As Label
     Friend WithEvents Button14 As Button
+    Friend WithEvents TabPage5 As TabPage
+    Friend WithEvents Label48 As Label
+    Friend WithEvents GroupBox14 As GroupBox
+    Friend WithEvents Label50 As Label
+    Friend WithEvents Button16 As Button
+    Friend WithEvents Label49 As Label
+    Friend WithEvents GroupBox15 As GroupBox
+    Friend WithEvents Label51 As Label
+    Friend WithEvents Button17 As Button
+    Friend WithEvents Button19 As Button
+    Friend WithEvents dat_Sum_Bis As DateTimePicker
+    Friend WithEvents cbxTestdaten As CheckBox
+    Friend WithEvents Label52 As Label
+    Friend WithEvents lblDatletzteMaut As Label
+    Friend WithEvents Label53 As Label
+    Friend WithEvents GroupBox16 As GroupBox
+    Friend WithEvents Label54 As Label
+    Friend WithEvents Button20 As Button
 End Class

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -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()
+            Dim dialog As New OpenFileDialog()
-        dialog.Filter = "CSV Files (*.csv)|*.csv"
+            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
 
 

VERAG_PROG_ALLGEMEIN/Classes/cAsfinagMaut.vb

@@ -0,0 +1,98 @@
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class cAsfinagMaut
+
+    Property cardnumber As Object = Nothing
+    Property licenceplate As Object = Nothing
+    Property turnoverdate As Object = Nothing
+    Property contractPartner As Object = Nothing
+    Property netAmount As Object = Nothing
+    Property VATamount As Object = Nothing
+    Property totalAmount As Object = Nothing
+    Property additionalData As Object = Nothing
+
+
+    Public hasEntry = False
+
+        Dim SQL As New SQL
+
+    Sub New()
+
+    End Sub
+    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cardnumber", cardnumber))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("licenceplate", licenceplate))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("turnoverdate", turnoverdate))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("contractPartner", contractPartner))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("netAmount", netAmount))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VATamount", VATamount))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("totalAmount", totalAmount))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("additionalData", additionalData))
+        Return list
+        End Function
+
+
+
+        Public Function SAVE() As Boolean
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+        End Function
+
+        Public Sub LOAD()
+            Try
+                hasEntry = False
+                Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblAsfinagMaut WHERE cardnumber=@cardnumber  ", conn)
+                    cmd.Parameters.AddWithValue("@cardnumber", cardnumber)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End Sub
+
+
+
+    Public Function getInsertCmd() As String
+            Try
+                Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+                Dim str As String = ""
+                Dim values As String = ""
+                For Each i In list
+                    If Not i.isPrimaryParam Then
+                        str &= "[" & i.Text & "],"
+                        values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                    End If
+                Next
+                str = str.Substring(0, str.Length - 1) 'wg. ','
+                values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblAsfinagMaut  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+            Return ""
+        End Function
+
+    End Class

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -322,6 +322,7 @@
     <Compile Include="Classes\cAbgaben.vb" />
     <Compile Include="Classes\cAbrechnung_NCTSBrg.vb" />
     <Compile Include="Classes\cAPI.vb" />
+    <Compile Include="Classes\cAsfinagMaut.vb" />
     <Compile Include="Classes\cAufschubKonten.vb" />
     <Compile Include="Classes\cAvisoAnhaenge.vb" />
     <Compile Include="Classes\cAvisoAnhangsarten.vb" />

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -541,7 +541,12 @@ Public Class cProgramFunctions
         Dim bounds As Rectangle
         Dim screenshot As System.Drawing.Bitmap
         Dim graph As Graphics
-        bounds = form.Bounds 'Screen.PrimaryScreen.Bounds
+
+        If form Is Nothing Then Return ""
+        bounds = form.Bounds
+
+
+        'Screen.PrimaryScreen.Bounds
 
         screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
         graph = Graphics.FromImage(screenshot)

VERAG_PROG_ALLGEMEIN/frmErrorMeldung.Designer.vb

@@ -29,6 +29,7 @@ Partial Class frmErrorMeldung
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label4 = New System.Windows.Forms.Label()
         Me.cbxScreenshot = New System.Windows.Forms.CheckBox()
         Me.cbxEnviromentVariables = New System.Windows.Forms.CheckBox()
         Me.lblErr_Nachricht = New System.Windows.Forms.Label()
@@ -39,7 +40,6 @@ Partial Class frmErrorMeldung
         Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
         Me.btnClose = New System.Windows.Forms.Button()
         Me.TextBox2 = New System.Windows.Forms.TextBox()
-        Me.Label4 = New System.Windows.Forms.Label()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -107,6 +107,15 @@ Partial Class frmErrorMeldung
         Me.Panel2.Size = New System.Drawing.Size(498, 138)
         Me.Panel2.TabIndex = 8
         '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 116)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(93, 13)
+        Me.Label4.TabIndex = 9
+        Me.Label4.Text = "Anhang schicken:"
+        '
         'cbxScreenshot
         '
         Me.cbxScreenshot.AutoSize = True
@@ -219,16 +228,6 @@ Partial Class frmErrorMeldung
         Me.TextBox2.Size = New System.Drawing.Size(492, 135)
         Me.TextBox2.TabIndex = 4
         '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(3, 116)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(93, 13)
-        Me.Label4.TabIndex = 9
-        Me.Label4.Text = "Anhang schicken:"
-        Me.Label4.Visible = False
-        '
         'frmErrorMeldung
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)