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