Active Reports 18 (from 18..)

This commit is contained in:
2025-06-23 09:24:59 +02:00
parent 1fee9a7c80
commit 3442a8a243
118 changed files with 29468 additions and 32441 deletions

File diff suppressed because one or more lines are too long

View File

@@ -0,0 +1,6 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptStat_VERIMEX_AbklTR
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,349 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptQRAviso
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptQRAviso))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblFirma_Details = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirma_Name = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.QR = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.txtLKW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtGrenze = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.picQRAviso = New GrapeCity.ActiveReports.SectionReportModel.Picture()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma_Details, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma_Name, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.QR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picQRAviso, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'picVERAG
'
Me.picVERAG.Height = 0.4897638!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.2015748!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.448031!
'
'lblFirma_Details
'
Me.lblFirma_Details.Height = 0.4019686!
Me.lblFirma_Details.HyperLink = Nothing
Me.lblFirma_Details.Left = 0!
Me.lblFirma_Details.Name = "lblFirma_Details"
Me.lblFirma_Details.Style = "font-size: 8pt; text-align: center"
Me.lblFirma_Details.Text = "A 4975 Suben | Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU53187000"
Me.lblFirma_Details.Top = 0.6468505!
Me.lblFirma_Details.Width = 2.649606!
'
'Label2
'
Me.Label2.Height = 0.2417324!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 14pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label2.Text = "Ticket Nr.:"
Me.Label2.Top = 0.9952757!
Me.Label2.Width = 1.191339!
'
'Label3
'
Me.Label3.Height = 0.1968501!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 10pt; font-weight: normal; text-align: left"
Me.Label3.Text = "Ankunft:"
Me.Label3.Top = 1.244882!
Me.Label3.Width = 1.191339!
'
'lblDatum
'
Me.lblDatum.Height = 0.1968501!
Me.lblDatum.HyperLink = Nothing
Me.lblDatum.Left = 1.191339!
Me.lblDatum.Name = "lblDatum"
Me.lblDatum.Style = "font-size: 10pt; font-weight: normal; text-align: right"
Me.lblDatum.Text = "01.01.2016"
Me.lblDatum.Top = 1.244883!
Me.lblDatum.Width = 1.468504!
'
'lblNr
'
Me.lblNr.Height = 0.2417324!
Me.lblNr.HyperLink = Nothing
Me.lblNr.Left = 1.191339!
Me.lblNr.Name = "lblNr"
Me.lblNr.Style = "font-size: 14pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "585125"
Me.lblNr.Top = 0.9952757!
Me.lblNr.Width = 1.468504!
'
'lblFirma_Name
'
Me.lblFirma_Name.Height = 0.1374016!
Me.lblFirma_Name.HyperLink = Nothing
Me.lblFirma_Name.Left = 0!
Me.lblFirma_Name.Name = "lblFirma_Name"
Me.lblFirma_Name.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.lblFirma_Name.Text = "VERAG Spediton AG"
Me.lblFirma_Name.Top = 0.4976378!
Me.lblFirma_Name.Width = 2.649606!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.QR, Me.Shape, Me.picVERAG, Me.lblFirma_Details, Me.Label2, Me.Label3, Me.lblDatum, Me.lblNr, Me.lblFirma_Name, Me.txtLKW, Me.Label1, Me.txtFraechter, Me.Label4, Me.txtGrenze, Me.picQRAviso})
Me.ReportHeader1.Height = 5.32943!
Me.ReportHeader1.Name = "ReportHeader1"
'
'QR
'
Me.QR.Height = 2.032284!
Me.QR.HyperLink = Nothing
Me.QR.ImageData = Nothing
Me.QR.Left = 0.01338583!
Me.QR.Name = "QR"
Me.QR.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.QR.Top = 2.740158!
Me.QR.Width = 2.659843!
'
'Shape
'
Me.Shape.Height = 0.686614!
Me.Shape.Left = 0.01338583!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 1.993307!
Me.Shape.Width = 2.646457!
'
'txtLKW
'
Me.txtLKW.CanGrow = False
Me.txtLKW.Height = 0.6240159!
Me.txtLKW.Left = 0.02677166!
Me.txtLKW.Name = "txtLKW"
Me.txtLKW.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" &
"cal-align: middle; ddo-char-set: 1"
Me.txtLKW.Text = "SD123ASD"
Me.txtLKW.Top = 2.02441!
Me.txtLKW.Width = 2.604725!
'
'Label1
'
Me.Label1.Height = 0.1968501!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 10pt; font-weight: normal; text-align: left"
Me.Label1.Text = "Fr<EFBFBD>chter:"
Me.Label1.Top = 1.737402!
Me.Label1.Width = 0.6811024!
'
'txtFraechter
'
Me.txtFraechter.Height = 0.1968504!
Me.txtFraechter.Left = 0.6811024!
Me.txtFraechter.Name = "txtFraechter"
Me.txtFraechter.Style = "font-size: 10pt; font-weight: normal; text-align: right; text-justify: auto; vert" &
"ical-align: top; ddo-char-set: 1"
Me.txtFraechter.Text = "SD123ASD"
Me.txtFraechter.Top = 1.737402!
Me.txtFraechter.Width = 1.97874!
'
'Label4
'
Me.Label4.Height = 0.1968501!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 0!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 10pt; font-weight: normal; text-align: left"
Me.Label4.Text = "Grenze:"
Me.Label4.Top = 1.441733!
Me.Label4.Width = 0.6811024!
'
'txtGrenze
'
Me.txtGrenze.Height = 0.1968504!
Me.txtGrenze.Left = 0.6877953!
Me.txtGrenze.Name = "txtGrenze"
Me.txtGrenze.Style = "font-size: 10pt; font-weight: normal; text-align: right; text-justify: auto; vert" &
"ical-align: top; ddo-char-set: 1"
Me.txtGrenze.Text = "SUB"
Me.txtGrenze.Top = 1.441733!
Me.txtGrenze.Width = 1.97874!
'
'ReportFooter1
'
Me.ReportFooter1.CanShrink = True
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label5, Me.lblSachbearbeiter})
Me.ReportFooter1.Height = 0.1775591!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0.007086615!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0!
Me.Line1.Width = 2.635417!
Me.Line1.X1 = 0.007086615!
Me.Line1.X2 = 2.642503!
Me.Line1.Y1 = 0!
Me.Line1.Y2 = 0!
'
'Label5
'
Me.Label5.Height = 0.146063!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.01338583!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 7pt; font-weight: normal; text-align: left"
Me.Label5.Text = "Sachbearbeiter:"
Me.Label5.Top = 0.03149607!
Me.Label5.Width = 0.840945!
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.Height = 0.146063!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0.8543308!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "font-size: 7pt; font-weight: normal; text-align: right"
Me.lblSachbearbeiter.Text = "-"
Me.lblSachbearbeiter.Top = 0.03149607!
Me.lblSachbearbeiter.Width = 1.788189!
'
'picQRAviso
'
Me.picQRAviso.Height = 0.355118!
Me.picQRAviso.HyperLink = Nothing
Me.picQRAviso.ImageData = Nothing
Me.picQRAviso.Left = 0!
Me.picQRAviso.Name = "picQRAviso"
Me.picQRAviso.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picQRAviso.Top = 4.900001!
Me.picQRAviso.Width = 2.659843!
'
'rptQRAviso
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.07874016!
Me.PageSettings.Margins.Right = 0.07874016!
Me.PageSettings.Margins.Top = 0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 2.673229!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma_Details, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma_Name, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.QR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picQRAviso, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents lblDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents QR As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents lblFirma_Details As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirma_Name As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtLKW As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents picQRAviso As GrapeCity.ActiveReports.SectionReportModel.Picture
End Class

View File

@@ -0,0 +1,105 @@
Imports System.Web
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports ThoughtWorks.QRCode.Codec
Public Class rptQRAviso
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
Sub New(AvisoId As Integer)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoId)
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(Aviso As VERAG_PROG_ALLGEMEIN.cAviso)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.AVISO = Aviso
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptEABeleg_PrintProgress(sender As Object, e As EventArgs) Handles Me.PrintProgress
' QR.Location = New PointF(QR.Location.X, 4.5) 'QR.Location.Y + lblStorno.Height)
End Sub
Private Sub rptEABeleg_PageStart(sender As Object, e As EventArgs) Handles ReportFooter1.BeforePrint
' QR.Location = New PointF(QR.Location.X, 5.5) 'QR.Location.Y + lblStorno.Height)
End Sub
Private Sub rptQRAviso_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
If AVISO Is Nothing Then Exit Sub
lblSachbearbeiter.Text = AVISO.letzterMitarbeiter
txtLKW.Text = AVISO.LKW_Nr
lblDatum.Text = AVISO.Ankunft.ToShortDateString & " " & AVISO.Ankunft.ToShortTimeString
lblNr.Text = AVISO.AvisoID
txtGrenze.Text = AVISO.Grenzstelle
txtFraechter.Text = AVISO.Fr<EFBFBD>chter
QR.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://status.app.verag.ag/aviso-status/" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
picQRAviso.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getBARCODEAviso(AVISO.AvisoID)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
lblFirma_Name.Text = "VERAG Spedition AG"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "SBG"
lblFirma_Details.Text = "Niederlassung: Nickelsdorf"
lblFirma_Details.Text &= "D 83435 Bad Reichenhall | Europaplatz 8"
Case "WAI"
lblFirma_Details.Text = "Niederlassung: Waidhaus"
lblFirma_Details.Text &= "D 92726 Waidhaus | Am Autohof 3"
Case "NKD"
lblFirma_Details.Text = "Niederlassung: Nickelsdorf"
lblFirma_Details.Text &= "A 2425 Nickelsdorf | Neue Teilung 1"
Case "NEU"
lblFirma_Details.Text = "Niederlassung: Neuhaus"
lblFirma_Details.Text &= "D 94152 Neuhaus am Inn | Hartham 6"
Case Else
lblFirma_Details.Text = "A 4975 Suben | Suben 14"
End Select
Case "IMEX"
picVERAG.Image = My.Resources.IMEX_LOGO_simple
lblFirma_Name.Text = "IMEX Customs Service GmbH"
lblFirma_Details.Text = "A 4975 Suben | Suben 15"
Case "UNISPED"
picVERAG.Image = My.Resources.Unisped_logo
lblFirma_Name.Text = "UNISPED Speditions GmbH"
lblFirma_Details.Text = "A 4975 Suben | Suben 15"
Case "FRONTOFFICE"
picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
lblFirma_Name.Text = "Front-Office Suben eG"
lblFirma_Details.Text = "A 4975 Suben | Suben 14"
Case "ATILLA"
picVERAG.Image = My.Resources.Atilla
lblFirma_Name.Text = "ATILLA Spedition GmbH"
lblFirma_Details.Text = "A 4975 Suben | Suben 15"
Case Else
End Select
End Sub
End Class

View File

