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

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