126 lines
4.3 KiB
VB.net
126 lines
4.3 KiB
VB.net
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
|