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

SDL/Fakturierung/cFakturierung.vb

@@ -1700,10 +1700,16 @@ Public Class cFakturierung
                                                              rpt.lblZwText.Visible = True
                                                              rpt.lblZWSumme.Visible = True
 
-                                                             rpt.lblSteuersatz.Text = ""
+                                                             If RECHNUNG.Firma_ID = 19 Then 'Bei MDM ausblenden!
-                                                             rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture)
+                                                                 rpt.lblSteuersatz.Text = ""
-                                                             rpt.lblSteuersatz.Visible = True
+                                                                 rpt.lblSteuerbetrag.Visible = False
-                                                             rpt.lblSteuerbetrag.Visible = True
+                                                             Else
+                                                                 rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture)
+                                                                 rpt.lblSteuersatz.Visible = True
+                                                                 rpt.lblSteuerbetrag.Visible = True
+
+                                                             End If
+
                                                          Else
 
                                                              If sumSteuerfrei = 0 Or sumSteuerpflichtig = 0 Then
@@ -1718,6 +1724,7 @@ Public Class cFakturierung
 
                                                          'rpt.lblSteuersatz.Visible = False
                                                          'rpt.lblSteuerbetrag.Visible = False
+
                                                          rpt.lblSteuerpflichtigGes.Visible = False
                                                          rpt.lblSteuerfreiGes.Visible = False
                                                          rpt.lblZwText.Visible = False

SDL/Fakturierung/frmFaktEmail.vb

@@ -785,44 +785,45 @@ Public Class frmFaktEmail
                         If SPEDBUCH.hasEntry AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115) Then
 
                             Dim USTV_ANTRAG As New cUSTVAntrag(RECHNUNG.ErfassungsNr)
-
                             Dim bearbGeb As Double = 0
+                            Dim hasVZ As Boolean = False
+
+                            For Each pos In USTV_ANTRAG.POSITIONEN
+                                If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde!
+                                    hasVZ = True
+                                    Exit For
+                                End If
+                            Next
 
                             For Each r As cRechnungsausgangPositionen In RECHNUNG.POSITIONEN
 
-                                If r.BerechnungsartNr = 8 AndAlso (r.LeistungsBez.ToLower.Contains("mwst") Or r.LeistungsBez.ToLower.Contains("moest")) Then bearbGeb += r.Preis
+                                If r.BerechnungsartNr = 8 AndAlso (r.LeistungsBez.ToLower.Contains("mwst") Or r.LeistungsBez.ToLower.Contains("moest") Or r.LeistungsBez.ToLower.Contains("vat") Or r.LeistungsBez.ToLower.Contains("excise duty") Or r.LeistungsBez.ToLower.Contains("tva")) Then bearbGeb += r.Preis
 
                             Next
 
+                            'nur bei NICHT VZ!
+                            If Not hasVZ Then
+                                Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr + 1)
+                                If Not ANTR_ERSTATTUNG.hasEntry Then
+                                    ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
+                                    ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
+                                    ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1
+                                    ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb
+                                    ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb
+                                    ANTR_ERSTATTUNG.SAVE()
+                                End If
 
-                            Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr + 1)
+
-                            If Not ANTR_ERSTATTUNG.hasEntry Then
+                                If IsDBNull(USTV_ANTRAG.UStVAn_VZBetrag) AndAlso IsDBNull(USTV_ANTRAG.UStVAn_VZDatum) Then
-                                ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
+
-                                ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
+                                    USTV_ANTRAG.UStVAn_VZBetrag = bearbGeb
-                                ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1
+                                    USTV_ANTRAG.UStVAn_VZDatum = RECHNUNG.RechnungsDatum
-                                ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb * -1
+                                    USTV_ANTRAG.SAVE()
-                                ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb * -1
+
-                                ANTR_ERSTATTUNG.SAVE()
+                                End If
                             End If
 
-
+                            If hasVZ Then
-                            If IsDBNull(USTV_ANTRAG.UStVAn_VZBetrag) AndAlso IsDBNull(USTV_ANTRAG.UStVAn_VZDatum) Then
-
-                                USTV_ANTRAG.UStVAn_VZBetrag = bearbGeb * -1
-                                USTV_ANTRAG.UStVAn_VZDatum = RECHNUNG.RechnungsDatum
-                                USTV_ANTRAG.SAVE()
-
-                            End If
-
-                            Dim hasVZ As Boolean = False
-                                For Each pos In USTV_ANTRAG.POSITIONEN
-                                    If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde!
-                                        hasVZ = True
-                                        Exit For
-                                    End If
-                                Next
-
-                                If hasVZ Then
                                     Dim SQL As New SQL
 
                                     For Each pos As cUStVPositionen In USTV_ANTRAG.POSITIONEN
@@ -837,17 +838,16 @@ Public Class frmFaktEmail
                                     Dim count_nichtAbgerVZ As Integer = -1
                                     count_nichtAbgerVZ = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVPositionen] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & "  and  [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) = 0", "FMZOLL"))
                                     If count_nichtAbgerVZ = 0 Then
-                                        SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " )", "FMZOLL")
+                                    SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 AND [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " )", "FMZOLL")
-                                    End If
-
-
-
                                 End If
 
 
                             End If
 
 
+                            End If
+
+
                         End If
 
                     '------------------------------------------------------------------------------------------

SDL/My Project/Resources.Designer.vb

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

SDL/My Project/Resources.resx

@@ -952,4 +952,10 @@
   <data name="RG_ZF_NEW" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\RG_ZF_NEW.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
+  <data name="Auswertung_divers" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Auswertung_divers.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="Detailauswertung_divers" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Detailauswertung_divers.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
 </root>

SDL/SDL.vbproj

@@ -4691,6 +4691,8 @@
     <None Include="andreas.cer" />
     <None Include="ClassDiagram1.cd" />
     <None Include="PrivateCodeSignaturDaniel20240131.pfx" />
+    <None Include="Resources\Auswertung_divers.xlsx" />
+    <None Include="Resources\Detailauswertung_divers.xlsx" />
     <None Include="Resources\FA_Graz_EV-Veranlagung_Muster.xlsx">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb

@@ -64,6 +64,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.dgvLKW = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.pnlOpt = New System.Windows.Forms.Panel()
         Me.pnlBerichte = New System.Windows.Forms.Panel()
+        Me.cbxDetailbericht = New System.Windows.Forms.CheckBox()
         Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Button25 = New System.Windows.Forms.Button()
         Me.Button24 = New System.Windows.Forms.Button()
@@ -77,7 +78,8 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ZFSteyrZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Button20 = New System.Windows.Forms.Button()
         Me.Label46 = New System.Windows.Forms.Label()
@@ -203,7 +205,6 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Label45 = New System.Windows.Forms.Label()
         Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.SplitContainer = New System.Windows.Forms.SplitContainer()
