35 lines
2.0 KiB
VB.net
35 lines
2.0 KiB
VB.net
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
|