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

SDL/Fakturierung/cFakturierung.vb

@@ -2521,6 +2521,11 @@ Public Class cFakturierung
                         If displayFirmenmane Then getSignature &= "<br><b>Unisped Speditions GmbH</b><br>"
                         getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15  <br><b>T</b>  +43 7711 2677-0  |  <b>F</b>  +43 7711 2677-27  |  <b>@</b>  " & If(individuell, emailindividuell, "office@unisped.at") & "  |  www.unisped.at  |  FN 375838d</div>"
                         If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
+                    Case 19 'VERAG360
+                        getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_360.jpg""/>"
+                        If displayFirmenmane Then getSignature &= "<br><b>VERAG 360 GmbH</b><br>"
+                        getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b>  +43 7711 2777-0  |  <b>F</b>  +43 7711 31 073  |  <b>@</b>  " & If(individuell, emailindividuell, "mmd@verag.ag") & "  |  www.verag.ag  |  FN 544732b</div>"
+                        If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
                     Case 26 'VERAG-UNISPED
                         getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG-UNISPED-Logo.jpg""/>"
                         If displayFirmenmane Then getSignature &= "<br><b>VERAG-UNISPED LTD</b><br>"

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -311,7 +311,7 @@ Public Class frmFaktSammelRgDrucken
         If Sammelrechung = 6 Then 'MDMSammelrechnung
             'AKTUELL IMMER MIT KOPIE
             MDMKopiedrucken = True
-            Dim reLandKZ As String = MyDatagridview1.Rows(0).Cells("RechnungsLandKz").Value
+            Dim reLandKZ As String = MyDatagridview1.SelectedRows(0).Cells("RechnungsLandKz").Value
             Dim isEU As Boolean = dTLANDEU.AsEnumerable().Where(Function(res) res.Field(Of String)("LandKz") = reLandKZ).Select(Function(res) res.Field(Of Boolean)("MitgliedslandEU")).FirstOrDefault()
 
             If isEU Then

SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb

@@ -24,14 +24,16 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen
             txtAbfertigungsart.Text = ""
             lblSteuerfrei.Text = ""
             lblSteuerpflichtig.Text = ""
+            Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1)
+
             If Me.Fields.Item("clmnAnzahl") IsNot Nothing AndAlso Me.Fields.Item("clmnAnzahl").Value IsNot Nothing Then txtAbfertigungsart.Text &= Me.Fields.Item("clmnAnzahl").Value.ToString & "x "
             If Me.Fields.Item("clmnLeistung") IsNot Nothing AndAlso Me.Fields.Item("clmnLeistung").Value IsNot Nothing Then txtAbfertigungsart.Text &= Me.Fields.Item("clmnLeistung").Value.ToString
             If Me.Fields.Item("clmnLeistungsNr") IsNot Nothing AndAlso Me.Fields.Item("clmnLeistungsNr").Value IsNot Nothing Then txtAbfertigungsart.Text &= " (" & Me.Fields.Item("clmnLeistungsNr").Value.ToString & ") "
             If Me.Fields.Item("clmnSteuerfreierBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerfreierBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value) <> 0 Then
-                lblSteuerfrei.Text = CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value.ToString).ToString("N2")
+                lblSteuerfrei.Text = CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value.ToString * vorzeichen).ToString("N2")
             End If
             If Me.Fields.Item("clmnSteuerpflichtigerBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value) <> 0 Then
-                lblSteuerpflichtig.Text = CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value.ToString).ToString("N2")
+                lblSteuerpflichtig.Text = CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value.ToString * vorzeichen).ToString("N2")
             End If
         End If
     End Sub

SDL/SDL.vbproj

@@ -4991,13 +4991,13 @@
     <None Include="Resources\Verag-AG-Logo_DE.jpg" />
     <None Include="Resources\plose_truckmaster.png" />
     <None Include="Resources\pdf_s.png" />
-    <None Include="Resources\VERAG_360.jpg" />
     <None Include="Resources\ungueltig_de.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
     <None Include="Resources\ungueltig_en.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
+    <None Include="Resources\VERAG_360.jpg" />
     <Content Include="Resources\Verag_Customs_Service_AEO.jpg">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>

SDL/USTV/frmMDM_USTVAntrag.Designer.vb

@@ -27,6 +27,8 @@ Partial Class frmMDM_USTVAntrag
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
         Me.pnlBottom = New System.Windows.Forms.Panel()
+        Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label27 = New System.Windows.Forms.Label()
         Me.picExcel = New System.Windows.Forms.PictureBox()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.picPDF = New System.Windows.Forms.PictureBox()
@@ -46,6 +48,7 @@ Partial Class frmMDM_USTVAntrag
         Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblLand = New System.Windows.Forms.Label()
         Me.Panel8 = New System.Windows.Forms.Panel()
+        Me.btnAbfertigungsNrVergeben = New System.Windows.Forms.Button()
         Me.Label14 = New System.Windows.Forms.Label()
         Me.txtEingereichtAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblMWSTAntrag = New System.Windows.Forms.Label()
@@ -114,8 +117,8 @@ Partial Class frmMDM_USTVAntrag
         Me.Button3 = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
-        Me.Label27 = New System.Windows.Forms.Label()
+        Me.txtVZam = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.pnlBottom.SuspendLayout()
         CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -159,6 +162,41 @@ Partial Class frmMDM_USTVAntrag
         Me.pnlBottom.Size = New System.Drawing.Size(1454, 100)
         Me.pnlBottom.TabIndex = 3
         '
+        'txtSumme
+        '
+        Me.txtSumme._DateTimeOnly = False
+        Me.txtSumme._numbersOnly = False
+        Me.txtSumme._numbersOnlyKommastellen = ""
+        Me.txtSumme._numbersOnlyTrennzeichen = False
+        Me.txtSumme._Prozent = False
+        Me.txtSumme._ShortDateNew = False
+        Me.txtSumme._ShortDateOnly = False
+        Me.txtSumme._TimeOnly = False
+        Me.txtSumme._TimeOnly_Seconds = False
+        Me.txtSumme._value = ""
+        Me.txtSumme._Waehrung = True
+        Me.txtSumme._WaehrungZeichen = True
+        Me.txtSumme.ForeColor = System.Drawing.Color.Black
+        Me.txtSumme.Location = New System.Drawing.Point(1026, 63)
+        Me.txtSumme.MaxLineLength = -1
+        Me.txtSumme.MaxLines_Warning = ""
+        Me.txtSumme.MaxLines_Warning_Label = Nothing
+        Me.txtSumme.Name = "txtSumme"
+        Me.txtSumme.ReadOnly = True
+        Me.txtSumme.Size = New System.Drawing.Size(88, 20)
+        Me.txtSumme.TabIndex = 49
+        Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label27.Location = New System.Drawing.Point(975, 66)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(45, 13)
+        Me.Label27.TabIndex = 48
+        Me.Label27.Text = "Summe:"
+        '
         'picExcel
         '
         Me.picExcel.Image = Global.SDL.My.Resources.Resources.Excel_logo
@@ -421,6 +459,9 @@ Partial Class frmMDM_USTVAntrag
         '
         Me.Panel8.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel8.Controls.Add(Me.Label15)
+        Me.Panel8.Controls.Add(Me.txtVZam)
+        Me.Panel8.Controls.Add(Me.btnAbfertigungsNrVergeben)
         Me.Panel8.Controls.Add(Me.Label14)
         Me.Panel8.Controls.Add(Me.txtEingereichtAm)
         Me.Panel8.Controls.Add(Me.lblMWSTAntrag)
@@ -450,6 +491,19 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel8.Size = New System.Drawing.Size(973, 87)
         Me.Panel8.TabIndex = 19
         '
+        'btnAbfertigungsNrVergeben
+        '
+        Me.btnAbfertigungsNrVergeben.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAbfertigungsNrVergeben.ForeColor = System.Drawing.Color.Black
+        Me.btnAbfertigungsNrVergeben.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnAbfertigungsNrVergeben.Location = New System.Drawing.Point(654, 31)
+        Me.btnAbfertigungsNrVergeben.Name = "btnAbfertigungsNrVergeben"
+        Me.btnAbfertigungsNrVergeben.Size = New System.Drawing.Size(146, 27)
+        Me.btnAbfertigungsNrVergeben.TabIndex = 50
+        Me.btnAbfertigungsNrVergeben.Text = "AbfertigungsNr vergeben"
+        Me.btnAbfertigungsNrVergeben.UseVisualStyleBackColor = True
+        Me.btnAbfertigungsNrVergeben.Visible = False
+        '
         'Label14
         '
         Me.Label14.AutoSize = True
@@ -583,7 +637,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Label9.Cursor = System.Windows.Forms.Cursors.Hand
         Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label9.ForeColor = System.Drawing.Color.Black
-        Me.Label9.Location = New System.Drawing.Point(815, 37)
+        Me.Label9.Location = New System.Drawing.Point(826, 35)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(30, 17)
         Me.Label9.TabIndex = 19
@@ -636,7 +690,7 @@ Partial Class frmMDM_USTVAntrag
         Me.txtAbfNr.MaxLines_Warning = ""
         Me.txtAbfNr.MaxLines_Warning_Label = Nothing
         Me.txtAbfNr.Name = "txtAbfNr"
-        Me.txtAbfNr.Size = New System.Drawing.Size(146, 23)
+        Me.txtAbfNr.Size = New System.Drawing.Size(117, 23)
         Me.txtAbfNr.TabIndex = 18
         '
         'Label8
@@ -1430,40 +1484,43 @@ Partial Class frmMDM_USTVAntrag
         Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
         '
-        'txtSumme
+        'Label15
         '
-        Me.txtSumme._DateTimeOnly = False
+        Me.Label15.AutoSize = True
-        Me.txtSumme._numbersOnly = False
+        Me.Label15.BackColor = System.Drawing.Color.Transparent
-        Me.txtSumme._numbersOnlyKommastellen = ""
+        Me.Label15.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.txtSumme._numbersOnlyTrennzeichen = False
+        Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSumme._Prozent = False
+        Me.Label15.ForeColor = System.Drawing.Color.Black
-        Me.txtSumme._ShortDateNew = False
+        Me.Label15.Location = New System.Drawing.Point(800, 64)
-        Me.txtSumme._ShortDateOnly = False
+        Me.Label15.Name = "Label15"
-        Me.txtSumme._TimeOnly = False
+        Me.Label15.Size = New System.Drawing.Size(53, 17)
-        Me.txtSumme._TimeOnly_Seconds = False
+        Me.Label15.TabIndex = 51
-        Me.txtSumme._value = ""
+        Me.Label15.Text = "VZ am:"
-        Me.txtSumme._Waehrung = True
-        Me.txtSumme._WaehrungZeichen = True
-        Me.txtSumme.ForeColor = System.Drawing.Color.Black
-        Me.txtSumme.Location = New System.Drawing.Point(1026, 63)
-        Me.txtSumme.MaxLineLength = -1
-        Me.txtSumme.MaxLines_Warning = ""
-        Me.txtSumme.MaxLines_Warning_Label = Nothing
-        Me.txtSumme.Name = "txtSumme"
-        Me.txtSumme.ReadOnly = True
-        Me.txtSumme.Size = New System.Drawing.Size(88, 20)
-        Me.txtSumme.TabIndex = 49
-        Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
-        'Label27
+        'txtVZam
         '
-        Me.Label27.AutoSize = True
+        Me.txtVZam._DateTimeOnly = False
-        Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtVZam._numbersOnly = True
-        Me.Label27.Location = New System.Drawing.Point(975, 66)
+        Me.txtVZam._numbersOnlyKommastellen = ""
-        Me.Label27.Name = "Label27"
+        Me.txtVZam._numbersOnlyTrennzeichen = False
-        Me.Label27.Size = New System.Drawing.Size(45, 13)
+        Me.txtVZam._Prozent = False
-        Me.Label27.TabIndex = 48
+        Me.txtVZam._ShortDateNew = True
-        Me.Label27.Text = "Summe:"
+        Me.txtVZam._ShortDateOnly = True
+        Me.txtVZam._TimeOnly = False
+        Me.txtVZam._TimeOnly_Seconds = False
+        Me.txtVZam._value = ""
+        Me.txtVZam._Waehrung = False
+        Me.txtVZam._WaehrungZeichen = False
+        Me.txtVZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtVZam.ForeColor = System.Drawing.Color.Black
+        Me.txtVZam.Location = New System.Drawing.Point(865, 60)
+        Me.txtVZam.MaxLength = 10
+        Me.txtVZam.MaxLineLength = -1
+        Me.txtVZam.MaxLines_Warning = ""
+        Me.txtVZam.MaxLines_Warning_Label = Nothing
+        Me.txtVZam.Name = "txtVZam"
+        Me.txtVZam.Size = New System.Drawing.Size(100, 23)
+        Me.txtVZam.TabIndex = 52
         '
         'frmMDM_USTVAntrag
         '
@@ -1599,4 +1656,7 @@ Partial Class frmMDM_USTVAntrag
     Friend WithEvents picExcel As PictureBox
     Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label27 As Label
+    Friend WithEvents btnAbfertigungsNrVergeben As Button
+    Friend WithEvents Label15 As Label
+    Friend WithEvents txtVZam As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1,10 +1,6 @@
-
+Imports System.IO
-Imports System.ComponentModel
-Imports System.IO
 Imports System.Reflection
 Imports System.Windows.Documents
-Imports com.sun.org.apache.xml.internal.utils
-Imports DAKOSY_Worker.InformationEXITDE
 Imports itextsharp.text.pdf
 Imports itextsharp.text.pdf.parser
 Imports Microsoft.Office.Interop
@@ -18,6 +14,7 @@ Public Class frmMDM_USTVAntrag
     Dim Antrag_LandKz As String = ""
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim posTabisSelected As Boolean = True
+    Dim atez_api = New cATEZ_NCTS_IN("ATEZ_VAT", False)
 
     Dim von, bis As Date
 
@@ -63,10 +60,8 @@ Public Class frmMDM_USTVAntrag
         btnEintragloeschen.Enabled = Not UStVAn_ID <= 0
         btnNeuerEintrag.Enabled = Not UStVAn_ID <= 0
         UstCntlUSTV_AntragPosition1.Enabled = Not UStVAn_ID <= 0
-
         cbxLand.Visible = UStVAn_ID <= 0
 
-
         With dgvUSTVPositionen
             .ClearSelection()
 
@@ -301,6 +296,7 @@ Public Class frmMDM_USTVAntrag
         txt3470.Text = If(USTV_ANTRAG.UStVAn_3470, "")
 
         txtVZ.Text = If(USTV_ANTRAG.UStVAn_VZBetrag, "")
+        txtVZam.Text = If(USTV_ANTRAG.UStVAn_VZDatum, "")
         txtBezugsNr.Text = If(USTV_ANTRAG.UStVAn_BezugsNr, "")
         txtAbfNr.Text = If(USTV_ANTRAG.AbfertigungsNr, "")
         txtEingereichtAm.Text = If(USTV_ANTRAG.UStVAn_AntragEingereichtAm, "")
@@ -323,6 +319,7 @@ Public Class frmMDM_USTVAntrag
             USTV_ANTRAG.UStVAn_AntragArt = cboAntragArt._value
             USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
 
+            USTV_ANTRAG.FilialenNr = cbxFiliale._value
             USTV_ANTRAG.FilialenNr = cbxFiliale._value
 
             If txt3470.Text <> "" AndAlso IsNumeric(txt3470.Text) Then
@@ -337,6 +334,13 @@ Public Class frmMDM_USTVAntrag
                 USTV_ANTRAG.UStVAn_VZBetrag = Nothing
             End If
 
+            If txtVZam.Text <> "" AndAlso IsDate(txtVZam.Text) Then
+                USTV_ANTRAG.UStVAn_VZDatum = CDate(txtVZ.Text)
+            Else
+                USTV_ANTRAG.UStVAn_VZDatum = Nothing
+            End If
+
+
             USTV_ANTRAG.UStVAn_BezugsNr = txtBezugsNr.Text
             USTV_ANTRAG.AbfertigungsNr = txtAbfNr.Text
 
@@ -345,7 +349,7 @@ Public Class frmMDM_USTVAntrag
 
             If ADR IsNot Nothing Then
                 USTV_ANTRAG.UStVAn_KuNr = ADR.AdressenNr
-                USTV_ANTRAG.UStVAn_Name = ADR.Name_1
+                USTV_ANTRAG.UStVAn_Name = ADR.Name_1 & IIf(ADR.Name_2 <> "", " " & ADR.Name_2, "")
                 USTV_ANTRAG.UStVAn_Straße = ADR.Straße
                 USTV_ANTRAG.UStVAn_LandKz = ADR.LandKz
                 USTV_ANTRAG.UStVAn_Ort = ADR.Ort
@@ -528,6 +532,10 @@ Public Class frmMDM_USTVAntrag
 
         setinfofields()
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnAbfertigungsNrVergeben.Visible = True
+
+
+
     End Sub
 
     Private Sub Button14_Click(sender As Object, e As EventArgs) Handles btnAntrageeinarbeiten.Click
@@ -695,7 +703,7 @@ Public Class frmMDM_USTVAntrag
 
                         ' Berechnungen
                         If Not MWSTSummenAusBeleg Then
-                            USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung
+                            USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung 'IMMER IN EUR
                             USTV_POS.UStVPo_Umrechnungskurs = ANTRAG.plose_MWSTBetrag / ANTRAG.plose_MWSTBetragWaehrungAbbuchung
                             USTV_POS.UStVPo_USteuerbetrag = ANTRAG.plose_MWSTBetrag
 
@@ -744,10 +752,12 @@ Public Class frmMDM_USTVAntrag
                         End If
 
                         If USTV_POS.INSERT() Then
-                            If bytSchnittstellenNr = 11 Then
+                            If bytSchnittstellenNr = 11 Then 'wegel bei welcher Einlesselogik, sollen immer [tblPLOSE_Details] und [tblPLOSE_Inv_Data] aktualisiert werden!
                                 MDM_Worker.cPLOSE.UPDATE_ARCHIV_NEULOGIK(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID, USTV_POS.UStVPo_ReNr, True)
+                                MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID, USTV_POS.UStVPo_ReNr, True)
                             Else
                                 MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID, USTV_POS.UStVPo_ReNr, True)
+                                MDM_Worker.cPLOSE.UPDATE_ARCHIV_NEULOGIK(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID, USTV_POS.UStVPo_ReNr, True)
                             End If
 
                         End If
@@ -1255,9 +1265,8 @@ Public Class frmMDM_USTVAntrag
                 ANTR_Leistender = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(ANTR_POS.UStVPo_LeistenderId)
             End If
 
-
             UstCntlUSTV_AntragPosition1.Enabled = True
-            UstCntlUSTV_AntragPosition1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_POS, Antrag_LandKz, ANTR_Leistender)
+            UstCntlUSTV_AntragPosition1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_POS, Antrag_LandKz, ANTR_Leistender, atez_api)
         Else
             UstCntlUSTV_AntragPosition1.reset()
             UstCntlUSTV_AntragPosition1.Enabled = False
@@ -1372,6 +1381,9 @@ Public Class frmMDM_USTVAntrag
     End Sub
 
     Private Sub frmMDM_USTVAntrag_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+
+        If IsNumeric(txtAbfNr.Text) AndAlso CInt(txtAbfNr.Text) > 0 Then btnAbfertigungsNrVergeben.Visible = False
+
         Me.Top = 0
         Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height
     End Sub
@@ -1526,110 +1538,14 @@ Public Class frmMDM_USTVAntrag
         If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
 
             If UstCntlUSTV_AntragPosition1.cbxAPI IsNot Nothing AndAlso UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value IsNot Nothing Then
-                Dim updated As Boolean = False
-                Dim sqlText = ""
-                Dim test As Boolean = False
 
-
+                If setArchiv(UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_Leistungsbezeichnung) Then
-                Select Case UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value
+                    If UstCntlUSTV_AntragPosition1.UStV_POS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID) Then
-
+                        reorderUSTVAPositions(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID)
-                    Case 1  'VERAG 360 GmbH; 4975 Suben
-                        'UStV-Antragsnummer im Buchungssatz löschen.
-                        sqlText = "Update tblTrdinInvoice SET tblTrdinInvoice.UStVAn_ID = NULL WHERE tblTrdinInvoice.Rechnungsdatum = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And tblTrdinInvoice.Rechnungsnummer = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr
-                        If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
-
-                    Case 2  ' UStV-Antragsnummer im IDSDieseldatenArchiv löschen 'IDS alte Schnittstelle - OK
-                        sqlText = "UPDATE tblDieselArchiv  SET tblDieselArchiv.UStVAn_ID = NULL FROM tblDieselArchiv INNER JOIN tbl_IDS_Länder ON tblDieselArchiv.[Outlet Country Code] = tbl_IDS_Länder.OutletCountryCode  WHERE (((tblDieselArchiv.[Year Month Day])='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "') AND ((ISNULL([OBO Number],ISNULL([VR Number],[Payment summary number])))='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "') AND ((tblDieselArchiv.KdNrVERAG)=" & USTV_ANTRAG.UStVAn_KuNr & ") AND ((tbl_IDS_Länder.LandNr)=" & USTV_ANTRAG.UStVAn_LandNr & "))"
-                        If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
-
-                    Case 3   'Telepass ' UStV-Antragsnummer in tblMautITArchiv löschen.- NICHT MEHR AKTIV
-                        sqlText = "UPDATE tblMautITArchiv SET tblMautITArchiv.UStVAn_ID = NULL WHERE tblMautITArchiv.Verrechnungsdatum='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' AND tblMautITArchiv.Code_Adressat_des_Kontoauszugs='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "' AND ([Betrag_mit_Preisnachlass_oder_Preisnachlass]-[Nicht_mehrwertsteuerpflichtiger_Betrag])<>0"
-                        If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
-
-
-                    Case 4  'MS Europe BV; GC Rijswijk alte Schnittstelle UStV-Antragsnummer in tblMSETransactionsArchiv löschen.  - OK
-                        sqlText = "UPDATE tblMSETransactionsArchiv SET tblMSETransactionsArchiv.UStVAn_ID = NULL FROM tblMSETransactionsArchiv INNER JOIN Adressen ON tblMSETransactionsArchiv.[Customer ID] = Adressen.MSEKundenNr WHERE (((tblMSETransactionsArchiv.[Invoice Date])='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "') AND ((tblMSETransactionsArchiv.[Invoice ID])='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "') AND ((tblMSETransactionsArchiv.[Specification Page])='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_Leistungsbezeichnung & "') AND ((Adressen.AdressenNr)=" & USTV_ANTRAG.UStVAn_KuNr & ") AND ((tblMSETransactionsArchiv.[Transaction Country])='" & UstCntlUSTV_AntragPosition1.Antrag_LandKz & "') AND ((tblMSETransactionsArchiv.[Original Currency])='" & USTV_ANTRAG.UStVAn_Währungscode & "') AND ((tblMSETransactionsArchiv.[Original VAT Amount])<>0))"
-                        If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
-
-                    Case 5  'UNIONTANK - UTA - OK
-                        ' UStV-Antragsnummer in tblUTAArchiv löschen.
-                        sqlText =
-                        "UPDATE tblUTAArchiv SET tblUTAArchiv.UStVAn_ID = NULL FROM tblUTAArchiv INNER JOIN Adressen ON tblUTAArchiv.Kundennummer = Adressen.UTAKundenNr 
-                        WHERE tblUTAArchiv.Rechnungsdatum='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' 
-                        AND tblUTAArchiv.Rechnungsnummer_pro_Lieferland=" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & " 
-                        AND tblUTAArchiv.Lieferland='" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO3LandFromLandNr(USTV_ANTRAG.UStVAn_LandNr) & "' 
-                        AND tblUTAArchiv.Lieferlandwährung_ISO='" & USTV_ANTRAG.UStVAn_Währungscode & "' 
-                        AND Adressen.AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & " 
-                        AND ([Gesamtbetrag_Brutto_in_Lieferlandwährung]-[Gesamtbetrag_Netto_in_Lieferlandwährung])<>0"
-                        If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
-
-                    Case 6  'PLOSE-alte Logik -> aus Transaktionen
-
-
-                        sqlText = "Update [tblPLOSE_Details] 
-                        set plose_Archiv=0, [plose_ArchiviertDatum]=NULL, UStVAn_ID = NULL
-                        From [tblPLOSE_Details]  INNER Join Adressen On PLOSEKundenNr=plose_POLSEKundennummer
-                        INNER Join [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode]
-                        WHERE cast(plose_RechnungsDatum As Date) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & " AND plose_RechnungsNr = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "' 
-                        And plose_LieferantCode IN (0,1,7,9)  "
-
-
-                        If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
-
-                    Case 7  'RMC - neue Schnittstelle - OK
-                        sqlText = "Update [tblRMCImport] Set rmc_archiv=0, [rmc_archiviertDatum] = NULL, UStVAn_ID = NULL FROM [tblRMCImport] inner join adressen on adressen.WölflKundenNr = tblRMCImport.rmc_kdNr Where cast(rmc_reDatum as date) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And rmc_reNr = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & " AND adressen.AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr
-                        If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
-
-                    Case 8  'IDS neue Schnittstelle - OK
-                        sqlText = "update tblIDSTransactionsNew set  UStVAn_ID = NULL
-                        From tblIDSTransactionsNew
-                        INNER Join tbl_IDS_Länder 
-                            On tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode
-                        Where
-                        tblIDSTransactionsNew.[YearMonthDay] = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "'
-                            And tblIDSTransactionsNew.KdNrVERAG = " & USTV_ANTRAG.UStVAn_KuNr & "
-                            And tbl_IDS_Länder.[Lieferland_ISO2] = '" & Antrag_LandKz & "'"
-                        If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
-
-                    Case 9  'MSE neue Schnitttelle - OK
-                        If UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr.ToString.Length >= 15 Then
-                            Dim invoiceNo = UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr.ToString.Substring(0, 7)
-                            Dim customerNo = UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr.ToString.Substring(10, 5)
-                            sqlText = "UPDATE [tblMSEInvoices] set UStVAn_ID = NULL, archiv = 0, archiviertDatum = NULL FROM [tblMSEInvoices] inner join [tblMSECustomers] on tblMSEInvoices.customer_number = tblMSECustomers.customer_id WHERE cast(invoice_date as date) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And invoice_id = " & invoiceNo & " And tblMSECustomers.partner_customer_number= " & USTV_ANTRAG.UStVAn_KuNr & " And country = '" & UstCntlUSTV_AntragPosition1.Antrag_LandKz & "' and tblMSEInvoices.customer_number = " & customerNo
-
-                            If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
-                        End If
-
-                    Case 10 ' UTA neue Schnittstelle - OK
-                        sqlText = "UPDATE [tblUTAImportNew] set UStVAn_ID = NULL, archiv = 0, archiviertDatum = NULL  from [tblUTAImportNew] INNER JOIN Adressen ON [tblUTAImportNew].Kundennummer = Adressen.UTAKundenNr WHERE cast(Rechnungsdatum as date) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And Rechnungsnummer_pro_Lieferland = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & " And Adressen.AdressenNr= " & USTV_ANTRAG.UStVAn_KuNr & " AND Lieferland_ISO2 = '" & UstCntlUSTV_AntragPosition1.Antrag_LandKz & "'"
-                        If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
-
-                    Case 11 'PLOSE-neue Logik -> aus Belegen
-
-                        sqlText = "Update [tblPLOSE_Inv_Data]
-                        set plInv_Archiv=0, [plInv_ArchiviertDatum]=NULL, plInv_UStVAn_ID = NULL
-                        From [tblPLOSE_Inv_Data]  INNER Join Adressen On PLOSEKundenNr=plInv_PLOSEKundennummer
-                        WHERE cast(plInv_SupplierRechnungsDatum As Date) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & " AND [plInv_SupplierRechnungsNr] = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "'"
-
-                        If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
-
-                End Select
-
-                If UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value IsNot Nothing AndAlso (UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value > 0 And UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value < 11) Then
-                    If Not updated Then
-                        If Not vbYes = MsgBox("Fehler beim zurücksetzen der USTVA-ID!" & vbNewLine & "Möchten Sie den Eintrag trotzdem löschen?", vbYesNoCancel) Then
-                            Exit Sub
-                        End If
                     End If
-
+                    init()
                 End If
 
-                If UstCntlUSTV_AntragPosition1.UStV_POS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID) Then
-                    reorderUSTVAPositions(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID)
-                End If
-
-                init()
-
             End If
 
             UstCntlUSTV_AntragPosition1.Enabled = False
@@ -1689,10 +1605,116 @@ Public Class frmMDM_USTVAntrag
 
     End Sub
 
