edv/Parkzeit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

initial Sync

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-08 13:43:13 +02:00
parent ed91c7aaee
commit 37ec656b8f
9 changed files with 1928 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Parkzeit/My Project/Resources.Designer.vb generated
View File

@@ -87,6 +87,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property fragezeichen() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("fragezeichen", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

25
Parkzeit/My Project/Resources.resx
View File

@@ -117,24 +117,18 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Parkschild" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Parkschild.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="connectionString_PROD" xml:space="preserve">
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Logo_Waberer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Logo_Waberer.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
</data>
<data name="parkzeit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\parkzeit.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="connectionString_DEV" xml:space="preserve">
<value>Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
</data>
<data name="connectionString_PROD" xml:space="preserve">
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
<data name="Parkschild" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Parkschild.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aadasdasdas23asdasd" xml:space="preserve">
<value />
@@ -142,4 +136,13 @@
<data name="Verag_AG_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="connectionString_DEV" xml:space="preserve">
<value>Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
</data>
<data name="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
</data>
<data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

9
Parkzeit/Parkzeit.vbproj
View File

@@ -90,6 +90,9 @@
<OutputPath>bin\x64\Release\</OutputPath>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Printing.v23.1.Core">
<HintPath>..\..\..\dll\DevExpress\DevExpress.Printing.v23.1.Core.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.Common, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\SICHERUNG\VERAG Parkzeiten_19.03.2015_vonF\Microsoft.ReportViewer.Common.dll</HintPath>
@@ -224,10 +227,11 @@
<SubType>Designer</SubType>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="rptAbrechnungWABERERS.rdlc">
<EmbeddedResource Include="rptAbrechnungVERAG2.rdlc">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</EmbeddedResource>
<EmbeddedResource Include="rptAbrechnungVERAG.rdlc">
<EmbeddedResource Include="rptAbrechnungVERAG.rdlc" />
<EmbeddedResource Include="rptAbrechnungWABERERS.rdlc">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</EmbeddedResource>
<EmbeddedResource Include="rptAbrechnung.rdlc">
@@ -249,6 +253,7 @@
</ItemGroup>
<ItemGroup>
<Content Include="parkzeit.ico" />
<None Include="Resources\fragezeichen.png" />
<Content Include="Resources\Parkschild.ico" />
<None Include="packages.config" />
<None Include="Resources\Verag-AG-Logo.jpg" />

BIN
Parkzeit/Resources/fragezeichen.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 31 KiB

7
Parkzeit/frmAuswahl_Abrechnung.vb
View File

@@ -96,9 +96,15 @@ Public Class frmAuswahl_Abrechnung
hSQL += " AND (((Left(CAST(Kennzeichen AS varchar),1))>='0' And (Left(CAST(Kennzeichen AS varchar),1))<='9') AND ((right(left(CAST(Kennzeichen AS varchar),2),1))>='0' And (right(left(CAST(Kennzeichen AS varchar),2),1))<='9'))"
hauswahl += "sonstige LKWs"
Else
If txtKundenNr.Text <> "" Then
hauswahl += "Kunde: " & txtKundenNr.Text
Else
hauswahl += "alle"
End If
End If
hSQL += " AND TarifArt='" & cboTarif._value & "' "
If txtKundenNr.Text <> "" Then hSQL += " AND KundenNr='" & txtKundenNr.Text & "' "
@@ -155,6 +161,7 @@ Public Class frmAuswahl_Abrechnung
Auswertung.BefüllenAbrechnung("Auswertung Parkzeiten Waberer's LKWs", Parkzeiten.LeseParkzeitenFürDruck(hSQL, VarToDbl(txtKosten.Text)), cboTarif._value, hauswahl, hGesamtdauer, hGesamtkosten)
Case "VERAG"
Auswertung.BefüllenAbrechnung("Auswertung Parkzeiten LKWs", Parkzeiten.LeseParkzeitenFürDruck(hSQL, VarToDbl(txtKosten.Text)), cboTarif._value, hauswahl, hGesamtdauer, hGesamtkosten)
' Auswertung.genPDF()
End Select
Auswertung.Show()

28
Parkzeit/frmDruckansicht.vb
View File

@@ -1,12 +1,17 @@
Imports System.IO
Imports Microsoft.Reporting.WinForms
Imports DevExpress.XtraPrinting
Imports Microsoft.SqlServer
Imports DevExpress.XtraReports.UI
Imports DevExpress.Utils
Imports DevExpress.XtraPrinting.Caching
Public Class frmDruckansicht
Public Sub BefüllenAbrechnung(ByVal titel As String, ByVal ds As IList(Of cParkzeitDruck), ByVal tarif As String, ByVal hAuswahl As String,
ByVal hGesamtdauer As String, ByVal hGesamtkosten As String)
' Dim rdlcName As String = "Parkzeit.rptAbrechnung.rdlc"
Dim rdlcName = "Parkzeit.rptAbrechnungVERAG.rdlc"
Dim rdlcName = "Parkzeit.rptAbrechnungVERAG2.rdlc"
'Dim rdlcName As String = "Parkzeit.rptAbrechnung.rdlc"
'Select Case tarif
@@ -45,8 +50,29 @@ Public Class frmDruckansicht
Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
Me.ReportViewer1.RefreshReport()
End Sub
Public Function genPDF(pathTo As String, Optional closeMe As Boolean = False) As Boolean
Try
Dim mybytes As Byte() = Me.ReportViewer1.LocalReport.Render("PDF")
If mybytes IsNot Nothing AndAlso mybytes.Length > 0 Then
Using fs As FileStream = File.Create(pathTo)
fs.Write(mybytes, 0, mybytes.Length)
End Using
End If
If closeMe Then Me.Close()
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
Return True
End Function
'Private Sub reportVorbereiten(ByVal gruppierungNachBetreuer As Boolean, ByRef reportPath As String)
' Dim doc As XDocument = XDocument.Parse(My.Resources.rptBilanzenAuswertung)

178
Parkzeit/frmMain.Designer.vb generated
View File

@@ -27,6 +27,11 @@ Partial Class frmMain
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.txtKdNr = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.cboTarif = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -48,22 +53,28 @@ Partial Class frmMain
Me.gridParkzeiten = New System.Windows.Forms.DataGridView()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.mnuLöschen = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picLogo, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
CType(Me.gridParkzeiten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.Azure
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.Panel3)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.txtKdNr)
Me.Panel1.Controls.Add(Me.Label5)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.cboTarif)
Me.Panel1.Controls.Add(Me.btnDatenEinlesen)
Me.Panel1.Controls.Add(Me.lblAnzahl)
Me.Panel1.Controls.Add(Me.picLogo)
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.btnAuswerten)
Me.Panel1.Controls.Add(Me.btnErfassen)
@@ -74,26 +85,82 @@ Partial Class frmMain
Me.Panel1.Controls.Add(Me.txtSuche)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.lblSuche)
Me.Panel1.Controls.Add(Me.Panel4)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(994, 107)
Me.Panel1.Size = New System.Drawing.Size(1183, 124)
Me.Panel1.TabIndex = 4
'
'PictureBox6
'
Me.PictureBox6.BackgroundImage = Global.Parkzeit.My.Resources.Resources.fragezeichen
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Location = New System.Drawing.Point(207, 11)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(18, 19)
Me.PictureBox6.TabIndex = 133
Me.PictureBox6.TabStop = False
'
'txtKdNr
'
Me.txtKdNr.Location = New System.Drawing.Point(355, 73)
Me.txtKdNr.MaxLength = 7
Me.txtKdNr.Name = "txtKdNr"
Me.txtKdNr.Size = New System.Drawing.Size(98, 20)
Me.txtKdNr.TabIndex = 3
Me.txtKdNr.Visible = False
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(286, 76)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(58, 13)
Me.Label5.TabIndex = 77
Me.Label5.Text = "Kunden Nr"
Me.Label5.Visible = False
'
'ProgressBar1
'
Me.ProgressBar1.Location = New System.Drawing.Point(11, 79)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(410, 24)
Me.ProgressBar1.Step = 1
Me.ProgressBar1.TabIndex = 75
Me.ProgressBar1.Visible = False
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.White
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(11, 43)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(190, 30)
Me.Button2.TabIndex = 8
Me.Button2.TabStop = False
Me.Button2.Text = "nur PDFs genereieren"
Me.Button2.UseVisualStyleBackColor = False
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(579, 42)
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(11, 9)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(190, 30)
Me.Button1.TabIndex = 73
Me.Button1.TabIndex = 7
Me.Button1.TabStop = False
Me.Button1.Text = "SpedBuch + Rechnungserstellung"
Me.Button1.UseVisualStyleBackColor = True
Me.Button1.UseVisualStyleBackColor = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(286, 78)
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(286, 101)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(28, 13)
Me.Label2.TabIndex = 72
@@ -104,28 +171,32 @@ Partial Class frmMain
Me.cboTarif._allowedValuesFreiText = Nothing
Me.cboTarif._allowFreiText = False
Me.cboTarif._value = ""
Me.cboTarif.BackColor = System.Drawing.Color.White
Me.cboTarif.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTarif.DropDownWidth = 250
Me.cboTarif.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboTarif.FormattingEnabled = True
Me.cboTarif.Location = New System.Drawing.Point(351, 74)
Me.cboTarif.Location = New System.Drawing.Point(355, 97)
Me.cboTarif.Name = "cboTarif"
Me.cboTarif.Size = New System.Drawing.Size(98, 21)
Me.cboTarif.TabIndex = 71
Me.cboTarif.TabIndex = 4
'
'btnDatenEinlesen
'
Me.btnDatenEinlesen.Location = New System.Drawing.Point(579, 8)
Me.btnDatenEinlesen.BackColor = System.Drawing.Color.White
Me.btnDatenEinlesen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDatenEinlesen.Location = New System.Drawing.Point(231, 10)
Me.btnDatenEinlesen.Name = "btnDatenEinlesen"
Me.btnDatenEinlesen.Size = New System.Drawing.Size(190, 30)
Me.btnDatenEinlesen.TabIndex = 70
Me.btnDatenEinlesen.TabIndex = 9
Me.btnDatenEinlesen.TabStop = False
Me.btnDatenEinlesen.Text = "Daten einlesen"
Me.btnDatenEinlesen.UseVisualStyleBackColor = True
Me.btnDatenEinlesen.UseVisualStyleBackColor = False
'
'lblAnzahl
'
Me.lblAnzahl.AutoSize = True
Me.lblAnzahl.ForeColor = System.Drawing.SystemColors.HotTrack
Me.lblAnzahl.ForeColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.lblAnzahl.Location = New System.Drawing.Point(193, 33)
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Size = New System.Drawing.Size(82, 13)
@@ -135,11 +206,12 @@ Partial Class frmMain
'picLogo
'
Me.picLogo.BackColor = System.Drawing.Color.White
Me.picLogo.Dock = System.Windows.Forms.DockStyle.Fill
Me.picLogo.Image = Global.Parkzeit.My.Resources.Resources.Verag_AG_Logo
Me.picLogo.InitialImage = Nothing
Me.picLogo.Location = New System.Drawing.Point(0, 0)
Me.picLogo.Name = "picLogo"
Me.picLogo.Size = New System.Drawing.Size(183, 107)
Me.picLogo.Size = New System.Drawing.Size(187, 124)
Me.picLogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.picLogo.TabIndex = 68
Me.picLogo.TabStop = False
@@ -148,11 +220,11 @@ Partial Class frmMain
'
Me.Panel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel2.Controls.Add(Me.btnInfo)
Me.Panel2.Controls.Add(Me.Label1)
Me.Panel2.Location = New System.Drawing.Point(941, 0)
Me.Panel2.Location = New System.Drawing.Point(1130, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(53, 78)
Me.Panel2.TabIndex = 67
Me.Panel2.Visible = False
'
'btnInfo
'
@@ -166,8 +238,10 @@ Partial Class frmMain
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(0, 59)
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(1130, 105)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(50, 13)
Me.Label1.TabIndex = 14
@@ -176,28 +250,32 @@ Partial Class frmMain
'
'btnAuswerten
'
Me.btnAuswerten.BackColor = System.Drawing.Color.White
Me.btnAuswerten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAuswerten.Location = New System.Drawing.Point(469, 42)
Me.btnAuswerten.Name = "btnAuswerten"
Me.btnAuswerten.Size = New System.Drawing.Size(80, 30)
Me.btnAuswerten.TabIndex = 4
Me.btnAuswerten.TabIndex = 6
Me.btnAuswerten.TabStop = False
Me.btnAuswerten.Text = "Auswerten"
Me.btnAuswerten.UseVisualStyleBackColor = True
Me.btnAuswerten.UseVisualStyleBackColor = False
'
'btnErfassen
'
Me.btnErfassen.BackColor = System.Drawing.Color.White
Me.btnErfassen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnErfassen.Location = New System.Drawing.Point(469, 8)
Me.btnErfassen.Name = "btnErfassen"
Me.btnErfassen.Size = New System.Drawing.Size(80, 30)
Me.btnErfassen.TabIndex = 3
Me.btnErfassen.TabIndex = 5
Me.btnErfassen.TabStop = False
Me.btnErfassen.Text = "Erfassen"
Me.btnErfassen.UseVisualStyleBackColor = True
Me.btnErfassen.UseVisualStyleBackColor = False
'
'dtpBis
'
Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpBis.Location = New System.Drawing.Point(351, 31)
Me.dtpBis.Location = New System.Drawing.Point(355, 31)
Me.dtpBis.Name = "dtpBis"
Me.dtpBis.Size = New System.Drawing.Size(98, 20)
Me.dtpBis.TabIndex = 1
@@ -205,7 +283,7 @@ Partial Class frmMain
'dtpVon
'
Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpVon.Location = New System.Drawing.Point(351, 9)
Me.dtpVon.Location = New System.Drawing.Point(355, 9)
Me.dtpVon.Name = "dtpVon"
Me.dtpVon.Size = New System.Drawing.Size(98, 20)
Me.dtpVon.TabIndex = 0
@@ -213,6 +291,7 @@ Partial Class frmMain
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(286, 33)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(59, 13)
@@ -222,6 +301,7 @@ Partial Class frmMain
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.ForeColor = System.Drawing.Color.White
Me.Label14.Location = New System.Drawing.Point(286, 11)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(64, 13)
@@ -230,7 +310,7 @@ Partial Class frmMain
'
'txtSuche
'
Me.txtSuche.Location = New System.Drawing.Point(351, 52)
Me.txtSuche.Location = New System.Drawing.Point(355, 52)
Me.txtSuche.MaxLength = 30
Me.txtSuche.Name = "txtSuche"
Me.txtSuche.Size = New System.Drawing.Size(98, 20)
@@ -239,6 +319,7 @@ Partial Class frmMain
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(193, 11)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(50, 13)
@@ -248,11 +329,12 @@ Partial Class frmMain
'lblSuche
'
Me.lblSuche.AutoSize = True
Me.lblSuche.ForeColor = System.Drawing.Color.White
Me.lblSuche.Location = New System.Drawing.Point(286, 55)
Me.lblSuche.Name = "lblSuche"
Me.lblSuche.Size = New System.Drawing.Size(38, 13)
Me.lblSuche.Size = New System.Drawing.Size(69, 13)
Me.lblSuche.TabIndex = 14
Me.lblSuche.Text = "Suche"
Me.lblSuche.Text = "Kennzeichen"
'
'gridParkzeiten
'
@@ -270,7 +352,7 @@ Partial Class frmMain
Me.gridParkzeiten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.gridParkzeiten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gridParkzeiten.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridParkzeiten.Location = New System.Drawing.Point(0, 107)
Me.gridParkzeiten.Location = New System.Drawing.Point(0, 124)
Me.gridParkzeiten.MultiSelect = False
Me.gridParkzeiten.Name = "gridParkzeiten"
Me.gridParkzeiten.ReadOnly = True
@@ -280,7 +362,7 @@ Partial Class frmMain
Me.gridParkzeiten.RowTemplate.Height = 18
Me.gridParkzeiten.RowTemplate.ReadOnly = True
Me.gridParkzeiten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridParkzeiten.Size = New System.Drawing.Size(994, 640)
Me.gridParkzeiten.Size = New System.Drawing.Size(1183, 717)
Me.gridParkzeiten.TabIndex = 5
Me.gridParkzeiten.TabStop = False
'
@@ -296,23 +378,48 @@ Partial Class frmMain
Me.mnuLöschen.Size = New System.Drawing.Size(155, 22)
Me.mnuLöschen.Text = "Eintrag löschen"
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.White
Me.Panel3.Controls.Add(Me.picLogo)
Me.Panel3.Location = New System.Drawing.Point(0, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(187, 124)
Me.Panel3.TabIndex = 134
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.SteelBlue
Me.Panel4.Controls.Add(Me.Button1)
Me.Panel4.Controls.Add(Me.PictureBox6)
Me.Panel4.Controls.Add(Me.btnDatenEinlesen)
Me.Panel4.Controls.Add(Me.Button2)
Me.Panel4.Controls.Add(Me.ProgressBar1)
Me.Panel4.Location = New System.Drawing.Point(610, 0)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(435, 114)
Me.Panel4.TabIndex = 135
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(994, 747)
Me.ClientSize = New System.Drawing.Size(1183, 841)
Me.Controls.Add(Me.gridParkzeiten)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMain"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Erfassung LKW Liste Parkplatz"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picLogo, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
CType(Me.gridParkzeiten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.Panel4.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
@@ -338,4 +445,11 @@ Partial Class frmMain
Friend WithEvents Label2 As Label
Friend WithEvents cboTarif As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents ProgressBar1 As ProgressBar
Friend WithEvents txtKdNr As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents Panel3 As Panel
Friend WithEvents Panel4 As Panel
End Class

467
Parkzeit/frmMain.vb
View File

@@ -4,6 +4,7 @@ Imports Parkzeit.cMeineFunktionen
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports System.Text
Imports VERAG_PROG_ALLGEMEIN
Public Class frmMain
Public Shared ConnStr As String
@@ -17,6 +18,9 @@ Public Class frmMain
Private Grid_aktiv As Boolean = False
Private Suche_freigegeben As Boolean = False
Dim LEISTUNGSNR_PARKEN As Integer = 313
Dim OFFERETNNR_PARKEN As Integer = 18
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'InitializeComponent()
@@ -57,8 +61,8 @@ Public Class frmMain
'Position+Größe wird in ApplicationSettings vom Formular gespeichert
Try
Me.Size = My.Settings.frmMainSize
Me.Location = My.Settings.frmMainPosition
' Me.Size = My.Settings.frmMainSize
' Me.Location = My.Settings.frmMainPosition
Catch ex As Exception
'nix tun - Standardgröße wird somit automatisch gesetzt
End Try
@@ -104,6 +108,10 @@ Public Class frmMain
hSQL += " AND Kennzeichen LIKE '%" & txtSuche.Text & "%'"
End If
If txtKdNr.Visible AndAlso txtKdNr.Text <> "" Then
hSQL += " AND KundenNr LIKE '%" & txtKdNr.Text & "%'"
End If
hSQL += " AND TarifArt='" & cboTarif._value & "'"
hSQL += " ORDER BY Laufende_Nr, Von"
@@ -178,7 +186,7 @@ Public Class frmMain
Tabelle_anzeigen()
End Sub
Private Sub txtSuche_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtSuche.TextChanged
Private Sub txtSuche_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtSuche.TextChanged, txtKdNr.TextChanged
If Not Suche_freigegeben Then Exit Sub
Tabelle_anzeigen()
@@ -265,8 +273,12 @@ Public Class frmMain
Select Case cboTarif._value
Case "WABERERS"
picLogo.Image = My.Resources.Logo_Waberer
Label5.Visible = False
txtKdNr.Visible = False
Case Else
picLogo.Image = My.Resources.Verag_AG_Logo
Label5.Visible = True
txtKdNr.Visible = True
End Select
End Sub
@@ -281,6 +293,455 @@ Public Class frmMain
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
doRechnungslauf(True)
End Sub
Sub doRechnungslauf(Optional fakturieren As Boolean = False)
Try
ProgressBar1.Visible = True
Me.Cursor = Cursors.WaitCursor
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim rootFolder = ""
If Not fakturieren Then
'"Bitte geben
Dim fd As New FolderBrowserDialog
If fd.ShowDialog(Me) = DialogResult.OK Then
rootFolder = fd.SelectedPath
End If
If rootFolder = "" Then Me.Cursor = Cursors.Default : Exit Sub
End If
If cboTarif._value = "WABERERS" Then
'========================================
'Alle Waberers-Einträge mit der Waberers KdNr ergänzen
SQL.doSQL("UPDATE [Parkzeit].[dbo].[Parkzeiten] set KundenNr='717981' WHERE TarifArt='WABERERS' AND KundenNr is null", "PARKZEIT")
'========================================
End If
'Kunden durchlaufen:
Dim hSQLKd As String = "SELECT DISTINCT(KundenNr) FROM Parkzeiten WHERE Von >= " & SQLDatum(dtpVon.Value) & " AND Von <= " & SQLDatum(dtpBis.Value.AddDays(1)) & " AND TarifArt='" & cboTarif._value & "' "
If txtSuche.Text <> "" Then hSQLKd += " AND Kennzeichen LIKE '%" & txtSuche.Text & "%'"
If txtKdNr.Visible AndAlso txtKdNr.Text <> "" Then hSQLKd += " AND KundenNr LIKE '%" & txtKdNr.Text & "%'"
Dim dtKd = SQL.loadDgvBySql(hSQLKd, "PARKZEIT")
If dtKd Is Nothing OrElse dtKd.Rows.Count = 0 Then
MsgBox("Keine Daten!")
Me.Cursor = Cursors.Default : Exit Sub
End If
If fakturieren Then
If Not vbYes = MsgBox("Es werden " & dtKd.Rows.Count & " Kunden abgerechnet. Möchten Sie fortfahren?", vbYesNoCancel) Then
MsgBox("Keine Daten!")
Me.Cursor = Cursors.Default : Exit Sub
End If
End If
ProgressBar1.Minimum = 1
ProgressBar1.Maximum = dtKd.Rows.Count
ProgressBar1.Value = 1
For Each r As DataRow In dtKd.Rows
Dim KdNr = r("KundenNr")
'Zusammenbau der SQL-Abfrage
Dim hSQL As String = "SELECT * FROM Parkzeiten WHERE Von >= " & SQLDatum(dtpVon.Value) & " AND Von <= " & SQLDatum(dtpBis.Value.AddDays(1))
Dim hauswahl As String = "Auswahl: "
If cboTarif._value = "WABERERS" Then
hauswahl &= "alle"
Else
hauswahl = "Kunde: " & KdNr.ToString & " " & SQL.getValueTxtBySql("SELECT TOP 100 [Name 1] + isnull([Name 2],'')+ ', ' + isnull(ort,'') FROM [Adressen] where adressennr='" & KdNr.ToString & "' ", "FMZOLL",,, "0")
End If
hSQL += " AND TarifArt='" & cboTarif._value & "' "
If KdNr.ToString <> "" Then hSQL += " AND KundenNr='" & KdNr.ToString & "' "
hSQL += " AND TarifArt='" & cboTarif._value & "' "
If txtSuche.Text <> "" Then
hSQL += " AND Kennzeichen LIKE '%" & txtSuche.Text & "%'"
End If
If txtKdNr.Visible AndAlso txtKdNr.Text <> "" Then
hSQL += " AND KundenNr LIKE '%" & txtKdNr.Text & "%'"
End If
hSQL += " ORDER BY Laufende_Nr"
Dim Auswertung As New frmDruckansicht
Dim Parkzeiten = New cParkzeitenDAL
Dim Kosten As Double = 0.4 '!!!!!!!Standard!!!!!!!
If KdNr.ToString = "717981" Then Kosten = 0.3 'Waberers
Dim KostenTmp = SQL.getValueTxtBySql("SELECT TOP 1 Preis FROM [Offertenpositionen] where KundenNr='" & KdNr.ToString & "' and OffertenNr='" & OFFERETNNR_PARKEN.ToString & "' and LeistungsNr='" & LEISTUNGSNR_PARKEN.ToString & "' and Preis is not null", "FMZOLL",,, -1)
If CDbl(KostenTmp) >= 0 Then
Kosten = CDbl(KostenTmp)
End If
hauswahl &= vbNewLine & "Tarif: " & Kosten.ToString("C2") & " / Stunde "
Dim hKosten As Double = 0
Dim hSummeZeit = 0
Dim hAnzahl = 0
Using conn As SqlConnection = cDatenbank.GetNewOpenConnection()
Using cmd As New SqlCommand(hSQL, conn)
Dim dr = cmd.ExecuteReader() 'AL: ERR
If Not IsNothing(dr) Then
While dr.Read()
hSummeZeit += VarToInt(dr.Item("Dauer_Minuten"))
hAnzahl += 1
End While
End If
End Using
End Using
Dim studnen2St As Double = CDbl(CDbl(hSummeZeit / 60).ToString("N2"))
hKosten = studnen2St * VarToDbl(Kosten)
Dim hGesamtdauer As String = Minuten_auf_Text(hSummeZeit)
Dim hGesamtkosten As String = Format(hKosten, "€ #,##0.00")
Select Case cboTarif._value
Case "WABERERS"
Auswertung.BefüllenAbrechnung("Auswertung Parkzeiten Waberer's LKWs", Parkzeiten.LeseParkzeitenFürDruck(hSQL, VarToDbl(Kosten)), cboTarif._value, hauswahl, hGesamtdauer, hGesamtkosten)
Case "VERAG"
Auswertung.BefüllenAbrechnung("Auswertung Parkzeiten LKWs", Parkzeiten.LeseParkzeitenFürDruck(hSQL, VarToDbl(Kosten)), cboTarif._value, hauswahl, hGesamtdauer, hGesamtkosten)
End Select
If Not fakturieren Then
'========================================
'nur PDFs in selektierten Ordner
'========================================
Dim fileName = KdNr.ToString & "_Parking_" & dtpVon.Value.ToShortDateString & "-" & dtpBis.Value.ToShortDateString
Dim filePath = rootFolder & "\" & fileName & ".pdf"
Auswertung.genPDF(filePath)
Else
'========================================
'SpedBucheintrag
'========================================
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
genPARK_SPEDBUCH_ByKdNr(KdNr.ToString, dtpVon.Value, dtpBis.Value, SPEDBUCH)
'========================================
'Rechnungserstellung
'========================================
Dim RECHNUNG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang
If genPARK_RECHNUNG_BySPEDBUCH(KdNr.ToString, SPEDBUCH, dtpVon.Value, dtpBis.Value, Kosten, studnen2St, RECHNUNG) Then
'========================================
'Rechnungsanhang
'========================================
Dim fileName = "Parking_" & dtpVon.Value.ToShortDateString & "-" & dtpBis.Value.ToShortDateString & ".pdf"
Dim filePath = DATENVERVER_OPTIONS.getTMPPath(fileName, ".pdf", False, False)
If Auswertung.genPDF(filePath) Then
If IO.File.Exists(filePath) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "PARPLATZ_ABRECHNUNG", "", "", fileName, KdNr.ToString, False) 'Now.ToString("ddMMyy_HHmmss.ffff")
If Not DS.uploadDataToDATENSERVER(filePath) Then MsgBox("Fehler beim Speichern: Datenserver! KDNR:" & KdNr.ToString)
If CInt(DS.da_id) <= 0 Then MsgBox("Keine DocId!")
Dim da_id = DS.da_id
Dim destPath = DS.GET_TOP1_PATH
'If AvisoId > 0 And SendungsId > 0 Then
' Dim fi As New FileInfo(PdfTmp)
' Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "EORI", "PDF", SendungsId, , fi.Length)
' If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
' Dim anhId = ANH.anh_id
'End If
'Return destPath
If RECHNUNG IsNot Nothing Then
RECHNUNG.ANHAENGE.Clear()
Dim ANH As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangAnhaenge
ANH.dsId = CInt(DS.da_id)
ANH.Bezeichnung = fileName
RECHNUNG.ANHAENGE.Add(ANH)
RECHNUNG.SAVE_ANHAENGE(RECHNUNG.RK_ID)
End If
End If
End If
End If
'========================================
'========================================
End If
ProgressBar1.PerformStep()
Me.Refresh()
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
ProgressBar1.Visible = False
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
doRechnungslauf(False)
End Sub
Function genPARK_SPEDBUCH_ByKdNr(KdNr As String, von As Date, bis As Date, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch) As Boolean
Try
Dim Abfertigungsdatum = bis
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
Select Case cboTarif._value
Case "WABERERS"
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(402608)
End Select
Dim OffertenNr = OFFERETNNR_PARKEN
Dim Abfertigungsart = 10
SPEDBUCH.FilialenNr = 4819
SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
SPEDBUCH.NewUNTER_NR()
SPEDBUCH.Vermittler = AD.Ordnungsbegriff.ToString
SPEDBUCH.VermittlerKundenNr = KdNr
SPEDBUCH.VermittlerOffertenNr = OffertenNr
SPEDBUCH.Abfertigungsdatum = Abfertigungsdatum.ToShortDateString
SPEDBUCH.Abfertigungsart = Abfertigungsart
SPEDBUCH.Bar = False
SPEDBUCH.Fakturiert = True
SPEDBUCH.AnzahlSonstiges = 1
SPEDBUCH.Abfertigungsanzahl = 1
SPEDBUCH.Währungsschlüssel = 900
SPEDBUCH.Packstücke = "Parkplatzgebühr " & von.ToShortDateString & " - " & bis.ToShortDateString
SPEDBUCH.AvisUhrzeit = Nothing
SPEDBUCH.Umrechnungskurs = Nothing
SPEDBUCH.veoerz_basbtg = Nothing
SPEDBUCH.Sicherheitsbetrag = Nothing
SPEDBUCH.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
Return SPEDBUCH.SAVE
Catch ex As System.Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Function genPARK_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date, KostenStd As Double, Std As Double, ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Boolean
Try
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr)
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr)
Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang
Select Case cboTarif._value
Case "WABERERS"
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(402608)
KD = New VERAG_PROG_ALLGEMEIN.cKunde(402608)
End Select
Dim OffertenNr = OFFERETNNR_PARKEN
Dim Abfertigungsart = 10
RG.FilialenNr = SPEDBUCH.FilialenNr
RG.AbfertigungsNr = SPEDBUCH.AbfertigungsNr
RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr
RG.UnterNr = RG.getMaxRGUnterNr()
RG.Buchungsjahr = getGJ(CDate(SPEDBUCH.Abfertigungsdatum)) 'If(Now.Month = 1, Now.Year - 1, Now.Year)
RG.FilialenNr = SPEDBUCH.FilialenNr
RG.Abfertigungsdatum = CDate(SPEDBUCH.Abfertigungsdatum)
RG.Sammelrechnung = 0 'EINZELRG!'
RG.BelegartenKz = "AR"
RG.BelegartenNr = 70
RG.BelegartenBez = "Rechnung"
RG.Vorzeichen = "+"
RG.Packstücke_und_Warenbezeichnung = SPEDBUCH.Packstücke
RG.VermittlerKundenNr = AD.AdressenNr
RG.VermittlerLandKz = AD.LandKz
RG.VermittlerName_1 = AD.Name_1
RG.VermittlerName_2 = AD.Name_2
RG.VermittlerOffertenNr = OffertenNr
RG.VermittlerOrt = (If(AD.LandKz.ToString, "") & " " & If(AD.PLZ.ToString, "") & " " & If(AD.Ort.ToString, ""))
RG.VermittlerStraße = AD.Straße
RG.Rechnung_an = 3
RG.OffertenNr = OffertenNr
RG.KundenNrZentrale = KD.KundenNrZentrale
RG.RechnungsKundenNr = CInt(AD.AdressenNr)
RG.RechnungsLandKz = AD.LandKz
RG.RechnungsName_1 = AD.Name_1
RG.RechnungsName_2 = AD.Name_2
RG.RechnungsOrt = (If(AD.LandKz.ToString, "") & " " & If(AD.PLZ.ToString, "") & " " & If(AD.Ort.ToString, ""))
RG.RechnungsStraße = AD.Straße
RG.RechnungsUstIdKz = AD.UstIdKz
RG.RechnungsUstIdNr = AD.UstIdNr
RG.RechnungsUstIdGeprüft = AD.UstIdGeprüft
RG.Lastschrift = KD.Lastschrift
RG.Kunden_SVS = KD.SVS
RG.Steuerschlüssel = CInt(KD.Steuerschlüssel)
RG.ForceSteuerschlüssel = 19 ' Überschrieben --> IMMER 19% verwenden!!
RG.Vorkasse = KD.Vorkasse
RG.Vorlageprovision_Proz = KD.Vorlageprovision
RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
RG.RechnungSprache = "DE"
RG.Anlage_1 = "Aufstellung Parkgebühren"
RG.Anlage_2 = ""
RG.Anlage_3 = ""
RG.Anlage_4 = ""
RG.Anlage_5 = ""
RG.Anlage_6 = ""
RG.Text = ""
RG.EMailRechnungstext = Nothing ' ""
RG.Firma_ID = 4
RG.Nettozahlungsziel = KD.Zahlungsziel
RG.SteuerpflichtigerGesamtbetrag = 0
RG.SteuerfreierGesamtbetrag = 0
RG.Status = 0
RG.[Vorkosten] = 0
RG.[Erlös] = 0
RG.[Buchungsjahr] = 0
RG.[Währungscode] = "EUR"
RG.ReErfZeitstempel = Now
RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
RG.Buchungsjahr = getGJ(CDate(SPEDBUCH.Abfertigungsdatum))
Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL")
If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then
RG.Steuersatz_Proz = CDbl(dtSt.Rows(0)(0))
End If
'==================================================
'====================POSITIONEN====================
'==================================================
'==================================================
'== Standard laden:
Dim dtBestPOS = SQL.loadDgvBySql("SELECT * FROM [Offertenpositionen] where OffertenNr='" & OffertenNr & "' and KundenNr='" & KdNr & "' and Anzahl>0 and preis>0 ", "FMZOLL")
If dtBestPOS IsNot Nothing Then
For Each r As DataRow In dtBestPOS.Rows
Dim POS_TMP As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen
POS_TMP.LeistungsNr = CInt(r("LeistungsNr"))
POS_TMP.LeistungsBez = If(r("LeistungsBez").ToString, "")
POS_TMP.BerechnungsartNr = CInt(r("BerechnungsartNr"))
POS_TMP.Preis = If(r("Preis") Is DBNull.Value, 0, CDbl(r("Preis").ToString.Replace(".", "")))
POS_TMP.Anzahl = If(r("Anzahl") Is DBNull.Value, 0, r("Anzahl"))
POS_TMP.BGebLeistungsNr = r("BGebLeistungsNr")
POS_TMP.BGebProzent = r("BGebProzent")
POS_TMP.BGebMinBetrag = r("BGebMinBetrag")
POS_TMP.Steuerpflichtig = True 'CBool(LEISTUNG.Steuerpflichtig)
Dim NettobetragTMP As Double = CDbl(POS_TMP.Preis) * CDbl(POS_TMP.Anzahl)
Dim BruttoBetragTMP As Double = CDbl((NettobetragTMP + (NettobetragTMP * RG.Steuersatz_Proz / 100)).ToString("N2"))
POS_TMP.BGebBgl = NettobetragTMP
If POS_TMP.Steuerpflichtig Then
POS_TMP.SteuerpflichtigerBetrag = CDec(NettobetragTMP)
Else
POS_TMP.SteuerfreierBetrag = CDec(BruttoBetragTMP)
End If
RG.POSITIONEN.Add(POS_TMP)
Next
End If
'==================================================
Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(LEISTUNGSNR_PARKEN)
'Dim POS = RECHNUNG.POSITIONEN.Find(Function(x) x.LeistungsNr = 313)
'If POS Is Nothing Then
' POS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
' RG.POSITIONEN.Add(POS)
'End If
POS.LeistungsNr = LEISTUNGSNR_PARKEN
POS.LeistungsBez = "Parkplatz " & Std & " Std x " & KostenStd.ToString("C2")
Dim Nettobetrag As Double = CDbl((KostenStd * Std).ToString("N2"))
Dim BruttoBetrag As Double = CDbl((Nettobetrag + (Nettobetrag * RG.Steuersatz_Proz / 100)).ToString("N2"))
POS.BerechnungsartNr = CInt(LEISTUNG.BerechnungsartNr)
'POS.Preis = BruttoBetrag
POS.Anzahl = 1
POS.Steuerpflichtig = True 'CBool(LEISTUNG.Steuerpflichtig)
POS.BGebBgl = Nettobetrag
If POS.Steuerpflichtig Then
POS.SteuerpflichtigerBetrag = CDec(Nettobetrag)
POS.Preis = Nettobetrag
Else
POS.SteuerfreierBetrag = CDec(BruttoBetrag)
POS.Preis = CDec(BruttoBetrag)
End If
POS.BGebLeistungsNr = LEISTUNGSNR_PARKEN
POS.BGebProzent = Nothing
POS.BGebMinBetrag = Nothing
'==================================================
RG.SteuerpflichtigerGesamtbetrag = POS.SteuerpflichtigerBetrag
RG.SteuerfreierGesamtbetrag = POS.SteuerfreierBetrag
RG.POSITIONEN.Add(POS)
' cFakturierung.setGesamtBetraege(RG) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim
'Call usrCntlFaktAbrechnung.przFixeTaxe(RG) ' Fixe Taxe errechnen
'Call usrCntlFaktAbrechnung.przPP(RG) ' Porto/Papiere errechnen
'Call usrCntlFaktAbrechnung.przBS415(RG) ' Bankspesen errechnen
If RG.SAVE Then
' FAKTURIERT eintragen
RECHNUNG = RG
Return True
Else
Return False
End If
Catch ex As System.Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Shared Function getGJ(BelegDat As Date, Optional FIRMA_ID As Integer = -1) As Integer
'If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA_ID
Case -1, 1, 3, 11, 7, 19, 15 'Abweichendes WJ
Return If(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year)
Case Else
Return BelegDat.Year
End Select
End Function
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
Dim webAddress As String = "https://wiki.verag.ag/abteilungen/mdm/parkplatz/abrechnungDauerparker"
Process.Start(webAddress)
End Sub
End Class

1241
Parkzeit/rptAbrechnungVERAG2.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff