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