+    Private Function setArchiv(SchnittstellenNr As Integer, RechnungsDatum As Date, RechnungsNr As String, Leistungsbez As String) As Boolean
+
+
+        Dim updated As Boolean = False
+        Dim sqlText = ""
+        Dim test As Boolean = False
+
+        Select Case SchnittstellenNr
+
+            Case 1  'VERAG 360 GmbH; 4975 Suben
+                'UStV-Antragsnummer im Buchungssatz löschen.
+                sqlText = "Update tblTrdinInvoice SET tblTrdinInvoice.UStVAn_ID = NULL WHERE tblTrdinInvoice.Rechnungsdatum = '" & RechnungsDatum.ToShortDateString & "' And tblTrdinInvoice.Rechnungsnummer = " & RechnungsNr
+                If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
+
+            Case 2  ' UStV-Antragsnummer im IDSDieseldatenArchiv löschen 'IDS alte Schnittstelle - OK
+                sqlText = "UPDATE tblDieselArchiv  SET tblDieselArchiv.UStVAn_ID = NULL FROM tblDieselArchiv INNER JOIN tbl_IDS_Länder ON tblDieselArchiv.[Outlet Country Code] = tbl_IDS_Länder.OutletCountryCode  WHERE (((tblDieselArchiv.[Year Month Day])='" & RechnungsDatum.ToShortDateString & "') AND ((ISNULL([OBO Number],ISNULL([VR Number],[Payment summary number])))='" & RechnungsNr & "') AND ((tblDieselArchiv.KdNrVERAG)=" & USTV_ANTRAG.UStVAn_KuNr & ") AND ((tbl_IDS_Länder.LandNr)=" & USTV_ANTRAG.UStVAn_LandNr & "))"
+                If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
+
+            Case 3   'Telepass ' UStV-Antragsnummer in tblMautITArchiv löschen.- NICHT MEHR AKTIV
+                sqlText = "UPDATE tblMautITArchiv SET tblMautITArchiv.UStVAn_ID = NULL WHERE tblMautITArchiv.Verrechnungsdatum='" & RechnungsDatum.ToShortDateString & "' AND tblMautITArchiv.Code_Adressat_des_Kontoauszugs='" & RechnungsNr & "' AND ([Betrag_mit_Preisnachlass_oder_Preisnachlass]-[Nicht_mehrwertsteuerpflichtiger_Betrag])<>0"
+                If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
+
+
+            Case 4  'MS Europe BV; GC Rijswijk alte Schnittstelle UStV-Antragsnummer in tblMSETransactionsArchiv löschen.  - OK
+                sqlText = "UPDATE tblMSETransactionsArchiv SET tblMSETransactionsArchiv.UStVAn_ID = NULL FROM tblMSETransactionsArchiv INNER JOIN Adressen ON tblMSETransactionsArchiv.[Customer ID] = Adressen.MSEKundenNr WHERE (((tblMSETransactionsArchiv.[Invoice Date])='" & RechnungsDatum.ToShortDateString & "') AND ((tblMSETransactionsArchiv.[Invoice ID])='" & RechnungsNr & "') AND ((tblMSETransactionsArchiv.[Specification Page])='" & Leistungsbez & "') AND ((Adressen.AdressenNr)=" & USTV_ANTRAG.UStVAn_KuNr & ") AND ((tblMSETransactionsArchiv.[Transaction Country])='" & Antrag_LandKz & "') AND ((tblMSETransactionsArchiv.[Original Currency])='" & USTV_ANTRAG.UStVAn_Währungscode & "') AND ((tblMSETransactionsArchiv.[Original VAT Amount])<>0))"
+                If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
+
+            Case 5  'UNIONTANK - UTA - OK
+                ' UStV-Antragsnummer in tblUTAArchiv löschen.
+                sqlText =
+                "UPDATE tblUTAArchiv SET tblUTAArchiv.UStVAn_ID = NULL FROM tblUTAArchiv INNER JOIN Adressen ON tblUTAArchiv.Kundennummer = Adressen.UTAKundenNr 
+                        WHERE tblUTAArchiv.Rechnungsdatum='" & RechnungsDatum.ToShortDateString & "' 
+                        AND tblUTAArchiv.Rechnungsnummer_pro_Lieferland=" & RechnungsNr & " 
+                        AND tblUTAArchiv.Lieferland='" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO3LandFromLandNr(USTV_ANTRAG.UStVAn_LandNr) & "' 
+                        AND tblUTAArchiv.Lieferlandwährung_ISO='" & USTV_ANTRAG.UStVAn_Währungscode & "' 
+                        AND Adressen.AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & " 
+                        AND ([Gesamtbetrag_Brutto_in_Lieferlandwährung]-[Gesamtbetrag_Netto_in_Lieferlandwährung])<>0"
+                If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
+
+            Case 6, 11  'PLOSE-alte Logik  -> aus Transaktionen und neue Logik -> aus Rechnungsdaten (immer beide Ausführen!)
+
+                sqlText = "Update [tblPLOSE_Details] 
+                        set plose_Archiv=0, [plose_ArchiviertDatum]=NULL, UStVAn_ID = NULL
+                        From [tblPLOSE_Details]  INNER Join Adressen On PLOSEKundenNr=plose_POLSEKundennummer
+                        INNER Join [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode]
+                        WHERE cast(plose_RechnungsDatum As Date) = '" & RechnungsDatum.ToShortDateString & "' And AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & " AND plose_RechnungsNr = '" & RechnungsNr & "' 
+                        And plose_LieferantCode IN (0,1,7,9)  "
+
+                If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
+
+
+                sqlText = "Update [tblPLOSE_Inv_Data]
+                        set plInv_Archiv=0, [plInv_ArchiviertDatum]=NULL, plInv_UStVAn_ID = NULL
+                        From [tblPLOSE_Inv_Data]  INNER Join Adressen On PLOSEKundenNr=plInv_PLOSEKundennummer
+                        WHERE cast(plInv_SupplierRechnungsDatum As Date) = '" & RechnungsDatum.ToShortDateString & "' And AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & " AND [plInv_SupplierRechnungsNr] = '" & RechnungsNr & "'"
+
+                If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
+
+            Case 7  'RMC - neue Schnittstelle - OK
+                sqlText = "Update [tblRMCImport] Set rmc_archiv=0, [rmc_archiviertDatum] = NULL, UStVAn_ID = NULL FROM [tblRMCImport] inner join adressen on adressen.WölflKundenNr = tblRMCImport.rmc_kdNr Where cast(rmc_reDatum as date) = '" & RechnungsDatum.ToShortDateString & "' And rmc_reNr = " & RechnungsNr & " AND adressen.AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr
+                If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
+            Case 8  'IDS neue Schnittstelle - OK
+                sqlText = "update tblIDSTransactionsNew set  UStVAn_ID = NULL
+                        From tblIDSTransactionsNew
+                        INNER Join tbl_IDS_Länder 
+                            On tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode
+                        Where
+                        tblIDSTransactionsNew.[YearMonthDay] = '" & RechnungsDatum.ToShortDateString & "' And ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) = '" & RechnungsNr & "'
+                            And tblIDSTransactionsNew.KdNrVERAG = " & USTV_ANTRAG.UStVAn_KuNr & "
+                            And tbl_IDS_Länder.[Lieferland_ISO2] = '" & Antrag_LandKz & "'"
+                If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
+            Case 9  'MSE neue Schnitttelle - OK
+                If RechnungsNr.ToString.Length >= 15 Then
+                    Dim invoiceNo = RechnungsNr.ToString.Substring(0, 7)
+                    Dim customerNo = RechnungsNr.ToString.Substring(10, 5)
+                    sqlText = "UPDATE [tblMSEInvoices] set UStVAn_ID = NULL, archiv = 0, archiviertDatum = NULL FROM [tblMSEInvoices] inner join [tblMSECustomers] on tblMSEInvoices.customer_number = tblMSECustomers.customer_id WHERE cast(invoice_date as date) = '" & RechnungsDatum.ToShortDateString & "' And invoice_id = " & invoiceNo & " And tblMSECustomers.partner_customer_number= " & USTV_ANTRAG.UStVAn_KuNr & " And country = '" & Antrag_LandKz & "' and tblMSEInvoices.customer_number = " & customerNo
+
+                    If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
+                End If
+            Case 10 ' UTA neue Schnittstelle - OK
+                sqlText = "UPDATE [tblUTAImportNew] set UStVAn_ID = NULL, archiv = 0, archiviertDatum = NULL  from [tblUTAImportNew] INNER JOIN Adressen ON [tblUTAImportNew].Kundennummer = Adressen.UTAKundenNr WHERE cast(Rechnungsdatum as date) = '" & RechnungsDatum.ToShortDateString & "' And Rechnungsnummer_pro_Lieferland = " & RechnungsNr & " And Adressen.AdressenNr= " & USTV_ANTRAG.UStVAn_KuNr & " AND Lieferland_ISO2 = '" & Antrag_LandKz & "'"
+                If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
+
+
+
+        End Select
+
+        If (SchnittstellenNr > 0 And SchnittstellenNr < 12) Then
+            If Not updated Then
+                If Not vbYes = MsgBox("Fehler beim zurücksetzen der USTVA-ID!" & vbNewLine & "Möchten Sie den Eintrag trotzdem löschen?", vbYesNoCancel) Then
+                    Return updated
+                Else
+                    Return True
+                End If
+            Else
+
+                Return updated
+            End If
+        Else
+            Return True
+
+        End If
+
+
+    End Function
+
 
     Private Function excelAuswertung(ByRef Optional filepath As String = "", Optional feedback As Boolean = False, Optional openExcel As Boolean = True) As Boolean
 
-        Dim sqlStr = "Select [UStVPo_ReDat] As InvoiceDate , [UStVPo_ReNr] As InvoiceNumber, antr.UStVAn_Name As Company, 'FR' as CountryOfRefund ,'EUR' as Currency ,[UStVPo_Leistender] as SupplierName, leist.[UstV_Leistender_Strasse] AS SupplierStreet, leist.[UstV_Leistender_StrasseNr] as SupplierStreetNumber, leist.[UstV_Leistender_PLZ] as SupplierPostalCode, leist.[UstV_Leistender_Stadt] as SupplierCity, leist.[UstV_Leistender_Land] as SupplierCountry, leist.[UstV_Leistender_UstNr] as SupplierVAT_TaxNumber, [UStVPo_Leistungsbezeichnung] as ExpenseCategory ,Round((1119/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseGrossAmount, [UStVPo_USteuerbetragEUR] as ExpenseVATAmount,Round((100/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseNetAmount
+        Dim sqlStr = "Select [UStVPo_ReDat] As InvoiceDate , [UStVPo_ReNr] As InvoiceNumber, antr.UStVAn_Name As Company, 'FR' as CountryOfRefund ,'EUR' as Currency ,replace([UStVPo_Leistender],'FR','') as SupplierName, leist.[UstV_Leistender_Strasse] AS SupplierStreet, leist.[UstV_Leistender_StrasseNr] as SupplierStreetNumber, leist.[UstV_Leistender_PLZ] as SupplierPostalCode, leist.[UstV_Leistender_Stadt] as SupplierCity, leist.[UstV_Leistender_Land] as SupplierCountry, leist.[UstV_Leistender_UstNr] as SupplierVAT_TaxNumber, [UStVPo_Leistungsbezeichnung] as ExpenseCategory ,Round((1119/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseGrossAmount, [UStVPo_USteuerbetragEUR] as ExpenseVATAmount,Round((100/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseNetAmount
                         From [tblUStVPositionen]
                       inner Join [tblUStVLeistender] as leist on leist.UStV_Leistender = [tblUStVPositionen].[UStVPo_Leistender]
                       inner Join [tblUStVAntrag] as antr on antr.UStVAn_ID = [tblUStVPositionen].UStVAn_ID
@@ -1815,7 +1837,7 @@ Public Class frmMDM_USTVAntrag
                 For Each row As DataGridViewRow In dgvUSTVPositionen.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(dgvr) dgvr.Index)
 
                     Dim pdf As String = ""
-                    pdf = getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value, IIf(nummerierung, row.Cells("UStVPo_ID").Value, -1), IIf(row.Cells("UStVPo_Leistender").Value.ToString.ToLower.Contains("wag"), True, False))
+                    pdf = getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value, IIf(nummerierung, row.Cells("UStVPo_ID").Value, -1), IIf(row.Cells("UStVPo_Leistender").Value.ToString.ToLower.Contains("wag") OrElse row.Cells("UStVPo_Leistender").Value.ToString.ToLower.Contains("dkv"), True, False))
 
                     If pdf <> "" Then list.Add(pdf)
 
@@ -2156,17 +2178,25 @@ Public Class frmMDM_USTVAntrag
 
     Private Sub setinfofields()
 
+        Dim dtSteuerNr As DataTable
 
         If Not USTV_ANTRAG Is Nothing AndAlso Not IsDBNull(USTV_ANTRAG.UStVAn_LandNr) Then
 
-            Dim dtSteuerNr As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & USTV_ANTRAG.UStVAn_KuNr & " and tblSteuernummern.LandNr =" & USTV_ANTRAG.UStVAn_LandNr, "FMZOLL")
+            dtSteuerNr = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & USTV_ANTRAG.UStVAn_KuNr & " and tblSteuernummern.LandNr =" & IIf(USTV_ANTRAG.UStVAn_LandNr Is Nothing, "", USTV_ANTRAG.UStVAn_LandNr), "FMZOLL")
 
             If dtSteuerNr.Rows.Count > 0 Then
                 txtStNr.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt")), dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt"), "")
                 txtGueltig.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum")), dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum"), "")
             End If
 
+        Else
 
+            dtSteuerNr = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & KundenNr & " and tblSteuernummern.LandKz ='" & Antrag_LandKz & "'", "FMZOLL")
+
+            If dtSteuerNr.Rows.Count > 0 Then
+                txtStNr.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt")), dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt"), "")
+                txtGueltig.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum")), dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum"), "")
+            End If
 
         End If
 
@@ -2392,6 +2422,64 @@ Public Class frmMDM_USTVAntrag
 
     End Sub
 
+    Private Sub dgvUSTVPositionen_KeyUp(sender As Object, e As Windows.Forms.KeyEventArgs) Handles dgvUSTVPositionen.KeyUp
+
+        If e.KeyCode = Keys.Delete Then
+            If dgvUSTVPositionen.SelectedRows.Count > 0 Then
+
+
+
+                If vbYes = MsgBox("Möchten Sie die markierten " & dgvUSTVPositionen.SelectedRows.Count & " Einträge wirklich löschen?", vbYesNoCancel) Then
+
+                    For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows
+
+                        If r.Cells("UStVPo_Schnittstelle").Value IsNot Nothing AndAlso r.Cells("UStVPo_SchnittstellenNr").Value IsNot Nothing AndAlso IsNumeric(r.Cells("UStVPo_SchnittstellenNr").Value) Then
+
+                            'UstCntlUSTV_AntragPosition1.Antrag_LandKz
+
+                            If setArchiv(r.Cells("UStVPo_SchnittstellenNr").Value, r.Cells("UStVPo_ReDat").Value, r.Cells("UStVPo_ReNr").Value, r.Cells("UStVPo_Leistungsbezeichnung").Value) Then
+
+                                Dim sqlstr = " DELETE FROM tblUStVPositionen WHERE UStVAn_ID=" & Me.UStVAn_ID & " AND UStVPo_ID=" & r.Cells("UStVPo_ID").Value
+                                If Not SQL.doSQL(sqlstr, "FMZOLL") Then
+                                    Exit Sub
+                                End If
+
+                            End If
+
+                        End If
+
+                    Next
+                    reorderUSTVAPositions(Me.UStVAn_ID)
+                    init()
+                    UstCntlUSTV_AntragPosition1.Enabled = False
+                End If
+            End If
+            e.Handled = True
+        End If
+
+
+    End Sub
+
+    Private Sub txtAbfNr_TextChanged(sender As Object, e As EventArgs) Handles txtAbfNr.TextChanged
+
+        If IsNumeric(txtAbfNr.Text) AndAlso CInt(txtAbfNr.Text) > 10000 AndAlso USTV_ANTRAG.AbfertigungsNr <> txtAbfNr.Text AndAlso Not btnAbfertigungsNrVergeben.Visible Then
+            Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
+            If spedBuch.hasEntry Then MsgBox("Es existiert bereits ein Speditionsbucheintrag mit dieser Nr!") : Exit Sub
+        End If
+
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnAbfertigungsNrVergeben.Click
+
+        If Not IsNumeric(cbxFiliale._value) OrElse CInt(cbxFiliale._value) <= 0 Then
+            MsgBox("Bitte Filiale auswählen!") : Exit Sub
+        End If
+        txtAbfNr.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(cbxFiliale._value, Now.Year)
+        cbxFiliale.Enabled = False
+        btnAbfertigungsNrVergeben.Visible = False
+
+    End Sub
+
     Private Sub calcSumme()
 
         Dim countSumme As Double = 0

SDL/USTV/frmUSTVoffeneAntraege.vb

@@ -12,6 +12,7 @@ Public Class frmUSTVoffeneAntraege
     Dim kdNr As Integer = -1
     Dim kdName As String
     Dim dtkeineMWST As DataTable
+    Dim dtKundeMWST As DataTable
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
         initLieferant("PLOSE", sender)
     End Sub
@@ -563,6 +564,20 @@ Public Class frmUSTVoffeneAntraege
         End If
 
 
+
+        If dtKundeMWST.Rows.Count > 0 Then
+            Dim counter = 0
+            Dim landBez As String = ""
+            For Each row As DataRow In dtKundeMWST.Rows
+                landBez &= "'" & row.Item("LandKz") & "'"
+                counter = counter + 1
+                If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
+            Next
+            sqlwhereLand &= " AND Einreichland not in (" & landBez & ")"
+        End If
+
+
+
         Dim year = CDate(dat_Sum_Von.Value).Year
 
         If year >= 2025 Then
@@ -895,12 +910,12 @@ Public Class frmUSTVoffeneAntraege
         If MyDatagridview1.SelectedRows(0).Cells("antragExisitiert").Value > 0 Then
 
             Dim frm = New frmMDM_USTVAntrag(MyDatagridview1.SelectedRows(0).Cells("antragExisitiert").Value)
-            frm.ShowDialog()
+            frm.Show()
 
         Else
 
             Dim frm = New frmMDM_USTVAntrag(MyDatagridview1.SelectedRows(0).Cells("KdNr").Value, MyDatagridview1.SelectedRows(0).Cells("Einreichland").Value, dat_Sum_Von.Value, dat_Sum_Bis.Value)
-            frm.ShowDialog()
+            frm.Show()
 
         End If
 
@@ -937,25 +952,28 @@ Public Class frmUSTVoffeneAntraege
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
         Dim SQLQuery As String = ""
-
         Select Case LIEFERANT.ToString.ToLower
-            Case "plose" : SQLQuery = "select count(distinct([plInv_SupplierRechnungsNr])) from [tblPLOSE_Inv_Data] where [plInv_daId] is null and cast([plInv_SupplierRechnungsDatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'"
+            Case "plose" : SQLQuery = "select [plInv_SupplierRechnungsNr] as RechnungsNr,plInv_SupplierRechnungsDatum as Rechnungsdatum,Adressen.AdressenNr,Adressen.[Name 1] as Kunde  from [tblPLOSE_Inv_Data] INNER JOIN Adressen on [plInv_PLOSEKundennummer]=Adressen.PLOSEKundenNr where [plInv_daId] is null and cast([plInv_SupplierRechnungsDatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by plInv_SupplierRechnungsNr, Adressen.AdressenNr, Adressen.[Name 1], plInv_SupplierRechnungsDatum"
-            Case "rmc" : SQLQuery = "select count(distinct(rmc_reNr)) as Anzahl  from [tblRMCImport] where rmc_daId is null and cast([rmc_reDatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'"
+            Case "rmc" : SQLQuery = "select rmc_reNr as RechnungsNr,rmc_reDatum AS Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from [tblRMCImport] INNER JOIN Adressen on WölflKundenNr= [rmc_kdNr] where rmc_daId is null and cast([rmc_reDatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by rmc_reNr, Adressen.AdressenNr, Adressen.[Name 1],rmc_reDatum "
-            Case "mse" : SQLQuery = "select count(distinct(invoice_id)) as Anzahl  from tblMSEInvoices where daId is null and cast(invoice_date as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'"
+            Case "mse" : SQLQuery = "select invoice_id as RechnungsNr,[invoice_date] as Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from tblMSEInvoices inner join [tblMSECustomers] on [customer_number] = [customer_id] INNER JOIN Adressen on Adressen.MSEKundenNr = [customer_number]  where daId is null and cast(invoice_date as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by invoice_id, Adressen.AdressenNr, Adressen.[Name 1], invoice_date"
-            Case "uta" : SQLQuery = "select count(distinct(tblUTAImportNew.Abrechnungsnummer)) as Anzahl from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM'"
+            Case "uta" : SQLQuery = "select tblUTAImportNew.Abrechnungsnummer as RechnungNr,[Rechnungsdatum] AS Rechnungsdatum ,Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from tblUTAImportNew INNER JOIN Adressen on Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer where daId is null and cast([Rechnungsdatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' group by tblUTAImportNew.Abrechnungsnummer, Rechnungsdatum,Adressen.AdressenNr, Adressen.[Name 1] "
-            Case "ids" : SQLQuery = "select count(distinct(Invoicenumber)) as Anzahl from tblIDSInvoicesNew where DocumentName is null and cast(YearMonthDay as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'"
+            Case "ids" : SQLQuery = "select Invoicenumber as RechnungsNr,YearMonthDay as Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from tblIDSInvoicesNew Inner join [tbl_IDS_Kunden] on [tbl_IDS_Kunden].CustomerCode =tblIDSInvoicesNew.CustomerCode and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 Inner join Adressen on Adressen.AdressenNr = [tbl_IDS_Kunden].KdNrVERAG where DocumentName is null and cast(YearMonthDay as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by Invoicenumber, Adressen.AdressenNr, Adressen.[Name 1], YearMonthDay"
-            Case Else
+            Case Else : SQLQuery = ""
-                SQLQuery = ""
-
         End Select
 
 
         Dim fehlendePDFs As Integer = 0
         If SQLQuery <> "" Then
-            fehlendePDFs = CInt((New SQL).getValueTxtBySql(SQLQuery, "FMZOLL"))
+            Dim dtfehlendePDF As DataTable = (New SQL).loadDgvBySql(SQLQuery, "FMZOLL")
-            MsgBox("Anzahl fehlende PDFs: " & fehlendePDFs)
+            MsgBox("Anzahl fehlende PDFs: " & dtfehlendePDF.Rows.Count & IIf(CDate(dat_Sum_Von.Value).Year <= 2024 OrElse CDate(dat_Sum_Bis.Value).Year <= 2024, vbNewLine & "PDF-Rechnungen vor 2025 wurden tlw. nicht importiert!", ""))
-        Else
+
-            MsgBox("Funktion nur pro Lieferant möglich!")
+            If dtfehlendePDF.Rows.Count > 0 Then
+                If vbYes = MsgBox("Details der fehlenden PDF-Rechnungen anzeigen?", vbYesNo) Then
+                    cProgramFunctions.genExcelFromDT_NEW(dtfehlendePDF,,, "Fehlende PDF-Rechnungen: " & dat_Sum_Von.Value.ToShortDateString & " - " & dat_Sum_Bis.Value.ToShortDateString)
+                End If
+                End if
+            Else
+                MsgBox("Funktion nur pro Lieferant möglich!")
         End If
 
 
@@ -963,5 +981,12 @@ Public Class frmUSTVoffeneAntraege
 
     Private Sub frmUSTVoffeneAntraege_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         dtkeineMWST = (New SQL).loadDgvBySql("select Land, Erstattungsland, Lieferant from tblKeineMWSTErstattung", "FMZOLL")
+
+
+        If kdNr > 0 Then
+            dtKundeMWST = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & kdNr, "FMZOLL")
+        End If
+
+
     End Sub
 End Class

SDL/USTV/usrCntlUSTV.vb

@@ -22,6 +22,7 @@ Public Class usrCntlUSTV
         pnlFilter.AutoScroll = False
         btnKundendatenaktualisieren.Enabled = False
         '  MsgBox(kdNr)
+
         If kdNr > 0 Then
             Me.kdNr = kdNr
             KdSearchBox1.KdNr = kdNr
@@ -307,7 +308,7 @@ Public Class usrCntlUSTV
         If dgvUSTV.SelectedRows.Count > 0 Then
 
             Dim f As New frmMDM_USTVAntrag(dgvUSTV.SelectedRows(0).Cells("UStVAn_ID").Value)
-            f.ShowDialog(Me)
+            f.Show(Me)
             dgvUSTV.RELOAD()
         End If
     End Sub
@@ -618,10 +619,22 @@ Public Class usrCntlUSTV
 
                 ElseIf item.Name = "offeneAntraege" Then
                     If dgvUSTV.SelectedRows(0) IsNot Nothing AndAlso IsDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value) AndAlso IsDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value) Then
-                        Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value), dgvUSTV.SelectedRows(0).Cells("UStVAn_KuNr").Value, dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value)
+
-                        frm.Show()
+                        If dgvUSTV.SelectedRows(0).Cells("UStVAn_KuNr").Value IsNot Nothing AndAlso dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value IsNot Nothing Then
+                            Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value), dgvUSTV.SelectedRows(0).Cells("UStVAn_KuNr").Value, IIf(IsDBNull(dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value), "", dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value))
+                            frm.Show()
+
+                        Else
+                            Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value))
+                            frm.cbxAlleoffenen.Checked = True
+                            frm.Show()
+
+                        End If
+
+
+
                     Else
-                        Dim frm As New frmUSTVoffeneAntraege()
+                            Dim frm As New frmUSTVoffeneAntraege()
                         frm.Show()
                     End If
 
@@ -728,6 +741,19 @@ Public Class usrCntlUSTV
         Me.Cursor = Cursors.WaitCursor
         Try
 
+            VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.setSchnittstellen(
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE"),
+                False,
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_alt"),
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_neu"),
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_alt"),
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_neu"),
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt"),
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu"),
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE_NEU")
+                )
+
+
             If VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen(KdSearchBox1.KdNr) Then
                 ok = VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(KdSearchBox1.KdNr)
             End If
@@ -810,6 +836,8 @@ Public Class usrCntlUSTV
         Dim sqlKundenMSENEU = ""
         Dim sqlKundenIDSALT = ""
         Dim sqlKundenIDSNEU = ""
+        Dim sqlKundenPLOSENEU = ""
+
         If KdSearchBox1.KdNr > 0 Then
 
             sqlKunden = " AND Adressen.AdressenNr = " & KdSearchBox1.KdNr
@@ -817,11 +845,15 @@ Public Class usrCntlUSTV
             sqlKundenMSENEU = " AND partner_customer_number = " & KdSearchBox1.KdNr
             sqlKundenIDSALT = " AND tblDieselArchiv.KdNrVERAG = " & KdSearchBox1.KdNr
             sqlKundenIDSNEU = " AND [tblIDSTransactionsNew].KdNrVERAG = " & KdSearchBox1.KdNr
+            sqlKundenPLOSENEU = " AND tblPLOSE_Inv_Data.plInv_PLOSEKundennummer = " & KdSearchBox1.KdNr
+
 
         End If
 
-        Dim qryUStVVorschau_VERAG As String = "SELECT 'VERAG' as LF, tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, YEAR(tblTrdinInvoice.Rechnungsdatum) AS Jahr, MONTH(tblTrdinInvoice.Rechnungsdatum) as Monat, SUm(tblTrdinInvoice.SteuerbetragLokal) AS SteuerbetragEUR FROM tblTrdinInvoice
+        Dim qryUStVVorschau_VERAG As String = "SELECT 'VERAG' as LF, tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, YEAR(tblTrdinInvoice.Rechnungsdatum) AS Jahr, MONTH(tblTrdinInvoice.Rechnungsdatum) as Monat, SUm(tblTrdinInvoice.SteuerbetragLokal) AS Steuerbetrag, 'EUR' as Waehrung 
-                                                INNER JOIN tblSteuernummern ON tblTrdinInvoice.RechnungsKundenNr = tblSteuernummern.AdressenNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
+                                                FROM tblTrdinInvoice
+                                                INNER JOIN tblSteuernummern ON tblTrdinInvoice.RechnungsKundenNr = tblSteuernummern.AdressenNr 
+                                                INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
                                                 WHERE tblSteuernummern.LandNr = 38 AND tblTrdinInvoice.Rechnungsdatum >= 
                                                 CASE 
                                                     WHEN GETDATE() > CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-06-30' AS DATE)
@@ -832,7 +864,7 @@ Public Class usrCntlUSTV
                                             GROUP BY tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr,[Länderverzeichnis für die Außenhandelsstatistik].LandKz, YEAR(tblTrdinInvoice.Rechnungsdatum), MONTH(tblTrdinInvoice.Rechnungsdatum) 
                                             /*ORDER BY tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr, YEAR(tblTrdinInvoice.Rechnungsdatum), MONTH(tblTrdinInvoice.Rechnungsdatum)*/"
 
-        Dim qryUStVVorschau_IDS_ALT As String = "SELECT 'IDS' as LF, tblDieselArchiv.KdNrVERAG AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblDieselArchiv.[Year Month Day]) AS Jahr, Month(tblDieselArchiv.[Year Month Day]) AS Monat, SUM(tblDieselArchiv.[VAT Amount]) AS SteuerbetragEUR FROM tblDieselArchiv
+        Dim qryUStVVorschau_IDS_ALT As String = "SELECT 'IDS' as LF, tblDieselArchiv.KdNrVERAG AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblDieselArchiv.[Year Month Day]) AS Jahr, Month(tblDieselArchiv.[Year Month Day]) AS Monat, SUM(tblDieselArchiv.[VAT Amount]) AS Steuerbetrag, 'EUR' as Waehrung  FROM tblDieselArchiv
                                                  INNER JOIN tblSteuernummern ON tblDieselArchiv.KdNrVERAG = tblSteuernummern.AdressenNr
                                                  INNER JOIN tbl_IDS_Länder ON tbl_IDS_Länder.LandNr = tblSteuernummern.LandNr  AND tblDieselArchiv.[Outlet Country Code] = tbl_IDS_Länder.OutletCountryCode
                                                  INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -848,7 +880,7 @@ Public Class usrCntlUSTV
                                                  /*ORDER BY tblDieselArchiv.KdNrVERAG, tblSteuernummern.LandNr, Year(tblDieselArchiv.[Year Month Day]), Month(tblDieselArchiv.[Year Month Day])*/
 "
 
-        Dim qryUStVVorschau_MSE_ALT As String = "SELECT 'MSE' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblMSETransactionsArchiv.[Invoice Date]) AS Jahr, Month(tblMSETransactionsArchiv.[Invoice Date]) AS Monat,  CAST(ROUND(SUM(tblMSETransactionsArchiv.[Original VAT Amount]) / dbo.fktEUROKurs(tblMSETransactionsArchiv.[Original Currency], tblMSETransactionsArchiv.[Invoice Date]), 2) AS DECIMAL(18, 2)) AS SteuerbetragEUR FROM tblSteuernummern
+        Dim qryUStVVorschau_MSE_ALT As String = "SELECT 'MSE' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblMSETransactionsArchiv.[Invoice Date]) AS Jahr, Month(tblMSETransactionsArchiv.[Invoice Date]) AS Monat,  CAST(ROUND(SUM(tblMSETransactionsArchiv.[Original VAT Amount]) / dbo.fktEUROKurs(tblMSETransactionsArchiv.[Original Currency], tblMSETransactionsArchiv.[Invoice Date]), 2) AS DECIMAL(18, 2)) AS Steuerbetrag, 'EUR' as Waehrung FROM tblSteuernummern
                                                  INNER JOIN Adressen ON tblSteuernummern.AdressenNr = Adressen.AdressenNr
                                                  INNER JOIN tblMSETransactionsArchiv ON Adressen.MSEKundenNr = tblMSETransactionsArchiv.[Customer ID]
                                                  INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblMSETransactionsArchiv.[Transaction Country] = [Länderverzeichnis für die Außenhandelsstatistik].LandKz AND tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -870,7 +902,7 @@ Public Class usrCntlUSTV
                                                      AND SUM(tblMSETransactionsArchiv.[Original VAT Amount]) <> 0
                                                  /*ORDER BY tblSteuernummern.AdressenNr, tblSteuernummern.LandNr, tblMSETransactionsArchiv.[Invoice Date], tblMSETransactionsArchiv.[Invoice ID]*/"
 
-        Dim qryUStVVorschau_UTA_ALT As String = "SELECT 'UTA' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAArchiv.Rechnungsdatum) as Jahr,Month(tblUTAArchiv.Rechnungsdatum) as Monat , SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS SteuerbetragEUR FROM tblSteuernummern
+        Dim qryUStVVorschau_UTA_ALT As String = "SELECT 'UTA' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAArchiv.Rechnungsdatum) as Jahr,Month(tblUTAArchiv.Rechnungsdatum) as Monat , SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag, 'EUR' as Waehrung FROM tblSteuernummern
                                                 INNER JOIN Adressen ON tblSteuernummern.AdressenNr = Adressen.AdressenNr
                                                 INNER JOIN tblUTAArchiv ON Adressen.UTAKundenNr = tblUTAArchiv.Kundennummer
                                                 INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblUTAArchiv.Lieferland = [Länderverzeichnis für die Außenhandelsstatistik].LandKz_ISO_3 AND tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -891,7 +923,7 @@ Public Class usrCntlUSTV
                                                     AND SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) <> 0
                                                 /*ORDER BY tblSteuernummern.AdressenNr, tblSteuernummern.LandNr, tblUTAArchiv.Rechnungsdatum*/"
 
