neu

Aviso/usrCntlAviso_Vorpapiere.vb

@@ -0,0 +1,40 @@
+Public Class usrCntlAviso_Vorpapiere
+
+
+    Sub setVorpapiere(ByRef myAviso As VERAG_PROG_ALLGEMEIN.cAviso)
+        'Vorpapier laden
+        dgvVorpapier.Rows.Clear()
+        myAviso.LOAD_Vorpapiere()
+        For Each VP In myAviso.VORPAPIERE
+            dgvVorpapier.Rows.Add({VP.vp_Art, VP.vp_Nr})
+        Next
+    End Sub
+
+    Function checkDouble()
+        For Each r As DataGridViewRow In dgvVorpapier.Rows
+
+            For Each r2 As DataGridViewRow In dgvVorpapier.Rows
+                If r.Index <> r2.Index Then
+                    If r.Cells("clmnMRN").Value = r2.Cells("clmnMRN").Value Then
+                        Return True
+                    End If
+                End If
+            Next
+        Next
+        Return False
+    End Function
+
+    Sub getVorpapiere(ByRef myAviso As VERAG_PROG_ALLGEMEIN.cAviso)
+        '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 VERAG_PROG_ALLGEMEIN.cAvisoVorpapier
+                VP.vp_AvisoId = myAviso.AvisoID
+                VP.vp_Nr = r.Cells("clmnMRN").Value
+                VP.vp_Art = "T1" 'r.Cells("clmnMRN").Value
+                myAviso.VORPAPIERE.Add(VP)
+            End If
+        Next
+    End Sub
+End Class