MDM. Zugferd, LeistungenFIBUKonten, USTVA, MSE

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -1,9 +1,4 @@
-
-
-
-Imports GrapeCity.ActiveReports.ReportsCore.Tools
-Imports GrapeCity.DataVisualization.TypeScript
-Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class ustCntlUSTV_AntragPosition
     Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
@@ -171,12 +166,15 @@ Public Class ustCntlUSTV_AntragPosition
             If sender Is cboLeistungsgeber AndAlso cboLeistungsgeber.SelectedItem <> "" Then
                 UStV_POS.UStVPo_Leistender = cboLeistungsgeber.SelectedItem
                 values_changed()
+
             Else
                 txtChanged = True
             End If
-
         End If
 
+
+
+
     End Sub
 
     Private Sub txtRgDatum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRgDatum.KeyUp, txtRgNr.KeyUp, txtUSTBetrag.KeyUp, txtUmrechnungskurs.KeyUp, txtUSTBetragEUR.KeyUp
@@ -184,18 +182,36 @@ 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 e.KeyValue = 9 Then
 
-                e.SuppressKeyPress = True
-                If txtChanged Then
-                    values_changed()
-                    txtChanged = False
+            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
 
+                If IsNumeric(txtUSTBetragEUR._value) AndAlso IsNumeric(txtUmrechnungskurs._value) AndAlso txtUmrechnungskurs._value <> 1 Then
+                    txtUSTBetrag.Text = Math.Floor((txtUSTBetragEUR._value * txtUmrechnungskurs._value) * 100 + 0.5) / 100
+                    'values_changed()
+                End If
             End If
 
-        End If
+
+
+            If e.KeyValue = 9 Then
+
+                    e.SuppressKeyPress = True
+                    If txtChanged Then
+                        values_changed()
+                        txtChanged = False
+                    End If
+
+
+                End If
+
+            End If
 
     End Sub