-        Dim qryUStVVorschau_IDS_NEU As String = "SELECT 'IDS_' as LF, [tblIDSTransactionsNew].KdNrVERAG AS RechnungsKundenNr,tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year([tblIDSTransactionsNew].[YearMonthDay]) AS Jahr, Month([tblIDSTransactionsNew].[YearMonthDay]) AS Monat, SUM([tblIDSTransactionsNew].[VATAmount]) AS SteuerbetragEUR
+        Dim qryUStVVorschau_IDS_NEU As String = "SELECT 'IDS_' as LF, [tblIDSTransactionsNew].KdNrVERAG AS RechnungsKundenNr,tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year([tblIDSTransactionsNew].[YearMonthDay]) AS Jahr, Month([tblIDSTransactionsNew].[YearMonthDay]) AS Monat, SUM([tblIDSTransactionsNew].[VATAmount]) AS Steuerbetrag, 'EUR' as Waehrung 
                                                  FROM   tblIDSTransactionsNew 
 					                             INNER JOIN dbo.tblSteuernummern ON [tblIDSTransactionsNew].KdNrVERAG = dbo.tblSteuernummern.AdressenNr
 					                             INNER JOIN dbo.tbl_IDS_Länder ON dbo.tblSteuernummern.LandNr = dbo.tbl_IDS_Länder.LandNr AND [tblIDSTransactionsNew].[OutletCountryCode] = dbo.tbl_IDS_Länder.OutletCountryCode
@@ -907,7 +939,7 @@ Public Class usrCntlUSTV
                                                                                   [tblIDSTransactionsNew].KdNrVERAG, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year([tblIDSTransactionsNew].[YearMonthDay]) , Month([tblIDSTransactionsNew].[YearMonthDay])
                                                                               /* ORDER BY [tblIDSTransactionsNew].KdNrVERAG, tblSteuernummern.LandNr, Year([tblIDSTransactionsNew].[YearMonthDay]), Month([tblIDSTransactionsNew].[YearMonthDay])*/"
 
-        Dim qryUStVVorschau_MSE_NEU As String = " select 'MSE_' as LF,cust.[partner_customer_number] as RechnungsKundenNr,'' as LandNr ,trans.transaction_country as LandKZ ,Year(bills.invoice_date) as Jahr,Month(bills.invoice_date) as Monat, sum(USteuer_EUR) as SteuerbetragEUR
+        Dim qryUStVVorschau_MSE_NEU As String = " select 'MSE_' as LF,cust.[partner_customer_number] as RechnungsKundenNr,'' as LandNr ,trans.transaction_country as LandKZ ,Year(bills.invoice_date) as Jahr,Month(bills.invoice_date) as Monat, sum(USteuer_EUR) as Steuerbetrag, 'EUR' as Waehrung 
                                                   FROM [VERAG].[dbo].[tblMSESettlements] as bills 
                                                   left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] 
                                                   left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id 
@@ -927,7 +959,7 @@ Public Class usrCntlUSTV
 
 
 
-        Dim qryUStVVorschau_UTA_NEU As String = "SELECT 'UTA_' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAImportNew.Rechnungsdatum) as Jahr,Month(tblUTAImportNew.Rechnungsdatum) as Monat , SUM(tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS SteuerbetragEUR FROM tblSteuernummern
+        Dim qryUStVVorschau_UTA_NEU As String = "SELECT 'UTA_' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAImportNew.Rechnungsdatum) as Jahr,Month(tblUTAImportNew.Rechnungsdatum) as Monat , SUM(tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag, 'EUR' as Wahrung  FROM tblSteuernummern
                                                 INNER JOIN Adressen ON tblSteuernummern.AdressenNr = Adressen.AdressenNr
                                                 INNER JOIN tblUTAImportNew ON Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer
                                                 INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblUTAImportNew.Lieferland = [Länderverzeichnis für die Außenhandelsstatistik].LandKz_ISO_3 AND tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -949,9 +981,45 @@ Public Class usrCntlUSTV
                                                 /*ORDER BY tblSteuernummern.AdressenNr, tblSteuernummern.LandNr, tblUTAImportNew.Rechnungsdatum*/"
 
 
+        Dim qryUStVVorschau_PLOSE_NEUE_LOGIK As String = "SELECT 'PLOSE_' as LF, tblPLOSE_Inv_Data.plInv_PLOSEKundennummer AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblPLOSE_Inv_Data.[plInv_SupplierRechnungsDatum]) AS Jahr, Month(tblPLOSE_Inv_Data.[plInv_SupplierRechnungsDatum]) AS Monat, SUM(tblPLOSE_Inv_Data.[plInv_MWSTBetrag]) AS Steuerbetrag, isnull(plInv_Currency,'') as Wahrung  FROM tblPLOSE_Inv_Data
+                                                 INNER JOIN Adressen ON tblPLOSE_Inv_Data.plInv_PLOSEKundennummer = Adressen.PLOSEKundenNr
+												 INNER JOIN tblSteuernummern ON Adressen.AdressenNr = tblSteuernummern.AdressenNr and [tblPLOSE_Inv_Data].plInv_SupplierCountry = tblSteuernummern.LandKZ
+                                                 INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
+                                                 WHERE tblPLOSE_Inv_Data.plInv_SupplierRechnungsDatum >= 
+                                                         CASE 
+                                                             WHEN GETDATE() > CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-06-30' AS DATE) 
+                                                             THEN CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-01-01' AS DATE) 
+                                                             ELSE CAST(CAST(YEAR(GETDATE()) - 1 AS VARCHAR) + '-01-01' AS DATE) 
+                                                         END
+                                                     AND tblPLOSE_Inv_Data.plInv_MWSTBetrag <> 0 AND tblPLOSE_Inv_Data.plInv_UStVAn_ID IS NULL AND tblSteuernummern.UStV = 1 " & sqlKunden & "
+                                                 GROUP BY 
+                                                     tblPLOSE_Inv_Data.plInv_PLOSEKundennummer, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblPLOSE_Inv_Data.plInv_SupplierRechnungsDatum), Month(tblPLOSE_Inv_Data.plInv_SupplierRechnungsDatum), plInv_Currency
+"
+
+
+        'plose_MWSTBetragWaehrungAbbuchung ist IMMER in EUR!!!!
+        Dim qryUStVVorschau_PLOSE_ALTE_LOGIK As String = "  SELECT 'PLOSE' as LF, tblPLOSE_Details.plose_POLSEKundennummer AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblPLOSE_Details.plose_RechnungsDatum) AS Jahr, Month(tblPLOSE_Details.plose_RechnungsDatum) AS Monat, SUM(tblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchung) AS Steuerbetrag, 'EUR' as Wahrung  FROM tblPLOSE_Details
+                                                 INNER JOIN tblPLOSE_Produktbeschreibung ON [plp_ProductCode]=[plose_ProduktCode]
+                                                 INNER JOIN Adressen ON tblPLOSE_Details.plose_POLSEKundennummer = Adressen.PLOSEKundenNr
+												 INNER JOIN tblSteuernummern ON Adressen.AdressenNr = tblSteuernummern.AdressenNr AND tblSteuernummern.LandKZ = tblPLOSE_Produktbeschreibung.plp_Land
+                                                 INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
+                                                 WHERE tblPLOSE_Details.plose_RechnungsDatum >= 
+                                                         CASE 
+                                                             WHEN GETDATE() > CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-06-30' AS DATE) 
+                                                             THEN CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-01-01' AS DATE) 
+                                                             ELSE CAST(CAST(YEAR(GETDATE()) - 1 AS VARCHAR) + '-01-01' AS DATE) 
+                                                         END
+                                                     AND tblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchung <> 0 AND tblPLOSE_Details.UStVAn_ID IS NULL AND tblSteuernummern.UStV = 1 and plose_LieferantCode IN (1,7,9) " & sqlKunden & "
+                                                 GROUP BY 
+                                                     tblPLOSE_Details.plose_POLSEKundennummer, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblPLOSE_Details.plose_RechnungsDatum), Month(tblPLOSE_Details.plose_RechnungsDatum)
+
+"
+
+
 
         Dim union As String = " UNION ALL "
-        Dim sqlQery = qryUStVVorschau_VERAG & union & qryUStVVorschau_IDS_ALT & union & qryUStVVorschau_UTA_ALT & union & qryUStVVorschau_IDS_NEU & union & qryUStVVorschau_UTA_NEU & union & qryUStVVorschau_MSE_NEU & union & qryUStVVorschau_MSE_ALT
+        Dim sqlQery = qryUStVVorschau_VERAG & union & qryUStVVorschau_IDS_ALT & union & qryUStVVorschau_UTA_ALT & union & qryUStVVorschau_IDS_NEU & union & qryUStVVorschau_UTA_NEU & union & qryUStVVorschau_MSE_NEU & union & qryUStVVorschau_MSE_ALT & union & qryUStVVorschau_PLOSE_ALTE_LOGIK & union & qryUStVVorschau_PLOSE_NEUE_LOGIK
+
 
 
         Dim dtVorschau As DataTable = SQL.loadDgvBySql(sqlQery, "FMZOLL")

SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb

@@ -74,6 +74,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtUSTBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.btnAPIUbload = New System.Windows.Forms.Button()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -876,6 +877,7 @@ Partial Class ustCntlUSTV_AntragPosition
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.btnAPIUbload)
         Me.Panel1.Controls.Add(Me.btnBildAuf)
         Me.Panel1.Controls.Add(Me.Button1)
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
@@ -884,6 +886,18 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.Panel1.Size = New System.Drawing.Size(99, 239)
         Me.Panel1.TabIndex = 2
         '
+        'btnAPIUbload
+        '
+        Me.btnAPIUbload.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnAPIUbload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAPIUbload.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnAPIUbload.Location = New System.Drawing.Point(16, 186)
+        Me.btnAPIUbload.Name = "btnAPIUbload"
+        Me.btnAPIUbload.Size = New System.Drawing.Size(71, 24)
+        Me.btnAPIUbload.TabIndex = 25
+        Me.btnAPIUbload.Text = "API-Upload"
+        Me.btnAPIUbload.UseVisualStyleBackColor = True
+        '
         'Panel3
         '
         Me.Panel3.Controls.Add(Me.tbcntr)
@@ -1050,4 +1064,5 @@ Partial Class ustCntlUSTV_AntragPosition
     Friend WithEvents btnLeistenderSave As Button
     Friend WithEvents lblWarning As Label
     Friend WithEvents cbxAntragsfilter As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents btnAPIUbload As Button
 End Class

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -1,4 +1,5 @@
-Imports VERAG_PROG_ALLGEMEIN
+Imports com.sun.net.httpserver.Authenticator
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class ustCntlUSTV_AntragPosition
     Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
@@ -12,6 +13,7 @@ Public Class ustCntlUSTV_AntragPosition
     Public Event CHANGED(UStVPo_ID)
     Dim gridAktiv = False
     Dim txtChanged As Boolean = False
+    Dim API As cATEZ_NCTS_IN
     Private Sub btnBildAuf_Click(sender As Object, e As EventArgs) Handles btnBildAuf.Click
         RaiseEvent EV_PREV()
     End Sub
@@ -56,7 +58,7 @@ Public Class ustCntlUSTV_AntragPosition
 
     End Sub
 
-    Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender)
+    Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, atez_api As cATEZ_NCTS_IN)
 
         initSchnittstellenNr()
 
@@ -79,6 +81,7 @@ Public Class ustCntlUSTV_AntragPosition
 
         sbLeistender.Text = UStV_Leitender.UStV_Leistender
         loadChangedDSToPanel(UStV_Leitender, True)
+        API = atez_api
 
         Dim da_id = -1
 
@@ -104,12 +107,15 @@ Public Class ustCntlUSTV_AntragPosition
         If da_id > -1 Then
             scanSonstiges.INIT_daId(da_id)
             scanSonstiges.Enabled = UStV_POS.UStVPo_daId_loeschbar 'Not UStV_POS.UStVPo_SchnittstellenNr > 0
+            btnAPIUbload.Enabled = UStV_POS.UStVPo_daId_loeschbar
         Else
             scanSonstiges.INIT(kdnr, "MDM", "MDM_DATEN", "USTVA_" & UStV_POS.UStVAn_ID & "_" & UStV_POS.UStVPo_ID)
             'scanSonstiges.INIT_daId(da_id)
             scanSonstiges.Enabled = True
+            btnAPIUbload.Enabled = False
         End If
 
+
         scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
         scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
 
@@ -240,7 +246,7 @@ Public Class ustCntlUSTV_AntragPosition
 
 
     Private Sub loadChangedDSToPanel(UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, Optional initial As Boolean = False)
-
+        Dim adressLoadedByLeistender As Boolean = False
         UStV_Leist = UStV_Leitender
 
         'If newLeistender <> "" Then UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(newLeistender)
@@ -252,7 +258,6 @@ Public Class ustCntlUSTV_AntragPosition
             txtOrt.Text = ""
             txtLand.Text = ""
             txtUIDNr.Text = ""
-
         Else
 
             pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
@@ -262,20 +267,27 @@ Public Class ustCntlUSTV_AntragPosition
             txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "")
             txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "")
             txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
-        End If
+            If UStV_Leist.hasEntry Then adressLoadedByLeistender = True
 
-        btnLeistenderSave.Visible = True
+        End If
 
         If Not initial Then
             'Listener für Änderungen im Detail-Panel
-            For Each c As Control In pnlAdresse.Controls
+            If Not adressLoadedByLeistender Then
-                If TypeOf (c) Is TextBox Then
+                For Each c As Control In pnlAdresse.Controls
-                    AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
+
-                End If
+                    If TypeOf (c) Is TextBox Then
-                If TypeOf (c) Is MyComboBox Then
+                        AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
-                    AddHandler CType(c, MyComboBox).TextChanged, AddressOf SomethingChanged
+                    End If
-                End If
+                    If TypeOf (c) Is MyComboBox Then
-            Next
+                        AddHandler CType(c, MyComboBox).TextChanged, AddressOf SomethingChanged
+                    End If
+
+
+                Next
+            Else
+                btnLeistenderSave.Visible = False
+            End If
         Else
 
             btnLeistenderSave.Visible = False
@@ -301,7 +313,7 @@ Public Class ustCntlUSTV_AntragPosition
 
         If Not UStV_Leist.hasEntry Then
             If vbYes = MsgBox("Dieser Leistende wurde noch nicht angelegt!" & vbNewLine & UStV_Leist.UStV_Leistender & " anlegen? ", vbYesNo) Then
-
+                'adresseChanged = True
                 UStV_Leist.UstV_Leistender_Strasse = If(txtStrasse.Text, "")
                 UStV_Leist.UstV_Leistender_StrasseNr = If(txtStrassenNr.Text, "")
                 UStV_Leist.UstV_Leistender_PLZ = If(txtPLZ.Text, "")
@@ -309,18 +321,18 @@ Public Class ustCntlUSTV_AntragPosition
                 UStV_Leist.UstV_Leistender_Land = If(txtLand.Text, "")
                 UStV_Leist.UstV_Leistender_UstNr = If(txtUIDNr.Text, "")
 
-                If UStV_Leist.SAVE() Then
+                Dim saveid = UStV_Leist.SAVEID
+                If saveid > 0 Then
 
                     btnLeistenderSave.Visible = False
                     UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
-                    UStV_POS.UStVPo_LeistenderId = UStV_Leist.UStV_LeistenderId
+                    UStV_POS.UStVPo_LeistenderId = saveid
                     'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
                     values_changed()
                 End If
             End If
 
         Else
-
             Dim adresseChanged As Boolean = False
 
             If UStV_Leist.UstV_Leistender_Strasse <> If(txtStrasse.Text, "") Then adresseChanged = True
@@ -405,14 +417,14 @@ Public Class ustCntlUSTV_AntragPosition
 
             loadChangedDSToPanel(UStV_Leist)
         Else
-            loadChangedDSToPanel(Nothing)
+            loadChangedDSToPanel(Nothing, True)
         End If
 
 
 
     End Sub
 
-    Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown
+    Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown, sbLeistender.PreviewKeyDown
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
 
         If gridAktiv And Me.FindForm IsNot Nothing Then
@@ -457,11 +469,11 @@ Public Class ustCntlUSTV_AntragPosition
 
 
                             txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100
-                                txtChanged = True
+                            txtChanged = True
-                            End If
-
                         End If
 
+                    End If
+
                 ElseIf sender Is txtUSTBetragEUR Then
 
 
@@ -499,20 +511,18 @@ Public Class ustCntlUSTV_AntragPosition
 
 
 
-                ElseIf sender Is sbLeistender Then
+                    'ElseIf sender Is sbLeistender Then
 
 
 
-                    If UStV_Leist.hasEntry Then
+                    '    If UStV_Leist.hasEntry Then
 
 
-                        UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
+                    '        UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
-                        If UStV_Leist.UStV_LeistenderId > 0 Then UStV_POS.UStVPo_LeistenderId = UStV_Leist.UStV_LeistenderId
+                    '        If UStV_Leist.UStV_LeistenderId > 0 Then UStV_POS.UStVPo_LeistenderId = UStV_Leist.UStV_LeistenderId
+                    '        txtChanged = True
 
-                        txtChanged = True
+                    '    End If
-                        'UStV_POS.SAVE()
-                        'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
-                    End If
 
 
 
@@ -524,6 +534,21 @@ Public Class ustCntlUSTV_AntragPosition
                     End If
 
 
+                ElseIf sender Is sbLeistender Then
+                    If sbLeistender.Text <> "" Then
+                        If sbLeistender.Text IsNot Nothing AndAlso sbLeistender.Text <> "" Then
+                            If IsNumeric(sbLeistender.Text) Then
+                                UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(CInt(sbLeistender.Text))
+                            Else
+                                UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
+                            End If
+
+                            loadChangedDSToPanel(UStV_Leist)
+                        Else
+                            loadChangedDSToPanel(Nothing, True)
+                        End If
+                    End If
+                    'MsgBox()
                 End If
 
 
@@ -559,5 +584,36 @@ Public Class ustCntlUSTV_AntragPosition
             If cbxAntragsfilter.Checked Then filter &= " and left(UstV_Leistender_UstNr,2)='" & Antrag_LandKz & "'"
             sbLeistender.initSearchBox(Me.FindForm, "[UStV_LeistenderId],[UStV_Leistender], ([UStV_Leistender] + ' ' + isnull([UstV_Leistender_UstNr],'')) as Leistender,[UstV_Leistender_PLZ] as PLZ, ([UstV_Leistender_Strasse] + ' ' +[UstV_Leistender_StrasseNr]) as Strasse, [UstV_Leistender_Stadt] as Stadt  FROM [tblUStVLeistender]", {"UStV_Leistender", "UstV_Leistender_UstNr"}, filter, "UStV_Leistender", "UStV_LeistenderId", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender", "UStV_LeistenderId"})
         End If
+    End Sub
+
+    Private Sub btnAPIUbload_Click(sender As Object, e As EventArgs) Handles btnAPIUbload.Click
+        If API IsNot Nothing Then
+            If vbYes = MsgBox("Möchten Sie die Rechnungsdaten per ATEZ-API auslesen lassen?", vbYesNoCancel) Then
+
+                Dim failreDesc As String
+                Dim authResp = API.authenticate("VAT", "client1", "password")
+                Dim resp
+                If authResp <> "200" Then
+                    MsgBox("Authentifizierung fehlgeschlagen" & vbNewLine & authResp)
+                    Exit Sub
+                Else
+                    If API.SendRequestWithAuthHeader("application/json", failreDesc, "/health", "GET") = "200" Then
+
+                        'document_type = vat_invoice or receipt
+                        If API.setJsonVAT("vat_invoice", UStV_POS.UStVPo_daId) Then
+                            resp = API.SendRequestWithAuthHeader("application/json", failreDesc, "/process", "POST")
+                        End If
+
+                    Else
+                        MsgBox("Service is not running!")
+
+                    End If
+                End If
+            End If
+        End If
+
+
+
+
     End Sub
 End Class

SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb

@@ -56,6 +56,10 @@ Partial Class frmBU_Mahnlauf
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtZahlEingaenge = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.btnMail_Intern = New System.Windows.Forms.Button()
+        Me.cbxKontotyp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Panel1.SuspendLayout()
         Me.pnlTop.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -65,6 +69,8 @@ Partial Class frmBU_Mahnlauf
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.cbxKontotyp)
+        Me.Panel1.Controls.Add(Me.txtZahlEingaenge)
         Me.Panel1.Controls.Add(Me.cbxZahlungseingaenge)
         Me.Panel1.Controls.Add(Me.cbxNurFaellig)
         Me.Panel1.Controls.Add(Me.MyComboBox1)
@@ -89,9 +95,9 @@ Partial Class frmBU_Mahnlauf
         Me.cbxZahlungseingaenge.AutoSize = True
         Me.cbxZahlungseingaenge.Location = New System.Drawing.Point(568, 87)
         Me.cbxZahlungseingaenge.Name = "cbxZahlungseingaenge"
-        Me.cbxZahlungseingaenge.Size = New System.Drawing.Size(114, 17)
+        Me.cbxZahlungseingaenge.Size = New System.Drawing.Size(140, 17)
         Me.cbxZahlungseingaenge.TabIndex = 39
-        Me.cbxZahlungseingaenge.Text = "Zahlungseingänge"
+        Me.cbxZahlungseingaenge.Text = "Zahlungseingänge vom:"
         Me.cbxZahlungseingaenge.UseVisualStyleBackColor = True
         '
         'cbxNurFaellig
@@ -280,6 +286,8 @@ Partial Class frmBU_Mahnlauf
         '
         'Panel3
         '
+        Me.Panel3.Controls.Add(Me.btnMail_Intern)
+        Me.Panel3.Controls.Add(Me.Button7)
         Me.Panel3.Controls.Add(Me.btnKunde)
         Me.Panel3.Controls.Add(Me.cbxMahnstufeErh)
         Me.Panel3.Controls.Add(Me.Label8)
@@ -307,7 +315,7 @@ Partial Class frmBU_Mahnlauf
         Me.btnKunde.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnKunde.Image = Global.SDL.My.Resources.Resources.person1
         Me.btnKunde.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnKunde.Location = New System.Drawing.Point(38, 87)
+        Me.btnKunde.Location = New System.Drawing.Point(38, 78)
         Me.btnKunde.Name = "btnKunde"
         Me.btnKunde.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0)
         Me.btnKunde.Size = New System.Drawing.Size(123, 32)
@@ -501,6 +509,69 @@ Partial Class frmBU_Mahnlauf
         Me.MyTextBox2.TabIndex = 39
         Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
+        'txtZahlEingaenge
+        '
+        Me.txtZahlEingaenge._DateTimeOnly = False
+        Me.txtZahlEingaenge._numbersOnly = False
+        Me.txtZahlEingaenge._numbersOnlyKommastellen = ""
+        Me.txtZahlEingaenge._numbersOnlyTrennzeichen = True
+        Me.txtZahlEingaenge._Prozent = False
+        Me.txtZahlEingaenge._ShortDateNew = True
+        Me.txtZahlEingaenge._ShortDateOnly = False
+        Me.txtZahlEingaenge._TimeOnly = False
+        Me.txtZahlEingaenge._TimeOnly_Seconds = False
+        Me.txtZahlEingaenge._value = ""
+        Me.txtZahlEingaenge._Waehrung = False
+        Me.txtZahlEingaenge._WaehrungZeichen = False
+        Me.txtZahlEingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtZahlEingaenge.ForeColor = System.Drawing.Color.Black
+        Me.txtZahlEingaenge.Location = New System.Drawing.Point(714, 85)
+        Me.txtZahlEingaenge.MaxLength = 10
+        Me.txtZahlEingaenge.MaxLineLength = -1
+        Me.txtZahlEingaenge.MaxLines_Warning = ""
+        Me.txtZahlEingaenge.MaxLines_Warning_Label = Nothing
+        Me.txtZahlEingaenge.Name = "txtZahlEingaenge"
+        Me.txtZahlEingaenge.Size = New System.Drawing.Size(88, 20)
+        Me.txtZahlEingaenge.TabIndex = 47
+        Me.txtZahlEingaenge.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.txtZahlEingaenge.Visible = False
+        '
+        'Button7
+        '
+        Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button7.Location = New System.Drawing.Point(38, 113)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(123, 23)
+        Me.Button7.TabIndex = 47
+        Me.Button7.Text = "OP-Liste aktualisieren"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
+        'btnMail_Intern
+        '
+        Me.btnMail_Intern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnMail_Intern.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1
+        Me.btnMail_Intern.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnMail_Intern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMail_Intern.Location = New System.Drawing.Point(1213, 83)
+        Me.btnMail_Intern.Name = "btnMail_Intern"
+        Me.btnMail_Intern.Size = New System.Drawing.Size(41, 34)
+        Me.btnMail_Intern.TabIndex = 48
+        Me.btnMail_Intern.UseVisualStyleBackColor = True
+        '
+        'cbxKontotyp
+        '
+        Me.cbxKontotyp._allowedValuesFreiText = Nothing
+        Me.cbxKontotyp._allowFreiText = False
+        Me.cbxKontotyp._value = ""
+        Me.cbxKontotyp.FormattingEnabled = True
+        Me.cbxKontotyp.Location = New System.Drawing.Point(568, 103)
+        Me.cbxKontotyp.Name = "cbxKontotyp"
+        Me.cbxKontotyp.Size = New System.Drawing.Size(97, 21)
+        Me.cbxKontotyp.TabIndex = 48
+        Me.cbxKontotyp.Visible = False
+        '
         'frmBU_Mahnlauf
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -558,4 +629,8 @@ Partial Class frmBU_Mahnlauf
     Friend WithEvents cbxMahnstufeErh As CheckBox
     Friend WithEvents btnKunde As Button
     Friend WithEvents cbxZahlungseingaenge As CheckBox
+    Friend WithEvents txtZahlEingaenge As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Button7 As Button
+    Friend WithEvents btnMail_Intern As Button
+    Friend WithEvents cbxKontotyp As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -1,8 +1,6 @@
 Imports System.Globalization
-Imports System.Windows
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
-Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class frmBU_Mahnlauf
 
@@ -70,14 +68,20 @@ Public Class frmBU_Mahnlauf
                       ORDER BY KTO.c_name"
 
 
+            Dim SQLWhere = " and (c_kennung = 'KE' or BU.i_konto in (5827, 5829) or LEFT(BU.i_konto,1) = 0 or c_kennung = 'DE')"
+
+            Select Case cbxKontotyp._value
+                Case "DE", "KE", "KO" : SQLWhere &= " and c_kennung = '" & cbxKontotyp._value & "'"
+            End Select
 
             Dim sqlStringVerag360Zahlungseingaenge = " SELECT cast(d_beleg as Date) as d_beleg ,c_urbelegid, c_buchtext,  case when c_sollhabenkz = 'H' then eur_betrag else eur_betrag * -1 end as eur_betrag , BU.i_konto,KTO.c_landid
                                                       FROM [FIBU2].[dbo].[fibu_belegzeile] as BU
                                                       RIGHT join fibu_konto KTO on KTO.i_konto=BU.i_konto AND BU.i_firm_refid=KTO.i_firm_refid
-                                                      where cast(d_beleg as date) = '03.04.2025' and BU.i_firm_refid=" & Firma_ID & "  and (c_kennung = 'KE' or BU.i_konto in (5827, 5829) or LEFT(BU.i_konto,1) = 0 or c_kennung = 'DE')
+                                                      where cast(d_beleg as date) = '" & txtZahlEingaenge._value & "' and BU.i_firm_refid=" & Firma_ID & SQLWhere & "
                                                     
                                                       and (BU.i_konto in (2800, 2801, 2802, 2803, 2811, 2812, 2813, 2814, 2817, 2818, 2822 ,2826, 2827, 2828, 2831, 2832, 2833, 2837, 2845) or i_gegenkonto in (2800, 2801, 2802, 2803, 2811, 2812, 2813, 2814, 2817, 2818, 2822 ,2826, 2827, 2828, 2831, 2832, 2833, 2837, 2845))
-                                                      order by i_beleg_refid, i_zeilen_refid"
+                                                      order by i_konto, i_beleg_refid, i_zeilen_refid"
+
 
 
             'MsgBox(sqlStr)
@@ -188,6 +192,13 @@ Public Class frmBU_Mahnlauf
         MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12. Mahnung", "12"))
         MyComboBox2.changeItem("")
 
+        cbxKontotyp.Items.Clear()
+        cbxKontotyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Alle", "A"))
+        cbxKontotyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Debitoren", "DE"))
+        cbxKontotyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kreditoren", "KE"))
+        'cbxKontotyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sachkonten", "KO"))
+        cbxKontotyp.changeItem("Alle")
+
         MyTextBox2._value = Now.ToShortDateString
 
     End Sub
@@ -478,10 +489,10 @@ Public Class frmBU_Mahnlauf
             Else
                 'über Übersetzung geregelt, alle anderen über getMahnstufe (sollte in Zukunft noch abgeändert werden!)
                 getMahnstufetext("DE", MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT)
-                    rpt.lblUeberschriftRG_GS.Text = MAHNTEXT
+                rpt.lblUeberschriftRG_GS.Text = MAHNTEXT
-                    rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR
+                rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR
-                    rpt.txtVermerk.Text = MahnTEXT_NACH
+                rpt.txtVermerk.Text = MahnTEXT_NACH
-                End If
+            End If
 
 
 
@@ -725,22 +736,22 @@ Public Class frmBU_Mahnlauf
 
 
                                 Dim outl As New Outlook.Application
-                                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                                Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
-                                    Mail = outl.CreateItem(0)
+                                Mail = outl.CreateItem(0)
-                                    Mail.Subject = Mail_Subject
+                                Mail.Subject = Mail_Subject
-                                    Mail.HTMLBody = Mail_HTMLBody
+                                Mail.HTMLBody = Mail_HTMLBody
 
-                                    Mail.To = Mail_To
+                                Mail.To = Mail_To
-                                    Mail.CC = Mail_CC
+                                Mail.CC = Mail_CC
-                                    Mail.BCC = Mail_BCC
+                                Mail.BCC = Mail_BCC
                                 Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , pdfBezeichnung)
 
                                 Try
                                     'Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR") ',"buchhaltung@verag.ag"
                                 Catch ex2 As Exception
                                     MsgBox(ex2.Message)
-                                    End Try
+                                End Try
-                                    Mail.Display()
+                                Mail.Display()
 
                         End Select
 
@@ -1234,7 +1245,7 @@ Public Class frmBU_Mahnlauf
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , "WiedergestellungsDatum Fehler")
         Finally
-            fProgBar.Close
+            fProgBar.Close()
         End Try
         Me.Cursor = Cursors.Default
     End Sub
@@ -1247,10 +1258,14 @@ Public Class frmBU_Mahnlauf
     Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
         Me.Cursor = Cursors.WaitCursor
         btnSuche.PerformClick()
-        ' cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False)
+
-        'cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False)
         Dim dt = MyDatagridview1.DataSource
-        cProgramFunctions.genExcelFromDT_NEW(dt, {"G1:G" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)})
+        If cbxZahlungseingaenge.Checked Then
+            cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1)},,, "Zahlungseingänge vom " & txtZahlEingaenge._value,, True)
+        Else
+            cProgramFunctions.genExcelFromDT_NEW(dt, {"G1:G" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)})
+        End If
+
 
         Me.Cursor = Cursors.Default
     End Sub
@@ -1287,15 +1302,108 @@ Public Class frmBU_Mahnlauf
     End Sub
 
     Private Sub cbxZahlungseingaenge_CheckedChanged(sender As Object, e As EventArgs) Handles cbxZahlungseingaenge.CheckedChanged
-        'initDGV(cbxZahlungseingaenge.Checked)
+
+        If cbxZahlungseingaenge.Checked Then
+            txtZahlEingaenge.Visible = True
+            cbxKontotyp.Visible = True
+            btnMail_Intern.Visible = True
+            Select Case Now.DayOfWeek
+                Case 1 : txtZahlEingaenge._value = Today().AddDays(-3) 'Am Montag Daten von Freitag
+                Case Else : txtZahlEingaenge._value = Today().AddDays(-1) ' Sonst daten von gestern.
+            End Select
+        Else
+            txtZahlEingaenge.Visible = False
+            cbxKontotyp.Visible = False
+            btnMail_Intern.Visible = False
+        End If
+
     End Sub
 
     Private Sub cboFirma_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedValueChanged
         If cboFirma._value <> "" AndAlso cboFirma._value = 19 Then
             cbxZahlungseingaenge.Visible = True
