ustva_antrag logik umrechnung umgebaut

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