-        Me.cbxDetailbericht = New System.Windows.Forms.CheckBox()
         Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
         Me.pnlRechts.SuspendLayout()
         CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -815,6 +816,17 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.pnlBerichte.TabIndex = 6
         Me.pnlBerichte.Visible = False
         '
+        'cbxDetailbericht
+        '
+        Me.cbxDetailbericht.AutoSize = True
+        Me.cbxDetailbericht.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.cbxDetailbericht.Location = New System.Drawing.Point(725, 139)
+        Me.cbxDetailbericht.Name = "cbxDetailbericht"
+        Me.cbxDetailbericht.Size = New System.Drawing.Size(85, 17)
+        Me.cbxDetailbericht.TabIndex = 59
+        Me.cbxDetailbericht.Text = "Detailbericht"
+        Me.cbxDetailbericht.UseVisualStyleBackColor = False
+        '
         'MyComboBox2
         '
         Me.MyComboBox2._allowedValuesFreiText = Nothing
@@ -933,7 +945,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         'KundenauswertungenToolStripMenuItem1
         '
         Me.KundenauswertungenToolStripMenuItem1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem, Me.ZFSteyrZeitraumAuswählenToolStripMenuItem, Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem, Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem})
+        Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem, Me.ZFSteyrZeitraumAuswählenToolStripMenuItem, Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem, Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem, Me.ToolStripMenuItem1})
         Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
         Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White
         Me.KundenauswertungenToolStripMenuItem1.Name = "KundenauswertungenToolStripMenuItem1"
@@ -963,13 +975,20 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)"
         Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Visible = False
         '
-        'FlenderBocholtZeitraumAuswählenToolStripMenuItem
+        'AuswertungDiversZeitraumAuswählenToolStripMenuItem
         '
-        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
-        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Name = "FlenderBocholtZeitraumAuswählenToolStripMenuItem"
+        Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Name = "AuswertungDiversZeitraumAuswählenToolStripMenuItem"
-        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
+        Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
-        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)"
+        Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)"
-        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Visible = False
+        Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Visible = False
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(316, 30)
+        Me.ToolStripMenuItem1.Text = "div Kunde (Zeitraum auswählen)"
         '
         'cboHandlingssatz
         '
@@ -2836,17 +2855,6 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.SplitContainer.SplitterWidth = 2
         Me.SplitContainer.TabIndex = 3
         '
-        'cbxDetailbericht
-        '
-        Me.cbxDetailbericht.AutoSize = True
-        Me.cbxDetailbericht.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.cbxDetailbericht.Location = New System.Drawing.Point(725, 139)
-        Me.cbxDetailbericht.Name = "cbxDetailbericht"
-        Me.cbxDetailbericht.Size = New System.Drawing.Size(85, 17)
-        Me.cbxDetailbericht.TabIndex = 59
-        Me.cbxDetailbericht.Text = "Detailbericht"
-        Me.cbxDetailbericht.UseVisualStyleBackColor = False
-        '
         'usrCntlSpeditionsBuchSuche
         '
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -3055,7 +3063,7 @@ Partial Class usrCntlSpeditionsBuchSuche
     Friend WithEvents Button22 As Button
     Friend WithEvents Button23 As Button
     Friend WithEvents txtZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
-    Friend WithEvents FlenderBocholtZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents AuswertungDiversZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents lblVermerke As Label
     Friend WithEvents Button24 As Button
@@ -3065,4 +3073,5 @@ Partial Class usrCntlSpeditionsBuchSuche
     Friend WithEvents ZFSteyrZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents cbxRptDetailsZahlungsdetails As CheckBox
     Friend WithEvents cbxDetailbericht As CheckBox
+    Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
 End Class

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb

@@ -2327,7 +2327,7 @@ Public Class usrCntlSpeditionsBuchSuche
                             Try
                                 Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
                                 If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
-                                    Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis
+                                    Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.RechnungspreisohneWahrung
                                     Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
                                     Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
                                     Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
@@ -2687,7 +2687,7 @@ Public Class usrCntlSpeditionsBuchSuche
         Next
     End Sub
 
-    Private Sub FlenderBocholtZeitraumAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FlenderBocholtZeitraumAuswählenToolStripMenuItem.Click
+    Private Sub FlenderBocholtZeitraumAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswertungDiversZeitraumAuswählenToolStripMenuItem.Click
         lblKdAusFortschritt.Text = "lädt..."
         Me.Cursor = Cursors.WaitCursor
         Try
@@ -2793,4 +2793,271 @@ Public Class usrCntlSpeditionsBuchSuche
 
     End Sub
 