+
         Else
             cbxZahlungseingaenge.Visible = False
             cbxZahlungseingaenge.Checked = False
+
         End If
     End Sub
+
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+        If cboFirma._value <> "" Then
+            If vbYes = MsgBox("Sollen die OPs aus Syska für die Firma " & cboFirma.Text.Replace(cboFirma._value, "") & " aktualisiert werden?" & vbNewLine & "Dieser Vorgang dauert unter Umständen etwas!", vbYesNoCancel) Then
+
+                If Not VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen(cboFirma._value) Then
+                    MsgBox("Fehler beim aktualisieren der OPs aus Syska!")
+                Else
+                    initDGV(cbxZahlungseingaenge.Checked)
+                End If
+
+
+
+            End If
+        End If
+
+
+    End Sub
+
+    Private Sub btnMail_Intern_Click(sender As Object, e As EventArgs) Handles btnMail_Intern.Click
+        Try
+
+            Me.Cursor = Cursors.WaitCursor
+            btnSuche.PerformClick()
+
+
+            Dim dt = MyDatagridview1.DataSource
+            Dim desc = "Zahlungseingänge vom " & txtZahlEingaenge._value
+            Dim attachment = cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1)},,, desc,, True,,,, False)
+
+            Dim outl As New Outlook.Application
+
+            Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+            Mail = outl.CreateItem(0)
+            Mail.Subject = desc & " (" & cbxKontotyp.Text & ")"
+
+            If cboFirma._value = 19 Then
+                Dim accountToSent = "fibu360@verag.ag "
+
+
+                If accountToSent <> "" Then
+                    If outl.Session.Accounts.Count > 0 Then
+                        For Each oAccount In outl.Session.Accounts
+                            If oAccount.SmtpAddress = accountToSent Then
+                                Mail.SendUsingAccount = oAccount
+                                Exit For
+                            End If
+                        Next
+                    End If
+                End If
+            End If
+
+            'noch keine unterscheidung der Abteilungen bei MDM, daher hardcodiert.
+            Dim MautVertrMail = "z.batinic@verag.ag;alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
+            Dim MautFaktMail = "s.kriegner@verag.ag;"
+
+            Select Case cbxKontotyp._value
+                Case "A" : Mail.To = MautVertrMail & MautFaktMail
+                Case "DE" : Mail.To = MautVertrMail
+                Case "KE" : Mail.To = MautFaktMail
+                Case "KO" : Mail.To = ""
+            End Select
+
+            Mail.Attachments.Add(attachment)
+
+            Mail.Display()
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Ermitteln des Mail-Accounts." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+
+
+        Me.Cursor = Cursors.Default
+
+    End Sub
 End Class

SDL/cProgramFunctions.vb

@@ -1124,7 +1124,7 @@ Public Class cProgramFunctions
         Return ""
     End Function
 
-    Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False) As String
+    Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False, Optional openFile As Boolean = True) As String
         Try
 
             Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
@@ -1200,7 +1200,7 @@ Public Class cProgramFunctions
             wb.SaveAs(filename)
 
 
-            Process.Start(filename)
+            If openFile Then Process.Start(filename)
 
             Return filename
         Catch ex As Exception

SDL/kunden/frmKundenblatt.Designer.vb

@@ -40,6 +40,10 @@ Partial Class frmKundenblatt
         Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenblatt))
         Me.pnlInfo = New System.Windows.Forms.Panel()
         Me.txtInfotext = New System.Windows.Forms.Label()
@@ -48,14 +52,19 @@ Partial Class frmKundenblatt
         Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
         Me.tbcntrMain = New System.Windows.Forms.TabControl()
         Me.tbAllgemein = New System.Windows.Forms.TabPage()
-        Me.lblAdressenzusatz = New System.Windows.Forms.TextBox()
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.dgvUmsaetze = New System.Windows.Forms.DataGridView()
         Me.btnReloadOP = New System.Windows.Forms.Button()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.btnOP = New System.Windows.Forms.Button()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.dgvOffenePosten = New System.Windows.Forms.DataGridView()
+        Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.lblAdressenzusatz = New System.Windows.Forms.TextBox()
         Me.Label11 = New System.Windows.Forms.Label()
         Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.Label10 = New System.Windows.Forms.Label()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.dgvOffenePosten = New System.Windows.Forms.DataGridView()
-        Me.btnOP = New System.Windows.Forms.Button()
         Me.Label17 = New System.Windows.Forms.Label()
         Me.dgvOfferte = New System.Windows.Forms.DataGridView()
         Me.picLogo = New System.Windows.Forms.PictureBox()
@@ -206,6 +215,10 @@ Partial Class frmKundenblatt
         Me.Panel4.SuspendLayout()
         Me.tbcntrMain.SuspendLayout()
         Me.tbAllgemein.SuspendLayout()
+        Me.TabControl1.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        CType(Me.dgvUmsaetze, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage2.SuspendLayout()
         CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picLogo, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -315,20 +328,16 @@ Partial Class frmKundenblatt
         Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
         Me.tbcntrMain.Name = "tbcntrMain"
         Me.tbcntrMain.SelectedIndex = 0
-        Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1164)
+        Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1181)
         Me.tbcntrMain.TabIndex = 3
         '
         'tbAllgemein
         '
         Me.tbAllgemein.BackColor = System.Drawing.Color.White
+        Me.tbAllgemein.Controls.Add(Me.TabControl1)
         Me.tbAllgemein.Controls.Add(Me.lblAdressenzusatz)
-        Me.tbAllgemein.Controls.Add(Me.btnReloadOP)
         Me.tbAllgemein.Controls.Add(Me.Label11)
         Me.tbAllgemein.Controls.Add(Me.cboFirmaFMZOLL)
-        Me.tbAllgemein.Controls.Add(Me.Label10)
-        Me.tbAllgemein.Controls.Add(Me.Label9)
-        Me.tbAllgemein.Controls.Add(Me.dgvOffenePosten)
-        Me.tbAllgemein.Controls.Add(Me.btnOP)
         Me.tbAllgemein.Controls.Add(Me.Label17)
         Me.tbAllgemein.Controls.Add(Me.dgvOfferte)
         Me.tbAllgemein.Controls.Add(Me.picLogo)
@@ -356,10 +365,207 @@ Partial Class frmKundenblatt
         Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
         Me.tbAllgemein.Name = "tbAllgemein"
         Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1135)
+        Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1152)
         Me.tbAllgemein.TabIndex = 0
         Me.tbAllgemein.Text = "Allgemein"
         '
+        'TabControl1
+        '
+        Me.TabControl1.Controls.Add(Me.TabPage1)
+        Me.TabControl1.Controls.Add(Me.TabPage2)
+        Me.TabControl1.Location = New System.Drawing.Point(8, 582)
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(718, 550)
+        Me.TabControl1.TabIndex = 186
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.dgvUmsaetze)
+        Me.TabPage1.Controls.Add(Me.btnReloadOP)
+        Me.TabPage1.Controls.Add(Me.Label10)
+        Me.TabPage1.Controls.Add(Me.btnOP)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(710, 524)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Offene Posten"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'dgvUmsaetze
+        '
+        Me.dgvUmsaetze.AllowUserToAddRows = False
+        Me.dgvUmsaetze.AllowUserToDeleteRows = False
+        Me.dgvUmsaetze.AllowUserToResizeRows = False
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvUmsaetze.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvUmsaetze.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.dgvUmsaetze.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvUmsaetze.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvUmsaetze.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvUmsaetze.DefaultCellStyle = DataGridViewCellStyle3
+        Me.dgvUmsaetze.Location = New System.Drawing.Point(0, 34)
+        Me.dgvUmsaetze.Name = "dgvUmsaetze"
+        Me.dgvUmsaetze.ReadOnly = True
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.dgvUmsaetze.RowHeadersVisible = False
+        Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 484)
+        Me.dgvUmsaetze.TabIndex = 182
+        '
+        'btnReloadOP
+        '
+        Me.btnReloadOP.BackgroundImage = Global.SDL.My.Resources.Resources.reloadFinance_
+        Me.btnReloadOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnReloadOP.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.btnReloadOP.FlatAppearance.BorderSize = 0
+        Me.btnReloadOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnReloadOP.Location = New System.Drawing.Point(482, 5)
+        Me.btnReloadOP.Name = "btnReloadOP"
+        Me.btnReloadOP.Size = New System.Drawing.Size(25, 25)
+        Me.btnReloadOP.TabIndex = 180
+        Me.btnReloadOP.UseVisualStyleBackColor = True
+        Me.btnReloadOP.Visible = False
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(523, 11)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(149, 13)
+        Me.Label10.TabIndex = 177
+        Me.Label10.Text = "Zahlungserinnerung/OP-Liste:"
+        '
+        'btnOP
+        '
+        Me.btnOP.BackgroundImage = Global.SDL.My.Resources.Resources.mahn
+        Me.btnOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnOP.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.btnOP.FlatAppearance.BorderSize = 0
+        Me.btnOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOP.Location = New System.Drawing.Point(681, 5)
+        Me.btnOP.Name = "btnOP"
+        Me.btnOP.Size = New System.Drawing.Size(24, 24)
+        Me.btnOP.TabIndex = 174
+        Me.btnOP.UseVisualStyleBackColor = True
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.dgvOffenePosten)
+        Me.TabPage2.Controls.Add(Me.txtUmsatzJahr)
+        Me.TabPage2.Controls.Add(Me.Label13)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(710, 524)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Umsatzbericht"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'dgvOffenePosten
+        '
+        Me.dgvOffenePosten.AllowUserToAddRows = False
+        Me.dgvOffenePosten.AllowUserToDeleteRows = False
+        Me.dgvOffenePosten.AllowUserToResizeRows = False
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.dgvOffenePosten.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvOffenePosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
+        Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvOffenePosten.DefaultCellStyle = DataGridViewCellStyle7
+        Me.dgvOffenePosten.Location = New System.Drawing.Point(0, 25)
+        Me.dgvOffenePosten.Name = "dgvOffenePosten"
+        Me.dgvOffenePosten.ReadOnly = True
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
+        Me.dgvOffenePosten.RowHeadersVisible = False
+        Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvOffenePosten.Size = New System.Drawing.Size(704, 496)
+        Me.dgvOffenePosten.TabIndex = 175
+        '
+        'txtUmsatzJahr
+        '
+        Me.txtUmsatzJahr._DateTimeOnly = False
+        Me.txtUmsatzJahr._numbersOnly = False
+        Me.txtUmsatzJahr._numbersOnlyKommastellen = ""
+        Me.txtUmsatzJahr._numbersOnlyTrennzeichen = True
+        Me.txtUmsatzJahr._Prozent = False
+        Me.txtUmsatzJahr._ShortDateNew = False
+        Me.txtUmsatzJahr._ShortDateOnly = False
+        Me.txtUmsatzJahr._TimeOnly = False
+        Me.txtUmsatzJahr._TimeOnly_Seconds = False
+        Me.txtUmsatzJahr._value = Nothing
+        Me.txtUmsatzJahr._Waehrung = False
+        Me.txtUmsatzJahr._WaehrungZeichen = True
+        Me.txtUmsatzJahr.BackColor = System.Drawing.Color.White
+        Me.txtUmsatzJahr.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtUmsatzJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtUmsatzJahr.ForeColor = System.Drawing.Color.Black
+        Me.txtUmsatzJahr.Location = New System.Drawing.Point(608, 6)
+        Me.txtUmsatzJahr.MaxLineLength = -1
+        Me.txtUmsatzJahr.MaxLines_Warning = ""
+        Me.txtUmsatzJahr.MaxLines_Warning_Label = Nothing
+        Me.txtUmsatzJahr.Name = "txtUmsatzJahr"
+        Me.txtUmsatzJahr.ReadOnly = True
+        Me.txtUmsatzJahr.Size = New System.Drawing.Size(96, 13)
+        Me.txtUmsatzJahr.TabIndex = 185
+        Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label13.Location = New System.Drawing.Point(473, 6)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(68, 13)
+        Me.Label13.TabIndex = 184
+        Me.Label13.Text = "Umsatz Jahr:"
+        '
         'lblAdressenzusatz
         '
         Me.lblAdressenzusatz.BackColor = System.Drawing.Color.White
@@ -372,25 +578,11 @@ Partial Class frmKundenblatt
         Me.lblAdressenzusatz.TabIndex = 181
         Me.lblAdressenzusatz.Text = "Zusatz"
         '
-        'btnReloadOP
-        '
-        Me.btnReloadOP.BackgroundImage = Global.SDL.My.Resources.Resources.reloadFinance_
-        Me.btnReloadOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btnReloadOP.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.btnReloadOP.FlatAppearance.BorderSize = 0
-        Me.btnReloadOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnReloadOP.Location = New System.Drawing.Point(240, 563)
-        Me.btnReloadOP.Name = "btnReloadOP"
-        Me.btnReloadOP.Size = New System.Drawing.Size(25, 25)
-        Me.btnReloadOP.TabIndex = 180
-        Me.btnReloadOP.UseVisualStyleBackColor = True
-        Me.btnReloadOP.Visible = False
-        '
         'Label11
         '
         Me.Label11.AutoSize = True
         Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label11.Location = New System.Drawing.Point(271, 570)
+        Me.Label11.Location = New System.Drawing.Point(17, 546)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(82, 13)
         Me.Label11.TabIndex = 178
@@ -403,85 +595,11 @@ Partial Class frmKundenblatt
         Me.cboFirmaFMZOLL._value = ""
         Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboFirmaFMZOLL.FormattingEnabled = True
-        Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(354, 567)
+        Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(100, 543)
         Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
         Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21)
         Me.cboFirmaFMZOLL.TabIndex = 179
         '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(544, 570)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(149, 13)
-        Me.Label10.TabIndex = 177
-        Me.Label10.Text = "Zahlungserinnerung/OP-Liste:"
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(9, 575)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(78, 13)
-        Me.Label9.TabIndex = 176
-        Me.Label9.Text = "Offene Posten:"
-        '
-        'dgvOffenePosten
-        '
-        Me.dgvOffenePosten.AllowUserToAddRows = False
-        Me.dgvOffenePosten.AllowUserToDeleteRows = False
-        Me.dgvOffenePosten.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.dgvOffenePosten.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvOffenePosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
-        Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvOffenePosten.DefaultCellStyle = DataGridViewCellStyle3
-        Me.dgvOffenePosten.Location = New System.Drawing.Point(12, 591)
-        Me.dgvOffenePosten.Name = "dgvOffenePosten"
-        Me.dgvOffenePosten.ReadOnly = True
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
-        Me.dgvOffenePosten.RowHeadersVisible = False
-        Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 536)
-        Me.dgvOffenePosten.TabIndex = 175
-        '
-        'btnOP
-        '
-        Me.btnOP.BackgroundImage = Global.SDL.My.Resources.Resources.mahn
-        Me.btnOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btnOP.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.btnOP.FlatAppearance.BorderSize = 0
-        Me.btnOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnOP.Location = New System.Drawing.Point(702, 564)
-        Me.btnOP.Name = "btnOP"
-        Me.btnOP.Size = New System.Drawing.Size(24, 24)
-        Me.btnOP.TabIndex = 174
-        Me.btnOP.UseVisualStyleBackColor = True
-        '
         'Label17
         '
         Me.Label17.AutoSize = True
@@ -494,34 +612,34 @@ Partial Class frmKundenblatt
         'dgvOfferte
         '
         Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvOfferte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
+        Me.dgvOfferte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
         Me.dgvOfferte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle6
+        Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle10
         Me.dgvOfferte.Location = New System.Drawing.Point(433, 37)
         Me.dgvOfferte.Name = "dgvOfferte"
         Me.dgvOfferte.ReadOnly = True
-        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
+        Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
         Me.dgvOfferte.Size = New System.Drawing.Size(293, 320)
         Me.dgvOfferte.TabIndex = 12
         '
@@ -785,28 +903,28 @@ Partial Class frmKundenblatt
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
+        Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
         Me.dgvSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle9.ForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle13.ForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle9
+        Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle13
         Me.dgvSperrliste.Location = New System.Drawing.Point(732, 36)
         Me.dgvSperrliste.Name = "dgvSperrliste"
         Me.dgvSperrliste.ReadOnly = True
-        Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
+        Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
-        Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1091)
+        Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1109)
         Me.dgvSperrliste.TabIndex = 23
         '
         'PictureBox2
@@ -931,38 +1049,38 @@ Partial Class frmKundenblatt
         '
         Me.dgvSDLLeistungenFull.AllowUserToAddRows = False
         Me.dgvSDLLeistungenFull.AllowUserToResizeRows = False
-        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
         Me.dgvSDLLeistungenFull.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
+        Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
         Me.dgvSDLLeistungenFull.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle12
+        Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle16
         Me.dgvSDLLeistungenFull.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvSDLLeistungenFull.Location = New System.Drawing.Point(3, 50)
         Me.dgvSDLLeistungenFull.Name = "dgvSDLLeistungenFull"
         Me.dgvSDLLeistungenFull.ReadOnly = True
-        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
+        Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
         Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 907)
         Me.dgvSDLLeistungenFull.TabIndex = 5
@@ -1274,6 +1392,7 @@ Partial Class frmKundenblatt
         Me.scanSDLSonst._DATENSERVER_UOrdner3 = ""
         Me.scanSDLSonst._OPEN_ORIGINAL = False
         Me.scanSDLSonst._TYPE = "PDF"
+        Me.scanSDLSonst.AllowDrop = True
         Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.scanSDLSonst.BackColor = System.Drawing.Color.White
         Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -1517,38 +1636,38 @@ Partial Class frmKundenblatt
         '
         Me.dgvLKW.AllowUserToAddRows = False
         Me.dgvLKW.AllowUserToDeleteRows = False
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
         Me.dgvLKW.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
+        Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle19
         Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle16
+        Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle20
         Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvLKW.Location = New System.Drawing.Point(0, 62)
         Me.dgvLKW.Name = "dgvLKW"
         Me.dgvLKW.ReadOnly = True
-        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
+        Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle21
         Me.dgvLKW.RowHeadersVisible = False
         Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvLKW.Size = New System.Drawing.Size(306, 0)
@@ -1778,6 +1897,7 @@ Partial Class frmKundenblatt
         Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = ""
         Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False
         Me.scanUebernahmebestätigungen._TYPE = "PDF"
+        Me.scanUebernahmebestätigungen.AllowDrop = True
         Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White
         Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -1817,6 +1937,7 @@ Partial Class frmKundenblatt
         Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
         Me.scanSonstiges._OPEN_ORIGINAL = False
         Me.scanSonstiges._TYPE = "PDF"
+        Me.scanSonstiges.AllowDrop = True
         Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.scanSonstiges.BackColor = System.Drawing.Color.White
         Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -2023,6 +2144,7 @@ Partial Class frmKundenblatt
         Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner3 = ""
         Me.scanUSTVsonstigeDokumente._OPEN_ORIGINAL = False
         Me.scanUSTVsonstigeDokumente._TYPE = "PDF"
+        Me.scanUSTVsonstigeDokumente.AllowDrop = True
         Me.scanUSTVsonstigeDokumente.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.scanUSTVsonstigeDokumente.BackColor = System.Drawing.Color.White
         Me.scanUSTVsonstigeDokumente.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -2062,6 +2184,7 @@ Partial Class frmKundenblatt
         Me.scanUSTVFABest._DATENSERVER_UOrdner3 = ""
         Me.scanUSTVFABest._OPEN_ORIGINAL = False
         Me.scanUSTVFABest._TYPE = "PDF"
+        Me.scanUSTVFABest.AllowDrop = True
         Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.scanUSTVFABest.BackColor = System.Drawing.Color.White
         Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -2081,6 +2204,7 @@ Partial Class frmKundenblatt
         Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = ""
         Me.scanUSTVVollmachten._OPEN_ORIGINAL = False
         Me.scanUSTVVollmachten._TYPE = "PDF"
+        Me.scanUSTVVollmachten.AllowDrop = True
         Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White
         Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -2253,7 +2377,7 @@ Partial Class frmKundenblatt
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
         Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
-        Me.cntxtCntxtMDM.Size = New System.Drawing.Size(181, 26)
+        Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '
         'ToolStripMenuItem8
@@ -2392,7 +2516,7 @@ Partial Class frmKundenblatt
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(1595, 1293)
+        Me.ClientSize = New System.Drawing.Size(1595, 1310)
         Me.Controls.Add(Me.lblAbfVerb)
         Me.Controls.Add(Me.btnAbfVerb)
         Me.Controls.Add(Me.tbcntrMain)
@@ -2412,6 +2536,12 @@ Partial Class frmKundenblatt
         Me.tbcntrMain.ResumeLayout(False)
         Me.tbAllgemein.ResumeLayout(False)
         Me.tbAllgemein.PerformLayout()
+        Me.TabControl1.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage1.PerformLayout()
+        CType(Me.dgvUmsaetze, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage2.ResumeLayout(False)
+        Me.TabPage2.PerformLayout()
         CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.picLogo, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2621,7 +2751,6 @@ Partial Class frmKundenblatt
     Friend WithEvents scanUSTVsonstigeDokumente As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
     Friend WithEvents btnOP As Button
     Friend WithEvents Label10 As Label
-    Friend WithEvents Label9 As Label
     Friend WithEvents dgvOffenePosten As DataGridView
     Friend WithEvents btnReloadOP As Button
     Friend WithEvents Label11 As Label
@@ -2629,4 +2758,10 @@ Partial Class frmKundenblatt
     Friend WithEvents lblAdressenzusatz As TextBox
     Friend WithEvents Button7 As Button
     Friend WithEvents tbFremdrechnungen As TabPage
+    Friend WithEvents dgvUmsaetze As DataGridView
+    Friend WithEvents txtUmsatzJahr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents TabControl1 As TabControl
+    Friend WithEvents TabPage1 As TabPage
+    Friend WithEvents TabPage2 As TabPage
+    Friend WithEvents Label13 As Label
 End Class

SDL/kunden/frmKundenblatt.vb

@@ -2010,6 +2010,7 @@ Public Class frmKundenblatt
     Private Sub cboFirmaFMZOLL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirmaFMZOLL.SelectedIndexChanged
         If loaded Then
             initDGVOffenePosten()
+            initDGVUmsatz()
         End If
     End Sub
 
@@ -2018,6 +2019,66 @@ Public Class frmKundenblatt
         f.ShowDialog()
     End Sub
 
+    Sub initDGVUmsatz()
+        With dgvUmsaetze
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
+            Dim where = ""
+            If cboFirmaFMZOLL._value <> "" Then
+                where = " AND Firma_ID=" & cboFirmaFMZOLL._value
+            Else
+                where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
+            End If
+
+            .DataSource = SQL.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" &
+                                                           " FROM [tblKundenumsatz] " &
+                                                           " WHERE [KundenNr]='" & kdNr & "' " & where & "  ORDER BY Jahr DESC", "FMZOLL")
+            If .DataSource Is Nothing Then Exit Sub
+            If .Columns.Count = 0 Then Exit Sub
+            .Columns(0).Visible = False
+            .Columns(11).Visible = False
+            .Columns(1).Width = 45
+            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns(2).Width = 75
+            .Columns(2).DefaultCellStyle.Format = "N2"
+            .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            .Columns(3).Width = 75
+            .Columns(3).DefaultCellStyle.Format = "N2"
+            .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            .Columns(4).Width = 75
+            .Columns(4).DefaultCellStyle.Format = "N2"
+            .Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            .Columns(5).Width = 55
+            .Columns(5).DefaultCellStyle.Format = "N2"
+            .Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            .Columns(6).Width = 75
+            .Columns(6).DefaultCellStyle.Format = "N2"
+            .Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            .Columns(7).Width = 60
+            .Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns(8).Width = 55
+            .Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns(8).HeaderText = "Rechng."
+            .Columns(9).Width = 53
+            .Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns(9).HeaderText = "Gutschr."
+            .Columns(10).MinimumWidth = 65
+            .Columns(10).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            If .RowCount > 0 Then
+                '                txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
+                'txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
+                If IsNumeric(.Rows(0).Cells("Nettoumsatz").Value) Then
+                    txtUmsatzJahr.Text = CDbl(.Rows(0).Cells("Nettoumsatz").Value).ToString("C")
+                End If
+                Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":"
+            Else
+                txtUmsatzJahr.Text = ""
+            End If
+        End With
+
+    End Sub
 
 End Class
 

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenUTA.Designer.vb

@@ -53,6 +53,8 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
         Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
         Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtCVCNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
         Me.Panel2.SuspendLayout()
         Me.tbcntr.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -64,10 +66,12 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtClientNr._DateTimeOnly = False
         Me.txtClientNr._numbersOnly = True
         Me.txtClientNr._numbersOnlyKommastellen = ""
+        Me.txtClientNr._numbersOnlyTrennzeichen = True
         Me.txtClientNr._Prozent = False
         Me.txtClientNr._ShortDateNew = False
         Me.txtClientNr._ShortDateOnly = False
         Me.txtClientNr._TimeOnly = False
+        Me.txtClientNr._TimeOnly_Seconds = False
         Me.txtClientNr._value = ""
         Me.txtClientNr._Waehrung = False
         Me.txtClientNr._WaehrungZeichen = True
@@ -94,14 +98,16 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtCardNr._DateTimeOnly = False
         Me.txtCardNr._numbersOnly = False
         Me.txtCardNr._numbersOnlyKommastellen = ""
+        Me.txtCardNr._numbersOnlyTrennzeichen = True
         Me.txtCardNr._Prozent = False
         Me.txtCardNr._ShortDateNew = False
         Me.txtCardNr._ShortDateOnly = False
         Me.txtCardNr._TimeOnly = False
+        Me.txtCardNr._TimeOnly_Seconds = False
         Me.txtCardNr._value = Nothing
         Me.txtCardNr._Waehrung = False
         Me.txtCardNr._WaehrungZeichen = True
-        Me.txtCardNr.Location = New System.Drawing.Point(106, 122)
+        Me.txtCardNr.Location = New System.Drawing.Point(106, 113)
         Me.txtCardNr.MaxLength = 3
         Me.txtCardNr.MaxLineLength = -1
         Me.txtCardNr.MaxLines_Warning = ""
@@ -115,14 +121,16 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtKartenNr._DateTimeOnly = False
         Me.txtKartenNr._numbersOnly = False
         Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._numbersOnlyTrennzeichen = True
         Me.txtKartenNr._Prozent = False
         Me.txtKartenNr._ShortDateNew = False
         Me.txtKartenNr._ShortDateOnly = False
         Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._TimeOnly_Seconds = False
         Me.txtKartenNr._value = Nothing
         Me.txtKartenNr._Waehrung = False
         Me.txtKartenNr._WaehrungZeichen = True
-        Me.txtKartenNr.Location = New System.Drawing.Point(106, 97)
+        Me.txtKartenNr.Location = New System.Drawing.Point(106, 88)
         Me.txtKartenNr.MaxLength = 22
         Me.txtKartenNr.MaxLineLength = -1
         Me.txtKartenNr.MaxLines_Warning = ""
@@ -135,7 +143,7 @@ Partial Class usrCntlSDLLeistungenUTA
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(3, 125)
+        Me.Label1.Location = New System.Drawing.Point(3, 116)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(58, 13)
         Me.Label1.TabIndex = 12
@@ -145,7 +153,7 @@ Partial Class usrCntlSDLLeistungenUTA
         '
         Me.Label9.AutoSize = True
         Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label9.Location = New System.Drawing.Point(3, 100)
+        Me.Label9.Location = New System.Drawing.Point(3, 91)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(69, 13)
         Me.Label9.TabIndex = 9
@@ -155,7 +163,7 @@ Partial Class usrCntlSDLLeistungenUTA
         '
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(207, 126)
+        Me.Label3.Location = New System.Drawing.Point(207, 117)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(32, 13)
         Me.Label3.TabIndex = 16
@@ -166,14 +174,16 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtPIN._DateTimeOnly = False
         Me.txtPIN._numbersOnly = False
         Me.txtPIN._numbersOnlyKommastellen = ""
+        Me.txtPIN._numbersOnlyTrennzeichen = True
         Me.txtPIN._Prozent = False
         Me.txtPIN._ShortDateNew = False
         Me.txtPIN._ShortDateOnly = False
         Me.txtPIN._TimeOnly = False
+        Me.txtPIN._TimeOnly_Seconds = False
         Me.txtPIN._value = Nothing
         Me.txtPIN._Waehrung = False
         Me.txtPIN._WaehrungZeichen = True
-        Me.txtPIN.Location = New System.Drawing.Point(245, 123)
+        Me.txtPIN.Location = New System.Drawing.Point(245, 114)
         Me.txtPIN.MaxLength = 4
         Me.txtPIN.MaxLineLength = -1
         Me.txtPIN.MaxLines_Warning = ""
@@ -187,10 +197,12 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtVermerk._DateTimeOnly = False
         Me.txtVermerk._numbersOnly = False
         Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._numbersOnlyTrennzeichen = True
         Me.txtVermerk._Prozent = False
         Me.txtVermerk._ShortDateNew = False
         Me.txtVermerk._ShortDateOnly = False
         Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._TimeOnly_Seconds = False
         Me.txtVermerk._value = Nothing
         Me.txtVermerk._Waehrung = False
         Me.txtVermerk._WaehrungZeichen = True
@@ -306,10 +318,12 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtLieferung._DateTimeOnly = False
         Me.txtLieferung._numbersOnly = False
         Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._numbersOnlyTrennzeichen = True
         Me.txtLieferung._Prozent = False
         Me.txtLieferung._ShortDateNew = True
         Me.txtLieferung._ShortDateOnly = False
         Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._TimeOnly_Seconds = False
         Me.txtLieferung._value = ""
         Me.txtLieferung._Waehrung = False
         Me.txtLieferung._WaehrungZeichen = True
@@ -328,10 +342,12 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtBestellung._DateTimeOnly = False
         Me.txtBestellung._numbersOnly = False
         Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._numbersOnlyTrennzeichen = True
         Me.txtBestellung._Prozent = False
         Me.txtBestellung._ShortDateNew = True
         Me.txtBestellung._ShortDateOnly = False
         Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._TimeOnly_Seconds = False
         Me.txtBestellung._value = ""
         Me.txtBestellung._Waehrung = False
         Me.txtBestellung._WaehrungZeichen = True
@@ -350,10 +366,12 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtGueltigkeit2._DateTimeOnly = False
         Me.txtGueltigkeit2._numbersOnly = False
         Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._numbersOnlyTrennzeichen = True
         Me.txtGueltigkeit2._Prozent = False
         Me.txtGueltigkeit2._ShortDateNew = True
         Me.txtGueltigkeit2._ShortDateOnly = False
         Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._TimeOnly_Seconds = False
         Me.txtGueltigkeit2._value = ""
         Me.txtGueltigkeit2._Waehrung = False
         Me.txtGueltigkeit2._WaehrungZeichen = True
@@ -465,6 +483,9 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
         Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
         Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges._OPEN_ORIGINAL = False
+        Me.scanSonstiges._TYPE = "PDF"
+        Me.scanSonstiges.AllowDrop = True
         Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.scanSonstiges.BackColor = System.Drawing.Color.White
         Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -488,11 +509,46 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.cbxArchiviert.Text = "ARCHIVIERT"
         Me.cbxArchiviert.UseVisualStyleBackColor = True
         '