@@ -0,0 +1,378 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptQRSendung_VerwahrungApp
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptQRSendung_VerwahrungApp))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirma_Name = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.QR = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.txtLKW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtGrenze = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picQRAviso = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma_Name, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.QR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picQRAviso, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'picVERAG
'
Me.picVERAG.Height = 0.4897638!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.2015748!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.448031!
'
'Label2
'
Me.Label2.Height = 0.2417324!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 14pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label2.Text = "LKW-Nr.:"
Me.Label2.Top = 0.635039!
Me.Label2.Width = 1.191339!
'
'Label3
'
Me.Label3.Height = 0.1968501!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 10pt; font-weight: normal; text-align: left"
Me.Label3.Text = "Ankunft:"
Me.Label3.Top = 0.8846453!
Me.Label3.Width = 1.191339!
'
'lblDatum
'
Me.lblDatum.Height = 0.1968501!
Me.lblDatum.HyperLink = Nothing
Me.lblDatum.Left = 1.191339!
Me.lblDatum.Name = "lblDatum"
Me.lblDatum.Style = "font-size: 10pt; font-weight: normal; text-align: right"
Me.lblDatum.Text = "01.01.2016"
Me.lblDatum.Top = 0.8846463!
Me.lblDatum.Width = 1.468504!
'
'lblNr
'
Me.lblNr.Height = 0.2417324!
Me.lblNr.HyperLink = Nothing
Me.lblNr.Left = 1.191339!
Me.lblNr.Name = "lblNr"
Me.lblNr.Style = "font-size: 14pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "585125"
Me.lblNr.Top = 0.635039!
Me.lblNr.Width = 1.468504!
'
'lblFirma_Name
'
Me.lblFirma_Name.Height = 0.1374016!
Me.lblFirma_Name.HyperLink = Nothing
Me.lblFirma_Name.Left = 0.02362205!
Me.lblFirma_Name.Name = "lblFirma_Name"
Me.lblFirma_Name.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.lblFirma_Name.Text = "VERAG Spediton AG"
Me.lblFirma_Name.Top = 7.5!
Me.lblFirma_Name.Width = 2.649606!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.QR, Me.Shape, Me.picVERAG, Me.Label2, Me.Label3, Me.lblDatum, Me.lblNr, Me.lblFirma_Name, Me.txtLKW, Me.Label1, Me.txtFraechter, Me.Label4, Me.txtGrenze, Me.picQRAviso, Me.Picture1, Me.Label6, Me.Label7})
Me.ReportHeader1.Height = 7.692569!
Me.ReportHeader1.Name = "ReportHeader1"
'
'QR
'
Me.QR.Height = 2.032284!
Me.QR.HyperLink = Nothing
Me.QR.ImageBase64String = ""
Me.QR.Left = 0.01338583!
Me.QR.Name = "QR"
Me.QR.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.QR.Top = 2.700788!
Me.QR.Width = 2.659843!
'
'Shape
'
Me.Shape.Height = 0.686614!
Me.Shape.Left = 0.01338583!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 1.63307!
Me.Shape.Width = 2.646457!
'
'txtLKW
'
Me.txtLKW.CanGrow = False
Me.txtLKW.Height = 0.6240159!
Me.txtLKW.Left = 0.02677166!
Me.txtLKW.Name = "txtLKW"
Me.txtLKW.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" &
"cal-align: middle; ddo-char-set: 1"
Me.txtLKW.Text = "SD123ASD"
Me.txtLKW.Top = 1.664173!
Me.txtLKW.Width = 2.604725!
'
'Label1
'
Me.Label1.Height = 0.1968501!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 10pt; font-weight: normal; text-align: left"
Me.Label1.Text = "Fr<EFBFBD>chter:"
Me.Label1.Top = 1.377165!
Me.Label1.Width = 0.6811024!
'
'txtFraechter
'
Me.txtFraechter.Height = 0.1968504!
Me.txtFraechter.Left = 0.5248032!
Me.txtFraechter.Name = "txtFraechter"
Me.txtFraechter.Style = "font-size: 10pt; font-weight: normal; text-align: right; text-justify: auto; vert" &
"ical-align: top; ddo-char-set: 1"
Me.txtFraechter.Text = "SD123ASD"
Me.txtFraechter.Top = 1.377165!
Me.txtFraechter.Width = 2.135039!
'
'Label4
'
Me.Label4.Height = 0.1968501!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 0!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 10pt; font-weight: normal; text-align: left"
Me.Label4.Text = "Grenze:"
Me.Label4.Top = 1.081496!
Me.Label4.Width = 0.6811024!
'
'txtGrenze
'
Me.txtGrenze.Height = 0.1968504!
Me.txtGrenze.Left = 0.6877953!
Me.txtGrenze.Name = "txtGrenze"
Me.txtGrenze.Style = "font-size: 10pt; font-weight: normal; text-align: right; text-justify: auto; vert" &
"ical-align: top; ddo-char-set: 1"
Me.txtGrenze.Text = "SUB"
Me.txtGrenze.Top = 1.081496!
Me.txtGrenze.Width = 1.97874!
'
'picQRAviso
'
Me.picQRAviso.Height = 0.355118!
Me.picQRAviso.HyperLink = Nothing
Me.picQRAviso.ImageBase64String = ""
Me.picQRAviso.Left = 0!
Me.picQRAviso.Name = "picQRAviso"
Me.picQRAviso.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picQRAviso.Top = 7.144883!
Me.picQRAviso.Width = 2.659843!
'
'ReportFooter1
'
Me.ReportFooter1.CanShrink = True
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label5, Me.lblSachbearbeiter})
Me.ReportFooter1.Height = 0.1775591!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0.007086615!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0!
Me.Line1.Width = 2.635417!
Me.Line1.X1 = 0.007086615!
Me.Line1.X2 = 2.642503!
Me.Line1.Y1 = 0!
Me.Line1.Y2 = 0!
'
'Label5
'
Me.Label5.Height = 0.146063!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.01338583!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 7pt; font-weight: normal; text-align: left"
Me.Label5.Text = "Sachbearbeiter:"
Me.Label5.Top = 0.03149607!
Me.Label5.Width = 0.840945!
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.Height = 0.146063!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0.8543308!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "font-size: 7pt; font-weight: normal; text-align: right"
Me.lblSachbearbeiter.Text = "-"
Me.lblSachbearbeiter.Top = 0.03149607!
Me.lblSachbearbeiter.Width = 1.788189!
'
'Picture1
'
Me.Picture1.Height = 2.032284!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 0!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 5.081102!
Me.Picture1.Width = 2.659843!
'
'Label6
'
Me.Label6.Height = 0.1968501!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.02677166!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 11pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label6.Text = "1. Please SCAN QR Code:"
Me.Label6.Top = 2.429921!
Me.Label6.Width = 2.649606!
'
'Label7
'
Me.Label7.Height = 0.1968501!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 0.02677166!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 11pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label7.Text = "2. Upload Foto (PLATE + PLOMBE):"
Me.Label7.Top = 4.903937!
Me.Label7.Width = 2.649606!
'
'rptQRSendung_VerwahrungApp
'
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.01968504!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 2.676378!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma_Name, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.QR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picQRAviso, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents lblDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents QR As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents lblFirma_Name As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtLKW As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents picQRAviso As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

View File

@@ -0,0 +1,111 @@
Imports System.Web
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports ThoughtWorks.QRCode.Codec
Public Class rptQRSendung_VerwahrungApp
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
'Sub New(AvisoId As Integer)
' ' Dieser Aufruf ist f<>r den Designer erforderlich.
' InitializeComponent()
' AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoId)
' ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
'End Sub
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.AVISO = AVISO
Me.SND = SND
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptEABeleg_PrintProgress(sender As Object, e As EventArgs) Handles Me.PrintProgress
' QR.Location = New PointF(QR.Location.X, 4.5) 'QR.Location.Y + lblStorno.Height)
End Sub
Private Sub rptEABeleg_PageStart(sender As Object, e As EventArgs) Handles ReportFooter1.BeforePrint
' QR.Location = New PointF(QR.Location.X, 5.5) 'QR.Location.Y + lblStorno.Height)
End Sub
Private Sub rptQRAviso_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
If AVISO Is Nothing Then Exit Sub
Dim tblSnd_SendungID = -1
If SND IsNot Nothing Then
tblSnd_SendungID = SND.tblSnd_SendungID
End If
lblSachbearbeiter.Text = AVISO.letzterMitarbeiter
txtLKW.Text = AVISO.LKW_Nr
lblDatum.Text = AVISO.Ankunft.ToShortDateString & " " & AVISO.Ankunft.ToShortTimeString
lblNr.Text = AVISO.AvisoID
txtGrenze.Text = AVISO.Grenzstelle
txtFraechter.Text = AVISO.Fr<EFBFBD>chter
'QR.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://verwahrung.app.verag.ag/lkw-driver?avisoid=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID) & "&sendungsid=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(SND.tblSnd_SendungID) & "&timestamp=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Now.ToString("ddMMyyyy_HHmm")))
Dim token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("avisoid=" & (AVISO.AvisoID) & "&sendungsid=" & (tblSnd_SendungID) & "&timestamp=" & Now.ToString("ddMMyyyy_HHmm") & "&nation=" & If(AVISO.LKW_Nationalitaet, ""))
'MsgBox(token)
'MsgBox(VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(token))
QR.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://verwahrung.app.verag.ag/lkw-driver?token=" & token)
picQRAviso.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getBARCODEAviso(AVISO.AvisoID)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
lblFirma_Name.Text = "VERAG Spedition AG"
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
' Case "SBG"
' lblFirma_Details.Text = "Niederlassung: Nickelsdorf"
' lblFirma_Details.Text &= "D 83435 Bad Reichenhall | Europaplatz 8"
' Case "WAI"
' lblFirma_Details.Text = "Niederlassung: Waidhaus"
' lblFirma_Details.Text &= "D 92726 Waidhaus | Am Autohof 3"
' Case "NKD"
' lblFirma_Details.Text = "Niederlassung: Nickelsdorf"
' lblFirma_Details.Text &= "A 2425 Nickelsdorf | Neue Teilung 1"
' Case "NEU"
' lblFirma_Details.Text = "Niederlassung: Neuhaus"
' lblFirma_Details.Text &= "D 94152 Neuhaus am Inn | Hartham 6"
' Case Else
' lblFirma_Details.Text = "A 4975 Suben | Suben 14"
'End Select
Case "IMEX"
picVERAG.Image = My.Resources.IMEX_LOGO_simple
lblFirma_Name.Text = "IMEX Customs Service GmbH"
'lblFirma_Details.Text = "A 4975 Suben | Suben 15"
Case "UNISPED"
picVERAG.Image = My.Resources.Unisped_logo
lblFirma_Name.Text = "UNISPED Speditions GmbH"
'lblFirma_Details.Text = "A 4975 Suben | Suben 15"
Case "FRONTOFFICE"
picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
lblFirma_Name.Text = "Front-Office Suben eG"
'lblFirma_Details.Text = "A 4975 Suben | Suben 14"
Case "ATILLA"
picVERAG.Image = My.Resources.Atilla
lblFirma_Name.Text = "ATILLA Spedition GmbH"
'lblFirma_Details.Text = "A 4975 Suben | Suben 15"
Case Else
End Select
End Sub
End Class

View File

@@ -0,0 +1,95 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptTEST
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.txtLKW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLKW})
Me.ReportHeader1.Height = 0.9712601!
Me.ReportHeader1.Name = "ReportHeader1"
'
'txtLKW
'
Me.txtLKW.CanGrow = False
Me.txtLKW.Height = 0.6240159!
Me.txtLKW.Left = -3.72529E-9!
Me.txtLKW.Name = "txtLKW"
Me.txtLKW.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" &
"cal-align: middle; ddo-char-set: 1"
Me.txtLKW.Text = "TEST"
Me.txtLKW.Top = 0.3472441!
Me.txtLKW.Width = 2.604725!
'
'ReportFooter1
'
Me.ReportFooter1.CanShrink = True
Me.ReportFooter1.Height = 0.1775591!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptTEST
'
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.07874016!
Me.PageSettings.Margins.Right = 0.07874016!
Me.PageSettings.Margins.Top = 0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 2.673229!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Public WithEvents txtLKW As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,7 @@
Imports System.Web
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports ThoughtWorks.QRCode.Codec
Public Class rptTEST
End Class

View File