+    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
+
+        Dim kdnrsrch As Integer = -1
+        Dim KUNDE
+
+        If kdnrsrch < 0 Then
+
+            Dim inputKdNr = InputBox("Bitte KdNr eingeben", "Kundenauswertung generieren")
+            If inputKdNr <> "" AndAlso IsNumeric(inputKdNr) AndAlso inputKdNr > 0 Then
+                kdnrsrch = inputKdNr
+
+                KUNDE = New cKunde(kdnrsrch)
+                If KUNDE Is Nothing Then
+                    MsgBox("KundenNr " & inputKdNr & " nicht vorhanden!")
+                    Exit Sub
+                End If
+            Else
+                MsgBox("KundenNr " & inputKdNr & " nicht gültig!")
+                Exit Sub
+            End If
+
+        End If
+
+
+
+
+        Dim dt As DataTable = SQL.loadDgvBySql("SELECT   CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer
+	                           ,cast([Abfertigungsdatum] as date)Abfertigungsdatum
+                              ,Absender
+	                          ,Rechnungsbetrag Betrag 
+  	                          ,BelegNr
+                              ,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land
+                          FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
+                          where EmpfängerKundenNr IN (" & kdnrsrch & ") and VermittlerKundenNr IN (" & kdnrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL")
+
+        Try
+
+            Dim Path = ""
+            If dt IsNot Nothing And dt.Rows.Count > 0 Then
+
+                Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\"
+                If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
+                    My.Computer.FileSystem.CreateDirectory(sPath)
+                End If
+
+
+                Dim exclApp As Object 'as Application
+                Dim Datei As Object 'as WorkBook
+                Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
+                exclApp = CreateObject("Excel.Application")
+
+                If cbxDetailbericht.Checked Then
+
+                    With exclApp
+                        .Visible = False
+
+                        Try
+                            Path = sPath & KUNDE.KundenNr & "_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
+                            While System.IO.File.Exists(Path)
+                                Path = sPath & KUNDE.KundenNr & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                            End While
+                            My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.Detailauswertung_divers, False)
+                        Catch ex As System.Exception
+                            '  MsgBox(ex.Message)
+                            MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
+                            Me.Cursor = Cursors.Default
+
+                            Exit Sub
+                        End Try
+
+                        Datei = .Workbooks.Open(Path) 'Anpassen
+                        Blatt = Datei.Worksheets(1) 'Anpassen
+
+                        Dim cnt = 2
+                        For Each r In dt.Rows
+                            Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
+                            Try
+                                Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
+                                If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
+
+                                    If ZOLLANMELDUNG.dtWARENPOS.Rows.Count > 0 Then
+
+                                        Dim rowcounter As Integer = 0
+
+                                        For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows
+
+                                            Dim ZollInProzent As Double = 0
+                                            If If(ZOLLANMELDUNG.RechnungspreisohneWahrung, "") <> "" Then
+                                                ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
+                                            End If
+
+                                            Blatt.Range("A" & cnt).Value = cnt - 1
+                                            Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum")
+                                            Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr"))
+                                            Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger
+                                            Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr")
+                                            Blatt.Range("F" & cnt).Value = r("BelegNr")
+                                            Blatt.Range("G" & cnt).Value = row.Item("PosNr")
+                                            Blatt.Range("H" & cnt).Value = row.Item("WarenNr")
+                                            Blatt.Range("I" & cnt).Value = "-"
+                                            Blatt.Range("J" & cnt).Value = row.Item("WarenBez")
+                                            Blatt.Range("K" & cnt).Value = ""
+                                            Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode
+                                            Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart
+                                            Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang
+                                            Blatt.Range("O" & cnt).Value = ""
+                                            Blatt.Range("P" & cnt).Value = row.Item("Netto")
+                                            Blatt.Range("Q" & cnt).Value = row.Item("PosWert")
+                                            Blatt.Range("R" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_EUST, "")
+                                            Blatt.Range("S" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_ZOLL, "")
+                                            Blatt.Range("T" & cnt).Value = IIf(rowcounter = 0, ZollInProzent.ToString("N2") & " %", "")
+                                            Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
+                                            Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender
+                                            Blatt.Range("W" & cnt).Value = row.Item("Herkunft")
+                                            Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms
+                                            Blatt.Range("Y" & cnt).Value = row.Item("Verfahren")
+                                            Blatt.Range("Z" & cnt).Value = row.Item("Preferenz")
+
+                                            If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then
+                                                Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN
+                                            End If
+
+                                            cnt += 1
+                                            rowcounter += 1
+                                        Next
+                                    Else
+                                        Dim ZollInProzent As Double = 0
+                                        If If(ZOLLANMELDUNG.RechnungspreisohneWahrung, "") <> "" Then
+                                            ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
+                                        End If
+
+                                        Blatt.Range("A" & cnt).Value = cnt - 1
+                                        Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum")
+                                        Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr"))
+                                        Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger
+                                        Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr")
+                                        Blatt.Range("F" & cnt).Value = r("BelegNr")
+                                        Blatt.Range("G" & cnt).Value = ""
+                                        Blatt.Range("H" & cnt).Value = ""
+                                        Blatt.Range("I" & cnt).Value = "-"
+                                        Blatt.Range("J" & cnt).Value = ""
+                                        Blatt.Range("K" & cnt).Value = ""
+                                        Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode
+                                        Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart
+                                        Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang
+                                        Blatt.Range("O" & cnt).Value = ""
+                                        Blatt.Range("P" & cnt).Value = ""
+                                        Blatt.Range("Q" & cnt).Value = ""
+                                        Blatt.Range("R" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST
+                                        Blatt.Range("S" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
+                                        Blatt.Range("T" & cnt).Value = ZollInProzent.ToString("N2") & " %"
+                                        Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
+                                        Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender
+                                        Blatt.Range("W" & cnt).Value = ""
+                                        Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms
+                                        Blatt.Range("Y" & cnt).Value = ""
+                                        Blatt.Range("Z" & cnt).Value = ""
+                                        Blatt.Range("AA" & cnt).Value = ""
+
+
+                                        If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then
+                                            Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN
+                                        End If
+                                        cnt += 1
+                                    End If
+                                End If
+
+
+
+                            Catch ex As Exception
+                                MsgBox(ex.Message & ex.StackTrace)
+                            End Try
+                            lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count
+                            Me.Refresh()
+
+                        Next
+                        Datei.Save
+
+                        If False Then
+                            Blatt.PrintOutEx()
+                        Else
+                            'Process.Start(Path)
+                            .Visible = True
+
+                        End If
+                    End With
+
+                Else
+
+
+                    With exclApp
+                        .Visible = False
+
+                        Try
+                            Path = sPath & KUNDE.KundenNr & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
+                            While System.IO.File.Exists(Path)
+                                Path = sPath & KUNDE.KundenNr & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                            End While
+                            My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.Auswertung_divers, False)
+                        Catch ex As System.Exception
+                            '  MsgBox(ex.Message)
+                            MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
+                            Me.Cursor = Cursors.Default
+
+                            Exit Sub
+                        End Try
+
+                        Datei = .Workbooks.Open(Path) 'Anpassen
+                        Blatt = Datei.Worksheets(1) 'Anpassen
+
+                        Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
+
+                        Dim cnt = 3
+                        For Each r In dt.Rows
+                            Blatt.Range("A" & cnt).Value = cnt - 2
+                            Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer")
+                            '   Blatt.Range("C" & cnt).Value = r("RechnungsNr")
+                            Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum")
+                            Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung")
+                            Blatt.Range("E" & cnt).Value = r("Absender")
+                            Blatt.Range("F" & cnt).Value = "" 'r("Betrag")
+                            Blatt.Range("H" & cnt).Value = r("BelegNr")
+
+                            Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
+                            Try
+                                Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
+                                If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
+                                    Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.RechnungspreisohneWahrung
+                                    Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
+                                    Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
+                                    Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
+
+                                    If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
+                                        Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN
+                                    End If
+                                End If
+
+                            Catch ex As Exception
+                                MsgBox(ex.Message & ex.StackTrace)
+                            End Try
+                            lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count
+                            Me.Refresh()
+                            cnt += 1
+                        Next
+                        Datei.Save
+
+                        If False Then
+                            Blatt.PrintOutEx()
+                        Else
+                            'Process.Start(Path)
+                            .Visible = True
+
+                        End If
+                    End With
+
+                End If
+
+            End If
+            lblKdAusFortschritt.Text = "fertig"
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        lblKdAusFortschritt.Text = "Fehler"
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+
 End Class

SDL/USTV/frmMDM_USTVAntrag.Designer.vb

@@ -113,6 +113,7 @@ Partial Class frmMDM_USTVAntrag
         Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.cbxKIUploaddelete = New System.Windows.Forms.CheckBox()
         Me.scanUSTVA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
@@ -123,6 +124,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.pnlErstattungsdetails = New System.Windows.Forms.Panel()
+        Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
@@ -137,8 +139,6 @@ Partial Class frmMDM_USTVAntrag
         Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
-        Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
         Me.pnlBottom.SuspendLayout()
         CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1515,6 +1515,14 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel2.Size = New System.Drawing.Size(1438, 263)
         Me.Panel2.TabIndex = 1
         '
+        'UstCntlUSTV_AntragPosition1
+        '
+        Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
+        Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
+        Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
+        Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
+        '
         'Panel4
         '
         Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1660,6 +1668,14 @@ Partial Class frmMDM_USTVAntrag
         Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261)
         Me.pnlErstattungsdetails.TabIndex = 0
         '
