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