@@ -0,0 +1,406 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSUBWESTIIAkt
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSUBWESTIIAkt))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.BG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtBemerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbfahrt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeber = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Empfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbfertigungsnummer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWarenbezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.cbxKundenTarifnummerVorhanden = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.txtAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.cbxKdTarif_Empf = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxKdTarif_Abs = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxKdTarif_Auftr = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.txtAufschub = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.BG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Empfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxKundenTarifnummerVorhanden, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxKdTarif_Empf, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxKdTarif_Abs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxKdTarif_Auftr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAufschub, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.BG, Me.txtBemerkung, Me.txtDatum, Me.txtSachbearbeiter, Me.txtFraechter, Me.txtKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtAuftraggeber, Me.Empfaenger, Me.txtAbfertigungsnummer, Me.txtColli, Me.txtGewicht, Me.txtWarenbezeichnung, Me.cbxKundenTarifnummerVorhanden, Me.txtAbfertigungsart, Me.txtAvisierer, Me.txtAbsender, Me.cbxKdTarif_Empf, Me.cbxKdTarif_Abs, Me.cbxKdTarif_Auftr, Me.txtAufschub})
Me.Detail.Height = 12.00787!
Me.Detail.Name = "Detail"
'
'BG
'
Me.BG.DataField = ""
Me.BG.Height = 11.81102!
Me.BG.ImageBase64String = resources.GetString("BG.ImageBase64String")
Me.BG.Left = -0.1968504!
Me.BG.Name = "BG"
Me.BG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Stretch
Me.BG.Top = 0.0!
Me.BG.Width = 8.543307!
'
'txtBemerkung
'
Me.txtBemerkung.CanGrow = False
Me.txtBemerkung.Height = 1.969686!
Me.txtBemerkung.Left = 1.390158!
Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Style = "font-size: 12.6pt"
Me.txtBemerkung.Text = Nothing
Me.txtBemerkung.Top = 2.466929!
Me.txtBemerkung.Width = 6.718897!
'
'txtDatum
'
Me.txtDatum.CanGrow = False
Me.txtDatum.Height = 0.3354332!
Me.txtDatum.Left = 5.575985!
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtDatum.Text = Nothing
Me.txtDatum.Top = 6.163386!
Me.txtDatum.Width = 2.312992!
'
'txtSachbearbeiter
'
Me.txtSachbearbeiter.CanGrow = False
Me.txtSachbearbeiter.Height = 0.4303152!
Me.txtSachbearbeiter.Left = 5.575985!
Me.txtSachbearbeiter.Name = "txtSachbearbeiter"
Me.txtSachbearbeiter.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtSachbearbeiter.Text = Nothing
Me.txtSachbearbeiter.Top = 6.632677!
Me.txtSachbearbeiter.Width = 2.312992!
'
'txtFraechter
'
Me.txtFraechter.CanGrow = False
Me.txtFraechter.Height = 0.4720475!
Me.txtFraechter.Left = 5.582678!
Me.txtFraechter.Name = "txtFraechter"
Me.txtFraechter.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtFraechter.Text = "TRANSPORT TRANS DOO"
Me.txtFraechter.Top = 7.144882!
Me.txtFraechter.Width = 2.312992!
'
'txtKennzeichen
'
Me.txtKennzeichen.CanGrow = False
Me.txtKennzeichen.Height = 0.3885834!
Me.txtKennzeichen.Left = 5.575985!
Me.txtKennzeichen.Name = "txtKennzeichen"
Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtKennzeichen.Text = "SD 123 ABC"
Me.txtKennzeichen.Top = 7.729528!
Me.txtKennzeichen.Width = 2.312992!
'
'txtAnkunft
'
Me.txtAnkunft.CanGrow = False
Me.txtAnkunft.Height = 0.3885825!
Me.txtAnkunft.Left = 5.560237!
Me.txtAnkunft.Name = "txtAnkunft"
Me.txtAnkunft.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAnkunft.Text = "01.01.2016" & Global.Microsoft.VisualBasic.ChrW(10) & "12:12"
Me.txtAnkunft.Top = 8.307481!
Me.txtAnkunft.Width = 1.114961!
'
'txtAbfahrt
'
Me.txtAbfahrt.CanGrow = False
Me.txtAbfahrt.Height = 0.3885825!
Me.txtAbfahrt.Left = 6.764962!
Me.txtAbfahrt.Name = "txtAbfahrt"
Me.txtAbfahrt.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAbfahrt.Text = "01.01.2016" & Global.Microsoft.VisualBasic.ChrW(10) & "12:12"
Me.txtAbfahrt.Top = 8.307481!
Me.txtAbfahrt.Width = 1.114961!
'
'txtAuftraggeber
'
Me.txtAuftraggeber.CanGrow = False
Me.txtAuftraggeber.Height = 0.4775593!
Me.txtAuftraggeber.Left = 2.427953!
Me.txtAuftraggeber.LineSpacing = 6.0!
Me.txtAuftraggeber.Name = "txtAuftraggeber"
Me.txtAuftraggeber.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: top"
Me.txtAuftraggeber.Text = "TRANSPORT TRANS DOO" & Global.Microsoft.VisualBasic.ChrW(10) & "TRANSPORT TRANS DOO"
Me.txtAuftraggeber.Top = 5.356693!
Me.txtAuftraggeber.Width = 2.864961!
'
'Empfaenger
'
Me.Empfaenger.CanGrow = False
Me.Empfaenger.Height = 0.2531497!
Me.Empfaenger.Left = 2.427953!
Me.Empfaenger.MultiLine = False
Me.Empfaenger.Name = "Empfaenger"
Me.Empfaenger.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: middle"
Me.Empfaenger.Text = "TRANSPORT TRANS DOO"
Me.Empfaenger.Top = 5.889764!
Me.Empfaenger.Width = 2.864961!
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer.CanGrow = False
Me.txtAbfertigungsnummer.Height = 0.3354332!
Me.txtAbfertigungsnummer.Left = 6.340945!
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Style = "font-size: 18pt; font-weight: bold; text-align: left; text-decoration: none; text" & _
"-justify: auto; vertical-align: middle"
Me.txtAbfertigungsnummer.Text = "160001"
Me.txtAbfertigungsnummer.Top = 5.52874!
Me.txtAbfertigungsnummer.Width = 1.489764!
'
'txtColli
'
Me.txtColli.CanGrow = False
Me.txtColli.Height = 0.3885825!
Me.txtColli.Left = 5.566931!
Me.txtColli.Name = "txtColli"
Me.txtColli.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtColli.Text = "250"
Me.txtColli.Top = 8.843307!
Me.txtColli.Width = 1.11496!
'
'txtGewicht
'
Me.txtGewicht.CanGrow = False
Me.txtGewicht.Height = 0.3885825!
Me.txtGewicht.Left = 6.771657!
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtGewicht.Text = "15.000 kg"
Me.txtGewicht.Top = 8.843307!
Me.txtGewicht.Width = 1.11496!
'
'txtWarenbezeichnung
'
Me.txtWarenbezeichnung.CanGrow = False
Me.txtWarenbezeichnung.Height = 0.4720475!
Me.txtWarenbezeichnung.Left = 5.582678!
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
Me.txtWarenbezeichnung.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtWarenbezeichnung.Text = "TEXTILIEN AUS BAUMWOLLE"
Me.txtWarenbezeichnung.Top = 9.343307!
Me.txtWarenbezeichnung.Width = 2.312992!
'
'cbxKundenTarifnummerVorhanden
'
Me.cbxKundenTarifnummerVorhanden.Checked = True
Me.cbxKundenTarifnummerVorhanden.Height = 0.2!
Me.cbxKundenTarifnummerVorhanden.Left = 3.091339!
Me.cbxKundenTarifnummerVorhanden.Name = "cbxKundenTarifnummerVorhanden"
Me.cbxKundenTarifnummerVorhanden.Style = "font-weight: bold"
Me.cbxKundenTarifnummerVorhanden.Text = " Kunden-Tarifnummer vorhanden!"
Me.cbxKundenTarifnummerVorhanden.Top = 7.144882!
Me.cbxKundenTarifnummerVorhanden.Visible = False
Me.cbxKundenTarifnummerVorhanden.Width = 2.864961!
'
'txtAbfertigungsart
'
Me.txtAbfertigungsart.CanGrow = False
Me.txtAbfertigungsart.Height = 0.2531497!
Me.txtAbfertigungsart.Left = 1.390158!
Me.txtAbfertigungsart.MultiLine = False
Me.txtAbfertigungsart.Name = "txtAbfertigungsart"
Me.txtAbfertigungsart.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: middle"
Me.txtAbfertigungsart.Text = "ABFERTIGUNGSART: -"
Me.txtAbfertigungsart.Top = 1.96063!
Me.txtAbfertigungsart.Width = 6.489764!
'
'txtAvisierer
'
Me.txtAvisierer.CanGrow = False
Me.txtAvisierer.Height = 0.5062992!
Me.txtAvisierer.Left = 1.390158!
Me.txtAvisierer.Name = "txtAvisierer"
Me.txtAvisierer.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: top"
Me.txtAvisierer.Text = "(3) AVISIERER:"
Me.txtAvisierer.Top = 4.183465!
Me.txtAvisierer.Width = 4.798032!
'
'txtAbsender
'
Me.txtAbsender.CanGrow = False
Me.txtAbsender.Height = 0.5346457!
Me.txtAbsender.Left = 1.390158!
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: top"
Me.txtAbsender.Text = "(4) ABSENDER:"
Me.txtAbsender.Top = 4.689764!
Me.txtAbsender.Width = 4.016929!
'
'cbxKdTarif_Empf
'
Me.cbxKdTarif_Empf.Checked = True
Me.cbxKdTarif_Empf.Height = 0.2!
Me.cbxKdTarif_Empf.Left = 5.407087!
Me.cbxKdTarif_Empf.Name = "cbxKdTarif_Empf"
Me.cbxKdTarif_Empf.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.cbxKdTarif_Empf.Text = " Kunden-Tarifnummer vorhanden!"
Me.cbxKdTarif_Empf.Top = 5.889764!
Me.cbxKdTarif_Empf.Visible = False
Me.cbxKdTarif_Empf.Width = 2.044488!
'
'cbxKdTarif_Abs
'
Me.cbxKdTarif_Abs.Checked = True
Me.cbxKdTarif_Abs.Height = 0.2!
Me.cbxKdTarif_Abs.Left = 5.407087!
Me.cbxKdTarif_Abs.Name = "cbxKdTarif_Abs"
Me.cbxKdTarif_Abs.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.cbxKdTarif_Abs.Text = " Kunden-Tarifnummer vorhanden!"
Me.cbxKdTarif_Abs.Top = 4.742914!
Me.cbxKdTarif_Abs.Visible = False
Me.cbxKdTarif_Abs.Width = 2.044488!
'
'cbxKdTarif_Auftr
'
Me.cbxKdTarif_Auftr.Checked = True
Me.cbxKdTarif_Auftr.Height = 0.2!
Me.cbxKdTarif_Auftr.Left = 5.407087!
Me.cbxKdTarif_Auftr.Name = "cbxKdTarif_Auftr"
Me.cbxKdTarif_Auftr.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.cbxKdTarif_Auftr.Text = " Kunden-Tarifnummer vorhanden!"
Me.cbxKdTarif_Auftr.Top = 5.328741!
Me.cbxKdTarif_Auftr.Visible = False
Me.cbxKdTarif_Auftr.Width = 2.044488!
'
'txtAufschub
'
Me.txtAufschub.CanGrow = False
Me.txtAufschub.Height = 0.2531497!
Me.txtAufschub.Left = 1.390158!
Me.txtAufschub.MultiLine = False
Me.txtAufschub.Name = "txtAufschub"
Me.txtAufschub.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: middle"
Me.txtAufschub.Text = "AUFSCHUB: -"
Me.txtAufschub.Top = 2.21378!
Me.txtAufschub.Width = 6.489764!
'
'rptSUBWESTIIAkt
'
Me.MasterReport = False
Me.PageSettings.DefaultPaperSize = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 12.00606!
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.Custom
Me.PageSettings.PaperName = "Custom paper"
Me.PageSettings.PaperWidth = 8.426064!
Me.PrintWidth = 8.425198!
Me.Sections.Add(Me.Detail)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.BG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Empfaenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxKundenTarifnummerVorhanden, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxKdTarif_Empf, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxKdTarif_Abs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxKdTarif_Auftr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAufschub, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Public WithEvents txtBemerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtKennzeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents BG As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbfahrt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAuftraggeber As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Empfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbfertigungsnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtWarenbezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents cbxKundenTarifnummerVorhanden As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents cbxKdTarif_Empf As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxKdTarif_Abs As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxKdTarif_Auftr As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents txtAufschub As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,13 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSUBWESTIIAkt
Public Sub hideBG()
Me.BG.Visible = False
End Sub
Private Sub rptSUBWESTIIAkt_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

View File