+        'txtCVCNr
+        '
+        Me.txtCVCNr._DateTimeOnly = False
+        Me.txtCVCNr._numbersOnly = False
+        Me.txtCVCNr._numbersOnlyKommastellen = ""
+        Me.txtCVCNr._numbersOnlyTrennzeichen = True
+        Me.txtCVCNr._Prozent = False
+        Me.txtCVCNr._ShortDateNew = False
+        Me.txtCVCNr._ShortDateOnly = False
+        Me.txtCVCNr._TimeOnly = False
+        Me.txtCVCNr._TimeOnly_Seconds = False
+        Me.txtCVCNr._value = Nothing
+        Me.txtCVCNr._Waehrung = False
+        Me.txtCVCNr._WaehrungZeichen = True
+        Me.txtCVCNr.Location = New System.Drawing.Point(106, 138)
+        Me.txtCVCNr.MaxLength = 22
+        Me.txtCVCNr.MaxLineLength = -1
+        Me.txtCVCNr.MaxLines_Warning = ""
+        Me.txtCVCNr.MaxLines_Warning_Label = Nothing
+        Me.txtCVCNr.Name = "txtCVCNr"
+        Me.txtCVCNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtCVCNr.TabIndex = 102
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(3, 141)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(48, 13)
+        Me.Label5.TabIndex = 103
+        Me.Label5.Text = "CVC-Nr.:"
+        '
         'usrCntlSDLLeistungenUTA
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.txtCVCNr)
+        Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.cbxArchiviert)
         Me.Controls.Add(Me.tbcntr)
         Me.Controls.Add(Me.txtLieferung)
@@ -556,5 +612,6 @@ Partial Class usrCntlSDLLeistungenUTA
     Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
     Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
     Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
-
+    Friend WithEvents txtCVCNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label5 As Label
 End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenUTA.vb

@@ -109,6 +109,7 @@ Public Class usrCntlSDLLeistungenUTA
             txtKartenNr.Text = SDL.KartenNr
             txtClientNr.Text = SDL.CLIENT_Nr
             txtCardNr.Text = SDL.CARD_Nr
+            txtCVCNr.Text = If(SDL.CVCNr, "")
 
             'Me.Enabled = s.bindingSource.Count > 0
             'AddHandler s.bindingSource.PositionChanged, Sub()
@@ -168,6 +169,7 @@ Public Class usrCntlSDLLeistungenUTA
         SDL.KartenNr = txtKartenNr.Text
         SDL.CLIENT_Nr = txtClientNr.Text
         SDL.CARD_Nr = txtCardNr.Text
+        SDL.CVCNr = txtCVCNr.Text
 
         SDL.ErsatzkarteAm = cbxErsatzkarte._date
         SDL.VerlorenAm = cbxVerloren._date
@@ -185,7 +187,7 @@ Public Class usrCntlSDLLeistungenUTA
     End Function
 
 
-    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPIN.TextChanged, txtKartenNr.TextChanged, txtClientNr.TextChanged, txtCardNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPIN.TextChanged, txtKartenNr.TextChanged, txtClientNr.TextChanged, txtCardNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged, txtCVCNr.TextChanged
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
 
         If boud And Me.FindForm IsNot Nothing Then

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1741,7 +1741,7 @@ Public Class frmMDMDatenverarbetiung
             Dim displayFilter = False
             Dim sqlstr As String = ""
 
-            sqlstr &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung "
+            sqlstr &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,isnull(plose_BeschreibungAusfahrt,plose_BeschreibungMautTankstelle) as plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung "
             sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode  INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr  and plp_LeistungsNr is not null   "
             sqlstr &= " WHERE 1=1  "
             sqlstr &= " AND plose_Fakturiert=0  AND  plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " )  AND plp_Land NOT IN ('AT','DE') "
@@ -3905,7 +3905,7 @@ Public Class frmMDMDatenverarbetiung
         Try
 
             Dim dtUTAKundennummern As DataTable = SQL.loadDgvBySql("SELECT Distinct(tblUTAImportNew.Kundennummer)
-            FROM tblUTAImportNew LEFT JOIN Adressen ON tblUTAImportNew.Kundennummer = Adressen.UTAKundenNr
+            FROM tblUTAImportNew LEFT JOIN Adressen ON tblUTAImportNew.Kundennummer = Adressen.UTAKundenNr WHERE cast(tblUTAImportNew.Rechnungsdatum as Date) = '" & DateTimePicker2.Text & "' 
             GROUP BY tblUTAImportNew.Kundennummer, Adressen.UTAKundenNr
             HAVING (((Adressen.UTAKundenNr) Is Null))", "FMZOLL")
 

SDL/mdm/usrcntlFremdrechnungen.vb

@@ -214,7 +214,7 @@ Public Class usrcntlFremdrechnungen
 
             'IDS
             Case "IDS" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
-                    " invoice_id, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew WHERE [CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden]  WHERE 1 = 1 " & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & ") and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & " order by [YearMonthDay] desc, [Invoicenumber]"
+                    " invoice_id, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew WHERE [CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden]  WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 " & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & ") and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & " order by [YearMonthDay] desc, [Invoicenumber]"
 
             'UTA
             Case "UTA" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
@@ -240,7 +240,7 @@ Public Class usrcntlFremdrechnungen
             Case "ALLE" : Dim anzahl As Integer = anzahlTop / 6 : SQL_STR = " select * from (SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") &
                     "
                         --IDS
-                          'IDS' as Lieferant,invoice_id, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew WHERE [CustomerCode] in  (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 " & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & " -- order by [YearMonthDay], [Invoicenumber]
+                          'IDS' as Lieferant,invoice_id, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew WHERE [CustomerCode] in  (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0  " & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & " -- order by [YearMonthDay], [Invoicenumber]
                         
                         UNION ALL
                         

SDL/seriendruck/usrCntlFakturierung.Designer.vb

@@ -33,12 +33,15 @@ Partial Class usrcntlFakturierung
         Me.Label61 = New System.Windows.Forms.Label()
         Me.GBMautberichte = New System.Windows.Forms.GroupBox()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Label5 = New System.Windows.Forms.Label()
         Me.lblAnzahlMautberichte = New System.Windows.Forms.Label()
         Me.pbMautAnh_Proz = New System.Windows.Forms.ProgressBar()
         Me.lblMautAnh_Proz = New System.Windows.Forms.Label()
+        Me.cbxDateMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label69 = New System.Windows.Forms.Label()
         Me.Label68 = New System.Windows.Forms.Label()
+        Me.cbxMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label62 = New System.Windows.Forms.Label()
         Me.Button18 = New System.Windows.Forms.Button()
         Me.Label44 = New System.Windows.Forms.Label()
@@ -52,7 +55,7 @@ Partial Class usrcntlFakturierung
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.cbxMautanh = New System.Windows.Forms.CheckBox()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btnMautanh_pruefen = New System.Windows.Forms.Button()
         Me.PictureBox6 = New System.Windows.Forms.PictureBox()
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
         Me.PictureBox4 = New System.Windows.Forms.PictureBox()
@@ -63,16 +66,18 @@ Partial Class usrcntlFakturierung
         Me.cbxVorschau = New System.Windows.Forms.CheckBox()
         Me.cbxAbfVerbotdrucken = New System.Windows.Forms.CheckBox()
         Me.cbxRechnungsjournaldrucken = New System.Windows.Forms.CheckBox()
-        Me.Button20 = New System.Windows.Forms.Button()
+        Me.btn_Mautanh_entfernen = New System.Windows.Forms.Button()
         Me.Label72 = New System.Windows.Forms.Label()
+        Me.KdSearchBox3 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.rbkunde = New System.Windows.Forms.RadioButton()
         Me.rbAlleKunden = New System.Windows.Forms.RadioButton()
         Me.txtPloseAnh_Einarbeitung = New System.Windows.Forms.TextBox()
         Me.Label71 = New System.Windows.Forms.Label()
         Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar()
         Me.lblPloseAnh_Proz = New System.Windows.Forms.Label()
-        Me.Button19 = New System.Windows.Forms.Button()
+        Me.btn_setRENr = New System.Windows.Forms.Button()
         Me.Label70 = New System.Windows.Forms.Label()
+        Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label67 = New System.Windows.Forms.Label()
         Me.dtRechnungsdatum = New System.Windows.Forms.DateTimePicker()
         Me.Label66 = New System.Windows.Forms.Label()
@@ -80,14 +85,10 @@ Partial Class usrcntlFakturierung
         Me.Label64 = New System.Windows.Forms.Label()
         Me.Label63 = New System.Windows.Forms.Label()
         Me.Label45 = New System.Windows.Forms.Label()
-        Me.Button14 = New System.Windows.Forms.Button()
+        Me.btnRePos = New System.Windows.Forms.Button()
-        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.cbxDateMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cbxMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.KdSearchBox3 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
-        Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.GroupBox1.SuspendLayout()
         Me.GBMautberichte.SuspendLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GBSammelrechnung.SuspendLayout()
         CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -97,7 +98,6 @@ Partial Class usrcntlFakturierung
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'GroupBox1
@@ -212,6 +212,16 @@ Partial Class usrcntlFakturierung
         Me.TextBox1.Size = New System.Drawing.Size(106, 13)
         Me.TextBox1.TabIndex = 105
         '
+        'MyDatagridview1
+        '
+        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
+        Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Window
+        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MyDatagridview1.Location = New System.Drawing.Point(4, 71)
+        Me.MyDatagridview1.Name = "MyDatagridview1"
+        Me.MyDatagridview1.Size = New System.Drawing.Size(471, 135)
+        Me.MyDatagridview1.TabIndex = 34
+        '
         'Label5
         '
         Me.Label5.AutoSize = True
@@ -245,6 +255,17 @@ Partial Class usrcntlFakturierung
         Me.lblMautAnh_Proz.Text = "0%"
         Me.lblMautAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
+        'cbxDateMautbericht
+        '
+        Me.cbxDateMautbericht._allowedValuesFreiText = Nothing
+        Me.cbxDateMautbericht._allowFreiText = False
+        Me.cbxDateMautbericht._value = ""
+        Me.cbxDateMautbericht.FormattingEnabled = True
+        Me.cbxDateMautbericht.Location = New System.Drawing.Point(265, 12)
+        Me.cbxDateMautbericht.Name = "cbxDateMautbericht"
+        Me.cbxDateMautbericht.Size = New System.Drawing.Size(87, 21)
+        Me.cbxDateMautbericht.TabIndex = 32
+        '
         'Label69
         '
         Me.Label69.AutoSize = True
@@ -262,6 +283,18 @@ Partial Class usrcntlFakturierung
         Me.Label68.TabIndex = 30
         Me.Label68.Text = "Generiert Mautberichte"
         '
+        'cbxMautbericht
+        '
+        Me.cbxMautbericht._allowedValuesFreiText = Nothing
+        Me.cbxMautbericht._allowFreiText = False
+        Me.cbxMautbericht._value = ""
+        Me.cbxMautbericht.DropDownWidth = 200
+        Me.cbxMautbericht.FormattingEnabled = True
+        Me.cbxMautbericht.Location = New System.Drawing.Point(265, 33)
+        Me.cbxMautbericht.Name = "cbxMautbericht"
+        Me.cbxMautbericht.Size = New System.Drawing.Size(152, 21)
+        Me.cbxMautbericht.TabIndex = 30
+        '
         'Label62
         '
         Me.Label62.AutoSize = True
@@ -304,7 +337,7 @@ Partial Class usrcntlFakturierung
         Me.GBSammelrechnung.Controls.Add(Me.Button3)
         Me.GBSammelrechnung.Controls.Add(Me.Button2)
         Me.GBSammelrechnung.Controls.Add(Me.cbxMautanh)
-        Me.GBSammelrechnung.Controls.Add(Me.Button1)
+        Me.GBSammelrechnung.Controls.Add(Me.btnMautanh_pruefen)
         Me.GBSammelrechnung.Controls.Add(Me.PictureBox6)
         Me.GBSammelrechnung.Controls.Add(Me.PictureBox5)
         Me.GBSammelrechnung.Controls.Add(Me.PictureBox4)
@@ -315,7 +348,7 @@ Partial Class usrcntlFakturierung
         Me.GBSammelrechnung.Controls.Add(Me.cbxVorschau)
         Me.GBSammelrechnung.Controls.Add(Me.cbxAbfVerbotdrucken)
         Me.GBSammelrechnung.Controls.Add(Me.cbxRechnungsjournaldrucken)
-        Me.GBSammelrechnung.Controls.Add(Me.Button20)
+        Me.GBSammelrechnung.Controls.Add(Me.btn_Mautanh_entfernen)
         Me.GBSammelrechnung.Controls.Add(Me.Label72)
         Me.GBSammelrechnung.Controls.Add(Me.KdSearchBox3)
         Me.GBSammelrechnung.Controls.Add(Me.rbkunde)
@@ -324,7 +357,7 @@ Partial Class usrcntlFakturierung
         Me.GBSammelrechnung.Controls.Add(Me.Label71)
         Me.GBSammelrechnung.Controls.Add(Me.pbPloseAnh_Proz)
         Me.GBSammelrechnung.Controls.Add(Me.lblPloseAnh_Proz)
-        Me.GBSammelrechnung.Controls.Add(Me.Button19)
+        Me.GBSammelrechnung.Controls.Add(Me.btn_setRENr)
         Me.GBSammelrechnung.Controls.Add(Me.Label70)
         Me.GBSammelrechnung.Controls.Add(Me.cboSachbearbeiter)
         Me.GBSammelrechnung.Controls.Add(Me.Label67)
@@ -334,7 +367,7 @@ Partial Class usrcntlFakturierung
         Me.GBSammelrechnung.Controls.Add(Me.Label64)
         Me.GBSammelrechnung.Controls.Add(Me.Label63)
         Me.GBSammelrechnung.Controls.Add(Me.Label45)
-        Me.GBSammelrechnung.Controls.Add(Me.Button14)
+        Me.GBSammelrechnung.Controls.Add(Me.btnRePos)
         Me.GBSammelrechnung.Enabled = False
         Me.GBSammelrechnung.Location = New System.Drawing.Point(10, 356)
         Me.GBSammelrechnung.Name = "GBSammelrechnung"
@@ -438,16 +471,16 @@ Partial Class usrcntlFakturierung
         Me.cbxMautanh.Text = "Mautanhänge im PDF hinzufügen"
         Me.cbxMautanh.UseVisualStyleBackColor = True
         '
-        'Button1
+        'btnMautanh_pruefen
         '
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMautanh_pruefen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnMautanh_pruefen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button1.Location = New System.Drawing.Point(10, 12)
+        Me.btnMautanh_pruefen.Location = New System.Drawing.Point(10, 12)
-        Me.Button1.Name = "Button1"
+        Me.btnMautanh_pruefen.Name = "btnMautanh_pruefen"
-        Me.Button1.Size = New System.Drawing.Size(121, 49)
+        Me.btnMautanh_pruefen.Size = New System.Drawing.Size(121, 49)
-        Me.Button1.TabIndex = 106
+        Me.btnMautanh_pruefen.TabIndex = 106
-        Me.Button1.Text = "Mautanh. prüfen"
+        Me.btnMautanh_pruefen.Text = "Mautanh. prüfen"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.btnMautanh_pruefen.UseVisualStyleBackColor = True
         '
         'PictureBox6
         '
@@ -559,16 +592,16 @@ Partial Class usrcntlFakturierung
         Me.cbxRechnungsjournaldrucken.Text = "Rechnungsjournal drucken"
         Me.cbxRechnungsjournaldrucken.UseVisualStyleBackColor = True
         '
-        'Button20
+        'btn_Mautanh_entfernen
         '
-        Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Mautanh_entfernen.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.btn_Mautanh_entfernen.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(147, 12)
+        Me.btn_Mautanh_entfernen.Location = New System.Drawing.Point(147, 12)
-        Me.Button20.Name = "Button20"
+        Me.btn_Mautanh_entfernen.Name = "btn_Mautanh_entfernen"
-        Me.Button20.Size = New System.Drawing.Size(121, 49)
+        Me.btn_Mautanh_entfernen.Size = New System.Drawing.Size(121, 49)
-        Me.Button20.TabIndex = 43
+        Me.btn_Mautanh_entfernen.TabIndex = 43
-        Me.Button20.Text = "Mautanh. aus RE entfernen"
+        Me.btn_Mautanh_entfernen.Text = "Mautanh. aus RE entfernen"
-        Me.Button20.UseVisualStyleBackColor = True
+        Me.btn_Mautanh_entfernen.UseVisualStyleBackColor = True
         '
         'Label72
         '
@@ -578,6 +611,34 @@ Partial Class usrcntlFakturierung
         Me.Label72.TabIndex = 42
         Me.Label72.Text = "* hier wird eine RE-Nr erzeugt, die Rechnungen gelten dann als ""gedruckt"" und kön" &
     "nen somit nicht mehr geändert werden."
+        '
+        'KdSearchBox3
+        '
+        Me.KdSearchBox3._AlleFirmenCLUSTER = False
+        Me.KdSearchBox3._AllowSetValue = True
+        Me.KdSearchBox3._autoSizeGross = False
+        Me.KdSearchBox3._display_Name1 = False
+        Me.KdSearchBox3._displayAVISO_Email = False
+        Me.KdSearchBox3._displayFullName = False
+        Me.KdSearchBox3._displayWoelflKd = False
+        Me.KdSearchBox3._hideIfListEmpty = True
+        Me.KdSearchBox3._loadKdData = False
+        Me.KdSearchBox3._searchName1 = True
+        Me.KdSearchBox3._UseFIRMA = ""
+        Me.KdSearchBox3._ValueKdAndName = True
+        Me.KdSearchBox3.dgvpos = "LEFT"
+        Me.KdSearchBox3.KdName = ""
+        Me.KdSearchBox3.KdNr = "-1"
+        Me.KdSearchBox3.kdNrField = Nothing
+        Me.KdSearchBox3.KdNrNullInt = Nothing
+        Me.KdSearchBox3.Location = New System.Drawing.Point(87, 308)
+        Me.KdSearchBox3.Name = "KdSearchBox3"
+        Me.KdSearchBox3.nurAktive = True
+        Me.KdSearchBox3.searchActive = True
+        Me.KdSearchBox3.Size = New System.Drawing.Size(350, 20)
+        Me.KdSearchBox3.TabIndex = 41
+        Me.KdSearchBox3.TIMER_SEARCH = True
+        Me.KdSearchBox3.usrcntl = Nothing
         '
         'rbkunde
         '
@@ -635,16 +696,16 @@ Partial Class usrcntlFakturierung
         Me.lblPloseAnh_Proz.Text = "0%"
         Me.lblPloseAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
-        'Button19
+        'btn_setRENr
         '
-        Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_setRENr.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.btn_setRENr.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(10, 182)
+        Me.btn_setRENr.Location = New System.Drawing.Point(10, 182)
-        Me.Button19.Name = "Button19"
+        Me.btn_setRENr.Name = "btn_setRENr"
-        Me.Button19.Size = New System.Drawing.Size(121, 49)
+        Me.btn_setRENr.Size = New System.Drawing.Size(121, 49)
-        Me.Button19.TabIndex = 32
+        Me.btn_setRENr.TabIndex = 32
-        Me.Button19.Text = "RE.Nr setzen*"
+        Me.btn_setRENr.Text = "RE.Nr setzen*"
-        Me.Button19.UseVisualStyleBackColor = True
+        Me.btn_setRENr.UseVisualStyleBackColor = True
         '
         'Label70
         '
@@ -654,6 +715,17 @@ Partial Class usrcntlFakturierung
         Me.Label70.TabIndex = 30
         Me.Label70.Text = "6. Hängt Mautgesamtbericht an Sammenrechnungen an."
         '
+        'cboSachbearbeiter
+        '
+        Me.cboSachbearbeiter._allowedValuesFreiText = Nothing
+        Me.cboSachbearbeiter._allowFreiText = False
+        Me.cboSachbearbeiter._value = ""
+        Me.cboSachbearbeiter.FormattingEnabled = True
+        Me.cboSachbearbeiter.Location = New System.Drawing.Point(529, 38)
+        Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
+        Me.cboSachbearbeiter.Size = New System.Drawing.Size(152, 21)
+        Me.cboSachbearbeiter.TabIndex = 29
+        '
         'Label67
         '
         Me.Label67.AutoSize = True
@@ -713,88 +785,16 @@ Partial Class usrcntlFakturierung
         Me.Label45.TabIndex = 5
         Me.Label45.Text = "1. Einträge auf Sachbearbeiter ändern."
         '
-        'Button14
+        'btnRePos
         '
-        Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnRePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnRePos.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button14.Location = New System.Drawing.Point(10, 81)
+        Me.btnRePos.Location = New System.Drawing.Point(10, 81)
-        Me.Button14.Name = "Button14"
+        Me.btnRePos.Name = "btnRePos"
-        Me.Button14.Size = New System.Drawing.Size(121, 49)
+        Me.btnRePos.Size = New System.Drawing.Size(121, 49)
-        Me.Button14.TabIndex = 4
+        Me.btnRePos.TabIndex = 4
-        Me.Button14.Text = "Rechnungspos. berechnen"
+        Me.btnRePos.Text = "Rechnungspos. berechnen"
-        Me.Button14.UseVisualStyleBackColor = True
+        Me.btnRePos.UseVisualStyleBackColor = True
-        '
-        'MyDatagridview1
-        '
-        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
-        Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Window
-        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.MyDatagridview1.Location = New System.Drawing.Point(4, 71)
-        Me.MyDatagridview1.Name = "MyDatagridview1"
-        Me.MyDatagridview1.Size = New System.Drawing.Size(471, 135)
-        Me.MyDatagridview1.TabIndex = 34
-        '
-        'cbxDateMautbericht
-        '
-        Me.cbxDateMautbericht._allowedValuesFreiText = Nothing
-        Me.cbxDateMautbericht._allowFreiText = False
-        Me.cbxDateMautbericht._value = ""
-        Me.cbxDateMautbericht.FormattingEnabled = True
-        Me.cbxDateMautbericht.Location = New System.Drawing.Point(265, 12)
-        Me.cbxDateMautbericht.Name = "cbxDateMautbericht"
-        Me.cbxDateMautbericht.Size = New System.Drawing.Size(87, 21)
-        Me.cbxDateMautbericht.TabIndex = 32
-        '
-        'cbxMautbericht
-        '
-        Me.cbxMautbericht._allowedValuesFreiText = Nothing
-        Me.cbxMautbericht._allowFreiText = False
-        Me.cbxMautbericht._value = ""
-        Me.cbxMautbericht.DropDownWidth = 200
-        Me.cbxMautbericht.FormattingEnabled = True
-        Me.cbxMautbericht.Location = New System.Drawing.Point(265, 33)
-        Me.cbxMautbericht.Name = "cbxMautbericht"
-        Me.cbxMautbericht.Size = New System.Drawing.Size(152, 21)
-        Me.cbxMautbericht.TabIndex = 30
-        '
-        'KdSearchBox3
-        '
-        Me.KdSearchBox3._AlleFirmenCLUSTER = False
-        Me.KdSearchBox3._AllowSetValue = True
-        Me.KdSearchBox3._autoSizeGross = False
-        Me.KdSearchBox3._display_Name1 = False
-        Me.KdSearchBox3._displayAVISO_Email = False
-        Me.KdSearchBox3._displayFullName = False
-        Me.KdSearchBox3._displayWoelflKd = False
-        Me.KdSearchBox3._hideIfListEmpty = True
-        Me.KdSearchBox3._loadKdData = False
-        Me.KdSearchBox3._searchName1 = True
-        Me.KdSearchBox3._UseFIRMA = ""
-        Me.KdSearchBox3._ValueKdAndName = True
-        Me.KdSearchBox3.dgvpos = "LEFT"
-        Me.KdSearchBox3.KdName = ""
-        Me.KdSearchBox3.KdNr = "-1"
-        Me.KdSearchBox3.kdNrField = Nothing
-        Me.KdSearchBox3.KdNrNullInt = Nothing
-        Me.KdSearchBox3.Location = New System.Drawing.Point(87, 308)
-        Me.KdSearchBox3.Name = "KdSearchBox3"
-        Me.KdSearchBox3.nurAktive = True
-        Me.KdSearchBox3.searchActive = True
-        Me.KdSearchBox3.Size = New System.Drawing.Size(350, 20)
-        Me.KdSearchBox3.TabIndex = 41
-        Me.KdSearchBox3.TIMER_SEARCH = True
-        Me.KdSearchBox3.usrcntl = Nothing
-        '
-        'cboSachbearbeiter
-        '
-        Me.cboSachbearbeiter._allowedValuesFreiText = Nothing
-        Me.cboSachbearbeiter._allowFreiText = False
-        Me.cboSachbearbeiter._value = ""
-        Me.cboSachbearbeiter.FormattingEnabled = True
-        Me.cboSachbearbeiter.Location = New System.Drawing.Point(529, 38)
-        Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
-        Me.cboSachbearbeiter.Size = New System.Drawing.Size(152, 21)
-        Me.cboSachbearbeiter.TabIndex = 29
         '
         'usrcntlFakturierung
         '
@@ -812,6 +812,7 @@ Partial Class usrcntlFakturierung
         Me.GroupBox1.ResumeLayout(False)
         Me.GBMautberichte.ResumeLayout(False)
         Me.GBMautberichte.PerformLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GBSammelrechnung.ResumeLayout(False)
         Me.GBSammelrechnung.PerformLayout()
         CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
@@ -822,7 +823,6 @@ Partial Class usrcntlFakturierung
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -846,7 +846,7 @@ Partial Class usrcntlFakturierung
     Friend WithEvents cbxVorschau As CheckBox
     Friend WithEvents cbxAbfVerbotdrucken As CheckBox
     Friend WithEvents cbxRechnungsjournaldrucken As CheckBox
-    Friend WithEvents Button20 As Button
+    Friend WithEvents btn_Mautanh_entfernen As Button
     Friend WithEvents Label72 As Label
     Friend WithEvents KdSearchBox3 As VERAG_PROG_ALLGEMEIN.KdSearchBox
     Friend WithEvents rbkunde As RadioButton
@@ -855,7 +855,7 @@ Partial Class usrcntlFakturierung
     Friend WithEvents Label71 As Label
     Friend WithEvents pbPloseAnh_Proz As ProgressBar
     Friend WithEvents lblPloseAnh_Proz As Label
-    Friend WithEvents Button19 As Button
+    Friend WithEvents btn_setRENr As Button
     Friend WithEvents Label70 As Label
     Friend WithEvents cboSachbearbeiter As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label67 As Label
@@ -865,7 +865,7 @@ Partial Class usrcntlFakturierung
     Friend WithEvents Label64 As Label
     Friend WithEvents Label63 As Label
     Friend WithEvents Label45 As Label
-    Friend WithEvents Button14 As Button
+    Friend WithEvents btnRePos As Button
     Friend WithEvents btnMDMSammelrechnung As Button
     Friend WithEvents PictureBox1 As PictureBox
     Friend WithEvents Label4 As Label
@@ -878,7 +878,7 @@ Partial Class usrcntlFakturierung
     Friend WithEvents PictureBox4 As PictureBox
     Friend WithEvents PictureBox3 As PictureBox
     Friend WithEvents PictureBox2 As PictureBox
-    Friend WithEvents Button1 As Button
+    Friend WithEvents btnMautanh_pruefen As Button
     Friend WithEvents cbxMautanh As CheckBox
     Friend WithEvents Button3 As Button
     Friend WithEvents Button2 As Button

SDL/seriendruck/usrCntlFakturierung.vb

@@ -89,7 +89,7 @@ Public Class usrcntlFakturierung
 
     End Sub
 
-    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
+    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btn_Mautanh_entfernen.Click
 
         Dim Sachbearbeiter = cboSachbearbeiter._value
         Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
@@ -133,7 +133,7 @@ Public Class usrcntlFakturierung
 
     End Sub
 
-    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles btnRePos.Click
 
         Label70.Text = "6. Hängt Mautgesamtbericht an Sammelrechnungen an."
 
@@ -190,7 +190,7 @@ Public Class usrcntlFakturierung
 
         If rechnungenMitAbwAbfDat > 0 Then
             Dim res As MsgBoxResult
-            res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird autoamtisch auf " & rechnungsdatum & " gesetzt) ?", vbYesNoCancel)
+            res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird automatisch auf " & rechnungsdatum & " gesetzt) ?", vbYesNoCancel)
             Select Case res
                 Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Abfertigungsdatum = '" & rechnungsdatum & "' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL")
                 Case MsgBoxResult.No
@@ -234,6 +234,10 @@ Public Class usrcntlFakturierung
                                                     GROUP BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift]", "FMZOLL")
 
 
+        If Not vbYes = MsgBox("Möchten Sie mit der Erstellung der  " & dtREGU.Rows.Count & " Sammelrechnungen vorfahren?", vbYesNoCancel) Then
+            Exit Sub
+        End If
+
         'RECHNUNG ODER GUTSCHRIFT
         'Rechnung oder Gutschrift im RK eintragen, abhängig vom Sammelrechnungsbetrag (+/-)
 
@@ -912,7 +916,7 @@ Public Class usrcntlFakturierung
 
     End Function
 
-    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
+    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles btn_setRENr.Click
         Dim Sachbearbeiter = cboSachbearbeiter._value
         Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
         Dim rechnungsstatus As Integer = 0
@@ -1521,21 +1525,21 @@ Public Class usrcntlFakturierung
                                                               group by [Datenquelle]", "FMZOLL")
 
         Dim sumNetto As Double = 0
-            Dim sumVAT As Double = 0
+        Dim sumVAT As Double = 0
-            Dim sumBrutto As Double = 0
+        Dim sumBrutto As Double = 0
 
-            For Each row As DataRow In dtSummen.Rows
+        For Each row As DataRow In dtSummen.Rows
             If Not IsDBNull(row("Netto")) AndAlso IsNumeric(row("Netto")) Then sumNetto += CDbl(row("Netto"))
             If Not IsDBNull(row("VAT")) AndAlso IsNumeric(row("VAT")) Then sumVAT += CDbl(row("VAT"))
             If Not IsDBNull(row("Brutto")) AndAlso IsNumeric(row("Brutto")) Then sumBrutto += CDbl(row("Brutto"))
         Next
 
-            Dim drLast = dtSummen.NewRow
+        Dim drLast = dtSummen.NewRow
 
-            If dtSummen.Columns.Contains("Lieferant") Then drLast.Item("Lieferant") = "SUMME"
+        If dtSummen.Columns.Contains("Lieferant") Then drLast.Item("Lieferant") = "SUMME"
-            If dtSummen.Columns.Contains("Netto") Then drLast.Item("Netto") = sumNetto
+        If dtSummen.Columns.Contains("Netto") Then drLast.Item("Netto") = sumNetto
-            If dtSummen.Columns.Contains("VAT") Then drLast.Item("VAT") = sumVAT
+        If dtSummen.Columns.Contains("VAT") Then drLast.Item("VAT") = sumVAT
-            If dtSummen.Columns.Contains("Brutto") Then drLast.Item("Brutto") = sumBrutto
+        If dtSummen.Columns.Contains("Brutto") Then drLast.Item("Brutto") = sumBrutto
 
         dtSummen.Rows.InsertAt(drLast, dtSummen.Rows.Count)
 
@@ -1597,7 +1601,7 @@ Public Class usrcntlFakturierung
         f.Show(Me)
     End Sub
 
-    Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles btnMautanh_pruefen.Click
 
         Dim Sachbearbeiter = cboSachbearbeiter._value
         Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
