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

ustva, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-05-15 11:18:22 +02:00
parent 1bef37832f
commit cd1e9bfb6e
7 changed files with 107 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.0.1")>
<Assembly: AssemblyFileVersion("1.4.0.1")>
<Assembly: AssemblyVersion("1.4.0.2")>
<Assembly: AssemblyFileVersion("1.4.0.2")>

7
SDL/USTV/frmMDM_USTVAntrag.vb
View File

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

6
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb generated
View File

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

44
SDL/USTV/ustCntlUSTV_ErstattungPosition .Designer.vb generated
View File

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

137
SDL/USTV/ustCntlUSTV_ErstattungPosition .vb
View File

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

17
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

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

17
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb
View File

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