This commit is contained in:
2025-12-19 13:51:31 +01:00
parent 55624819fc
commit ca608ec141
2 changed files with 22 additions and 24 deletions

View File

@@ -618,11 +618,8 @@ Public Class cFakturierung
End If
'MsgBox("Firma:" & RECHNUNG.Firma_ID & " - Land:" & "" & RECHNUNG.RechnungsLandKz & " - OffertenNr:" & RECHNUNG.OffertenNr & " - TXT: " & strText)
Return strText
@@ -2116,20 +2113,21 @@ Public Class cFakturierung
rpt.lblRgDatumUeberschrift.Text = "Data nota credit:"
End Select
Case "TR" 'Todo: bekomme noch die Übersetzungen dazu: 2025-12-18
Case "TR"
Select Case RECHNUNG.BelegartenKz
Case "AR"
rpt.lblUeberschriftRG_GS.Text = "INVOICE"
rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
rpt.lblUeberschriftRG_GS.Text = "FATURA"
rpt.lblSummeUeberschrift.Text = "Fatura tutari:"
rpt.lblRgNrUeberschrift.Text = " Fatura nr.:"
rpt.lblRgDatumUeberschrift.Text = "Fatura thrihi:"
Case "AG"
rpt.lblUeberschriftRG_GS.Text = "CREDIT NOTE"
rpt.lblSummeUeberschrift.Text = "Credit Amount:"
rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
rpt.lblUeberschriftRG_GS.Text = "KREDI"
rpt.lblSummeUeberschrift.Text = "Kredi tutari:"
rpt.lblRgNrUeberschrift.Text = "Kredi nr.:"
rpt.lblRgDatumUeberschrift.Text = "Kredi thrihi:"
End Select
Case Else
Select Case RECHNUNG.BelegartenKz
Case "AR"