+        'UstCntlUSTV_AntragErstattungen1
+        '
+        Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
+        Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
+        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
+        Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
+        '
         'Panel1
         '
         Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1731,56 +1747,40 @@ Partial Class frmMDM_USTVAntrag
         'AktivierenToolStripMenuItem
         '
         Me.AktivierenToolStripMenuItem.Name = "AktivierenToolStripMenuItem"
-        Me.AktivierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.AktivierenToolStripMenuItem.Size = New System.Drawing.Size(138, 22)
         Me.AktivierenToolStripMenuItem.Text = "aktivieren"
         '
         'DeaktivierenToolStripMenuItem
         '
         Me.DeaktivierenToolStripMenuItem.Name = "DeaktivierenToolStripMenuItem"
-        Me.DeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.DeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(138, 22)
         Me.DeaktivierenToolStripMenuItem.Text = "deaktivieren"
         '
         'ncs_Belege
         '
         Me.ncs_Belege.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1})
         Me.ncs_Belege.Name = "cns_vorauszahlen"
-        Me.ncs_Belege.Size = New System.Drawing.Size(152, 26)
+        Me.ncs_Belege.Size = New System.Drawing.Size(181, 48)
         '
         'ToolStripMenuItem1
         '
         Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.ToolStripMenuItem3})
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(151, 22)
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
         Me.ToolStripMenuItem1.Text = "Vorauszahlung"
         '
         'ToolStripMenuItem2
         '
         Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
-        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(138, 22)
+        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(180, 22)
         Me.ToolStripMenuItem2.Text = "aktivieren"
         '
         'ToolStripMenuItem3
         '
         Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
-        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(138, 22)
+        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(180, 22)
         Me.ToolStripMenuItem3.Text = "deaktivieren"
         '
-        'UstCntlUSTV_AntragPosition1
-        '
-        Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
-        Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
-        Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
-        Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
-        '
-        'UstCntlUSTV_AntragErstattungen1
-        '
-        Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
-        Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
-        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
-        Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
-        '
         'frmMDM_USTVAntrag
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

SDL/USTV/usrCntlUSTV.Designer.vb

@@ -23,12 +23,16 @@ Partial Class usrCntlUSTV
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlUSTV))
         Me.pnlFilter = New System.Windows.Forms.Panel()
         Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.txtSucheID = New System.Windows.Forms.TextBox()
+        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.lblID = New System.Windows.Forms.Label()
         Me.cbxVZnichtabgerechnet = New System.Windows.Forms.CheckBox()
         Me.lblFRhint = New System.Windows.Forms.Label()
         Me.lblFR = New System.Windows.Forms.Label()
@@ -76,10 +80,7 @@ Partial Class usrCntlUSTV
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.lblID = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtSucheID = New System.Windows.Forms.TextBox()
         CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -101,8 +102,8 @@ Partial Class usrCntlUSTV
         Me.dgvUSTV.AKTUALISIERUNGS_INTERVALL = -1
         Me.dgvUSTV.AllowUserToAddRows = False
         Me.dgvUSTV.AllowUserToDeleteRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.dgvUSTV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvUSTV.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvUSTV.Location = New System.Drawing.Point(0, 108)
@@ -172,6 +173,42 @@ Partial Class usrCntlUSTV
         Me.Panel1.Size = New System.Drawing.Size(1627, 108)
         Me.Panel1.TabIndex = 0
         '
+        'txtSucheID
+        '
+        Me.txtSucheID.Location = New System.Drawing.Point(554, 36)
+        Me.txtSucheID.Name = "txtSucheID"
+        Me.txtSucheID.Size = New System.Drawing.Size(94, 20)
+        Me.txtSucheID.TabIndex = 78
+        '
+        'MyComboBox1
+        '
+        Me.MyComboBox1._allowedValuesFreiText = Nothing
+        Me.MyComboBox1._allowFreiText = False
+        Me.MyComboBox1._value = ""
+        Me.MyComboBox1.FormattingEnabled = True
+        Me.MyComboBox1.Location = New System.Drawing.Point(443, 37)
+        Me.MyComboBox1.Name = "MyComboBox1"
+        Me.MyComboBox1.Size = New System.Drawing.Size(78, 21)
+        Me.MyComboBox1.TabIndex = 77
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(364, 40)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(73, 13)
+        Me.Label12.TabIndex = 76
+        Me.Label12.Text = "Antrags-Land:"
+        '
+        'lblID
+        '
+        Me.lblID.AutoSize = True
+        Me.lblID.Location = New System.Drawing.Point(527, 40)
+        Me.lblID.Name = "lblID"
+        Me.lblID.Size = New System.Drawing.Size(21, 13)
+        Me.lblID.TabIndex = 75
+        Me.lblID.Text = "ID:"
+        '
         'cbxVZnichtabgerechnet
         '
         Me.cbxVZnichtabgerechnet.AutoSize = True
@@ -732,6 +769,7 @@ Partial Class usrCntlUSTV
         'Panel3
         '
         Me.Panel3.AutoSize = True
+        Me.Panel3.Controls.Add(Me.Button3)
         Me.Panel3.Controls.Add(Me.Button2)
         Me.Panel3.Controls.Add(Me.btnVorschau)
         Me.Panel3.Controls.Add(Me.btnMail)
@@ -844,41 +882,18 @@ Partial Class usrCntlUSTV
         Me.ContextMenuStrip3.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip3.Size = New System.Drawing.Size(61, 4)
         '
-        'lblID
+        'Button3
         '