@@ -0,0 +1,901 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSUBWESTIIAktNEU
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSUBWESTIIAktNEU))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.BG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtBemerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbfahrt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeber = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Empfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbfertigungsnummer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWarenbezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.cbxKundenTarifnummerVorhanden = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.txtAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFraechterKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeberKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpfaengerKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisiererKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbsenderKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisoDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.cbxKdTarif_Empf = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxKdTarif_Abs = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxKdTarif_Auftr = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.txtAufschub = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisiererZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisiererEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisiererAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisiererClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftrZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftrEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftrAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftrClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbsZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbsEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbsAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbsClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpfZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpfEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpfAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpfClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.BG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Empfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxKundenTarifnummerVorhanden, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFraechterKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeberKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpfaengerKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisiererKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsenderKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisoDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxKdTarif_Empf, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxKdTarif_Abs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxKdTarif_Auftr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAufschub, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisiererZoll, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisiererEust, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisiererAbf, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisiererClear, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftrZoll, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftrEust, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftrAbf, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftrClear, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsZoll, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsEust, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsAbf, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsClear, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpfZoll, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpfEust, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpfAbf, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpfClear, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfZoll, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfEust, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfAbf, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfClear, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.BG, Me.txtBemerkung, Me.txtDatum, Me.txtSachbearbeiter, Me.txtFraechter, Me.txtKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtAuftraggeber, Me.Empfaenger, Me.txtAbfertigungsnummer, Me.txtColli, Me.txtGewicht, Me.txtWarenbezeichnung, Me.cbxKundenTarifnummerVorhanden, Me.txtAbfertigungsart, Me.txtAvisierer, Me.txtAbsender, Me.txtFraechterKdNr, Me.txtAuftraggeberKdNr, Me.txtEmpfaengerKdNr, Me.txtAvisiererKdNr, Me.txtAbsenderKdNr, Me.txtAvisoDatum, Me.cbxKdTarif_Empf, Me.cbxKdTarif_Abs, Me.cbxKdTarif_Auftr, Me.txtAufschub, Me.txtAvisiererZoll, Me.txtAvisiererEust, Me.txtAvisiererAbf, Me.txtAvisiererClear, Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.txtAuftrZoll, Me.txtAuftrEust, Me.txtAuftrAbf, Me.txtAuftrClear, Me.txtAbsZoll, Me.txtAbsEust, Me.txtAbsAbf, Me.txtAbsClear, Me.txtEmpfZoll, Me.txtEmpfEust, Me.txtEmpfAbf, Me.txtEmpfClear, Me.txtFrachtfZoll, Me.txtFrachtfEust, Me.txtFrachtfAbf, Me.txtFrachtfClear})
Me.Detail.Height = 11.9685!
Me.Detail.Name = "Detail"
'
'BG
'
Me.BG.DataField = ""
Me.BG.Height = 11.9685!
Me.BG.ImageBase64String = resources.GetString("BG.ImageBase64String")
Me.BG.Left = -0.1771654!
Me.BG.Name = "BG"
Me.BG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Stretch
Me.BG.Top = -0.07874016!
Me.BG.Width = 8.425197!
'
'txtBemerkung
'
Me.txtBemerkung.CanGrow = False
Me.txtBemerkung.Height = 4.959844!
Me.txtBemerkung.Left = 0.7866144!
Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Style = "font-size: 12.6pt"
Me.txtBemerkung.Text = Nothing
Me.txtBemerkung.Top = 6.020079!
Me.txtBemerkung.Width = 3.989372!
'
'txtDatum
'
Me.txtDatum.CanGrow = False
Me.txtDatum.Height = 0.3354332!
Me.txtDatum.Left = 4.951575!
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtDatum.Text = Nothing
Me.txtDatum.Top = 10.64448!
Me.txtDatum.Width = 3.132284!
'
'txtSachbearbeiter
'
Me.txtSachbearbeiter.CanGrow = False
Me.txtSachbearbeiter.Height = 0.6283466!
Me.txtSachbearbeiter.Left = 4.951575!
Me.txtSachbearbeiter.Name = "txtSachbearbeiter"
Me.txtSachbearbeiter.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtSachbearbeiter.Text = Nothing
Me.txtSachbearbeiter.Top = 10.97992!
Me.txtSachbearbeiter.Width = 3.132284!
'
'txtFraechter
'
Me.txtFraechter.CanGrow = False
Me.txtFraechter.Height = 0.2066929!
Me.txtFraechter.Left = 0.852756!
Me.txtFraechter.MultiLine = False
Me.txtFraechter.Name = "txtFraechter"
Me.txtFraechter.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: middle"
Me.txtFraechter.Text = "TRANSPORT TRANS DOO"
Me.txtFraechter.Top = 4.77874!
Me.txtFraechter.Width = 3.92323!
'
'txtKennzeichen
'
Me.txtKennzeichen.CanGrow = False
Me.txtKennzeichen.Height = 0.4783471!
Me.txtKennzeichen.Left = 4.951575!
Me.txtKennzeichen.Name = "txtKennzeichen"
Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtKennzeichen.Text = "SD 123 ABC"
Me.txtKennzeichen.Top = 7.96063!
Me.txtKennzeichen.Width = 3.132284!
'
'txtAnkunft
'
Me.txtAnkunft.CanGrow = False
Me.txtAnkunft.Height = 0.4094498!
Me.txtAnkunft.Left = 4.951575!
Me.txtAnkunft.Name = "txtAnkunft"
Me.txtAnkunft.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAnkunft.Text = "MO, 01.01.2016" & Global.Microsoft.VisualBasic.ChrW(10) & "12:12"
Me.txtAnkunft.Top = 9.622046!
Me.txtAnkunft.Width = 1.575985!
'
'txtAbfahrt
'
Me.txtAbfahrt.CanGrow = False
Me.txtAbfahrt.Height = 0.4094498!
Me.txtAbfahrt.Left = 6.53937!
Me.txtAbfahrt.Name = "txtAbfahrt"
Me.txtAbfahrt.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAbfahrt.Text = "DI, 01.01.2016" & Global.Microsoft.VisualBasic.ChrW(10) & "12:12"
Me.txtAbfahrt.Top = 9.622046!
Me.txtAbfahrt.Width = 1.544489!
'
'txtAuftraggeber
'
Me.txtAuftraggeber.CanGrow = False
Me.txtAuftraggeber.Height = 0.2066929!
Me.txtAuftraggeber.Left = 0.8527563!
Me.txtAuftraggeber.LineSpacing = 6.0!
Me.txtAuftraggeber.MultiLine = False
Me.txtAuftraggeber.Name = "txtAuftraggeber"
Me.txtAuftraggeber.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: middle"
Me.txtAuftraggeber.Text = "TRANSPORT TRANS DOO"
Me.txtAuftraggeber.Top = 2.41063!
Me.txtAuftraggeber.Width = 3.92323!
'
'Empfaenger
'
Me.Empfaenger.CanGrow = False
Me.Empfaenger.Height = 0.2066929!
Me.Empfaenger.Left = 0.8527563!
Me.Empfaenger.MultiLine = False
Me.Empfaenger.Name = "Empfaenger"
Me.Empfaenger.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: middle"
Me.Empfaenger.Text = "TRANSPORT TRANS DOO"
Me.Empfaenger.Top = 4.007874!
Me.Empfaenger.Width = 3.92323!
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer.CanGrow = False
Me.txtAbfertigungsnummer.Height = 0.3354332!
Me.txtAbfertigungsnummer.Left = 5.712599!
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Style = "font-size: 22pt; font-weight: bold; text-align: center; text-decoration: none; te" & _
"xt-justify: auto; vertical-align: middle"
Me.txtAbfertigungsnummer.Text = "160001"
Me.txtAbfertigungsnummer.Top = 0.2712598!
Me.txtAbfertigungsnummer.Width = 2.371261!
'
'txtColli
'
Me.txtColli.CanGrow = False
Me.txtColli.Height = 0.5551178!
Me.txtColli.Left = 4.951575!
Me.txtColli.Name = "txtColli"
Me.txtColli.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtColli.Text = "250"
Me.txtColli.Top = 8.983858!
Me.txtColli.Width = 1.575985!
'
'txtGewicht
'
Me.txtGewicht.CanGrow = False
Me.txtGewicht.Height = 0.5551178!
Me.txtGewicht.Left = 6.531496!
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtGewicht.Text = "15.000 kg"
Me.txtGewicht.Top = 8.983858!
Me.txtGewicht.Width = 1.552364!
'
'txtWarenbezeichnung
'
Me.txtWarenbezeichnung.CanGrow = False
Me.txtWarenbezeichnung.Height = 0.5448815!
Me.txtWarenbezeichnung.Left = 4.951575!
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
Me.txtWarenbezeichnung.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtWarenbezeichnung.Text = "TEXTILIEN AUS BAUMWOLLE"
Me.txtWarenbezeichnung.Top = 8.438974!
Me.txtWarenbezeichnung.Width = 3.132284!
'
'cbxKundenTarifnummerVorhanden
'
Me.cbxKundenTarifnummerVorhanden.Checked = True
Me.cbxKundenTarifnummerVorhanden.Height = 0.2!
Me.cbxKundenTarifnummerVorhanden.Left = 0.9047245!
Me.cbxKundenTarifnummerVorhanden.Name = "cbxKundenTarifnummerVorhanden"
Me.cbxKundenTarifnummerVorhanden.Style = "font-weight: bold"
Me.cbxKundenTarifnummerVorhanden.Text = " Kunden-Tarifnummer vorhanden!"
Me.cbxKundenTarifnummerVorhanden.Top = 5.602757!
Me.cbxKundenTarifnummerVorhanden.Visible = False
Me.cbxKundenTarifnummerVorhanden.Width = 2.861025!
'
'txtAbfertigungsart
'
Me.txtAbfertigungsart.CanGrow = False
Me.txtAbfertigungsart.Height = 0.2531497!
Me.txtAbfertigungsart.Left = 0.8527563!
Me.txtAbfertigungsart.MultiLine = False
Me.txtAbfertigungsart.Name = "txtAbfertigungsart"
Me.txtAbfertigungsart.Style = "font-size: 18pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: middle"
Me.txtAbfertigungsart.Text = "T1"
Me.txtAbfertigungsart.Top = 0.3771653!
Me.txtAbfertigungsart.Width = 3.92323!
'
'txtAvisierer
'
Me.txtAvisierer.CanGrow = False
Me.txtAvisierer.Height = 0.2066929!
Me.txtAvisierer.Left = 0.8527563!
Me.txtAvisierer.MultiLine = False
Me.txtAvisierer.Name = "txtAvisierer"
Me.txtAvisierer.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: middle"
Me.txtAvisierer.Text = "TRANSPORT TRANS DOO"
Me.txtAvisierer.Top = 1.632284!
Me.txtAvisierer.Width = 3.92323!
'
'txtAbsender
'
Me.txtAbsender.CanGrow = False
Me.txtAbsender.Height = 0.2066929!
Me.txtAbsender.Left = 0.8527563!
Me.txtAbsender.MultiLine = False
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: middle"
Me.txtAbsender.Text = "TRANSPORT TRANS DOO"
Me.txtAbsender.Top = 3.200394!
Me.txtAbsender.Width = 3.92323!
'
'txtFraechterKdNr
'
Me.txtFraechterKdNr.CanGrow = False
Me.txtFraechterKdNr.Height = 0.2066929!
Me.txtFraechterKdNr.Left = 3.290158!
Me.txtFraechterKdNr.MultiLine = False
Me.txtFraechterKdNr.Name = "txtFraechterKdNr"
Me.txtFraechterKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtFraechterKdNr.Text = "999999"
Me.txtFraechterKdNr.Top = 4.334646!
Me.txtFraechterKdNr.Width = 1.474017!
'
'txtAuftraggeberKdNr
'
Me.txtAuftraggeberKdNr.CanGrow = False
Me.txtAuftraggeberKdNr.Height = 0.2066929!
Me.txtAuftraggeberKdNr.Left = 3.290158!
Me.txtAuftraggeberKdNr.LineSpacing = 6.0!
Me.txtAuftraggeberKdNr.MultiLine = False
Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr"
Me.txtAuftraggeberKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAuftraggeberKdNr.Text = "999999"
Me.txtAuftraggeberKdNr.Top = 1.982284!
Me.txtAuftraggeberKdNr.Width = 1.474018!
'
'txtEmpfaengerKdNr
'
Me.txtEmpfaengerKdNr.CanGrow = False
Me.txtEmpfaengerKdNr.Height = 0.2066929!
Me.txtEmpfaengerKdNr.Left = 3.290158!
Me.txtEmpfaengerKdNr.MultiLine = False
Me.txtEmpfaengerKdNr.Name = "txtEmpfaengerKdNr"
Me.txtEmpfaengerKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtEmpfaengerKdNr.Text = "999999"
Me.txtEmpfaengerKdNr.Top = 3.579528!
Me.txtEmpfaengerKdNr.Width = 1.474017!
'
'txtAvisiererKdNr
'
Me.txtAvisiererKdNr.CanGrow = False
Me.txtAvisiererKdNr.Height = 0.2066929!
Me.txtAvisiererKdNr.Left = 3.290158!
Me.txtAvisiererKdNr.MultiLine = False
Me.txtAvisiererKdNr.Name = "txtAvisiererKdNr"
Me.txtAvisiererKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAvisiererKdNr.Text = "999999"
Me.txtAvisiererKdNr.Top = 1.203937!
Me.txtAvisiererKdNr.Width = 1.474017!
'
'txtAbsenderKdNr
'
Me.txtAbsenderKdNr.CanGrow = False
Me.txtAbsenderKdNr.Height = 0.2066929!
Me.txtAbsenderKdNr.Left = 3.290158!
Me.txtAbsenderKdNr.MultiLine = False
Me.txtAbsenderKdNr.Name = "txtAbsenderKdNr"
Me.txtAbsenderKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAbsenderKdNr.Text = "999999"
Me.txtAbsenderKdNr.Top = 2.772047!
Me.txtAbsenderKdNr.Width = 1.474017!
'
'txtAvisoDatum
'
Me.txtAvisoDatum.CanGrow = False
Me.txtAvisoDatum.Height = 0.2066929!
Me.txtAvisoDatum.Left = 3.301969!
Me.txtAvisoDatum.MultiLine = False
Me.txtAvisoDatum.Name = "txtAvisoDatum"
Me.txtAvisoDatum.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAvisoDatum.Text = "MO, 12.03. 14:45"
Me.txtAvisoDatum.Top = 0.8913388!
Me.txtAvisoDatum.Width = 1.474017!
'
'cbxKdTarif_Empf
'
Me.cbxKdTarif_Empf.Checked = True
Me.cbxKdTarif_Empf.Height = 0.2!
Me.cbxKdTarif_Empf.Left = 2.731496!
Me.cbxKdTarif_Empf.Name = "cbxKdTarif_Empf"
Me.cbxKdTarif_Empf.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.cbxKdTarif_Empf.Text = " Kunden-Tarifnummer vorhanden!"
Me.cbxKdTarif_Empf.Top = 3.819685!
Me.cbxKdTarif_Empf.Visible = False
Me.cbxKdTarif_Empf.Width = 2.044488!
'
'cbxKdTarif_Abs
'
Me.cbxKdTarif_Abs.Checked = True
Me.cbxKdTarif_Abs.Height = 0.2!
Me.cbxKdTarif_Abs.Left = 2.719685!
Me.cbxKdTarif_Abs.Name = "cbxKdTarif_Abs"
Me.cbxKdTarif_Abs.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.cbxKdTarif_Abs.Text = " Kunden-Tarifnummer vorhanden!"
Me.cbxKdTarif_Abs.Top = 3.012205!
Me.cbxKdTarif_Abs.Visible = False
Me.cbxKdTarif_Abs.Width = 2.044488!
'
'cbxKdTarif_Auftr
'
Me.cbxKdTarif_Auftr.Checked = True
Me.cbxKdTarif_Auftr.Height = 0.2!
Me.cbxKdTarif_Auftr.Left = 2.731496!
Me.cbxKdTarif_Auftr.Name = "cbxKdTarif_Auftr"
Me.cbxKdTarif_Auftr.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.cbxKdTarif_Auftr.Text = " Kunden-Tarifnummer vorhanden!"
Me.cbxKdTarif_Auftr.Top = 2.222441!
Me.cbxKdTarif_Auftr.Visible = False
Me.cbxKdTarif_Auftr.Width = 2.044488!
'
'txtAufschub
'
Me.txtAufschub.CanGrow = False
Me.txtAufschub.Height = 0.2531497!
Me.txtAufschub.Left = 4.883465!
Me.txtAufschub.MultiLine = False
Me.txtAufschub.Name = "txtAufschub"
Me.txtAufschub.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
"l-align: middle"
Me.txtAufschub.Text = "AUFSCHUB: -"
Me.txtAufschub.Top = 7.537402!
Me.txtAufschub.Width = 3.291733!
'
'txtAvisiererZoll
'
Me.txtAvisiererZoll.CanGrow = False
Me.txtAvisiererZoll.Height = 0.3937008!
Me.txtAvisiererZoll.Left = 4.930708!
Me.txtAvisiererZoll.Name = "txtAvisiererZoll"
Me.txtAvisiererZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAvisiererZoll.Text = Nothing
Me.txtAvisiererZoll.Top = 1.402755!
Me.txtAvisiererZoll.Width = 0.3937008!
'
'txtAvisiererEust
'
Me.txtAvisiererEust.CanGrow = False
Me.txtAvisiererEust.Height = 0.3937008!
Me.txtAvisiererEust.Left = 5.342126!
Me.txtAvisiererEust.Name = "txtAvisiererEust"
Me.txtAvisiererEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAvisiererEust.Text = Nothing
Me.txtAvisiererEust.Top = 1.402755!
Me.txtAvisiererEust.Width = 0.3937008!
'
'txtAvisiererAbf
'
Me.txtAvisiererAbf.CanGrow = False
Me.txtAvisiererAbf.Height = 0.3937008!
Me.txtAvisiererAbf.Left = 5.712598!
Me.txtAvisiererAbf.Name = "txtAvisiererAbf"
Me.txtAvisiererAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAvisiererAbf.Text = Nothing
Me.txtAvisiererAbf.Top = 1.402755!
Me.txtAvisiererAbf.Width = 0.3937008!
'
'txtAvisiererClear
'
Me.txtAvisiererClear.CanGrow = False
Me.txtAvisiererClear.Height = 0.3937008!
Me.txtAvisiererClear.Left = 6.127952!
Me.txtAvisiererClear.Name = "txtAvisiererClear"
Me.txtAvisiererClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAvisiererClear.Text = Nothing
Me.txtAvisiererClear.Top = 1.402755!
Me.txtAvisiererClear.Width = 0.3937008!
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.2066929!
Me.TextBox1.Left = 3.408269!
Me.TextBox1.MultiLine = False
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.TextBox1.Text = Nothing
Me.TextBox1.Top = 5.880904!
Me.TextBox1.Width = 0.411417!
'
'TextBox2
'
Me.TextBox2.CanGrow = False
Me.TextBox2.Height = 0.2066929!
Me.TextBox2.Left = 3.819687!
Me.TextBox2.MultiLine = False
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.TextBox2.Text = Nothing
Me.TextBox2.Top = 5.880904!
Me.TextBox2.Width = 0.411417!
'
'TextBox3
'
Me.TextBox3.CanGrow = False
Me.TextBox3.Height = 0.2066929!
Me.TextBox3.Left = 4.190158!
Me.TextBox3.MultiLine = False
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.TextBox3.Text = Nothing
Me.TextBox3.Top = 5.880904!
Me.TextBox3.Width = 0.411417!
'
'TextBox4
'
Me.TextBox4.CanGrow = False
Me.TextBox4.Height = 0.2066929!
Me.TextBox4.Left = 4.605512!
Me.TextBox4.MultiLine = False
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.TextBox4.Text = Nothing
Me.TextBox4.Top = 5.880904!
Me.TextBox4.Width = 0.411417!
'
'txtAuftrZoll
'
Me.txtAuftrZoll.CanGrow = False
Me.txtAuftrZoll.Height = 0.3937008!
Me.txtAuftrZoll.Left = 4.930708!
Me.txtAuftrZoll.Name = "txtAuftrZoll"
Me.txtAuftrZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAuftrZoll.Text = Nothing
Me.txtAuftrZoll.Top = 2.142519!
Me.txtAuftrZoll.Width = 0.3937008!
'
'txtAuftrEust
'
Me.txtAuftrEust.CanGrow = False
Me.txtAuftrEust.Height = 0.3937008!
Me.txtAuftrEust.Left = 5.342126!
Me.txtAuftrEust.Name = "txtAuftrEust"
Me.txtAuftrEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAuftrEust.Text = Nothing
Me.txtAuftrEust.Top = 2.149212!
Me.txtAuftrEust.Width = 0.3937008!
'
'txtAuftrAbf
'
Me.txtAuftrAbf.CanGrow = False
Me.txtAuftrAbf.Height = 0.3937008!
Me.txtAuftrAbf.Left = 5.716536!
Me.txtAuftrAbf.Name = "txtAuftrAbf"
Me.txtAuftrAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAuftrAbf.Text = Nothing
Me.txtAuftrAbf.Top = 2.149212!
Me.txtAuftrAbf.Width = 0.3937008!
'
'txtAuftrClear
'
Me.txtAuftrClear.CanGrow = False
Me.txtAuftrClear.Height = 0.3937008!
Me.txtAuftrClear.Left = 6.116142!
Me.txtAuftrClear.Name = "txtAuftrClear"
Me.txtAuftrClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAuftrClear.Text = Nothing
Me.txtAuftrClear.Top = 2.142519!
Me.txtAuftrClear.Width = 0.3937008!
'
'txtAbsZoll
'
Me.txtAbsZoll.CanGrow = False
Me.txtAbsZoll.Height = 0.3937008!
Me.txtAbsZoll.Left = 4.930708!
Me.txtAbsZoll.Name = "txtAbsZoll"
Me.txtAbsZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAbsZoll.Text = Nothing
Me.txtAbsZoll.Top = 2.938976!
Me.txtAbsZoll.Width = 0.3937008!
'
'txtAbsEust
'
Me.txtAbsEust.CanGrow = False
Me.txtAbsEust.Height = 0.3937008!
Me.txtAbsEust.Left = 5.342126!
Me.txtAbsEust.Name = "txtAbsEust"
Me.txtAbsEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAbsEust.Text = Nothing
Me.txtAbsEust.Top = 2.932283!
Me.txtAbsEust.Width = 0.3937008!
'
'txtAbsAbf
'
Me.txtAbsAbf.CanGrow = False
Me.txtAbsAbf.Height = 0.3937008!
Me.txtAbsAbf.Left = 5.716536!
Me.txtAbsAbf.Name = "txtAbsAbf"
Me.txtAbsAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAbsAbf.Text = Nothing
Me.txtAbsAbf.Top = 2.932283!
Me.txtAbsAbf.Width = 0.3937008!
'
'txtAbsClear
'
Me.txtAbsClear.CanGrow = False
Me.txtAbsClear.Height = 0.3937008!
Me.txtAbsClear.Left = 6.127952!
Me.txtAbsClear.Name = "txtAbsClear"
Me.txtAbsClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtAbsClear.Text = Nothing
Me.txtAbsClear.Top = 2.932283!
Me.txtAbsClear.Width = 0.3937008!
'
'txtEmpfZoll
'
Me.txtEmpfZoll.CanGrow = False
Me.txtEmpfZoll.Height = 0.3937008!
Me.txtEmpfZoll.Left = 4.930708!
Me.txtEmpfZoll.Name = "txtEmpfZoll"
Me.txtEmpfZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtEmpfZoll.Text = Nothing
Me.txtEmpfZoll.Top = 3.746456!
Me.txtEmpfZoll.Width = 0.3937008!
'
'txtEmpfEust
'
Me.txtEmpfEust.CanGrow = False
Me.txtEmpfEust.Height = 0.3937008!
Me.txtEmpfEust.Left = 5.342126!
Me.txtEmpfEust.Name = "txtEmpfEust"
Me.txtEmpfEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtEmpfEust.Text = Nothing
Me.txtEmpfEust.Top = 3.746456!
Me.txtEmpfEust.Width = 0.3937008!
'
'txtEmpfAbf
'
Me.txtEmpfAbf.CanGrow = False
Me.txtEmpfAbf.Height = 0.3937008!
Me.txtEmpfAbf.Left = 5.704724!
Me.txtEmpfAbf.Name = "txtEmpfAbf"
Me.txtEmpfAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtEmpfAbf.Text = Nothing
Me.txtEmpfAbf.Top = 3.746456!
Me.txtEmpfAbf.Width = 0.3937008!
'
'txtEmpfClear
'
Me.txtEmpfClear.CanGrow = False
Me.txtEmpfClear.Height = 0.3937008!
Me.txtEmpfClear.Left = 6.120078!
Me.txtEmpfClear.Name = "txtEmpfClear"
Me.txtEmpfClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtEmpfClear.Text = Nothing
Me.txtEmpfClear.Top = 3.746456!
Me.txtEmpfClear.Width = 0.3937008!
'
'txtFrachtfZoll
'
Me.txtFrachtfZoll.CanGrow = False
Me.txtFrachtfZoll.Height = 0.3937008!
Me.txtFrachtfZoll.Left = 4.951575!
Me.txtFrachtfZoll.Name = "txtFrachtfZoll"
Me.txtFrachtfZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtFrachtfZoll.Text = Nothing
Me.txtFrachtfZoll.Top = 4.530315!
Me.txtFrachtfZoll.Width = 0.3937008!
'
'txtFrachtfEust
'
Me.txtFrachtfEust.CanGrow = False
Me.txtFrachtfEust.Height = 0.3937008!
Me.txtFrachtfEust.Left = 5.342125!
Me.txtFrachtfEust.Name = "txtFrachtfEust"
Me.txtFrachtfEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtFrachtfEust.Text = Nothing
Me.txtFrachtfEust.Top = 4.530315!
Me.txtFrachtfEust.Width = 0.3937008!
'
'txtFrachtfAbf
'
Me.txtFrachtfAbf.CanGrow = False
Me.txtFrachtfAbf.Height = 0.3937008!
Me.txtFrachtfAbf.Left = 5.753543!
Me.txtFrachtfAbf.Name = "txtFrachtfAbf"
Me.txtFrachtfAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtFrachtfAbf.Text = Nothing
Me.txtFrachtfAbf.Top = 4.530315!
Me.txtFrachtfAbf.Width = 0.3937008!
'
'txtFrachtfClear
'
Me.txtFrachtfClear.CanGrow = False
Me.txtFrachtfClear.Height = 0.3937008!
Me.txtFrachtfClear.Left = 6.116142!
Me.txtFrachtfClear.Name = "txtFrachtfClear"
Me.txtFrachtfClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle"
Me.txtFrachtfClear.Text = Nothing
Me.txtFrachtfClear.Top = 4.530315!
Me.txtFrachtfClear.Width = 0.3937008!
'
'rptSUBWESTIIAktNEU
'
Me.MasterReport = False
Me.PageSettings.DefaultPaperSize = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 12.00606!
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.Custom
Me.PageSettings.PaperName = "Custom paper"
Me.PageSettings.PaperWidth = 8.426064!
Me.PrintWidth = 8.425198!
Me.Sections.Add(Me.Detail)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.BG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Empfaenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxKundenTarifnummerVorhanden, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFraechterKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeberKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpfaengerKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisiererKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsenderKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisoDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxKdTarif_Empf, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxKdTarif_Abs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxKdTarif_Auftr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAufschub, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisiererZoll, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisiererEust, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisiererAbf, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisiererClear, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftrZoll, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftrEust, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftrAbf, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftrClear, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsZoll, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsEust, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsAbf, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsClear, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpfZoll, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpfEust, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpfAbf, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpfClear, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfZoll, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfEust, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfAbf, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfClear, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Public WithEvents txtBemerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtKennzeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbfahrt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAuftraggeber As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Empfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbfertigungsnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtWarenbezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents cbxKundenTarifnummerVorhanden As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents BG As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents txtFraechterKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAuftraggeberKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtEmpfaengerKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAvisiererKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbsenderKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAvisoDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents cbxKdTarif_Empf As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxKdTarif_Abs As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxKdTarif_Auftr As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents txtAufschub As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAvisiererZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAvisiererEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAvisiererAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAvisiererClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAuftrZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAuftrEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAuftrAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAuftrClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbsZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbsEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbsAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbsClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtEmpfZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtEmpfEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtEmpfAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtEmpfClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFrachtfZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFrachtfEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFrachtfAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFrachtfClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,13 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSUBWESTIIAktNEU
Public Sub hideBG()
Me.BG.Visible = False
End Sub
Private Sub rptSUBWESTIIAkt_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

