div. Änderungen

SDL/Fakturierung/cFakturierung.vb

@@ -316,9 +316,12 @@ Public Class cFakturierung
 
             If RECHNUNG_KD.Zahlungsziel IsNot Nothing AndAlso IsNumeric(RECHNUNG_KD.Zahlungsziel) Then
                 ZZTage = RECHNUNG_KD.Zahlungsziel
+                If ZZTage > 14 AndAlso RECHNUNG.Firma_ID = 19 AndAlso RECHNUNG.FilialenNr = 8001 Then
+                    ZZTage = 14
+                End If
             End If
 
-            Select Case RECHNUNG.[BelegartenNr]
+                Select Case RECHNUNG.[BelegartenNr]
                 Case 70 'RECHNUNG
 
                     Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr)
@@ -2329,7 +2332,6 @@ Public Class cFakturierung
             rpt.lblSteuerfreiUeberschrift.Text = "Zinsen p.a."
             rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag"
 
-
             rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True
             rpt.lbl_onlyZR_FaelligUeberschrift.Visible = True
             rpt.lbl_onlyZR_VZUeberschrift.Visible = True

SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb

@@ -124,8 +124,8 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
         Me.txtTage.Left = 3.37126!
         Me.txtTage.Name = "txtTage"
         Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
-        Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
+        Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" &
-    "ar-set: 0"
+    "r-set: 0"
         Me.txtTage.Text = "-"
         Me.txtTage.Top = 0!
         Me.txtTage.Width = 0.5771654!

SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb

@@ -33,14 +33,12 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
 
             If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString
             If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString
-            If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Me.Fields.Item("clmnReBetrag").Value.ToString()
+            If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= CDbl(Me.Fields.Item("clmnReBetrag").Value).ToString("N2")
-
             If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString
-
             If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString
             If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString
-            If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= Me.Fields.Item("clmnZinsen").Value.ToString()
+            If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2")
-            If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString()
+            If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %"
 
         End If
     End Sub
@@ -62,17 +60,15 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
 
         RECHNUNG.ORDER_POSITIONEN()
 
-
+        If RECHNUNG.POSITIONEN.Any() Then
-        For Each POS In RECHNUNG.POSITIONEN
-
             Dim dtTemp As DataTable
-            dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID & " AND buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
+            dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and FORMAT(id, '00000') +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
 
             For Each rg As DataRow In dtTemp.Rows
                 dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
             Next
 
-        Next
+        End If
 
         Me.DataSource = dt
 

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1885,8 +1885,10 @@ Public Class usrCntlFaktAbrechnung
                     If FIRMA.Firma_ID = 19 AndAlso SPEDBUCH.ErfassungsNr <> "" AndAlso SPEDBUCH.ErfassungsNr > 0 AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then
 
                         Dim func As New cMDMFunctionsAllgemein()
-                        Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' AND UStVPo_SchnittstellenNr <> 1 order by UStVPo_ID", "FMZOLL")
+                        Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' AND UStVPo_SchnittstellenNr <> 1 " & IIf(isVZ, " And UStVPo_VZ = 1 And UStVPo_VZ_RKID Is null", "") & " order by  UStVPo_ID", "FMZOLL")
                         Dim USTV As New cUSTVAntrag(SPEDBUCH.ErfassungsNr)
+                        Dim Antrag_LandKz = ""
+                        If USTV.UStVAn_ID > 0 Then Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV.UStVAn_LandNr & "'", "FMZOLL")
 
                         'soll immer alle POS bekommen! laut Lidya! 28.04.2025 - aber nicht im Excel-Format sondern als PDF-Batinic 15.05.2025
                         Dim dtPOSList As New DataTable
@@ -1977,12 +1979,13 @@ Public Class usrCntlFaktAbrechnung
                         If dt IsNot Nothing Then
                             For Each r In dt.Rows
 
