ustva_antrag logik umrechnung umgebaut
This commit is contained in:
@@ -85,38 +85,36 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
UStV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
UStV_POS.UStVPo_Zeitstempel = Now
|
||||
|
||||
If txtRgNr._value <> "" Then
|
||||
UStV_POS.UStVPo_ReNr = txtRgNr._value
|
||||
If txtRgNr.Text <> "" Then
|
||||
UStV_POS.UStVPo_ReNr = txtRgNr.Text
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
|
||||
If txtRgDatum._value <> "" AndAlso IsDate(txtRgDatum._value) Then
|
||||
If txtRgDatum.Text <> "" AndAlso IsDate(txtRgDatum.Text) Then
|
||||
UStV_POS.UStVPo_ReDat = txtRgDatum._value
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
If txtUSTBetrag._value <> "" Then
|
||||
UStV_POS.UStVPo_USteuerbetrag = txtUSTBetrag._value.Replace(",", ".")
|
||||
If txtUSTBetrag.Text <> "" Then
|
||||
UStV_POS.UStVPo_USteuerbetrag = txtUSTBetrag.Text.Replace(",", ".")
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
|
||||
If txtUSTBetragEUR._value <> "" Then
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR._value.Replace(",", ".")
|
||||
If txtUSTBetragEUR.Text <> "" Then
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR.Text.Replace(",", ".")
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
If txtLeistungsbezeichnung._value <> "" Then
|
||||
UStV_POS.UStVPo_Leistungsbezeichnung = txtLeistungsbezeichnung._value
|
||||
If txtLeistungsbezeichnung.Text <> "" Then
|
||||
UStV_POS.UStVPo_Leistungsbezeichnung = txtLeistungsbezeichnung.Text
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
If Not (txtUmrechnungskurs.Text = "" And txtUmrechnungskurs._value = "") Then
|
||||
If Not txtUmrechnungskurs.Text = "" Then
|
||||
If txtUmrechnungskurs.Text <> "" Then
|
||||
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
|
||||
ElseIf txtUmrechnungskurs._value <> "" Then
|
||||
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value.Replace(",", ".")
|
||||
End If
|
||||
Else
|
||||
save = False
|
||||
@@ -137,17 +135,6 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub txtUmrechnungskurs_TextChanged(sender As Object, e As EventArgs) Handles txtUmrechnungskurs.TextChanged
|
||||
Dim gridAktivTMP = gridAktiv
|
||||
gridAktiv = False
|
||||
txtUSTBetragEUR._value = ""
|
||||
If IsNumeric(txtUSTBetrag._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
||||
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag._value / txtUmrechnungskurs._value) * 100 + 0.5) / 100
|
||||
'txtUSTBetragEUR._value = txtUSTBetrag._value * txtUmrechnungskurs._value
|
||||
End If
|
||||
gridAktiv = gridAktivTMP
|
||||
End Sub
|
||||
|
||||
Function save()
|
||||
Dim setSave As Boolean = True
|
||||
getValues(UStV_POS, setSave)
|
||||
@@ -161,6 +148,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If gridAktiv And Me.FindForm IsNot Nothing Then
|
||||
|
||||
'If sender Is txtLieferung Then
|
||||
' If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
|
||||
'End If
|
||||
@@ -170,7 +158,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
'values_changed()
|
||||
|
||||
Else
|
||||
txtChanged = True
|
||||
'txtChanged = True
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -179,58 +167,6 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub txtRgDatum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRgDatum.KeyUp, txtRgNr.KeyUp, txtUSTBetrag.KeyUp, txtUmrechnungskurs.KeyUp, txtUSTBetragEUR.KeyUp, sbLeistender.KeyUp
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If gridAktiv And Me.FindForm IsNot Nothing Then
|
||||
|
||||
If sender Is txtUSTBetrag Then
|
||||
|
||||
If IsNumeric(txtUSTBetrag._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
||||
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag._value / txtUmrechnungskurs._value) * 100 + 0.5) / 100
|
||||
'values_changed()
|
||||
End If
|
||||
|
||||
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
|
||||
|
||||
ElseIf sender Is sbLeistender Then
|
||||
If e.KeyValue = 9 Then
|
||||
e.SuppressKeyPress = True
|
||||
If UStV_Leist.hasEntry Then
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
||||
values_changed()
|
||||
'UStV_POS.SAVE()
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
If e.KeyValue = 9 Then 'SHIFT
|
||||
e.SuppressKeyPress = True
|
||||
If txtChanged Then
|
||||
values_changed()
|
||||
txtChanged = False
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub values_changed()
|
||||
lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
lblAenderungsdatum.Text = Now.ToString("dd.MM.yyyy HH:mm")
|
||||
@@ -393,4 +329,87 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If gridAktiv And Me.FindForm IsNot Nothing Then
|
||||
|
||||
' Eingabeprüfung
|
||||
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
|
||||
End If
|
||||
|
||||
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.Text) AndAlso IsNumeric(txtUSTBetrag.Text) Then
|
||||
|
||||
Dim zahl1 = txtUSTBetragEUR.Text / txtUSTBetrag.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 sbLeistender Then
|
||||
|
||||
|
||||
|
||||
If UStV_Leist.hasEntry Then
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
||||
txtChanged = True
|
||||
'UStV_POS.SAVE()
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
If txtChanged Then
|
||||
values_changed()
|
||||
txtChanged = False
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user