edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fakt.

Browse Source
This commit is contained in:
d.breimaier
2025-10-30 16:14:30 +01:00
parent bcb15f1086
commit 76e6691e83
3 changed files with 20 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2322,7 +2322,7 @@ Public Class cFakturierung
Select Case RECHNUNG.RechnungSprache Select Case RECHNUNG.RechnungSprache
Case "EN" Case "EN"
rpt.lblLeistungUeberschrift.Text = "Inv. No." rpt.lblLeistungUeberschrift.Text = "Inv. No."
rpt.lblAnzahlUeberschrift.Text = "Tage" rpt.lblAnzahlUeberschrift.Text = "OD days"
rpt.lblSteuerpflichtigUeberschrift.Text = "Payment Amount" rpt.lblSteuerpflichtigUeberschrift.Text = "Payment Amount"
rpt.lblSteuerfreiUeberschrift.Text = "Default Interest" rpt.lblSteuerfreiUeberschrift.Text = "Default Interest"
'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Interest p.a." 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Interest p.a."
@@ -2330,7 +2330,7 @@ Public Class cFakturierung
Case "TR" Case "TR"
rpt.lblLeistungUeberschrift.Text = "Belge" rpt.lblLeistungUeberschrift.Text = "Belge"
rpt.lblAnzahlUeberschrift.Text = "Tage" rpt.lblAnzahlUeberschrift.Text = "Günler"
rpt.lblSteuerpflichtigUeberschrift.Text = "Ödeme tutarı" rpt.lblSteuerpflichtigUeberschrift.Text = "Ödeme tutarı"
rpt.lblSteuerfreiUeberschrift.Text = "Geç ödeme faizi" rpt.lblSteuerfreiUeberschrift.Text = "Geç ödeme faizi"
' rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a." ' rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a."
@@ -2338,7 +2338,7 @@ Public Class cFakturierung
Case "RO" Case "RO"
rpt.lblLeistungUeberschrift.Text = "Nr. fact." rpt.lblLeistungUeberschrift.Text = "Nr. fact."
rpt.lblAnzahlUeberschrift.Text = "Tage" rpt.lblAnzahlUeberschrift.Text = "Nr. zile"
rpt.lblSteuerpflichtigUeberschrift.Text = "Suma de plata" rpt.lblSteuerpflichtigUeberschrift.Text = "Suma de plata"
rpt.lblSteuerfreiUeberschrift.Text = "Penalitati" rpt.lblSteuerfreiUeberschrift.Text = "Penalitati"
'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Dobândă p.a." 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Dobândă p.a."

19
SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb
View File

@@ -1,4 +1,4 @@
Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Dim _LAN = "" Dim _LAN = ""
Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
Dim LeistungsText As String Dim LeistungsText As String
@@ -7,14 +7,14 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String, Anzahl As Integer, Betrag As Double) Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String, Anzahl As Integer, Betrag As Double)
' Dieser Aufruf ist f<EFBFBD>r den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
Me._LAN = _LAN Me._LAN = _LAN
Me.RECHNUNG = RECHNUNG Me.RECHNUNG = RECHNUNG
Me.LeistungsText = LeistungsText Me.LeistungsText = LeistungsText
Me.Anzahl = Anzahl Me.Anzahl = Anzahl
Me.Betrag = Betrag Me.Betrag = Betrag
' F<EFBFBD>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then If _LAN.replace("DE", "") <> "" Then
@@ -86,8 +86,19 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
If Anzahl > 0 AndAlso Betrag < 0 Then If Anzahl > 0 AndAlso Betrag < 0 Then
Dim Rabatt As String = "Rabatt"
dt.Rows.Add("0", "Rabatt", RECHNUNG.Abfertigungsdatum.ToShortDateString, "", "", LeistungsText.ToString, "", Betrag.ToString, "", "") Select Case RECHNUNG.RechnungSprache
Case "EN" : Rabatt = "Discount"
Case "RO" : Rabatt = "Reducere"
Case "TR" : Rabatt = "İndirim"
Case Else
Rabatt = "Rabatt"
End Select
dt.Rows.Add("0", Rabatt, RECHNUNG.Abfertigungsdatum.ToShortDateString, "", "", LeistungsText.ToString, "", Betrag.ToString, "", "")
'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")) '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"))
Else Else

4
SDL/My Project/AssemblyInfo.vb
View File

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