Mahnlauf, FaktMail, etc.

SDL/Fakturierung/frmFaktEmail.vb

@@ -1099,10 +1099,10 @@ Public Class frmFaktEmail
 
                     If RECHNUNG.VermittlerKundenNr = 150000 Or RECHNUNG.VermittlerKundenNr = 140000 Then
 
-                        'bei RMC und Durmaz doch wieder alles in einem Anhang !!!!!!!!!!!!!!!!!!!!!!!!!!!!
+                        'bei RMC und Durmaz doch wieder alles in einem Anhang und ohne LIEFERANTENRECHNUNGEN !!!!!!!!
-                        For Each a In myListLiefereranten
+                        'For Each a In myListLiefereranten
-                            myList.Add(a)
+                        '    myList.Add(a)
-                        Next
+                        'Next
 
                         For Each a In myListPOSLIST
                             myList.Add(a)

SDL/My Project/Resources.Designer.vb

@@ -1893,6 +1893,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property RG_ZF_NEW() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("RG_ZF_NEW", 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

@@ -949,4 +949,7 @@
   <data name="linked_b" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\linked_b.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <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>
 </root>

SDL/SDL.vbproj

@@ -4704,6 +4704,9 @@
     <None Include="Resources\MDM_Schreiben\Uebernahmebestätigung\ÜBERNAHMEBESTÄTIGUNG_Kuvert_RO.dotx">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
+    <None Include="Resources\RG_ZF_NEW.xlsx">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <None Include="Resources\RG_ZF.xlsx">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb

@@ -100,6 +100,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Label31 = New System.Windows.Forms.Label()
         Me.Button8 = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.cbxRptDetailsZahlungsdetails = New System.Windows.Forms.CheckBox()
         Me.cboDetailberichtKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label38 = New System.Windows.Forms.Label()
         Me.Label44 = New System.Windows.Forms.Label()
@@ -202,7 +203,7 @@ 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.cbxRptDetailsZahlungsdetails = New System.Windows.Forms.CheckBox()
+        Me.cbxDetailbericht = New System.Windows.Forms.CheckBox()
         Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
         Me.pnlRechts.SuspendLayout()
         CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -774,6 +775,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         '
         'pnlBerichte
         '
+        Me.pnlBerichte.Controls.Add(Me.cbxDetailbericht)
         Me.pnlBerichte.Controls.Add(Me.MyComboBox2)
         Me.pnlBerichte.Controls.Add(Me.Button25)
         Me.pnlBerichte.Controls.Add(Me.Button24)
@@ -924,7 +926,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1})
         Me.MenuStrip1.Location = New System.Drawing.Point(715, 158)
         Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(163, 27)
+        Me.MenuStrip1.Size = New System.Drawing.Size(283, 27)
         Me.MenuStrip1.TabIndex = 89
         Me.MenuStrip1.Text = "Kundenauswertungen"
         '
@@ -942,7 +944,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         '
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
-        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
+        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Passau (Zeitraum auswählen)"
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False
         '
@@ -950,14 +952,14 @@ Partial Class usrCntlSpeditionsBuchSuche
         '
         Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Name = "ZFSteyrZeitraumAuswählenToolStripMenuItem"
-        Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
+        Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
         Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Text = "ZF Steyr (Zeitraum auswählen)"
         '
         'ZFThyrnauZeitraumAuswählenToolStripMenuItem
         '
         Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Name = "ZFThyrnauZeitraumAuswählenToolStripMenuItem"
-        Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
+        Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
         Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)"
         Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Visible = False
         '
@@ -965,7 +967,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         '
         Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Name = "FlenderBocholtZeitraumAuswählenToolStripMenuItem"
-        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
+        Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
         Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)"
         Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Visible = False
         '
@@ -1275,6 +1277,17 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Panel1.Size = New System.Drawing.Size(227, 100)
         Me.Panel1.TabIndex = 48
         '
