rpt

Gemeinsames/ARConverterBackup3/subRptSendungenOfferte.vb

@@ -0,0 +1,34 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subRptSendungenOfferte
+
+    Dim AbfKostKdnr As Integer
+    Dim ABF_ART As Integer
+    Sub New(ABF_ART As Integer, AbfKostKdnr As Integer)
+
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+        Me.ABF_ART = ABF_ART
+        Me.AbfKostKdnr = AbfKostKdnr
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
+            If Me.Fields.Item("LeistungsNr") IsNot Nothing AndAlso Me.Fields.Item("LeistungsNr").Value IsNot Nothing Then txtLeistungsNr.Text = Me.Fields.Item("LeistungsNr").Value.ToString
+            If Me.Fields.Item("LeistungsBez") IsNot Nothing AndAlso Me.Fields.Item("LeistungsBez").Value IsNot Nothing Then txtLeistungsBez.Text = Me.Fields.Item("LeistungsBez").Value.ToString
+            If Me.Fields.Item("Preis") IsNot Nothing AndAlso Me.Fields.Item("Preis").Value IsNot Nothing Then
+                txtPreis.Text = If(IsNumeric(Me.Fields.Item("Preis").Value.ToString), CDbl(Me.Fields.Item("Preis").Value.ToString).ToString("C2"), Me.Fields.Item("Preis").Value.ToString)
+            End If
+        End If
+    End Sub
+    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
+        If ABF_ART <= 0 Then Exit Sub
+        If AbfKostKdnr <= 0 Then Exit Sub
+
+        Me.DataSource = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select isnull(LeistungsNr,'') as LeistungsNr,isnull(LeistungsBez,'' ) as LeistungsBez,isnull(Preis,'') as Preis FROM [Offertenpositionen] where KundenNr=" & AbfKostKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & ABF_ART & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
+
+    End Sub
+
+End Class