neu

SDL/Formulare/Einheitspapier/usrCntlEinheitspapier.vb

@@ -151,6 +151,7 @@
             If txt.StartsWith(" - ") Then txt = txt.Replace(" - ", "")
         End If
         txtUnterschrift.Text = "i.A.u.i.V." & vbNewLine & txt & vbNewLine & "" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+        If txtUnterschrift.Text.Length > txtUnterschrift.MaxLength Then txtUnterschrift.Text = txtUnterschrift.Text.Substring(0, txtUnterschrift.MaxLength)
     End Sub
 
 

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb

@@ -283,16 +283,27 @@
     End Function
 
     Private Sub txtUid_TextChanged(sender As Object, e As EventArgs) Handles txtUid.TextChanged
-        If sender.text.trim <> "" Then
-            txtMwstProzent._value = "0"
-            txtMwstProzent.Visible = False
-            txtMWST.Visible = False
-            Label14.Visible = False
+        Dim bool_steuerberechnung = True
+
+        If sender.text.trim = "" Then
+            bool_steuerberechnung = True
         Else
+            bool_steuerberechnung = False
+            If sender.text.ToString.StartsWith("AT") Then
+                bool_steuerberechnung = True
+            End If
+        End If
+
+        If bool_steuerberechnung Then
             txtMwstProzent.Visible = True
             txtMWST.Visible = True
             Label14.Visible = True
             txtMwstProzent._value = "0,2"
+        Else
+            txtMwstProzent._value = "0"
+            txtMwstProzent.Visible = False
+            txtMWST.Visible = False
+            Label14.Visible = False
         End If
         txtMwstProzent.Visible = (sender.text.trim = "")
         txtMWST.Visible = (sender.text.trim = "")
@@ -308,12 +319,14 @@
     End Sub
 
     Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
-        Select Case cboFirma._value
-            Case "CS"
-                txtEustProzent.changeItem("0,20")
-            Case "AG"
-                txtEustProzent.changeItem("0,19")
-        End Select
+        If txtEustProzent._value <> "0" Then ' Wenn =, soll das bleiben
+            Select Case cboFirma._value
+                Case "CS"
+                    txtEustProzent.changeItem("0,20")
+                Case "AG"
+                    txtEustProzent.changeItem("0,19")
+            End Select
+        End If
     End Sub
 
     Private Sub pnlBottom_Paint(sender As Object, e As PaintEventArgs) Handles pnlBottom.Paint