+                                'WARUM NOCHMAL not null??? -> weil laut lydia erst ab 2025 (und ab diesem Datum wird die daid in der USTVA_POS befüllt) die Dokumente digital mitgeschickt werden, vorher noch alles per POST!!!!!!!!!!!!!!!!!!
                                 If Not IsDBNull(r("UStVPo_daId")) Then
 
                                     If RECHNUNG.ANHAENGE IsNot Nothing AndAlso Not RECHNUNG.ANHAENGE.Exists(Function(c) c.dsId = r("UStVPo_daId")) Then 'wenn der Anhang schon existiert!
 
                                         Dim DAID As String = ""
-                                        DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, USTV.UStVAn_LandKz, USTV, New cFakturierung, True)
+                                        DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, Antrag_LandKz, USTV, New cFakturierung, True)
 
                                         Dim nameLief As String = ""
 
@@ -2007,7 +2010,6 @@ Public Class usrCntlFaktAbrechnung
                                     End If
                                 End If
 
-
                             Next
                         End If
                     End If
@@ -4299,11 +4301,11 @@ Nächste_Textzeile_lesen:
             If If(SPEDBUCH.AtlasBezNrEZA, "") <> "" Then
 
                 If bool_SendAbrechung(SPEDBUCH.SendungID, kdFirmaRechnungAn.KdNr, "EUST") Then
-                    loadEUST()
+                    If RECHNUNG.Sammelrechnung = 0 Then loadEUST()
                 End If
 
                 If bool_SendAbrechung(SPEDBUCH.SendungID, kdFirmaRechnungAn.KdNr, "ZOLL") Then
-                    loadZOLL()
+                    If RECHNUNG.Sammelrechnung = 0 Then loadZOLL()
                 End If
             End If
 
@@ -4409,8 +4411,8 @@ Nächste_Textzeile_lesen:
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
-        loadEUST()
+        If RECHNUNG.Sammelrechnung = 0 Then loadEUST()
-        loadZOLL()
+        If RECHNUNG.Sammelrechnung = 0 Then loadZOLL()
         loadBerechnungsArt_jePosition()
     End Sub
 

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.4.7.4")>
+<Assembly: AssemblyVersion("1.4.7.5")>
-<Assembly: AssemblyFileVersion("1.4.7.4")>
+<Assembly: AssemblyFileVersion("1.4.7.5")>

SDL/buchhaltung/usrCntlBH.vb

@@ -827,11 +827,11 @@ Public Class usrCntlBH
                 op_debitor.c_urbelegid AS BelegNr, 
                 op_debitor.i_personenkonto AS KundenNr, 
                 op_debitor.d_rechnung AS Belegdatum, 
-                ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000') AS origbelegdatum, 
+                --ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000') AS origbelegdatum, 
                 op_debitor.eur_bruttobetrag AS Bruttobetrag, 
                 op_debitor.eur_zahlung AS Zahlungsbetrag,
                 op_debitor.d_netto AS Nettodatum, 
-                op_debitor.c_bemerkung AS buchungstext, 
+                op_debitor.c_bemerkung AS Buchungstext, 
                 op_debitor.d_zahlung AS Zahlungsdatum, 
                 ISNULL(op_debitor.c_zahlziel, '0/0/20') AS ZZ_in_OP, 
                 isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") AS Zinssatz_Kunde,
@@ -842,7 +842,7 @@ Public Class usrCntlBH
 				
                 case when DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then
 
-                    op_debitor.eur_bruttobetrag * isnull(kde_zinssatz,9.5)  / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360 
+                    Round(op_debitor.eur_bruttobetrag * isnull(kde_zinssatz,9.5)  / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360,2)
 
                 else 0 end as Zinsbetrag,
 
@@ -858,9 +858,11 @@ Public Class usrCntlBH
                 AND (op_debitor.eur_bruttobetrag + op_debitor.eur_zahlung >= (-1)) 
                 AND op_debitor.i_personenkonto >= @KundeVon AND op_debitor.i_personenkonto <= @KundeBis 
                 AND op_debitor.d_zahlung >= @ZahlungVon AND op_debitor.d_zahlung <= @ZahlungBis 
-                AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0
+                AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 
+                AND Left(op_debitor.c_bemerkung,2) <> 'AR'
+				AND op_debitor.c_bemerkung not like '%nicht verzinsen%' 
                 
