div. Änderungen

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

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

@@ -2186,8 +2186,8 @@ Public Class usrCntlSpeditionsBuchSuche
                                         For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows
 
                                             Dim ZollInProzent As Double = 0
-                                            If If(ZOLLANMELDUNG.Rechnungspreis, "") <> "" Then
+                                            If If(ZOLLANMELDUNG.RechnungspreisohneWahrung, "") <> "" Then
-                                                ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.Rechnungspreis * 100
+                                                ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
                                             End If
 
                                             Blatt.Range("A" & cnt).Value = cnt - 1
@@ -2227,8 +2227,8 @@ Public Class usrCntlSpeditionsBuchSuche
                                         Next
                                     Else
                                         Dim ZollInProzent As Double = 0
-                                        If If(ZOLLANMELDUNG.Rechnungspreis, "") <> "" Then
+                                        If If(ZOLLANMELDUNG.RechnungspreisohneWahrung, "") <> "" Then
-                                            ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.Rechnungspreis * 100
+                                            ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
                                         End If
 
                                         Blatt.Range("A" & cnt).Value = cnt - 1
@@ -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,264 @@ Public Class usrCntlSpeditionsBuchSuche
 
     End Sub
 
+    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
+
+        Dim kdnrsrch As Integer = -1
+
+        If kdnrsrch < 0 Then
+
+            Dim inputKdNr = InputBox("Bitte KdNr eingeben", "Auswertung abbrechen")
+            If IsNumeric(inputKdNr) And inputKdNr > 0 Then
+                kdnrsrch = inputKdNr
+            Else
+                MsgBox("KundenNr " & inputKdNr & " nicht gültig!")
+                Exit Sub
+            End If
+
+        End If
+
+            Dim KUNDE As New cKunde(kdnrsrch)
+
+
+        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/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(1490, 21)
+        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
@@ -2724,7 +2724,7 @@ Partial Class frmKundenblatt
         '
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
         Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '

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