49 lines
1.9 KiB
VB.net
49 lines
1.9 KiB
VB.net
Imports GrapeCity.ActiveReports
|
|
Imports GrapeCity.ActiveReports.Document
|
|
|
|
Public Class subrptBriefSDL_AT
|
|
Public sqlStr = ""
|
|
|
|
|
|
Sub New(sqlStr)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
Me.sqlStr = sqlStr
|
|
End Sub
|
|
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
|
|
|
|
Dim kundenSQL As New kundenSQL
|
|
' MsgBox(sqlStr)
|
|
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
|
|
|
|
End Sub
|
|
|
|
Dim dummycount As Integer = 0
|
|
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
|
|
|
|
|
|
dummycount = dummycount + 1
|
|
lblNr.Text = dummycount
|
|
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
|
|
'lblBestellNr.Text = cSqlDb.checkNullStr(Fields.Item("BestellNr").Value)
|
|
'lblUmstelldat.Text = cSqlDb.checkNullDate(Fields.Item("Umstellungsdatum").Value).ToShortDateString
|
|
lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
|
|
lblStatus.Text = cSqlDb.checkNullStr(Fields.Item("Status").Value)
|
|
lblSchadstoffklasse.Text = cSqlDb.checkNullStr(Fields.Item("Schadstoffklasse").Value)
|
|
lblNation.Text = cSqlDb.checkNullStr((New kundenSQL).getValueTxtBySql("SELECT [Nationalität] FROM [SDL].[dbo].[LKW] WHERE [KundenNr]='" & cSqlDb.checkNullStr(Fields.Item("KundenNr").Value) & "' AND [KfzKennzeichen]='" & cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value) & "'", "SDL"))
|
|
|
|
|
|
'Abwechselnd grauen und weißen Hintergrund
|
|
If (dummycount Mod 2) = 0 Then
|
|
Detail.BackColor = Color.White
|
|
Else
|
|
Detail.BackColor = Color.FromArgb(250, 250, 250)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
End Class
|