neu

Aviso/frmAviso_Vorpapiere.vb

@@ -0,0 +1,28 @@
+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