Projektdateien hinzufügen.

2019-08-08 09:19:41 +02:00
parent d3677973e6
commit 009bb01027
573 changed files with 166751 additions and 0 deletions
--- a/Aviso/frmSendungsDetailsAbrechnungLeistungen.vb
+++ b/Aviso/frmSendungsDetailsAbrechnungLeistungen.vb
@@ -0,0 +1,74 @@
+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
+
+