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
Case "EN"
rpt.lblLeistungUeberschrift.Text = "Inv. No."
rpt.lblAnzahlUeberschrift.Text = "Tage"
rpt.lblAnzahlUeberschrift.Text = "OD days"
rpt.lblSteuerpflichtigUeberschrift.Text = "Payment Amount"
rpt.lblSteuerfreiUeberschrift.Text = "Default Interest"
'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Interest p.a."
@@ -2330,7 +2330,7 @@ Public Class cFakturierung
Case "TR"
rpt.lblLeistungUeberschrift.Text = "Belge"
rpt.lblAnzahlUeberschrift.Text = "Tage"
rpt.lblAnzahlUeberschrift.Text = "Günler"
rpt.lblSteuerpflichtigUeberschrift.Text = "Ödeme tutarı"
rpt.lblSteuerfreiUeberschrift.Text = "Geç ödeme faizi"
' rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a."
@@ -2338,7 +2338,7 @@ Public Class cFakturierung
Case "RO"
rpt.lblLeistungUeberschrift.Text = "Nr. fact."
rpt.lblAnzahlUeberschrift.Text = "Tage"
rpt.lblAnzahlUeberschrift.Text = "Nr. zile"
rpt.lblSteuerpflichtigUeberschrift.Text = "Suma de plata"
rpt.lblSteuerfreiUeberschrift.Text = "Penalitati"
'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 RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
Dim LeistungsText As String
@@ -7,14 +7,14 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
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)
' Dieser Aufruf ist f<EFBFBD>r den Designer erforderlich.
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
Me.RECHNUNG = RECHNUNG
Me.LeistungsText = LeistungsText
Me.Anzahl = Anzahl
Me.Betrag = Betrag
' F<EFBFBD>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then
@@ -86,8 +86,19 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
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"))
Else

4
SDL/My Project/AssemblyInfo.vb
View File

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