@@ -1701,9 +1705,9 @@ Public Class usrcntlFakturierung
         Dim sammelrechnung0vorhanden As Boolean = True
         sammelrechnung0vorhanden = checkIfStatus0Sammelrechnugnenvorhanden(cboSachbearbeiter._value, CDate(dtRechnungsdatum.Text))
 
-        Button14.Enabled = sammelrechnung0vorhanden
+        btnRePos.Enabled = sammelrechnung0vorhanden
         'Button19.Enabled = sammelrechnung0vorhanden wenn RE bereits Status 2 wird sie nur gedruckt!!!!
-        Button20.Enabled = sammelrechnung0vorhanden
+        btn_Mautanh_entfernen.Enabled = sammelrechnung0vorhanden
 
 
     End Sub
@@ -1728,8 +1732,8 @@ Public Class usrcntlFakturierung
         sammelrechnung0vorhanden = checkIfStatus0Sammelrechnugnenvorhanden(cboSachbearbeiter._value, CDate(dtRechnungsdatum.Text))
 
         'Button19.Enabled = sammelrechnung0vorhanden wenn RE bereits Status 2 wird sie nur gedruckt!!!!
-        Button14.Enabled = True 'sammelrechnung0vorhanden
+        btnRePos.Enabled = True 'sammelrechnung0vorhanden
-        Button20.Enabled = sammelrechnung0vorhanden
+        btn_Mautanh_entfernen.Enabled = sammelrechnung0vorhanden
 
     End Sub
 

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb

@@ -13,7 +13,6 @@ Public Class cUStVLeistender
     Property UstV_Leistender_Adresse As Boolean
     Property UStV_LeistenderId As Integer
 
-
     Public hasEntry = False
 
         Dim SQL As New SQL
@@ -59,10 +58,29 @@ Public Class cUStVLeistender
                       " BEGIN " & getInsertCmd() & " END " &
                       " commit tran "
 
+
         Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
     End Function
 
 
+    Public Function SAVEID() As Integer
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVLeistender WHERE UStV_Leistender=@UStV_Leistender) " &
+                      " BEGIN " & getUpdateCmd() & " END " &
+                      " Else " &
+                      " BEGIN " & getInsertCmd() & " END " &
+                      " commit tran "
+
+
+        UStV_LeistenderId = SQL.doSQLVarListID(UStV_LeistenderId, sqlstr, "FMZOLL", , list)
+
+        Return UStV_LeistenderId
+    End Function
+
+
+
+
     Public Function INSERT() As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
 

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -1,8 +1,11 @@
-Imports javax.validation.constraints
+Imports com.sun.org.apache.xpath.internal.functions
+Imports javax.validation.constraints
+Imports Org.BouncyCastle.Asn1
 
 Public Class cMDMFunctionsAllgemein
 
-    Public Shared ploseSchnittstelle As Boolean = False
+    Public Shared ploseAlteLogikSchnittstelle As Boolean = False
+    Public Shared ploseNeueLogikSchnittstelle As Boolean = False
     Public Shared ITSchnittstelle As Boolean = False
     Public Shared MSEAlteSchnittstelle As Boolean = False
     Public Shared MSENeueSchnittstelle As Boolean = False
@@ -11,9 +14,10 @@ Public Class cMDMFunctionsAllgemein
     Public Shared UTAAlteSchnittstelle As Boolean = False
     Public Shared UTANeueSchnittstelle As Boolean = False
 
-    Shared Function setSchnittstellen(plose As Boolean, IT As Boolean, MSEalt As Boolean, MSENeu As Boolean, IDSAlt As Boolean, IDSNeu As Boolean, UTAAlt As Boolean, UTANeu As Boolean)
+    Shared Function setSchnittstellen(ploseAlt As Boolean, IT As Boolean, MSEalt As Boolean, MSENeu As Boolean, IDSAlt As Boolean, IDSNeu As Boolean, UTAAlt As Boolean, UTANeu As Boolean, ploseNeu As Boolean)
 
-        ploseSchnittstelle = plose
+        ploseAlteLogikSchnittstelle = ploseAlt
+        ploseNeueLogikSchnittstelle = ploseNeu
         ITSchnittstelle = IT
         MSEAlteSchnittstelle = MSEalt
         MSENeueSchnittstelle = MSENeu
@@ -22,6 +26,20 @@ Public Class cMDMFunctionsAllgemein
         UTAAlteSchnittstelle = UTAAlt
         UTANeueSchnittstelle = UTANeu
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+
+
+            ploseAlteLogikSchnittstelle = True
+            ploseNeueLogikSchnittstelle = True
+            ITSchnittstelle = False
+            MSEAlteSchnittstelle = True
+            MSENeueSchnittstelle = True
+            IDSAlteSchnittstelle = True
+            IDSNeueSchnittstelle = True
+            UTAAlteSchnittstelle = True
+            UTANeueSchnittstelle = True
+        End If
+
     End Function
 
 
@@ -127,8 +145,9 @@ Public Class cMDMFunctionsAllgemein
             End If
 
             'alle Kunden, die eine SteuerNr hinterlegt haben inkl. deren hinterlegte Summen!
-            Dim sqlKunden = "SELECT Kunden.KundenNr as KundenNr, Kunden.UStV_SummeUmsatzsteuerbetragEUR, Kunden.UStV_SummeErstattungsbetragEUR, Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR_VERAG, Kunden.UStV_SummeVorschaubetragEUR_IDS, Kunden.UStV_SummeVorschaubetragEUR_IT, Kunden.UStV_SummeVorschaubetragEUR_MSE, Kunden.UStV_SummeVorschaubetragEUR_UTA, Kunden.UStV_SummeVorschaubetragEUR, kde_UStV_SummeVorschaubetragEUR_PLOSE as UStV_SummeVorschaubetragEUR_PLOSE                                                                 
+            Dim sqlKunden = "SELECT Kunden.KundenNr as KundenNr,isnull(Adressen.LandKz,'') as LandKz, Kunden.UStV_SummeUmsatzsteuerbetragEUR, Kunden.UStV_SummeErstattungsbetragEUR, Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR_VERAG, Kunden.UStV_SummeVorschaubetragEUR_IDS, Kunden.UStV_SummeVorschaubetragEUR_IT, Kunden.UStV_SummeVorschaubetragEUR_MSE, Kunden.UStV_SummeVorschaubetragEUR_UTA, Kunden.UStV_SummeVorschaubetragEUR, kde_UStV_SummeVorschaubetragEUR_PLOSE as UStV_SummeVorschaubetragEUR_PLOSE                                                                 
                                 FROM Kunden 
+                                INNER JOIN Adressen on Adressen.AdressenNr = Kunden.KundenNr
                                 left JOIN [tblKundenErweitert] on [kde_KundenNr] = Kunden.KundenNr
                                 WHERE Kunden.KundenNr " & sqlWhere &
                                 " order by Kunden.KundenNr"
@@ -143,6 +162,13 @@ Public Class cMDMFunctionsAllgemein
 
 
                     'Neuberechnung der Steuerbeträge aus den Anträgen
+
+
+                    'WICHTIG laut Brigitte am 09.04.2025:
+                    'SRB und BIH Kunden bekommen die MWST direkt vom HU Finanzamt ausbezahlt.
+                    'Deswegen sollten alle ungarischen Anträge die wir für SRB und BIH Kunden stellen, nicht beim Risiko mitberechnet werden
+
+
                     Dim sqlSummeBilden = "SELECT 
                                     tblUStVAntrag.UStVAn_KuNr,
                                     SUM(tblUStVAntrag.UStVAn_USteuerbetragEUR) As UStVKu_SummeUmsatzsteuer, 
@@ -176,13 +202,12 @@ Public Class cMDMFunctionsAllgemein
                     Dim invoiceDate = If(Date.Now > New Date(Date.Now.Year, 6, 30), New Date(Date.Now.Year, 1, 1), New Date(Date.Now.Year - 1, 1, 1))
 
                     'Neuberechnung der Vorschausummen (also alle noch nicht verrechneten Transaktionen , die aber schon eingelesen wurden)
-                    curUStV_SummeVorschaubetragEUR_VERAG = UStVKunden_Summen_lesen_Vorschau_VERAG(r.Item("KundenNr"), invoiceDate)
+                    curUStV_SummeVorschaubetragEUR_VERAG = UStVKunden_Summen_lesen_Vorschau_VERAG(r.Item("KundenNr"), r.Item("LandKz"), invoiceDate)
-                    curUStV_SummeVorschaubetragEUR_IDS = UStVKunden_Summen_lesen_Vorschau_IDS(r.Item("KundenNr"), invoiceDate, IDSAlteSchnittstelle, IDSNeueSchnittstelle)
+                    curUStV_SummeVorschaubetragEUR_IDS = UStVKunden_Summen_lesen_Vorschau_IDS(r.Item("KundenNr"), r.Item("LandKz"), invoiceDate, IDSAlteSchnittstelle, IDSNeueSchnittstelle)
-                    curUStV_SummeVorschaubetragEUR_IT = UStVKunden_Summen_lesen_Vorschau_IT(r.Item("KundenNr"), invoiceDate, ITSchnittstelle)
+                    curUStV_SummeVorschaubetragEUR_IT = UStVKunden_Summen_lesen_Vorschau_IT(r.Item("KundenNr"), r.Item("LandKz"), invoiceDate, ITSchnittstelle)
-                    curUStV_SummeVorschaubetragEUR_MSE = UStVKunden_Summen_lesen_Vorschau_MSE(r.Item("KundenNr"), invoiceDate, MSEAlteSchnittstelle, MSENeueSchnittstelle)
+                    curUStV_SummeVorschaubetragEUR_MSE = UStVKunden_Summen_lesen_Vorschau_MSE(r.Item("KundenNr"), r.Item("LandKz"), invoiceDate, MSEAlteSchnittstelle, MSENeueSchnittstelle)
-                    curUStV_SummeVorschaubetragEUR_UTA = UStVKunden_Summen_lesen_Vorschau_UTA(r.Item("KundenNr"), invoiceDate, UTAAlteSchnittstelle, UTANeueSchnittstelle)
+                    curUStV_SummeVorschaubetragEUR_UTA = UStVKunden_Summen_lesen_Vorschau_UTA(r.Item("KundenNr"), r.Item("LandKz"), invoiceDate, UTAAlteSchnittstelle, UTANeueSchnittstelle)
-
+                    curUStV_SummeVorschaubetragEUR_PLOSE = UStVKunden_Summen_lesen_Vorschau_PLOSE(r.Item("KundenNr"), r.Item("LandKz"), invoiceDate, ploseAlteLogikSchnittstelle, ploseNeueLogikSchnittstelle)
-                    curUStV_SummeVorschaubetragEUR_PLOSE = UStVKunden_Summen_lesen_Vorschau_PLOSE(r.Item("KundenNr"), invoiceDate, ploseSchnittstelle)
 
                     curUStV_SummeVorschaubetragEUR += curUStV_SummeVorschaubetragEUR_VERAG
                     curUStV_SummeVorschaubetragEUR += curUStV_SummeVorschaubetragEUR_IDS
@@ -301,7 +326,7 @@ Public Class cMDMFunctionsAllgemein
         End Try
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_VERAG(varUStVAn_KuNr As Integer, invoiceDate As Date) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_VERAG(varUStVAn_KuNr As Integer, landKZ As String, invoiceDate As Date) As Double
         'Return 0
         '  Public Function UStVKunden_Summen_lesen_Vorschau_VERAG(ByRef varUStVAn_KuNr As Variant) As Currency
 
@@ -347,7 +372,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_IDS(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSummeAlteSchnittstelle As Boolean, calcSummeNeueSchnittstelle As Boolean) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_IDS(varUStVAn_KuNr As Integer, landKZ As String, invoiceDate As Date, calcSummeAlteSchnittstelle As Boolean, calcSummeNeueSchnittstelle As Boolean) As Double
 
         '1300     dtmRechnungsdatum = IIf(Date > DateSerial(Year(Date), 6, 30), DateSerial(Year(Date), 1, 1), DateSerial(Year(Date) - 1, 1, 1))
         '1310     strParameter = ParameterBereitstellen(varUStVAn_KuNr, dtmRechnungsdatum)
@@ -373,7 +398,7 @@ Public Class cMDMFunctionsAllgemein
                                     dbo.tblSteuernummern ON dbo.tblDieselArchiv.KdNrVERAG = dbo.tblSteuernummern.AdressenNr INNER JOIN
                                     dbo.tbl_IDS_Länder ON dbo.tblSteuernummern.LandNr = dbo.tbl_IDS_Länder.LandNr AND dbo.tblDieselArchiv.[Outlet Country Code] = dbo.tbl_IDS_Länder.OutletCountryCode
                     WHERE (dbo.tblDieselArchiv.KdNrVERAG = " & varUStVAn_KuNr & " ) AND (dbo.tblDieselArchiv.[Year Month Day] >= '" & invoiceDate.ToShortDateString & "') AND (dbo.tblDieselArchiv.UStVAn_ID IS NULL) AND 
-                                    (dbo.tblSteuernummern.UStV = 1)
+                                    (dbo.tblSteuernummern.UStV = 1) " & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <>  'HU'", "") & "
                     GROUP BY dbo.tblDieselArchiv.KdNrVERAG, dbo.tblSteuernummern.LandNr
                     ORDER BY dbo.tblDieselArchiv.KdNrVERAG, dbo.tblSteuernummern.LandNr"
 
@@ -395,7 +420,7 @@ Public Class cMDMFunctionsAllgemein
                                     dbo.tblSteuernummern ON [tblIDSTransactionsNew].KdNrVERAG = dbo.tblSteuernummern.AdressenNr INNER JOIN
                                     dbo.tbl_IDS_Länder ON dbo.tblSteuernummern.LandNr = dbo.tbl_IDS_Länder.LandNr AND [tblIDSTransactionsNew].[OutletCountryCode] = dbo.tbl_IDS_Länder.OutletCountryCode
                     WHERE ([tblIDSTransactionsNew].KdNrVERAG = " & varUStVAn_KuNr & " ) AND ([tblIDSTransactionsNew].[YearMonthDay] >= '" & invoiceDate.ToShortDateString & "') AND ([tblIDSTransactionsNew].UStVAn_ID IS NULL) AND 
-                                    (dbo.tblSteuernummern.UStV = 1)
+                                    (dbo.tblSteuernummern.UStV = 1) " & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <>  'HU'", "") & "
                     GROUP BY [tblIDSTransactionsNew].KdNrVERAG, dbo.tblSteuernummern.LandNr
                     ORDER BY [tblIDSTransactionsNew].KdNrVERAG, dbo.tblSteuernummern.LandNr"
 
@@ -420,19 +445,25 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_PLOSE(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumme As Boolean) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_PLOSE(varUStVAn_KuNr As Integer, landKZ As String, invoiceDate As Date, calcSummeAlteSchnittstelle As Boolean, calcSummeNeueSchnitttelle As Boolean) As Double
 
         ' set plose_Archiv=1, [plose_ArchiviertDatum]=GETDATE(), UStVAn_ID = @UStVAn_ID beim Einarbeiten in USTVA
 
         Try
 
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-            Dim summeSchnittstelle As Double = 0
+            Dim summeAlteSchnittstelle As Double = 0
+            Dim summeNeueSchnittstelle As Double = 0
 
-            If calcSumme Then
+            If calcSummeAlteSchnittstelle Then
 
-                Dim sqlPLOSE = "select plose_POLSEKundennummer, sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] FROM [tblPLOSE_Details]  INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
+                'plose_MWSTBetragWaehrungAbbuchung ist immer in EUR
-                    WHERE plose_Archiv <> 1 AND plose_Fakturiert = 1 AND plose_LieferantCode IN (0,1,7) AND cast(plose_RechnungsDatum as date) >= '" & invoiceDate.ToShortDateString & "' and AdressenNr =  " & varUStVAn_KuNr & "
+
+                Dim sqlPLOSE = "select plose_POLSEKundennummer, sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] FROM [tblPLOSE_Details] 
+                    INNER JOIN tblPLOSE_Produktbeschreibung ON [plp_ProductCode]=[plose_ProduktCode]
+                    INNER JOIN Adressen ON tblPLOSE_Details.plose_POLSEKundennummer = Adressen.PLOSEKundenNr
+					INNER JOIN tblSteuernummern ON Adressen.AdressenNr = tblSteuernummern.AdressenNr AND tblSteuernummern.LandKZ = tblPLOSE_Produktbeschreibung.plp_Land
+                    WHERE dbo.tblSteuernummern.AdressenNr = " & varUStVAn_KuNr & " AND (dbo.tblSteuernummern.UStV = 1) AND plose_Archiv <> 1 AND plose_Fakturiert = 1 AND plose_LieferantCode IN (0,1,7) AND cast(plose_RechnungsDatum as date) >= '" & invoiceDate.ToShortDateString & "' and Adressen.AdressenNr =  " & varUStVAn_KuNr & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <>  'HU'", "") & "
                     group by  plose_POLSEKundennummer"
 
 
@@ -441,13 +472,52 @@ Public Class cMDMFunctionsAllgemein
                 For Each r As DataRow In dtPLOSE.Rows
                     Dim UST_org = CDbl(r.Item("plose_MWSTBetragWaehrungAbbuchung"))
                     If UST_org <> 0 Then
-                        summeSchnittstelle += UST_org
+                        summeAlteSchnittstelle += UST_org
                     End If
                 Next
             End If
 
 
-            Return summeSchnittstelle
+            If calcSummeNeueSchnitttelle Then
+
+                Dim sqlPLOSE = "select plInv_PLOSEKundennummer, sum([plInv_MWSTBetrag])[plInv_MWSTBetrag], ISNULL([plInv_Currency],'') as plInv_Currency FROM [tblPLOSE_Inv_Data]  
+                    INNER JOIN Adressen on PLOSEKundenNr=plInv_PLOSEKundennummer
+                    INNER JOIN dbo.tblSteuernummern ON dbo.tblSteuernummern.AdressenNr = dbo.Adressen.AdressenNr and [tblPLOSE_Inv_Data].plInv_SupplierCountry = tblSteuernummern.LandKZ
+                    WHERE dbo.tblSteuernummern.AdressenNr = " & varUStVAn_KuNr & " AND (dbo.tblSteuernummern.UStV = 1) AND plInv_Archiv <> 1 AND plInv_ArchiviertDatum is null AND cast(plInv_SupplierRechnungsDatum as date) >= '" & invoiceDate.ToShortDateString & "' and Adressen.AdressenNr =  " & varUStVAn_KuNr & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <>  'HU'", "") & "
+                    group by  plInv_PLOSEKundennummer, plInv_Currency"
+
+
+                Dim dtPLOSE As DataTable = sql.loadDgvBySql(sqlPLOSE, "FMZOLL")
+
+
+
+                For Each r As DataRow In dtPLOSE.Rows
+                    Dim UST_org = CDbl(r.Item("plInv_MWSTBetrag"))
+                    If UST_org <> 0 Then
+                        Dim Weahrung As String = IIf(r.Item("plInv_Currency") IsNot Nothing, r.Item("plInv_Currency"), "")
+                        If Weahrung <> "" Then
+                            If Weahrung <> "EUR" Then
+                                Dim kurs As New cEZB_Waehrungskurse(Weahrung)
+                                Dim UST_EUR As Double = 0
+                                UST_EUR = Math.Round((UST_org / kurs.ezb_kurs), 2) '+ (UST_org Mod Math.Round(kurs.ezb_kurs, 2)), ")"
+
+                                summeNeueSchnittstelle += UST_EUR
+
+                            Else Weahrung = "EUR"
+
+
+                                summeNeueSchnittstelle += UST_org
+
+                            End If
+
+                        End If
+                    End If
+
+                Next
+            End If
+
+
+            Return summeAlteSchnittstelle + summeNeueSchnittstelle
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
@@ -458,7 +528,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_IT(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSum As Boolean) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_IT(varUStVAn_KuNr As Integer, landKZ As String, invoiceDate As Date, calcSum As Boolean) As Double
 
         '        Dim qdf As DAO.QueryDef
         '        Dim rst As DAO.Recordset
@@ -531,7 +601,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_MSE(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumalteSchnittstelle As Boolean, calcSumneueSchnittstelle As Boolean) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_MSE(varUStVAn_KuNr As Integer, landKZ As String, invoiceDate As Date, calcSumalteSchnittstelle As Boolean, calcSumneueSchnittstelle As Boolean) As Double
         'Return 0
         '        dtmRechnungsdatum = IIf(Date > DateSerial(Year(Of Date), 6, 30), DateSerial(Year(Of Date), 1, 1), DateSerial(Year(Of Date)() - 1, 1, 1))
         '1850     strParameter = ParameterBereitstellen(varUStVAn_KuNr, dtmRechnungsdatum)
@@ -563,7 +633,7 @@ Public Class cMDMFunctionsAllgemein
                                     dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.tblSteuernummern.LandNr = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandNr AND 
                                     dbo.tblMSETransactionsArchiv.[Transaction Country] = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz
                     WHERE (dbo.tblSteuernummern.AdressenNr = " & varUStVAn_KuNr & ") AND (dbo.tblSteuernummern.UStV = 1) AND (dbo.tblMSETransactionsArchiv.[Invoice Date] >= '" & invoiceDate.ToShortDateString & "') AND 
-                                    (dbo.tblMSETransactionsArchiv.[Original VAT Amount] <> 0) AND (dbo.tblMSETransactionsArchiv.UStVAn_ID IS NULL)
+                                    (dbo.tblMSETransactionsArchiv.[Original VAT Amount] <> 0) AND (dbo.tblMSETransactionsArchiv.UStVAn_ID IS NULL) " & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <>  'HU'", "") & "
                     GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMSETransactionsArchiv.[Invoice Date], dbo.tblMSETransactionsArchiv.[Original Currency] 
                     ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMSETransactionsArchiv.[Invoice Date], dbo.tblMSETransactionsArchiv.[Original Currency] "
 
@@ -586,8 +656,8 @@ Public Class cMDMFunctionsAllgemein
                     left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] 
                     left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id 
                     left join [VERAG].[dbo].[tblMSEInvoices] as inv on inv.invoice_id = bills.invoice_number 
-                    left join dbo.tblSteuernummern on dbo.tblSteuernummern.AdressenNr = trans.partner_haulier_id 
+                    left join dbo.tblSteuernummern on dbo.tblSteuernummern.AdressenNr = trans.partner_haulier_id and dbo.tblSteuernummern.LandKZ = trans.transaction_country
-                    where bills.invoice_date >= '" & invoiceDate.ToShortDateString & "' and inv.archiv <> 1 and dbo.tblSteuernummern.UStV = 1 and trans.charged = 1  and cust.[partner_customer_number] = " & varUStVAn_KuNr & " 
+                    where bills.invoice_date >= '" & invoiceDate.ToShortDateString & "' and inv.archiv <> 1 and dbo.tblSteuernummern.UStV = 1 and trans.charged = 1  and cust.[partner_customer_number] = " & varUStVAn_KuNr & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <>  'HU'", "") & "
                     group by bills.invoice_date, bills.invoice_number, cust.[customer_id], bills.specification_page_name, trans.transaction_country,trans.original_currency) as temp"
 
                 Dim dtMSENeut As DataTable = sql.loadDgvBySql(sqlFMZollDatenNEU, "FMZOLL")
@@ -614,7 +684,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_UTA(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumalteSchnittstelle As Boolean, calcSumneueSchnittstelle As Boolean) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_UTA(varUStVAn_KuNr As Integer, landKZ As String, invoiceDate As Date, calcSumalteSchnittstelle As Boolean, calcSumneueSchnittstelle As Boolean) As Double
         'Return 0
         '        Dim qdf As DAO.QueryDef
         '        Dim rst As DAO.Recordset
@@ -667,7 +737,7 @@ Public Class cMDMFunctionsAllgemein
                                         dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.tblSteuernummern.LandNr = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandNr AND 
                                         dbo.tblUTAArchiv.Lieferland = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz_ISO_3
                         WHERE (dbo.tblSteuernummern.AdressenNr = " & varUStVAn_KuNr & ") AND (dbo.tblSteuernummern.UStV = 1) AND (dbo.tblUTAArchiv.UStVAn_ID IS NULL) AND 
-                                        (dbo.tblUTAArchiv.Rechnungsdatum >= '" & invoiceDate.ToShortDateString & "') AND (dbo.tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung <> 0)
+                                        (dbo.tblUTAArchiv.Rechnungsdatum >= '" & invoiceDate.ToShortDateString & "') AND (dbo.tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung <> 0) " & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <>  'HU'", "") & "
                         GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr
                         ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr"
 
@@ -691,7 +761,7 @@ Public Class cMDMFunctionsAllgemein
                                         dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.tblSteuernummern.LandNr = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandNr AND 
                                         dbo.tblUTAImportNew.Lieferland = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz_ISO_3
                         WHERE (dbo.tblSteuernummern.AdressenNr = " & varUStVAn_KuNr & ") AND (dbo.tblSteuernummern.UStV = 1) AND (dbo.tblUTAImportNew.archiv IS NULL) AND (dbo.tblUTAImportNew.charged  = 1) AND
-                                        (dbo.tblUTAImportNew.Rechnungsdatum >=  '" & invoiceDate.ToShortDateString & "') AND (dbo.tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung <> 0)
+                                        (dbo.tblUTAImportNew.Rechnungsdatum >=  '" & invoiceDate.ToShortDateString & "') AND (dbo.tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung <> 0) " & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <>  'HU'", "") & "
                         GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr
                         ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr"
 

VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb

@@ -66,6 +66,7 @@ Public Class cSDL
     Property BelegNr As Object = Nothing
     Property Nationalitaet As Object = Nothing
     Property CO2Kategorie As Object = Nothing
+    Property CVCNr As Object = Nothing
 
     Public hasentry
     Dim SQL As New SQL
@@ -156,6 +157,7 @@ Public Class cSDL
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nationalitaet", Nationalitaet))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CO2Kategorie", CO2Kategorie))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CVCNr", CVCNr))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -970,342 +970,353 @@ Public Class cUTA
         Dim curChecksumme As Double
 
         Dim lngRecordCount As Long
-
+        Try
-        'Datei auf Fehler prüfen!
-        Do While (objFileRead.Peek() > -1)
-            Dim strZeile = objFileRead.ReadLine()
 
 
-            Select Case Mid(strZeile, 1, 2)
+            'Datei auf Fehler prüfen!
-                Case "10"
+            Do While (objFileRead.Peek() > -1)
-                    booHeaderVorhanden = True
+                Dim strZeile = objFileRead.ReadLine()
-                    lngRecordCount = lngRecordCount + 1
-                Case "20"
-                    ' Meldung bei nicht vorhandenen Haeder.
-                    If Not booHeaderVorhanden Then
-                        MsgBox("Datei kann wegen fehlenden Header nicht verarbeitet werden.")
-                        objFileRead.Close()
-                        Return False
-                    End If
-
-                    lngRecordCount = lngRecordCount + 1
-
-                Case "90"
-                    ' Meldung bei nicht vorhandenen Haeder.
-                    If Not booHeaderVorhanden Then
-                        MsgBox("Datei kann wegen fehlenden Header nicht verarbeitet werden.")
-                        objFileRead.Close()
-                        Return False
-                    End If
 
 
-                    booTrailerVorhanden = True
+                Select Case Mid(strZeile, 1, 2)
-                    lngRecordCount = lngRecordCount + 1
+                    Case "10"
+                        booHeaderVorhanden = True
+                        lngRecordCount = lngRecordCount + 1
+                    Case "20"
+                        ' Meldung bei nicht vorhandenen Haeder.
+                        If Not booHeaderVorhanden Then
+                            MsgBox("Datei kann wegen fehlenden Header nicht verarbeitet werden.")
+                            objFileRead.Close()
+                            Return False
+                        End If
 
-                    ' Prüfsumme Anzahl der Sätze im File ohne Header und Trailer.
+                        lngRecordCount = lngRecordCount + 1
-                    If Trim(Mid(strZeile, 3, 13)) <> (lngRecordCount) Then
-                        MsgBox("Fehler: " & vbNewLine & "Prüfsumme in der Datei stimmt nicht mit der Zeilenanzahl der Datei überein! " & vbNewLine & "Record Count:  " & Trim(Mid(strZeile, 3, 13)) & vbCrLf & "Prüfsumme: " & (lngRecordCount) & vbCrLf)
-                        objFileRead.Close()
-                        Return False
-                    End If
 