-        Me.lblID.AutoSize = True
+        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblID.Location = New System.Drawing.Point(527, 40)
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.lblID.Name = "lblID"
+        Me.Button3.ForeColor = System.Drawing.Color.Black
-        Me.lblID.Size = New System.Drawing.Size(21, 13)
+        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.lblID.TabIndex = 75
+        Me.Button3.Location = New System.Drawing.Point(982, 5)
-        Me.lblID.Text = "ID:"
+        Me.Button3.Name = "Button3"
-        '
+        Me.Button3.Size = New System.Drawing.Size(104, 39)
-        'Label12
+        Me.Button3.TabIndex = 28
-        '
+        Me.Button3.Text = "Vorauszahlungen"
-        Me.Label12.AutoSize = True
+        Me.Button3.UseVisualStyleBackColor = True
-        Me.Label12.Location = New System.Drawing.Point(364, 40)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(73, 13)
-        Me.Label12.TabIndex = 76
-        Me.Label12.Text = "Antrags-Land:"
-        '
-        'MyComboBox1
-        '
-        Me.MyComboBox1._allowedValuesFreiText = Nothing
-        Me.MyComboBox1._allowFreiText = False
-        Me.MyComboBox1._value = ""
-        Me.MyComboBox1.FormattingEnabled = True
-        Me.MyComboBox1.Location = New System.Drawing.Point(443, 37)
-        Me.MyComboBox1.Name = "MyComboBox1"
-        Me.MyComboBox1.Size = New System.Drawing.Size(78, 21)
-        Me.MyComboBox1.TabIndex = 77
-        '
-        'txtSucheID
-        '
-        Me.txtSucheID.Location = New System.Drawing.Point(554, 36)
-        Me.txtSucheID.Name = "txtSucheID"
-        Me.txtSucheID.Size = New System.Drawing.Size(94, 20)
-        Me.txtSucheID.TabIndex = 78
         '
         'usrCntlUSTV
         '
@@ -953,4 +968,5 @@ Partial Class usrCntlUSTV
     Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label12 As Label
     Friend WithEvents lblID As Label
+    Friend WithEvents Button3 As Button
 End Class

SDL/USTV/usrCntlUSTV.resx

@@ -769,7 +769,7 @@
         XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
         fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
         tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
-        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEQAACxEBf2RfkQAAB4JJREFUSEu9lntM1FcW
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAAB4JJREFUSEu9lntM1FcW
         x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX
         bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP
         qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql

SDL/USTV/usrCntlUSTV.vb

@@ -25,12 +25,15 @@ Public Class usrCntlUSTV
             KdSearchBox1.Enabled = False
             setInfo(kdNr)
         Else
-            setInfo(KdSearchBox1.KdNr)
+            If KdSearchBox1 IsNot Nothing Then
+                If KdSearchBox1.KdNr > 0 Then
+                    setInfo(KdSearchBox1.KdNr)
+                End If
+                btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
+            End If
+
         End If
 
-        btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
-
-
         With dgvUSTV
             .ClearSelection()
 
@@ -358,7 +361,6 @@ Public Class usrCntlUSTV
 
     Private Sub KdSearchBox1_PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Handles KdSearchBox1.PropertyChanged
         If loaded = False Then Exit Sub
-
         init()
         filterAntragsLand()
 
@@ -1414,4 +1416,60 @@ Public Class usrCntlUSTV
 
     End Sub
 
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+
+        Dim sqlKunde = ""
+        Dim whereStr = ""
+        If KdSearchBox1.KdNr > 0 Then
+            sqlKunde = " And AdressenNr = " & KdSearchBox1.KdNr
+        End If
+
+
+        If cboJahr._value <> "" Then
+            If cboJahrBis._value <> "" Then
+                whereStr &= " AND tblUStVAntrag.UStVAn_ReDatVon>='01.01." & cboJahr._value & "' AND tblUStVAntrag.UStVAn_ReDatBis<='31.12." & cboJahrBis._value & "'  "
+            Else
+                whereStr &= " AND tblUStVAntrag.UStVAn_ReDatVon>='01.01." & cboJahr._value & "' AND tblUStVAntrag.UStVAn_ReDatBis<='31.12." & cboJahr._value & "'  "
+            End If
+        End If
+
+        If txtSucheID.Text <> "" AndAlso IsNumeric(txtSucheID.Text) AndAlso txtSucheID.Text > 0 Then
+            whereStr &= " AND UStVAn_ID=" & txtSucheID.Text & " "
+        End If
+
+        If MyComboBox1._value <> "" Then whereStr &= " AND dbo.Adressen.LandKz='" & MyComboBox1._value & "' "
+
+
+        Dim sqlQery = "SELECT dbo.tblUStVAntrag.UStVAn_ID, dbo.tblUStVAntrag.UStVAn_KuNr, dbo.tblUStVAntrag.UStVAn_ReDatVon, 
+                        dbo.tblUStVAntrag.UStVAn_ReDatBis, 
+                        dbo.tblUStVAntrag.UStVAn_Ausstellungsdatum, 
+                        dbo.tblUStVAntrag.UStVAn_LandNr, 
+                                                 dbo.tblUStVAntrag.UStVAn_VZDatum, dbo.tblUStVAntrag.UStVAn_VZBetrag, dbo.tblUStVAntrag.UStVAn_RZBetragVZ, dbo.Adressen.Ordnungsbegriff, dbo.Adressen.LandKz, ISNULL
+                                                     ((SELECT        SUM(UStVEr_USteuerbetragEUR) AS Expr1
+                                                         FROM            dbo.tblUStVErstattung
+                                                         WHERE        (UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID)), 0) AS Erstattungsbetrag, CASE WHEN ([UStVAn_VZBetrag] - ISNULL([UStVAn_RZBetragVZ], 0) - ISNULL
+                                                     ((SELECT        SUM(dbo.tblUStVErstattung.UStVEr_USteuerbetragEUR)
+                                                         FROM            dbo.tblUStVErstattung
+                                                         WHERE        dbo.tblUStVErstattung.UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID), 0)) > 0 THEN [UStVAn_VZBetrag] - ISNULL([UStVAn_RZBetragVZ], 0) - ISNULL
+                                                     ((SELECT        SUM(dbo.tblUStVErstattung.UStVEr_USteuerbetragEUR)
+                                                         FROM            dbo.tblUStVErstattung
+                                                         WHERE        dbo.tblUStVErstattung.UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID), 0) ELSE 0 END AS UStVAn_VZBetragAktuell
+                        FROM            dbo.tblUStVAntrag INNER JOIN
+                                                 dbo.Adressen ON dbo.tblUStVAntrag.UStVAn_KuNr = dbo.Adressen.AdressenNr
+                        WHERE        (dbo.tblUStVAntrag.UStVAn_VZBetrag IS NOT NULL)" & IIf(sqlKunde <> "", sqlKunde, "") & whereStr
+
+        Dim dtVorauszahlung As DataTable = SQL.loadDgvBySql(sqlQery, "FMZOLL")
+
+        ContextMenuStrip3.Hide()
+
+        If dtVorauszahlung.Rows.Count = 0 Then
+            MsgBox("keine Daten!")
+            Exit Sub
+        End If
+
+
+        cProgramFunctions.genExcelFromDT_NEW(dtVorauszahlung,,,,,, True)
+
+
+    End Sub
 End Class

SDL/kunden/frmKundenblatt.Designer.vb

@@ -2446,7 +2446,7 @@ Partial Class frmKundenblatt
         '
         Me.btnFirmendatenFormularSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnFirmendatenFormularSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(-2849, 18)
