From 7c4794d3859ffb6ae9306584ef6052258291ad4e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 23 Oct 2025 11:41:13 +0200 Subject: [PATCH] Fremdrechnungen, MDM-Zinsrechnung, etc, --- SDL/Fakturierung/cFakturierung.vb | 34 +++- .../rptRechnungDruck_MDM.Designer.vb | 154 +++++++++++++----- ...agenDruck_Zinsennachberechnung.Designer.vb | 122 +++++++++----- ...ngMDM_AnlagenDruck_Zinsennachberechnung.vb | 10 +- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 42 +++-- SDL/buchhaltung/usrCntlBH.vb | 34 ++-- SDL/mdm/usrcntlFremdrechnungen.vb | 36 +++- .../Classes/cMDMZinsberechnung.vb | 3 + 8 files changed, 314 insertions(+), 121 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index f6f41d94..a41bb6ae 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -3,12 +3,9 @@ Imports System.Globalization Imports System.IO Imports System.Net Imports System.Web.UI.WebControls.Expressions -Imports com.sun.org.apache.xpath.internal.operations -Imports javax.print.attribute.standard Imports Microsoft.Office.Interop Imports s2industries.ZUGFeRD Imports VERAG_PROG_ALLGEMEIN -Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class cFakturierung @@ -2319,6 +2316,28 @@ Public Class cFakturierung If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False If rpt.txtBeförderungsmittel.Text.Trim = String.Empty Then rpt.txtBeförderungsmittelUeberschrift.Visible = False + If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then + rpt.lblLeistungNr.Visible = False + rpt.lblAnzahl.Visible = False + rpt.lblSteuerfrei.Visible = False + rpt.lblSteuerpflichtig.Visible = False + + rpt.lblLeistungUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left + rpt.lblLeistungUeberschrift.Text = "RechnungsNr" + rpt.lblAnzahlUeberschrift.Text = "Tage" + rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center + rpt.lblSteuerfreiUeberschrift.Text = "Zinsen p.a." + rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag" + + + rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True + rpt.lbl_onlyZR_FaelligUeberschrift.Visible = True + rpt.lbl_onlyZR_VZUeberschrift.Visible = True + rpt.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = True + + rpt.txtLeistung.Visible = False + End If + 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung @@ -2610,14 +2629,15 @@ Public Class cFakturierung If RECHNUNG.Firma_ID = 19 Then + If rpt.lblSteuerbetrag.Text = "" Then rpt.lblSteuersatz.Text = "" 'rpt.lblSteuersatz.Visible = False 'rpt.lblSteuerbetrag.Visible = False rpt.lblSteuerpflichtigGes.Visible = False - rpt.lblSteuerfreiGes.Visible = False - rpt.lblZwText.Visible = False - rpt.lblZWSumme.Visible = False - End If + rpt.lblSteuerfreiGes.Visible = False + rpt.lblZwText.Visible = False + rpt.lblZWSumme.Visible = False + End If End Sub diff --git a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb index 243d83a2..5c5ed787 100644 --- a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb @@ -103,10 +103,14 @@ Partial Public Class rptRechnungDruck_MDM Me.lblHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() - Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lbl_onlyZR_VZUeberschrift = 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() + Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAvisiererUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -194,10 +198,14 @@ Partial Public Class rptRechnungDruck_MDM CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lbl_onlyZR_VZUeberschrift, 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() + CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() @@ -224,7 +232,7 @@ Partial Public Class rptRechnungDruck_MDM 'Detail ' 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.369286! + Me.Detail.Height = 0.3901193! Me.Detail.KeepTogether = True Me.Detail.Name = "Detail" ' @@ -317,12 +325,12 @@ Partial Public Class rptRechnungDruck_MDM ' Me.SubReport.CloseBorder = False Me.SubReport.Height = 0.1259843! - Me.SubReport.Left = 0.03307087! + Me.SubReport.Left = 0! Me.SubReport.Name = "SubReport" Me.SubReport.Report = Nothing Me.SubReport.ReportName = "SubReport1" - Me.SubReport.Top = 0.1732284! - Me.SubReport.Width = 7.442126! + Me.SubReport.Top = 0.1712599! + Me.SubReport.Width = 7.066142! ' 'PageFooter ' @@ -1216,11 +1224,89 @@ Partial Public Class rptRechnungDruck_MDM ' 'GroupHeader4 ' - Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSteuerpflichtigUeberschrift, Me.lblLeistungUeberschrift, Me.lblAnzahlUeberschrift, Me.lblSteuerfreiUeberschrift, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBefrderungsmittelUeberschrift, Me.txtBefrderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16}) + 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.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBefrderungsmittelUeberschrift, Me.txtBefrderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16}) Me.GroupHeader4.Height = 1.627275! Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.Name = "GroupHeader4" ' + 'lblLeistungUeberschrift + ' + Me.lblLeistungUeberschrift.Height = 0.1511808! + Me.lblLeistungUeberschrift.HyperLink = Nothing + Me.lblLeistungUeberschrift.Left = 0.01455834! + Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift" + Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.lblLeistungUeberschrift.Text = "Leistung" + Me.lblLeistungUeberschrift.Top = 1.415504! + Me.lblLeistungUeberschrift.Width = 0.9220559! + ' + 'lblSteuerfreiUeberschrift + ' + Me.lblSteuerfreiUeberschrift.Height = 0.1511807! + Me.lblSteuerfreiUeberschrift.HyperLink = Nothing + Me.lblSteuerfreiUeberschrift.Left = 5.512198! + Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift" + Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei" + Me.lblSteuerfreiUeberschrift.Top = 1.415504! + Me.lblSteuerfreiUeberschrift.Width = 1.554331! + ' + 'lbl_onlyZR_VZUeberschrift + ' + Me.lbl_onlyZR_VZUeberschrift.Height = 0.1511808! + Me.lbl_onlyZR_VZUeberschrift.HyperLink = Nothing + Me.lbl_onlyZR_VZUeberschrift.Left = 5.522048! + 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" & + "r-set: 1" + Me.lbl_onlyZR_VZUeberschrift.Text = "Verzugszinsen" + Me.lbl_onlyZR_VZUeberschrift.Top = 1.415354! + Me.lbl_onlyZR_VZUeberschrift.Width = 0.8169294! + ' + 'lbl_onlyZR_ZahlungsDatUeberschrift + ' + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Height = 0.1511808! + Me.lbl_onlyZR_ZahlungsDatUeberschrift.HyperLink = Nothing + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.492913! + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Name = "lbl_onlyZR_ZahlungsDatUeberschrift" + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Text = "Zahlungsdatum" + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 1.415354! + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False + Me.lbl_onlyZR_ZahlungsDatUeberschrift.Width = 0.9661421! + ' + 'lbl_onlyZR_FaelligUeberschrift + ' + Me.lbl_onlyZR_FaelligUeberschrift.Height = 0.1511808! + Me.lbl_onlyZR_FaelligUeberschrift.HyperLink = Nothing + Me.lbl_onlyZR_FaelligUeberschrift.Left = 2.001969! + Me.lbl_onlyZR_FaelligUeberschrift.Name = "lbl_onlyZR_FaelligUeberschrift" + Me.lbl_onlyZR_FaelligUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.lbl_onlyZR_FaelligUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.lbl_onlyZR_FaelligUeberschrift.Text = "Fllig" + Me.lbl_onlyZR_FaelligUeberschrift.Top = 1.415354! + Me.lbl_onlyZR_FaelligUeberschrift.Visible = False + Me.lbl_onlyZR_FaelligUeberschrift.Width = 0.490945! + ' + 'lbl_onlyZR_ReDatUeberschrift + ' + Me.lbl_onlyZR_ReDatUeberschrift.Height = 0.1511807! + Me.lbl_onlyZR_ReDatUeberschrift.HyperLink = Nothing + Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9366142! + 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.Top = 1.416142! + Me.lbl_onlyZR_ReDatUeberschrift.Visible = False + Me.lbl_onlyZR_ReDatUeberschrift.Width = 1.065354! + ' 'lblSteuerpflichtigUeberschrift ' Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808! @@ -1233,41 +1319,17 @@ Partial Public Class rptRechnungDruck_MDM Me.lblSteuerpflichtigUeberschrift.Top = 1.415504! Me.lblSteuerpflichtigUeberschrift.Width = 1.554331! ' - 'lblLeistungUeberschrift - ' - Me.lblLeistungUeberschrift.Height = 0.1511808! - Me.lblLeistungUeberschrift.HyperLink = Nothing - Me.lblLeistungUeberschrift.Left = 0.01455834! - Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift" - Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & - "-set: 1" - Me.lblLeistungUeberschrift.Text = "Leistung" - Me.lblLeistungUeberschrift.Top = 1.415504! - Me.lblLeistungUeberschrift.Width = 3.366143! - ' 'lblAnzahlUeberschrift ' - Me.lblAnzahlUeberschrift.Height = 0.1511808! + Me.lblAnzahlUeberschrift.Height = 0.1511807! Me.lblAnzahlUeberschrift.HyperLink = Nothing - Me.lblAnzahlUeberschrift.Left = 3.380701! + Me.lblAnzahlUeberschrift.Left = 3.459055! Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift" Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & "r-set: 1" Me.lblAnzahlUeberschrift.Text = "Anzahl" Me.lblAnzahlUeberschrift.Top = 1.415504! - Me.lblAnzahlUeberschrift.Width = 0.5771656! - ' - 'lblSteuerfreiUeberschrift - ' - Me.lblSteuerfreiUeberschrift.Height = 0.1511807! - Me.lblSteuerfreiUeberschrift.HyperLink = Nothing - Me.lblSteuerfreiUeberschrift.Left = 5.512198! - Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift" - Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" - Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei" - Me.lblSteuerfreiUeberschrift.Top = 1.415504! - Me.lblSteuerfreiUeberschrift.Width = 1.554331! + Me.lblAnzahlUeberschrift.Width = 0.4988112! ' 'Line4 ' @@ -1599,10 +1661,14 @@ Partial Public Class rptRechnungDruck_MDM CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lbl_onlyZR_VZUeberschrift, 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() + CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() @@ -1635,11 +1701,11 @@ Partial Public Class rptRechnungDruck_MDM Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line - Private WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter - Private WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line @@ -1731,4 +1797,8 @@ Partial Public Class rptRechnungDruck_MDM Public WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line Public WithEvents txtBank3 As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport + 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 End Class diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb index 4af44a83..ef09f309 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb @@ -26,6 +26,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.txtTage = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtZinsen = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtVZ = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtFaellig = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.lblReNr = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -35,6 +36,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.lblTage = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblZinsen = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblVZ = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit() @@ -44,6 +46,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung CType(Me.txtTage, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtFaellig, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).BeginInit() @@ -51,6 +54,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung CType(Me.lblTage, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader @@ -61,7 +65,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung 'Detail ' Me.Detail.CanGrow = False - Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ}) + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ, Me.txtFaellig}) Me.Detail.Height = 0.1755249! Me.Detail.KeepTogether = True Me.Detail.Name = "Detail" @@ -72,76 +76,95 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.txtREnr.Left = 0.005119062! Me.txtREnr.Name = "txtREnr" Me.txtREnr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & + "ar-set: 0" Me.txtREnr.Text = "-" Me.txtREnr.Top = 0! - Me.txtREnr.Width = 1.562204! + Me.txtREnr.Width = 0.8244095! ' 'txtReDat ' Me.txtReDat.Height = 0.1338583! - Me.txtReDat.Left = 1.567323! + Me.txtReDat.Left = 0.9232284! Me.txtReDat.Name = "txtReDat" Me.txtReDat.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & + "ar-set: 0" Me.txtReDat.Text = "-" Me.txtReDat.Top = 0! - Me.txtReDat.Width = 1.562204! + Me.txtReDat.Width = 0.8657481! ' 'txtZE ' Me.txtZE.Height = 0.1338583! - Me.txtZE.Left = 4.691732! + Me.txtZE.Left = 2.405118! Me.txtZE.Name = "txtZE" Me.txtZE.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & + "ar-set: 0" Me.txtZE.Text = "-" Me.txtZE.Top = 0! - Me.txtZE.Width = 0.8539373! + Me.txtZE.Width = 0.9661418! ' 'txtReBetrag ' Me.txtReBetrag.Height = 0.1338583! - Me.txtReBetrag.Left = 3.129528! + Me.txtReBetrag.Left = 3.948426! Me.txtReBetrag.Name = "txtReBetrag" Me.txtReBetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" & + "r-set: 0" Me.txtReBetrag.Text = "-" Me.txtReBetrag.Top = 0! - Me.txtReBetrag.Width = 1.562204! + Me.txtReBetrag.Width = 0.9708654! ' 'txtTage ' Me.txtTage.Height = 0.1338583! - Me.txtTage.Left = 5.54567! + Me.txtTage.Left = 3.37126! Me.txtTage.Name = "txtTage" Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & + "ar-set: 0" Me.txtTage.Text = "-" Me.txtTage.Top = 0! - Me.txtTage.Width = 0.6039373! + Me.txtTage.Width = 0.5771654! ' 'txtZinsen ' Me.txtZinsen.Height = 0.1338583! - Me.txtZinsen.Left = 6.149607! + Me.txtZinsen.Left = 6.319685! Me.txtZinsen.Name = "txtZinsen" Me.txtZinsen.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.txtZinsen.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtZinsen.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" & + "r-set: 0" Me.txtZinsen.Text = "-" Me.txtZinsen.Top = 0! - Me.txtZinsen.Width = 0.6039373! + Me.txtZinsen.Width = 0.7374016! ' 'txtVZ ' Me.txtVZ.Height = 0.1338583! - Me.txtVZ.Left = 6.753544! + Me.txtVZ.Left = 5.502756! Me.txtVZ.Name = "txtVZ" Me.txtVZ.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & + "ar-set: 0" Me.txtVZ.Text = "-" Me.txtVZ.Top = 0! - Me.txtVZ.Width = 0.6988189! + Me.txtVZ.Width = 0.8169292! + ' + 'txtFaellig + ' + Me.txtFaellig.Height = 0.1338583! + Me.txtFaellig.Left = 1.788977! + Me.txtFaellig.Name = "txtFaellig" + Me.txtFaellig.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtFaellig.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & + "ar-set: 0" + Me.txtFaellig.Text = "-" + Me.txtFaellig.Top = 0! + Me.txtFaellig.Width = 0.6161416! ' 'PageFooter ' @@ -150,10 +173,11 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung ' 'GroupHeader4 ' - Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.lblReDat, Me.lblReBetrag, Me.lblZahlungsdat, Me.lblTage, Me.lblZinsen, Me.lblVZ}) + Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.lblReDat, Me.lblReBetrag, Me.lblZahlungsdat, Me.lblTage, Me.lblZinsen, Me.lblVZ, Me.Label1}) Me.GroupHeader4.Height = 0.1433071! Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.Name = "GroupHeader4" + Me.GroupHeader4.Visible = False ' 'lblReNr ' @@ -165,79 +189,99 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung "har-set: 0" Me.lblReNr.Text = "RechnungsNr" Me.lblReNr.Top = 0! - Me.lblReNr.Width = 1.562205! + Me.lblReNr.Visible = False + Me.lblReNr.Width = 0.8244095! ' 'lblReDat ' Me.lblReDat.Height = 0.1433071! Me.lblReDat.HyperLink = Nothing - Me.lblReDat.Left = 1.567323! + Me.lblReDat.Left = 0.8295276! Me.lblReDat.Name = "lblReDat" Me.lblReDat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" Me.lblReDat.Text = "Rechnungsdatum" Me.lblReDat.Top = 0! - Me.lblReDat.Width = 1.562205! + Me.lblReDat.Visible = False + Me.lblReDat.Width = 1.084646! ' 'lblReBetrag ' Me.lblReBetrag.Height = 0.1433071! Me.lblReBetrag.HyperLink = Nothing - Me.lblReBetrag.Left = 3.129528! + Me.lblReBetrag.Left = 3.948426! Me.lblReBetrag.Name = "lblReBetrag" Me.lblReBetrag.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.lblReBetrag.Text = "Rechnungsbetrag" + Me.lblReBetrag.Text = "Zahlungsbetrag" Me.lblReBetrag.Top = 0! - Me.lblReBetrag.Width = 1.562205! + Me.lblReBetrag.Visible = False + Me.lblReBetrag.Width = 1.554331! ' 'lblZahlungsdat ' Me.lblZahlungsdat.Height = 0.1433071! Me.lblZahlungsdat.HyperLink = Nothing - Me.lblZahlungsdat.Left = 4.691732! + Me.lblZahlungsdat.Left = 2.405118! Me.lblZahlungsdat.Name = "lblZahlungsdat" Me.lblZahlungsdat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" Me.lblZahlungsdat.Text = "Zahlungsdatum" Me.lblZahlungsdat.Top = 0! - Me.lblZahlungsdat.Width = 0.8539371! + Me.lblZahlungsdat.Visible = False + Me.lblZahlungsdat.Width = 0.9661418! ' 'lblTage ' Me.lblTage.Height = 0.1433071! Me.lblTage.HyperLink = Nothing - Me.lblTage.Left = 5.518111! + Me.lblTage.Left = 3.37126! Me.lblTage.Name = "lblTage" Me.lblTage.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" Me.lblTage.Text = "Tage" Me.lblTage.Top = 0! - Me.lblTage.Width = 0.6314961! + Me.lblTage.Visible = False + Me.lblTage.Width = 0.5771654! ' 'lblZinsen ' Me.lblZinsen.Height = 0.1433071! Me.lblZinsen.HyperLink = Nothing - Me.lblZinsen.Left = 6.149607! + Me.lblZinsen.Left = 6.319685! Me.lblZinsen.Name = "lblZinsen" Me.lblZinsen.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.lblZinsen.Text = "Zinsen" + Me.lblZinsen.Text = "Zinsen p.a." Me.lblZinsen.Top = 0! - Me.lblZinsen.Width = 0.6039373! + Me.lblZinsen.Visible = False + Me.lblZinsen.Width = 0.7374016! ' 'lblVZ ' Me.lblVZ.Height = 0.1433071! Me.lblVZ.HyperLink = Nothing - Me.lblVZ.Left = 6.753544! + Me.lblVZ.Left = 5.502756! Me.lblVZ.Name = "lblVZ" Me.lblVZ.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" Me.lblVZ.Text = "Verzugszinsen" Me.lblVZ.Top = 0! - Me.lblVZ.Width = 0.6988189! + Me.lblVZ.Visible = False + Me.lblVZ.Width = 0.8169292! + ' + 'Label1 + ' + Me.Label1.Height = 0.1433071! + Me.Label1.HyperLink = Nothing + Me.Label1.Left = 1.914173! + Me.Label1.Name = "Label1" + Me.Label1.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label1.Text = "Fllig" + Me.Label1.Top = 0! + Me.Label1.Visible = False + Me.Label1.Width = 0.4909448! ' 'GroupFooter4 ' @@ -287,6 +331,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung CType(Me.txtTage, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtFaellig, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).EndInit() @@ -294,6 +339,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung CType(Me.lblTage, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub @@ -315,4 +361,6 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Private WithEvents lblTage As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblZinsen As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblVZ As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtFaellig As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label End Class diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb index b56a782a..df430d74 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb @@ -29,15 +29,18 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung txtTage.Text = "" txtZinsen.Text = "" txtVZ.Text = "" + txtFaellig.Text = "" If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Me.Fields.Item("clmnReBetrag").Value.ToString() + If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString + If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= Me.Fields.Item("clmnZinsen").Value.ToString() - If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString + If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() End If End Sub @@ -55,16 +58,17 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung dt.Columns.Add("clmnTage") dt.Columns.Add("clmnZinsen") dt.Columns.Add("clmnVZ") + dt.Columns.Add("clmnFaellig") RECHNUNG.ORDER_POSITIONEN() For Each POS In RECHNUNG.POSITIONEN Dim dtTemp As DataTable - dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID & " AND buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL") + dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID & " AND buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL") For Each rg As DataRow In dtTemp.Rows - 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")) + 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")) Next Next diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 7251998b..0689c35a 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -2058,14 +2058,24 @@ Public Class usrCntlFaktAbrechnung Case 19 'MDM Select Case RECHNUNG.RechnungSprache - Case "DE" : RECHNUNG.Anlage_1 = "Rechnung" : RECHNUNG.Anlage_2 = "Lief.-Rechn." : RECHNUNG.Anlage_3 = "POS-Liste" - Case "EN" : RECHNUNG.Anlage_1 = "Invoice" : RECHNUNG.Anlage_2 = "Supplier Invoice(s)" : RECHNUNG.Anlage_3 = "Item List" - Case "RO" : RECHNUNG.Anlage_1 = "Factura" : RECHNUNG.Anlage_2 = "Factura furnizorului" : RECHNUNG.Anlage_3 = "Lista articolelor" + Case "DE" + If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_1 = "Rechnung" + If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_2 = "Lief.-Rechn." + If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_3 = "POS-Liste" + Case "EN" + If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_1 = "Invoice" + If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_2 = "Supplier Invoice(s)" + If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_3 = "Item List" + Case "RO" + If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_1 = "Factura" + If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_2 = "Factura furnizorului" + If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_3 = "Lista articolelor" End Select RECHNUNG.Anlage_4 = "" - RECHNUNG.Anlage_5 = "" + RECHNUNG.Anlage_5 = "" + Case Else If SPEDBUCH IsNot Nothing Then @@ -2349,8 +2359,12 @@ Public Class usrCntlFaktAbrechnung RECHNUNG.Vorkasse = kdFirmaRechnungAn.KdData_KUNDE.Vorkasse End If + If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.Firma_ID = 19 Then + RECHNUNG.Nettozahlungsziel = IIf(kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel > 14, 14, kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel) + Else + RECHNUNG.Nettozahlungsziel = kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel + End If - RECHNUNG.Nettozahlungsziel = kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel End If @@ -3981,14 +3995,20 @@ Nächste_Textzeile_lesen: If vbYes = MsgBox("Möchten Sie diese ungedruckte Rechnung wirklich löschen?", vbYesNoCancel) Then If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Status = 0 Then If RECHNUNG.DELETE() Then - If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.FilialenNr = 4817 Then - Dim UST_ID As Integer = -1 - UST_ID = CInt(SQL.getValueTxtBySql("SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL",,, 0)) - If UST_ID > 0 Then - SQL.doSQL("UPDATE [tblUStVPositionen] SET UStVPo_VZ_RKID = NULL WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL") - SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 1 WHERE [UStVAn_ID] IN (SELECT distinct([UStVAn_ID]) FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & UST_ID & " )", "FMZOLL") + If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing Then + If SPEDBUCH.FilialenNr = 4817 Then + Dim UST_ID As Integer = -1 + UST_ID = CInt(SQL.getValueTxtBySql("SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL",,, 0)) + If UST_ID > 0 Then + SQL.doSQL("UPDATE [tblUStVPositionen] SET UStVPo_VZ_RKID = NULL WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL") + SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 1 WHERE [UStVAn_ID] IN (SELECT distinct([UStVAn_ID]) FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & UST_ID & " )", "FMZOLL") + End If + + ElseIf SPEDBUCH.FilialenNr = 8001 Then + SQL.doSQL("UPDATE [tblMDM_Zinsberechnung] SET RK_ID = NULL, verrechnet = NULL WHERE isnull(RK_ID,0) =" & RECHNUNG.RK_ID, "FMZOLL") End If End If + End If RaiseEvent EVENT_DELETED() End If diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 741dd140..406e0752 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -859,7 +859,7 @@ Public Class usrCntlBH AND op_debitor.d_zahlung >= @ZahlungVon AND op_debitor.d_zahlung <= @ZahlungBis AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 - ORDER BY op_debitor.i_personenkonto, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000'), op_debitor.c_urbelegid" + ORDER BY op_debitor.i_personenkonto, op_debitor.c_urbelegid, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000')" Dim dt = SQL.loadDgvBySql(sqlStr_FIBU, "FIBU") @@ -895,6 +895,7 @@ Public Class usrCntlBH zins.belegDatum = r.Item("Belegdatum") zins.zahlungsBetrag = r.Item("Zahlungsbetrag") zins.zahlungDatum = r.Item("Zahlungsdatum") + zins.faelligkeitsDatum = CDate(r.Item("Belegdatum")).AddDays(CInt(r.Item("ZZinTage"))) zins.zahlungsperiode_start = CDate(txtZRvon.Text).ToShortDateString zins.zahlungsperiode_ende = CDate(txtZRbis.Text).ToShortDateString zins.SAVE() @@ -975,7 +976,7 @@ Public Class usrCntlBH End Function - Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer) + Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef Fusstext As String) Try If KdNr = "" Then Return False @@ -1035,7 +1036,6 @@ Public Class usrCntlBH RG.Vorlageprovision_Proz = KD.Vorlageprovision RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen RG.RechnungSprache = "DE" - RG.Packstücke_und_Warenbezeichnung = "" RG.Anlage_2 = "" RG.Anlage_3 = "" @@ -1043,11 +1043,13 @@ Public Class usrCntlBH RG.Anlage_5 = "" RG.Anlage_6 = "" - RG.Text = "" - RG.EMailRechnungstext = Nothing ' "" + RG.Packstücke_und_Warenbezeichnung = "NACHBERECHNUNG VON VERZUGSZINSEN" & vbNewLine & SPEDBUCH.Vermerk + 'RG.EMailRechnungstext = Fusstext - - RG.Nettozahlungsziel = KD.Zahlungsziel + If Not IsDBNull(KD.Zahlungsziel) AndAlso IsNumeric(KD.Zahlungsziel) Then + Dim Zahlungsziel As Integer = CInt(KD.Zahlungsziel) + RG.Nettozahlungsziel = IIf(Zahlungsziel > 14, 14, KD.Zahlungsziel) + End If RG.SteuerpflichtigerGesamtbetrag = 0 RG.SteuerfreierGesamtbetrag = 0 @@ -1216,13 +1218,15 @@ Public Class usrCntlBH Dim dtfehlendeOfferten As DataTable = SQL.loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL") If dtfehlendeOfferten.Rows.Count > 0 Then - MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & "Vorgang wird abgebrochen!") - cProgramFunctions.genExcelCSVFromDT(dtfehlendeOfferten, True) - Exit Sub + If Not vbYes = MsgBox(MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & vbNewLine & "Möchten Sie trotzdem fortfahren!", vbYesNoCancel)) Then + cProgramFunctions.genExcelCSVFromDT(dtfehlendeOfferten, True) + Exit Sub + End If + End If - If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?", vbYesNoCancel) Then + If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?", vbYesNoCancel) Then For Each R In dt_Main.Rows @@ -1230,13 +1234,17 @@ 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 = "Abrechnungsperiode von " & startDate & " bis " & EndDate + Dim vermerk As String = "Zahlungen vom " & startDate & " bis " & EndDate + 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 & " + Wir erwarten Ihre Zahlung über den untenstehenden Endbetrag wieder innerhalb von 14 Tagen." Dim verarbOK As Boolean = True Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing Dim RK_ID As Integer = -1 If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, Now(), vermerk) Then verarbOK = False - If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID) Then verarbOK = False + If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID, Fußtext) Then verarbOK = False If verarbOK Then SQL.doSQL("UPDATE [tblMDM_Zinsberechnung] SET [verrechnet]=GETDATE(), RK_ID = " & RK_ID & " WHERE [verrechnet] Is null And kundenNr='" & R("kundenNr") & "' ", "FMZOLL") diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index 8b49b8a9..af0e5e01 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -800,7 +800,13 @@ Public Class usrcntlFremdrechnungen Dim pdflist = createEMailTable(TextHTMLtable, kvp, cbx.Checked) - createEmail(kvp.Key, TextHTMLtable, pdflist) + If Not cbxMailoeffnen.Checked And Not pdflist.Any() Then + + Else + createEmail(kvp.Key, TextHTMLtable, pdflist) + + End If + Next @@ -935,10 +941,14 @@ Public Class usrcntlFremdrechnungen Lieferant = aktLieferant End If - If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Continue For 'abbruchbedingung -> nächste Zeile + Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True) + If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then + sendÍnvoice = True 'dann immer mitschicken! + End If + 'ORIGINAL-RECHNUNG senden wenn: If onlyRelevantInvioces Then @@ -994,10 +1004,6 @@ Public Class usrcntlFremdrechnungen TextHTMLtable &= "" & r.Item("Land") & "" TextHTMLtable &= "" & r.Item("Rechnungsdatum") & "" - - - - Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId")) If daId > 0 Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) @@ -1012,8 +1018,6 @@ Public Class usrcntlFremdrechnungen Next - - Else If sendÍnvoice Then TextHTMLtable &= "" @@ -1127,6 +1131,22 @@ Public Class usrcntlFremdrechnungen If cbxMailoeffnen.Checked Then Try + + Dim oAccount As Outlook.Account + Dim accountToSent = "mmdabrechnung@verag.ag" + + If outl.Session.Accounts.Count > 0 Then + For Each oAccount In outl.Session.Accounts + + If oAccount.SmtpAddress = accountToSent Then + Mail.SendUsingAccount = oAccount + Exit For + End If + Next + End If + + + Mail.Display() Catch ex As Exception MsgBox(ex.Message) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb index fdd21747..99077cdf 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb @@ -20,6 +20,8 @@ Public Class cMDMZinsberechnung Property zahlungsperiode_start As Object = Nothing Property zahlungsperiode_ende As Object = Nothing + Property faelligkeitsDatum As Object = Nothing + Public hasEntry = False Dim SQL As New SQL @@ -53,6 +55,7 @@ Public Class cMDMZinsberechnung list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsBetrag", zahlungsBetrag)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsperiode_start", zahlungsperiode_start)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsperiode_ende", zahlungsperiode_ende)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("faelligkeitsDatum", faelligkeitsDatum)) Return list