Public Class frmAviso_Vorpapiere
    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso

    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.AVISO = AVISO
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        If UsrCntlAviso_Vorpapiere1.checkDouble() Then
            MsgBox("Doppelte Einträge!")
            Me.DialogResult = DialogResult.None
            Exit Sub
        End If
        UsrCntlAviso_Vorpapiere1.getVorpapiere(AVISO)
        Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
        If AvisoDAL.SpeichernAvisoVorpapiere(AVISO.AvisoID, AVISO.VORPAPIERE) Then
            Me.Close()
        End If
    End Sub

    Private Sub frmAviso_Vorpapiere_Load(sender As Object, e As EventArgs) Handles Me.Load
        UsrCntlAviso_Vorpapiere1.setVorpapiere(AVISO)
    End Sub
End Class