diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index a41bb6ae..a2609e23 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/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() diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb index df430d74..dafb02c5 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb +++ b/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 diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 406e0752..b5eeff57 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/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 @ZahlungBis as Date = '" & CDate(txtZRbis.Text).ToShortDateString & "' + declare @ZahlungVon as Date = '" & CDate(txtZRvon.Text).ToString("yyyy-MM-dd") & "' + 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, - case when isnull(dbo.fibu_zahlziel.si_ntage,14) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,14) end as ZZinTage, + ISNULL(fibu_konto.c_zahlziel, '0/0/20') AS ZZ_in_Debitor, + 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, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then - 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 - - 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 & " diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index b0ca7e74..08256a87 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/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 - Buchungstext = Buchungstext.Replace("Abrechnungsperiode von", "Zinsen") + If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen vom") Then + Buchungstext = Buchungstext.Replace("Zahlungen vom", "Zinsen") End If If TRD_INVOICE.SAVE Then diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb index 9c2a29a8..b791479a 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb +++ b/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