+        Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(38, 21)
         Me.btnFirmendatenFormularSpeichern.Name = "btnFirmendatenFormularSpeichern"
         Me.btnFirmendatenFormularSpeichern.Size = New System.Drawing.Size(71, 52)
         Me.btnFirmendatenFormularSpeichern.TabIndex = 17

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -124,12 +124,8 @@ Public Class usrCntlMDMAuswertungen
                         "  ,[FilialenNr],[AbfertigungsNr],[UnterNr] " &
                         " ,CONVERT(VARCHAR(10), [Abfertigungsdatum], 104) as [Abfertigungsdatum] " &
                         " ,isnull(Adressen.WölflKundenNr,'') as WölflKundenNr " &
-                        " ,CASE  WHEN [EmpfängerStraße] IS NULL      THEN [EmpfängerName 1] " &
+                        " ,CASE WHEN [EmpfängerName 2] IS NULL THEN isnull([EmpfängerName 1],'')  ELSE	isnull([EmpfängerName 1],'') + ' ' + ISNULL([EmpfängerName 2],'')   END AS [Empfänger] " &
-                                " ELSE		 [EmpfängerName 1] + ' ' +[EmpfängerName 2]  " &
+                        " ,CASE WHEN [EmpfängerStraße] IS NULL THEN isnull([EmpfängerName 2],'')  ELSE	[EmpfängerStraße]  END AS [EmpfängerAdresse 1]  " &
-                                " END AS [Empfänger] " &
-                        " ,CASE WHEN [EmpfängerStraße] IS NULL       THEN [EmpfängerName 2] " &
-                                " ELSE		[EmpfängerStraße] " &
-                                " END AS [EmpfängerAdresse 1] " &
                         " ,[EmpfängerOrt] as [EmpfängerAdresse 2] " &
                         " ,[Packstücke und Warenbezeichnung] as Beschreibung,[LeistungsNr],[LeistungsBez],[Steuersatz %] ,[SteuerpflichtigerGesamtbetrag] as [SteuerpflichtigerGesamtbetrag Netto] " &
                         " ,[SteuerfreierGesamtbetrag],[SteuerpflichtigerBetrag] as [SteuerpflichtigerBetrag Netto] ,[SteuerfreierBetrag] " &
@@ -154,9 +150,50 @@ Public Class usrCntlMDMAuswertungen
         End Try
         Dim clmns As String = ""
 
+        For Each r As DataRow In dt.Rows
+
+            If r.Item("LeistungsBez").ToString.Contains("00/23") Or r.Item("LeistungsBez").ToString.Contains("DL/23") Then
+
+                Dim antragsID As Integer = CInt(SQL.getValueTxtBySql("SELECT UStVAn_ID FROM tblUStVAntrag WHERE FilialenNr = " & r.Item("FilialenNr").ToString & " AND AbfertigungsNr = " & r.Item("AbfertigungsNr").ToString, "FMZOLL"))
+
+                If antragsID > 0 Then
+                    Dim MWSTAntrag As New cUSTVAntrag(antragsID)
+
+                    Dim MonthStart As String = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & CDate(MWSTAntrag.UStVAn_ReDatVon).Month
+                    Dim MonthEnd As String = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & CDate(MWSTAntrag.UStVAn_ReDatBis).Month
+
+                    Dim LeistungsBez As String = ""
+                    LeistungsBez = r.Item("LeistungsBez").ToString()
+
+                    If LeistungsBez.Contains("00-00/23") Then
+                        LeistungsBez = LeistungsBez.Replace("00/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2))
+                    ElseIf LeistungsBez.Contains("DL/23") Then
+                        LeistungsBez = LeistungsBez.Replace("DL/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2))
+                    Else
+                        LeistungsBez = LeistungsBez.Replace("/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2))
+                    End If
+
+                    If LeistungsBez.Contains("-00") Then
+                        LeistungsBez = LeistungsBez.Replace("-00", MonthStart & "-" & MonthEnd)
+                    ElseIf LeistungsBez.Contains("00-") Then
+                        LeistungsBez = LeistungsBez.Replace("00-", MonthStart & "-" & MonthEnd)
+                    ElseIf LeistungsBez.Contains("00") Then
+                        LeistungsBez = LeistungsBez.Replace("00", MonthStart & "-" & MonthEnd)
+                    End If
+
+                    r.Item("LeistungsBez") = LeistungsBez
+
+                End If
+
+
+            End If
+
+        Next
+
 
         For i = 0 To dt.Columns.Count - 1
             clmns &= dt.Columns(i).ColumnName.ToString().Replace(";", ",") & ";"
+
         Next
 
         outFile.WriteLine(clmns)
@@ -164,7 +201,10 @@ Public Class usrCntlMDMAuswertungen
             clmns = ""
             For j = 0 To dt.Columns.Count - 1
                 Dim o As Object = dt.Rows(i).Item(j).ToString
+
+
                 clmns &= dt.Rows(i).Item(j).ToString().Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace("\n", "").Replace("\r", "").Replace(vbCrLf, "") & ";"
+
                 '  If Not o Is Nothing AndAlso Not o.value Is Nothing Then
                 'clmns &= o.Value.ToString().Replace(";", ",") & ";"
                 ' Else

VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb

@@ -271,8 +271,8 @@ Public Class cOfferte
                 'P.PreisänderungProzent = XXXXXXXXX
                 'P.PreisAlt = XXXXXXXXX
 
-                P.Land = setLand(P.OffertenNr, P.LeistungsNr, P.LeistungsBez)
+                P.Land = setLand(P.OffertenNr, P.LeistungsNr, r("LeistungsBez"))
-                P.VZ = setVZ(P.OffertenNr, P.LeistungsNr, P.LeistungsBez)
+                P.VZ = setVZ(P.OffertenNr, P.LeistungsNr, r("LeistungsBez"))
 
                 If Not P.INSERT() Then
                     Return False
@@ -367,8 +367,11 @@ Public Class cOfferte
             If LandISO <> "EU" And LandISO <> "RG" Then
                 Return LandISO
             Else
-                Return LandISO
+                LandISO = ""
             End If
+        Else
+
+            LandISO = ""
         End If
 
         Return LandISO
@@ -382,7 +385,7 @@ Public Class cOfferte
             Case 31, 15, 14
 
                 If (LeistungsNr = 117 Or LeistungsNr = 118 Or LeistungsNr = 119) Then
-                    If LeistungsBez.ToString.Contains("ZV") Then
+                    If LeistungsBez.ToString.Contains("ZV") Or LeistungsBez.ToString.Contains("Vorauszahlung") Then
                         Return True
                     Else
                         Return False
@@ -436,14 +439,53 @@ Public Class cOffertPosition
     Sub New()
     End Sub
 
+    Sub New(KundenNr, OffertenNr, LeistungsNr, LeistungsBez)
+        Me.KundenNr = KundenNr
+        Me.OffertenNr = OffertenNr
+        Me.LeistungsNr = LeistungsNr
+        Me.LeistungsBez = LeistungsBez
+        LOAD()
+    End Sub
 
 
-    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+    Public Sub LOAD()
+        Try
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM Offertenpositionen WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr and LeistungsNr=@LeistungsNr and LeistungsBez=@LeistungsBez ", conn)
+                    cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
+                    cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
+                    cmd.Parameters.AddWithValue("@LeistungsNr", LeistungsNr)
+                    cmd.Parameters.AddWithValue("@LeistungsBez", LeistungsBez)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each i In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
+
+                            If dr.Item(i.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(i.Text))
+                            End If
+
+                        Next
+
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+
+    Function getParameterList(Optional onlyUpdate As Boolean = False) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OffertenNr", OffertenNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez))
+        If onlyUpdate Then Return list
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartNr", BerechnungsartNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preis", Preis))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anzahl", Anzahl))
@@ -467,9 +509,18 @@ Public Class cOffertPosition
 
     Public Function INSERT() As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
-        Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
+        Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", False, list)
     End Function
 
+    Public Function UPDATE(LEISTUNGSBEZ_ORG As String) As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(True)
+
+
+        Return SQL.doSQLVarList(getUpdateCmd(LEISTUNGSBEZ_ORG), "FMZOLL", False, list)
+    End Function
+
+
+
 
     Public Function getInsertCmd() As String
         Try
@@ -492,6 +543,25 @@ Public Class cOffertPosition
         Return ""
     End Function
 
+    Public Function getUpdateCmd(LEISTUNGSBEZ_ORG As String) As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(True)
+
+            Dim str As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [Offertenpositionen] SET " & str & " WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr and LeistungsNr=@LeistungsNr and LeistungsBez= '" & LEISTUNGSBEZ_ORG & "'")
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
 End Class
 
 Public Class cOfferteArchiv

VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb

@@ -407,6 +407,11 @@ Class TrdInvoice_FUNCTIONS
             Dim WährungsdifferenzSteuerfreierBetrag As Integer
 
             Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma, Buchungsjahr), "FMZOLL", 9800)
