Public Class frmAbfertigungTR_ExportAnz


    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub


    Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load

        txtAnz.Focus()


    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        lblError.Visible = False
        If txtAnz._value = "" OrElse Not IsNumeric(txtAnz._value) Then Me.DialogResult = DialogResult.None : lblError.Visible = True : Exit Sub
        If txtAnzPos._value = "" OrElse Not IsNumeric(txtAnzPos._value) Then Me.DialogResult = DialogResult.None : lblError.Visible = True : Exit Sub

        If CInt(txtAnz._value) <= 0 Then Me.DialogResult = DialogResult.None : lblError.Visible = True : Exit Sub
        If CInt(txtAnzPos._value) <= 0 Then Me.DialogResult = DialogResult.None : lblError.Visible = True : Exit Sub

        Me.DialogResult = DialogResult.OK

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.DialogResult = DialogResult.Cancel
    End Sub



    Private Sub txtAnz_KeyUp(sender As Object, e As KeyEventArgs) Handles txtAnz.KeyUp, txtAnzPos.KeyUp
        If e.KeyCode = Keys.Return Then
            btn.Focus()
            btn.PerformClick()
        End If
    End Sub
End Class