edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Active Reports 18 (from 18..)

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-06-23 09:24:59 +02:00
parent 1fee9a7c80
commit 3442a8a243
118 changed files with 29468 additions and 32441 deletions
Download Patch File Download Diff File Expand all files Collapse all files

112
Aviso/rptAuswertung.vb
View File

@@ -5,82 +5,82 @@ 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
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 AvisoDAL As New cAvisoDAL
Dim VermerkeDAL As New cVermerkeDAL
Dim dummycount As Long
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)
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
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_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
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"
'Drucktitel zuweisen
Me.Name = "Logbuch Aviso"
If Intern Then Me.Name += " - INTERNE Liste"
lblHeader.Text = Me.Name
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
'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 = ""
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 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
'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
lblAuswahl.Text = Auswahl
Me.DataSource = AvisoDAL.loadDataTableBySQL(SQL)
End Sub
End Sub
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
dummycount = dummycount + 1
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)
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)
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