View File

@@ -0,0 +1,343 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptWLANTicket
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptWLANTicket))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox13 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox14 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox15 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Picture1
'
Me.Picture1.DataField = ""
Me.Picture1.Height = 0.6043308!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 0.02165365!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0!
Me.Picture1.Width = 2.638189!
'
'Detail
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'TextBox3
'
Me.TextBox3.Height = 0.17!
Me.TextBox3.Left = 0!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.OutputFormat = resources.GetString("TextBox3.OutputFormat")
Me.TextBox3.Style = "font-size: 9pt; font-weight: normal; text-justify: distribute; ddo-char-set: 0"
Me.TextBox3.Text = "Username:"
Me.TextBox3.Top = 1.890945!
Me.TextBox3.Width = 1.13189!
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.TextBox3, Me.TextBox2, Me.TextBox6, Me.TextBox1, Me.TextBox4, Me.TextBox5, Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.TextBox10, Me.TextBox11, Me.TextBox12, Me.TextBox13, Me.TextBox14, Me.TextBox15, Me.TextBox16})
Me.ReportHeader1.Height = 4.02126!
Me.ReportHeader1.Name = "ReportHeader1"
'
'TextBox2
'
Me.TextBox2.Height = 0.17!
Me.TextBox2.Left = 0!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.OutputFormat = resources.GetString("TextBox2.OutputFormat")
Me.TextBox2.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox2.Text = "Start Date:"
Me.TextBox2.Top = 1.12126!
Me.TextBox2.Width = 1.13189!
'
'TextBox6
'
Me.TextBox6.Height = 0.17!
Me.TextBox6.Left = 0!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.OutputFormat = resources.GetString("TextBox6.OutputFormat")
Me.TextBox6.Style = "font-size: 9pt; font-weight: normal; text-justify: distribute; ddo-char-set: 0"
Me.TextBox6.Text = "Password:"
Me.TextBox6.Top = 2.175591!
Me.TextBox6.Width = 1.13189!
'
'TextBox1
'
Me.TextBox1.Height = 0.2845668!
Me.TextBox1.Left = 0.8716536!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.OutputFormat = resources.GetString("TextBox1.OutputFormat")
Me.TextBox1.Style = "font-size: 16pt; font-weight: bold; text-align: left; text-justify: distribute; d" &
"do-char-set: 0"
Me.TextBox1.Text = "USER"
Me.TextBox1.Top = 1.823622!
Me.TextBox1.Width = 1.714961!
'
'TextBox4
'
Me.TextBox4.Height = 0.17!
Me.TextBox4.Left = 0.8716536!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.OutputFormat = resources.GetString("TextBox4.OutputFormat")
Me.TextBox4.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox4.Text = "Date:"
Me.TextBox4.Top = 1.12126!
Me.TextBox4.Width = 1.714961!
'
'TextBox5
'
Me.TextBox5.Height = 0.2845668!
Me.TextBox5.Left = 0.8716536!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.OutputFormat = resources.GetString("TextBox5.OutputFormat")
Me.TextBox5.Style = "font-size: 16pt; font-weight: bold; text-align: left; text-justify: distribute; d" &
"do-char-set: 0"
Me.TextBox5.Text = "Password:"
Me.TextBox5.Top = 2.108268!
Me.TextBox5.Width = 1.714961!
'
'TextBox7
'
Me.TextBox7.Height = 0.2845668!
Me.TextBox7.Left = 0!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.OutputFormat = resources.GetString("TextBox7.OutputFormat")
Me.TextBox7.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-decoration: underlin" &
"e; text-justify: distribute; ddo-char-set: 0"
Me.TextBox7.Text = "WLAN-Ticket"
Me.TextBox7.Top = 0.6940945!
Me.TextBox7.Width = 2.586614!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'TextBox8
'
Me.TextBox8.Height = 0.17!
Me.TextBox8.Left = 0.0000003688037!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.OutputFormat = resources.GetString("TextBox8.OutputFormat")
Me.TextBox8.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox8.Text = "End Date:"
Me.TextBox8.Top = 1.293701!
Me.TextBox8.Width = 1.13189!
'
'TextBox9
'
Me.TextBox9.Height = 0.17!
Me.TextBox9.Left = 0.8716537!
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.OutputFormat = resources.GetString("TextBox9.OutputFormat")
Me.TextBox9.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox9.Text = "Date:"
Me.TextBox9.Top = 1.293701!
Me.TextBox9.Width = 1.71496!
'
'TextBox10
'
Me.TextBox10.Height = 0.17!
Me.TextBox10.Left = 0!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.OutputFormat = resources.GetString("TextBox10.OutputFormat")
Me.TextBox10.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox10.Text = "WLAN Name:"
Me.TextBox10.Top = 1.499213!
Me.TextBox10.Width = 1.13189!
'
'TextBox11
'
Me.TextBox11.Height = 0.17!
Me.TextBox11.Left = 0.871653!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.OutputFormat = resources.GetString("TextBox11.OutputFormat")
Me.TextBox11.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox11.Text = "Date:"
Me.TextBox11.Top = 1.499213!
Me.TextBox11.Width = 1.71496!
'
'TextBox12
'
Me.TextBox12.Height = 0.17!
Me.TextBox12.Left = 0!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.OutputFormat = resources.GetString("TextBox12.OutputFormat")
Me.TextBox12.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox12.Text = "Truck-Nr:"
Me.TextBox12.Top = 2.511024!
Me.TextBox12.Width = 1.13189!
'
'TextBox13
'
Me.TextBox13.Height = 0.17!
Me.TextBox13.Left = 0.8716528!
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.OutputFormat = resources.GetString("TextBox13.OutputFormat")
Me.TextBox13.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox13.Text = "Date:"
Me.TextBox13.Top = 2.511024!
Me.TextBox13.Width = 1.71496!
'
'TextBox14
'
Me.TextBox14.Height = 0.17!
Me.TextBox14.Left = 0!
Me.TextBox14.Name = "TextBox14"
Me.TextBox14.OutputFormat = resources.GetString("TextBox14.OutputFormat")
Me.TextBox14.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox14.Text = "Company:"
Me.TextBox14.Top = 2.681103!
Me.TextBox14.Width = 1.13189!
'
'TextBox15
'
Me.TextBox15.Height = 0.17!
Me.TextBox15.Left = 0.8716528!
Me.TextBox15.Name = "TextBox15"
Me.TextBox15.OutputFormat = resources.GetString("TextBox15.OutputFormat")
Me.TextBox15.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
Me.TextBox15.Text = "Date:"
Me.TextBox15.Top = 2.681103!
Me.TextBox15.Width = 1.71496!
'
'TextBox16
'
Me.TextBox16.Height = 1.170079!
Me.TextBox16.Left = 0!
Me.TextBox16.Name = "TextBox16"
Me.TextBox16.OutputFormat = resources.GetString("TextBox16.OutputFormat")
Me.TextBox16.Style = "font-size: 7pt; font-weight: normal; text-align: justify; text-justify: auto; ver" &
"tical-align: middle; ddo-char-set: 0"
Me.TextBox16.Text = resources.GetString("TextBox16.Text")
Me.TextBox16.Top = 2.851181!
Me.TextBox16.Width = 2.659843!
'
'rptWLANTicket
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 2.659842!
Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox15, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Friend WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox14 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox16 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox15 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,8 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Public Class rptWLANTicket
End Class

