neu

Aviso/frmEintragAviso.vb

@@ -395,7 +395,12 @@ Public Class frmEintragAviso
                     panAdmin.Visible = bearb 'Administrator bekommt mehr Edit-Möglichkeiten
                 End If
 
-
+            'Vorpapier laden
+            dgvVorpapier.Rows.Clear()
+            myAviso.LOAD_Vorpapiere()
+            For Each VP In myAviso.VORPAPIERE
+                dgvVorpapier.Rows.Add({VP.vp_Art, VP.vp_Nr})
+            Next
 
 
             '  If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
@@ -916,10 +921,27 @@ Public Class frmEintragAviso
                 myAviso.TransportTemperatur = SDL.cProgramFunctions.isLeerNothing(UsrCntlEintragAvisoAtilla.txtTransporttemp.Text)
                 myAviso.Zugmaschine = SDL.cProgramFunctions.isLeerNothing(UsrCntlEintragAvisoAtilla.txtZugmaschine.Text)
             End If
+
+
             Dim tmpId = AvisoDAL.SpeichernAviso(myAviso)
+
             myAviso.AvisoID = tmpId
             AvisoDAL.addAenderung(tmpId, aendart, aendText)
 
+            'VORPAPIERE
+            myAviso.VORPAPIERE.Clear()
+            For Each r As DataGridViewRow In dgvVorpapier.Rows
+                If r.Cells("clmnMRN").Value IsNot Nothing AndAlso r.Cells("clmnMRN").Value <> "" Then
+                    Dim VP As New cAvisoVorpapier
+                    VP.vp_AvisoId = tmpId
+                    VP.vp_Nr = r.Cells("clmnMRN").Value
+                    VP.vp_Art = "T1" 'r.Cells("clmnMRN").Value
+                    myAviso.VORPAPIERE.Add(VP)
+                End If
+            Next
+            AvisoDAL.SpeichernAvisoVorpapiere(tmpId, myAviso.VORPAPIERE)
+
+
             'Infotext als Vermerk:
             If txtInfo.Text.Trim <> "" Then
                 If txtInfo.Text.Length <= 80 Then
@@ -1697,4 +1719,8 @@ Public Class frmEintragAviso
             MsgBox(ex.Message & ex.StackTrace)
         End Try
     End Sub
+
+    Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
+
+    End Sub
 End Class