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

Mahnlauf, Fakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-05-14 15:17:37 +02:00
parent c86f82483a
commit 81550cff7c
4 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -662,7 +662,14 @@ Public Class usrCntlFaktAbrechnung
cboRechnungSprache.changeItem("DE") cboRechnungSprache.changeItem("DE")
If kdFirmaRechnungAn.KdData_KUNDE_ERW IsNot Nothing Then If kdFirmaRechnungAn.KdData_KUNDE_ERW IsNot Nothing Then
If If(kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_Fakturierung_Sprache, "") <> "" Then If If(kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_Fakturierung_Sprache, "") <> "" Then
cboRechnungSprache.changeItem(kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_Fakturierung_Sprache)
If kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_Fakturierung_Sprache = "TR" Then
cboRechnungSprache.changeItem("EN")
Else
cboRechnungSprache.changeItem(kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_Fakturierung_Sprache)
End If
End If End If
End If End If

8
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -441,11 +441,8 @@ Public Class frmBU_Mahnlauf
Select Case FIRMA.Firma_ID Select Case FIRMA.Firma_ID
Case 19 Case 19
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email <> "" Then
rpt.lblEmail.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email rpt.lblEmail.Text = IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email)
Else
rpt.lblEmail.Text = IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, "buchhaltung@verag.ag")
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr <> "" AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl <> "" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr <> "" AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl <> "" Then
rpt.lblTelefon.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr + "-" + VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl rpt.lblTelefon.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr + "-" + VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
@@ -535,6 +532,7 @@ Public Class frmBU_Mahnlauf
rpt.lblUeberschriftRG_GS.Text = MAHNTEXT rpt.lblUeberschriftRG_GS.Text = MAHNTEXT
rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR
rpt.txtVermerk.Text = MahnTEXT_NACH rpt.txtVermerk.Text = MahnTEXT_NACH
rpt.txtDisclaimer.Text = "Wir arbeiten ausschließlich aufgrund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf unsere Rechnungen, Spesen und Zinsen, zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-, Zoll- und Tarifauskünfte sind unverbindlich."
Else Else
getMahnstufetextMDM(MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT) getMahnstufetextMDM(MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT)
rpt.lblUeberschriftRG_GS.Text = MAHNTEXT rpt.lblUeberschriftRG_GS.Text = MAHNTEXT

2
SDL/buchhaltung/rptMahnung.Designer.vb generated
View File

@@ -1367,7 +1367,7 @@ Partial Public Class rptMahnung
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblSachbearbeiterUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblSachbearbeiterUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRechnung_Name1 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRechnung_Name1 As GrapeCity.ActiveReports.SectionReportModel.Label

1
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -901,6 +901,7 @@
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rumänisch", "RO")) cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rumänisch", "RO"))
If isVerag360 Then cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Türkisch", "TR"))
cboRechnungSprache.changeItem(0) cboRechnungSprache.changeItem(0)
cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True) cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True)