diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb index 2db6cd7a..2a4227ce 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class ustCntlUSTV_AntragPosition Inherits System.Windows.Forms.UserControl 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,7 +20,7 @@ Partial Class ustCntlUSTV_AntragPosition 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.tabDok = New System.Windows.Forms.TabPage() @@ -49,6 +49,7 @@ Partial Class ustCntlUSTV_AntragPosition Me.lblAenderungsdatum = New System.Windows.Forms.Label() Me.lblSachbearbeiter = New System.Windows.Forms.Label() Me.pnl = New System.Windows.Forms.Panel() + Me.lblWarning = New System.Windows.Forms.Label() Me.btnLeistenderSave = New System.Windows.Forms.Button() Me.sbLeistender = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.pnlAdresse = New System.Windows.Forms.Panel() @@ -387,6 +388,7 @@ Partial Class ustCntlUSTV_AntragPosition 'pnl ' Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.Controls.Add(Me.lblWarning) Me.pnl.Controls.Add(Me.btnLeistenderSave) Me.pnl.Controls.Add(Me.sbLeistender) Me.pnl.Controls.Add(Me.pnlAdresse) @@ -419,6 +421,16 @@ Partial Class ustCntlUSTV_AntragPosition Me.pnl.Size = New System.Drawing.Size(1300, 239) Me.pnl.TabIndex = 1 ' + 'lblWarning + ' + Me.lblWarning.AutoSize = True + Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWarning.ForeColor = System.Drawing.Color.Red + Me.lblWarning.Location = New System.Drawing.Point(14, 167) + Me.lblWarning.Name = "lblWarning" + Me.lblWarning.Size = New System.Drawing.Size(0, 16) + Me.lblWarning.TabIndex = 23 + ' 'btnLeistenderSave ' Me.btnLeistenderSave.BackgroundImage = Global.SDL.My.Resources.Resources.save @@ -699,7 +711,7 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtRgDatum._DateTimeOnly = False Me.txtRgDatum._numbersOnly = False Me.txtRgDatum._numbersOnlyKommastellen = "" - Me.txtRgDatum._numbersOnlyTrennzeichen = True + Me.txtRgDatum._numbersOnlyTrennzeichen = False Me.txtRgDatum._Prozent = False Me.txtRgDatum._ShortDateNew = False Me.txtRgDatum._ShortDateOnly = False @@ -707,7 +719,7 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtRgDatum._TimeOnly_Seconds = False Me.txtRgDatum._value = "" Me.txtRgDatum._Waehrung = False - Me.txtRgDatum._WaehrungZeichen = True + Me.txtRgDatum._WaehrungZeichen = False Me.txtRgDatum.ForeColor = System.Drawing.Color.Red Me.txtRgDatum.Location = New System.Drawing.Point(17, 49) Me.txtRgDatum.MaxLength = 10 @@ -784,8 +796,8 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtUSTBetragEUR._TimeOnly = False Me.txtUSTBetragEUR._TimeOnly_Seconds = False Me.txtUSTBetragEUR._value = "" - Me.txtUSTBetragEUR._Waehrung = False - Me.txtUSTBetragEUR._WaehrungZeichen = True + Me.txtUSTBetragEUR._Waehrung = True + Me.txtUSTBetragEUR._WaehrungZeichen = False Me.txtUSTBetragEUR.ForeColor = System.Drawing.Color.Red Me.txtUSTBetragEUR.Location = New System.Drawing.Point(294, 130) Me.txtUSTBetragEUR.MaxLength = 10 @@ -799,7 +811,7 @@ Partial Class ustCntlUSTV_AntragPosition 'txtUmrechnungskurs ' Me.txtUmrechnungskurs._DateTimeOnly = False - Me.txtUmrechnungskurs._numbersOnly = True + Me.txtUmrechnungskurs._numbersOnly = False Me.txtUmrechnungskurs._numbersOnlyKommastellen = "" Me.txtUmrechnungskurs._numbersOnlyTrennzeichen = True Me.txtUmrechnungskurs._Prozent = False @@ -809,7 +821,7 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtUmrechnungskurs._TimeOnly_Seconds = False Me.txtUmrechnungskurs._value = "" Me.txtUmrechnungskurs._Waehrung = False - Me.txtUmrechnungskurs._WaehrungZeichen = True + Me.txtUmrechnungskurs._WaehrungZeichen = False Me.txtUmrechnungskurs.ForeColor = System.Drawing.Color.Red Me.txtUmrechnungskurs.Location = New System.Drawing.Point(177, 130) Me.txtUmrechnungskurs.MaxLength = 10 @@ -833,7 +845,7 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtUSTBetrag._TimeOnly_Seconds = False Me.txtUSTBetrag._value = "" Me.txtUSTBetrag._Waehrung = False - Me.txtUSTBetrag._WaehrungZeichen = 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 @@ -1017,4 +1029,5 @@ Partial Class ustCntlUSTV_AntragPosition Friend WithEvents pnlAdresse As Panel Friend WithEvents sbLeistender As VERAG_PROG_ALLGEMEIN.MySearchBox Friend WithEvents btnLeistenderSave As Button + Friend WithEvents lblWarning As Label End Class diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb index 43ead722..fa91b51a 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb @@ -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