+
+            Dim dtVZ As DataTable
+
+            If Firma = 19 Then dtVZ = SQL.loadDgvBySql(getSQLString_SELECT_VZ(Firma, Buchungsjahr), "FMZOLL", 9800)
+
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 For Each ROW In dt.Rows
                     Dim TRD_INVOICE As VERAG_PROG_ALLGEMEIN.cTrdInvoice
@@ -480,11 +485,19 @@ Class TrdInvoice_FUNCTIONS
                         TRD_INVOICE.Abgleich_op_debitor = 0
                         TRD_INVOICE.Nettozahlungsziel = ROW("RK_Nettozahlungsziel")
                         TRD_INVOICE.Firma_ID = ROW("RK_Firma_ID")
-                        TRD_INVOICE.UStVAn_ID = ROW("AntragsID")
+
-                        TRD_INVOICE.VZ = ROW("VZ")
+                        If dtVZ IsNot Nothing AndAlso dtVZ.Rows.Count > 0 Then
+                            For Each VZ_ROW In dtVZ.Rows
+                                If CDate(TRD_INVOICE.Rechnungsdatum) = CDate(VZ_ROW("RK_RechnungsDatum")) And TRD_INVOICE.FilialenNr.ToString = VZ_ROW("RK_FilialenNr").ToString And TRD_INVOICE.AbfertigungsNr = VZ_ROW("RK_AbfertigungsNr") And CDate(TRD_INVOICE.Abfertigungsdatum) = CDate(VZ_ROW("RK_Abfertigungsdatum")) And TRD_INVOICE.UnterNr = VZ_ROW("RK_UnterNr") And TRD_INVOICE.BelegartenNr = VZ_ROW("RK_BelegartenNr") Then
+                                    TRD_INVOICE.UStVAn_ID = VZ_ROW("AntragsID")
+                                    TRD_INVOICE.VZ = CInt(VZ_ROW("VZ"))
+                                End If
+                            Next
+
+                        End If
 
                         If TRD_INVOICE.SAVE Then
-                            If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), ROW("RK_Buchungstext"), TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, ROW("VZ")) Then
+                            If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), ROW("RK_Buchungstext"), TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, TRD_INVOICE.VZ) Then
                                 'UPDATE  rechnugnsausgang
                                 Dim firmaTmpsql = If(Firma > 0, " AND Firma_ID= '" & Firma & "' ", "")
                                 Dim buchungsjahrTmpsql = If(Buchungsjahr > 0, " AND Buchungsjahr= '" & Buchungsjahr & "' ", "")
@@ -694,10 +707,21 @@ Class TrdInvoice_FUNCTIONS
                   Sum(RechnungsausgangPositionen.SteuerfreierBetrag) AS RK_SteuerfreierBetrag
                  , (Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)*min(Rechnungsausgang.[Steuersatz %])*100)/100 AS RK_Steuerbetrag, 
                  Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)+Sum(RechnungsausgangPositionen.SteuerfreierBetrag)+((Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)*min(Rechnungsausgang.[Steuersatz %])*100)/100) AS RK_Rechnungsbetrag, 
-                 Count(1) AS RK_Satzzähler, max(CONVERT(int,isnull(tblUStVPositionen.UStVPo_VZ,0))) as VZ, MAX(isnull(tblUStVPositionen.UStVAn_ID,0)) as AntragsID
+                 Count(1) AS RK_Satzzähler, '' as VZ
+                FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
+                WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & If(Buchungsjahr > 0, " and Buchungsjahr=" & Buchungsjahr, "") & "
+                GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
+                ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);"
+        '" & If(Firma = 4, " and Rechnungsausgang.RechnungsNr='23800029'", "") & "
+    End Function
+
+    Shared Function getSQLString_SELECT_VZ(Optional Firma As Integer = -1, Optional Buchungsjahr As Integer = -1)
+        getSQLString_SELECT_VZ = "SELECT Rechnungsausgang.RechnungsDatum AS RK_RechnungsDatum, Rechnungsausgang.RechnungsNr AS RK_RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum) AS RK_Abfertigungsdatum, min(Rechnungsausgang.FilialenNr) AS RK_FilialenNr, 
+                min(Rechnungsausgang.AbfertigungsNr) AS RK_AbfertigungsNr, min(Rechnungsausgang.UnterNr) AS RK_UnterNr, min(Rechnungsausgang.BelegartenNr) AS RK_BelegartenNr,max(CONVERT(int,isnull(tblUStVPositionen.UStVPo_VZ,0))) as VZ, MAX(isnull(tblUStVPositionen.UStVAn_ID,0)) as AntragsID
                 FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID LEFT JOIN tblUStVPositionen on Rechnungsausgang.RK_ID = UStVPo_VZ_RKID
                 WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & If(Buchungsjahr > 0, " and Buchungsjahr=" & Buchungsjahr, "") & "