-                    ' Meldung bei Prüfsummenfehler.
+                    Case "90"
-                    If booPrüfziffernfehler Then
+                        ' Meldung bei nicht vorhandenen Haeder.
-                        MsgBox("Datei kann wegen Prüfsummenfehler nicht verarbeitet werden.")
+                        If Not booHeaderVorhanden Then
-                        objFileRead.Close()
+                            MsgBox("Datei kann wegen fehlenden Header nicht verarbeitet werden.")
-
+                            objFileRead.Close()
-                    End If
+                            Return False
-                Case Else
-                    booPrüfziffernfehler = True
-            End Select
-
-        Loop
-
-
-        Dim lngPKLine As Long = 0
-        lngRecordCount = 0
-
-        'gleicher PKFileName wird nun aus CLFHeader gelöscht. CASCADE löscht dann zugehörige CLFBody und CLFTrailer.
-        'If Not SQL.doSQL("DELETE tblUTAHeaderNew.ErstellDatumUhrzeit, tblUTAHeaderNew.Übertragungsnummer FROM tblUTAHeaderNew WHERE (((tblUTAHeaderNew.ErstellDatumUhrzeit)=" & Format$(dtmErstellDatumUhrzeit, "\#mm\/dd\/yyyy hh\:nn\:ss AM/PM\#") & ") AND ((tblUTAHeaderNew.Übertragungsnummer)=" & lngÜbertragungsnummer, "FMZOLL") Then
-        '    MsgBox("Fehler beim Löschen des CLF-Headers")
-        '    objFileRead.Close()
-        '    Return False
-        'End If
-
-        'If Not SQL.doSQL("UPDATE CLF SET PKFileName = '" & fi.Name.ToString & "'", "FMZOLL") Then
-        '    MsgBox("Fehler beim Update der CLF-Nr")
-        '    objFileRead.Close()
-        '    Return False
-        'End If
-        objFileRead.DiscardBufferedData()
-        objFileRead.BaseStream.Seek(0, System.IO.SeekOrigin.Begin)
-
-        Do While (objFileRead.Peek() > -1)
-            Dim strZeile = objFileRead.ReadLine()
-
-            Select Case Mid(strZeile, 1, 2)
-                Case "10"
-                    booHeaderVorhanden = True
-                    lngRecordCount = lngRecordCount + 1
-                    dtmErstellDatumUhrzeit = DateSerial(Mid(strZeile, 35, 4), Mid(strZeile, 32, 2), Mid(strZeile, 29, 2)) & " " & TimeSerial(Mid(strZeile, 40, 2), Mid(strZeile, 43, 2), Mid(strZeile, 46, 2))
-                    lngÜbertragungsnummer = Mid(strZeile, 61, 6)
-                    'Dim ext = CInt(fi.Extension.Remove(0, 1))
-                    Dim clfHeader As New cUTA.UTAHeader(lngÜbertragungsnummer, dtmErstellDatumUhrzeit)
-                    With clfHeader
-                        .Absender_ID = Mid(strZeile, 10, 6)
-                        .Empfänger_ID = Mid(strZeile, 23, 6)
-                        .Filler_Feld_5 = IIf(Trim(Mid(strZeile, 39, 1)) = "", Nothing, Trim(Mid(strZeile, 39, 1)))
-                        .Abrechnungsnummer = IIf(Trim(Mid(strZeile, 48, 13)) = Nothing, "", Trim(Mid(strZeile, 48, 13)))
-                        .DTF_Format = IIf(Trim(Mid(strZeile, 67, 6)) = Nothing, "", Trim(Mid(strZeile, 67, 6)))
-                        .SAVE()
-                    End With
-
-                Case "20"
-                    lngRecordCount = lngRecordCount + 1
-                    lngÜbertragungsposition = lngÜbertragungsposition + 1
-                    Dim clfBody As New cUTA.UTABody(lngÜbertragungsnummer, lngÜbertragungsposition, dtmErstellDatumUhrzeit)
-                    With clfBody
-                        .Übertragungsnummer = lngÜbertragungsnummer
-                        .Übertragungsposition = lngÜbertragungsposition
-                        .Abrechnungsnummer = Mid(strZeile, 3, 13)
-                        .[Datum_für_Lieferungen_und_Leistungen_bis] = DateSerial(Mid(strZeile, 20, 4), Mid(strZeile, 18, 2), Mid(strZeile, 16, 2))
-                        .[Rechnungsempfänger_Kundennummer] = Mid(strZeile, 24, 13)
-                        .[Abrechnungsdatum] = DateSerial(Mid(strZeile, 41, 4), Mid(strZeile, 39, 2), Mid(strZeile, 37, 2))
-                        .[Kundennummer] = Mid(strZeile, 45, 13)
-                        .[Kartennummer] = IIf(Trim(Mid(strZeile, 58, 19)) = "", Nothing, Trim(Mid(strZeile, 58, 19)))
-                        .[Belegdatum] = DateSerial(Mid(strZeile, 81, 4), Mid(strZeile, 79, 2), Mid(strZeile, 77, 2))
-                        .[Akzeptanzstellennummer] = Mid(strZeile, 85, 13)
-                        .[Standort_der_Akzeptanzstelle] = IIf(Trim(Mid(strZeile, 98, 25)) = "", Nothing, Trim(Mid(strZeile, 98, 25)))
-                        .[Lieferland] = IIf(Trim(Mid(strZeile, 123, 3)) = "", Nothing, Trim(Mid(strZeile, 123, 3)))
-                        .[Belegnummer_des_Lieferanten] = IIf(Trim(Mid(strZeile, 126, 13)) = "", Nothing, Trim(Mid(strZeile, 126, 13)))
-                        .[Kilometerstand] = Mid(strZeile, 139, 8)
-                        .[Fakturierwarenart] = IIf(Trim(Mid(strZeile, 147, 5)) = "", Nothing, Trim(Mid(strZeile, 147, 5)))
-                        .[Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen] = IIf(Trim(Mid(strZeile, 152, 1)) = "", Nothing, Trim(Mid(strZeile, 152, 1)))
-                        .[Menge] = Mid(strZeile, 153, 10) / 100
-                        .[SB_BT] = IIf(Trim(Mid(strZeile, 163, 1)) = "", Nothing, Trim(Mid(strZeile, 163, 1)))
-                        .[Umsatzsteuerprozentsatz] = Mid(strZeile, 164, 5) / 10000
-                        .[Lieferlandwährung_ISO] = IIf(Trim(Mid(strZeile, 169, 3)) = "", Nothing, Trim(Mid(strZeile, 169, 3)))
-                        .[Einzelpreis_Brutto_in_Lieferlandwährung] = Mid(strZeile, 172, 11) / 100
-                        .[Einzelpreis_Netto_in_Lieferlandwährung] = Mid(strZeile, 183, 11) / 100
-                        .[Betrag_Service_in_Lieferlandwährung] = Mid(strZeile, 194, 11) / 100
-                        .[Betrag_Nachlass_in_Lieferlandwährung] = Mid(strZeile, 205, 11) / 100
-                        .[Gesamtbetrag_Netto_in_Lieferlandwährung] = Mid(strZeile, 216, 11) / 100
-                        .[Gesamtbetrag_Brutto_in_Lieferlandwährung] = Mid(strZeile, 227, 11) / 100
-                        .[Darstellwährung_ISO] = IIf(Trim(Mid(strZeile, 238, 3)) = "", Nothing, Trim(Mid(strZeile, 238, 3)))
-                        .[Betrag_Service_in_Darstellwährung] = Mid(strZeile, 241, 11) / 100
-                        .[Betrag_Nachlass_in_Darstellwährung] = Mid(strZeile, 252, 11) / 100
-                        .[Gesamtbetrag_Netto_in_Darstellwährung] = Mid(strZeile, 263, 11) / 100
-                        .[Gesamtbetrag_Umsatzsteuer_in_Darstellwährung] = Mid(strZeile, 274, 11) / 100
-                        .[Gesamtbetrag_Brutto_in_Darstellwährung] = Mid(strZeile, 285, 11) / 100
-                        .[Prägetext_i_d_R_KFZ_Kennzeichen] = IIf(Trim(Mid(strZeile, 296, 16)) = "", Nothing, Trim(Mid(strZeile, 296, 16)))
-                        .[Kunden_Kostenstelle_1] = IIf(Trim(Mid(strZeile, 312, 20)) = "", Nothing, Trim(Mid(strZeile, 312, 20)))
-                        .[Kartentyp] = IIf(Trim(Mid(strZeile, 332, 8)) = "", Nothing, Trim(Mid(strZeile, 332, 8)))
-                        .[Filler_Feld_35] = IIf(Trim(Mid(strZeile, 340, 1)) = "", Nothing, Trim(Mid(strZeile, 340, 1)))
-                        .[Filler_Feld_36] = IIf(Trim(Mid(strZeile, 341, 3)) = "", Nothing, Trim(Mid(strZeile, 341, 3)))
-                        .[KZ_Autobahn] = IIf(Trim(Mid(strZeile, 344, 1)) = "", Nothing, Trim(Mid(strZeile, 344, 1)))
-                        .[INFO_Feld] = IIf(Trim(Mid(strZeile, 345, 18)) = "", Nothing, Trim(Mid(strZeile, 345, 18)))
-                        .[KFZ_Kennzeichen] = IIf(Trim(Mid(strZeile, 363, 16)) = "", Nothing, Trim(Mid(strZeile, 363, 16)))
-                        .[Filler_Feld_40] = IIf(Trim(Mid(strZeile, 379, 1)) = "", Nothing, Trim(Mid(strZeile, 379, 1)))
-                        .[Buchungsart] = IIf(Trim(Mid(strZeile, 380, 1)) = "", Nothing, Trim(Mid(strZeile, 380, 1)))
-                        .[Buchungsgrund] = IIf(Trim(Mid(strZeile, 381, 1)) = "", Nothing, Trim(Mid(strZeile, 381, 1)))
-                        .[Filler_Feld_43] = IIf(Trim(Mid(strZeile, 382, 1)) = "", Nothing, Trim(Mid(strZeile, 382, 1)))
-                        .[Informationsbeleg] = IIf(Trim(Mid(strZeile, 383, 1)) = "", Nothing, Trim(Mid(strZeile, 383, 1)))
-                        .[Belegherkunft] = IIf(Trim(Mid(strZeile, 384, 1)) = "", Nothing, Trim(Mid(strZeile, 384, 1)))
-                        .[Filler_Feld_46] = IIf(Trim(Mid(strZeile, 385, 14)) = "", Nothing, Trim(Mid(strZeile, 385, 14)))
-                        .[Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen] = Mid(strZeile, 399, 13) / 10000
-                        .[Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen] = Mid(strZeile, 412, 13) / 10000
-                        .[Rechnungsdatum] = DateSerial(Mid(strZeile, 429, 4), Mid(strZeile, 427, 2), Mid(strZeile, 425, 2))
-                        .[Umsatzsteuerprozentsatz_informativ] = Mid(strZeile, 433, 5) / 10000
-                        .[Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ] = Mid(strZeile, 438, 11) / 100
-                        .[Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ] = Mid(strZeile, 449, 11) / 100
-                        .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] = Mid(strZeile, 460, 11) / 100
-                        .[Fälligkeitsdatum] = DateSerial(Mid(strZeile, 475, 4), Mid(strZeile, 473, 2), Mid(strZeile, 471, 2))
-                        .[Zahlungsziel_in_Tagen] = Mid(strZeile, 479, 3)
-                        .[Zahlungsart] = IIf(Trim(Mid(strZeile, 482, 8)) = "", Nothing, Trim(Mid(strZeile, 482, 8)))
-                        .[TC_Rechnungsnummer_gegenüber_dem_Nutzer] = IIf(Trim(Mid(strZeile, 490, 20)) = "", Nothing, Trim(Mid(strZeile, 490, 20)))
-                        .[TC_Rechnungsdatum] = DateSerial(Mid(strZeile, 514, 4), Mid(strZeile, 512, 2), Mid(strZeile, 510, 2))
-                        .[Zahlungszielgruppe] = IIf(Trim(Mid(strZeile, 518, 7)) = "", Nothing, Trim(Mid(strZeile, 518, 7)))
-                        .[Kunden_Kostenstelle_2] = IIf(Trim(Mid(strZeile, 525, 20)) = "", Nothing, Trim(Mid(strZeile, 525, 20)))
-                        .[Lieferzeit] = IIf(Trim(Mid(strZeile, 545, 6)) = "", Nothing, Trim(Mid(strZeile, 545, 6)))
-                        .[Fremdkartennummer] = IIf(Trim(Mid(strZeile, 551, 20)) = "", Nothing, Trim(Mid(strZeile, 551, 20)))
-                        .[OnBoardUnitID] = IIf(Trim(Mid(strZeile, 571, 20)) = "", Nothing, Trim(Mid(strZeile, 571, 20)))
-                        .[KFZ_Kennzeichen_komprimiert] = IIf(Trim(Mid(strZeile, 591, 16)) = "", Nothing, Trim(Mid(strZeile, 591, 16)))
-                        .[Kartenkategorie] = IIf(Trim(Mid(strZeile, 607, 8)) = "", Nothing, Trim(Mid(strZeile, 607, 8)))
-                        .[Rechnungsnummer_pro_Lieferland] = Mid(strZeile, 615, 13)
-                        .[Autobahnauffahrt] = IIf(Trim(Mid(strZeile, 628, 40)) = "", Nothing, Trim(Mid(strZeile, 628, 40)))
-                        .[Autobahnausfahrt] = IIf(Trim(Mid(strZeile, 668, 40)) = "", Nothing, Trim(Mid(strZeile, 668, 40)))
-                        .[Rabattschlüssel_der_französischen_Autobahngesellschaften] = IIf(Trim(Mid(strZeile, 708, 1)) = "", Nothing, Trim(Mid(strZeile, 708, 1)))
-                        .[Nummer_Belastungsanzeige] = Mid(strZeile, 709, 13)
-                        .[Betreuungsstelle] = IIf(Trim(Mid(strZeile, 722, 20)) = "", Nothing, Trim(Mid(strZeile, 722, 20)))
-                        .[Filler_Feld_72] = IIf(Trim(Mid(strZeile, 742, 20)) = "", Nothing, Trim(Mid(strZeile, 742, 20)))
-                        .[Akzeptanz_Medium] = IIf(Trim(Mid(strZeile, 762, 20)) = "", Nothing, Trim(Mid(strZeile, 762, 20)))
-                        .[Steuerkategorie] = IIf(Trim(Mid(strZeile, 782, 8)) = "", Nothing, Trim(Mid(strZeile, 782, 8)))
-                        .[UTA_Beleg_ID] = Mid(strZeile, 790, 11)
-                        .[UTA_Normalbeleg_ID] = Mid(strZeile, 801, 11)
-                        .[Gebühren_Bescheinigung_von] = DateSerial(Mid(strZeile, 816, 4), Mid(strZeile, 814, 2), Mid(strZeile, 812, 2))
-                        .[Gebühren_Bescheinigung_bis] = DateSerial(Mid(strZeile, 824, 4), Mid(strZeile, 822, 2), Mid(strZeile, 820, 2))
-                        .[Herausgeber_Nutzer_Nummer] = IIf(Trim(Mid(strZeile, 828, 20)) = "", Nothing, Trim(Mid(strZeile, 828, 20)))
-                        .[Maßeinheit] = IIf(Trim(Mid(strZeile, 848, 8)) = "", Nothing, Trim(Mid(strZeile, 848, 8)))
-                        .[Land_der_Akzeptanzstelle] = IIf(Trim(Mid(strZeile, 856, 3)) = "", Nothing, Trim(Mid(strZeile, 856, 3)))
-                        .[Postleitzahl_der_Akzeptanzstelle] = IIf(Trim(Mid(strZeile, 859, 7)) = "", Nothing, Trim(Mid(strZeile, 859, 7)))
-                        .[Steuerliches_Lieferland] = IIf(Trim(Mid(strZeile, 866, 3)) = "", Nothing, Trim(Mid(strZeile, 866, 3)))
-                        .[Steuerliche_Produktgruppe] = IIf(Trim(Mid(strZeile, 869, 5)) = "", Nothing, Trim(Mid(strZeile, 869, 5)))
-                        .[Leistungsort_verlagerbar] = IIf(Trim(Mid(strZeile, 874, 1)) = "", Nothing, Trim(Mid(strZeile, 874, 1)))
-
-                        Select Case .[Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen]
-                            Case "0"    'positiv
-                                curChecksumme = curChecksumme + .[Gesamtbetrag_Brutto_in_Darstellwährung]
-                            Case "1"    'negativ
-                                curChecksumme = curChecksumme - .[Gesamtbetrag_Brutto_in_Darstellwährung]
-                                .[Menge] = 0 - .[Menge]
-                                .[Einzelpreis_Brutto_in_Lieferlandwährung] = 0 - .[Einzelpreis_Brutto_in_Lieferlandwährung]
-                                .[Einzelpreis_Netto_in_Lieferlandwährung] = 0 - .[Einzelpreis_Netto_in_Lieferlandwährung]
-                                .[Betrag_Service_in_Lieferlandwährung] = 0 - .[Betrag_Service_in_Lieferlandwährung]
-                                .[Betrag_Nachlass_in_Lieferlandwährung] = 0 - .[Betrag_Nachlass_in_Lieferlandwährung]
-                                .[Gesamtbetrag_Netto_in_Lieferlandwährung] = 0 - .[Gesamtbetrag_Netto_in_Lieferlandwährung]
-                                .[Gesamtbetrag_Brutto_in_Lieferlandwährung] = 0 - .[Gesamtbetrag_Brutto_in_Lieferlandwährung]
-                                .[Betrag_Service_in_Darstellwährung] = 0 - .[Betrag_Service_in_Darstellwährung]
-                                .[Betrag_Nachlass_in_Darstellwährung] = 0 - .[Betrag_Nachlass_in_Darstellwährung]
-                                .[Gesamtbetrag_Netto_in_Darstellwährung] = 0 - .[Gesamtbetrag_Netto_in_Darstellwährung]
-                                .[Gesamtbetrag_Umsatzsteuer_in_Darstellwährung] = 0 - .[Gesamtbetrag_Umsatzsteuer_in_Darstellwährung]
-                                .[Gesamtbetrag_Brutto_in_Darstellwährung] = 0 - .[Gesamtbetrag_Brutto_in_Darstellwährung]
-                                .[Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen] = 0 - .[Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen]
-                                .[Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen] = 0 - .[Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen]
-                                .[Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ]
-                                .[Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ]
-                                .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ]
-                        End Select
-
-                        If onlyTestkunedn Then
-                            'nur KundenNr 100964 und 825040 speichern:
-                            If .[Kundennummer] = 100964 Or .[Kundennummer] = 825040 Then
-                                .SAVE()
-                            End If
-                        Else
-                            .SAVE()
                         End If
 
 
+                        booTrailerVorhanden = True
+                        lngRecordCount = lngRecordCount + 1
 
-                        'Dim clfArchiv As New cUTA.UTAArchiv(.Belegdatum, .UTA_Beleg_ID)
+                        ' Prüfsumme Anzahl der Sätze im File ohne Header und Trailer.
-                        'clfArchiv.Übertragungsnummer = .Übertragungsnummer
+                        If Trim(Mid(strZeile, 3, 13)) <> (lngRecordCount) Then
-                        'clfArchiv.ErstellDatumUhrzeit = .ErstellDatumUhrzeit
+                            MsgBox("Fehler: " & vbNewLine & "Prüfsumme in der Datei stimmt nicht mit der Zeilenanzahl der Datei überein! " & vbNewLine & "Record Count:  " & Trim(Mid(strZeile, 3, 13)) & vbCrLf & "Prüfsumme: " & (lngRecordCount) & vbCrLf)
-                        'clfArchiv.Übertragungsposition = .Übertragungsposition
+                            objFileRead.Close()
-                        'clfArchiv.Abrechnungsnummer = .Abrechnungsnummer
+                            Return False
-                        'clfArchiv.Datum_für_Lieferungen_und_Leistungen_bis = .Datum_für_Lieferungen_und_Leistungen_bis
+                        End If
-                        'clfArchiv.Rechnungsempfänger_Kundennummer = .Rechnungsempfänger_Kundennummer
-                        'clfArchiv.Abrechnungsdatum = .Abrechnungsdatum
-                        'clfArchiv.Kundennummer = .Kundennummer
-                        'clfArchiv.Kartennummer = .Kartennummer
-                        'clfArchiv.Akzeptanzstellennummer = .Akzeptanzstellennummer
-                        'clfArchiv.Standort_der_Akzeptanzstelle = .Standort_der_Akzeptanzstelle
-                        'clfArchiv.Lieferland = .Lieferland
-                        'clfArchiv.Belegnummer_des_Lieferanten = .Belegnummer_des_Lieferanten
-                        'clfArchiv.Kilometerstand = .Kilometerstand
-                        'clfArchiv.Fakturierwarenart = .Fakturierwarenart
-                        'clfArchiv.Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen = .Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen
-                        'clfArchiv.Menge = .Menge
-                        'clfArchiv.SB_BT = .SB_BT
-                        'clfArchiv.Umsatzsteuerprozentsatz = .Umsatzsteuerprozentsatz
-                        'clfArchiv.Lieferlandwährung_ISO = .Lieferlandwährung_ISO
-                        'clfArchiv.Einzelpreis_Netto_in_Lieferlandwährung = .Einzelpreis_Netto_in_Lieferlandwährung
-                        'clfArchiv.Einzelpreis_Brutto_in_Lieferlandwährung = .Einzelpreis_Brutto_in_Lieferlandwährung
-                        'clfArchiv.Einzelpreis_Netto_in_Lieferlandwährung = .Einzelpreis_Netto_in_Lieferlandwährung
-                        'clfArchiv.Betrag_Service_in_Lieferlandwährung = .Betrag_Service_in_Lieferlandwährung
-                        'clfArchiv.Betrag_Nachlass_in_Lieferlandwährung = .Betrag_Nachlass_in_Lieferlandwährung
-                        'clfArchiv.Gesamtbetrag_Netto_in_Lieferlandwährung = .Gesamtbetrag_Netto_in_Lieferlandwährung
-                        'clfArchiv.Gesamtbetrag_Brutto_in_Lieferlandwährung = .Gesamtbetrag_Brutto_in_Lieferlandwährung
-                        'clfArchiv.Darstellwährung_ISO = .Darstellwährung_ISO
-                        'clfArchiv.Betrag_Service_in_Darstellwährung = .Betrag_Service_in_Darstellwährung
-                        'clfArchiv.Betrag_Nachlass_in_Darstellwährung = .Betrag_Nachlass_in_Darstellwährung
-                        'clfArchiv.Gesamtbetrag_Netto_in_Darstellwährung = .Gesamtbetrag_Netto_in_Darstellwährung
-                        'clfArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = .Gesamtbetrag_Umsatzsteuer_in_Darstellwährung
-                        'clfArchiv.Gesamtbetrag_Brutto_in_Darstellwährung = .Gesamtbetrag_Brutto_in_Darstellwährung
-                        'clfArchiv.Prägetext_i_d_R_KFZ_Kennzeichen = .Prägetext_i_d_R_KFZ_Kennzeichen
-                        'clfArchiv.Kunden_Kostenstelle_1 = .Kunden_Kostenstelle_1
-                        'clfArchiv.Kartentyp = .Kartentyp
-                        'clfArchiv.Filler_Feld_35 = .Filler_Feld_35
-                        'clfArchiv.Filler_Feld_36 = .Filler_Feld_36
-                        'clfArchiv.KZ_Autobahn = .KZ_Autobahn
-                        'clfArchiv.INFO_Feld = .INFO_Feld
-                        'clfArchiv.KFZ_Kennzeichen = .KFZ_Kennzeichen
-                        'clfArchiv.Filler_Feld_40 = .Filler_Feld_40
-                        'clfArchiv.Buchungsart = .Buchungsart
-                        'clfArchiv.Buchungsgrund = .Buchungsgrund
-                        'clfArchiv.Filler_Feld_43 = .Filler_Feld_43
-                        'clfArchiv.Informationsbeleg = .Informationsbeleg
-                        'clfArchiv.Belegherkunft = .Belegherkunft
-                        'clfArchiv.Filler_Feld_46 = .Filler_Feld_46
-                        'clfArchiv.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen = .Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen
-                        'clfArchiv.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen = .Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen
-                        'clfArchiv.Rechnungsdatum = .Rechnungsdatum
-                        'clfArchiv.Umsatzsteuerprozentsatz_informativ = .Umsatzsteuerprozentsatz_informativ
-                        'clfArchiv.Betrag_Nachlass_in_Lieferlandwährung = .Betrag_Nachlass_in_Lieferlandwährung
-                        'clfArchiv.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ = .Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ
-                        'clfArchiv.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ = .Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ
-                        'clfArchiv.Fälligkeitsdatum = .Fälligkeitsdatum
-                        'clfArchiv.Zahlungsziel_in_Tagen = .Zahlungsziel_in_Tagen
-                        'clfArchiv.Zahlungsart = .Zahlungsart
-                        'clfArchiv.TC_Rechnungsnummer_gegenüber_dem_Nutzer = .TC_Rechnungsnummer_gegenüber_dem_Nutzer
-                        'clfArchiv.TC_Rechnungsdatum = .TC_Rechnungsdatum
-                        'clfArchiv.Zahlungszielgruppe = .Zahlungszielgruppe
-                        'clfArchiv.Kunden_Kostenstelle_2 = .Kunden_Kostenstelle_2
-                        'clfArchiv.Lieferzeit = .Lieferzeit
-                        'clfArchiv.Fremdkartennummer = .Fremdkartennummer
-                        'clfArchiv.OnBoardUnitID = .OnBoardUnitID
-                        'clfArchiv.KFZ_Kennzeichen_komprimiert = .KFZ_Kennzeichen_komprimiert
-                        'clfArchiv.Kartenkategorie = .Kartenkategorie
-                        'clfArchiv.Rechnungsnummer_pro_Lieferland = .Rechnungsnummer_pro_Lieferland
-                        'clfArchiv.Autobahnauffahrt = .Autobahnauffahrt
-                        'clfArchiv.Autobahnausfahrt = .Autobahnausfahrt
-                        'clfArchiv.Rabattschlüssel_der_französischen_Autobahngesellschaften = .Rabattschlüssel_der_französischen_Autobahngesellschaften
-                        'clfArchiv.Nummer_Belastungsanzeige = .Nummer_Belastungsanzeige
-                        'clfArchiv.Betreuungsstelle = .Betreuungsstelle
-                        'clfArchiv.Filler_Feld_72 = .Filler_Feld_72
-                        'clfArchiv.Akzeptanz_Medium = .Akzeptanz_Medium
-                        'clfArchiv.Steuerkategorie = .Steuerkategorie
-                        'clfArchiv.UTA_Normalbeleg_ID = .UTA_Normalbeleg_ID
-                        'clfArchiv.Gebühren_Bescheinigung_von = .Gebühren_Bescheinigung_von
-                        'clfArchiv.Gebühren_Bescheinigung_bis = .Gebühren_Bescheinigung_bis
-                        'clfArchiv.Herausgeber_Nutzer_Nummer = .Herausgeber_Nutzer_Nummer
-                        'clfArchiv.Maßeinheit = .Maßeinheit
-                        'clfArchiv.Land_der_Akzeptanzstelle = .Land_der_Akzeptanzstelle
-                        'clfArchiv.Postleitzahl_der_Akzeptanzstelle = .Postleitzahl_der_Akzeptanzstelle
-                        'clfArchiv.Steuerliches_Lieferland = .Steuerliches_Lieferland
-                        'clfArchiv.Steuerliche_Produktgruppe = .Steuerliche_Produktgruppe
-                        'clfArchiv.Leistungsort_verlagerbar = .Leistungsort_verlagerbar
-                        'clfArchiv.SAVE()
 
-                    End With
+                        ' Meldung bei Prüfsummenfehler.
+                        If booPrüfziffernfehler Then
+                            MsgBox("Datei kann wegen Prüfsummenfehler nicht verarbeitet werden.")
+                            objFileRead.Close()
 
-                Case "90"
+                        End If
+                    Case Else
+                        booPrüfziffernfehler = True
+                End Select
 
-                    If curChecksumme < 0 Then
+            Loop
-                        curChecksumme = 0 - curChecksumme
-                    End If
-                    If Trim(Mid(strZeile, 16, 18) / 100) <> Math.Round(curChecksumme, 2) Then
-                        MsgBox("Checksumme: " & Trim(Mid(strZeile, 16, 18) / 100) & vbCrLf & "Prüfsumme: " & curChecksumme & vbCrLf & "Datei kann wegen Prüfsummenfehler nicht verarbeitet werden")
-                        'Return False
-                    End If
 
 
-                    lngRecordCount = lngRecordCount + 1
+            Dim lngPKLine As Long = 0
-                    Dim clfTrailer As New cUTA.UTATrailer(lngÜbertragungsnummer, dtmErstellDatumUhrzeit)
+            lngRecordCount = 0
-                    With clfTrailer
+
-                        .ErstellDatumUhrzeit = dtmErstellDatumUhrzeit
+            'gleicher PKFileName wird nun aus CLFHeader gelöscht. CASCADE löscht dann zugehörige CLFBody und CLFTrailer.
-                        .Übertragungsnummer = lngÜbertragungsnummer
+            'If Not SQL.doSQL("DELETE tblUTAHeaderNew.ErstellDatumUhrzeit, tblUTAHeaderNew.Übertragungsnummer FROM tblUTAHeaderNew WHERE (((tblUTAHeaderNew.ErstellDatumUhrzeit)=" & Format$(dtmErstellDatumUhrzeit, "\#mm\/dd\/yyyy hh\:nn\:ss AM/PM\#") & ") AND ((tblUTAHeaderNew.Übertragungsnummer)=" & lngÜbertragungsnummer, "FMZOLL") Then
-                        .Anzahl_Sätze = Mid(strZeile, 3, 13)
+            '    MsgBox("Fehler beim Löschen des CLF-Headers")
-                        .Checksumme = Mid(strZeile, 16, 18) / 100
+            '    objFileRead.Close()
-                        .SAVE()
+            '    Return False
-                    End With
+            'End If
+
+            'If Not SQL.doSQL("UPDATE CLF SET PKFileName = '" & fi.Name.ToString & "'", "FMZOLL") Then
+            '    MsgBox("Fehler beim Update der CLF-Nr")
+            '    objFileRead.Close()
+            '    Return False
+            'End If
+            objFileRead.DiscardBufferedData()
+            objFileRead.BaseStream.Seek(0, System.IO.SeekOrigin.Begin)
+
+            Do While (objFileRead.Peek() > -1)
+                Dim strZeile = objFileRead.ReadLine()
+
+                Select Case Mid(strZeile, 1, 2)
+                    Case "10"
+                        booHeaderVorhanden = True
+                        lngRecordCount = lngRecordCount + 1
+                        dtmErstellDatumUhrzeit = DateSerial(Mid(strZeile, 35, 4), Mid(strZeile, 32, 2), Mid(strZeile, 29, 2)) & " " & TimeSerial(Mid(strZeile, 40, 2), Mid(strZeile, 43, 2), Mid(strZeile, 46, 2))
+                        lngÜbertragungsnummer = Mid(strZeile, 61, 6)
+                        'Dim ext = CInt(fi.Extension.Remove(0, 1))
+                        Dim clfHeader As New cUTA.UTAHeader(lngÜbertragungsnummer, dtmErstellDatumUhrzeit)
+                        With clfHeader
+                            .Absender_ID = Mid(strZeile, 10, 6)
+                            .Empfänger_ID = Mid(strZeile, 23, 6)
+                            .Filler_Feld_5 = IIf(Trim(Mid(strZeile, 39, 1)) = "", Nothing, Trim(Mid(strZeile, 39, 1)))
+                            .Abrechnungsnummer = IIf(Trim(Mid(strZeile, 48, 13)) = Nothing, "", Trim(Mid(strZeile, 48, 13)))
+                            .DTF_Format = IIf(Trim(Mid(strZeile, 67, 6)) = Nothing, "", Trim(Mid(strZeile, 67, 6)))
+                            .SAVE()
+                        End With
+
+                    Case "20"
+
+                        lngÜbertragungsposition = 6616
 
 
 