-                ORDER BY op_debitor.i_personenkonto, op_debitor.c_urbelegid, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000')"
+                ORDER BY op_debitor.i_personenkonto, op_debitor.c_urbelegid desc, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000')"
 
 
             Dim dt = SQL.loadDgvBySql(sqlStr_FIBU, "FIBU")
@@ -886,7 +888,7 @@ Public Class usrCntlBH
 
                         Else
 
-                            zins.buchungstext = r.Item("buchungstext")
+                            zins.buchungstext = r.Item("Buchungstext")
                             zins.kundeZahlungsziel = r.Item("ZZ_in_Debitor")
                             zins.zinssatz = r.Item("Zinssatz_Kunde")
                             zins.belegZahlungsziel = r.Item("ZZinTage")
@@ -915,7 +917,7 @@ Public Class usrCntlBH
 
                 dtTemp = dt.Select("Zinsbetrag > 0").CopyToDataTable
                 If dtTemp.Rows.Count > 0 Then
-                    cProgramFunctions.genExcelFromDT_NEW(dtTemp, {"E1:E" & (dt.Rows.Count + 1), "F1:F" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)})
+                    cProgramFunctions.genExcelFromDT_NEW(dtTemp, {"D1:D" & (dt.Rows.Count + 1), "E1:E" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1)})
                     txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0")
                 End If
 
@@ -1074,8 +1076,6 @@ Public Class usrCntlBH
 
             Dim dt As New DataTable
             cMDMZinsberechnung.GET_NICHTABGERECHNETE_ZB(dt, KdNr)
-            'Dim zahlungsperiodeStart
-            'Dim zahlungsperiodeEnde
 
             For Each r In dt.Rows
 
@@ -1094,13 +1094,12 @@ Public Class usrCntlBH
                 Dim LeistungsNr As Integer = 950
                 Dim LeistungsBezAdd As String = ""
                 If r("buchungstext") <> "" Then
-                    LeistungsBezAdd &= r("buchungstext")
+                    LeistungsBezAdd &= id.ToString("D5") & "-" & r("buchungstext")
                     If LeistungsBezAdd.Length > 30 Then
                         LeistungsBezAdd = LeistungsBezAdd.ToString.Substring(0, 30)
                     End If
                 End If
 
-
                 allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag, LeistungsBezAdd, id)
 
             Next
@@ -1114,9 +1113,6 @@ Public Class usrCntlBH
 
             RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim
 
-            'SPEDBUCH.Vermerk = "NACHBERECHNUNG VON VERZUGSZINSEN" & vbNewLine & "Zahlungen von " & CDate(zahlungsperiodeStart).ToShortDateString & " bis " & CDate(zahlungsperiodeEnde).ToShortDateString
-            'SPEDBUCH.SAVE()
-
             If RG.SAVE Then
                 RK_ID = RG.RK_ID
                 Return True
@@ -1159,7 +1155,7 @@ Public Class usrCntlBH
                         POS.SteuerfreierBetrag = BruttoBetrag
                         POS.Preis = BruttoBetrag
                     End If
-                    POS.NachzahlungsID = nachzahlungsID
+                    'POS.NachzahlungsID = nachzahlungsID 'nix gut
                     POS.BGebLeistungsNr = o.BGebLeistungsNr
                     POS.BGebProzent = o.BGebProzent
                     POS.BGebMinBetrag = o.BGebMinBetrag
@@ -1219,7 +1215,7 @@ Public Class usrCntlBH
 
             Dim dtfehlendeOfferten As DataTable = SQL.loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL")
             If dtfehlendeOfferten.Rows.Count > 0 Then
-                If Not vbYes = MsgBox(MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & vbNewLine & "Möchten Sie trotzdem fortfahren!", vbYesNoCancel)) Then
+                If Not vbYes = MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & vbNewLine & "Möchten Sie trotzdem fortfahren!", vbYesNoCancel) Then
                     cProgramFunctions.genExcelCSVFromDT(dtfehlendeOfferten, True)
                     Exit Sub
                 End If
@@ -1236,10 +1232,14 @@ Public Class usrCntlBH
                     Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString
 
                     Dim vermerk As String = "Zahlungen vom " & startDate & " - " & EndDate 'max 50 Zeichen!!!
