75 lines
2.2 KiB
VB.net
75 lines
2.2 KiB
VB.net
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 = Windows.Forms.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
|
|
|
|
|