SDL Jetzt erst recht!

SDL/Reports/MDM/BriefSDl/subrptBriefSDL_UTA.vb

@@ -0,0 +1,46 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document 
+
+Public Class subrptBriefSDL_UTA
+    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
+        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)
+        'lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
+        'lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
+        lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
+        lblPIN.Text = cSqlDb.checkNullStr(Fields.Item("PIN").Value)
+        lblGueltigBis.Text = cSqlDb.checkNullDate(Fields.Item("G<EFBFBD>ltigBis").Value).ToShortDateString
+
+        'Abwechselnd grauen und wei<65>en Hintergrund
+        If (dummycount Mod 2) = 0 Then
+            Detail.BackColor = Drawing.Color.White
+        Else
+            Detail.BackColor = Color.FromArgb(250, 250, 250)
+        End If
+    End Sub
+
+
+
+End Class