AVISO/Aviso/rptAuswertung.vb

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ä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ächter speziell ausgewählt, dann diesen hervorheben
        If Frächter <> "" Then
            lblFraechter.Visible = True
            Shape1.Visible = True
            lblFraechter.Text = Frächter
        End If

        'falls Standort ausgewählt, dann diesen in Ü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ä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("Änderungen").Value)
        End If

        'Abwechselnd grauen und weißen Hintergrund
        If (dummycount Mod 2) = 0 Then
            Detail1.BackColor = Color.White
        Else
            Detail1.BackColor = Color.WhiteSmoke
        End If
    End Sub
End Class