ustva_antrag logik umrechnung umgebaut

2025-02-13 14:48:09 +01:00
parent b75d804442
commit 7e561d14e1
2 changed files with 118 additions and 86 deletions
--- a/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb
+++ b/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb
@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class ustCntlUSTV_AntragPosition
    Inherits System.Windows.Forms.UserControl

    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
    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.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
    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
--- 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