+        'cbxRptDetailsZahlungsdetails
+        '
+        Me.cbxRptDetailsZahlungsdetails.AutoSize = True
+        Me.cbxRptDetailsZahlungsdetails.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.cbxRptDetailsZahlungsdetails.Location = New System.Drawing.Point(5, 79)
+        Me.cbxRptDetailsZahlungsdetails.Name = "cbxRptDetailsZahlungsdetails"
+        Me.cbxRptDetailsZahlungsdetails.Size = New System.Drawing.Size(100, 17)
+        Me.cbxRptDetailsZahlungsdetails.TabIndex = 58
+        Me.cbxRptDetailsZahlungsdetails.Text = "Zahlungsdetails"
+        Me.cbxRptDetailsZahlungsdetails.UseVisualStyleBackColor = False
+        '
         'cboDetailberichtKdAtrNr
         '
         Me.cboDetailberichtKdAtrNr._allowedValuesFreiText = Nothing
@@ -2823,16 +2836,16 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.SplitContainer.SplitterWidth = 2
         Me.SplitContainer.TabIndex = 3
         '
-        'cbxRptDetailsZahlungsdetails
+        'cbxDetailbericht
         '
-        Me.cbxRptDetailsZahlungsdetails.AutoSize = True
+        Me.cbxDetailbericht.AutoSize = True
-        Me.cbxRptDetailsZahlungsdetails.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.cbxDetailbericht.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.cbxRptDetailsZahlungsdetails.Location = New System.Drawing.Point(5, 79)
+        Me.cbxDetailbericht.Location = New System.Drawing.Point(725, 139)
-        Me.cbxRptDetailsZahlungsdetails.Name = "cbxRptDetailsZahlungsdetails"
+        Me.cbxDetailbericht.Name = "cbxDetailbericht"
-        Me.cbxRptDetailsZahlungsdetails.Size = New System.Drawing.Size(100, 17)
+        Me.cbxDetailbericht.Size = New System.Drawing.Size(85, 17)
-        Me.cbxRptDetailsZahlungsdetails.TabIndex = 58
+        Me.cbxDetailbericht.TabIndex = 59
-        Me.cbxRptDetailsZahlungsdetails.Text = "Zahlungsdetails"
+        Me.cbxDetailbericht.Text = "Detailbericht"
-        Me.cbxRptDetailsZahlungsdetails.UseVisualStyleBackColor = False
+        Me.cbxDetailbericht.UseVisualStyleBackColor = False
         '
         'usrCntlSpeditionsBuchSuche
         '
@@ -3051,4 +3064,5 @@ Partial Class usrCntlSpeditionsBuchSuche
     Friend WithEvents SendungsdetailsÖffnenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ZFSteyrZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents cbxRptDetailsZahlungsdetails As CheckBox
+    Friend WithEvents cbxDetailbericht As CheckBox
 End Class

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb

@@ -2131,7 +2131,7 @@ Public Class usrCntlSpeditionsBuchSuche
   	                          ,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 Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL")
+                          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")
 
             Dim Path = ""
             If dt IsNot Nothing And dt.Rows.Count > 0 Then
@@ -2148,79 +2148,217 @@ Public Class usrCntlSpeditionsBuchSuche
                 Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
                 exclApp = CreateObject("Excel.Application")
 
-                With exclApp
+                If cbxDetailbericht.Checked Then
-                    .Visible = False
 
-                    Try
+                    With exclApp
-                        Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
+                        .Visible = False
-                        While System.IO.File.Exists(Path)
-                            Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
-                        End While
-                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, 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(), "")
+                            Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
-                            If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
+                            While System.IO.File.Exists(Path)
-                                Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis
+                                Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
-                                Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
+                            End While
-                                Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
+                            My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF_NEW, False)
-                                Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
+                        Catch ex As System.Exception
+                            '  MsgBox(ex.Message)
+                            MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
+                            Me.Cursor = Cursors.Default
 
-
+                            Exit Sub
-                                '----------------------------------NEW
-
-                                Blatt.Range("K" & cnt).Value = ZOLLANMELDUNG.Anmelder
-                                Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Warenbezeichung
-                                Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.VerBestLandZst
-                                '----------------------------------
-
-
-                                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
+                        Datei = .Workbooks.Open(Path) 'Anpassen
-                        Blatt.PrintOutEx()
+                        Blatt = Datei.Worksheets(1) 'Anpassen
-                    Else
-                        'Process.Start(Path)
-                        .Visible = True
 
