From fb360d6edd61708ef55eadda94238ca855dc0aff Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 14 May 2025 17:45:20 +0200 Subject: [PATCH 1/4] =?UTF-8?q?Umrechnug=20=20FW=20usw.=20im=20Belg=20?= =?UTF-8?q?=C3=BCberarbeitet?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/USTV/frmMDM_USTVAntrag.vb | 33 +++++++++----- SDL/USTV/ustCntlUSTV_AntragPosition.vb | 60 +++++++++++++++----------- 2 files changed, 56 insertions(+), 37 deletions(-) diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index a11c6e0b..d8784a4b 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -1484,13 +1484,13 @@ Public Class frmMDM_USTVAntrag Dim kurs As New cEZB_Waehrungskurse(USTV_ANTRAG.UStVAn_Währungscode) If USTV_ANTRAG.UStVAn_Währungscode = "EUR" Then USTV_POS.UStVPo_USteuerbetragEUR = r.Cells("total_VAT_amount").Value - If USTV_ANTRAG.UStVAn_Währungscode <> "EUR" Then - USTV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2) - USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100 - Else - USTV_POS.UStVPo_USteuerbetrag = r.Cells("total_VAT_amount").Value + 'If USTV_ANTRAG.UStVAn_Währungscode <> "EUR" Then + ' USTV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2) + ' USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100 + 'Else + USTV_POS.UStVPo_USteuerbetrag = r.Cells("total_VAT_amount").Value USTV_POS.UStVPo_Umrechnungskurs = 1 - End If + 'End If Else @@ -1504,7 +1504,7 @@ Public Class frmMDM_USTVAntrag Dim kurs As New cEZB_Waehrungskurse(r.Cells("total_VAT_currency").Value) If r.Cells("total_VAT_currency").Value <> "EUR" Then USTV_POS.UStVPo_USteuerbetrag = r.Cells("total_VAT_amount").Value - USTV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, r.Cells("total_VAT_currency").Value, CDate(USTV_POS.UStVPo_ReDat)), 2) + USTV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(r.Cells("total_VAT_amount").Value, r.Cells("total_VAT_currency").Value, CDate(USTV_POS.UStVPo_ReDat)), 2) USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100 ElseIf r.Cells("total_VAT_currency").Value = "EUR" Then USTV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2) @@ -1513,11 +1513,22 @@ Public Class frmMDM_USTVAntrag End If Else '2.1 Antragswährung <> Belegswährung (FREMD zu FREMD) + If r.Cells("total_VAT_currency").Value = "EUR" Then + USTV_POS.UStVPo_USteuerbetragEUR = r.Cells("total_VAT_amount").Value + Dim kurs As New cEZB_Waehrungskurse(USTV_ANTRAG.UStVAn_Währungscode) + USTV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2) + USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100 + Else + USTV_POS.UStVPo_USteuerbetrag = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(r.Cells("total_VAT_amount").Value, r.Cells("total_VAT_currency").Value, USTV_ANTRAG.UStVAn_Währungscode) + Dim kurs As New cEZB_Waehrungskurse(USTV_ANTRAG.UStVAn_Währungscode) + USTV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(r.Cells("total_VAT_amount").Value, r.Cells("total_VAT_currency").Value, CDate(USTV_POS.UStVPo_ReDat)), 2) + USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100 + + + End If + + - USTV_POS.UStVPo_USteuerbetrag = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(r.Cells("total_VAT_amount").Value, r.Cells("total_VAT_currency").Value, USTV_ANTRAG.UStVAn_Währungscode) - Dim kurs As New cEZB_Waehrungskurse(USTV_ANTRAG.UStVAn_Währungscode) - USTV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2) - USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100 End If diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb index a891abe1..49214b9d 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb @@ -678,54 +678,62 @@ Public Class ustCntlUSTV_AntragPosition If IsNumeric(f.usrcntlVAT_ATEZ1.va.total_VAT_amount) AndAlso f.usrcntlVAT_ATEZ1.va.total_VAT_amount <> 0 AndAlso f.usrcntlVAT_ATEZ1.va.currency <> "" Then Dim antr As New cUSTVAntrag(UStV_POS.UStVAn_ID) - '1. Antragswährung = Belegswährung (EUR zu FREMD und FREMD zu EUR) + If f.usrcntlVAT_ATEZ1.va.currency = antr.UStVAn_Währungscode Then Dim kurs As New cEZB_Waehrungskurse(antr.UStVAn_Währungscode) If antr.UStVAn_Währungscode = "EUR" Then - txtUSTBetragEUR.Text = f.usrcntlVAT_ATEZ1.va.total_VAT_amount - If antr.UStVAn_Währungscode <> "EUR" Then - txtUSTBetrag.Text = Math.Round(kurs.EXCHANGE_EURTOCUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, antr.UStVAn_Währungscode, CDate(UStV_POS.UStVPo_ReDat)), 2) - txtUmrechnungskurs.Text = Math.Floor((CDbl(txtUSTBetrag.Text) / CDbl(txtUSTBetragEUR.Text) * 100 + 0.5)) / 100 - Else - txtUSTBetrag.Text = f.usrcntlVAT_ATEZ1.va.total_VAT_amount - txtUmrechnungskurs.Text = 1 - End If + UStV_POS.UStVPo_USteuerbetragEUR = f.usrcntlVAT_ATEZ1.va.total_VAT_amount + 'If USTV_ANTRAG.UStVAn_Währungscode <> "EUR" Then + ' USTV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2) + ' USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100 + 'Else + UStV_POS.UStVPo_USteuerbetrag = f.usrcntlVAT_ATEZ1.va.total_VAT_amount + UStV_POS.UStVPo_Umrechnungskurs = 1 + 'End If Else - txtUSTBetrag.Text = f.usrcntlVAT_ATEZ1.va.total_VAT_amount - txtUSTBetragEUR.Text = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2) - txtUmrechnungskurs.Text = Math.Floor((CDbl(txtUSTBetrag.Text) / CDbl(txtUSTBetragEUR.Text) * 100 + 0.5)) / 100 - + UStV_POS.UStVPo_USteuerbetrag = f.usrcntlVAT_ATEZ1.va.total_VAT_amount + UStV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2) + UStV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(UStV_POS.UStVPo_USteuerbetrag) / CDbl(UStV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100 End If - Else '2. Antragswährung <> Belegswährung (EUR zu FREMD und FREMD zu EUR) If antr.UStVAn_Währungscode = "EUR" Then Dim kurs As New cEZB_Waehrungskurse(f.usrcntlVAT_ATEZ1.va.currency) If f.usrcntlVAT_ATEZ1.va.currency <> "EUR" Then - txtUSTBetrag.Text = f.usrcntlVAT_ATEZ1.va.total_VAT_amount - txtUSTBetragEUR.Text = Math.Round(kurs.EXCHANGE_EURTOCUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2) - txtUmrechnungskurs.Text = Math.Floor((CDbl(txtUSTBetrag.Text) / CDbl(txtUSTBetragEUR.Text) * 100 + 0.5)) / 100 + UStV_POS.UStVPo_USteuerbetrag = f.usrcntlVAT_ATEZ1.va.total_VAT_amount + UStV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2) + UStV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(UStV_POS.UStVPo_USteuerbetrag) / CDbl(UStV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100 ElseIf f.usrcntlVAT_ATEZ1.va.currency = "EUR" Then - txtUSTBetrag.Text = Math.Round(kurs.EXCHANGE_EURTOCUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, antr.UStVAn_Währungscode, CDate(UStV_POS.UStVPo_ReDat)), 2) - txtUSTBetragEUR.Text = txtUSTBetrag.Text - txtUmrechnungskurs.Text = 1 + UStV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, antr.UStVAn_Währungscode, CDate(UStV_POS.UStVPo_ReDat)), 2) + UStV_POS.UStVPo_USteuerbetragEUR = UStV_POS.UStVPo_USteuerbetrag + UStV_POS.UStVPo_Umrechnungskurs = 1 + End If + Else + '2.1 Antragswährung <> Belegswährung (FREMD zu FREMD) + If f.usrcntlVAT_ATEZ1.va.currency = "EUR" Then + UStV_POS.UStVPo_USteuerbetragEUR = f.usrcntlVAT_ATEZ1.va.total_VAT_amount + Dim kurs As New cEZB_Waehrungskurse(antr.UStVAn_Währungscode) + UStV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, antr.UStVAn_Währungscode, CDate(UStV_POS.UStVPo_ReDat)), 2) + UStV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(UStV_POS.UStVPo_USteuerbetrag) / CDbl(UStV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100 + Else + UStV_POS.UStVPo_USteuerbetrag = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, antr.UStVAn_Währungscode) + Dim kurs As New cEZB_Waehrungskurse(antr.UStVAn_Währungscode) + UStV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2) + UStV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(UStV_POS.UStVPo_USteuerbetrag) / CDbl(UStV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100 + End If - Else - '2.1 Antragswährung <> Belegswährung (FREMD zu FREMD) - txtUSTBetrag.Text = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, antr.UStVAn_Währungscode) - Dim kurs As New cEZB_Waehrungskurse(antr.UStVAn_Währungscode) - txtUSTBetragEUR.Text = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, antr.UStVAn_Währungscode, CDate(UStV_POS.UStVPo_ReDat)), 2) - txtUmrechnungskurs.Text = Math.Floor((CDbl(txtUSTBetrag.Text) / CDbl(txtUSTBetragEUR.Text) * 100 + 0.5)) / 100 + End If End If + End If End If From cd1e9bfb6ef6a87e19175cf52b8eb25ddb165464 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 15 May 2025 11:18:22 +0200 Subject: [PATCH 2/4] ustva, etc. --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/USTV/frmMDM_USTVAntrag.vb | 7 +- .../ustCntlUSTV_AntragPosition.Designer.vb | 6 +- ...stCntlUSTV_ErstattungPosition .Designer.vb | 44 +++--- SDL/USTV/ustCntlUSTV_ErstattungPosition .vb | 137 ++++++------------ SDL/buchhaltung/frmBU_Mahnlauf.vb | 17 ++- .../Classes/USTV/cUSTVAntrag.vb | 17 +++ 7 files changed, 107 insertions(+), 125 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 1f14476b..3fea4475 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index d8784a4b..37d5e941 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -481,10 +481,10 @@ Public Class frmMDM_USTVAntrag Next If posIdinDGV Then - dgvUSTVPositionen.VALUE_CHANGED = True + dgvErstattungspositionen.VALUE_CHANGED = True initdgvErstattungen(POSId) Else - initdgvErstattungen(dgvUSTVPositionen.Rows.Count + 1) + initdgvErstattungen(dgvErstattungspositionen.Rows.Count + 1) End If 'Dim dgvUSTVPositionen. @@ -2698,8 +2698,9 @@ Public Class frmMDM_USTVAntrag Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click UstCntlUSTV_AntragErstattungen1.reset() UstCntlUSTV_AntragErstattungen1.UStV_ERS = New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen() - UstCntlUSTV_AntragErstattungen1.UStV_ERS.UStVEr_ID = UstCntlUSTV_AntragErstattungen1.UStV_ERS.getMaxPosNr() + UstCntlUSTV_AntragErstattungen1.UStV_ERS.UStVEr_ID = USTV_ANTRAG.getMaxPosNrErst() UstCntlUSTV_AntragErstattungen1.Enabled = True + End Sub Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb index 592b2352..1b3ac4a3 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb @@ -835,7 +835,7 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtUSTBetragEUR._WaehrungZeichen = False Me.txtUSTBetragEUR.ForeColor = System.Drawing.Color.Red Me.txtUSTBetragEUR.Location = New System.Drawing.Point(294, 130) - Me.txtUSTBetragEUR.MaxLength = 10 + Me.txtUSTBetragEUR.MaxLength = 15 Me.txtUSTBetragEUR.MaxLineLength = -1 Me.txtUSTBetragEUR.MaxLines_Warning = "" Me.txtUSTBetragEUR.MaxLines_Warning_Label = Nothing @@ -859,7 +859,7 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtUmrechnungskurs._WaehrungZeichen = False Me.txtUmrechnungskurs.ForeColor = System.Drawing.Color.Red Me.txtUmrechnungskurs.Location = New System.Drawing.Point(177, 130) - Me.txtUmrechnungskurs.MaxLength = 10 + Me.txtUmrechnungskurs.MaxLength = 15 Me.txtUmrechnungskurs.MaxLineLength = -1 Me.txtUmrechnungskurs.MaxLines_Warning = "" Me.txtUmrechnungskurs.MaxLines_Warning_Label = Nothing @@ -883,7 +883,7 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtUSTBetrag._WaehrungZeichen = False Me.txtUSTBetrag.ForeColor = System.Drawing.Color.Red Me.txtUSTBetrag.Location = New System.Drawing.Point(17, 130) - Me.txtUSTBetrag.MaxLength = 10 + Me.txtUSTBetrag.MaxLength = 15 Me.txtUSTBetrag.MaxLineLength = -1 Me.txtUSTBetrag.MaxLines_Warning = "" Me.txtUSTBetrag.MaxLines_Warning_Label = Nothing diff --git a/SDL/USTV/ustCntlUSTV_ErstattungPosition .Designer.vb b/SDL/USTV/ustCntlUSTV_ErstattungPosition .Designer.vb index d1e1e982..e87f6d56 100644 --- a/SDL/USTV/ustCntlUSTV_ErstattungPosition .Designer.vb +++ b/SDL/USTV/ustCntlUSTV_ErstattungPosition .Designer.vb @@ -335,7 +335,7 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtGuNr._DateTimeOnly = False Me.txtGuNr._numbersOnly = False Me.txtGuNr._numbersOnlyKommastellen = "" - Me.txtGuNr._numbersOnlyTrennzeichen = True + Me.txtGuNr._numbersOnlyTrennzeichen = False Me.txtGuNr._Prozent = False Me.txtGuNr._ShortDateNew = False Me.txtGuNr._ShortDateOnly = False @@ -358,18 +358,18 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtBerufungsdatum._DateTimeOnly = False Me.txtBerufungsdatum._numbersOnly = False Me.txtBerufungsdatum._numbersOnlyKommastellen = "" - Me.txtBerufungsdatum._numbersOnlyTrennzeichen = True + Me.txtBerufungsdatum._numbersOnlyTrennzeichen = False Me.txtBerufungsdatum._Prozent = False Me.txtBerufungsdatum._ShortDateNew = False - Me.txtBerufungsdatum._ShortDateOnly = False + Me.txtBerufungsdatum._ShortDateOnly = True Me.txtBerufungsdatum._TimeOnly = False Me.txtBerufungsdatum._TimeOnly_Seconds = False Me.txtBerufungsdatum._value = "" Me.txtBerufungsdatum._Waehrung = False - Me.txtBerufungsdatum._WaehrungZeichen = True + Me.txtBerufungsdatum._WaehrungZeichen = False Me.txtBerufungsdatum.ForeColor = System.Drawing.Color.Red Me.txtBerufungsdatum.Location = New System.Drawing.Point(468, 130) - Me.txtBerufungsdatum.MaxLength = 50 + Me.txtBerufungsdatum.MaxLength = 10 Me.txtBerufungsdatum.MaxLineLength = -1 Me.txtBerufungsdatum.MaxLines_Warning = "" Me.txtBerufungsdatum.MaxLines_Warning_Label = Nothing @@ -392,7 +392,7 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtBemerkung._DateTimeOnly = False Me.txtBemerkung._numbersOnly = False Me.txtBemerkung._numbersOnlyKommastellen = "" - Me.txtBemerkung._numbersOnlyTrennzeichen = True + Me.txtBemerkung._numbersOnlyTrennzeichen = False Me.txtBemerkung._Prozent = False Me.txtBemerkung._ShortDateNew = False Me.txtBemerkung._ShortDateOnly = False @@ -400,7 +400,7 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtBemerkung._TimeOnly_Seconds = False Me.txtBemerkung._value = "" Me.txtBemerkung._Waehrung = False - Me.txtBemerkung._WaehrungZeichen = True + Me.txtBemerkung._WaehrungZeichen = False Me.txtBemerkung.ForeColor = System.Drawing.Color.Red Me.txtBemerkung.Location = New System.Drawing.Point(468, 179) Me.txtBemerkung.MaxLength = 255 @@ -408,7 +408,7 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtBemerkung.MaxLines_Warning = "" Me.txtBemerkung.MaxLines_Warning_Label = Nothing Me.txtBemerkung.Name = "txtBemerkung" - Me.txtBemerkung.Size = New System.Drawing.Size(418, 20) + Me.txtBemerkung.Size = New System.Drawing.Size(441, 20) Me.txtBemerkung.TabIndex = 11 ' 'Label14 @@ -443,16 +443,16 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtBerufungshoehe._TimeOnly = False Me.txtBerufungshoehe._TimeOnly_Seconds = False Me.txtBerufungshoehe._value = "" - Me.txtBerufungshoehe._Waehrung = False - Me.txtBerufungshoehe._WaehrungZeichen = True + Me.txtBerufungshoehe._Waehrung = True + Me.txtBerufungshoehe._WaehrungZeichen = False Me.txtBerufungshoehe.ForeColor = System.Drawing.Color.Red Me.txtBerufungshoehe.Location = New System.Drawing.Point(787, 130) - Me.txtBerufungshoehe.MaxLength = 10 + Me.txtBerufungshoehe.MaxLength = 15 Me.txtBerufungshoehe.MaxLineLength = -1 Me.txtBerufungshoehe.MaxLines_Warning = "" Me.txtBerufungshoehe.MaxLines_Warning_Label = Nothing Me.txtBerufungshoehe.Name = "txtBerufungshoehe" - Me.txtBerufungshoehe.Size = New System.Drawing.Size(99, 20) + Me.txtBerufungshoehe.Size = New System.Drawing.Size(122, 20) Me.txtBerufungshoehe.TabIndex = 10 ' 'txtBelegNr @@ -460,7 +460,7 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtBelegNr._DateTimeOnly = False Me.txtBelegNr._numbersOnly = False Me.txtBelegNr._numbersOnlyKommastellen = "" - Me.txtBelegNr._numbersOnlyTrennzeichen = True + Me.txtBelegNr._numbersOnlyTrennzeichen = False Me.txtBelegNr._Prozent = False Me.txtBelegNr._ShortDateNew = False Me.txtBelegNr._ShortDateOnly = False @@ -493,7 +493,7 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtBerurunfgrund._DateTimeOnly = False Me.txtBerurunfgrund._numbersOnly = False Me.txtBerurunfgrund._numbersOnlyKommastellen = "" - Me.txtBerurunfgrund._numbersOnlyTrennzeichen = True + Me.txtBerurunfgrund._numbersOnlyTrennzeichen = False Me.txtBerurunfgrund._Prozent = False Me.txtBerurunfgrund._ShortDateNew = False Me.txtBerurunfgrund._ShortDateOnly = False @@ -501,7 +501,7 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtBerurunfgrund._TimeOnly_Seconds = False Me.txtBerurunfgrund._value = "" Me.txtBerurunfgrund._Waehrung = False - Me.txtBerurunfgrund._WaehrungZeichen = True + Me.txtBerurunfgrund._WaehrungZeichen = False Me.txtBerurunfgrund.ForeColor = System.Drawing.Color.Red Me.txtBerurunfgrund.Location = New System.Drawing.Point(643, 130) Me.txtBerurunfgrund.MaxLength = 50 @@ -520,7 +520,7 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtBelegDatum._numbersOnlyTrennzeichen = False Me.txtBelegDatum._Prozent = False Me.txtBelegDatum._ShortDateNew = False - Me.txtBelegDatum._ShortDateOnly = False + Me.txtBelegDatum._ShortDateOnly = True Me.txtBelegDatum._TimeOnly = False Me.txtBelegDatum._TimeOnly_Seconds = False Me.txtBelegDatum._value = "" @@ -544,14 +544,14 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtGuDatum._numbersOnlyTrennzeichen = True Me.txtGuDatum._Prozent = False Me.txtGuDatum._ShortDateNew = False - Me.txtGuDatum._ShortDateOnly = False + Me.txtGuDatum._ShortDateOnly = True Me.txtGuDatum._TimeOnly = False Me.txtGuDatum._TimeOnly_Seconds = False - Me.txtGuDatum._value = Nothing + Me.txtGuDatum._value = "" Me.txtGuDatum._Waehrung = False Me.txtGuDatum._WaehrungZeichen = False Me.txtGuDatum.Location = New System.Drawing.Point(468, 49) - Me.txtGuDatum.MaxLength = 22 + Me.txtGuDatum.MaxLength = 10 Me.txtGuDatum.MaxLineLength = -1 Me.txtGuDatum.MaxLines_Warning = "" Me.txtGuDatum.MaxLines_Warning_Label = Nothing @@ -575,7 +575,7 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtUSTBetragEUR._WaehrungZeichen = False Me.txtUSTBetragEUR.ForeColor = System.Drawing.Color.Red Me.txtUSTBetragEUR.Location = New System.Drawing.Point(294, 130) - Me.txtUSTBetragEUR.MaxLength = 10 + Me.txtUSTBetragEUR.MaxLength = 15 Me.txtUSTBetragEUR.MaxLineLength = -1 Me.txtUSTBetragEUR.MaxLines_Warning = "" Me.txtUSTBetragEUR.MaxLines_Warning_Label = Nothing @@ -619,11 +619,11 @@ Partial Class ustCntlUSTV_ErstattungPosition Me.txtUSTBetrag._TimeOnly = False Me.txtUSTBetrag._TimeOnly_Seconds = False Me.txtUSTBetrag._value = "" - Me.txtUSTBetrag._Waehrung = False + Me.txtUSTBetrag._Waehrung = True Me.txtUSTBetrag._WaehrungZeichen = False Me.txtUSTBetrag.ForeColor = System.Drawing.Color.Red Me.txtUSTBetrag.Location = New System.Drawing.Point(17, 130) - Me.txtUSTBetrag.MaxLength = 10 + Me.txtUSTBetrag.MaxLength = 15 Me.txtUSTBetrag.MaxLineLength = -1 Me.txtUSTBetrag.MaxLines_Warning = "" Me.txtUSTBetrag.MaxLines_Warning_Label = Nothing diff --git a/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb b/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb index d15a5d78..9718b9a5 100644 --- a/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb +++ b/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb @@ -48,18 +48,14 @@ Public Class ustCntlUSTV_ErstattungPosition Me.UStV_ERS = UStV_ERS Me.kdnr = kdNr - txtBelegDatum._value = If(UStV_ERS.Belegdatum, "") txtBelegNr._value = If(UStV_ERS.Belegnummer, "") - txtGuDatum._value = If(UStV_ERS.GutschriftsDatum, "") txtGuNr._value = If(UStV_ERS.GutschriftsNr, "") - txtBerufungsdatum._value = If(UStV_ERS.Berufungsdatum, "") txtBerurunfgrund._value = If(UStV_ERS.Berufungsgrund, "") txtBerufungshoehe._value = If(UStV_ERS.Berufungshöhe, "") - lblSachbearbeiter.Text = If(UStV_ERS.UStVEr_Sachbearbeiter, "") If UStV_ERS.UStVEr_Zeitstempel IsNot Nothing Then lblAenderungsdatum.Text = CDate(UStV_ERS.UStVEr_Zeitstempel).ToString("dd.MM.yyyy HH:mm") @@ -83,80 +79,46 @@ Public Class ustCntlUSTV_ErstattungPosition If UStV_ERS Is Nothing Then UStV_ERS = New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen() - UStV_ERS.UStVEr_ID = UStV_ERS.getMaxPosNr() + UStV_ERS.UStVEr_ID = UstV_AN.getMaxPosNrErst End If UStV_ERS.UStVEr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME UStV_ERS.UStVEr_Zeitstempel = Now UStV_ERS.UStVAn_ID = UstV_AN.UStVAn_ID + UStV_ERS.Belegnummer = cProgramFunctions.isLeerNothing(txtBelegNr.Text) + UStV_ERS.GutschriftsNr = cProgramFunctions.isLeerNothing(txtGuNr.Text) + UStV_ERS.Bemerkung = cProgramFunctions.isLeerNothing(txtBemerkung.Text) + UStV_ERS.Berufungsgrund = cProgramFunctions.isLeerNothing(txtBerurunfgrund.Text) + UStV_ERS.UStVEr_USteuerbetrag = cProgramFunctions.isLeerNothingDbl(txtUSTBetrag.Text) + + UStV_ERS.UStVEr_USteuerbetragEUR = cProgramFunctions.isLeerNothingDbl(txtUSTBetragEUR.Text) + + UStV_ERS.Berufungshöhe = cProgramFunctions.isLeerNothingDbl(txtBerufungshoehe.Text) + + UStV_ERS.UStVEr_Umrechnungskurs = cProgramFunctions.isLeerNothingDbl(txtUmrechnungskurs.Text) - If txtBelegNr.Text <> "" Then - UStV_ERS.Belegnummer = txtBelegNr.Text - Else - 'save = False - End If If txtBelegDatum.Text <> "" AndAlso IsDate(txtBelegDatum.Text) Then UStV_ERS.Belegdatum = txtBelegDatum._value Else - 'save = False + UStV_ERS.Belegdatum = Nothing End If - If txtUSTBetrag.Text <> "" Then - UStV_ERS.UStVEr_USteuerbetrag = txtUSTBetrag.Text.Replace(",", ".") - Else - 'save = False - End If - If txtUSTBetragEUR.Text <> "" Then - UStV_ERS.UStVEr_USteuerbetragEUR = txtUSTBetragEUR.Text.Replace(",", ".") - Else - 'save = False - End If - - If txtGuDatum.Text <> "" Then + If txtGuDatum.Text <> "" AndAlso IsDate(txtGuDatum.Text) Then UStV_ERS.GutschriftsDatum = txtGuDatum.Text - End If - - If Not txtUmrechnungskurs.Text = "" Then - If txtUmrechnungskurs.Text <> "" Then - UStV_ERS.UStVEr_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".") - End If Else - 'save = False + UStV_ERS.GutschriftsDatum = Nothing End If - If txtGuDatum.Text <> "" Then - UStV_ERS.GutschriftsDatum = txtGuDatum.Text - End If - - If txtGuNr.Text <> "" Then - UStV_ERS.GutschriftsNr = txtGuNr.Text - End If - - - - If txtBemerkung.Text <> "" Then - UStV_ERS.Bemerkung = txtBemerkung.Text - End If - - If txtBerufungsdatum.Text <> "" Then + If txtBerufungsdatum.Text <> "" AndAlso IsDate(txtBerufungsdatum.Text) Then UStV_ERS.Berufungsdatum = txtBerufungsdatum.Text + Else + UStV_ERS.Berufungsdatum = Nothing End If - If txtBerufungshoehe.Text <> "" Then - UStV_ERS.Berufungshöhe = txtBerufungshoehe.Text - End If - - If txtBerurunfgrund.Text <> "" Then - UStV_ERS.Berufungsgrund = txtBerurunfgrund.Text - End If - - - - End Sub Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown @@ -190,10 +152,7 @@ Public Class ustCntlUSTV_ErstattungPosition End Sub - - - - Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtBelegDatum.PreviewKeyDown, txtBelegNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown + Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtBelegDatum.PreviewKeyDown, txtBelegNr.PreviewKeyDown, txtBemerkung.PreviewKeyDown, txtBerufungsdatum.PreviewKeyDown, txtBerufungshoehe.PreviewKeyDown, txtGuNr.PreviewKeyDown If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVAErstattung_bearbeiten", Me.FindForm) Then Exit Sub If Me.FindForm IsNot Nothing Then @@ -202,17 +161,10 @@ Public Class ustCntlUSTV_ErstattungPosition If e.KeyValue = 9 Then lblWarning.Text = "" - If sender Is txtUSTBetrag Or sender Is txtUSTBetragEUR Or sender Is txtUmrechnungskurs Then - - If txtUSTBetrag.Text = "" Then - lblWarning.Text = "Bitte Umsatzsteuerbetrag eingeben." - Exit Sub - End If - - End If If sender Is txtUSTBetrag Then + If IsNumeric(txtUSTBetrag.Text) AndAlso IsNumeric(txtUmrechnungskurs.Text) Then txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100 txtChanged = True @@ -220,31 +172,13 @@ Public Class ustCntlUSTV_ErstattungPosition ElseIf sender Is txtUSTBetragEUR Then - 'so herum nicht umrechnen!!!! - 'If IsNumeric(txtUSTBetragEUR._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then - ' txtUSTBetrag.Text = Math.Floor((txtUSTBetragEUR._value * txtUmrechnungskurs._value) * 100 + 0.5) / 100 - ' 'values_changed() - 'End If - If IsNumeric(txtUSTBetragEUR) Then txtChanged = True - If IsNumeric(txtUSTBetragEUR.Text) AndAlso IsNumeric(txtUSTBetrag.Text) Then - Dim zahl1 = txtUSTBetragEUR.Text / txtUSTBetrag.Text + txtUmrechnungskurs.Text = txtUSTBetrag.Text / txtUSTBetragEUR.Text - txtUmrechnungskurs.Text = zahl1 txtChanged = True End If - ElseIf sender Is txtUmrechnungskurs Then - - - If IsNumeric(txtUSTBetrag.Text) AndAlso IsNumeric(txtUmrechnungskurs._value) Then - txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100 - txtChanged = True - End If - - - ElseIf sender Is txtBelegDatum Then If txtBelegDatum.Text <> "" Then @@ -254,7 +188,7 @@ Public Class ustCntlUSTV_ErstattungPosition ElseIf sender Is txtBerufungsdatum Then - If txtBerufungsdatum.Text <> "" Then + If txtBerufungsdatum.Text <> "" AndAlso IsDate(txtBerufungsdatum.Text) Then txtBerufungsdatum.Text = txtBerufungsdatum.Text.Replace("-", ".") End If txtChanged = True @@ -269,10 +203,31 @@ Public Class ustCntlUSTV_ErstattungPosition ElseIf sender Is txtBemerkung Then - If txtBemerkung.Text <> "" Then - txtBemerkung.Text = txtBemerkung.Text - End If + txtBemerkung.Text = txtBemerkung.Text + txtChanged = True + + ElseIf sender Is txtBelegNr Then + + txtBelegNr.Text = txtBelegNr.Text + + txtChanged = True + + ElseIf sender Is txtGuNr Then + + txtGuNr.Text = txtGuNr.Text + + txtChanged = True + + + ElseIf sender Is txtBerufungshoehe Then + + If txtBerufungshoehe.Text IsNot Nothing AndAlso IsNumeric(txtBerufungshoehe.Text) Then + txtBerufungshoehe.Text = CDbl(txtBerufungshoehe.Text) + End If + + txtChanged = True + End If End If diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 0f2fabff..9d8282ae 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -3,6 +3,7 @@ Imports DocumentFormat.OpenXml.Bibliography Imports GrapeCity.ActiveReports.ReportsCore.Tools Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.CC015B_TR_EXT_V4_3 Public Class frmBU_Mahnlauf @@ -447,6 +448,8 @@ Public Class frmBU_Mahnlauf Case 19 rpt.lblEmail.Text = IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email) + rpt.lblEmail.Visible = True + 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 @@ -538,7 +541,7 @@ Public Class frmBU_Mahnlauf 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 - getMahnstufetextMDM(MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT) + getMahnstufetextMDM(MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT, Sprache, dict) rpt.lblUeberschriftRG_GS.Text = MAHNTEXT rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR rpt.txtVermerk.Text = MahnTEXT_NACH @@ -1112,12 +1115,12 @@ Public Class frmBU_Mahnlauf End Sub - Private Shared Sub getMahnstufetextMDM(MAHNSTUFE, ByRef MahnTEXT_VOR, ByRef MahnTEXT_NACH, ByRef MAHNTEXT) + Private Shared Sub getMahnstufetextMDM(MAHNSTUFE, ByRef MahnTEXT_VOR, ByRef MahnTEXT_NACH, ByRef MAHNTEXT, Sprache, dct) 'nur Deutsch, weil übersetzung über tblTranslate! Select Case MAHNSTUFE - Case -2 + Case -2 MahnTEXT_VOR = "Nachstehend ersehen Sie die Übersicht Ihrer offenen Rechnungen:" MahnTEXT_NACH = "Sollten Sie Kopien der fehlenden Belege benötigen, lassen Sie es uns bitte wissen. Wir senden Sie Ihnen gerne nochmals zu." MAHNTEXT = "Liste - Offene Posten" @@ -1164,8 +1167,14 @@ Public Class frmBU_Mahnlauf MAHNTEXT = MAHNSTUFE & ". MAHNUNG" End Select + If Sprache = "DE" Then 'weil DE nicht übersetzt wird!!! + For Each pair In dct + MahnTEXT_VOR = MahnTEXT_VOR.ToString.Replace("%" & pair.Key & "%", pair.Value) + MahnTEXT_NACH = MahnTEXT_NACH.ToString.Replace("%" & pair.Key & "%", pair.Value) + MAHNTEXT = MAHNTEXT.ToString.Replace("%" & pair.Key & "%", pair.Value) - + Next + End If End Sub diff --git a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb index cdef5b24..4875d34a 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb @@ -276,6 +276,20 @@ Public Class cUSTVAntrag Return -1 End Function + Public Function getMaxPosNrErst() As Integer + Try + Dim maxPosNr = -1 + + Return SQL.getValueTxtBySql("SELECT isnull(max([UStVEr_ID]),0)+1 FROM [tblUStVErstattung] where UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL",,, "1") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return -1 + End Function + + + Public Function DELETE() As Boolean Dim sqlstr = " DELETE FROM tblUStVAntrag WITH(updlock,serializable) WHERE UStVAn_ID=" & Me.UStVAn_ID @@ -625,4 +639,7 @@ Public Class cUStVErstattungPositionen End Try Return -1 End Function + + + End Class From 18d6d78d65a8df5d8af8711f9bbcba85f4f038ba Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 15 May 2025 12:11:32 +0200 Subject: [PATCH 3/4] Mahnungen SDL --- SDL/buchhaltung/frmBU_Mahnlauf.vb | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 9d8282ae..563cde85 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -56,15 +56,17 @@ Public Class frmBU_Mahnlauf when max(si_mahnstufe) = 4 Then 'Mittwoch' when max(si_mahnstufe) >= 5 Then 'gesperrt' else '-' - End as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto(1) ", "") & " " & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & " " & If(KdTxt <> "", " AND KTO.c_name LIKE '" & KdTxt.Replace("*", "%") & "'", "") & " - group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,KTO.c_email, Kunden.Abfertigungsverbot + group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,[tblKundenKontakt].kkd_Email, Kunden.Abfertigungsverbot HAVING sum(eur_bruttobetrag+eur_zahlung)>'" & MyTextBox1._value & "' " & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & " ORDER BY KTO.c_name" @@ -362,9 +364,12 @@ Public Class frmBU_Mahnlauf End If Dim dict As New Dictionary(Of String, String) - dict("MITTWOCH") = Today.AddDays((DayOfWeek.Wednesday - Today.DayOfWeek + 7) Mod 7).ToShortDateString() - dict("DONNERSTAG") = Today.AddDays((DayOfWeek.Thursday - Today.DayOfWeek + 7) Mod 7).ToShortDateString() - dict("FREITAG") = Today.AddDays((DayOfWeek.Friday - Today.DayOfWeek + 7) Mod 7).ToShortDateString() + 'dict("MITTWOCH") = Today.AddDays((DayOfWeek.Wednesday - Today.DayOfWeek + 7) Mod 7).ToShortDateString() + 'dict("DONNERSTAG") = Today.AddDays((DayOfWeek.Thursday - Today.DayOfWeek + 7) Mod 7).ToShortDateString() + 'dict("FREITAG") = Today.AddDays((DayOfWeek.Friday - Today.DayOfWeek + 7) Mod 7).ToShortDateString() + dict("MITTWOCH") = Today.AddDays(1).ToShortDateString() + dict("DONNERSTAG") = Today.AddDays(2).ToShortDateString() + dict("FREITAG") = Today.AddDays(3).ToShortDateString() dict("HEUTE") = Today.ToShortDateString() Dim rpt As New rptMahnung(Sprache, MAHNSTUFE, Firma_ID, IIf(Firma_ID = 19, dict, Nothing)) @@ -539,12 +544,12 @@ Public Class frmBU_Mahnlauf rpt.lblUeberschriftRG_GS.Text = MAHNTEXT rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR 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 getMahnstufetextMDM(MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT, Sprache, dict) rpt.lblUeberschriftRG_GS.Text = MAHNTEXT rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR rpt.txtVermerk.Text = MahnTEXT_NACH + rpt.txtDisclaimer.Text = "Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer- Zoll- und Tarifauskünfte sind unverbindlich." End If @@ -773,6 +778,7 @@ Public Class frmBU_Mahnlauf If Firma_ID = 19 Then Select Case AD.LandKz Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'später mal über eigene Logik!! + Case "SRB", "BIH", "HR", "ME", "MKD", "SK", "SI", "RS" : Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;" End Select End If From 28af74ca4b2ea1361cd54b764c0c76e30c29bb45 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 15 May 2025 13:19:30 +0200 Subject: [PATCH 4/4] Mahnlauf BCC --- SDL/buchhaltung/frmBU_Mahnlauf.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 563cde85..bfa4cbed 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -778,7 +778,7 @@ Public Class frmBU_Mahnlauf If Firma_ID = 19 Then Select Case AD.LandKz Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'später mal über eigene Logik!! - Case "SRB", "BIH", "HR", "ME", "MKD", "SK", "SI", "RS" : Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;" + Case "AT", "BA", "BG", "CZ", "DE", "HU", "LU", "SRB", "BIH", "HR", "ME", "MKD", "SK", "SI", "RS" : Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;" End Select End If