Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1735,6 +1735,7 @@ Public Class usrCntlFaktAbrechnung
 
             'Anhänge aus USTVA -> SPED-BUCH + Excel Pos-Liste
             If SPEDBUCH IsNot Nothing Then
+                If FIRMA IsNot Nothing Then
                     If FIRMA.Firma_ID = 19 And SPEDBUCH.Abfertigungsart = 10 AndAlso SPEDBUCH.ErfassungsNr > 0 Then
 
                         Dim func As New cMDMFunctionsAllgemein()
@@ -1781,6 +1782,8 @@ Public Class usrCntlFaktAbrechnung
                     End If
 
                 End If
+            End If
+
 
 
         End With

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1,7 +1,7 @@
 Imports System.IO
 Imports System.Reflection
 Imports System.Windows.Documents
-Imports itextsharp.text.pdf
+Imports iTextSharp.text.pdf
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 

SDL/kunden/frmKundenUebersichtZOLL.Designer.vb

@@ -140,8 +140,8 @@ Partial Class frmKundenUebersichtZOLL
         Me.HochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
+        Me.Button4 = New System.Windows.Forms.Button()
-        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
+        Me.lblAvgTnr = New System.Windows.Forms.Label()
         Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
         Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -151,10 +151,13 @@ Partial Class frmKundenUebersichtZOLL
         Me.Button10 = New System.Windows.Forms.Button()
         Me.Button11 = New System.Windows.Forms.Button()
         Me.Label40 = New System.Windows.Forms.Label()
-        Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
         Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.lbAvgTnrGesPos = New System.Windows.Forms.Label()
+        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
+        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
+        Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.tabZolltarife.SuspendLayout()
         Me.tabKundendaten.SuspendLayout()
@@ -401,6 +404,9 @@ Partial Class frmKundenUebersichtZOLL
         '
         'grpFilter
         '
+        Me.grpFilter.Controls.Add(Me.lbAvgTnrGesPos)
+        Me.grpFilter.Controls.Add(Me.lblAvgTnr)
+        Me.grpFilter.Controls.Add(Me.Button4)
         Me.grpFilter.Controls.Add(Me.Label24)
         Me.grpFilter.Controls.Add(Me.MyListBox1)
         Me.grpFilter.Controls.Add(Me.Label25)
@@ -439,7 +445,7 @@ Partial Class frmKundenUebersichtZOLL
         'Button2
         '
         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.Location = New System.Drawing.Point(9, 299)
+        Me.Button2.Location = New System.Drawing.Point(9, 225)
         Me.Button2.Margin = New System.Windows.Forms.Padding(0)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(239, 26)
@@ -1345,26 +1351,26 @@ Partial Class frmKundenUebersichtZOLL
         Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(147, 30)
         Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen"
         '
-        'usrcntlKundenuebersicht
+        'Button4
         '
-        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.usrcntlKundenuebersicht.BER_STUFE = 0
+        Me.Button4.Location = New System.Drawing.Point(9, 277)
-        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Button4.Margin = New System.Windows.Forms.Padding(0)
-        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
+        Me.Button4.Name = "Button4"
-        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
+        Me.Button4.Size = New System.Drawing.Size(239, 25)
-        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
+        Me.Button4.TabIndex = 166
-        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
+        Me.Button4.Text = "Durchschnitt Positionsanzahl"
-        Me.usrcntlKundenuebersicht.TabIndex = 0
+        Me.Button4.UseVisualStyleBackColor = True
         '
-        'UsrCntlOfferte1
+        'lblAvgTnr
         '
-        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
+        Me.lblAvgTnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.lblAvgTnr.Location = New System.Drawing.Point(9, 312)
-        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
+        Me.lblAvgTnr.Name = "lblAvgTnr"
-        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
+        Me.lblAvgTnr.Size = New System.Drawing.Size(239, 12)
-        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
+        Me.lblAvgTnr.TabIndex = 172
-        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
+        Me.lblAvgTnr.Text = "0"
-        Me.UsrCntlOfferte1.TabIndex = 0
+        Me.lblAvgTnr.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
         'cboKundenblattFirma
         '
@@ -1384,7 +1390,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.MyListBox1.Location = New System.Drawing.Point(9, 88)
         Me.MyListBox1.Name = "MyListBox1"
         Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