-                    Dim Fußtext As String = "Sehr geehrte Damen und Herren," & vbNewLine & "
+                    Dim Fußtext As String = ""
-                                              Sie erhalten unten eine Aufstellung jener Rechnungen, deren Zahlungseingänge nach der gesetzten Zahlungsfrist von 14 Tagen gelegen ist." & vbNewLine & "
+
-                                              Bitte haben Sie Verständnis dafür, dass wir Ihnen die dadurch entstehenden Verzugszinsen nachberechnen müssen." & vbNewLine & "
+                    'Fußtext  = "Sehr geehrte Damen und Herren," & vbNewLine & "
-                                              Wir erwarten Ihre Zahlung über den untenstehenden Endbetrag wieder innerhalb von 14 Tagen."
+                    '                          Sie erhalten unten eine Aufstellung jener Rechnungen, deren Zahlungseingänge nach der gesetzten Zahlungsfrist von 14 Tagen gelegen ist." & vbNewLine & "
+                    '                          Bitte haben Sie Verständnis dafür, dass wir Ihnen die dadurch entstehenden Verzugszinsen nachberechnen müssen." & vbNewLine & "
+                    '                          Wir erwarten Ihre Zahlung über den untenstehenden Endbetrag wieder innerhalb von 14 Tagen."
+
+
 
                     Dim verarbOK As Boolean = True
                     Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing

SDL/kunden/frmKundenblatt.Designer.vb

@@ -198,6 +198,7 @@ Partial Class frmKundenblatt
         Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
         Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
         Me.tbFIBU = New System.Windows.Forms.TabPage()
+        Me.txtZinsbelastungNew = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.btn_FIBU_speichern = New System.Windows.Forms.Button()
         Me.lblZNB_verrechnet = New System.Windows.Forms.Label()
         Me.lblZNB_offen = New System.Windows.Forms.Label()
@@ -206,7 +207,6 @@ Partial Class frmKundenblatt
         Me.dgvZinsnachberechnung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Label15 = New System.Windows.Forms.Label()
         Me.Label14 = New System.Windows.Forms.Label()
-        Me.txtZinsbelastung = New System.Windows.Forms.TextBox()
         Me.Label12 = New System.Windows.Forms.Label()
         Me.rtbGespreachsbericht = New System.Windows.Forms.RichTextBox()
         Me.Label9 = New System.Windows.Forms.Label()
@@ -374,7 +374,7 @@ Partial Class frmKundenblatt
         Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
         Me.tbcntrMain.Name = "tbcntrMain"
         Me.tbcntrMain.SelectedIndex = 0
-        Me.tbcntrMain.Size = New System.Drawing.Size(1652, 957)
+        Me.tbcntrMain.Size = New System.Drawing.Size(1652, 974)
         Me.tbcntrMain.TabIndex = 3
         '
         'tbAllgemein
@@ -415,7 +415,7 @@ Partial Class frmKundenblatt
         Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
         Me.tbAllgemein.Name = "tbAllgemein"
         Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbAllgemein.Size = New System.Drawing.Size(1644, 928)
+        Me.tbAllgemein.Size = New System.Drawing.Size(1644, 945)
         Me.tbAllgemein.TabIndex = 0
         Me.tbAllgemein.Text = "Allgemein"
         '
@@ -496,7 +496,7 @@ Partial Class frmKundenblatt
         Me.TabControl1.Location = New System.Drawing.Point(8, 582)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(718, 340)
+        Me.TabControl1.Size = New System.Drawing.Size(718, 357)
         Me.TabControl1.TabIndex = 186
         '
         'TabPage1
@@ -508,7 +508,7 @@ Partial Class frmKundenblatt
         Me.TabPage1.Location = New System.Drawing.Point(4, 22)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(710, 314)
+        Me.TabPage1.Size = New System.Drawing.Size(710, 331)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Offene Posten"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -567,7 +567,7 @@ Partial Class frmKundenblatt
         Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
         Me.dgvOffenePosten.RowHeadersVisible = False
         Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 282)
+        Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 299)
         Me.dgvOffenePosten.TabIndex = 175
         '
         'Label10
