edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mahnlauf (Fehlermeldung), fakt, MDM-Sammelrechnung, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-08-03 10:48:25 +02:00
parent 3f54bba380
commit 155f294048
5 changed files with 367 additions and 233 deletions
Download Patch File Download Diff File Expand all files Collapse all files

567
SDL/Fakturierung/cFakturierung.vb
View File

@@ -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

2
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -3473,6 +3473,8 @@ Public Class usrCntlFaktAbrechnung
saveMe()
initRECHNUNG()
End Sub
Private Sub setAutomailversand(showMessageBox As Boolean)

7
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
View File

@@ -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

3
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -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()

21
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -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