From 155f294048dd914ec8e2e16f0cbc5906c62f7318 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 3 Aug 2026 10:48:25 +0200 Subject: [PATCH] Mahnlauf (Fehlermeldung), fakt, MDM-Sammelrechnung, etc. --- SDL/Fakturierung/cFakturierung.vb | 567 +++++++++++------- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 2 + .../Nacherfassung/frmNacherfassungNEU.vb | 7 +- SDL/buchhaltung/frmBU_Mahnlauf.vb | 3 +- SDL/mdm/frmMDMDatenverarbetiung.vb | 21 +- 5 files changed, 367 insertions(+), 233 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 6d8303b6..540d1ee1 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -5,6 +5,7 @@ Imports System.Net Imports System.Web.UI.WebControls.Expressions Imports iText.Kernel.Pdf Imports iTextSharp.text.pdf +Imports javax.xml.bind.annotation Imports Microsoft.Office.Interop Imports s2industries.ZUGFeRD Imports VERAG_PROG_ALLGEMEIN @@ -997,7 +998,6 @@ Public Class cFakturierung End Sub - Shared Sub initRgFirma_MDM(ByRef rpt As rptRechnungDruck_MDM, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, Rechnung As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "") @@ -1464,48 +1464,49 @@ Public Class cFakturierung Dim sum = 0 - Select Case Rechnung.RechnungSprache - Case "EN" - 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:" - 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:" - End Select + 'Select Case Rechnung.RechnungSprache + ' Case "EN" + ' 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:" + ' 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:" + ' End Select - Case "RO" - Select Case Rechnung.BelegartenKz - Case "AR" - rpt.lblUeberschriftRG_GS.Text = "FACTURA" - rpt.lblSummeUeberschrift.Text = "Total" - rpt.lblRgNrUeberschrift.Text = "Nr. factura:" - rpt.lblRgDatumUeberschrift.Text = "Data factura:" - Case "AG" - rpt.lblUeberschriftRG_GS.Text = "NOTA DE CREDIT" - rpt.lblSummeUeberschrift.Text = "Total" - rpt.lblRgNrUeberschrift.Text = "Nr. nota credit:" - rpt.lblRgDatumUeberschrift.Text = "Data nota credit:" - End Select + ' Case "RO" + ' Select Case Rechnung.BelegartenKz + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = "FACTURA" + ' rpt.lblSummeUeberschrift.Text = "Total" + ' rpt.lblRgNrUeberschrift.Text = "Nr. factura:" + ' rpt.lblRgDatumUeberschrift.Text = "Data factura:" + ' Case "AG" + ' rpt.lblUeberschriftRG_GS.Text = "NOTA DE CREDIT" + ' rpt.lblSummeUeberschrift.Text = "Total" + ' rpt.lblRgNrUeberschrift.Text = "Nr. nota credit:" + ' rpt.lblRgDatumUeberschrift.Text = "Data nota credit:" + ' End Select - Case Else - Select Case Rechnung.BelegartenKz - Case "AR" - rpt.lblUeberschriftRG_GS.Text = "RECHNUNG" - Case "AG" - rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" - rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" - rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" - rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" - End Select + ' Case Else + ' Select Case Rechnung.BelegartenKz + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = "RECHNUNG" + ' Case "AG" + ' rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" + ' rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" + ' rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" + ' rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" + ' End Select - End Select + 'End Select + initReportUebersetzungen(rpt, firma, "RE", Rechnung.RechnungSprache, Rechnung.BelegartenKz, False) initRgFirma(rpt, firma, Rechnung) @@ -1736,30 +1737,33 @@ Public Class cFakturierung rpt.Line7.Visible = False - Select Case Rechnung.RechnungSprache - Case "EN" - Select Case Rechnung.BelegartenKz - Case "AR" - rpt.lblUeberschriftRG_GS.Text = "Attachment to invoice" - Case "AG" - rpt.lblUeberschriftRG_GS.Text = "Attachment to CREDIT NOTE" - End Select - Case "RO" - Select Case Rechnung.BelegartenKz - Case "AR" - rpt.lblUeberschriftRG_GS.Text = "Anexa la factura colectiva" - Case "AG" - rpt.lblUeberschriftRG_GS.Text = "Anexa la nota de credit" - End Select - Case Else - Select Case Rechnung.BelegartenKz - Case "AR" - rpt.lblUeberschriftRG_GS.Text = "Anlage zur Sammelrechnung" - Case "AG" - rpt.lblUeberschriftRG_GS.Text = "Anlage zur Gutschrift" - End Select - End Select + initReportUebersetzungen(rpt, firma, "RE", Rechnung.RechnungSprache, Rechnung.BelegartenKz, False) + + 'Select Case Rechnung.RechnungSprache + ' Case "EN" + ' Select Case Rechnung.BelegartenKz + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = "Attachment to invoice" + ' Case "AG" + ' rpt.lblUeberschriftRG_GS.Text = "Attachment to CREDIT NOTE" + ' End Select + ' Case "RO" + ' Select Case Rechnung.BelegartenKz + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = "Anexa la factura colectiva" + ' Case "AG" + ' rpt.lblUeberschriftRG_GS.Text = "Anexa la nota de credit" + ' End Select + ' Case Else + ' Select Case Rechnung.BelegartenKz + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = "Anlage zur Sammelrechnung" + ' Case "AG" + ' rpt.lblUeberschriftRG_GS.Text = "Anlage zur Gutschrift" + ' End Select + + 'End Select End If If Not printOriginalRg Then 'sonst wird der originaldruck erzwungen @@ -2224,65 +2228,9 @@ Public Class cFakturierung Dim sum = 0 - Select Case RECHNUNG.RechnungSprache - Case "EN" - 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:" - 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:" - End Select - Case "RO" - Select Case RECHNUNG.BelegartenKz - Case "AR" - rpt.lblUeberschriftRG_GS.Text = "FACTURA" - rpt.lblSummeUeberschrift.Text = "Total:" - rpt.lblRgNrUeberschrift.Text = "Nr. factura:" - rpt.lblRgDatumUeberschrift.Text = "Data factura:" - Case "AG" - rpt.lblUeberschriftRG_GS.Text = "NOTA DE CREDIT" - rpt.lblSummeUeberschrift.Text = "Total:" - rpt.lblRgNrUeberschrift.Text = "Nr. nota credit:" - rpt.lblRgDatumUeberschrift.Text = "Data nota credit:" - End Select - - Case "TR" - Select Case RECHNUNG.BelegartenKz - Case "AR" - 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 = "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" - rpt.lblUeberschriftRG_GS.Text = "RECHNUNG" - rpt.lblSummeUeberschrift.Text = "Rechnungsbetrag" - rpt.lblRgNrUeberschrift.Text = "Rechnungs-Nr.:" - rpt.lblRgDatumUeberschrift.Text = "Rechnungs-Datum:" - Case "AG" - rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" - rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" - rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" - rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" - End Select - - End Select + initReportUebersetzungen(rpt, firma, "RE_MDM", RECHNUNG.RechnungSprache, RECHNUNG.BelegartenKz, False) initRgFirma_MDM(rpt, firma, RECHNUNG) @@ -5055,31 +5003,34 @@ Public Class cFakturierung rpt.DataSource = dt - Select Case Row("RechnungSprache") - Case "EN" - Select Case Row("BelegartenKz") - Case "AR" - rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE") - rpt.lblSummeUeberschrift.Text = "Invoice Amount:" - rpt.lblRgNrUeberschrift.Text = "Invoice No.:" - rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" - Case "AG" - rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE") - rpt.lblSummeUeberschrift.Text = "Credit Amount:" - rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" - rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" - End Select - Case Else - Select Case Row("BelegartenKz") - Case "AR" - rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung") - Case "AG" - rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelgutschrift", "GUTSCHRIFT") - rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" - rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" - rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" - End Select - End Select + + initReportUebersetzungen(rpt, Firma, "SR_Anlagen", Row("RechnungSprache"), Row("BelegartenKz"), isMDMRechnungsdruck) + + 'Select Case Row("RechnungSprache") + ' Case "EN" + ' Select Case Row("BelegartenKz") + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE") + ' rpt.lblSummeUeberschrift.Text = "Invoice Amount:" + ' rpt.lblRgNrUeberschrift.Text = "Invoice No.:" + ' rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" + ' Case "AG" + ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE") + ' rpt.lblSummeUeberschrift.Text = "Credit Amount:" + ' rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" + ' rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" + ' End Select + ' Case Else + ' Select Case Row("BelegartenKz") + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung") + ' Case "AG" + ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelgutschrift", "GUTSCHRIFT") + ' rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" + ' rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" + ' rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" + ' End Select + 'End Select @@ -5199,19 +5150,6 @@ Public Class cFakturierung rpt.txtVermerk.Text = "" End If - 'If If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") = "" Then - ' rpt.lblRechnung_Name1.Text = "" - ' rpt.lblRechnung_Name2.Text = ROW("RechnungsName 1") - 'Else - ' rpt.lblRechnung_Name1.Text = ROW("RechnungsName 1") - ' rpt.lblRechnung_Name2.Text = If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") - 'End If - - 'rpt.lblRechnung_Strasse.Text = If(ROW("RechnungsStraße") IsNot DBNull.Value, ROW("RechnungsStraße"), "") - 'rpt.lblRechnung_Ort.Text = If(ROW("RechnungsOrt") IsNot DBNull.Value, ROW("RechnungsOrt"), "") - 'rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "", ROW("RechnungSprache")).ToString.ToUpper - - If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then If isMDMRechnungsdruck Then rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim @@ -5261,13 +5199,6 @@ Public Class cFakturierung End If - 'AddHandler rpt.ReportStart, Sub() - ' If VorschauID = "PROVISIONSABRECHNUNG" Then - ' Dim subRptProv = New rptSammelRechnungAnlagenDruck_ProvSum(rpt._LAN, VorschauID) - ' rpt.SubReport1.Report = subRptProv - ' rpt.SubReport1.Visible = True - ' End If - ' End Sub AddHandler rpt.Detail.Format, Sub() ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString @@ -5476,37 +5407,40 @@ Public Class cFakturierung Dim Gesamt_RG_Betrag As Double = CDbl(dt.Compute("SUM(SteuerpflichtigerGesamtbetrag)", "")) + CDbl(dt.Compute("SUM(SteuerfreierGesamtbetrag)", "")) Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR") - Select Case Row("RechnungSprache") - 'Mehrsprachigkeit bei Sammelrechnung vorerst deaktivieren!!!! + initReportUebersetzungen(rpt, Firma, "SR_Anlagen", Row("RechnungSprache"), BelegartenKz, isMDMRechnungsdruck) - Case "EN" - Select Case BelegartenKz - Case "AR" - rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attachment to INVOICE", "INVOICE") - rpt.lblSummeUeberschrift.Text = "Invoice Amount:" - rpt.lblRgNrUeberschrift.Text = "Invoice No.:" - rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" - Case "AG" - rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attachment to CREDIT NOTE", "CREDIT NOTE") - rpt.lblSummeUeberschrift.Text = "Credit Amount:" - rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" - rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" - End Select - Case Else - Select Case BelegartenKz - Case "AR" - rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung") - Case "AG" - rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelgutschrift", "GUTSCHRIFT") - rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" - rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" - rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" - End Select - End Select + + 'Select Case Row("RechnungSprache") + + 'Mehrsprachigkeit bei Sammelrechnung vorerst deaktivieren!!!! + ' Case "EN" + ' Select Case BelegartenKz + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attachment to INVOICE", "INVOICE") + ' rpt.lblSummeUeberschrift.Text = "Invoice Amount:" + ' rpt.lblRgNrUeberschrift.Text = "Invoice No.:" + ' rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" + ' Case "AG" + ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attachment to CREDIT NOTE", "CREDIT NOTE") + ' rpt.lblSummeUeberschrift.Text = "Credit Amount:" + ' rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" + ' rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" + ' End Select + ' Case Else + ' Select Case BelegartenKz + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung") + ' Case "AG" + ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelgutschrift", "GUTSCHRIFT") + ' rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" + ' rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" + ' rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" + ' End Select + 'End Select initRgFirmaSammelRg_MDM_Bericht(rpt, Firma, RechnungsNr, Row("RechnungsLandKz"), Row("Buchungsjahr")) @@ -5850,33 +5784,37 @@ Public Class cFakturierung Dim Gesamt_RG_Betrag As Double = CDbl(dt.Compute("SUM(SteuerFreierBetrag)", "")) + CDbl(dt.Compute("SUM(SteuerpflichtigerBetrag)", "")) Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR") - Select Case ROW("RechnungSprache") - Case "EN" - ' MsgBox(("EN")) - Select Case BelegartenKz - Case "AR" - rpt.lblUeberschriftRG_GS.Text = "COLLECTIVE INVOICE" - rpt.lblSummeUeberschrift.Text = "Invoice Amount:" - rpt.lblRgNrUeberschrift.Text = "Invoice No.:" - rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" - 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:" - End Select - Case Else - Select Case BelegartenKz - Case "AR" - rpt.lblUeberschriftRG_GS.Text = "SAMMELRECHNUNG" - Case "AG" - rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" - rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" - rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" - rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" - End Select - End Select + + initReportUebersetzungen(rpt, FIRMA, "SR", ROW("RechnungSprache"), BelegartenKz, False) + + + 'Select Case ROW("RechnungSprache") + ' Case "EN" + ' Select Case BelegartenKz + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = "COLLECTIVE INVOICE" + ' rpt.lblSummeUeberschrift.Text = "Invoice Amount:" + ' rpt.lblRgNrUeberschrift.Text = "Invoice No.:" + ' rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" + ' 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:" + ' End Select + ' Case Else + ' Select Case BelegartenKz + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = "SAMMELRECHNUNG" + ' Case "AG" + ' rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" + ' rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" + ' rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" + ' rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" + ' End Select + + 'End Select initRgFirmaSammelRg(rpt, FIRMA, RechnungsNr, ROW("LandKz"), ROW("Buchungsjahr")) @@ -6350,4 +6288,201 @@ Public Class cFakturierung End Function + + + Shared Sub initReportUebersetzungen(ByRef rpt As Object, firma As cFirmen, report As String, Sprache As String, BelegartenKZ As String, isMDMRechnungsdruck As Boolean) + + + 'folgende Reports existieren: + + 'rptRechnungDruck -- > report: RE + 'rptRechnungDruck_MDM -- > report: RE + 'rptSammelRechnungDruck -- > report: SR + 'rptSammelRechnungAnlagenDruck -- > report: SR_Anlagen + 'rptSammelRechnungAnlagenDruck_MDM -> ist der interne SammelRechnugsdruck -- > report: SR_Anlagen + + + + 'Sonderregelung bei MDM-Sammelrechnung, hier nichts übersetzten (alles auf Deutsch lassen), laut Brigitte + If firma.Firma_ID = 19 And report = "SR_Anlagen" Then + Sprache = "DE" + End If + + + Select Case Sprache + + Case "EN" + SetEnglishTexts(rpt, BelegartenKZ, report) + + Case "RO" + SetRomanianTexts(rpt, BelegartenKZ, report) + + Case "TR" + SetTurkishTexts(rpt, BelegartenKZ, report) + + Case Else + + SetGermanTexts(rpt, BelegartenKZ, report) + + End Select + + If report = "SR_Anlagen" Then + rpt.lblUeberschriftRG_GS.Text = GetAttachmentTitle(BelegartenKZ, Sprache, isMDMRechnungsdruck) + End If + + End Sub + + + Private Shared Sub SetInvoiceTexts(rpt As Object, title As String, amount As String, number As String, dateText As String) + + rpt.lblUeberschriftRG_GS.Text = title + rpt.lblSummeUeberschrift.Text = amount + rpt.lblRgNrUeberschrift.Text = number + rpt.lblRgDatumUeberschrift.Text = dateText + + End Sub + + + Private Shared Sub SetEnglishTexts(rpt As Object, belegartenKZ As String, report As String) + + Select Case report + Case "SR", "SR_Anlagen" + Select Case belegartenKZ + Case "AR" + SetInvoiceTexts(rpt, "COLLECTIVE INVOICE", "Invoice Amount:", "Invoice No.:", "Invoice Date:") + + Case "AG" + SetInvoiceTexts(rpt, "CREDIT NOTE", "Credit Amount:", "Credit Note No.:", "Credit Note Date:") + End Select + + Case Else + Select Case belegartenKZ + Case "AR" + SetInvoiceTexts(rpt, "INVOICE", "Invoice Amount:", "Invoice No.:", "Invoice Date:") + + Case "AG" + SetInvoiceTexts(rpt, "CREDIT NOTE", "Credit Amount:", "Credit Note No.:", "Credit Note Date:") + End Select + + End Select + + + + End Sub + + Private Shared Sub SetRomanianTexts(rpt As Object, belegartenKZ As String, report As String) + + + Select Case report + Case "SR", "SR_Anlagen" + Select Case belegartenKZ + Case "AR" + SetInvoiceTexts(rpt, "FACTURA", "Total", "Nr. factura:", "Data factura:") + + Case "AG" + SetInvoiceTexts(rpt, "NOTA DE CREDIT", "Total", "Nr. nota credit:", "Data nota credit:") + End Select + + Case Else + + Select Case belegartenKZ + Case "AR" + SetInvoiceTexts(rpt, "FACTURA", "Total", "Nr. factura:", "Data factura:") + + Case "AG" + SetInvoiceTexts(rpt, "NOTA DE CREDIT", "Total", "Nr. nota credit:", "Data nota credit:") + End Select + End Select + + + End Sub + Private Shared Sub SetTurkishTexts(rpt As Object, belegartenKZ As String, report As String) + Select Case report + Case "SR", "SR_Anlagen" + Select Case belegartenKZ + Case "AR" + SetInvoiceTexts(rpt, "FATURA", "Fatura tutari:", "Fatura nr.:", "Fatura thrihi:") + + Case "AG" + SetInvoiceTexts(rpt, "KREDI", "Kredi tutari:", "Kredi nr.:", "Kredi thrihi:") + End Select + + Case Else + + Select Case belegartenKZ + Case "AR" + SetInvoiceTexts(rpt, "FATURA", "Fatura tutari:", "Fatura nr.:", "Fatura thrihi:") + + Case "AG" + SetInvoiceTexts(rpt, "KREDI", "Kredi tutari:", "Kredi nr.:", "Kredi thrihi:") + End Select + End Select + + End Sub + + Private Shared Sub SetGermanTexts(rpt As Object, belegartenKZ As String, report As String) + Select Case report + Case "SR", "SR_Anlagen" + + Select Case belegartenKZ + Case "AR" + SetInvoiceTexts(rpt, "SAMMELRECHNUNG", "Rechnungsbetrag", "Rechnungs-Nr.:", "Rechnungs-Datum:") + + Case "AG" + SetInvoiceTexts(rpt, "GUTSCHRIFT", "Gutschriftsbetrag:", "Gutschrifts-Nr.:", "Gutschrifts-Datum:") + End Select + + Case Else + + + Select Case belegartenKZ + Case "AR" + SetInvoiceTexts(rpt, "RECHNUNG", "Rechnungsbetrag", "Rechnungs-Nr.:", "Rechnungs-Datum:") + + Case "AG" + SetInvoiceTexts(rpt, "GUTSCHRIFT", "Gutschriftsbetrag:", "Gutschrifts-Nr.:", "Gutschrifts-Datum:") + End Select + End Select + + End Sub + + Private Shared Function GetAttachmentTitle(belegartenKZ As String, sprache As String, isMDMRechnungsdruck As Boolean) As String + + Select Case sprache + + Case "TR" + If belegartenKZ = "AR" Then + GetAttachmentTitle = IIf(Not isMDMRechnungsdruck, "TOPLU FATURAYA EK", "FATURA") + Else + GetAttachmentTitle = IIf(Not isMDMRechnungsdruck, "KREDİ NOTUNA EK", "KREDI") + End If + + Case "RO" + + If belegartenKZ = "AR" Then + GetAttachmentTitle = IIf(Not isMDMRechnungsdruck, "Anexă la FACTURA COLECTIVĂ", "FACTURA") + Else + GetAttachmentTitle = IIf(Not isMDMRechnungsdruck, "Anexă la NOTA DE CREDIT", "CREDIT") + End If + + Case "EN" + If belegartenKZ = "AR" Then + GetAttachmentTitle = IIf(Not isMDMRechnungsdruck, "Attachment to COLLECTIVE INVOICE", "INVOICE") + Else + GetAttachmentTitle = IIf(Not isMDMRechnungsdruck, "Attachment to CREDIT NOTE", "CREDIT NOTE") + End If + + Case Else + If belegartenKZ = "AR" Then + GetAttachmentTitle = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung") + Else + GetAttachmentTitle = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelgutschrift", "GUTSCHRIFT") + End If + + End Select + + + + End Function + End Class diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 8c4003ae..dcc3cd78 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -3473,6 +3473,8 @@ Public Class usrCntlFaktAbrechnung saveMe() + initRECHNUNG() + End Sub Private Sub setAutomailversand(showMessageBox As Boolean) diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb index 78dab95c..8fd97228 100644 --- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb +++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb @@ -3,15 +3,11 @@ Imports VERAG_PROG_ALLGEMEIN Public Class frmNacherfassungNEU - ' Public WithEvents bindingSPEDBUCH As New cEasyBinding("FMZOLL") 'fürs Binding - ' Public WithEvents bindingVorkosten As New cBinding("FMZOLL") 'fürs Binding + Public newEntry = False Dim KDSQL As New SDL.kundenSQL Dim SQL As New SQL Dim cOptionenDAL As New cOptionenDAL - ' Public FMZollPersID As Integer = -1 - 'Public FMZollPersIDQS As Integer = -1 - Public srchFiliale = "" Public srchAbfertigungsnummer = "" Public srchUnterNr = "" @@ -27,7 +23,6 @@ Public Class frmNacherfassungNEU Dim ev_ready As Boolean = False Public loadOnlyAvisoStart As Boolean = False - ' Public Sub initDataBinding() Dim WithEvents timerBG As New Timer diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index ccb98db9..adb09425 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -968,7 +968,8 @@ Public Class frmBU_Mahnlauf Catch ex As Exception - MsgBox("Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , "Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!") + MsgBox("") Process.Start(tmpPath) End Try rpt.Dispose() diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 28da8e54..4a11505e 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -3552,18 +3552,19 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land Dim anh_Bez As String = "Email-Anhang" - If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache IsNot Nothing Then + 'aktuell noch deaktiviert lassen laut Brigitte!!! + 'If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache IsNot Nothing Then - Select Case KUNDE_ERW.kde_Fakturierung_Sprache - Case "DE" - anh_Bez = "Email-Anhang" - RG.RechnungSprache = KUNDE_ERW.kde_Fakturierung_Sprache - Case Else - anh_Bez = "Email-Attachement" - RG.RechnungSprache = "EN" - End Select + ' Select Case KUNDE_ERW.kde_Fakturierung_Sprache + ' Case "DE" + ' anh_Bez = "Email-Anhang" + ' RG.RechnungSprache = KUNDE_ERW.kde_Fakturierung_Sprache + ' Case Else + ' anh_Bez = "Email-Attachement" + ' RG.RechnungSprache = "EN" + ' End Select - End If + 'End If Select Case Lieferant Case "PLOSE" : OffertenNr = 80 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez