Public Class frmSendungsDetailsAbrechnungLeistungen


    Public Property _beteiligter As String = ""
    Dim SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen


    Sub New(SENDUNG, _beteiligter)


        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        Me.SENDUNG = SENDUNG
        Me._beteiligter = _beteiligter
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub


    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub frmSendungsDetailsAbrechnungLeistungen_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        'löscht alle sinstigen einträge:
        SENDUNG.ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "" And x.sndabr_beteiligter = _beteiligter)
     
        'save
        For Each r As DataGridViewRow In dgv.Rows
            Dim leistung = r.Cells("Leistung").Value
            Dim preis As Object = Nothing
            If IsNumeric(r.Cells("Preis").Value) Then preis = CDbl(r.Cells("Preis").Value)
            If leistung <> "" Then
                SENDUNG.ABRECHNUNG.Add(New VERAG_PROG_ALLGEMEIN.cSendungAbrechnung(SENDUNG.tblSnd_SendungID, _beteiligter, "", "", leistung, 1, preis, preis))
            End If
        Next

    End Sub

   



    Private Sub usrcntlSendungDetailsAbrechnung_Load(sender As Object, e As EventArgs) Handles Me.Load
        loadDgv()
        dgv.ClearSelection()
        Me.Location = Cursor.Position
    End Sub

    Private Sub usrcntlSendungDetailsAbrechnung_LostFocus(sender As Object, e As EventArgs) Handles dgv.LostFocus
        dgv.ClearSelection()
    End Sub


    Sub loadDgv()
        dgv.Rows.Clear()
        For Each a In SENDUNG.ABRECHNUNG
            If a.sndabr_beteiligter = _beteiligter Then
                If a.sndabr_abrArt = "" Then
                    dgv.Rows.Add(a.sndabr_bezeichnung, If(a.sndabr_preis, ""))
                End If
            End If
        Next
        init()
    End Sub
    Public Sub init()
        For cnt = dgv.RowCount To 2
            dgv.Rows.Add("", "")
        Next
    End Sub
End Class