-                    End If
+                        'Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
-                End With
+
+                        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 = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.Rechnungspreis * 100
+
+                                            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")
+                                            Blatt.Range("AA" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N")
+
+                                            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 = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.Rechnungspreis * 100
+
+                                        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 & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
+                            While System.IO.File.Exists(Path)
+                                Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                            End While
+                            My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, 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.Rechnungspreis
+                                    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
+
+
+                                    '----------------------------------NEW
+
+                                    Blatt.Range("K" & cnt).Value = ZOLLANMELDUNG.Anmelder
+                                    Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Warenbezeichung
+                                    Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.VerBestLandZst
+                                    '----------------------------------
+
+
+                                    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"
@@ -2649,5 +2787,4 @@ Public Class usrCntlSpeditionsBuchSuche
 
     End Sub
 
-
 End Class

SDL/USTV/usrCntlUSTV.vb

@@ -1194,7 +1194,7 @@ Public Class usrCntlUSTV
 
                     Dim pruefdatum As Date = CDate(f.Datum)
 
-                    Dim sqlQery = "Select A.AdressenNr, A.[E-Mail], A.[E-Mail2], A.LandKz, A.Ordnungsbegriff, L.LandKz, S.StNrFürRückerstattungUSt, S.StNrGültigkeitsdatum, CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum, 
+                    Dim sqlQery = "Select A.AdressenNr, A.[E-Mail], A.[E-Mail2], A.LandKz as KundeLand, A.Ordnungsbegriff,L.LandKz as SteuerLandKz, S.StNrFürRückerstattungUSt, S.StNrGültigkeitsdatum, CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum, 
                                CASE 
                                     WHEN S.StNrGültigkeitsdatum > CAST('" & pruefdatum & "' AS DATE) THEN 1 ELSE 0 
                                 END AS Gültig
@@ -1247,27 +1247,27 @@ Public Class usrCntlUSTV
 
                                 Dim attachmentSRB As Boolean = False
                                 Dim attachmentBIH As Boolean = False
-                                Dim attachmendSK As Boolean = False
+                                Dim attachmentSK As Boolean = False
+                                Dim attachmentHR As Boolean = False
 
                                 For Each r In dt_Data_selected.Rows
 
-                                    If Not IsDBNull(r.item("LandKZ1")) Then
+                                    If Not IsDBNull(r.item("SteuerLandKz")) Then
-                                        Select Case r.item("LandKZ1")
+                                        Select Case r.item("SteuerLandKz")
-                                            Case "HU" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Madarski, potpis sluzbene osobe ne smije biti faksimil mora bit vlastorucan)</li></b><br><br>"
+                                            Case "HU" : TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Madarski, potpis sluzbene osobe ne smije biti faksimil mora bit vlastorucan)</li></b><br><br>"
-                                            Case "SI" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Slovenacki)</li></b><br><br>"
+                                            Case "SI" : TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Slovenacki)</li></b><br><br>"
-                                            Case "LU" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju obavezno navedite sifru djelatnosti 4941, prevesti na Engleski)</li></b><br><br>"
+                                            Case "LU" : TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (Na uverenju obavezno navedite sifru djelatnosti 4941, prevesti na Engleski)</li></b><br><br>"
-                                            Case "SK" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Engleski)</li></b><br><br>" : attachmendSK = True
+                                            Case "SK" : TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Engleski)</li></b><br><br>" : attachmentSK = True
-                                            Case "RO" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Rumonski)</li></b><br><br>"
+                                            Case "RO" : TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Rumonski)</li></b><br><br>"
-                                            Case "HR" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Hrvatski)</li></b><br><br>"
+                                            Case "HR" : TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, " & IIf(Not IsDBNull(r.item("KundeLand")) AndAlso r.item("KundeLand") = "BIH", "trazite da Vam izdaju uvjerenja na latinici da izbjegnete trosak prijevoda na Hrvatski jezik.", "prevedite na Hrvatski") & ")</li></b><br><br>" : attachmentHR = True
                                             Case Else
