From fbbe75260508442abc9b73a2473f1237a2ed87d7 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 30 Oct 2025 13:19:56 +0100 Subject: [PATCH] fakt. --- SDL/Fakturierung/cFakturierung.vb | 60 ++++++++++++++--- .../rptRechnungDruck_MDM.Designer.vb | 64 ++++++++++++------- 2 files changed, 92 insertions(+), 32 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 906623b7..d1a91d69 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -2154,6 +2154,7 @@ Public Class cFakturierung Select Case RECHNUNG.RechnungSprache Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:" : rpt.lblSendungsdatenUeberschrift.Text = "Service:" + Case "TR" : rpt.Label2.Text = ZZTage & " gün" ': rpt.Label1.Text = "Payment target:" : rpt.lblSendungsdatenUeberschrift.Text = "Service:" Case "RO" : rpt.Label2.Text = ZZTage & " Zile" : rpt.Label1.Text = "Termen de plată:" : rpt.lblSendungsdatenUeberschrift.Text = "Descriere:" Case Else : rpt.Label2.Text = ZZTage & " Tage" : rpt.lblSendungsdatenUeberschrift.Text = "Bezeichnung:" End Select @@ -2318,22 +2319,65 @@ Public Class cFakturierung rpt.lblSteuerpflichtig.Visible = False rpt.lblLeistungUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left - rpt.lblLeistungUeberschrift.Text = "RechnungsNr" - rpt.lblAnzahlUeberschrift.Text = "Tage" + Select Case RECHNUNG.RechnungSprache + Case "EN" + rpt.lblLeistungUeberschrift.Text = "Inv. No." + rpt.lblAnzahlUeberschrift.Text = "Tage" + rpt.lblSteuerpflichtigUeberschrift.Text = "Payment Amount" + rpt.lblSteuerfreiUeberschrift.Text = "Default Interest" + 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Interest p.a." + + Case "TR" + + rpt.lblLeistungUeberschrift.Text = "Belge" + rpt.lblAnzahlUeberschrift.Text = "Tage" + rpt.lblSteuerpflichtigUeberschrift.Text = "Ödeme tutarı" + rpt.lblSteuerfreiUeberschrift.Text = "Geç ödeme faizi" + ' rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a." + + Case "RO" + + rpt.lblLeistungUeberschrift.Text = "Nr. fact." + rpt.lblAnzahlUeberschrift.Text = "Tage" + rpt.lblSteuerpflichtigUeberschrift.Text = "Suma de plata" + rpt.lblSteuerfreiUeberschrift.Text = "Penalitati" + 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Dobândă p.a." + + Case Else + rpt.lblLeistungUeberschrift.Text = "RENR" + rpt.lblAnzahlUeberschrift.Text = "VZ Tage" + rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag" + rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen" + 'rpt.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a." + End Select + + + rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center - rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag" - rpt.lbl_onlyZR_VZUeberschrift.Text = "Zinsen p.a." - rpt.lbl_onlyZR_VZUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left - rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen" rpt.lblSteuerfreiUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Right - + rpt.lbl_onlyZR_ZinsenUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True rpt.lbl_onlyZR_FaelligUeberschrift.Visible = True - rpt.lbl_onlyZR_VZUeberschrift.Visible = True + rpt.lbl_onlyZR_ZinsenUeberschrift.Visible = True rpt.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = True rpt.txtLeistung.Visible = False + + Else + + 'rpt.lblLeistungUeberschrift.Text = "Leistung" + 'rpt.lblAnzahlUeberschrift.Text = "Anzahl" + 'rpt.lblSteuerfreiUeberschrift.Text = "Steuerfrei" + 'rpt.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig" + rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Right + + rpt.lbl_onlyZR_ReDatUeberschrift.Visible = False + rpt.lbl_onlyZR_FaelligUeberschrift.Visible = False + rpt.lbl_onlyZR_ZinsenUeberschrift.Visible = False + rpt.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False + rpt.txtLeistung.Visible = True + End If diff --git a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb index 1e04c89d..73c30ff0 100644 --- a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb @@ -105,7 +105,7 @@ Partial Public Class rptRechnungDruck_MDM Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lbl_onlyZR_VZUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lbl_onlyZR_ZinsenUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lbl_onlyZR_ZahlungsDatUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lbl_onlyZR_FaelligUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lbl_onlyZR_ReDatUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -125,6 +125,7 @@ Partial Public Class rptRechnungDruck_MDM Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() CType(Me.lblLeistungNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit() @@ -194,7 +195,7 @@ Partial Public Class rptRechnungDruck_MDM CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lbl_onlyZR_VZUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lbl_onlyZR_ZinsenUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lbl_onlyZR_ZahlungsDatUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lbl_onlyZR_FaelligUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() @@ -219,6 +220,7 @@ Partial Public Class rptRechnungDruck_MDM ' 'Detail ' + Me.Detail.CanShrink = True Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungNr, Me.lblAnzahl, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtLeistung, Me.Line10, Me.Line11, Me.SubReport}) Me.Detail.Height = 0.3901193! Me.Detail.KeepTogether = True @@ -303,8 +305,8 @@ Partial Public Class rptRechnungDruck_MDM Me.Line11.LineWeight = 1.0! Me.Line11.Name = "Line11" Me.Line11.Top = 0! - Me.Line11.Width = 0! - Me.Line11.X1 = 7.476377! + Me.Line11.Width = 0.000001430511! + Me.Line11.X1 = 7.476378! Me.Line11.X2 = 7.476377! Me.Line11.Y1 = 0! Me.Line11.Y2 = 0.1712599! @@ -1212,8 +1214,8 @@ Partial Public Class rptRechnungDruck_MDM ' 'GroupHeader4 ' - Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.lbl_onlyZR_VZUeberschrift, Me.lbl_onlyZR_ZahlungsDatUeberschrift, Me.lbl_onlyZR_FaelligUeberschrift, Me.lbl_onlyZR_ReDatUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblAnzahlUeberschrift, Me.Line4, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBeförderungsmittelUeberschrift, Me.txtBeförderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16}) - Me.GroupHeader4.Height = 1.033525! + Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.lbl_onlyZR_ZinsenUeberschrift, Me.lbl_onlyZR_ZahlungsDatUeberschrift, Me.lbl_onlyZR_FaelligUeberschrift, Me.lbl_onlyZR_ReDatUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblAnzahlUeberschrift, Me.Line4, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBeförderungsmittelUeberschrift, Me.txtBeförderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16, Me.Line18}) + Me.GroupHeader4.Height = 0.9710256! Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.Name = "GroupHeader4" ' @@ -1241,17 +1243,17 @@ Partial Public Class rptRechnungDruck_MDM Me.lblSteuerfreiUeberschrift.Top = 0.8114173! Me.lblSteuerfreiUeberschrift.Width = 1.554331! ' - 'lbl_onlyZR_VZUeberschrift + 'lbl_onlyZR_ZinsenUeberschrift ' - Me.lbl_onlyZR_VZUeberschrift.Height = 0.1511808! - Me.lbl_onlyZR_VZUeberschrift.HyperLink = Nothing - Me.lbl_onlyZR_VZUeberschrift.Left = 5.521662! - Me.lbl_onlyZR_VZUeberschrift.Name = "lbl_onlyZR_VZUeberschrift" - Me.lbl_onlyZR_VZUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + Me.lbl_onlyZR_ZinsenUeberschrift.Height = 0.1511808! + Me.lbl_onlyZR_ZinsenUeberschrift.HyperLink = Nothing + Me.lbl_onlyZR_ZinsenUeberschrift.Left = 5.521662! + Me.lbl_onlyZR_ZinsenUeberschrift.Name = "lbl_onlyZR_ZinsenUeberschrift" + Me.lbl_onlyZR_ZinsenUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" - Me.lbl_onlyZR_VZUeberschrift.Text = "Verzugszinsen" - Me.lbl_onlyZR_VZUeberschrift.Top = 0.8112674! - Me.lbl_onlyZR_VZUeberschrift.Width = 0.8169294! + Me.lbl_onlyZR_ZinsenUeberschrift.Text = "Zinsen p.a." + Me.lbl_onlyZR_ZinsenUeberschrift.Top = 0.8112674! + Me.lbl_onlyZR_ZinsenUeberschrift.Width = 0.8169294! ' 'lbl_onlyZR_ZahlungsDatUeberschrift ' @@ -1288,9 +1290,9 @@ Partial Public Class rptRechnungDruck_MDM Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9362284! Me.lbl_onlyZR_ReDatUeberschrift.Name = "lbl_onlyZR_ReDatUeberschrift" Me.lbl_onlyZR_ReDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.lbl_onlyZR_ReDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & - "-set: 1" - Me.lbl_onlyZR_ReDatUeberschrift.Text = "Rechnungsdatum" + Me.lbl_onlyZR_ReDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: center; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.lbl_onlyZR_ReDatUeberschrift.Text = "Datum" Me.lbl_onlyZR_ReDatUeberschrift.Top = 0.8120553! Me.lbl_onlyZR_ReDatUeberschrift.Visible = False Me.lbl_onlyZR_ReDatUeberschrift.Width = 1.065354! @@ -1462,14 +1464,14 @@ Partial Public Class rptRechnungDruck_MDM ' 'Line13 ' - Me.Line13.Height = 0.204331! - Me.Line13.Left = 7.477614! + Me.Line13.Height = 0.2043307! + Me.Line13.Left = 7.476378! Me.Line13.LineWeight = 1.0! Me.Line13.Name = "Line13" Me.Line13.Top = 0.8119134! Me.Line13.Width = 0! - Me.Line13.X1 = 7.477614! - Me.Line13.X2 = 7.477614! + Me.Line13.X1 = 7.476378! + Me.Line13.X2 = 7.476378! Me.Line13.Y1 = 0.8119134! Me.Line13.Y2 = 1.016244! ' @@ -1486,6 +1488,19 @@ Partial Public Class rptRechnungDruck_MDM Me.Line16.Y1 = 0.8114173! Me.Line16.Y2 = 0.8114173! ' + 'Line18 + ' + Me.Line18.Height = 0.2043306! + Me.Line18.Left = 0.00511811! + Me.Line18.LineWeight = 1.0! + Me.Line18.Name = "Line18" + Me.Line18.Top = 0.8114174! + Me.Line18.Width = 0! + Me.Line18.X1 = 0.00511811! + Me.Line18.X2 = 0.00511811! + Me.Line18.Y1 = 0.8114174! + Me.Line18.Y2 = 1.015748! + ' 'GroupFooter4 ' Me.GroupFooter4.Height = 0! @@ -1582,7 +1597,7 @@ Partial Public Class rptRechnungDruck_MDM CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lbl_onlyZR_VZUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lbl_onlyZR_ZinsenUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lbl_onlyZR_ZahlungsDatUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lbl_onlyZR_FaelligUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() @@ -1707,5 +1722,6 @@ Partial Public Class rptRechnungDruck_MDM Public WithEvents lbl_onlyZR_FaelligUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lbl_onlyZR_ReDatUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lbl_onlyZR_ZahlungsDatUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label - Public WithEvents lbl_onlyZR_VZUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lbl_onlyZR_ZinsenUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line End Class