@@ -645,7 +645,7 @@ Partial Class frmKundenblatt
         Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
         Me.dgvUmsaetze.RowHeadersVisible = False
         Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 292)
+        Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 309)
         Me.dgvUmsaetze.TabIndex = 182
         '
         'Label13
@@ -749,7 +749,7 @@ Partial Class frmKundenblatt
         Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
         Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False
         Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 291)
+        Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 308)
         Me.dgvUmsatzNachLeistngsNr.TabIndex = 183
         '
         'lblAdressenzusatz
@@ -1110,7 +1110,7 @@ Partial Class frmKundenblatt
         Me.dgvSperrliste.Name = "dgvSperrliste"
         Me.dgvSperrliste.ReadOnly = True
         Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
-        Me.dgvSperrliste.Size = New System.Drawing.Size(446, 884)
+        Me.dgvSperrliste.Size = New System.Drawing.Size(446, 901)
         Me.dgvSperrliste.TabIndex = 23
         '
         'PictureBox2
@@ -2433,6 +2433,7 @@ Partial Class frmKundenblatt
         '
         'tbFIBU
         '
+        Me.tbFIBU.Controls.Add(Me.txtZinsbelastungNew)
         Me.tbFIBU.Controls.Add(Me.btn_FIBU_speichern)
         Me.tbFIBU.Controls.Add(Me.lblZNB_verrechnet)
         Me.tbFIBU.Controls.Add(Me.lblZNB_offen)
@@ -2441,18 +2442,41 @@ Partial Class frmKundenblatt
         Me.tbFIBU.Controls.Add(Me.dgvZinsnachberechnung)
         Me.tbFIBU.Controls.Add(Me.Label15)
         Me.tbFIBU.Controls.Add(Me.Label14)
-        Me.tbFIBU.Controls.Add(Me.txtZinsbelastung)
         Me.tbFIBU.Controls.Add(Me.Label12)
         Me.tbFIBU.Controls.Add(Me.rtbGespreachsbericht)
         Me.tbFIBU.Controls.Add(Me.Label9)
         Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel)
         Me.tbFIBU.Location = New System.Drawing.Point(4, 25)
         Me.tbFIBU.Name = "tbFIBU"
-        Me.tbFIBU.Size = New System.Drawing.Size(1644, 928)
+        Me.tbFIBU.Size = New System.Drawing.Size(1644, 945)
         Me.tbFIBU.TabIndex = 13
         Me.tbFIBU.Text = "FIBU"
         Me.tbFIBU.UseVisualStyleBackColor = True
         '
+        'txtZinsbelastungNew
+        '
+        Me.txtZinsbelastungNew._DateTimeOnly = False
+        Me.txtZinsbelastungNew._numbersOnly = True
+        Me.txtZinsbelastungNew._numbersOnlyKommastellen = "2"
+        Me.txtZinsbelastungNew._numbersOnlyTrennzeichen = True
+        Me.txtZinsbelastungNew._Prozent = False
+        Me.txtZinsbelastungNew._ShortDateNew = False
+        Me.txtZinsbelastungNew._ShortDateOnly = False
+        Me.txtZinsbelastungNew._TimeOnly = False
+        Me.txtZinsbelastungNew._TimeOnly_Seconds = False
+        Me.txtZinsbelastungNew._value = ""
+        Me.txtZinsbelastungNew._Waehrung = False
+        Me.txtZinsbelastungNew._WaehrungZeichen = False
+        Me.txtZinsbelastungNew.ForeColor = System.Drawing.Color.Black
+        Me.txtZinsbelastungNew.Location = New System.Drawing.Point(835, 15)
+        Me.txtZinsbelastungNew.MaxLength = 6
+        Me.txtZinsbelastungNew.MaxLineLength = -1
+        Me.txtZinsbelastungNew.MaxLines_Warning = ""
+        Me.txtZinsbelastungNew.MaxLines_Warning_Label = Nothing
+        Me.txtZinsbelastungNew.Name = "txtZinsbelastungNew"
+        Me.txtZinsbelastungNew.Size = New System.Drawing.Size(52, 20)
+        Me.txtZinsbelastungNew.TabIndex = 30
+        '
         'btn_FIBU_speichern
         '
         Me.btn_FIBU_speichern.Location = New System.Drawing.Point(1468, 9)