-                                                TextHTML &= "<li><b>" & r.item("LandKZ1") & " (prevod na Engleski)</li></b><br><br>"
+                                                TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (prevod na Engleski)</li></b><br><br>"
                                         End Select
 
-
                                     End If
 
-                                    If Not IsDBNull(r.item("LandKZ")) Then
+                                    If Not IsDBNull(r.item("KundeLand")) Then
-                                        Select Case r.item("LandKZ")
+                                        Select Case r.item("KundeLand")
                                             Case "SRB" : attachmentSRB = True
                                             Case "BIH" : attachmentBIH = True
                                         End Select
@@ -1276,12 +1276,8 @@ Public Class usrCntlUSTV
                                 Next
 
                                 TextHTML &= "<br><br>Molim Vas da nam original uverenja + prijevod dostavite pojedinacno za svaku zemlju, znaci koliko zemalja toliko uverenja I prevoda.<br><br>"
-
                                 TextHTML &= "U privitku se nalazi primjer uverenja (u smislu sadrzaja)<br><br>"
-
                                 TextHTML &= "za pitanja stojim na raspolaganju!<br><br>"
-
-
                                 TextHTML &= "Mit freundlichen Grüßen<br>"
                                 TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
                                 TextHTML &= "<br>"
@@ -1296,17 +1292,27 @@ Public Class usrCntlUSTV
                                     If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
 
                                 End If
+
                                 If attachmentBIH Then
                                     Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "BIH_FA_BESTAETIGUNG")
                                     Dim filepath = DS.GET_TOP1_PATH(False)
                                     If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
                                 End If
-                                If attachmentBIH And attachmendSK Then
+
+                                If attachmentBIH And attachmentSK Then
                                     Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "SVK_FA_BESTAETIGUNG")
                                     Dim filepath = DS.GET_TOP1_PATH(False)
                                     If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
                                 End If
 
+
+                                If attachmentBIH And attachmentHR Then
+                                    Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "HR_FA_BESTAETIGUNG")
+                                    Dim filepath = DS.GET_TOP1_PATH(False)
+                                    If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                                End If
+
+
                                 Mail.Display()
 
                                 Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_FA, "FA-Bestaetigung",,, row.Item(0))

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -527,7 +527,7 @@ Public Class frmBU_Mahnlauf
                     Case -2 : Mahngeb = 0 : rpt.Label24.Visible = False : rpt.lblSteuersatz.Visible = False : rpt.Label23.Visible = False : rpt.lblZwText.Visible = False
                     Case -1 : Mahngeb = 0
                     Case 0 : Mahngeb = 0
-                    Case 1 : Mahngeb = 10
+                    Case 1 : Mahngeb = 0 '10 keine Mahngeb bei 1. Mahnstufe laut Brigitte 29.07.2025
                     Case 2 : Mahngeb = 20
                     Case 3 : Mahngeb = 30
                     Case 4 : Mahngeb = 40
@@ -600,8 +600,11 @@ Public Class frmBU_Mahnlauf
                                               Dim Verzugszinsen As Double = 0
                                               Dim Verzugtage = DateDiff(DateInterval.Day, CDate(rpt.Fields.Item("Faelligkeit").Value), Now)
                                               If Verzugtage > 0 And Ausstand > 0 Then
-                                                  Verzugszinsen = ZinssatzVerzugszinsen / 365 * Ausstand * Verzugtage
+                                                  If Firma_ID = 19 And MAHNSTUFE > 1 Then 'erst ab Mahnstufe 2 sollen bei MDM Verzugszinsen berechnet werden.
-                                                  VerzugszinsenGes += Verzugszinsen
+                                                      Verzugszinsen = ZinssatzVerzugszinsen / 365 * Ausstand * Verzugtage
+                                                      VerzugszinsenGes += Verzugszinsen
+                                                  End If
+
                                               End If
                                           End Sub