View File

@@ -0,0 +1,475 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptAuswertung
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader1 As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail1 As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter1 As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAuswertung))
Me.PageHeader1 = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Datum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Detail1 = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLKW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAngelegt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEingelangt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDauer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeber = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter1 = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblErstellt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.lblAuswahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblHeader = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblFraechter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.lblStandort = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Datum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAngelegt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEingelangt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDauer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblErstellt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAuswahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStandort, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader1
'
Me.PageHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.Label4, Me.Label10, Me.Label2, Me.Label3, Me.Datum, Me.Label6, Me.Line1})
Me.PageHeader1.Height = 0.3679167!
Me.PageHeader1.Name = "PageHeader1"
'
'Label5
'
Me.Label5.Height = 0.202!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 5.222!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-style: italic; text-align: left"
Me.Label5.Text = "Dauer"
Me.Label5.Top = 0.0!
Me.Label5.Width = 0.4970002!
'
'Label4
'
Me.Label4.DataField = "Abwesenheit"
Me.Label4.Height = 0.357!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 4.389!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 9pt; font-style: italic"
Me.Label4.Text = "Ankunft Freigabe"
Me.Label4.Top = 0.0!
Me.Label4.Width = 0.8329999!
'
'Label10
'
Me.Label10.Height = 0.357!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 2.321!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 9pt; font-style: italic; text-align: left"
Me.Label10.Text = "Fr<EFBFBD>chter" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Avisierer"
Me.Label10.Top = 0.0!
Me.Label10.Width = 1.093!
'
'Label2
'
Me.Label2.Height = 0.348!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.667!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-style: italic"
Me.Label2.Text = "Aviso eingelangt"
Me.Label2.Top = 0.0!
Me.Label2.Width = 0.6540001!
'
'Label3
'
Me.Label3.Height = 0.202!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0.969!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 9pt; font-style: italic; text-align: left"
Me.Label3.Text = "Angelegt"
Me.Label3.Top = 0.0!
Me.Label3.Width = 0.698!
'
'Datum
'
Me.Datum.Height = 0.15!
Me.Datum.HyperLink = Nothing
Me.Datum.Left = 0.0000004768372!
Me.Datum.Name = "Datum"
Me.Datum.Style = "font-size: 9pt; font-style: italic"
Me.Datum.Text = "LKW-Nr"
Me.Datum.Top = 0.0!
Me.Datum.Width = 0.8850001!
'
'Label6
'
Me.Label6.Height = 0.202!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 5.719!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 9pt; font-style: italic; text-align: left"
Me.Label6.Text = "Ereignisse / Gr<47>nde f<>r Verz<72>gerungen"
Me.Label6.Top = 0.0!
Me.Label6.Width = 2.724!
'
'Line1
'
Me.Line1.Height = 0.0!
Me.Line1.Left = 0.0!
Me.Line1.LineWeight = 0.5!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.305!
Me.Line1.Width = 10.86!
Me.Line1.X1 = 0.0!
Me.Line1.X2 = 10.86!
Me.Line1.Y1 = 0.305!
Me.Line1.Y2 = 0.305!
'
'Detail1
'
Me.Detail1.CanShrink = True
Me.Detail1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLKW, Me.txtAngelegt, Me.txtEingelangt, Me.txtInfo, Me.txtFraechter, Me.txtAnkunft, Me.txtDauer, Me.txtAuftraggeber})
Me.Detail1.Height = 0.3562501!
Me.Detail1.KeepTogether = True
Me.Detail1.Name = "Detail1"
'
'txtLKW
'
Me.txtLKW.DataField = "Datum"
Me.txtLKW.Height = 0.17!
Me.txtLKW.Left = 0.0!
Me.txtLKW.Name = "txtLKW"
Me.txtLKW.OutputFormat = resources.GetString("txtLKW.OutputFormat")
Me.txtLKW.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.txtLKW.Text = "txtLKW"
Me.txtLKW.Top = 0.0!
Me.txtLKW.Width = 0.969!
'
'txtAngelegt
'
Me.txtAngelegt.Height = 0.17!
Me.txtAngelegt.Left = 0.969!
Me.txtAngelegt.Name = "txtAngelegt"
Me.txtAngelegt.Style = "font-size: 9pt; ddo-char-set: 0"
Me.txtAngelegt.Text = "txtAngelegt"
Me.txtAngelegt.Top = 0.0!
Me.txtAngelegt.Width = 0.698!
'
'txtEingelangt
'
Me.txtEingelangt.Height = 0.17!
Me.txtEingelangt.Left = 1.667!
Me.txtEingelangt.Name = "txtEingelangt"
Me.txtEingelangt.Style = "font-size: 9pt; text-align: left; ddo-char-set: 0"
Me.txtEingelangt.Text = "txtEingelangt"
Me.txtEingelangt.Top = 0.0!
Me.txtEingelangt.Width = 0.6540001!
'
'txtInfo
'
Me.txtInfo.DataField = "Info"
Me.txtInfo.Height = 0.347!
Me.txtInfo.Left = 5.719!
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.Style = "font-family: Arial; font-size: 8pt; text-align: left; ddo-char-set: 0"
Me.txtInfo.Text = "txtInfo"
Me.txtInfo.Top = 0.0!
Me.txtInfo.Width = 5.072!
'
'txtFraechter
'
Me.txtFraechter.CanGrow = False
Me.txtFraechter.Height = 0.17!
Me.txtFraechter.Left = 2.321!
Me.txtFraechter.Name = "txtFraechter"
Me.txtFraechter.Style = "font-size: 9pt; text-align: left; ddo-char-set: 0"
Me.txtFraechter.Text = "txtFr<EFBFBD>chter"
Me.txtFraechter.Top = 0.0!
Me.txtFraechter.Width = 2.068!
'
'txtAnkunft
'
Me.txtAnkunft.CanGrow = False
Me.txtAnkunft.DataField = "Abwesenheit"
Me.txtAnkunft.Height = 0.347!
Me.txtAnkunft.Left = 4.389!
Me.txtAnkunft.Name = "txtAnkunft"
Me.txtAnkunft.Style = "font-size: 9pt; text-align: left; ddo-char-set: 0"
Me.txtAnkunft.Text = "txtAnkunft"
Me.txtAnkunft.Top = 0.0!
Me.txtAnkunft.Width = 0.8330002!
'
'txtDauer
'
Me.txtDauer.Height = 0.17!
Me.txtDauer.Left = 5.222!
Me.txtDauer.Name = "txtDauer"
Me.txtDauer.Style = "font-size: 9pt; text-align: left; ddo-char-set: 0"
Me.txtDauer.Text = "txtDauer"
Me.txtDauer.Top = 0.0!
Me.txtDauer.Width = 0.4970002!
'
'txtAuftraggeber
'
Me.txtAuftraggeber.CanGrow = False
Me.txtAuftraggeber.Height = 0.17!
Me.txtAuftraggeber.Left = 2.321!
Me.txtAuftraggeber.Name = "txtAuftraggeber"
Me.txtAuftraggeber.Style = "font-size: 9pt; text-align: left; ddo-char-set: 0"
Me.txtAuftraggeber.Text = "txtAuftraggeber"
Me.txtAuftraggeber.Top = 0.17!
Me.txtAuftraggeber.Width = 2.068!
'
'PageFooter1
'
Me.PageFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblFirma, Me.lblErstellt, Me.Line3})
Me.PageFooter1.Height = 0.2088333!
Me.PageFooter1.Name = "PageFooter1"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 7.313!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.0!
Me.ReportInfo1.Width = 3.478!
'
'lblFirma
'
Me.lblFirma.Height = 0.2!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 3.061!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = "font-size: 8pt; text-align: center"
Me.lblFirma.Text = "Label6"
Me.lblFirma.Top = 0.0!
Me.lblFirma.Width = 4.252!
'
'lblErstellt
'
Me.lblErstellt.Height = 0.2!
Me.lblErstellt.HyperLink = Nothing
Me.lblErstellt.Left = 0.0!
Me.lblErstellt.Name = "lblErstellt"
Me.lblErstellt.Style = "font-size: 8pt"
Me.lblErstellt.Text = "Label6"
Me.lblErstellt.Top = 0.0!
Me.lblErstellt.Width = 3.0!
'
'Line3
'
Me.Line3.Height = 0.0!
Me.Line3.Left = 0.0!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.0!
Me.Line3.Width = 10.86!
Me.Line3.X1 = 0.0!
Me.Line3.X2 = 10.86!
Me.Line3.Y1 = 0.0!
Me.Line3.Y2 = 0.0!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblAuswahl, Me.lblHeader, Me.Picture1, Me.lblFraechter, Me.Shape1, Me.lblStandort})
Me.ReportHeader1.Height = 0.9687503!
Me.ReportHeader1.Name = "ReportHeader1"
'
'lblAuswahl
'
Me.lblAuswahl.Height = 0.5100001!
Me.lblAuswahl.HyperLink = Nothing
Me.lblAuswahl.Left = 3.23!
Me.lblAuswahl.Name = "lblAuswahl"
Me.lblAuswahl.Style = "font-size: 9pt; font-style: italic"
Me.lblAuswahl.Text = "Auswahl"
Me.lblAuswahl.Top = 0.0!
Me.lblAuswahl.Width = 4.718!
'
'lblHeader
'
Me.lblHeader.Height = 0.281!
Me.lblHeader.HyperLink = Nothing
Me.lblHeader.Left = 0.0!
Me.lblHeader.Name = "lblHeader"
Me.lblHeader.Style = "font-size: 14pt; font-weight: bold"
Me.lblHeader.Text = "lblHeader"
Me.lblHeader.Top = 0.0!
Me.lblHeader.Width = 3.0!
'
'Picture1
'
Me.Picture1.Height = 0.5840001!
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 8.059!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0.0!
Me.Picture1.Width = 2.801917!
'
'lblFraechter
'
Me.lblFraechter.Height = 0.273!
Me.lblFraechter.HyperLink = Nothing
Me.lblFraechter.Left = 0.145!
Me.lblFraechter.Name = "lblFraechter"
Me.lblFraechter.Style = "font-size: 12pt; font-weight: bold; vertical-align: middle; white-space: nowrap; " & _
"ddo-wrap-mode: nowrap"
Me.lblFraechter.Text = "Fr<EFBFBD>chter"
Me.lblFraechter.Top = 0.636!
Me.lblFraechter.Visible = False
Me.lblFraechter.Width = 3.831!
'
'Shape1
'
Me.Shape1.Height = 0.325!
Me.Shape1.Left = 0.08400001!
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(30.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Style = GrapeCity.ActiveReports.SectionReportModel.ShapeType.RoundRect
Me.Shape1.Top = 0.5840001!
Me.Shape1.Visible = False
Me.Shape1.Width = 3.99!
'
'lblStandort
'
Me.lblStandort.Height = 0.21!
Me.lblStandort.HyperLink = Nothing
Me.lblStandort.Left = 0.0!
Me.lblStandort.Name = "lblStandort"
Me.lblStandort.Style = "font-size: 12pt; font-weight: bold"
Me.lblStandort.Text = "Grenzstelle"
Me.lblStandort.Top = 0.3!
Me.lblStandort.Visible = False
Me.lblStandort.Width = 3.0!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0.0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptAuswertung
'
Me.MasterReport = False
Me.PageSettings.DefaultPaperSize = False
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.69291!
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
Me.PageSettings.PaperWidth = 8.267716!
Me.PrintWidth = 10.86092!
Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader1)
Me.Sections.Add(Me.Detail1)
Me.Sections.Add(Me.PageFooter1)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Datum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAngelegt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEingelangt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDauer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblErstellt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAuswahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFraechter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStandort, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtLKW As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Datum As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtAngelegt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEingelangt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblErstellt As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents lblAuswahl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblHeader As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblFraechter As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtDauer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAuftraggeber As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblStandort As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

