Active Reports 18 (from 18..)

2025-06-23 09:24:59 +02:00
parent 1fee9a7c80
commit 3442a8a243
118 changed files with 29468 additions and 32441 deletions
--- a/Aviso/ARConverterBackup/rptAuswertung.vb
+++ b/Aviso/ARConverterBackup/rptAuswertung.vb
@@ -0,0 +1,125 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports System.Windows.Forms
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
+
+Public Class rptAuswertung
+  Public Auswahl As String
+  Public SQL As String
+  Public Intern As Boolean
+  Public Fr<EFBFBD>chter As String
+  Public Standort As String
+
+  Dim AvisoDAL As New cAvisoDAL
+  Dim VermerkeDAL As New cVermerkeDAL
+
+  Dim dummycount As Long
+
+  Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter1.Format
+    lblErstellt.Text = String.Format("erstellt am {0} um {1} von {2}",
+                                     DateTime.Now.ToShortDateString(),
+                                     DateTime.Now.ToShortTimeString(),
+                                     SystemInformation.UserName.ToString)
+        lblFirma.Text = "VERAG Spedition AG"
+  End Sub
+
+  Private Sub rptAuswertung_NoData(sender As Object, e As System.EventArgs) Handles Me.NoData
+    MsgBox("Es wurden keine Daten zum Drucken gefunden.", vbInformation, "Druck Aviso-Auswertung")
+    Me.Cancel()  'ev. abbrechen, falls noch aufgebaut wird
+  End Sub
+
+  Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
+
+    'Drucktitel zuweisen
+    Me.Name = "Logbuch Aviso"
+    If Intern Then Me.Name += " - INTERNE Liste"
+
+    lblHeader.Text = Me.Name
+
+    'Format + R<>nder setzen
+    Me.PageSettings.Orientation = Section.PageOrientation.Landscape
+    Me.PageSettings.Margins.Left = 0.3
+    Me.PageSettings.Margins.Right = 0.1
+    Me.PageSettings.Margins.Top = 0.5
+    Me.PageSettings.Margins.Bottom = 0.4
+
+    Dim X As String = ""
+
+    'falls Fr<46>chter speziell ausgew<65>hlt, dann diesen hervorheben
+    If Fr<EFBFBD>chter <> "" Then
+      lblFraechter.Visible = True
+      Shape1.Visible = True
+      lblFraechter.Text = Fr<EFBFBD>chter
+    End If
+
+    'falls Standort ausgew<65>hlt, dann diesen in <20>berschrift anzeigen
+    If Standort <> "" Then
+      lblStandort.Visible = True
+      lblStandort.Text = "Grenzstelle: " & Standort
+    End If
+
+    lblAuswahl.Text = Auswahl
+
+        Me.DataSource = AvisoDAL.loadDataTableBySQL(SQL)
+
+  End Sub
+
+
+  Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
+    dummycount = dummycount + 1
+
+    Dim hStatus As Integer = VarToInt(Fields.Item("Status").Value)
+
+    txtLKW.Text = VarToStr(Fields.Item("LKW_Nr").Value)
+    txtAngelegt.Text = Format(CDate(Fields.Item("Datum").Value), "dd.MM.yy HH:mm")
+    Dim hDatum As Date = CDate(Fields.Item("AvisoEingang").Value)
+    If hDatum <> LeerDatum Then
+      txtEingelangt.Text = Format(CDate(Fields.Item("AvisoEingang").Value), "dd.MM.yy HH:mm")
+    Else
+      txtEingelangt.Text = ""
+    End If
+    txtFraechter.Text = "F:" & VarToStr(Fields.Item("Fr<EFBFBD>chter").Value)
+    txtAuftraggeber.Text = "A:" & VarToStr(Fields.Item("Auftraggeber").Value)
+
+        txtAnkunft.Text = ""
+        If IsDate(Fields.Item("Ankunft")) Then
+            hDatum = CDate(Fields.Item("Ankunft").Value)
+            If hDatum <> LeerDatum Then
+                txtAnkunft.Text = Format(hDatum, "dd.MM. HH:mm")
+            End If
+        End If
+
+        If hStatus = cGlobal.Status_Freigegeben Then
+            hDatum = CDate(Fields.Item("Freigabe").Value)
+            If hDatum <> LeerDatum Then
+                txtAnkunft.Text += vbCrLf & Format(hDatum, "dd.MM. HH:mm")
+                txtDauer.Text = Minuten_auf_Text(VarToInt(Fields.Item("Dauer").Value))
+            Else
+                txtDauer.Text = ""
+            End If
+        Else
+            txtDauer.Text = ""
+        End If
+
+        'jetzt alle dazupassenden Vermerke auslesen
+        txtInfo.Text = ""
+        Dim hSQL As String = "SELECT * FROM Vermerke WHERE AvisoID = " & VarToLng(Fields.Item("AvisoID").Value).ToString & _
+                " ORDER BY Datum "
+        txtInfo.Text = VermerkeDAL.Druckinfo(hSQL)
+
+        If Intern Then
+            If VarToStr(Fields.Item("Info").Value).Trim <> "" Then
+                txtInfo.Text = VarToStr(Fields.Item("Info").Value).Trim & vbCrLf & txtInfo.Text
+            End If
+            txtInfo.Text += vbCrLf & VarToStr(Fields.Item("<EFBFBD>nderungen").Value)
+        End If
+
+        'Abwechselnd grauen und wei<65>en Hintergrund
+        If (dummycount Mod 2) = 0 Then
+            Detail1.BackColor = Color.White
+        Else
+            Detail1.BackColor = Color.WhiteSmoke
+        End If
+    End Sub
+End Class