@@ -2536,18 +2560,9 @@ Partial Class frmKundenblatt
         Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label14.Location = New System.Drawing.Point(685, 18)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(124, 13)
+        Me.Label14.Size = New System.Drawing.Size(149, 13)
         Me.Label14.TabIndex = 21
-        Me.Label14.Text = "Zinssatz (Zinsbelastung):"
+        Me.Label14.Text = "Zinssatz (Zinsbelastung, in %):"
-        '
-        'txtZinsbelastung
-        '
-        Me.txtZinsbelastung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtZinsbelastung.Location = New System.Drawing.Point(959, 11)
-        Me.txtZinsbelastung.MaxLength = 50
-        Me.txtZinsbelastung.Name = "txtZinsbelastung"
-        Me.txtZinsbelastung.Size = New System.Drawing.Size(53, 20)
-        Me.txtZinsbelastung.TabIndex = 20
         '
         'Label12
         '
@@ -3006,7 +3021,7 @@ Partial Class frmKundenblatt
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(1651, 1086)
+        Me.ClientSize = New System.Drawing.Size(1651, 1103)
         Me.Controls.Add(Me.lblAbfVerb)
         Me.Controls.Add(Me.btnAbfVerb)
         Me.Controls.Add(Me.tbcntrMain)
@@ -3287,7 +3302,6 @@ Partial Class frmKundenblatt
     Friend WithEvents Label12 As Label
     Friend WithEvents rtbGespreachsbericht As RichTextBox
     Friend WithEvents Label14 As Label
-    Friend WithEvents txtZinsbelastung As TextBox
     Friend WithEvents Label15 As Label
     Friend WithEvents lblZNB_verrechnet As Label
     Friend WithEvents lblZNB_offen As Label
@@ -3296,4 +3310,5 @@ Partial Class frmKundenblatt
     Friend WithEvents dgvZinsnachberechnung As VERAG_PROG_ALLGEMEIN.MyDatagridview
     Friend WithEvents btnBestelldateiErzeugen As Button
     Friend WithEvents btn_FIBU_speichern As Button
+    Friend WithEvents txtZinsbelastungNew As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class

SDL/kunden/frmKundenblatt.vb

@@ -465,7 +465,7 @@ Public Class frmKundenblatt
             If kdNr > 0 Then
                 rtbGespreachsbericht.Text = checkNullStr(KUNDE.Gesprächsbericht)
                 txtFIBUKuerzel.Text = checkNullStr(KUNDE_ERW.kde_BezFIBU)
-                txtZinsbelastung.Text = checkNullStr(KUNDE_ERW.kde_zinssatz)
+                txtZinsbelastungNew.Text = checkNullStr(KUNDE_ERW.kde_zinssatz)
 
                 initZNB()
 
@@ -2607,11 +2607,15 @@ Public Class frmKundenblatt
     Private Sub btn_FIBU_speichern_Click(sender As Object, e As EventArgs) Handles btn_FIBU_speichern.Click
         KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
 
-        If txtZinsbelastung.Text <> "" Then
+        If Not String.IsNullOrWhiteSpace(txtZinsbelastungNew.Text) Then
-            If txtZinsbelastung.Text.Contains(",") Then
+            Dim zinssatzText As String = txtZinsbelastungNew.Text.Replace(",", ".")
-                txtZinsbelastung.Text = txtZinsbelastung.ToString.Replace(",", ".")
+            Dim zinssatzValue As Decimal
-            Else
+
-                KUNDE_ERW.kde_zinssatz = checkNullStr(txtZinsbelastung.Text)
+            If Decimal.TryParse(zinssatzText, System.Globalization.NumberStyles.Any, System.Globalization.CultureInfo.InvariantCulture, zinssatzValue) Then
+                If zinssatzValue <= 999.99D AndAlso zinssatzValue >= -999.99D Then
+                    KUNDE_ERW.kde_zinssatz = zinssatzValue
+                End If
+
             End If
         Else
             KUNDE_ERW.kde_zinssatz = Nothing
