Projektdateien hinzufügen.

2019-08-07 12:29:10 +02:00
parent 4008832285
commit 1e9039b6ea
251 changed files with 90001 additions and 0 deletions
--- a/UID/Reports/Auswertung/subrptEinzelStat.vb
+++ b/UID/Reports/Auswertung/subrptEinzelStat.vb
@@ -0,0 +1,48 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subrptEinzelStat
+
+    Dim t As Integer = 0
+    Dim h As Integer = 0
+    Dim c As Integer = 0
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        txtPosNr.Text = Fields.Item("atr_frachtpos").Value
+        txtDatum.Text = Fields.Item("atr_datum").Value
+        txtAuftraggeber.Text = Fields.Item("atr_auftr_firma").Value
+        txtFraechter.Text = Fields.Item("Transportunternehmen").Value
+        txtLeistung.Text = Fields.Item("atr_AuftragsArt").Value
+        If txtLeistung.Text = "HANDLING" Then
+            h = h + 1
+        ElseIf txtLeistung.Text = "TRANSPORT" Then
+            t = t + 1
+        End If
+        c = c + 1
+
+        If c Mod 2 = 0 Then
+            txtPosNr.BackColor = Color.White
+            txtDatum.BackColor = Color.White
+            txtAuftraggeber.BackColor = Color.White
+            txtFraechter.BackColor = Color.White
+            txtLeistung.BackColor = Color.White
+        Else
+            txtPosNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtDatum.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtAuftraggeber.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtFraechter.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtLeistung.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+
+        End If
+    End Sub
+
+    Private Sub subrptEinzelStat_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        DataSource = frmAuswertung.dt
+    End Sub
+
+    Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
+        txtSummeAuftraege.Text = h + t
+        txtSummeTransporte.Text = t
+        txtSummeHandlings.Text = h
+    End Sub
+End Class