neu

Gemeinsames/subRptSendungenVorkosten.vb

@@ -0,0 +1,37 @@
+
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports System.Data
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class subRptSendungenVorkosten
+
+    Dim VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing
+
+    Sub New(VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
+
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+        Me.VORKOSTEN = VORKOSTEN
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+
+        txtFirma.Text = CStr(Me.Fields.Item("FIRMA").Value)
+        txtLeistung.Text = CStr(Me.Fields.Item("LEISTUNG").Value)
+        txtPreis.Text = CDbl(Me.Fields.Item("PREIS").Value).ToString("C2")
+
+    End Sub
+
+    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
+        Dim dt As New DataTable
+        dt.Columns.Add("FIRMA", System.Type.GetType("System.String"))
+        dt.Columns.Add("LEISTUNG", System.Type.GetType("System.String"))
+        dt.Columns.Add("PREIS", System.Type.GetType("System.String"))
+        For Each s In VORKOSTEN
+            dt.Rows.Add({s.sndvk_Firma, s.sndvk_LeistungsBez, s.sndvk_Preis})
+        Next
+        Me.DataSource = dt
+    End Sub
+End Class