merge

Aviso/frmSendungsdetailsNEU.vb

@@ -1261,13 +1261,13 @@ Public Class frmSendungsdetailsNEU
         ' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
 
         Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen
-            '  SENDUNG_LIST.Add(NEW_SND)
+        '  SENDUNG_LIST.Add(NEW_SND)
 
-            NEW_SND.SAVE(False) 'Insert neue Sendung
-            VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden
-            ' initDataBinding()
-            If initAfter Then LAST_SENDUNG(False) 'letzte Sendung
-            initButtons()
+        NEW_SND.SAVE(False) 'Insert neue Sendung
+        VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden
+        ' initDataBinding()
+        If initAfter Then LAST_SENDUNG(False) 'letzte Sendung
+        initButtons()
         'End If
 
     End Sub
@@ -2765,6 +2765,12 @@ Public Class frmSendungsdetailsNEU
             Case "44"
                 pnlT1.Controls.Add(usrcntl_ATB)
 
+                cboVorpapier._value = ""
+                cboVorpapier2._value = ""
+                cboVorpapier3._value = ""
+                txtVorpapierPos.Text = ""
+                txtVorpapier2Pos.Text = ""
+                txtVorpapier3Pos.Text = ""
                 cboVorpapier.Enabled = False
                 cboVorpapier2.Enabled = False
                 cboVorpapier3.Enabled = False
@@ -8115,4 +8121,22 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusAbgeschlossen_Click(sender As Object, e As EventArgs) Handles btnStatusAbgeschlossen.Click
         '''
     End Sub
+
+    Private Sub txtVorpapierPos_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtVorpapierPos.KeyPress, txtVorpapier2Pos.KeyPress, txtVorpapier3Pos.KeyPress
+        If Char.IsControl(e.KeyChar) Then
+            Return
+        End If
+
+        If Char.IsDigit(e.KeyChar) OrElse e.KeyChar = ","c OrElse e.KeyChar = "+"c OrElse e.KeyChar = " "c Then
+            Return
+        End If
+
+        e.Handled = True
+    End Sub
+
+    Private Sub txtVorpapierPos_KeyDown(sender As Object, e As KeyEventArgs) Handles txtVorpapierPos.KeyDown, txtVorpapier2Pos.KeyDown, txtVorpapier3Pos.KeyDown
+        If e.Control AndAlso e.KeyCode = Keys.V Then
+            e.SuppressKeyPress = True
+        End If
+    End Sub
 End Class