41 lines
1.3 KiB
VB.net
41 lines
1.3 KiB
VB.net
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
|