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