fakt, etc.
This commit is contained in:
@@ -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()
|
||||
|
||||
@@ -62,6 +62,7 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
|
||||
|
||||
RECHNUNG.ORDER_POSITIONEN()
|
||||
|
||||
|
||||
For Each POS In RECHNUNG.POSITIONEN
|
||||
|
||||
Dim dtTemp As DataTable
|
||||
|
||||
@@ -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, (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 & "
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user