-                                GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
+                GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
+                HAVING max(CONVERT(int,isnull(tblUStVPositionen.UStVPo_VZ,0))) > 0 
                 ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);"
         '" & If(Firma = 4, " and Rechnungsausgang.RechnungsNr='23800029'", "") & "
     End Function

VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb

@@ -330,6 +330,10 @@ Public Class cSyska_Interface
                         'file.WriteLine(genBuchungenBeginn()) 'not needed
                         For Each r In dt_Buchungen.Rows
 
+                            If r("Rechnungsnummer") = 25224877 Then
+                                MsgBox("")
+                            End If
+
 
                             Dim curDifferenzbetrag As Double = 0
                             If r("WährungFremd") Is DBNull.Value Then
@@ -748,13 +752,12 @@ Public Class cSyska_Interface
         Dim FiBuSollkontonummer As Integer
         Dim FiBuHabenkontonummer As Integer
 
-
         Dim FiBuWährung = "EUR"
 
         Select Case row("BelegartenNr")
             Case 70 'Rechnung
                 FiBuSollkontonummer = "0"
-                FiBuHabenkontonummer = If(row("Sachkonto") IsNot DBNull.Value, row("Sachkonto"), "    ")
+                FiBuHabenkontonummer = If(row("Sachkonto") IsNot DBNull.Value AndAlso IsNumeric(row("Sachkonto")), row("Sachkonto"), 0)
                 If row("WährungFremd") Is DBNull.Value Then
                     curNettobetrag = row("BetragLokal")
                 Else
@@ -762,7 +765,7 @@ Public Class cSyska_Interface
                 End If
             Case 71 'Gutschrift
                 If Not ambargubuchungen Then
-                    FiBuSollkontonummer = If(row("Sachkonto") IsNot DBNull.Value, row("Sachkonto"), "    ")
+                    FiBuSollkontonummer = If(row("Sachkonto") IsNot DBNull.Value AndAlso IsNumeric(row("Sachkonto")), row("Sachkonto"), 0)
                     FiBuHabenkontonummer = "0"
                     If row("WährungFremd") Is DBNull.Value Then
                         curNettobetrag = 0 - row("BetragLokal")
@@ -771,7 +774,7 @@ Public Class cSyska_Interface
                     End If
                 Else
                     FiBuSollkontonummer = "0"
-                    FiBuHabenkontonummer = If(row("Sachkonto") IsNot DBNull.Value, row("Sachkonto"), "    ")
+                    FiBuHabenkontonummer = If(row("Sachkonto") IsNot DBNull.Value AndAlso IsNumeric(row("Sachkonto")), row("Sachkonto"), 0)
                     If row("WährungFremd") Is DBNull.Value Then
                         curNettobetrag = 0 - row("BetragLokal")
                     Else
@@ -826,7 +829,7 @@ Public Class cSyska_Interface
 
     End Function
 
-    Public Shared Function genBuchungsZeileVZ(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, ByRef curDifferenzbetrag As Double, Optional ambargubuchungen As Boolean = False) As String
+    Public Shared Function genBuchungsZeileVZ(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, Optional ambargubuchungen As Boolean = False) As String
 
         Dim curSteuerbetrag As Double
         Dim curNettobetrag As Double
@@ -850,7 +853,7 @@ Public Class cSyska_Interface
 
 
         Select Case row("BelegartenNr")
-            Case 71 'Gutschrift
+            Case 71 'nur bei Gutschrift!
                 If Not ambargubuchungen Then
 
                     Select Case row("KundenNrZentrale")
@@ -871,23 +874,12 @@ Public Class cSyska_Interface
 
         End Select
 
-        'If CBool(row("steuerpflichtig")) Then
-        '    curSteuerbetrag = CLng(curNettobetrag * CDbl(row("Steuersatz")) * 100) / 100
-        '    curBruttobetrag = curNettobetrag + curSteuerbetrag
-        '    FiBuBruttobetrag = curBruttobetrag.ToString("N2")
-        '    curDifferenzbetrag = Math.Round(curDifferenzbetrag, 2) - Math.Round(CDbl(FiBuBruttobetrag), 2)
-        '    FiBuSteuersatz = Format(CDbl(row("Steuersatz")) * 100, "00.00")
-        '    ' Die folgende Zeile führt zu Buchungsfehler bei Fremdwährung,
-        '    '   Buchungssatz.FiBuSteuerbetrag = Format(curSteuerbetrag, "########0.00")
-        '    ' deshalb nur Steuerprozent und keinen Steuerbetrag übergeben.
-        '    FiBuSteuerbetrag = ""
-        'Else
         curBruttobetrag = curNettobetrag
-            FiBuBruttobetrag = curBruttobetrag.ToString("N2")
+        FiBuBruttobetrag = curBruttobetrag.ToString("N2")
-            curDifferenzbetrag = Math.Round(curDifferenzbetrag, 2) - Math.Round(CDbl(FiBuBruttobetrag), 2)
+
-            FiBuSteuersatz = "00,00"
+        FiBuSteuersatz = "00,00"
-            FiBuSteuerbetrag = ""
+        FiBuSteuerbetrag = ""
-        'End If
+
 
         If row("WährungFremd") Is DBNull.Value Then
             FiBuEigenbruttobetrag = CDbl(row("RechnungsbetragLokal"))  'Bruttobetrag
@@ -903,7 +895,8 @@ Public Class cSyska_Interface
 
         genBuchungsZeileVZ &= FiBuSollkontonummer & vbTab
         genBuchungsZeileVZ &= FiBuHabenkontonummer & vbTab
-        genBuchungsZeileVZ &= ANTRAG.UStVAn_KuNr & " " & IIf(Not IsDBNull(KUNDE_ERW.kde_BezFIBU), KUNDE_ERW.kde_BezFIBU, "") & " / " & ANTRAG.UStVAn_LandKz & " " & MonthStart & "-" & MonthEnd & "/" & CDate(ANTRAG.UStVAn_ReDatBis).Year.ToString.Substring(2) & " VZ" & vbTab
+        Dim Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
+        genBuchungsZeileVZ &= ANTRAG.UStVAn_KuNr & " " & IIf(Not IsDBNull(KUNDE_ERW.kde_BezFIBU), KUNDE_ERW.kde_BezFIBU, "") & " / " & Antrag_LandKz & " " & MonthStart & "-" & MonthEnd & "/" & CDate(ANTRAG.UStVAn_ReDatBis).Year.ToString.Substring(2) & " VZ" & vbTab
 
         genBuchungsZeileVZ &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
         genBuchungsZeileVZ &= Format(CDbl(FiBuSteuersatz), fmt) & vbTab 'FiBuSteuersatz