View File

@@ -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

View File

@@ -0,0 +1,503 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptLKWBericht
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptLKWBericht))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.lblBezugsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblHeader = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblLKW = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSB = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGrenzstelle = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFreigabe = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDauer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.lblEreignis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSB, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGrenzstelle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFreigabe, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDauer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEreignis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBezugsnummer, Me.lblBezugsnrValue, Me.Label2})
Me.PageHeader.Height = 0.1999016!
Me.PageHeader.Name = "PageHeader"
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Height = 0.1374016!
Me.lblBezugsnummer.HyperLink = Nothing
Me.lblBezugsnummer.Left = 0.07283465!
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnummer.Text = "Datum/Uhrzeit"
Me.lblBezugsnummer.Top = 0.06259843!
Me.lblBezugsnummer.Width = 0.8492125!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 1.55!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnrValue.Text = "Sachbearbeiter"
Me.lblBezugsnrValue.Top = 0.06259843!
Me.lblBezugsnrValue.Width = 1.45!
'
'Label2
'
Me.Label2.Height = 0.1374016!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 3.0!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold"
Me.Label2.Text = "Ereignis"
Me.Label2.Top = 0.06259843!
Me.Label2.Width = 4.677166!
'
'lblHeader
'
Me.lblHeader.Height = 0.2393701!
Me.lblHeader.HyperLink = Nothing
Me.lblHeader.Left = 0.06771654!
Me.lblHeader.Name = "lblHeader"
Me.lblHeader.Style = "font-size: 14pt; font-weight: bold"
Me.lblHeader.Text = "LKW Bericht"
Me.lblHeader.Top = 0.0!
Me.lblHeader.Width = 3.0!
'
'Picture1
'
Me.Picture1.DataField = ""
Me.Picture1.Height = 0.5840001!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 4.875197!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0.0!
Me.Picture1.Width = 2.801917!
'
'lblLKW
'
Me.lblLKW.Height = 0.3444882!
Me.lblLKW.HyperLink = Nothing
Me.lblLKW.Left = 3.844882!
Me.lblLKW.Name = "lblLKW"
Me.lblLKW.Style = "font-size: 20pt; font-weight: bold; text-align: right; text-decoration: underline" & _
""
Me.lblLKW.Text = "SD 123 AB"
Me.lblLKW.Top = 1.100788!
Me.lblLKW.Width = 3.551969!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblDat, Me.lblSB, Me.lblEreignis})
Me.Detail.Height = 0.1374016!
Me.Detail.Name = "Detail"
'
'lblDat
'
Me.lblDat.Height = 0.1374016!
Me.lblDat.HyperLink = Nothing
Me.lblDat.Left = 0.07283465!
Me.lblDat.Name = "lblDat"
Me.lblDat.Style = "font-size: 8pt; font-weight: normal"
Me.lblDat.Text = "Datum/Uhrzeit"
Me.lblDat.Top = 0.0!
Me.lblDat.Width = 1.477165!
'
'lblSB
'
Me.lblSB.Height = 0.1374016!
Me.lblSB.HyperLink = Nothing
Me.lblSB.Left = 1.55!
Me.lblSB.Name = "lblSB"
Me.lblSB.Style = "font-size: 8pt; font-weight: normal"
Me.lblSB.Text = "Sachbearbeiter"
Me.lblSB.Top = 0.0!
Me.lblSB.Width = 1.45!
'
'Label
'
Me.Label.Height = 0.17!
Me.Label.Left = 0.07283417!
Me.Label.Name = "Label"
Me.Label.OutputFormat = resources.GetString("Label.OutputFormat")
Me.Label.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.Label.Text = "Fr<EFBFBD>chter:"
Me.Label.Top = 0.6519685!
Me.Label.Width = 0.8716534!
'
'txtFraechter
'
Me.txtFraechter.Height = 0.17!
Me.txtFraechter.Left = 1.204725!
Me.txtFraechter.Name = "txtFraechter"
Me.txtFraechter.OutputFormat = resources.GetString("txtFraechter.OutputFormat")
Me.txtFraechter.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.txtFraechter.Text = Nothing
Me.txtFraechter.Top = 0.6519685!
Me.txtFraechter.Width = 6.302362!
'
'TextBox2
'
Me.TextBox2.Height = 0.17!
Me.TextBox2.Left = 0.07283417!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.OutputFormat = resources.GetString("TextBox2.OutputFormat")
Me.TextBox2.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox2.Text = "Avisierer:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.TextBox2.Top = 0.8220466!
Me.TextBox2.Width = 0.8716535!
'
'TextBox3
'
Me.TextBox3.Height = 0.17!
Me.TextBox3.Left = 0.07283417!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.OutputFormat = resources.GetString("TextBox3.OutputFormat")
Me.TextBox3.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox3.Text = "LKW-Kennzeichen:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.TextBox3.Top = 0.4141726!
Me.TextBox3.Width = 1.13189!
'
'txtLKWKz
'
Me.txtLKWKz.Height = 0.17!
Me.txtLKWKz.Left = 1.204725!
Me.txtLKWKz.Name = "txtLKWKz"
Me.txtLKWKz.OutputFormat = resources.GetString("txtLKWKz.OutputFormat")
Me.txtLKWKz.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.txtLKWKz.Text = Nothing
Me.txtLKWKz.Top = 0.4141729!
Me.txtLKWKz.Width = 6.302362!
'
'txtAvisierer
'
Me.txtAvisierer.Height = 0.17!
Me.txtAvisierer.Left = 1.204723!
Me.txtAvisierer.Name = "txtAvisierer"
Me.txtAvisierer.OutputFormat = resources.GetString("txtAvisierer.OutputFormat")
Me.txtAvisierer.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.txtAvisierer.Text = Nothing
Me.txtAvisierer.Top = 0.8220466!
Me.txtAvisierer.Width = 6.302362!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.131473!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.02490158!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.07283465!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.02480315!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.744488!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition AG"
Me.Label8.Top = 0.02519685!
Me.Label8.Width = 1.130708!
'
'Line2
'
Me.Line2.Height = 0.00008201972!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.02519685!
Me.Line2.Width = 7.677084!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 7.677084!
Me.Line2.Y1 = 0.02519685!
Me.Line2.Y2 = 0.02527887!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFraechter, Me.txtLKWKz, Me.lblHeader, Me.Picture1, Me.lblLKW, Me.TextBox11, Me.Label, Me.TextBox2, Me.TextBox3, Me.TextBox1, Me.TextBox5, Me.TextBox7, Me.TextBox9, Me.txtAvisierer, Me.txtGrenzstelle, Me.txtAnkunft, Me.txtFreigabe, Me.txtDauer})
Me.ReportHeader1.Height = 2.265309!
Me.ReportHeader1.Name = "ReportHeader1"
'
'TextBox11
'
Me.TextBox11.Height = 0.17!
Me.TextBox11.Left = 0.06771654!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.OutputFormat = resources.GetString("TextBox11.OutputFormat")
Me.TextBox11.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 0"
Me.TextBox11.Text = "Ereignisse / Gr<47>nde f<>r Verz<72>gerungen:"
Me.TextBox11.Top = 2.095276!
Me.TextBox11.Width = 3.340551!
'
'TextBox1
'
Me.TextBox1.Height = 0.17!
Me.TextBox1.Left = 0.07283417!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.OutputFormat = resources.GetString("TextBox1.OutputFormat")
Me.TextBox1.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox1.Text = "Grenzstelle:"
Me.TextBox1.Top = 1.100788!
Me.TextBox1.Width = 0.8716535!
'
'TextBox5
'
Me.TextBox5.Height = 0.17!
Me.TextBox5.Left = 0.07283417!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.OutputFormat = resources.GetString("TextBox5.OutputFormat")
Me.TextBox5.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox5.Text = "Ankunft:"
Me.TextBox5.Top = 1.270865!
Me.TextBox5.Width = 0.8716535!
'
'TextBox7
'
Me.TextBox7.Height = 0.17!
Me.TextBox7.Left = 0.07283417!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.OutputFormat = resources.GetString("TextBox7.OutputFormat")
Me.TextBox7.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox7.Text = "Freigabe:"
Me.TextBox7.Top = 1.440944!
Me.TextBox7.Width = 0.8716535!
'
'TextBox9
'
Me.TextBox9.Height = 0.17!
Me.TextBox9.Left = 0.07283417!
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.OutputFormat = resources.GetString("TextBox9.OutputFormat")
Me.TextBox9.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.TextBox9.Text = "Dauer:"
Me.TextBox9.Top = 1.611023!
Me.TextBox9.Width = 0.8716535!
'
'txtGrenzstelle
'
Me.txtGrenzstelle.Height = 0.1700788!
Me.txtGrenzstelle.Left = 1.204725!
Me.txtGrenzstelle.Name = "txtGrenzstelle"
Me.txtGrenzstelle.OutputFormat = resources.GetString("txtGrenzstelle.OutputFormat")
Me.txtGrenzstelle.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.txtGrenzstelle.Text = Nothing
Me.txtGrenzstelle.Top = 1.100788!
Me.txtGrenzstelle.Width = 6.302362!
'
'txtAnkunft
'
Me.txtAnkunft.Height = 0.17!
Me.txtAnkunft.Left = 1.204723!
Me.txtAnkunft.Name = "txtAnkunft"
Me.txtAnkunft.OutputFormat = resources.GetString("txtAnkunft.OutputFormat")
Me.txtAnkunft.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.txtAnkunft.Text = Nothing
Me.txtAnkunft.Top = 1.270865!
Me.txtAnkunft.Width = 4.57323!
'
'txtFreigabe
'
Me.txtFreigabe.Height = 0.17!
Me.txtFreigabe.Left = 1.204723!
Me.txtFreigabe.Name = "txtFreigabe"
Me.txtFreigabe.OutputFormat = resources.GetString("txtFreigabe.OutputFormat")
Me.txtFreigabe.Style = "font-size: 9pt; font-weight: normal; text-align: left; ddo-char-set: 0"
Me.txtFreigabe.Text = Nothing
Me.txtFreigabe.Top = 1.440944!
Me.txtFreigabe.Width = 4.57323!
'
'txtDauer
'
Me.txtDauer.Height = 0.17!
Me.txtDauer.Left = 1.204723!
Me.txtDauer.Name = "txtDauer"
Me.txtDauer.OutputFormat = resources.GetString("txtDauer.OutputFormat")
Me.txtDauer.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
Me.txtDauer.Text = Nothing
Me.txtDauer.Top = 1.611023!
Me.txtDauer.Width = 4.57323!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0.0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'lblEreignis
'
Me.lblEreignis.Height = 0.1374016!
Me.lblEreignis.Left = 3.0!
Me.lblEreignis.Name = "lblEreignis"
Me.lblEreignis.Style = "font-size: 8pt; ddo-char-set: 1"
Me.lblEreignis.Text = "Ergebnis"
Me.lblEreignis.Top = 0.0!
Me.lblEreignis.Width = 4.677166!
'
'rptLKWBericht
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.5905512!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSB, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGrenzstelle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFreigabe, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDauer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEreignis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents lblHeader As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblLKW As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGrenzstelle As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFreigabe As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtDauer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblBezugsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSB As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblEreignis As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,91 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Public Class rptLKWBericht
Dim cProgramFunctions As New cProgramFunctions
Public AvisoID As Integer = -1
Dim dummycount As Integer = 0
Public erstelltVon As String = ""
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
End Sub
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
lblSB.Text = Fields.Item("Mitarbeiter").Value
lblDat.Text = Fields.Item("Datum").Value
lblEreignis.Text = Fields.Item("Ereignis").Value
' MsgBox(Fields.Item("Ereignis").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.WhiteSmoke
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim AVISO As cAviso = (New cAvisoDAL).LesenAviso(AvisoID, "")
' MsgBox(AvisoID)
Me.Name = "LKW Bericht"
Me.lblLKW.Text = AVISO.LKW_Nr
Me.txtLKWKz.Text = AVISO.LKW_Nr
Me.txtFraechter.Text = AVISO.Fr<EFBFBD>chter
Me.txtAvisierer.Text = AVISO.Auftraggeber
If AVISO.Dauer = 0 Then
Me.txtDauer.Text = "-"
Else
Me.txtDauer.Text = cProgramFunctions.MinToTime(AVISO.Dauer) 'toFormat(AVISO.Dauer * 60 / 86400, "HH Std. mm min") & " (" & AVISO.Dauer & " min)"
End If
Me.txtAnkunft.Text = AVISO.Ankunft
If AVISO.Freigabe = cMeineFunktionenAVISO.LeerDatum Then
Me.txtFreigabe.Text = "-"
Else
Me.txtFreigabe.Text = AVISO.Freigabe 'toFormat(AVISO.Dauer * 60 / 86400, "HH Std. mm min") & " (" & AVISO.Dauer & " min)"
End If
Me.txtGrenzstelle.Text = AVISO.Grenzstelle
Dim sqlStr As String = " SELECT " &
" 'A' as Art, " &
" [Datum] " &
" ,[Mitarbeiter] " &
" ,[MitarbeiterId] " &
" ,[Aenderung_Text] as Ereignis " &
" FROM [Aenderungen] " &
" WHERE AvisoID = '" & AvisoID & "' " &
" union " &
" SELECT " &
" 'V' as Art, " &
" [Datum] " &
" ,[Mitarbeiter] " &
" ,[MitarbeiterId] " &
" ,[Hinweis_Vermerk] as Ereignis " &
" FROM [Vermerke] " &
" WHERE AvisoID='" & AvisoID & "' " &
" ORDER By Datum "
Dim cAvisoDAL As New cAvisoDAL
Me.DataSource = cAvisoDAL.loadDataTableBySQL(sqlStr)
'Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString
' Label7.Text = "" '"B<>rgschaft: " & brg
End Sub
End Class