@@ -2619,10 +2623,15 @@ Public Class frmKundenblatt
 
         KUNDE_ERW.SAVE()
 
-        If KUNDE.Gesprächsbericht <> "" AndAlso checkNullStr(rtbGespreachsbericht.Text) = "" OrElse KUNDE.Gesprächsbericht = "" AndAlso checkNullStr(rtbGespreachsbericht.Text) <> "" Then
+        If Not (KUNDE.Gesprächsbericht <> "" AndAlso checkNullStr(rtbGespreachsbericht.Text) = "") Then
-            KUNDE.Gesprächsbericht = checkNullStr(rtbGespreachsbericht.Text)
+            If KUNDE.Gesprächsbericht = "" AndAlso checkNullStr(rtbGespreachsbericht.Text) <> "" Or KUNDE.Gesprächsbericht <> checkNullStr(rtbGespreachsbericht.Text) Then
-            KUNDE.SAVE()
+                KUNDE.Gesprächsbericht = checkNullStr(rtbGespreachsbericht.Text)
+                KUNDE.SAVE()
+            End If
+        Else
+            MsgBox("Feld Gesprächstbericht darf nicht leer sein")
         End If
+
     End Sub
 
     Private Sub dgvZinsnachberechnung_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvZinsnachberechnung.CellDoubleClick

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1349,7 +1349,7 @@ Public Class usrCntlKundenuebersicht
 
             Try
                 For Each r As DataGridViewRow In .Rows
-                    If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then
+                    If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) >= zahlungsziel Then 'vpm > auf >= für Anfrage Anna. 
                         If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value)
                     Else
                         If CDbl(r.Cells("Betrag").Value) > 0 Then sumNOTZZ += CDbl(r.Cells("Betrag").Value)

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -828,7 +828,7 @@ Public Class cMDMFunctionsAllgemein
             Case 10 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblUTAImportNew] where Rechnungsdatum='" & reDat & "' and Abrechnungsnummer='" & reNr & "' and Lieferland_ISO2='" & Antrag_LandKz & "' AND daId is not null", "FMZOLL",,, -1)
             Case 7 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & reDat & "' and rmc_reNr='" & reNr & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1)
             Case 8 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNew.daId FROM [tblIDSTransactionsNew] INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode LEFT JOIN tblIDSInvoicesNew on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber where tblIDSTransactionsNew.[YearMonthDay] ='" & reDat & "' AND ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) ='" & reNr & "' and tbl_IDS_Länder.Lieferland_ISO2='" & Antrag_LandKz & "' AND tblIDSInvoicesNew.daId  is not null", "FMZOLL",,, -1)
-            Case 12 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNewSplittedByCountry.daId FROM [tblIDSInvoicesNewSplittedByCountry]  where tblIDSInvoicesNewSplittedByCountry.[YearMonthDay] ='" & reDat & "' AND tblIDSInvoicesNewSplittedByCountry.Invoicenumber ='" & reNr.ToString.Replace("/", "") & "' andtblIDSInvoicesNewSplittedByCountry.Country='" & Antrag_LandKz & "' AND tblIDSInvoicesNewSplittedByCountry.daId  is not null", "FMZOLL",,, -1)
+            Case 12 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNewSplittedByCountry.daId FROM [tblIDSInvoicesNewSplittedByCountry]  where tblIDSInvoicesNewSplittedByCountry.[YearMonthDay] ='" & reDat & "' AND tblIDSInvoicesNewSplittedByCountry.Invoicenumber ='" & reNr.ToString.Replace("/", "") & "' and tblIDSInvoicesNewSplittedByCountry.Country='" & Antrag_LandKz & "' AND tblIDSInvoicesNewSplittedByCountry.daId  is not null", "FMZOLL",,, -1)
         End Select
 
         Return da_id

VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb

@@ -500,6 +500,7 @@ Class TrdInvoice_FUNCTIONS
 
                         If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen vom") Then
                             Buchungstext = Buchungstext.Replace("Zahlungen vom", "Zinsen")
+                            Buchungstext &= " / nicht verzinsen"
                         End If
 
                         If TRD_INVOICE.SAVE Then