neu

Aviso/frmEintragAviso.vb

@@ -396,11 +396,7 @@ Public Class frmEintragAviso
                 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
+            UsrCntlAviso_Vorpapiere1.setVorpapiere(myAviso)
 
 
             '  If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
@@ -782,8 +778,11 @@ Public Class frmEintragAviso
             If optOhneAviso.Checked Then myAviso.Telefonisch = ""
             '  myAviso.Info = txtInfo.Text.Trim ' jetzt in Vermerke gespeichert!!
             myAviso.Info = ""
-            myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
-            myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
+
+            If Neuanlage Then
+                myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
+                myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
+            End If
             If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
                 myAviso.Grenzstelle = "SUB"
             Else
@@ -928,17 +927,15 @@ Public Class frmEintragAviso
             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
+            'VORPAPIER
+            If UsrCntlAviso_Vorpapiere1.checkDouble() Then
+                MsgBox("Vorpapiere: Doppelte Einträge!")
+                Me.DialogResult = DialogResult.None
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            End If
+
+            UsrCntlAviso_Vorpapiere1.getVorpapiere(myAviso)
             AvisoDAL.SpeichernAvisoVorpapiere(tmpId, myAviso.VORPAPIERE)