File diff suppressed because one or more lines are too long

View File

@@ -0,0 +1,8 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Public Class rptTicketLKW
End Class

View File

@@ -0,0 +1,249 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptTicketLKWInfo
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptTicketLKWInfo))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.lblHeader = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblInfo = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture2 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Picture3 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'lblHeader
'
Me.lblHeader.Height = 0.9059056!
Me.lblHeader.HyperLink = Nothing
Me.lblHeader.Left = 0.07283465!
Me.lblHeader.Name = "lblHeader"
Me.lblHeader.Style = "font-size: 30pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.lblHeader.Text = "ZOLLABFERTIGUNG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "GÜMRÜK / DOUANE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblHeader.Top = 2.137795!
Me.lblHeader.Width = 7.061811!
'
'Picture1
'
Me.Picture1.DataField = ""
Me.Picture1.Height = 0.7295276!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 3.482677!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0.153937!
Me.Picture1.Width = 3.603885!
'
'Detail
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2, Me.lblSachbearbeiter})
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 3.608662!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.02480315!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.07283465!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.02480315!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.181103!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition "
Me.Label8.Top = 0.02519685!
Me.Label8.Width = 1.130708!
'
'Line2
'
Me.Line2.Height = 0.00008201972!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.02519685!
Me.Line2.Width = 7.086614!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.086614!
Me.Line2.Y1 = 0.02519685!
Me.Line2.Y2 = 0.02527887!
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.Height = 0.2!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "font-size: 8pt"
Me.lblSachbearbeiter.Text = "-"
Me.lblSachbearbeiter.Top = 0.05!
Me.lblSachbearbeiter.Width = 1.130708!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblHeader, Me.Picture1, Me.Label2, Me.lblInfo, Me.Picture2, Me.Picture3})
Me.ReportHeader1.Height = 6.945276!
Me.ReportHeader1.Name = "ReportHeader1"
'
'Label2
'
Me.Label2.Height = 0.4374017!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0.06259844!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 30pt; font-weight: bold; text-align: center; text-decoration: underlin" &
"e; ddo-char-set: 1"
Me.Label2.Text = "PARKING INFO"
Me.Label2.Top = 1.56811!
Me.Label2.Width = 7.072042!
'
'lblInfo
'
Me.lblInfo.Height = 2.838977!
Me.lblInfo.HyperLink = Nothing
Me.lblInfo.Left = 0.2393701!
Me.lblInfo.Name = "lblInfo"
Me.lblInfo.Style = "font-size: 15pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblInfo.Text = "INFO"
Me.lblInfo.Top = 4.106299!
Me.lblInfo.Width = 6.692914!
'
'Picture2
'
Me.Picture2.Height = 0.8543308!
Me.Picture2.HyperLink = Nothing
Me.Picture2.ImageBase64String = resources.GetString("Picture2.ImageBase64String")
Me.Picture2.Left = 5.951576!
Me.Picture2.Name = "Picture2"
Me.Picture2.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture2.Top = 2.137795!
Me.Picture2.Width = 1.183068!
'
'Picture3
'
Me.Picture3.Height = 0.8543305!
Me.Picture3.HyperLink = Nothing
Me.Picture3.ImageBase64String = resources.GetString("Picture3.ImageBase64String")
Me.Picture3.Left = 0.07283465!
Me.Picture3.Name = "Picture3"
Me.Picture3.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture3.Top = 2.169685!
Me.Picture3.Width = 1.047635!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptTicketLKWInfo
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.144882!
Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents lblHeader As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Picture2 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Picture3 As GrapeCity.ActiveReports.SectionReportModel.Picture
Friend WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblInfo As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

View File

@@ -0,0 +1,10 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Public Class rptTicketLKWInfo
Private Sub rptTicketLKWInfo_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class