-                Case Else
+                        lngRecordCount = lngRecordCount + 1
-                    ' Andere RecordNumber überlesen.
+                        lngÜbertragungsposition = lngÜbertragungsposition + 1
-            End Select
+                        Dim clfBody As New cUTA.UTABody(lngÜbertragungsnummer, lngÜbertragungsposition, dtmErstellDatumUhrzeit)
+                        With clfBody
+                            .Übertragungsnummer = lngÜbertragungsnummer
+                            .Übertragungsposition = lngÜbertragungsposition
+                            .Abrechnungsnummer = Mid(strZeile, 3, 13)
+                            .[Datum_für_Lieferungen_und_Leistungen_bis] = DateSerial(Mid(strZeile, 20, 4), Mid(strZeile, 18, 2), Mid(strZeile, 16, 2))
+                            .[Rechnungsempfänger_Kundennummer] = Mid(strZeile, 24, 13)
+                            .[Abrechnungsdatum] = DateSerial(Mid(strZeile, 41, 4), Mid(strZeile, 39, 2), Mid(strZeile, 37, 2))
+                            .[Kundennummer] = Mid(strZeile, 45, 13)
+                            .[Kartennummer] = IIf(Trim(Mid(strZeile, 58, 19)) = "", Nothing, Trim(Mid(strZeile, 58, 19)))
+                            .[Belegdatum] = DateSerial(Mid(strZeile, 81, 4), Mid(strZeile, 79, 2), Mid(strZeile, 77, 2))
+                            .[Akzeptanzstellennummer] = Mid(strZeile, 85, 13)
+                            .[Standort_der_Akzeptanzstelle] = IIf(Trim(Mid(strZeile, 98, 25)) = "", Nothing, Trim(Mid(strZeile, 98, 25)))
+                            .[Lieferland] = IIf(Trim(Mid(strZeile, 123, 3)) = "", Nothing, Trim(Mid(strZeile, 123, 3)))
+                            .[Belegnummer_des_Lieferanten] = IIf(Trim(Mid(strZeile, 126, 13)) = "", Nothing, Trim(Mid(strZeile, 126, 13)))
+                            .[Kilometerstand] = Mid(strZeile, 139, 8)
+                            .[Fakturierwarenart] = IIf(Trim(Mid(strZeile, 147, 5)) = "", Nothing, Trim(Mid(strZeile, 147, 5)))
+                            .[Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen] = IIf(Trim(Mid(strZeile, 152, 1)) = "", Nothing, Trim(Mid(strZeile, 152, 1)))
+                            .[Menge] = Mid(strZeile, 153, 10) / 100
+                            .[SB_BT] = IIf(Trim(Mid(strZeile, 163, 1)) = "", Nothing, Trim(Mid(strZeile, 163, 1)))
+                            .[Umsatzsteuerprozentsatz] = Mid(strZeile, 164, 5) / 10000
+                            .[Lieferlandwährung_ISO] = IIf(Trim(Mid(strZeile, 169, 3)) = "", Nothing, Trim(Mid(strZeile, 169, 3)))
+                            .[Einzelpreis_Brutto_in_Lieferlandwährung] = Mid(strZeile, 172, 11) / 100
+                            .[Einzelpreis_Netto_in_Lieferlandwährung] = Mid(strZeile, 183, 11) / 100
+                            .[Betrag_Service_in_Lieferlandwährung] = Mid(strZeile, 194, 11) / 100
+                            .[Betrag_Nachlass_in_Lieferlandwährung] = Mid(strZeile, 205, 11) / 100
+                            .[Gesamtbetrag_Netto_in_Lieferlandwährung] = Mid(strZeile, 216, 11) / 100
+                            .[Gesamtbetrag_Brutto_in_Lieferlandwährung] = Mid(strZeile, 227, 11) / 100
+                            .[Darstellwährung_ISO] = IIf(Trim(Mid(strZeile, 238, 3)) = "", Nothing, Trim(Mid(strZeile, 238, 3)))
+                            .[Betrag_Service_in_Darstellwährung] = Mid(strZeile, 241, 11) / 100
+                            .[Betrag_Nachlass_in_Darstellwährung] = Mid(strZeile, 252, 11) / 100
+                            .[Gesamtbetrag_Netto_in_Darstellwährung] = Mid(strZeile, 263, 11) / 100
+                            .[Gesamtbetrag_Umsatzsteuer_in_Darstellwährung] = Mid(strZeile, 274, 11) / 100
+                            .[Gesamtbetrag_Brutto_in_Darstellwährung] = Mid(strZeile, 285, 11) / 100
+                            .[Prägetext_i_d_R_KFZ_Kennzeichen] = IIf(Trim(Mid(strZeile, 296, 16)) = "", Nothing, Trim(Mid(strZeile, 296, 16)))
+                            .[Kunden_Kostenstelle_1] = IIf(Trim(Mid(strZeile, 312, 20)) = "", Nothing, Trim(Mid(strZeile, 312, 20)))
+                            .[Kartentyp] = IIf(Trim(Mid(strZeile, 332, 8)) = "", Nothing, Trim(Mid(strZeile, 332, 8)))
+                            .[Filler_Feld_35] = IIf(Trim(Mid(strZeile, 340, 1)) = "", Nothing, Trim(Mid(strZeile, 340, 1)))
+                            .[Filler_Feld_36] = IIf(Trim(Mid(strZeile, 341, 3)) = "", Nothing, Trim(Mid(strZeile, 341, 3)))
+                            .[KZ_Autobahn] = IIf(Trim(Mid(strZeile, 344, 1)) = "", Nothing, Trim(Mid(strZeile, 344, 1)))
+                            .[INFO_Feld] = IIf(Trim(Mid(strZeile, 345, 18)) = "", Nothing, Trim(Mid(strZeile, 345, 18)))
+                            .[KFZ_Kennzeichen] = IIf(Trim(Mid(strZeile, 363, 16)) = "", Nothing, Trim(Mid(strZeile, 363, 16)))
+                            .[Filler_Feld_40] = IIf(Trim(Mid(strZeile, 379, 1)) = "", Nothing, Trim(Mid(strZeile, 379, 1)))
+                            .[Buchungsart] = IIf(Trim(Mid(strZeile, 380, 1)) = "", Nothing, Trim(Mid(strZeile, 380, 1)))
+                            .[Buchungsgrund] = IIf(Trim(Mid(strZeile, 381, 1)) = "", Nothing, Trim(Mid(strZeile, 381, 1)))
+                            .[Filler_Feld_43] = IIf(Trim(Mid(strZeile, 382, 1)) = "", Nothing, Trim(Mid(strZeile, 382, 1)))
+                            .[Informationsbeleg] = IIf(Trim(Mid(strZeile, 383, 1)) = "", Nothing, Trim(Mid(strZeile, 383, 1)))
+                            .[Belegherkunft] = IIf(Trim(Mid(strZeile, 384, 1)) = "", Nothing, Trim(Mid(strZeile, 384, 1)))
+                            .[Filler_Feld_46] = IIf(Trim(Mid(strZeile, 385, 14)) = "", Nothing, Trim(Mid(strZeile, 385, 14)))
+                            .[Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen] = Mid(strZeile, 399, 13) / 10000
+                            .[Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen] = Mid(strZeile, 412, 13) / 10000
+                            .[Rechnungsdatum] = DateSerial(Mid(strZeile, 429, 4), Mid(strZeile, 427, 2), Mid(strZeile, 425, 2))
+                            .[Umsatzsteuerprozentsatz_informativ] = Mid(strZeile, 433, 5) / 10000
+                            .[Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ] = Mid(strZeile, 438, 11) / 100
+                            .[Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ] = Mid(strZeile, 449, 11) / 100
+                            .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] = Mid(strZeile, 460, 11) / 100
+                            .[Fälligkeitsdatum] = DateSerial(Mid(strZeile, 475, 4), Mid(strZeile, 473, 2), Mid(strZeile, 471, 2))
+                            .[Zahlungsziel_in_Tagen] = Mid(strZeile, 479, 3)
+                            .[Zahlungsart] = IIf(Trim(Mid(strZeile, 482, 8)) = "", Nothing, Trim(Mid(strZeile, 482, 8)))
+                            .[TC_Rechnungsnummer_gegenüber_dem_Nutzer] = IIf(Trim(Mid(strZeile, 490, 20)) = "", Nothing, Trim(Mid(strZeile, 490, 20)))
+                            .[TC_Rechnungsdatum] = DateSerial(Mid(strZeile, 514, 4), Mid(strZeile, 512, 2), Mid(strZeile, 510, 2))
+                            .[Zahlungszielgruppe] = IIf(Trim(Mid(strZeile, 518, 7)) = "", Nothing, Trim(Mid(strZeile, 518, 7)))
+                            .[Kunden_Kostenstelle_2] = IIf(Trim(Mid(strZeile, 525, 20)) = "", Nothing, Trim(Mid(strZeile, 525, 20)))
+                            .[Lieferzeit] = IIf(Trim(Mid(strZeile, 545, 6)) = "", Nothing, Trim(Mid(strZeile, 545, 6)))
+                            .[Fremdkartennummer] = IIf(Trim(Mid(strZeile, 551, 20)) = "", Nothing, Trim(Mid(strZeile, 551, 20)))
+                            .[OnBoardUnitID] = IIf(Trim(Mid(strZeile, 571, 20)) = "", Nothing, Trim(Mid(strZeile, 571, 20)))
+                            .[KFZ_Kennzeichen_komprimiert] = IIf(Trim(Mid(strZeile, 591, 16)) = "", Nothing, Trim(Mid(strZeile, 591, 16)))
+                            .[Kartenkategorie] = IIf(Trim(Mid(strZeile, 607, 8)) = "", Nothing, Trim(Mid(strZeile, 607, 8)))
+                            .[Rechnungsnummer_pro_Lieferland] = Mid(strZeile, 615, 13)
+                            .[Autobahnauffahrt] = IIf(Trim(Mid(strZeile, 628, 40)) = "", Nothing, Trim(Mid(strZeile, 628, 40)))
+                            .[Autobahnausfahrt] = IIf(Trim(Mid(strZeile, 668, 40)) = "", Nothing, Trim(Mid(strZeile, 668, 40)))
+                            .[Rabattschlüssel_der_französischen_Autobahngesellschaften] = IIf(Trim(Mid(strZeile, 708, 1)) = "", Nothing, Trim(Mid(strZeile, 708, 1)))
+                            .[Nummer_Belastungsanzeige] = Mid(strZeile, 709, 13)
+                            .[Betreuungsstelle] = IIf(Trim(Mid(strZeile, 722, 20)) = "", Nothing, Trim(Mid(strZeile, 722, 20)))
+                            .[Filler_Feld_72] = IIf(Trim(Mid(strZeile, 742, 20)) = "", Nothing, Trim(Mid(strZeile, 742, 20)))
+                            .[Akzeptanz_Medium] = IIf(Trim(Mid(strZeile, 762, 20)) = "", Nothing, Trim(Mid(strZeile, 762, 20)))
+                            .[Steuerkategorie] = IIf(Trim(Mid(strZeile, 782, 8)) = "", Nothing, Trim(Mid(strZeile, 782, 8)))
+                            .[UTA_Beleg_ID] = Mid(strZeile, 790, 11)
+                            .[UTA_Normalbeleg_ID] = Mid(strZeile, 801, 11)
+                            .[Gebühren_Bescheinigung_von] = DateSerial(Mid(strZeile, 816, 4), Mid(strZeile, 814, 2), Mid(strZeile, 812, 2))
+                            .[Gebühren_Bescheinigung_bis] = DateSerial(Mid(strZeile, 824, 4), Mid(strZeile, 822, 2), Mid(strZeile, 820, 2))
+                            .[Herausgeber_Nutzer_Nummer] = IIf(Trim(Mid(strZeile, 828, 20)) = "", Nothing, Trim(Mid(strZeile, 828, 20)))
+                            .[Maßeinheit] = IIf(Trim(Mid(strZeile, 848, 8)) = "", Nothing, Trim(Mid(strZeile, 848, 8)))
+                            .[Land_der_Akzeptanzstelle] = IIf(Trim(Mid(strZeile, 856, 3)) = "", Nothing, Trim(Mid(strZeile, 856, 3)))
+                            .[Postleitzahl_der_Akzeptanzstelle] = IIf(Trim(Mid(strZeile, 859, 7)) = "", Nothing, Trim(Mid(strZeile, 859, 7)))
+                            .[Steuerliches_Lieferland] = IIf(Trim(Mid(strZeile, 866, 3)) = "", Nothing, Trim(Mid(strZeile, 866, 3)))
+                            .[Steuerliche_Produktgruppe] = IIf(Trim(Mid(strZeile, 869, 5)) = "", Nothing, Trim(Mid(strZeile, 869, 5)))
+                            .[Leistungsort_verlagerbar] = IIf(Trim(Mid(strZeile, 874, 1)) = "", Nothing, Trim(Mid(strZeile, 874, 1)))
 
-        Loop
+                            Select Case .[Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen]
+                                Case "0"    'positiv
+                                    curChecksumme = curChecksumme + .[Gesamtbetrag_Brutto_in_Darstellwährung]
+                                Case "1"    'negativ
+                                    curChecksumme = curChecksumme - .[Gesamtbetrag_Brutto_in_Darstellwährung]
+                                    .[Menge] = 0 - .[Menge]
+                                    .[Einzelpreis_Brutto_in_Lieferlandwährung] = 0 - .[Einzelpreis_Brutto_in_Lieferlandwährung]
+                                    .[Einzelpreis_Netto_in_Lieferlandwährung] = 0 - .[Einzelpreis_Netto_in_Lieferlandwährung]
+                                    .[Betrag_Service_in_Lieferlandwährung] = 0 - .[Betrag_Service_in_Lieferlandwährung]
+                                    .[Betrag_Nachlass_in_Lieferlandwährung] = 0 - .[Betrag_Nachlass_in_Lieferlandwährung]
+                                    .[Gesamtbetrag_Netto_in_Lieferlandwährung] = 0 - .[Gesamtbetrag_Netto_in_Lieferlandwährung]
+                                    .[Gesamtbetrag_Brutto_in_Lieferlandwährung] = 0 - .[Gesamtbetrag_Brutto_in_Lieferlandwährung]
+                                    .[Betrag_Service_in_Darstellwährung] = 0 - .[Betrag_Service_in_Darstellwährung]
+                                    .[Betrag_Nachlass_in_Darstellwährung] = 0 - .[Betrag_Nachlass_in_Darstellwährung]
+                                    .[Gesamtbetrag_Netto_in_Darstellwährung] = 0 - .[Gesamtbetrag_Netto_in_Darstellwährung]
+                                    .[Gesamtbetrag_Umsatzsteuer_in_Darstellwährung] = 0 - .[Gesamtbetrag_Umsatzsteuer_in_Darstellwährung]
+                                    .[Gesamtbetrag_Brutto_in_Darstellwährung] = 0 - .[Gesamtbetrag_Brutto_in_Darstellwährung]
+                                    .[Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen] = 0 - .[Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen]
+                                    .[Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen] = 0 - .[Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen]
+                                    .[Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ]
+                                    .[Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ]
+                                    .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ]
+                            End Select
+
+                            If onlyTestkunedn Then
+                                'nur KundenNr 100964 und 825040 speichern:
+                                If .[Kundennummer] = 100964 Or .[Kundennummer] = 825040 Then
+                                    .SAVE()
+                                End If
+                            Else
+                                .SAVE()
+                            End If
+
+
+
+                            'Dim clfArchiv As New cUTA.UTAArchiv(.Belegdatum, .UTA_Beleg_ID)
+                            'clfArchiv.Übertragungsnummer = .Übertragungsnummer
+                            'clfArchiv.ErstellDatumUhrzeit = .ErstellDatumUhrzeit
+                            'clfArchiv.Übertragungsposition = .Übertragungsposition
+                            'clfArchiv.Abrechnungsnummer = .Abrechnungsnummer
+                            'clfArchiv.Datum_für_Lieferungen_und_Leistungen_bis = .Datum_für_Lieferungen_und_Leistungen_bis
+                            'clfArchiv.Rechnungsempfänger_Kundennummer = .Rechnungsempfänger_Kundennummer
+                            'clfArchiv.Abrechnungsdatum = .Abrechnungsdatum
+                            'clfArchiv.Kundennummer = .Kundennummer
+                            'clfArchiv.Kartennummer = .Kartennummer
+                            'clfArchiv.Akzeptanzstellennummer = .Akzeptanzstellennummer
+                            'clfArchiv.Standort_der_Akzeptanzstelle = .Standort_der_Akzeptanzstelle
+                            'clfArchiv.Lieferland = .Lieferland
+                            'clfArchiv.Belegnummer_des_Lieferanten = .Belegnummer_des_Lieferanten
+                            'clfArchiv.Kilometerstand = .Kilometerstand
+                            'clfArchiv.Fakturierwarenart = .Fakturierwarenart
+                            'clfArchiv.Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen = .Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen
+                            'clfArchiv.Menge = .Menge
+                            'clfArchiv.SB_BT = .SB_BT
+                            'clfArchiv.Umsatzsteuerprozentsatz = .Umsatzsteuerprozentsatz
+                            'clfArchiv.Lieferlandwährung_ISO = .Lieferlandwährung_ISO
+                            'clfArchiv.Einzelpreis_Netto_in_Lieferlandwährung = .Einzelpreis_Netto_in_Lieferlandwährung
+                            'clfArchiv.Einzelpreis_Brutto_in_Lieferlandwährung = .Einzelpreis_Brutto_in_Lieferlandwährung
+                            'clfArchiv.Einzelpreis_Netto_in_Lieferlandwährung = .Einzelpreis_Netto_in_Lieferlandwährung
+                            'clfArchiv.Betrag_Service_in_Lieferlandwährung = .Betrag_Service_in_Lieferlandwährung
+                            'clfArchiv.Betrag_Nachlass_in_Lieferlandwährung = .Betrag_Nachlass_in_Lieferlandwährung
+                            'clfArchiv.Gesamtbetrag_Netto_in_Lieferlandwährung = .Gesamtbetrag_Netto_in_Lieferlandwährung
+                            'clfArchiv.Gesamtbetrag_Brutto_in_Lieferlandwährung = .Gesamtbetrag_Brutto_in_Lieferlandwährung
+                            'clfArchiv.Darstellwährung_ISO = .Darstellwährung_ISO
+                            'clfArchiv.Betrag_Service_in_Darstellwährung = .Betrag_Service_in_Darstellwährung
+                            'clfArchiv.Betrag_Nachlass_in_Darstellwährung = .Betrag_Nachlass_in_Darstellwährung
+                            'clfArchiv.Gesamtbetrag_Netto_in_Darstellwährung = .Gesamtbetrag_Netto_in_Darstellwährung
+                            'clfArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = .Gesamtbetrag_Umsatzsteuer_in_Darstellwährung
+                            'clfArchiv.Gesamtbetrag_Brutto_in_Darstellwährung = .Gesamtbetrag_Brutto_in_Darstellwährung
+                            'clfArchiv.Prägetext_i_d_R_KFZ_Kennzeichen = .Prägetext_i_d_R_KFZ_Kennzeichen
+                            'clfArchiv.Kunden_Kostenstelle_1 = .Kunden_Kostenstelle_1
+                            'clfArchiv.Kartentyp = .Kartentyp
+                            'clfArchiv.Filler_Feld_35 = .Filler_Feld_35
+                            'clfArchiv.Filler_Feld_36 = .Filler_Feld_36
+                            'clfArchiv.KZ_Autobahn = .KZ_Autobahn
+                            'clfArchiv.INFO_Feld = .INFO_Feld
+                            'clfArchiv.KFZ_Kennzeichen = .KFZ_Kennzeichen
+                            'clfArchiv.Filler_Feld_40 = .Filler_Feld_40
+                            'clfArchiv.Buchungsart = .Buchungsart
+                            'clfArchiv.Buchungsgrund = .Buchungsgrund
+                            'clfArchiv.Filler_Feld_43 = .Filler_Feld_43
+                            'clfArchiv.Informationsbeleg = .Informationsbeleg
+                            'clfArchiv.Belegherkunft = .Belegherkunft
+                            'clfArchiv.Filler_Feld_46 = .Filler_Feld_46
+                            'clfArchiv.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen = .Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen
+                            'clfArchiv.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen = .Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen
+                            'clfArchiv.Rechnungsdatum = .Rechnungsdatum
+                            'clfArchiv.Umsatzsteuerprozentsatz_informativ = .Umsatzsteuerprozentsatz_informativ
+                            'clfArchiv.Betrag_Nachlass_in_Lieferlandwährung = .Betrag_Nachlass_in_Lieferlandwährung
+                            'clfArchiv.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ = .Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ
+                            'clfArchiv.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ = .Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ
+                            'clfArchiv.Fälligkeitsdatum = .Fälligkeitsdatum
+                            'clfArchiv.Zahlungsziel_in_Tagen = .Zahlungsziel_in_Tagen
+                            'clfArchiv.Zahlungsart = .Zahlungsart
+                            'clfArchiv.TC_Rechnungsnummer_gegenüber_dem_Nutzer = .TC_Rechnungsnummer_gegenüber_dem_Nutzer
+                            'clfArchiv.TC_Rechnungsdatum = .TC_Rechnungsdatum
+                            'clfArchiv.Zahlungszielgruppe = .Zahlungszielgruppe
+                            'clfArchiv.Kunden_Kostenstelle_2 = .Kunden_Kostenstelle_2
+                            'clfArchiv.Lieferzeit = .Lieferzeit
+                            'clfArchiv.Fremdkartennummer = .Fremdkartennummer
+                            'clfArchiv.OnBoardUnitID = .OnBoardUnitID
+                            'clfArchiv.KFZ_Kennzeichen_komprimiert = .KFZ_Kennzeichen_komprimiert
+                            'clfArchiv.Kartenkategorie = .Kartenkategorie
+                            'clfArchiv.Rechnungsnummer_pro_Lieferland = .Rechnungsnummer_pro_Lieferland
+                            'clfArchiv.Autobahnauffahrt = .Autobahnauffahrt
+                            'clfArchiv.Autobahnausfahrt = .Autobahnausfahrt
+                            'clfArchiv.Rabattschlüssel_der_französischen_Autobahngesellschaften = .Rabattschlüssel_der_französischen_Autobahngesellschaften
+                            'clfArchiv.Nummer_Belastungsanzeige = .Nummer_Belastungsanzeige
+                            'clfArchiv.Betreuungsstelle = .Betreuungsstelle
+                            'clfArchiv.Filler_Feld_72 = .Filler_Feld_72
+                            'clfArchiv.Akzeptanz_Medium = .Akzeptanz_Medium
+                            'clfArchiv.Steuerkategorie = .Steuerkategorie
+                            'clfArchiv.UTA_Normalbeleg_ID = .UTA_Normalbeleg_ID
+                            'clfArchiv.Gebühren_Bescheinigung_von = .Gebühren_Bescheinigung_von
+                            'clfArchiv.Gebühren_Bescheinigung_bis = .Gebühren_Bescheinigung_bis
+                            'clfArchiv.Herausgeber_Nutzer_Nummer = .Herausgeber_Nutzer_Nummer
+                            'clfArchiv.Maßeinheit = .Maßeinheit
+                            'clfArchiv.Land_der_Akzeptanzstelle = .Land_der_Akzeptanzstelle
+                            'clfArchiv.Postleitzahl_der_Akzeptanzstelle = .Postleitzahl_der_Akzeptanzstelle
+                            'clfArchiv.Steuerliches_Lieferland = .Steuerliches_Lieferland
+                            'clfArchiv.Steuerliche_Produktgruppe = .Steuerliche_Produktgruppe
+                            'clfArchiv.Leistungsort_verlagerbar = .Leistungsort_verlagerbar
+                            'clfArchiv.SAVE()
+
+                        End With
+
+                    Case "90"
+
+                        If curChecksumme < 0 Then
+                            curChecksumme = 0 - curChecksumme
+                        End If
+                        If Trim(Mid(strZeile, 16, 18) / 100) <> Math.Round(curChecksumme, 2) Then
+                            MsgBox("Checksumme: " & Trim(Mid(strZeile, 16, 18) / 100) & vbCrLf & "Prüfsumme: " & curChecksumme & vbCrLf & "Datei kann wegen Prüfsummenfehler nicht verarbeitet werden")
+                            'Return False
+                        End If
+
+
+                        lngRecordCount = lngRecordCount + 1
+                        Dim clfTrailer As New cUTA.UTATrailer(lngÜbertragungsnummer, dtmErstellDatumUhrzeit)
+                        With clfTrailer
+                            .ErstellDatumUhrzeit = dtmErstellDatumUhrzeit
+                            .Übertragungsnummer = lngÜbertragungsnummer
+                            .Anzahl_Sätze = Mid(strZeile, 3, 13)
+                            .Checksumme = Mid(strZeile, 16, 18) / 100
+                            .SAVE()
+                        End With
+
+
+
+                    Case Else
+                        ' Andere RecordNumber überlesen.
+                End Select
+
+            Loop
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
         cnt = CInt(lngRecordCount)
         objFileRead.Close()
         Return True

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

@@ -1,14 +1,10 @@
 Imports System.Data.SqlClient
 Imports System.Net
 Imports System.Reflection
-Imports System.ServiceModel.Configuration
-Imports System.ServiceModel.Security
 Imports System.Threading
-Imports System.Web.Routing
 Imports System.Windows.Forms
-Imports System.Windows.Forms.VisualStyles.VisualStyleElement
 Imports Chilkat
-Imports Newtonsoft.Json.Linq
+Imports VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS
 
 Public Class cATEZ_NCTS_Sessions
 
@@ -17,6 +13,7 @@ Public Class cATEZ_NCTS_Sessions
     Public Property datetime As DateTime = Now()
     Public Property refresh_token As String
     Public Property token_validuntil As DateTime
+    Public Property program As String
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
@@ -30,18 +27,24 @@ Public Class cATEZ_NCTS_Sessions
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("datetime", datetime))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("refresh_token", refresh_token))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_validuntil", token_validuntil))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("program", program))
 
         Return list
     End Function
 
     Sub New()
-        LOAD()
+        LOAD("")
     End Sub
 
-    Sub New(token As String, refreshtoken As String, timestamp As DateTime)
+    Sub New(Program As String)
+        LOAD(Program)
+    End Sub
+
+    Sub New(token As String, refreshtoken As String, timestamp As DateTime, program As String)
         Me.token = token
         Me.refresh_token = refreshtoken
         token_validuntil = timestamp
+        program = program
         SAVE()
     End Sub
 
@@ -80,11 +83,11 @@ Public Class cATEZ_NCTS_Sessions
     End Function
 
 
-    Public Sub LOAD()
+    Public Sub LOAD(Program As String)
         Try
             hasEntry = False
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT TOP(1) * FROM tblATEZ_NCTS_Sessions where token_validuntil >= dateadd(minute,-10,getdate()) order by datetime desc ", conn)
+                Using cmd As New SqlCommand("SELECT TOP(1) * FROM tblATEZ_NCTS_Sessions where token_validuntil >= dateadd(minute,-10,getdate()) " & IIf(Program <> "", " AND program = '" & Program & "' ", "") & " order by datetime desc ", conn)
                     Dim dr = cmd.ExecuteReader()
 
                     If dr.Read Then
@@ -621,26 +624,26 @@ Public Class cATEZ_NCTS_IN
     Dim SQl As New SQL
     Shared apiSettingsloaded As Boolean = False
 
-    Sub New(program As String)
+    Sub New(program As String, Optional errorMessage As Boolean = True)
         API = SQl.loadDgvBySql("SELECT top(1) * FROM tblAPIEinstellungen WHERE api_program='" & program & "' and api_productive ='" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "0", "1") & "'", "ADMIN")
         If API.Rows.Count = 0 Then
-            MsgBox("keine gültigen API-Einstellungen für " & program & " gefunden!")
+            If errorMessage Then MsgBox("keine gültigen API-Einstellungen für " & program & " gefunden!")
         Else
             apiSettingsloaded = True
             API_STRING = API.Rows(0).Item("api_url")
 
             If Not IsDBNull(API.Rows(0).Item("api_debugpath")) AndAlso API.Rows(0).Item("api_debugpath") <> "" Then
-                Rest.VerboseLogging = True
+                rest.VerboseLogging = True
-                Rest.DebugLogFilePath = API.Rows(0).Item("api_debugpath") & program & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_Test", "") & ".txt"
+                rest.DebugLogFilePath = API.Rows(0).Item("api_debugpath") & program & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_Test", "") & ".txt"
             Else
-                Rest.VerboseLogging = False
+                rest.VerboseLogging = False
             End If
 
         End If
-        API_STRING = API.Rows(0).Item("api_url")
+
     End Sub
 
-    Shared Function SendRequestAuthentificationToken(ByVal myuri As String, ByVal contentType As String, ByVal method As String, ByRef Itoken As String) As String
+    Shared Function SendRequestAuthentificationToken(ByVal myuri As String, ByVal contentType As String, ByVal method As String, ByRef Itoken As String, ByVal program As String, Optional client_id As String = "", Optional grant_type As String = "") As String
         Try
 
             Dim session = New cATEZ_NCTS_Sessions()
@@ -673,8 +676,10 @@ Public Class cATEZ_NCTS_IN
 
 
             Dim json As New Chilkat.JsonObject
-            json.UpdateString("password", API.Rows(0).Item("api_password"))
             json.UpdateString("username", API.Rows(0).Item("api_user"))
+            json.UpdateString("password", API.Rows(0).Item("api_password"))
+            If client_id <> "" Then json.UpdateString("client_id", client_id)
+            If grant_type <> "" Then json.UpdateString("grant_type", grant_type)
 
 
             rest.AddHeader("Content-Type", contentType)
@@ -697,10 +702,10 @@ Public Class cATEZ_NCTS_IN
             jsonResp.LoadSb(sbResponseBody)
             Itoken = jsonResp.StringOf("access_token")
             token = Itoken
-            refresh_token = jsonResp.StringOf("refresh_token")
+            refresh_token = If(jsonResp.StringOf("refresh_token"), "")
             Dim now As DateTime = DateTime.Now()
             now = now.AddSeconds(jsonResp.IntOf("expires_in"))
-            session = New cATEZ_NCTS_Sessions(Itoken, refresh_token, now.ToString("yyyy-MM-dd HH:mm:ss"))
+            session = New cATEZ_NCTS_Sessions(Itoken, refresh_token, now.ToString("yyyy-MM-dd HH:mm:ss"), program)
             sessionID = session.session_Id
 
             Return rest.ResponseStatusCode
@@ -710,17 +715,27 @@ Public Class cATEZ_NCTS_IN
 
     End Function
 
-    Shared Function authenticate() As String
+    Shared Function authenticate(program As String, Optional client_id As String = "", Optional grant_type As String = "") As String
 
-        Dim myUri As String = API_STRING & "/api/tds/auth/"
+        Dim myUri As String = API_STRING
-        Dim response = SendRequestAuthentificationToken(myUri, "application/json", "POST", token)
+        Dim contentType = "application/json"
+
+        Select Case program
+            Case "NCTS" : myUri &= "/api/tds/auth/"
+            Case "VAT" : myUri &= "/token" : contentType = "application/x-www-form-urlencoded"
+
+
+
+        End Select
+
+        Dim response = SendRequestAuthentificationToken(myUri, contentType, "POST", token, program, client_id, grant_type)
 
         Return response
 
 
     End Function
 
-    Shared Function SendRequestWithAuthHeader(acceptContentType As String, ByRef failureDesc As String) As String
+    Shared Function SendRequestWithAuthHeader(acceptContentType As String, ByRef failureDesc As String, myUrl As String, Method As String) As String
         Try
 
             VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
@@ -755,7 +770,7 @@ Public Class cATEZ_NCTS_IN
             'rest.PercentDoneOnSend = True
             rest.IdleTimeoutMs = 5000 * 31
 
-            success = rest.SendReqSb("POST", "/api/integrations/verag", sbRequestBody)
+            success = rest.SendReqSb(Method, myUrl, sbRequestBody)
 
             Dim responseStatusCode = rest.ReadResponseHeader()
             If (responseStatusCode < 0) Then
@@ -816,7 +831,7 @@ Public Class cATEZ_NCTS_IN
         End Try
     End Function
 
-    Shared Function setJson(ncts As cATEZ_NCTS_DATA)
+    Shared Function setJsonNCTS(ncts As cATEZ_NCTS_DATA)
 
         jsonData.Clear()
         ncts.json = ""
@@ -868,6 +883,21 @@ Public Class cATEZ_NCTS_IN
 
     End Function
 
+
+    Shared Function setJsonVAT(documentType As String, docID As Integer)
+
+        jsonData.Clear()
+
+        Dim success As Boolean
+        success = jsonData.UpdateString("document_type", documentType)
+        Dim base64 As Chilkat.BinData
+        success = base64.LoadFile(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(docID))
+        success = jsonData.UpdateString("document_base64", base64.GetEncoded("base64"))
+
+        Return success
+
+    End Function
+
     Public Function setJsonPDF(ncts As cATEZ_NCTS_DATA, dgv As DataGridView)
 
         Dim success As Boolean
@@ -894,4 +924,7 @@ Public Class cATEZ_NCTS_IN
     End Function
 
 
+
+
+
 End Class

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -524,7 +524,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
     Shared Function getISO2LandFromISO3Land(Iso3Land As String)
         If Iso3Land Is Nothing Then Return Nothing
         If Iso3Land.Length <> 3 Then Return Nothing
-        Dim sqlstr = "SELECT TOP 1 isnull(LandKz,'') AS LandKzISO2 from [Länderverzeichnis für die Außenhandelsstatistik] where LandKz_ISO_3 = '" & Iso3Land & "' "
+        Dim sqlstr = "SELECT TOP 1 isnull(LandKz,'') AS LandKzISO2 from [Länderverzeichnis für die Außenhandelsstatistik] where LandKz_ISO_3 = Replace('" & Iso3Land & "','SLO','SVN')"
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
         Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
     End Function