-        Me.MyListBox1.Size = New System.Drawing.Size(239, 199)
+        Me.MyListBox1.Size = New System.Drawing.Size(239, 134)
         Me.MyListBox1.TabIndex = 165
         '
         'dgvRg
@@ -1487,15 +1493,6 @@ Partial Class frmKundenUebersichtZOLL
         Me.Label40.TabIndex = 39
         Me.Label40.Text = "Rechnungen"
         '
-        'UsrcntlFiskaluebersicht1
-        '
-        Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
-        Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
-        Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
-        Me.UsrcntlFiskaluebersicht1.TabIndex = 0
-        '
         'KdSearchBox1
         '
         Me.KdSearchBox1._AlleFirmenCLUSTER = False
@@ -1540,6 +1537,46 @@ Partial Class frmKundenUebersichtZOLL
         Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
         '
+        'lbAvgTnrGesPos
+        '
+        Me.lbAvgTnrGesPos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
+        Me.lbAvgTnrGesPos.Location = New System.Drawing.Point(9, 325)
+        Me.lbAvgTnrGesPos.Name = "lbAvgTnrGesPos"
+        Me.lbAvgTnrGesPos.Size = New System.Drawing.Size(239, 12)
+        Me.lbAvgTnrGesPos.TabIndex = 173
+        Me.lbAvgTnrGesPos.Text = "-"
+        Me.lbAvgTnrGesPos.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'usrcntlKundenuebersicht
+        '
+        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
+        Me.usrcntlKundenuebersicht.BER_STUFE = 0
+        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
+        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
+        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
+        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
+        Me.usrcntlKundenuebersicht.TabIndex = 0
+        '
+        'UsrCntlOfferte1
+        '
+        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
+        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
+        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
+        Me.UsrCntlOfferte1.TabIndex = 0
+        '
+        'UsrcntlFiskaluebersicht1
+        '
+        Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
+        Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
+        Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
+        Me.UsrcntlFiskaluebersicht1.TabIndex = 0
+        '
         'frmKundenUebersichtZOLL
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1714,4 +1751,7 @@ Partial Class frmKundenUebersichtZOLL
     Friend WithEvents TOBBKdNrÄndernToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents VollmachtFinanzamtToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents btnlblLinkedFirmenGruppe As Label
+    Friend WithEvents lblAvgTnr As Label
+    Friend WithEvents Button4 As Button
+    Friend WithEvents lbAvgTnrGesPos As Label
 End Class

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -321,6 +321,9 @@ Public Class frmKundenUebersichtZOLL
         mnueFiskal.Enabled = True
         mnueCBAM.Enabled = True
 
+        lblAvgTnr.Text = "0"
+        lbAvgTnrGesPos.Text = "-"
+
         btnlblLinkedFirmenGruppe.Enabled = True
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -1492,6 +1495,29 @@ Public Class frmKundenUebersichtZOLL
         End If
 
     End Sub
+
+    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
+        lblAvgTnr.Text = "0"
+        lbAvgTnrGesPos.Text = "-"
+
+        Dim sqlstr = "SELECT avg(cast(REPLACE(Vermerk,'Pos-Anzahl: ','')as decimal(10,2))) avg,count(*)cnt  FROM [Speditionsbuch]  where
+                  (VermittlerKundenNr='" & kdNr & "' OR EmpfängerKundenNr='" & kdNr & "') 
+                     and Vermerk is not null  and vermerk LIKE 'Pos-Anzahl: %'  and ISNUMERIC(REPLACE(Vermerk,'Pos-Anzahl: ','')) =1
+                     and Abfertigungsdatum between '" & datVon.Value & "' and '" & datBis.Value & "'  "
+
+        If getValues() <> "" Then
+            sqlstr &= "  and Abfertigungsart IN (" & getValues() & ") "
+        End If
+
+        Dim dt = SQL.loadDgvBySql(sqlstr, "FMZOLL")
+        If dt IsNot Nothing Then
+            If dt(0)("avg") IsNot DBNull.Value Then
+                lblAvgTnr.Text = "Durchschn.Pos: " & CDbl(dt(0)("avg")).ToString("N2")
+                lbAvgTnrGesPos.Text = "(bei " & dt(0)("cnt") & " Abfertigungen)"
+            End If
+        End If
+
+    End Sub
 End Class