fakt, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -2440,6 +2440,21 @@ Public Class cFakturierung
                                           rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value)
 
                                           If firma.Firma_ID = 19 Then
+
+                                              If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung
+                                                  Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text.Replace("*", ""))
+
+                                                  rpt.SubReport.Report = subRpt
+                                                  rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
+                                                  rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
+
+                                                  'txtPackstuecke.Top += SubReport.Height
+                                                  'txtKdAuftragsnummer.Top += SubReport.Height
+                                                  'txtSendungsdetails.Top += SubReport.Height
+                                              Else
+                                                  rpt.SubReport.Report = Nothing
+                                              End If
+
                                               Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL")
                                               If isReverseCharge Then
                                                   rpt.txtLeistung.Text &= IIf(Not rpt.txtLeistung.Text.Contains("*"), "*", "")
@@ -2539,21 +2554,6 @@ Public Class cFakturierung
                                           ' End If
                                           'rpt.Line10.Height = rpt.Detail.Height
 
-
-                                          If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung
-                                              Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text)
-
-                                              rpt.SubReport.Report = subRpt
-                                              rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
-                                              rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
-
-                                              'txtPackstuecke.Top += SubReport.Height
-                                              'txtKdAuftragsnummer.Top += SubReport.Height
-                                              'txtSendungsdetails.Top += SubReport.Height
-                                          Else
-                                              rpt.SubReport.Report = Nothing
-                                          End If
-
                                       End Sub
 
         AddHandler rpt.ReportFooter1.Format, Sub()

SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb

@@ -62,6 +62,7 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
 
         RECHNUNG.ORDER_POSITIONEN()
 
+
         For Each POS In RECHNUNG.POSITIONEN
 
             Dim dtTemp As DataTable

SDL/buchhaltung/usrCntlBH.vb

@@ -815,10 +815,11 @@ Public Class usrCntlBH
             Dim toleranztage As Integer = CInt(txtTolInTagen.Text)
 
 
-            Dim sqlStr_FIBU = "declare @KundeVon as Integer = " & txtKdNrvon.Text & "
+            Dim sqlStr_FIBU =
+                "declare @KundeVon as Integer = " & txtKdNrvon.Text & "
                 declare @KundeBis as Integer = " & txtKdNrbis.Text & "
-                declare @ZahlungVon as Date = '" & CDate(txtZRvon.Text).ToShortDateString & "'
+                declare @ZahlungVon as Date = '" & CDate(txtZRvon.Text).ToString("yyyy-MM-dd") & "'
-                declare @ZahlungBis as Date = '" & CDate(txtZRbis.Text).ToShortDateString & "'
+                declare @ZahlungBis as Date = '" & CDate(txtZRbis.Text).ToString("yyyy-MM-dd") & "'
                 declare @MandantNr as Integer = 19
                 
                                 
@@ -832,16 +833,16 @@ Public Class usrCntlBH
                 op_debitor.d_netto AS Nettodatum, 
                 op_debitor.c_bemerkung AS buchungstext, 
                 op_debitor.d_zahlung AS Zahlungsdatum, 
-                ISNULL(op_debitor.c_zahlziel, '0/0/14') AS ZZ_in_OP, 
+                ISNULL(op_debitor.c_zahlziel, '0/0/20') AS ZZ_in_OP, 
                 isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") AS Zinssatz_Kunde,
-                ISNULL(fibu_konto.c_zahlziel, '0/0/14') AS ZZ_in_Debitor, 
+                ISNULL(fibu_konto.c_zahlziel, '0/0/20') AS ZZ_in_Debitor, 
-                case when isnull(dbo.fibu_zahlziel.si_ntage,14) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,14) end as ZZinTage,
+                ISNULL(dbo.fibu_zahlziel.si_ntage,20) as ZZinTage,
 				DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung) as ReZielZahlungsdatum,
-				DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÜberschreitungInTagen,
+				DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + 0 ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÜberschreitungInTagen,
 				
-                case when DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end  + 0), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then
+                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," & zinssatz.ToString.Replace(",", ".") & ")  / 100 * DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360 
+                    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 
 
                 else 0 end as Zinsbetrag,
 
@@ -1234,7 +1235,7 @@ Public Class usrCntlBH
                     Dim startDate As String = CDate(R("zahlungsperiode_start")).ToShortDateString
                     Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString
 
-                    Dim vermerk As String = "Zahlungen vom " & startDate & " bis " & EndDate
+                    Dim vermerk As String = "Zahlungen vom " & startDate & " - " & EndDate 'max 50 Zeichen!!!
                     Dim Fußtext As String = "Sehr geehrte Damen und Herren," & vbNewLine & "
                                               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 & "

VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb

@@ -498,8 +498,8 @@ Class TrdInvoice_FUNCTIONS
 
                         Dim Buchungstext As String = ROW("RK_Buchungstext")
 
-                        If Buchungstext <> "" AndAlso Buchungstext.Contains("Abrechnungsperiode von") Then
+                        If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen vom") Then
-                            Buchungstext = Buchungstext.Replace("Abrechnungsperiode von", "Zinsen")
+                            Buchungstext = Buchungstext.Replace("Zahlungen vom", "Zinsen")
                         End If
 
                         If TRD_INVOICE.SAVE Then

VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb

@@ -348,7 +348,7 @@ Public Class cSyska_Interface
 
                             If dt_BuchungenZeilen IsNot Nothing AndAlso dt_BuchungenZeilen.Rows.Count > 0 Then
                                 For Each rz In dt_BuchungenZeilen.Rows
-                                    file.WriteLine(genBuchungsZeile(rz, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag, ambargubuchungen)) ' BuchungsZeilen...
+                                    file.WriteLine(genBuchungsZeile(rz, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag, ambargubuchungen, r("Buchungstext"))) ' BuchungsZeilen...
                                 Next
                             End If
                             If curDifferenzbetrag <> 0 Then 'Differenz --> Ausgelich auf Diff.Konto
@@ -741,7 +741,7 @@ Public Class cSyska_Interface
         Return genBuchungsZeileSum
     End Function
 
-    Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, ByRef curDifferenzbetrag As Double, Optional ambargubuchungen As Boolean = False) As String
+    Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, ByRef curDifferenzbetrag As Double, Optional ambargubuchungen As Boolean = False, Optional Buchungstext As String = "") As String
 
         Dim curSteuerbetrag As Double
         Dim curNettobetrag As Double
@@ -818,7 +818,8 @@ Public Class cSyska_Interface
 
         genBuchungsZeile &= FiBuSollkontonummer & vbTab
         genBuchungsZeile &= FiBuHabenkontonummer & vbTab
-        genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
+        'genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
+        genBuchungsZeile &= IIf(Buchungstext <> "" AndAlso Buchungstext.Contains("Zinsen"), Buchungstext & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
 
 
         genBuchungsZeile &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab