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 System.Web.UI.WebControls.Expressions
Imports iText.Kernel.Pdf Imports iText.Kernel.Pdf
Imports iTextSharp.text.pdf Imports iTextSharp.text.pdf
Imports javax.xml.bind.annotation
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports s2industries.ZUGFeRD Imports s2industries.ZUGFeRD
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -997,7 +998,6 @@ Public Class cFakturierung
End Sub End Sub
Shared Sub initRgFirma_MDM(ByRef rpt As rptRechnungDruck_MDM, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, Rechnung As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) 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, "") rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "")
@@ -1464,48 +1464,49 @@ Public Class cFakturierung
Dim sum = 0 Dim sum = 0
Select Case Rechnung.RechnungSprache 'Select Case Rechnung.RechnungSprache
Case "EN" ' Case "EN"
Select Case Rechnung.BelegartenKz ' Select Case Rechnung.BelegartenKz
Case "AR" ' Case "AR"
rpt.lblUeberschriftRG_GS.Text = "INVOICE" ' rpt.lblUeberschriftRG_GS.Text = "INVOICE"
rpt.lblSummeUeberschrift.Text = "Invoice Amount:" ' rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
rpt.lblRgNrUeberschrift.Text = "Invoice No.:" ' rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" ' rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
Case "AG" ' Case "AG"
rpt.lblUeberschriftRG_GS.Text = "CREDIT NOTE" ' rpt.lblUeberschriftRG_GS.Text = "CREDIT NOTE"
rpt.lblSummeUeberschrift.Text = "Credit Amount:" ' rpt.lblSummeUeberschrift.Text = "Credit Amount:"
rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" ' rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" ' rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
End Select ' End Select
Case "RO" ' Case "RO"
Select Case Rechnung.BelegartenKz ' Select Case Rechnung.BelegartenKz
Case "AR" ' Case "AR"
rpt.lblUeberschriftRG_GS.Text = "FACTURA" ' rpt.lblUeberschriftRG_GS.Text = "FACTURA"
rpt.lblSummeUeberschrift.Text = "Total" ' rpt.lblSummeUeberschrift.Text = "Total"
rpt.lblRgNrUeberschrift.Text = "Nr. factura:" ' rpt.lblRgNrUeberschrift.Text = "Nr. factura:"
rpt.lblRgDatumUeberschrift.Text = "Data factura:" ' rpt.lblRgDatumUeberschrift.Text = "Data factura:"
Case "AG" ' Case "AG"
rpt.lblUeberschriftRG_GS.Text = "NOTA DE CREDIT" ' rpt.lblUeberschriftRG_GS.Text = "NOTA DE CREDIT"
rpt.lblSummeUeberschrift.Text = "Total" ' rpt.lblSummeUeberschrift.Text = "Total"
rpt.lblRgNrUeberschrift.Text = "Nr. nota credit:" ' rpt.lblRgNrUeberschrift.Text = "Nr. nota credit:"
rpt.lblRgDatumUeberschrift.Text = "Data nota credit:" ' rpt.lblRgDatumUeberschrift.Text = "Data nota credit:"
End Select ' End Select
Case Else ' Case Else
Select Case Rechnung.BelegartenKz ' Select Case Rechnung.BelegartenKz
Case "AR" ' Case "AR"
rpt.lblUeberschriftRG_GS.Text = "RECHNUNG" ' rpt.lblUeberschriftRG_GS.Text = "RECHNUNG"
Case "AG" ' Case "AG"
rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" ' rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT"
rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" ' rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" ' rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" ' rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:"
End Select ' End Select
End Select 'End Select
initReportUebersetzungen(rpt, firma, "RE", Rechnung.RechnungSprache, Rechnung.BelegartenKz, False)
initRgFirma(rpt, firma, Rechnung) initRgFirma(rpt, firma, Rechnung)
@@ -1736,30 +1737,33 @@ Public Class cFakturierung
rpt.Line7.Visible = False 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 End If
If Not printOriginalRg Then 'sonst wird der originaldruck erzwungen If Not printOriginalRg Then 'sonst wird der originaldruck erzwungen
@@ -2224,65 +2228,9 @@ Public Class cFakturierung
Dim sum = 0 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) initRgFirma_MDM(rpt, firma, RECHNUNG)
@@ -5055,31 +5003,34 @@ Public Class cFakturierung
rpt.DataSource = dt rpt.DataSource = dt
Select Case Row("RechnungSprache")
Case "EN" initReportUebersetzungen(rpt, Firma, "SR_Anlagen", Row("RechnungSprache"), Row("BelegartenKz"), isMDMRechnungsdruck)
Select Case Row("BelegartenKz")
Case "AR" 'Select Case Row("RechnungSprache")
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE") ' Case "EN"
rpt.lblSummeUeberschrift.Text = "Invoice Amount:" ' Select Case Row("BelegartenKz")
rpt.lblRgNrUeberschrift.Text = "Invoice No.:" ' Case "AR"
rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE")
Case "AG" ' rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE") ' rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
rpt.lblSummeUeberschrift.Text = "Credit Amount:" ' rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" ' Case "AG"
rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE")
End Select ' rpt.lblSummeUeberschrift.Text = "Credit Amount:"
Case Else ' rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
Select Case Row("BelegartenKz") ' rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
Case "AR" ' End Select
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung") ' Case Else
Case "AG" ' Select Case Row("BelegartenKz")
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelgutschrift", "GUTSCHRIFT") ' Case "AR"
rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung")
rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" ' Case "AG"
rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelgutschrift", "GUTSCHRIFT")
End Select ' rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
End Select ' rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
' rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:"
' End Select
'End Select
@@ -5199,19 +5150,6 @@ Public Class cFakturierung
rpt.txtVermerk.Text = "" rpt.txtVermerk.Text = ""
End If 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 KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then
If isMDMRechnungsdruck Then If isMDMRechnungsdruck Then
rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim
@@ -5261,13 +5199,6 @@ Public Class cFakturierung
End If 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() AddHandler rpt.Detail.Format, Sub()
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString ' 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 Gesamt_RG_Betrag As Double = CDbl(dt.Compute("SUM(SteuerpflichtigerGesamtbetrag)", "")) + CDbl(dt.Compute("SUM(SteuerfreierGesamtbetrag)", ""))
Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR") 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 'Select Case Row("RechnungSprache")
Case "AR"
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attachment to INVOICE", "INVOICE") 'Mehrsprachigkeit bei Sammelrechnung vorerst deaktivieren!!!!
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
' 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")) 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 Gesamt_RG_Betrag As Double = CDbl(dt.Compute("SUM(SteuerFreierBetrag)", "")) + CDbl(dt.Compute("SUM(SteuerpflichtigerBetrag)", ""))
Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR") 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")) initRgFirmaSammelRg(rpt, FIRMA, RechnungsNr, ROW("LandKz"), ROW("Buchungsjahr"))
@@ -6350,4 +6288,201 @@ Public Class cFakturierung
End Function 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 End Class

2
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -3473,6 +3473,8 @@ Public Class usrCntlFaktAbrechnung
saveMe() saveMe()
initRECHNUNG()
End Sub End Sub
Private Sub setAutomailversand(showMessageBox As Boolean) 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 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 Public newEntry = False
Dim KDSQL As New SDL.kundenSQL Dim KDSQL As New SDL.kundenSQL
Dim SQL As New SQL Dim SQL As New SQL
Dim cOptionenDAL As New cOptionenDAL Dim cOptionenDAL As New cOptionenDAL
' Public FMZollPersID As Integer = -1
'Public FMZollPersIDQS As Integer = -1
Public srchFiliale = "" Public srchFiliale = ""
Public srchAbfertigungsnummer = "" Public srchAbfertigungsnummer = ""
Public srchUnterNr = "" Public srchUnterNr = ""
@@ -27,7 +23,6 @@ Public Class frmNacherfassungNEU
Dim ev_ready As Boolean = False Dim ev_ready As Boolean = False
Public loadOnlyAvisoStart As Boolean = False Public loadOnlyAvisoStart As Boolean = False
' Public Sub initDataBinding()
Dim WithEvents timerBG As New Timer 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 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) Process.Start(tmpPath)
End Try End Try
rpt.Dispose() 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" 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 ' Select Case KUNDE_ERW.kde_Fakturierung_Sprache
Case "DE" ' Case "DE"
anh_Bez = "Email-Anhang" ' anh_Bez = "Email-Anhang"
RG.RechnungSprache = KUNDE_ERW.kde_Fakturierung_Sprache ' RG.RechnungSprache = KUNDE_ERW.kde_Fakturierung_Sprache
Case Else ' Case Else
anh_Bez = "Email-Attachement" ' anh_Bez = "Email-Attachement"
RG.RechnungSprache = "EN" ' RG.RechnungSprache = "EN"
End Select ' End Select
End If 'End If
Select Case Lieferant Select Case Lieferant
Case "PLOSE" : OffertenNr = 80 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez Case "PLOSE" : OffertenNr = 80 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez