This commit is contained in:
2025-06-26 09:12:20 +02:00
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.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
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.ImageData = CType(resources.GetObject("BG.ImageData"), System.IO.Stream)
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 = System.Drawing.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.ImageData = CType(resources.GetObject("BG.ImageData"), System.IO.Stream)
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 = System.Drawing.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.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
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.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
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 = System.Drawing.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.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
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.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
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.ImageData = CType(resources.GetObject("Picture2.ImageData"), System.IO.Stream)
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.ImageData = CType(resources.GetObject("Picture3.ImageData"), System.IO.Stream)
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

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

View File

@@ -174,11 +174,19 @@
<Reference Include="DocumentFormat.OpenXml, Version=2.7.2.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
<HintPath>..\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Imaging">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\DS.Documents.Imaging.dll</HintPath>
<Reference Include="DS.Documents.DX.Windows">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\DS.Documents.DX.Windows.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Pdf">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\DS.Documents.Pdf.dll</HintPath>
<Reference Include="DS.Documents.Imaging, Version=7.0.0.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\DS.Documents.Imaging.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Imaging.Windows">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\DS.Documents.Imaging.Windows.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Pdf, Version=7.0.0.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\DS.Documents.Pdf.dll</HintPath>
</Reference>
<Reference Include="EAGetMail, Version=5.3.5.0, Culture=neutral, PublicKeyToken=e10a0812eb29cf94, processorArchitecture=MSIL">
<HintPath>..\packages\EAGetMail.5.3.5\lib\net461\EAGetMail.dll</HintPath>
@@ -221,72 +229,148 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\itextsharp.pdfa.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Chart">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Chart.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Chart, Version=18.0.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Chart.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.DataProviders.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Chart.Win">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Chart.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders.Excel">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.DataProviders.Excel.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders, Version=3.0.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.DataProviders.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Document.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders.Excel, Version=1.0.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.DataProviders.Excel.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gc">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Document.Drawing.Gc.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Document, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Document.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gdi">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Document.Drawing.Gdi.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gc, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Document.Drawing.Gc.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gc">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Drawing.Gc.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gdi, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Document.Drawing.Gdi.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gdi">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Drawing.Gdi.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gc, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Drawing.Gc.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Section">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Export.Pdf.Section.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gdi, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Drawing.Gdi.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Rdl">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Rdl.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Excel.Page, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Excel.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Rendering">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Rendering.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Html.Page">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Html.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Scripting">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Scripting.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Image.Page">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Image.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Design.Win">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Design.Win.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Page">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Pdf.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Excel">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Export.Excel.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Section, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Pdf.Section.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Pdf">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Export.Pdf.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Svg.Page">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Svg.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Word">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Export.Word.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Text.Page">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Text.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Common">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Viewer.Common.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Tiff.Section">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Tiff.Section.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Win">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Viewer.Win.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Word.Page">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Word.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Win">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Win.dll</HintPath>
<Reference Include="MESCIUS.ActiveReports.Core.Rdl, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Rdl.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Rendering, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Rendering.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Scripting, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Scripting.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Design.Win, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Design.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Excel, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Excel.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Html">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Html.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Image">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Image.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Image.Win">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Image.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Pdf, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Pdf.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Pdf.Win">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Pdf.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Word, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Word.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Xml">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Xml.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.QueryDesigner">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.QueryDesigner.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Serializer">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Serializer.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.SpreadBuilder">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.SpreadBuilder.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Common, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Viewer.Common.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Win, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Viewer.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Win, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.DataEngine, Version=4.0.0.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.Data.DataEngine.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.Data.DataEngine.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.ExpressionInfo">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.Data.ExpressionInfo.dll</HintPath>
<Reference Include="MESCIUS.Data.ExpressionInfo, Version=4.0.0.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.Data.ExpressionInfo.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.VBFunctionLib">
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.Data.VBFunctionLib.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Authentication">
<HintPath>..\..\..\dll\ASP.NET\Microsoft.AspNetCore.Authentication.dll</HintPath>

View File

@@ -78,7 +78,7 @@ Partial Public Class rptQRAviso
'
Me.picVERAG.Height = 0.4897638!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.2015748!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -73,7 +73,7 @@ Partial Public Class rptSUBWESTIIAkt
'
Me.BG.DataField = ""
Me.BG.Height = 11.81102!
Me.BG.ImageData = CType(resources.GetObject("BG.ImageData"), System.IO.Stream)
Me.BG.ImageBase64String = resources.GetString("BG.ImageBase64String")
Me.BG.Left = -0.1968504!
Me.BG.Name = "BG"
Me.BG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Stretch
@@ -345,7 +345,7 @@ Partial Public Class rptSUBWESTIIAkt
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 12.00606!
Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.Custom
Me.PageSettings.PaperName = "Custom paper"
Me.PageSettings.PaperWidth = 8.426064!
Me.PrintWidth = 8.425198!

File diff suppressed because one or more lines are too long

View File

@@ -133,7 +133,7 @@ Partial Public Class rptSUBWESTIIAktNEU
'
Me.BG.DataField = ""
Me.BG.Height = 11.9685!
Me.BG.ImageData = CType(resources.GetObject("BG.ImageData"), System.IO.Stream)
Me.BG.ImageBase64String = resources.GetString("BG.ImageBase64String")
Me.BG.Left = -0.1771654!
Me.BG.Name = "BG"
Me.BG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Stretch
@@ -780,7 +780,7 @@ Partial Public Class rptSUBWESTIIAktNEU
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 12.00606!
Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.Custom
Me.PageSettings.PaperName = "Custom paper"
Me.PageSettings.PaperWidth = 8.426064!
Me.PrintWidth = 8.425198!

File diff suppressed because one or more lines are too long

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.1.4.4")>
<Assembly: AssemblyFileVersion("4.1.4.4")>
<Assembly: AssemblyVersion("4.1.4.6")>
<Assembly: AssemblyFileVersion("4.1.4.6")>

View File

@@ -1,2 +1,3 @@
GrapeCity.ActiveReports.SectionReport, MESCIUS.ActiveReports
GrapeCity.ActiveReports.Viewer.Win.Viewer, MESCIUS.ActiveReports.Viewer.Win
GrapeCity.ActiveReports.SectionReport, MESCIUS.ActiveReports, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Viewer.Win.Viewer, MESCIUS.ActiveReports.Viewer.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, MESCIUS.ActiveReports.Export.Pdf, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff

View File

@@ -69,7 +69,7 @@ Partial Public Class rptWLANTicket
Me.Picture1.DataField = ""
Me.Picture1.Height = 0.6043308!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 0.02165365!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -1,22 +1,22 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptAuswertung
Inherits GrapeCity.ActiveReports.SectionReport
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
'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()
'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()
@@ -348,7 +348,7 @@ Partial Public Class rptAuswertung
'Picture1
'
Me.Picture1.Height = 0.5840001!
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 8.059!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -403,7 +403,7 @@ Partial Public Class rptAuswertung
Me.PageSettings.DefaultPaperSize = False
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.69291!
Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.A4
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
Me.PageSettings.PaperWidth = 8.267716!
Me.PrintWidth = 10.86092!
Me.ScriptLanguage = "VB.NET"
@@ -444,32 +444,32 @@ Partial Public Class rptAuswertung
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
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

File diff suppressed because one or more lines are too long

View File

@@ -5,82 +5,82 @@ Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Public Class rptAuswertung
Public Auswahl As String
Public SQL As String
Public Intern As Boolean
Public Fr<EFBFBD>chter As String
Public Standort As String
Public Auswahl As String
Public SQL As String
Public Intern As Boolean
Public Fr<EFBFBD>chter As String
Public Standort As String
Dim AvisoDAL As New cAvisoDAL
Dim VermerkeDAL As New cVermerkeDAL
Dim AvisoDAL As New cAvisoDAL
Dim VermerkeDAL As New cVermerkeDAL
Dim dummycount As Long
Dim dummycount As Long
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter1.Format
lblErstellt.Text = String.Format("erstellt am {0} um {1} von {2}",
DateTime.Now.ToShortDateString(),
DateTime.Now.ToShortTimeString(),
SystemInformation.UserName.ToString)
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter1.Format
lblErstellt.Text = String.Format("erstellt am {0} um {1} von {2}",
DateTime.Now.ToShortDateString(),
DateTime.Now.ToShortTimeString(),
SystemInformation.UserName.ToString)
lblFirma.Text = "VERAG Spedition AG"
End Sub
End Sub
Private Sub rptAuswertung_NoData(sender As Object, e As System.EventArgs) Handles Me.NoData
MsgBox("Es wurden keine Daten zum Drucken gefunden.", vbInformation, "Druck Aviso-Auswertung")
Me.Cancel() 'ev. abbrechen, falls noch aufgebaut wird
End Sub
Private Sub rptAuswertung_NoData(sender As Object, e As System.EventArgs) Handles Me.NoData
MsgBox("Es wurden keine Daten zum Drucken gefunden.", vbInformation, "Druck Aviso-Auswertung")
Me.Cancel() 'ev. abbrechen, falls noch aufgebaut wird
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
'Drucktitel zuweisen
Me.Name = "Logbuch Aviso"
If Intern Then Me.Name += " - INTERNE Liste"
'Drucktitel zuweisen
Me.Name = "Logbuch Aviso"
If Intern Then Me.Name += " - INTERNE Liste"
lblHeader.Text = Me.Name
lblHeader.Text = Me.Name
'Format + R<>nder setzen
Me.PageSettings.Orientation = Section.PageOrientation.Landscape
Me.PageSettings.Margins.Left = 0.3
Me.PageSettings.Margins.Right = 0.1
Me.PageSettings.Margins.Top = 0.5
Me.PageSettings.Margins.Bottom = 0.4
'Format + R<>nder setzen
Me.PageSettings.Orientation = Section.PageOrientation.Landscape
Me.PageSettings.Margins.Left = 0.3
Me.PageSettings.Margins.Right = 0.1
Me.PageSettings.Margins.Top = 0.5
Me.PageSettings.Margins.Bottom = 0.4
Dim X As String = ""
Dim X As String = ""
'falls Fr<46>chter speziell ausgew<65>hlt, dann diesen hervorheben
If Fr<EFBFBD>chter <> "" Then
lblFraechter.Visible = True
Shape1.Visible = True
lblFraechter.Text = Fr<EFBFBD>chter
End If
'falls Fr<46>chter speziell ausgew<65>hlt, dann diesen hervorheben
If Fr<EFBFBD>chter <> "" Then
lblFraechter.Visible = True
Shape1.Visible = True
lblFraechter.Text = Fr<EFBFBD>chter
End If
'falls Standort ausgew<65>hlt, dann diesen in <20>berschrift anzeigen
If Standort <> "" Then
lblStandort.Visible = True
lblStandort.Text = "Grenzstelle: " & Standort
End If
'falls Standort ausgew<65>hlt, dann diesen in <20>berschrift anzeigen
If Standort <> "" Then
lblStandort.Visible = True
lblStandort.Text = "Grenzstelle: " & Standort
End If
lblAuswahl.Text = Auswahl
lblAuswahl.Text = Auswahl
Me.DataSource = AvisoDAL.loadDataTableBySQL(SQL)
End Sub
End Sub
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
dummycount = dummycount + 1
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
dummycount = dummycount + 1
Dim hStatus As Integer = VarToInt(Fields.Item("Status").Value)
Dim hStatus As Integer = VarToInt(Fields.Item("Status").Value)
txtLKW.Text = VarToStr(Fields.Item("LKW_Nr").Value)
txtAngelegt.Text = Format(CDate(Fields.Item("Datum").Value), "dd.MM.yy HH:mm")
Dim hDatum As Date = CDate(Fields.Item("AvisoEingang").Value)
If hDatum <> LeerDatum Then
txtEingelangt.Text = Format(CDate(Fields.Item("AvisoEingang").Value), "dd.MM.yy HH:mm")
Else
txtEingelangt.Text = ""
End If
txtFraechter.Text = "F:" & VarToStr(Fields.Item("Fr<EFBFBD>chter").Value)
txtAuftraggeber.Text = "A:" & VarToStr(Fields.Item("Auftraggeber").Value)
txtLKW.Text = VarToStr(Fields.Item("LKW_Nr").Value)
txtAngelegt.Text = Format(CDate(Fields.Item("Datum").Value), "dd.MM.yy HH:mm")
Dim hDatum As Date = CDate(Fields.Item("AvisoEingang").Value)
If hDatum <> LeerDatum Then
txtEingelangt.Text = Format(CDate(Fields.Item("AvisoEingang").Value), "dd.MM.yy HH:mm")
Else
txtEingelangt.Text = ""
End If
txtFraechter.Text = "F:" & VarToStr(Fields.Item("Fr<EFBFBD>chter").Value)
txtAuftraggeber.Text = "A:" & VarToStr(Fields.Item("Auftraggeber").Value)
txtAnkunft.Text = ""
If IsDate(Fields.Item("Ankunft")) Then

View File

@@ -135,7 +135,7 @@ Partial Public Class rptLKWBericht
Me.Picture1.DataField = ""
Me.Picture1.Height = 0.5840001!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 4.875197!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -376,7 +376,7 @@ Partial Public Class rptTicketLKW
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.69291!
Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.A4
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
Me.PageSettings.PaperWidth = 8.267716!
Me.PrintWidth = 10.98425!
Me.ScriptLanguage = "VB.NET"

View File

@@ -67,7 +67,7 @@ Partial Public Class rptTicketLKWInfo
Me.Picture1.DataField = ""
Me.Picture1.Height = 0.7295276!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 3.482677!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -173,7 +173,7 @@ Partial Public Class rptTicketLKWInfo
'
Me.Picture2.Height = 0.8543308!
Me.Picture2.HyperLink = Nothing
Me.Picture2.ImageData = CType(resources.GetObject("Picture2.ImageData"), System.IO.Stream)
Me.Picture2.ImageBase64String = resources.GetString("Picture2.ImageBase64String")
Me.Picture2.Left = 5.951576!
Me.Picture2.Name = "Picture2"
Me.Picture2.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -184,7 +184,7 @@ Partial Public Class rptTicketLKWInfo
'
Me.Picture3.Height = 0.8543305!
Me.Picture3.HyperLink = Nothing
Me.Picture3.ImageData = CType(resources.GetObject("Picture3.ImageData"), System.IO.Stream)
Me.Picture3.ImageBase64String = resources.GetString("Picture3.ImageBase64String")
Me.Picture3.Left = 0.07283465!
Me.Picture3.Name = "Picture3"
Me.Picture3.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -0,0 +1,407 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
<ProductVersion>
</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}</ProjectGuid>
<OutputType>Library</OutputType>
<StartupObject>
</StartupObject>
<RootNamespace>Gemeinsames</RootNamespace>
<AssemblyName>Gemeinsames</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>1</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Gemeinsames.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
<PlatformTarget>x86</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Gemeinsames.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>On</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>E1277E3EC64E394A66EC726E5057325CDF3A52E3</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>Gemeinsames_TemporaryKey.pfx</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>true</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<PlatformTarget>AnyCPU</PlatformTarget>
<OutputPath>bin\Debug\</OutputPath>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<PlatformTarget>x64</PlatformTarget>
<OutputPath>bin\Release\</OutputPath>
</PropertyGroup>
<PropertyGroup>
<SignAssembly>false</SignAssembly>
</PropertyGroup>
<PropertyGroup>
<AssemblyOriginatorKeyFile>Gemeinsames_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\BouncyCastle.Cryptography.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Imaging">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\DS.Documents.Imaging.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Pdf">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\DS.Documents.Pdf.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Chart, Version=18.0.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Chart.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.DataProviders.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders.Excel">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.DataProviders.Excel.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Document.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gc, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Document.Drawing.Gc.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gdi, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Document.Drawing.Gdi.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gc">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Drawing.Gc.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gdi">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Drawing.Gdi.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Section">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Export.Pdf.Section.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Rdl">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Rdl.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Rendering, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Rendering.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Scripting">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Scripting.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Design.Win, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Design.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Excel, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Export.Excel.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Pdf, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Export.Pdf.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Word, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Export.Word.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Common, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Viewer.Common.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Win, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Viewer.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Win">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.DataEngine, Version=4.0.0.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.Data.DataEngine.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.ExpressionInfo">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.Data.ExpressionInfo.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=8.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.8.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.0.0\lib\net461\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.Serialization.Formatters.Soap" />
<Reference Include="System.Security" />
<Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll</HintPath>
</Reference>
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="cReportExportierer.vb" />
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="frmGrayOut.Designer.vb">
<DependentUpon>frmGrayOut.vb</DependentUpon>
</Compile>
<Compile Include="frmGrayOut.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="MyListItem.vb" />
<Compile Include="rptSendungenATILLA.Designer.vb">
<DependentUpon>rptSendungenATILLA.vb</DependentUpon>
</Compile>
<Compile Include="rptSendungenATILLA.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="rptSendungen.Designer.vb">
<DependentUpon>rptSendungen.vb</DependentUpon>
</Compile>
<Compile Include="rptSendungen.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenATA.Designer.vb">
<DependentUpon>subRptSendungenATA.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenATA.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenVorkosten.Designer.vb">
<DependentUpon>subRptSendungenVorkosten.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenVorkosten.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenZollpruefung.Designer.vb">
<DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenZollpruefung.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenOfferte.Designer.vb">
<DependentUpon>subRptSendungenOfferte.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenOfferte.vb">
<SubType>Component</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmGrayOut.resx">
<DependentUpon>frmGrayOut.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="rptSendungenATILLA.resx">
<DependentUpon>rptSendungenATILLA.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="rptSendungen.resx">
<DependentUpon>rptSendungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenATA.resx">
<DependentUpon>subRptSendungenATA.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenVorkosten.resx">
<DependentUpon>subRptSendungenVorkosten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenZollpruefung.resx">
<DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenOfferte.resx">
<DependentUpon>subRptSendungenOfferte.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="App.config" />
<None Include="Gemeinsames_TemporaryKey.pfx" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<None Include="packages.config" />
<None Include="PrivateCodeSignaturDaniel20240131.pfx" />
<None Include="Resources\Versionsinfo.txt" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Aviso.ico" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\road.jpg" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.5">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.5 %28x86 and x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<None Include="Resources\WAI.png" />
<None Include="Resources\QS.png" />
<None Include="Resources\NKD.png" />
<None Include="Resources\LEX.png" />
<None Include="Resources\SBG.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\SUB.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\UNISPED.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\IMEX.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\AMB.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
</ItemGroup>
<ItemGroup>
<Content Include="Resources\FO.png" />
<Content Include="Resources\VERIMEX.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
<Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
<Name>DAKOSY_Worker_lib</Name>
</ProjectReference>
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,356 @@
Public Class rptSendungen
Public VALUES As New rptSendungenValues
Public imgPath As String
Public ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
Public HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing
Public VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing
Sub New()
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.Document.Printer.PrinterName = ""
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
InitializeComponent()
Me.Document.Printer.PrinterName = ""
Me.VALUES = VALUES
Me.imgPath = imgPath
Me.ZOLLANMELDUNG = ZOLLANMELDUNG
Me.HANDLING = HANDLING
Me.VORKOSTEN = VORKOSTEN
init()
End Sub
Public Sub init()
txtAbfertigungsart.Text = VALUES.Abfertigungsart
txtTarifposanzahl.Text = VALUES.Tarifposanzahl
txtFilialeNr.Text = VALUES.FilialeNr
txtAbfertigungsnummer.Text = VALUES.Abfertigungsnummer
txtAvisierer_Firma.Text = VALUES.Avisierer_Firma
txtAvisierer_KdNr.Text = VALUES.Avisierer_KdNr
txtAuftraggeber_Firma.Text = VALUES.Auftraggeber_Firma
txtAuftraggeber_KdNr.Text = VALUES.Auftraggeber_KdNr
txtEmpfaenger_Firma.Text = VALUES.Empfaenger_Firma
txtEmpfaenger_KdNr.Text = VALUES.Empfaenger_KdNr
txtAbsender_Firma.Text = VALUES.Absender_Firma
txtAbsender_KdNr.Text = VALUES.Absender_KdNr
txtFrachtfuehrer_Firma.Text = VALUES.Frachtfuehrer_Firma
txtFrachtfuehrer_KdNr.Text = VALUES.Frachtfuehrer_KdNr
txtAvisierer_Zoll.Text = VALUES.Avisierer_Zoll
txtAvisierer_Eust.Text = VALUES.Avisierer_Eust
txtAvisierer_Abf.Text = VALUES.Avisierer_Abf
txtAvisierer_Clear.Text = VALUES.Avisierer_Clear
txtAuftraggeber_Zoll.Text = VALUES.Auftraggeber_Zoll
txtAuftraggeber_Eust.Text = VALUES.Auftraggeber_Eust
txtAuftraggeber_Abf.Text = VALUES.Auftraggeber_Abf
txtAuftraggeber_Clear.Text = VALUES.Auftraggeber_Clear
txtEmpfaenger_Zoll.Text = VALUES.Empfaenger_Zoll
txtEmpfaenger_Eust.Text = VALUES.Empfaenger_Eust
txtEmpfaenger_Abf.Text = VALUES.Empfaenger_Abf
txtEmpfaenger_Clear.Text = VALUES.Empfaenger_Clear
txtAbsender_Zoll.Text = VALUES.Absender_Zoll
txtAbsender_Eust.Text = VALUES.Absender_Eust
txtAbsender_Abf.Text = VALUES.Absender_Abf
txtAbsender_Clear.Text = VALUES.Absender_Clear
txtFrachtfuehrer_Zoll.Text = VALUES.Frachtfuehrer_Zoll
txtFrachtfuehrer_Eust.Text = VALUES.Frachtfuehrer_Eust
txtFrachtfuehrer_Abf.Text = VALUES.Frachtfuehrer_Abf
txtFrachtfuehrer_Clear.Text = VALUES.Frachtfuehrer_Clear
txtAvisierer_Leistung1.Text = VALUES.Avisierer_Leistung1
txtAvisierer_Betrag1.Text = VALUES.Avisierer_Betrag1
txtAvisierer_Leistung2.Text = VALUES.Avisierer_Leistung2
txtAvisierer_Betrag2.Text = VALUES.Avisierer_Betrag2
txtAvisierer_Leistung3.Text = VALUES.Avisierer_Leistung3
txtAvisierer_Betrag3.Text = VALUES.Avisierer_Betrag3
txtAuftraggeber_Leistung1.Text = VALUES.Auftraggeber_Leistung1
txtAuftraggeber_Betrag.Text = VALUES.Auftraggeber_Betrag
txtAuftraggeber_Leistung2.Text = VALUES.Auftraggeber_Leistung2
txtAuftraggeber_Betrag2.Text = VALUES.Auftraggeber_Betrag2
txtAuftraggeber_Leistung3.Text = VALUES.Auftraggeber_Leistung3
txtAuftraggeber_Betrag3.Text = VALUES.Auftraggeber_Betrag3
txtKdAuftrNr.Text = VALUES.KdAuftrNr
txtEmpfaenger_Leistung1.Text = VALUES.Empfaenger_Leistung1
txtEmpfaenger_Betrag1.Text = VALUES.Empfaenger_Betrag1
txtEmpfaenger_Leistung2.Text = VALUES.Empfaenger_Leistung2
txtEmpfaenger_Betrag2.Text = VALUES.Empfaenger_Betrag2
txtEmpfaenger_Leistung3.Text = VALUES.Empfaenger_Leistung3
txtEmpfaenger_Betrag3.Text = VALUES.Empfaenger_Betrag3
txtAbsender_Leistung1.Text = VALUES.Absender_Leistung1
txtAbsender_Betrag1.Text = VALUES.Absender_Betrag1
txtAbsender_Leistung2.Text = VALUES.Absender_Leistung2
txtAbsender_Betrag2.Text = VALUES.Absender_Betrag2
txtAbsender_Leistung3.Text = VALUES.Absender_Leistung3
txtAbsender_Betrag3.Text = VALUES.Absender_Betrag3
txtFrachtfuehrer_Leistung1.Text = VALUES.Frachtfuehrer_Leistung1
txtFrachtfuehrer_Betrag1.Text = VALUES.Frachtfuehrer_Betrag1
txtFrachtfuehrer_Leistung2.Text = VALUES.Frachtfuehrer_Leistung2
txtFrachtfuehrer_Betrag2.Text = VALUES.Frachtfuehrer_Betrag2
txtFrachtfuehrer_Leistung3.Text = VALUES.Frachtfuehrer_Leistung3
txtFrachtfuehrer_Betrag3.Text = VALUES.Frachtfuehrer_Betrag3
txtFrachtfuehrer_Bar_BelegNr.Text = VALUES.Frachtfuehrer_Bar_BelegNr
txtFrachtfuehrer_Bar_Betrag.Text = VALUES.Frachtfuehrer_Bar_Betrag
txtFrachtfuehrer_Bar_BelegNr2.Text = VALUES.Frachtfuehrer_Bar_BelegNr2
txtFrachtfuehrer_Bar_Betrag2.Text = VALUES.Frachtfuehrer_Bar_Betrag2
txtFrachtfuehrer_Bar_BelegNr3.Text = VALUES.Frachtfuehrer_Bar_BelegNr3
txtFrachtfuehrer_Bar_Betrag3.Text = VALUES.Frachtfuehrer_Bar_Betrag3
txtAvisierer_eigBin.Text = VALUES.Avisierer_eigBin
txtAuftraggeber_eigBin.Text = VALUES.Auftraggeber_eigBin
txtEmpfaenger_eigBIN.Text = VALUES.Empfaenger_eigBIN
txtAbsender_eigBIN.Text = VALUES.Absender_eigBIN
txtFrachtfuehrer_eigBIN.Text = VALUES.Frachtfuehrer_eigBIN
txtAvisierer_VK.Text = VALUES.Avisierer_VK
txtAuftraggeber_VK.Text = VALUES.Auftraggeber_VK
txtEmpfaenger_VK.Text = VALUES.Empfaenger_VK
txtAbsender_VK.Text = VALUES.Absender_VK
txtFrachtfuehrer_VK.Text = VALUES.Frachtfuehrer_VK
txtLKWKennzeichen.Text = VALUES.LKWKennzeichen
txtAnkunft.Text = VALUES.Ankunft
txtAbfahrt.Text = VALUES.Abfahrt
txtWarenbezeichnung.Text = VALUES.Warenbezeichnung
txtColli.Text = VALUES.Colli
txtGewicht.Text = VALUES.Gewicht
txtAufschub_VERAG.Text = VALUES.Aufschub_VERAG
' rtbAbfKost.Text = VALUES.AbfKost--> Mit Sub Report gel<65>st
txtDokZuSend_Ueberschrift.Text = VALUES.DokZuSend_Ueberschrift
txtDokZuSend_Text.Text = VALUES.DokZuSend_Text
txtAnmerkungen.Text = VALUES.Anmerkungen
txtBARzuKassieren.Text = VALUES.BARzuKassieren
txtEmpfaenger_EUSTKto.Text = VALUES.Empfaenger_EUSTKto
txtAuftraggeber_EUSTKto.Text = VALUES.Auftraggeber_EUSTKto
txtAuftraggeber_ZOLLKto.Text = VALUES.Auftraggeber_ZOLLKto
txtEmpfaenger_ZOLLKto.Text = VALUES.Empfaenger_ZOLLKto
cbxDyUebermittelt.Checked = VALUES.DyUebermittelt
TextBox3.Text = "Abkl.: " & VALUES.QS_MA & vbNewLine & "Dekl.: " & VALUES.VG_MA
If VALUES.Grenze.Trim <> "" Then
lblGrenze.Visible = True
shGrenze.Visible = True
txtGrenze.Visible = True
txtGrenze.Text = VALUES.Grenze.Replace("???", "")
Else
lblGrenze.Visible = False
shGrenze.Visible = False
txtGrenze.Visible = False
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATK_DY_UEBERMITTELT") Then
cbxDyUebermittelt.Visible = True
End If
If VALUES.SchnellAbfertigung Then
txtSchnellAbfertigung.Visible = True
End If
Select Case VALUES.ABF_ART
Case 5, 6, 18, 32, 24, 33, 34, 37, 40, 42
txtNCTSVZAdr.Visible = True
lblNCTSVZAdr.Visible = True
txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr
lblNCTSVZAdr.Text = "NCTS" & vbNewLine & "Gest.-Adr.:"
Case 7
txtNCTSVZAdr.Visible = True
lblNCTSVZAdr.Visible = True
txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr
lblNCTSVZAdr.Text = "Amtsplatz/" & vbNewLine & "Zollstopp:"
Case 26, 28
txtNCTSVZAdr.Visible = True
lblNCTSVZAdr.Visible = True
txtNCTSVZAdr.Text = VALUES.FISKAL_ENDEMPF
lblNCTSVZAdr.Text = "Fiskal" & vbNewLine & "EndEmpf.:"
End Select
If barcodeLKW IsNot Nothing Then
If VALUES.barcodeLKW IsNot Nothing Then
barcodeLKW.Image = If(VALUES.barcodeLKW, Nothing)
End If
End If
barcodeSendung.Image = If(VALUES.barcodeSendung, Nothing)
' picQR.Image = If(VALUES.imgQR, Nothing)
If picQR IsNot Nothing Then
If VALUES.imgQR IsNot Nothing Then
picQR.Image = If(VALUES.imgQR, Nothing)
End If
End If
'OFFERTE!
If False Then
If VALUES.AbfKostKdnr > 0 Then
Dim s = New subRptSendungenOfferte(VALUES.ABF_ART, VALUES.AbfKostKdnr)
SubReport.Report = s
End If
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
Dim s = New subRptSendungenVorkosten(VORKOSTEN)
SubReport.Report = s
Else
If ZOLLANMELDUNG IsNot Nothing Then
Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
SubReport.Report = s
ElseIf HANDLING IsNot Nothing Then
Dim s = New subRptSendungenATA(HANDLING)
SubReport.Report = s
End If
End If
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
' Dim fs As New System.IO.FileStream(imgPath, System.IO.FileMode.Open, System.IO.FileAccess.Read)
' Dim bm As New Bitmap(System.Drawing.Image.FromStream(fs))
Dim bm As New Bitmap(imgPath)
Me.Picture.Image = bm
' fs.Close()
End Sub
Private Sub rptSendungen_PageStart(sender As Object, e As EventArgs) Handles Me.PageStart
' Me.Document.CacheToDisk = True
End Sub
Private Sub rptSendungen_ReportEnd(sender As Object, e As EventArgs) Handles Me.ReportEnd
GC.Collect()
End Sub
Private Sub rptSendungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Me.Document.Printer.PrinterName = ""
End Sub
End Class
Public Class rptSendungenValues
Property Abfertigungsart As String = ""
Property Tarifposanzahl As String = ""
Property FilialeNr As String = ""
Property Abfertigungsnummer As String = ""
Property Avisierer_Firma As String = ""
Property Avisierer_KdNr As String = ""
Property Auftraggeber_Firma As String = ""
Property Auftraggeber_KdNr As String = ""
Property Empfaenger_Firma As String = ""
Property Empfaenger_KdNr As String = ""
Property Absender_Firma As String = ""
Property Absender_KdNr As String = ""
Property Frachtfuehrer_Firma As String = ""
Property Frachtfuehrer_KdNr As String = ""
Property Avisierer_Zoll As String = ""
Property Avisierer_Eust As String = ""
Property Avisierer_Abf As String = ""
Property Avisierer_Clear As String = ""
Property Auftraggeber_Zoll As String = ""
Property Auftraggeber_Eust As String = ""
Property Auftraggeber_Abf As String = ""
Property Auftraggeber_Clear As String = ""
Property Empfaenger_Zoll As String = ""
Property Empfaenger_Eust As String = ""
Property Empfaenger_Abf As String = ""
Property Empfaenger_Clear As String = ""
Property Absender_Zoll As String = ""
Property Absender_Eust As String = ""
Property Absender_Abf As String = ""
Property Absender_Clear As String = ""
Property Frachtfuehrer_Zoll As String = ""
Property Frachtfuehrer_Eust As String = ""
Property Frachtfuehrer_Abf As String = ""
Property Frachtfuehrer_Clear As String = ""
Property Avisierer_Leistung1 As String = ""
Property Avisierer_Betrag1 As String = ""
Property Avisierer_Leistung2 As String = ""
Property Avisierer_Betrag2 As String = ""
Property Avisierer_Leistung3 As String = ""
Property Avisierer_Betrag3 As String = ""
Property Auftraggeber_Leistung1 As String = ""
Property Auftraggeber_Betrag As String = ""
Property Auftraggeber_Leistung2 As String = ""
Property Auftraggeber_Betrag2 As String = ""
Property Auftraggeber_Leistung3 As String = ""
Property Auftraggeber_Betrag3 As String = ""
Property KdAuftrNr As String = ""
Property Empfaenger_Leistung1 As String = ""
Property Empfaenger_Betrag1 As String = ""
Property Empfaenger_Leistung2 As String = ""
Property Empfaenger_Betrag2 As String = ""
Property Empfaenger_Leistung3 As String = ""
Property Empfaenger_Betrag3 As String = ""
Property Absender_Leistung1 As String = ""
Property Absender_Betrag1 As String = ""
Property Absender_Leistung2 As String = ""
Property Absender_Betrag2 As String = ""
Property Absender_Leistung3 As String = ""
Property Absender_Betrag3 As String = ""
Property Frachtfuehrer_Leistung1 As String = ""
Property Frachtfuehrer_Betrag1 As String = ""
Property Frachtfuehrer_Leistung2 As String = ""
Property Frachtfuehrer_Betrag2 As String = ""
Property Frachtfuehrer_Leistung3 As String = ""
Property Frachtfuehrer_Betrag3 As String = ""
Property Frachtfuehrer_Bar_BelegNr As String = ""
Property Frachtfuehrer_Bar_Betrag As String = ""
Property Frachtfuehrer_Bar_BelegNr2 As String = ""
Property Frachtfuehrer_Bar_Betrag2 As String = ""
Property Frachtfuehrer_Bar_BelegNr3 As String = ""
Property Frachtfuehrer_Bar_Betrag3 As String = ""
Property Avisierer_eigBin As String = ""
Property Auftraggeber_eigBin As String = ""
Property Empfaenger_eigBIN As String = ""
Property Absender_eigBIN As String = ""
Property Frachtfuehrer_eigBIN As String = ""
Property Avisierer_VK As String = ""
Property Auftraggeber_VK As String = ""
Property Empfaenger_VK As String = ""
Property Absender_VK As String = ""
Property Frachtfuehrer_VK As String = ""
Property LKWKennzeichen As String = ""
Property Ankunft As String = ""
Property Abfahrt As String = ""
Property Warenbezeichnung As String = ""
Property Colli As String = ""
Property Gewicht As String = ""
Property Aufschub_VERAG As String = ""
Property DokZuSend_Ueberschrift As String = ""
Property DokZuSend_Text As String = ""
Property Anmerkungen As String = ""
' Property BAR As String = ""
Property BARzuKassieren As String = ""
Property ABTEILUNG As String = ""
Property NCTS_VZAdr As String = ""
Property FISKAL_ENDEMPF As String = ""
Property ABF_ART As Integer = -1
Property barcodeLKW As Image = Nothing
Property barcodeSendung As Image = Nothing
Property imgQR As Image = Nothing
Property AbfKost As String = ""
Property AbfKostKdnr As Integer = -1
Property Empfaenger_EUSTKto As String = ""
Property Auftraggeber_EUSTKto As String = ""
Property Empfaenger_ZOLLKto As String = ""
Property Auftraggeber_ZOLLKto As String = ""
Property Grenze As String = ""
Property DyUebermittelt As Boolean = False
Property SchnellAbfertigung As Boolean = False
Property VG_MA As String = ""
Property QS_MA As String = ""
End Class

View File

@@ -0,0 +1,885 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSendungenATILLA
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(rptSendungenATILLA))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Picture = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtAnmerkungen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFilialeNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbfertigungsnummer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Firma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_KdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisierer_Firma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisierer_KdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeber_Firma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeber_KdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_BelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_Betrag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLKWKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbfahrt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWarenbezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeLKW = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeSendung = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtIRAN_CMR_Agent = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.txtFrachtfuehrer_Bar_BelegNr2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_Betrag2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_BelegNr3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_Betrag3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLkwId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTransportTemp = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.cbxZugMaschine = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.cbxTransportTemp = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAndereAusgangsstelle = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZugMaschine = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.Picture, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnmerkungen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFilialeNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Firma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_KdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisierer_Firma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisierer_KdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeber_Firma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeber_KdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLKWKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeSendung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtIRAN_CMR_Agent, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLkwId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTransportTemp, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxZugMaschine, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxTransportTemp, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAndereAusgangsstelle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZugMaschine, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.CanGrow = False
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture, Me.txtAnmerkungen, Me.txtFilialeNr, Me.txtAbfertigungsnummer, Me.txtFrachtfuehrer_Firma, Me.txtFrachtfuehrer_KdNr, Me.txtAvisierer_Firma, Me.txtAvisierer_KdNr, Me.txtAuftraggeber_Firma, Me.txtAuftraggeber_KdNr, Me.txtFrachtfuehrer_Bar_BelegNr, Me.txtFrachtfuehrer_Bar_Betrag, Me.txtLKWKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtWarenbezeichnung, Me.txtColli, Me.txtGewicht, Me.barcodeLKW, Me.TextBox1, Me.barcodeSendung, Me.TextBox2, Me.txtIRAN_CMR_Agent, Me.SubReport, Me.txtFrachtfuehrer_Bar_BelegNr2, Me.txtFrachtfuehrer_Bar_Betrag2, Me.txtFrachtfuehrer_Bar_BelegNr3, Me.txtFrachtfuehrer_Bar_Betrag3, Me.txtLkwId, Me.txtAusgangsZst_1, Me.txtAusgangsZst_5, Me.txtZA_1, Me.txtZA_2, Me.txtZA_3, Me.txtZA_4, Me.txtZA_5, Me.txtAusgangsZst_2, Me.txtAusgangsZst_3, Me.txtAusgangsZst_4, Me.txtAusgangsZst_6, Me.txtAusgangsZst_9, Me.txtAusgangsZst_7, Me.txtAusgangsZst_8, Me.txtTransportTemp, Me.cbxZugMaschine, Me.cbxTransportTemp, Me.txtAndereAusgangsstelle, Me.txtZugMaschine})
Me.Detail.Height = 11.69291!
Me.Detail.Name = "Detail"
'
'Picture
'
Me.Picture.Height = 11.69291!
Me.Picture.HyperLink = Nothing
Me.Picture.ImageData = CType(resources.GetObject("Picture.ImageData"), System.IO.Stream)
Me.Picture.Left = 0.0000004768372!
Me.Picture.Name = "Picture"
Me.Picture.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture.Top = 0.0!
Me.Picture.Width = 8.267716!
'
'txtAnmerkungen
'
Me.txtAnmerkungen.CanGrow = False
Me.txtAnmerkungen.DistinctField = ""
Me.txtAnmerkungen.Height = 3.740552!
Me.txtAnmerkungen.Left = 5.187402!
Me.txtAnmerkungen.Name = "txtAnmerkungen"
Me.txtAnmerkungen.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAnmerkungen.Style = "color: Black; font-size: 16pt; font-weight: normal; text-decoration: none; text-j" & _
"ustify: auto; vertical-align: top; ddo-char-set: 1; ddo-font-vertical: none; ddo" & _
"-shrink-to-fit: none"
Me.txtAnmerkungen.SummaryGroup = ""
Me.txtAnmerkungen.Text = "Zu sendende Dokumente:"
Me.txtAnmerkungen.Top = 2.337795!
Me.txtAnmerkungen.Width = 2.69567!
'
'txtFilialeNr
'
Me.txtFilialeNr.CanGrow = False
Me.txtFilialeNr.Height = 0.2937008!
Me.txtFilialeNr.Left = 5.11811!
Me.txtFilialeNr.Name = "txtFilialeNr"
Me.txtFilialeNr.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle; ddo-char-set: 1"
Me.txtFilialeNr.Text = "4801"
Me.txtFilialeNr.Top = 0.3811024!
Me.txtFilialeNr.Width = 0.7708666!
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer.CanGrow = False
Me.txtAbfertigungsnummer.Height = 0.2937008!
Me.txtAbfertigungsnummer.Left = 5.659843!
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle; ddo-char-set: 1"
Me.txtAbfertigungsnummer.Text = "17000000"
Me.txtAbfertigungsnummer.Top = 0.3811024!
Me.txtAbfertigungsnummer.Width = 2.364567!
'
'txtFrachtfuehrer_Firma
'
Me.txtFrachtfuehrer_Firma.CanGrow = False
Me.txtFrachtfuehrer_Firma.Height = 0.5641732!
Me.txtFrachtfuehrer_Firma.Left = 1.162597!
Me.txtFrachtfuehrer_Firma.Name = "txtFrachtfuehrer_Firma"
Me.txtFrachtfuehrer_Firma.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtFrachtfuehrer_Firma.Text = "TESTFIRMA"
Me.txtFrachtfuehrer_Firma.Top = 1.444488!
Me.txtFrachtfuehrer_Firma.Width = 3.854725!
'
'txtFrachtfuehrer_KdNr
'
Me.txtFrachtfuehrer_KdNr.CanGrow = False
Me.txtFrachtfuehrer_KdNr.Height = 0.1795275!
Me.txtFrachtfuehrer_KdNr.Left = 3.780314!
Me.txtFrachtfuehrer_KdNr.Name = "txtFrachtfuehrer_KdNr"
Me.txtFrachtfuehrer_KdNr.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtFrachtfuehrer_KdNr.Text = "123456"
Me.txtFrachtfuehrer_KdNr.Top = 1.264961!
Me.txtFrachtfuehrer_KdNr.Width = 1.237008!
'
'txtAvisierer_Firma
'
Me.txtAvisierer_Firma.CanGrow = False
Me.txtAvisierer_Firma.Height = 0.5641732!
Me.txtAvisierer_Firma.Left = 1.162598!
Me.txtAvisierer_Firma.Name = "txtAvisierer_Firma"
Me.txtAvisierer_Firma.Style = "font-size: 12pt; ddo-char-set: 1"
Me.txtAvisierer_Firma.Text = "TESTFIRMA"
Me.txtAvisierer_Firma.Top = 2.235039!
Me.txtAvisierer_Firma.Width = 3.854725!
'
'txtAvisierer_KdNr
'
Me.txtAvisierer_KdNr.CanGrow = False
Me.txtAvisierer_KdNr.Height = 0.1795275!
Me.txtAvisierer_KdNr.Left = 3.780315!
Me.txtAvisierer_KdNr.Name = "txtAvisierer_KdNr"
Me.txtAvisierer_KdNr.Style = "font-size: 12pt; ddo-char-set: 1"
Me.txtAvisierer_KdNr.Text = "123456"
Me.txtAvisierer_KdNr.Top = 2.047638!
Me.txtAvisierer_KdNr.Width = 1.237008!
'
'txtAuftraggeber_Firma
'
Me.txtAuftraggeber_Firma.CanGrow = False
Me.txtAuftraggeber_Firma.Height = 0.5641732!
Me.txtAuftraggeber_Firma.Left = 1.162598!
Me.txtAuftraggeber_Firma.Name = "txtAuftraggeber_Firma"
Me.txtAuftraggeber_Firma.Style = "font-size: 12pt; font-weight: normal; ddo-char-set: 1"
Me.txtAuftraggeber_Firma.Text = "TESTFIRMA"
Me.txtAuftraggeber_Firma.Top = 3.026772!
Me.txtAuftraggeber_Firma.Width = 3.854725!
'
'txtAuftraggeber_KdNr
'
Me.txtAuftraggeber_KdNr.CanGrow = False
Me.txtAuftraggeber_KdNr.Height = 0.1795275!
Me.txtAuftraggeber_KdNr.Left = 3.780315!
Me.txtAuftraggeber_KdNr.Name = "txtAuftraggeber_KdNr"
Me.txtAuftraggeber_KdNr.Style = "font-size: 12pt; font-weight: normal; ddo-char-set: 1"
Me.txtAuftraggeber_KdNr.Text = "123456"
Me.txtAuftraggeber_KdNr.Top = 2.843308!
Me.txtAuftraggeber_KdNr.Width = 1.237008!
'
'txtFrachtfuehrer_Bar_BelegNr
'
Me.txtFrachtfuehrer_Bar_BelegNr.CanGrow = False
Me.txtFrachtfuehrer_Bar_BelegNr.DistinctField = ""
Me.txtFrachtfuehrer_Bar_BelegNr.Height = 0.2755905!
Me.txtFrachtfuehrer_Bar_BelegNr.Left = 5.118111!
Me.txtFrachtfuehrer_Bar_BelegNr.Name = "txtFrachtfuehrer_Bar_BelegNr"
Me.txtFrachtfuehrer_Bar_BelegNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtFrachtfuehrer_Bar_BelegNr.Style = resources.GetString("txtFrachtfuehrer_Bar_BelegNr.Style")
Me.txtFrachtfuehrer_Bar_BelegNr.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_BelegNr.Text = "TEST"
Me.txtFrachtfuehrer_Bar_BelegNr.Top = 1.475984!
Me.txtFrachtfuehrer_Bar_BelegNr.Width = 1.574803!
'
'txtFrachtfuehrer_Bar_Betrag
'
Me.txtFrachtfuehrer_Bar_Betrag.CanGrow = False
Me.txtFrachtfuehrer_Bar_Betrag.DistinctField = ""
Me.txtFrachtfuehrer_Bar_Betrag.Height = 0.2755905!
Me.txtFrachtfuehrer_Bar_Betrag.Left = 6.692914!
Me.txtFrachtfuehrer_Bar_Betrag.Name = "txtFrachtfuehrer_Bar_Betrag"
Me.txtFrachtfuehrer_Bar_Betrag.Style = resources.GetString("txtFrachtfuehrer_Bar_Betrag.Style")
Me.txtFrachtfuehrer_Bar_Betrag.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_Betrag.Text = "0"
Me.txtFrachtfuehrer_Bar_Betrag.Top = 1.475984!
Me.txtFrachtfuehrer_Bar_Betrag.Width = 1.259842!
'
'txtLKWKennzeichen
'
Me.txtLKWKennzeichen.CanGrow = False
Me.txtLKWKennzeichen.DistinctField = ""
Me.txtLKWKennzeichen.Height = 0.5877953!
Me.txtLKWKennzeichen.Left = 0.8543308!
Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen"
Me.txtLKWKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtLKWKennzeichen.Style = "color: Black; font-size: 16pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtLKWKennzeichen.SummaryGroup = ""
Me.txtLKWKennzeichen.Text = "34 TR 45454"
Me.txtLKWKennzeichen.Top = 0.2334646!
Me.txtLKWKennzeichen.Width = 2.359054!
'
'txtAnkunft
'
Me.txtAnkunft.CanGrow = False
Me.txtAnkunft.DistinctField = ""
Me.txtAnkunft.Height = 0.1574803!
Me.txtAnkunft.Left = 3.780315!
Me.txtAnkunft.Name = "txtAnkunft"
Me.txtAnkunft.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAnkunft.Style = resources.GetString("txtAnkunft.Style")
Me.txtAnkunft.SummaryGroup = ""
Me.txtAnkunft.Text = "01.01.17 00:00"
Me.txtAnkunft.Top = 0.6244095!
Me.txtAnkunft.Width = 1.237008!
'
'txtAbfahrt
'
Me.txtAbfahrt.CanGrow = False
Me.txtAbfahrt.DistinctField = ""
Me.txtAbfahrt.Height = 0.1574803!
Me.txtAbfahrt.Left = 3.780315!
Me.txtAbfahrt.Name = "txtAbfahrt"
Me.txtAbfahrt.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAbfahrt.Style = resources.GetString("txtAbfahrt.Style")
Me.txtAbfahrt.SummaryGroup = ""
Me.txtAbfahrt.Text = "01.01.17 00:00"
Me.txtAbfahrt.Top = 0.7937009!
Me.txtAbfahrt.Width = 1.237008!
'
'txtWarenbezeichnung
'
Me.txtWarenbezeichnung.CanGrow = False
Me.txtWarenbezeichnung.DistinctField = ""
Me.txtWarenbezeichnung.Height = 0.395276!
Me.txtWarenbezeichnung.Left = 0.642126!
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
Me.txtWarenbezeichnung.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtWarenbezeichnung.Style = resources.GetString("txtWarenbezeichnung.Style")
Me.txtWarenbezeichnung.SummaryGroup = ""
Me.txtWarenbezeichnung.Text = "M<EFBFBD>BEL TEST"
Me.txtWarenbezeichnung.Top = 7.808268!
Me.txtWarenbezeichnung.Width = 4.375197!
'
'txtColli
'
Me.txtColli.CanGrow = False
Me.txtColli.DistinctField = ""
Me.txtColli.Height = 0.3779528!
Me.txtColli.Left = 0.6456693!
Me.txtColli.Name = "txtColli"
Me.txtColli.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtColli.Style = resources.GetString("txtColli.Style")
Me.txtColli.SummaryGroup = ""
Me.txtColli.Text = "0"
Me.txtColli.Top = 8.328741!
Me.txtColli.Width = 2.164567!
'
'txtGewicht
'
Me.txtGewicht.CanGrow = False
Me.txtGewicht.DistinctField = ""
Me.txtGewicht.Height = 0.3779528!
Me.txtGewicht.Left = 2.810236!
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtGewicht.Style = resources.GetString("txtGewicht.Style")
Me.txtGewicht.SummaryGroup = ""
Me.txtGewicht.Text = "0kg"
Me.txtGewicht.Top = 8.328741!
Me.txtGewicht.Width = 2.093307!
'
'barcodeLKW
'
Me.barcodeLKW.Height = 0.2889763!
Me.barcodeLKW.HyperLink = Nothing
Me.barcodeLKW.ImageData = Nothing
Me.barcodeLKW.Left = 0.6421265!
Me.barcodeLKW.Name = "barcodeLKW"
Me.barcodeLKW.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.TopLeft
Me.barcodeLKW.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeLKW.Top = 0.8212597!
Me.barcodeLKW.Width = 2.864567!
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.1334647!
Me.TextBox1.Left = 0.8059056!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 7pt; font-weight: normal; text-justify: auto; vertical-align: middle; " & _
"ddo-char-set: 1"
Me.TextBox1.Text = "Barcode-Scan: Akt <20>bernehmen"
Me.TextBox1.Top = 1.110236!
Me.TextBox1.Width = 2.864567!
'
'barcodeSendung
'
Me.barcodeSendung.Height = 4.96378!
Me.barcodeSendung.HyperLink = Nothing
Me.barcodeSendung.ImageData = Nothing
Me.barcodeSendung.Left = 0.2082682!
Me.barcodeSendung.Name = "barcodeSendung"
Me.barcodeSendung.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.BottomLeft
Me.barcodeSendung.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeSendung.Top = 2.785827!
Me.barcodeSendung.Width = 0.3543307!
'
'TextBox2
'
Me.TextBox2.CanGrow = False
Me.TextBox2.Height = 0.1720467!
Me.TextBox2.Left = 0.6704725!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-size: 7pt; font-weight: normal; text-justify: auto; vertical-align: middle; " & _
"ddo-char-set: 1"
Me.TextBox2.Text = "Barcode-Scan links: Akt <20>bernehmen & Sendung <20>ffnen"
Me.TextBox2.Top = 10.23622!
Me.TextBox2.Visible = False
Me.TextBox2.Width = 0.1838584!
'
'txtIRAN_CMR_Agent
'
Me.txtIRAN_CMR_Agent.Height = 0.5885825!
Me.txtIRAN_CMR_Agent.Left = 0.7480316!
Me.txtIRAN_CMR_Agent.Name = "txtIRAN_CMR_Agent"
Me.txtIRAN_CMR_Agent.Style = "font-size: 10pt; ddo-char-set: 1"
Me.txtIRAN_CMR_Agent.Text = "TESTFIRMA"
Me.txtIRAN_CMR_Agent.Top = 3.788977!
Me.txtIRAN_CMR_Agent.Width = 3.385827!
'
'SubReport
'
Me.SubReport.CanGrow = False
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.4830716!
Me.SubReport.Left = 0.6704725!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 8.98937!
Me.SubReport.Visible = False
Me.SubReport.Width = 3.346457!
'
'txtFrachtfuehrer_Bar_BelegNr2
'
Me.txtFrachtfuehrer_Bar_BelegNr2.CanGrow = False
Me.txtFrachtfuehrer_Bar_BelegNr2.DistinctField = ""
Me.txtFrachtfuehrer_Bar_BelegNr2.Height = 0.2755905!
Me.txtFrachtfuehrer_Bar_BelegNr2.Left = 5.11811!
Me.txtFrachtfuehrer_Bar_BelegNr2.Name = "txtFrachtfuehrer_Bar_BelegNr2"
Me.txtFrachtfuehrer_Bar_BelegNr2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtFrachtfuehrer_Bar_BelegNr2.Style = resources.GetString("txtFrachtfuehrer_Bar_BelegNr2.Style")
Me.txtFrachtfuehrer_Bar_BelegNr2.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_BelegNr2.Text = "TEST"
Me.txtFrachtfuehrer_Bar_BelegNr2.Top = 1.732283!
Me.txtFrachtfuehrer_Bar_BelegNr2.Width = 1.574803!
'
'txtFrachtfuehrer_Bar_Betrag2
'
Me.txtFrachtfuehrer_Bar_Betrag2.CanGrow = False
Me.txtFrachtfuehrer_Bar_Betrag2.DistinctField = ""
Me.txtFrachtfuehrer_Bar_Betrag2.Height = 0.2755905!
Me.txtFrachtfuehrer_Bar_Betrag2.Left = 6.692914!
Me.txtFrachtfuehrer_Bar_Betrag2.Name = "txtFrachtfuehrer_Bar_Betrag2"
Me.txtFrachtfuehrer_Bar_Betrag2.Style = resources.GetString("txtFrachtfuehrer_Bar_Betrag2.Style")
Me.txtFrachtfuehrer_Bar_Betrag2.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_Betrag2.Text = "0"
Me.txtFrachtfuehrer_Bar_Betrag2.Top = 1.732284!
Me.txtFrachtfuehrer_Bar_Betrag2.Width = 1.259843!
'
'txtFrachtfuehrer_Bar_BelegNr3
'
Me.txtFrachtfuehrer_Bar_BelegNr3.CanGrow = False
Me.txtFrachtfuehrer_Bar_BelegNr3.DistinctField = ""
Me.txtFrachtfuehrer_Bar_BelegNr3.Height = 0.242126!
Me.txtFrachtfuehrer_Bar_BelegNr3.Left = 5.118111!
Me.txtFrachtfuehrer_Bar_BelegNr3.Name = "txtFrachtfuehrer_Bar_BelegNr3"
Me.txtFrachtfuehrer_Bar_BelegNr3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtFrachtfuehrer_Bar_BelegNr3.Style = resources.GetString("txtFrachtfuehrer_Bar_BelegNr3.Style")
Me.txtFrachtfuehrer_Bar_BelegNr3.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_BelegNr3.Text = "TEST"
Me.txtFrachtfuehrer_Bar_BelegNr3.Top = 1.952756!
Me.txtFrachtfuehrer_Bar_BelegNr3.Width = 1.574803!
'
'txtFrachtfuehrer_Bar_Betrag3
'
Me.txtFrachtfuehrer_Bar_Betrag3.CanGrow = False
Me.txtFrachtfuehrer_Bar_Betrag3.DistinctField = ""
Me.txtFrachtfuehrer_Bar_Betrag3.Height = 0.242126!
Me.txtFrachtfuehrer_Bar_Betrag3.Left = 6.692914!
Me.txtFrachtfuehrer_Bar_Betrag3.Name = "txtFrachtfuehrer_Bar_Betrag3"
Me.txtFrachtfuehrer_Bar_Betrag3.Style = resources.GetString("txtFrachtfuehrer_Bar_Betrag3.Style")
Me.txtFrachtfuehrer_Bar_Betrag3.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_Betrag3.Text = "0"
Me.txtFrachtfuehrer_Bar_Betrag3.Top = 1.952756!
Me.txtFrachtfuehrer_Bar_Betrag3.Width = 1.259832!
'
'txtLkwId
'
Me.txtLkwId.CanGrow = False
Me.txtLkwId.DistinctField = ""
Me.txtLkwId.Height = 0.1574803!
Me.txtLkwId.Left = 1.308268!
Me.txtLkwId.Name = "txtLkwId"
Me.txtLkwId.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtLkwId.Style = resources.GetString("txtLkwId.Style")
Me.txtLkwId.SummaryGroup = ""
Me.txtLkwId.Text = "1234567"
Me.txtLkwId.Top = 0.6244095!
Me.txtLkwId.Visible = False
Me.txtLkwId.Width = 1.193306!
'
'txtAusgangsZst_1
'
Me.txtAusgangsZst_1.CanGrow = False
Me.txtAusgangsZst_1.DistinctField = ""
Me.txtAusgangsZst_1.Height = 0.1574803!
Me.txtAusgangsZst_1.Left = 0.8543308!
Me.txtAusgangsZst_1.Name = "txtAusgangsZst_1"
Me.txtAusgangsZst_1.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_1.Style = resources.GetString("txtAusgangsZst_1.Style")
Me.txtAusgangsZst_1.SummaryGroup = ""
Me.txtAusgangsZst_1.Text = "X"
Me.txtAusgangsZst_1.Top = 4.589764!
Me.txtAusgangsZst_1.Width = 0.1574803!
'
'txtAusgangsZst_5
'
Me.txtAusgangsZst_5.CanGrow = False
Me.txtAusgangsZst_5.DistinctField = ""
Me.txtAusgangsZst_5.Height = 0.1574803!
Me.txtAusgangsZst_5.Left = 0.8543308!
Me.txtAusgangsZst_5.Name = "txtAusgangsZst_5"
Me.txtAusgangsZst_5.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_5.Style = resources.GetString("txtAusgangsZst_5.Style")
Me.txtAusgangsZst_5.SummaryGroup = ""
Me.txtAusgangsZst_5.Text = "X"
Me.txtAusgangsZst_5.Top = 5.262993!
Me.txtAusgangsZst_5.Width = 0.1574803!
'
'txtZA_1
'
Me.txtZA_1.CanGrow = False
Me.txtZA_1.DistinctField = ""
Me.txtZA_1.Height = 0.2854335!
Me.txtZA_1.Left = 0.9358268!
Me.txtZA_1.Name = "txtZA_1"
Me.txtZA_1.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_1.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_1.SummaryGroup = ""
Me.txtZA_1.Text = "DZST"
Me.txtZA_1.Top = 5.918898!
Me.txtZA_1.Width = 3.967717!
'
'txtZA_2
'
Me.txtZA_2.CanGrow = False
Me.txtZA_2.DistinctField = ""
Me.txtZA_2.Height = 0.2854335!
Me.txtZA_2.Left = 0.9358268!
Me.txtZA_2.Name = "txtZA_2"
Me.txtZA_2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_2.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_2.SummaryGroup = ""
Me.txtZA_2.Text = "DZST"
Me.txtZA_2.Top = 6.246063!
Me.txtZA_2.Width = 3.967717!
'
'txtZA_3
'
Me.txtZA_3.CanGrow = False
Me.txtZA_3.DistinctField = ""
Me.txtZA_3.Height = 0.2854335!
Me.txtZA_3.Left = 0.9358268!
Me.txtZA_3.Name = "txtZA_3"
Me.txtZA_3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_3.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_3.SummaryGroup = ""
Me.txtZA_3.Text = "DZST"
Me.txtZA_3.Top = 6.555119!
Me.txtZA_3.Width = 3.967717!
'
'txtZA_4
'
Me.txtZA_4.CanGrow = False
Me.txtZA_4.DistinctField = ""
Me.txtZA_4.Height = 0.2854335!
Me.txtZA_4.Left = 0.9358268!
Me.txtZA_4.Name = "txtZA_4"
Me.txtZA_4.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_4.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_4.SummaryGroup = ""
Me.txtZA_4.Text = "DZST"
Me.txtZA_4.Top = 6.897244!
Me.txtZA_4.Width = 3.967717!
'
'txtZA_5
'
Me.txtZA_5.CanGrow = False
Me.txtZA_5.DistinctField = ""
Me.txtZA_5.Height = 0.2854335!
Me.txtZA_5.Left = 0.9358268!
Me.txtZA_5.Name = "txtZA_5"
Me.txtZA_5.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_5.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_5.SummaryGroup = ""
Me.txtZA_5.Text = "DZST"
Me.txtZA_5.Top = 7.232284!
Me.txtZA_5.Width = 3.967717!
'
'txtAusgangsZst_2
'
Me.txtAusgangsZst_2.CanGrow = False
Me.txtAusgangsZst_2.DistinctField = ""
Me.txtAusgangsZst_2.Height = 0.1574803!
Me.txtAusgangsZst_2.Left = 0.8543307!
Me.txtAusgangsZst_2.Name = "txtAusgangsZst_2"
Me.txtAusgangsZst_2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_2.Style = resources.GetString("txtAusgangsZst_2.Style")
Me.txtAusgangsZst_2.SummaryGroup = ""
Me.txtAusgangsZst_2.Text = "X"
Me.txtAusgangsZst_2.Top = 4.759054!
Me.txtAusgangsZst_2.Width = 0.1574803!
'
'txtAusgangsZst_3
'
Me.txtAusgangsZst_3.CanGrow = False
Me.txtAusgangsZst_3.DistinctField = ""
Me.txtAusgangsZst_3.Height = 0.1574803!
Me.txtAusgangsZst_3.Left = 0.8543308!
Me.txtAusgangsZst_3.Name = "txtAusgangsZst_3"
Me.txtAusgangsZst_3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_3.Style = resources.GetString("txtAusgangsZst_3.Style")
Me.txtAusgangsZst_3.SummaryGroup = ""
Me.txtAusgangsZst_3.Text = "X"
Me.txtAusgangsZst_3.Top = 4.932284!
Me.txtAusgangsZst_3.Width = 0.1574803!
'
'txtAusgangsZst_4
'
Me.txtAusgangsZst_4.CanGrow = False
Me.txtAusgangsZst_4.DistinctField = ""
Me.txtAusgangsZst_4.Height = 0.1574803!
Me.txtAusgangsZst_4.Left = 0.8543308!
Me.txtAusgangsZst_4.Name = "txtAusgangsZst_4"
Me.txtAusgangsZst_4.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_4.Style = resources.GetString("txtAusgangsZst_4.Style")
Me.txtAusgangsZst_4.SummaryGroup = ""
Me.txtAusgangsZst_4.Text = "X"
Me.txtAusgangsZst_4.Top = 5.097634!
Me.txtAusgangsZst_4.Width = 0.1574803!
'
'txtAusgangsZst_6
'
Me.txtAusgangsZst_6.CanGrow = False
Me.txtAusgangsZst_6.DistinctField = ""
Me.txtAusgangsZst_6.Height = 0.1574803!
Me.txtAusgangsZst_6.Left = 2.964567!
Me.txtAusgangsZst_6.Name = "txtAusgangsZst_6"
Me.txtAusgangsZst_6.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_6.Style = resources.GetString("txtAusgangsZst_6.Style")
Me.txtAusgangsZst_6.SummaryGroup = ""
Me.txtAusgangsZst_6.Text = "X"
Me.txtAusgangsZst_6.Top = 4.589764!
Me.txtAusgangsZst_6.Width = 0.1574803!
'
'txtAusgangsZst_9
'
Me.txtAusgangsZst_9.CanGrow = False
Me.txtAusgangsZst_9.DistinctField = ""
Me.txtAusgangsZst_9.Height = 0.1574803!
Me.txtAusgangsZst_9.Left = 2.964567!
Me.txtAusgangsZst_9.Name = "txtAusgangsZst_9"
Me.txtAusgangsZst_9.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_9.Style = resources.GetString("txtAusgangsZst_9.Style")
Me.txtAusgangsZst_9.SummaryGroup = ""
Me.txtAusgangsZst_9.Text = "X"
Me.txtAusgangsZst_9.Top = 5.211813!
Me.txtAusgangsZst_9.Width = 0.1574803!
'
'txtAusgangsZst_7
'
Me.txtAusgangsZst_7.CanGrow = False
Me.txtAusgangsZst_7.DistinctField = ""
Me.txtAusgangsZst_7.Height = 0.1574803!
Me.txtAusgangsZst_7.Left = 2.964567!
Me.txtAusgangsZst_7.Name = "txtAusgangsZst_7"
Me.txtAusgangsZst_7.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_7.Style = resources.GetString("txtAusgangsZst_7.Style")
Me.txtAusgangsZst_7.SummaryGroup = ""
Me.txtAusgangsZst_7.Text = "X"
Me.txtAusgangsZst_7.Top = 4.759054!
Me.txtAusgangsZst_7.Width = 0.1574803!
'
'txtAusgangsZst_8
'
Me.txtAusgangsZst_8.CanGrow = False
Me.txtAusgangsZst_8.DistinctField = ""
Me.txtAusgangsZst_8.Height = 0.1574803!
Me.txtAusgangsZst_8.Left = 2.964567!
Me.txtAusgangsZst_8.Name = "txtAusgangsZst_8"
Me.txtAusgangsZst_8.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_8.Style = resources.GetString("txtAusgangsZst_8.Style")
Me.txtAusgangsZst_8.SummaryGroup = ""
Me.txtAusgangsZst_8.Text = "X"
Me.txtAusgangsZst_8.Top = 4.932284!
Me.txtAusgangsZst_8.Width = 0.1574803!
'
'txtTransportTemp
'
Me.txtTransportTemp.CanGrow = False
Me.txtTransportTemp.Height = 0.2204724!
Me.txtTransportTemp.Left = 3.691339!
Me.txtTransportTemp.Name = "txtTransportTemp"
Me.txtTransportTemp.Style = "font-size: 13pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.txtTransportTemp.Text = "-4 bis +8"
Me.txtTransportTemp.Top = 1.751575!
Me.txtTransportTemp.Width = 1.23189!
'
'cbxZugMaschine
'
Me.cbxZugMaschine.CanGrow = False
Me.cbxZugMaschine.DistinctField = ""
Me.cbxZugMaschine.Height = 0.1574803!
Me.cbxZugMaschine.Left = 3.46378!
Me.cbxZugMaschine.Name = "cbxZugMaschine"
Me.cbxZugMaschine.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.cbxZugMaschine.Style = resources.GetString("cbxZugMaschine.Style")
Me.cbxZugMaschine.SummaryGroup = ""
Me.cbxZugMaschine.Text = "X"
Me.cbxZugMaschine.Top = 1.039764!
Me.cbxZugMaschine.Visible = False
Me.cbxZugMaschine.Width = 0.1574802!
'
'cbxTransportTemp
'
Me.cbxTransportTemp.CanGrow = False
Me.cbxTransportTemp.DistinctField = ""
Me.cbxTransportTemp.Height = 0.1574803!
Me.cbxTransportTemp.Left = 3.71378!
Me.cbxTransportTemp.Name = "cbxTransportTemp"
Me.cbxTransportTemp.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.cbxTransportTemp.Style = resources.GetString("cbxTransportTemp.Style")
Me.cbxTransportTemp.SummaryGroup = ""
Me.cbxTransportTemp.Text = "X"
Me.cbxTransportTemp.Top = 1.822835!
Me.cbxTransportTemp.Width = 0.1574803!
'
'txtAndereAusgangsstelle
'
Me.txtAndereAusgangsstelle.CanGrow = False
Me.txtAndereAusgangsstelle.Height = 0.3881895!
Me.txtAndereAusgangsstelle.Left = 3.225197!
Me.txtAndereAusgangsstelle.Name = "txtAndereAusgangsstelle"
Me.txtAndereAusgangsstelle.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & _
"-char-set: 1"
Me.txtAndereAusgangsstelle.Text = "XXX"
Me.txtAndereAusgangsstelle.Top = 5.044094!
Me.txtAndereAusgangsstelle.Width = 1.803937!
'
'txtZugMaschine
'
Me.txtZugMaschine.CanGrow = False
Me.txtZugMaschine.DistinctField = ""
Me.txtZugMaschine.Height = 0.4952756!
Me.txtZugMaschine.Left = 3.213386!
Me.txtZugMaschine.Name = "txtZugMaschine"
Me.txtZugMaschine.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZugMaschine.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZugMaschine.SummaryGroup = ""
Me.txtZugMaschine.Text = "34 TR 45454"
Me.txtZugMaschine.Top = 0.2334646!
Me.txtZugMaschine.Width = 1.803937!
'
'rptSendungenATILLA
'
Me.MasterReport = False
Me.MaxPages = CType(1, Long)
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.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 8.267716!
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.Picture, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnmerkungen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFilialeNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Firma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_KdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisierer_Firma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisierer_KdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeber_Firma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeber_KdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLKWKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeSendung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtIRAN_CMR_Agent, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLkwId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTransportTemp, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxZugMaschine, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxTransportTemp, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAndereAusgangsstelle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZugMaschine, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtFilialeNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbfertigungsnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Firma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_KdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAvisierer_Firma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAvisierer_KdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAuftraggeber_Firma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAuftraggeber_KdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_BelegNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_Betrag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLKWKennzeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbfahrt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtWarenbezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnmerkungen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeLKW As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeSendung As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtIRAN_CMR_Agent As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents txtFrachtfuehrer_Bar_BelegNr2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_Betrag2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_BelegNr3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_Betrag3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLkwId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Picture As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtAusgangsZst_1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtTransportTemp As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents cbxZugMaschine As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents cbxTransportTemp As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAndereAusgangsstelle As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZugMaschine As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,248 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSendungenATILLA
Public VALUES As New rptSendungenValuesATILLA
Public imgPath As String
Sub New()
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(VALUES As rptSendungenValuesATILLA, imgPath As String)
InitializeComponent()
Me.VALUES = VALUES
Me.imgPath = imgPath
init()
End Sub
Public Sub init()
' txtAbfertigungsart.Text = VALUES.Abfertigungsart
' txtTarifposanzahl.Text = VALUES.Tarifposanzahl
txtLkwId.Text = VALUES.AvisoId
txtFilialeNr.Text = VALUES.FilialeNr
txtAbfertigungsnummer.Text = VALUES.Abfertigungsnummer
txtFrachtfuehrer_Firma.Text = VALUES.Frachtfuehrer_Firma
txtFrachtfuehrer_KdNr.Text = VALUES.Frachtfuehrer_KdNr
txtAvisierer_Firma.Text = VALUES.Avisierer_Firma
txtAvisierer_KdNr.Text = VALUES.Avisierer_KdNr
txtAuftraggeber_Firma.Text = VALUES.Auftraggeber_Firma
txtAuftraggeber_KdNr.Text = VALUES.Auftraggeber_KdNr
' txtAbsender_Firma.Text = VALUES.Absender_Firma
'txtAbsender_KdNr.Text = VALUES.Absender_KdNr
'txtEmpfaenger_Firma.Text = VALUES.Empfaenger_Firma
'txtEmpfaenger_KdNr.Text = VALUES.Empfaenger_KdNr
txtIRAN_CMR_Agent.Text = VALUES.IRAN_CMR_Agent
txtFrachtfuehrer_Bar_BelegNr.Text = VALUES.Frachtfuehrer_Bar_BelegNr
txtFrachtfuehrer_Bar_Betrag.Text = VALUES.Frachtfuehrer_Bar_Betrag
txtFrachtfuehrer_Bar_BelegNr2.Text = VALUES.Frachtfuehrer_Bar_BelegNr2
txtFrachtfuehrer_Bar_Betrag2.Text = VALUES.Frachtfuehrer_Bar_Betrag2
txtFrachtfuehrer_Bar_BelegNr3.Text = VALUES.Frachtfuehrer_Bar_BelegNr3
txtFrachtfuehrer_Bar_Betrag3.Text = VALUES.Frachtfuehrer_Bar_Betrag3
txtLKWKennzeichen.Text = VALUES.LKWKennzeichen
txtAnkunft.Text = VALUES.Ankunft
txtAbfahrt.Text = VALUES.Abfahrt
txtWarenbezeichnung.Text = VALUES.Warenbezeichnung
txtColli.Text = VALUES.Colli
txtGewicht.Text = VALUES.Gewicht
' txtAufschub_VERAG.Text = VALUES.Aufschub_VERAG
' rtbAbfKost.Text = VALUES.AbfKost--> Mit Sub Report gel<65>st
' txtDokZuSend_Ueberschrift.Text = VALUES.DokZuSend_Ueberschrift
' txtDokZuSend_Text.Text = VALUES.DokZuSend_Text
txtAnmerkungen.Text = VALUES.Anmerkungen
' txtBARzuKassieren.Text = VALUES.BARzuKassieren
txtLKWKennzeichen.Text = VALUES.LKWKennzeichen
txtZA_1.Text = VALUES.ZA_1
txtZA_2.Text = VALUES.ZA_2
txtZA_3.Text = VALUES.ZA_3
txtZA_4.Text = VALUES.ZA_4
txtZA_5.Text = VALUES.ZA_5
txtAusgangsZst_1.Text = VALUES.AusgangsZst_1
txtAusgangsZst_2.Text = VALUES.AusgangsZst_2
txtAusgangsZst_3.Text = VALUES.AusgangsZst_3
txtAusgangsZst_4.Text = VALUES.AusgangsZst_4
txtAusgangsZst_5.Text = VALUES.AusgangsZst_5
txtAusgangsZst_6.Text = VALUES.AusgangsZst_6
txtAusgangsZst_7.Text = VALUES.AusgangsZst_7
txtAusgangsZst_8.Text = VALUES.AusgangsZst_8
txtAusgangsZst_9.Text = VALUES.AusgangsZst_9
txtAndereAusgangsstelle.Text = VALUES.AndereAusgangsstelle
txtZugMaschine.Text = VALUES.Zugmaschine
cbxZugMaschine.Text = VALUES.ZugmaschineCBX
txtTransportTemp.Text = VALUES.Transporttemperatur
cbxTransportTemp.Text = VALUES.TransporttemperaturCBX
barcodeLKW.Image = If(VALUES.barcodeLKW, Nothing)
barcodeSendung.Image = If(VALUES.barcodeSendung, Nothing)
'OFFERTE!
If False Then
If VALUES.AbfKostKdnr > 0 Then
Dim s = New subRptSendungenOfferte(VALUES.ABF_ART, VALUES.AbfKostKdnr)
SubReport.Report = s
End If
End If
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
' Dim bm As New Bitmap(imgPath)
' Me.Picture.Image = bm
End Sub
Private Sub rptSendungen_PageStart(sender As Object, e As EventArgs) Handles Me.PageStart
' Me.Document.CacheToDisk = True
End Sub
Private Sub rptSendungen_ReportEnd(sender As Object, e As EventArgs) Handles Me.ReportEnd
GC.Collect()
End Sub
Private Sub rptSendungenATILLA_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class
Public Class rptSendungenValuesATILLA
Property AvisoId As String = ""
Property Abfertigungsart As String = ""
Property Tarifposanzahl As String = ""
Property FilialeNr As String = ""
Property Abfertigungsnummer As String = ""
Property Avisierer_Firma As String = ""
Property Avisierer_KdNr As String = ""
Property Auftraggeber_Firma As String = ""
Property Auftraggeber_KdNr As String = ""
Property Empfaenger_Firma As String = ""
Property Empfaenger_KdNr As String = ""
Property Absender_Firma As String = ""
Property Absender_KdNr As String = ""
Property Frachtfuehrer_Firma As String = ""
Property Frachtfuehrer_KdNr As String = ""
Property Avisierer_Zoll As String = ""
Property Avisierer_Eust As String = ""
Property Avisierer_Abf As String = ""
Property Avisierer_Clear As String = ""
Property Auftraggeber_Zoll As String = ""
Property Auftraggeber_Eust As String = ""
Property Auftraggeber_Abf As String = ""
Property Auftraggeber_Clear As String = ""
Property Empfaenger_Zoll As String = ""
Property Empfaenger_Eust As String = ""
Property Empfaenger_Abf As String = ""
Property Empfaenger_Clear As String = ""
Property Absender_Zoll As String = ""
Property Absender_Eust As String = ""
Property Absender_Abf As String = ""
Property Absender_Clear As String = ""
Property Frachtfuehrer_Zoll As String = ""
Property Frachtfuehrer_Eust As String = ""
Property Frachtfuehrer_Abf As String = ""
Property Frachtfuehrer_Clear As String = ""
Property Avisierer_Leistung1 As String = ""
Property Avisierer_Betrag1 As String = ""
Property Avisierer_Leistung2 As String = ""
Property Avisierer_Betrag2 As String = ""
Property Avisierer_Leistung3 As String = ""
Property Avisierer_Betrag3 As String = ""
Property Auftraggeber_Leistung1 As String = ""
Property Auftraggeber_Betrag As String = ""
Property Auftraggeber_Leistung2 As String = ""
Property Auftraggeber_Betrag2 As String = ""
Property Auftraggeber_Leistung3 As String = ""
Property Auftraggeber_Betrag3 As String = ""
Property Empfaenger_Leistung1 As String = ""
Property Empfaenger_Betrag1 As String = ""
Property Empfaenger_Leistung2 As String = ""
Property Empfaenger_Betrag2 As String = ""
Property Empfaenger_Leistung3 As String = ""
Property Empfaenger_Betrag3 As String = ""
Property Absender_Leistung1 As String = ""
Property Absender_Betrag1 As String = ""
Property Absender_Leistung2 As String = ""
Property Absender_Betrag2 As String = ""
Property Absender_Leistung3 As String = ""
Property Absender_Betrag3 As String = ""
Property Frachtfuehrer_Leistung1 As String = ""
Property Frachtfuehrer_Betrag1 As String = ""
Property Frachtfuehrer_Leistung2 As String = ""
Property Frachtfuehrer_Betrag2 As String = ""
Property Frachtfuehrer_Leistung3 As String = ""
Property Frachtfuehrer_Betrag3 As String = ""
Property Frachtfuehrer_Bar_BelegNr As String = ""
Property Frachtfuehrer_Bar_Betrag As String = ""
Property Frachtfuehrer_Bar_BelegNr2 As String = ""
Property Frachtfuehrer_Bar_Betrag2 As String = ""
Property Frachtfuehrer_Bar_BelegNr3 As String = ""
Property Frachtfuehrer_Bar_Betrag3 As String = ""
Property IRAN_CMR_Agent As String = ""
Property Avisierer_eigBin As String = ""
Property Auftraggeber_eigBin As String = ""
Property Empfaenger_eigBIN As String = ""
Property Absender_eigBIN As String = ""
Property Frachtfuehrer_eigBIN As String = ""
Property LKWKennzeichen As String = ""
Property Ankunft As String = ""
Property Abfahrt As String = ""
Property Warenbezeichnung As String = ""
Property Colli As String = ""
Property Gewicht As String = ""
Property Aufschub_VERAG As String = ""
Property DokZuSend_Ueberschrift As String = ""
Property DokZuSend_Text As String = ""
Property Anmerkungen As String = ""
' Property BAR As String = ""
Property BARzuKassieren As String = ""
Property ABTEILUNG As String = ""
Property NCTS_VZAdr As String = ""
Property FISKAL_ENDEMPF As String = ""
Property ABF_ART As Integer = -1
Property barcodeLKW As Image = Nothing
Property barcodeSendung As Image = Nothing
Property AbfKost As String = ""
Property AbfKostKdnr As Integer = -1
Property ZA_1 As String = ""
Property ZA_2 As String = ""
Property ZA_3 As String = ""
Property ZA_4 As String = ""
Property ZA_5 As String = ""
Property AusgangsZst_1 As String = ""
Property AusgangsZst_2 As String = ""
Property AusgangsZst_3 As String = ""
Property AusgangsZst_4 As String = ""
Property AusgangsZst_5 As String = ""
Property AusgangsZst_6 As String = ""
Property AusgangsZst_7 As String = ""
Property AusgangsZst_8 As String = ""
Property AusgangsZst_9 As String = ""
Property AndereAusgangsstelle As String = ""
Property Zugmaschine As String = ""
Property ZugmaschineCBX As String = ""
Property Transporttemperatur As String = ""
Property TransporttemperaturCBX As String = ""
End Class

View File

@@ -0,0 +1,136 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptSendungenATA
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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenATA))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtATCMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeATCMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox8, Me.txtATCMRN, Me.barcodeATCMRN, Me.txtColli, Me.txtGewicht})
Me.Detail.Height = 0.2665355!
Me.Detail.Name = "Detail"
'
'TextBox8
'
Me.TextBox8.CanGrow = False
Me.TextBox8.Height = 0.1456693!
Me.TextBox8.Left = 0.00000005960464!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 8pt; ddo-char-set: 1"
Me.TextBox8.Text = "ATA/MRN:"
Me.TextBox8.Top = 0!
Me.TextBox8.Width = 0.8811023!
'
'txtATCMRN
'
Me.txtATCMRN.CanGrow = False
Me.txtATCMRN.Height = 0.1913386!
Me.txtATCMRN.Left = 0.7059056!
Me.txtATCMRN.Name = "txtATCMRN"
Me.txtATCMRN.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtATCMRN.Text = Nothing
Me.txtATCMRN.Top = 0.07519685!
Me.txtATCMRN.Width = 1.582284!
'
'barcodeATCMRN
'
Me.barcodeATCMRN.Height = 0.1027552!
Me.barcodeATCMRN.HyperLink = Nothing
Me.barcodeATCMRN.ImageData = Nothing
Me.barcodeATCMRN.Left = 0.622441!
Me.barcodeATCMRN.Name = "barcodeATCMRN"
Me.barcodeATCMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.BottomLeft
Me.barcodeATCMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeATCMRN.Top = 0!
Me.barcodeATCMRN.Width = 3.409448!
'
'txtColli
'
Me.txtColli.CanGrow = False
Me.txtColli.Height = 0.1456693!
Me.txtColli.Left = 2.744882!
Me.txtColli.Name = "txtColli"
Me.txtColli.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtColli.Text = Nothing
Me.txtColli.Top = 0!
Me.txtColli.Width = 0.4822836!
'
'txtGewicht
'
Me.txtGewicht.CanGrow = False
Me.txtGewicht.Height = 0.1456693!
Me.txtGewicht.Left = 3.227166!
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtGewicht.Text = Nothing
Me.txtGewicht.Top = 0!
Me.txtGewicht.Width = 0.7421253!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'subRptSendungenATA
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 4.03189!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtATCMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeATCMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,69 @@
Imports System.Data
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Imports SDL
Public Class subRptSendungenATA
Dim HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing
Sub New(HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.HANDLING = HANDLING
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
'If HANDLING IsNot Nothing Then
' 'Dim A As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
' 'If A.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
' txtColli.Text = HANDLING.sndhdg_colli.ToString("N0") & " Pk"
' txtGewicht.Text = HANDLING.sndhdg_gewicht.ToString("N1") & " Pk"
' txtATCMRN.Text = HANDLING.sndhdg_nr
' If HANDLING.sndhdg_nr <> "" Then
' barcodeATCMRN.Image = Code128Rendering.MakeBarcodeImage(HANDLING.sndhdg_nr, 1, True, 15)
' End If
'End If
barcodeATCMRN.Visible = False
txtATCMRN.Text = ""
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("ATA").Value IsNot Nothing Then
Dim ATAMRN As String = Me.Fields.Item("ATA").Value.ToString
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
txtATCMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(ATAMRN, 1, True, 15)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
barcodeATCMRN.Image = barcodeATA
barcodeATCMRN.Visible = True
End If
txtColli.Text = ""
txtGewicht.Text = ""
If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = CDbl(Me.Fields.Item("Colli").Value).ToString("N0") & " Pk"
If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = CDbl(Me.Fields.Item("Gewicht").Value).ToString("N1") & " kg"
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim dt As New DataTable
dt.Columns.Add("ATA", System.Type.GetType("System.String"))
dt.Columns.Add("Colli", System.Type.GetType("System.String"))
dt.Columns.Add("Gewicht", System.Type.GetType("System.String"))
For Each s In HANDLING
dt.Rows.Add({s.sndhdg_nr, s.sndhdg_colli, s.sndhdg_gewicht})
Next
Me.DataSource = dt
End Sub
End Class

View File

@@ -0,0 +1,116 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subRptSendungenOfferte
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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenOfferte))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLeistungsNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistungsBez = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.txtOfferte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtOfferte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLeistungsNr, Me.txtLeistungsBez, Me.txtPreis})
Me.Detail.Height = 0.168504!
Me.Detail.Name = "Detail"
'
'txtLeistungsNr
'
Me.txtLeistungsNr.CanGrow = False
Me.txtLeistungsNr.Height = 0.168504!
Me.txtLeistungsNr.Left = 0.00000009685755!
Me.txtLeistungsNr.Name = "txtLeistungsNr"
Me.txtLeistungsNr.Top = 0.0!
Me.txtLeistungsNr.Width = 0.281496!
'
'txtLeistungsBez
'
Me.txtLeistungsBez.CanGrow = False
Me.txtLeistungsBez.Height = 0.168504!
Me.txtLeistungsBez.Left = 0.2814961!
Me.txtLeistungsBez.Name = "txtLeistungsBez"
Me.txtLeistungsBez.Text = Nothing
Me.txtLeistungsBez.Top = 0.0!
Me.txtLeistungsBez.Width = 2.262599!
'
'txtPreis
'
Me.txtPreis.CanGrow = False
Me.txtPreis.Height = 0.168504!
Me.txtPreis.Left = 2.544095!
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Style = "text-align: right"
Me.txtPreis.Top = 0.0!
Me.txtPreis.Width = 0.8023622!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtOfferte})
Me.GroupHeader1.Height = 0.1688976!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'txtOfferte
'
Me.txtOfferte.Height = 0.1688976!
Me.txtOfferte.Left = 0.0!
Me.txtOfferte.Name = "txtOfferte"
Me.txtOfferte.Style = "font-weight: bold; text-decoration: underline"
Me.txtOfferte.Text = "Offerte:"
Me.txtOfferte.Top = 0.0!
Me.txtOfferte.Width = 2.645669!
'
'subRptSendungenOfferte
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 3.346457!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.txtLeistungsNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtOfferte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtLeistungsNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLeistungsBez As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents txtOfferte As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
End Class

View File

@@ -0,0 +1,34 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptSendungenOfferte
Dim AbfKostKdnr As Integer
Dim ABF_ART As Integer
Sub New(ABF_ART As Integer, AbfKostKdnr As Integer)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ABF_ART = ABF_ART
Me.AbfKostKdnr = AbfKostKdnr
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
If Me.Fields.Item("LeistungsNr") IsNot Nothing AndAlso Me.Fields.Item("LeistungsNr").Value IsNot Nothing Then txtLeistungsNr.Text = Me.Fields.Item("LeistungsNr").Value.ToString
If Me.Fields.Item("LeistungsBez") IsNot Nothing AndAlso Me.Fields.Item("LeistungsBez").Value IsNot Nothing Then txtLeistungsBez.Text = Me.Fields.Item("LeistungsBez").Value.ToString
If Me.Fields.Item("Preis") IsNot Nothing AndAlso Me.Fields.Item("Preis").Value IsNot Nothing Then
txtPreis.Text = If(IsNumeric(Me.Fields.Item("Preis").Value.ToString), CDbl(Me.Fields.Item("Preis").Value.ToString).ToString("C2"), Me.Fields.Item("Preis").Value.ToString)
End If
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If ABF_ART <= 0 Then Exit Sub
If AbfKostKdnr <= 0 Then Exit Sub
Me.DataSource = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select isnull(LeistungsNr,'') as LeistungsNr,isnull(LeistungsBez,'' ) as LeistungsBez,isnull(Preis,'') as Preis FROM [Offertenpositionen] where KundenNr=" & AbfKostKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & ABF_ART & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
End Sub
End Class

View File

@@ -0,0 +1,167 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptSendungenVorkosten
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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenVorkosten))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtFirma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreis, 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.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirma, Me.txtLeistung, Me.txtPreis})
Me.Detail.Height = 0.1665355!
Me.Detail.Name = "Detail"
'
'txtFirma
'
Me.txtFirma.CanGrow = False
Me.txtFirma.Height = 0.1665355!
Me.txtFirma.Left = 0!
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Style = "font-size: 9pt; ddo-char-set: 1"
Me.txtFirma.Text = "Firma"
Me.txtFirma.Top = 0!
Me.txtFirma.Width = 1.46063!
'
'txtLeistung
'
Me.txtLeistung.CanGrow = False
Me.txtLeistung.Height = 0.1665355!
Me.txtLeistung.Left = 1.46063!
Me.txtLeistung.Name = "txtLeistung"
Me.txtLeistung.Style = "font-size: 9pt; ddo-char-set: 1"
Me.txtLeistung.Text = "Leistung"
Me.txtLeistung.Top = 0!
Me.txtLeistung.Width = 1.527559!
'
'txtPreis
'
Me.txtPreis.CanGrow = False
Me.txtPreis.Height = 0.1665355!
Me.txtPreis.Left = 2.98819!
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Style = "font-size: 9pt; text-align: right; ddo-char-set: 1"
Me.txtPreis.Text = "Preis"
Me.txtPreis.Top = 0!
Me.txtPreis.Width = 0.9228347!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox10, Me.TextBox11, Me.TextBox12, Me.TextBox1})
Me.GroupHeader1.Height = 0.4791666!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox10
'
Me.TextBox10.CanGrow = False
Me.TextBox10.Height = 0.1456693!
Me.TextBox10.Left = 0!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox10.Text = "Firma"
Me.TextBox10.Top = 0.2862205!
Me.TextBox10.Width = 1.46063!
'
'TextBox11
'
Me.TextBox11.CanGrow = False
Me.TextBox11.Height = 0.1456693!
Me.TextBox11.Left = 1.46063!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox11.Text = "Leistung"
Me.TextBox11.Top = 0.2862205!
Me.TextBox11.Width = 1.527559!
'
'TextBox12
'
Me.TextBox12.CanGrow = False
Me.TextBox12.Height = 0.1456693!
Me.TextBox12.Left = 2.988189!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox12.Text = "Preis"
Me.TextBox12.Top = 0.2862205!
Me.TextBox12.Width = 0.9228347!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.2393701!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-decoration: underline;" &
" ddo-char-set: 1"
Me.TextBox1.Text = "Vorkosten"
Me.TextBox1.Top = 0!
Me.TextBox1.Width = 1.46063!
'
'subRptSendungenVorkosten
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 4.03189!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.txtFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreis, 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.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,37 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Data
Imports VERAG_PROG_ALLGEMEIN
Public Class subRptSendungenVorkosten
Dim VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing
Sub New(VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.VORKOSTEN = VORKOSTEN
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
txtFirma.Text = CStr(Me.Fields.Item("FIRMA").Value)
txtLeistung.Text = CStr(Me.Fields.Item("LEISTUNG").Value)
txtPreis.Text = CDbl(Me.Fields.Item("PREIS").Value).ToString("C2")
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim dt As New DataTable
dt.Columns.Add("FIRMA", System.Type.GetType("System.String"))
dt.Columns.Add("LEISTUNG", System.Type.GetType("System.String"))
dt.Columns.Add("PREIS", System.Type.GetType("System.String"))
For Each s In VORKOSTEN
dt.Rows.Add({s.sndvk_Firma, s.sndvk_LeistungsBez, s.sndvk_Preis})
Next
Me.DataSource = dt
End Sub
End Class

View File

@@ -0,0 +1,404 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptSendungenZollpruefung
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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenZollpruefung))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWarenbezeichung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtColliGewichtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtATREUR1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRg = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgabenKto = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnmelder = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVertreter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVerBestLandZst = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPraefAufRef = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSB = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtATCMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeATCMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWarenbezeichung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColliGewichtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATREUR1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgabenKto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnmelder, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVertreter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerBestLandZst, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPraefAufRef, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSB, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox3, Me.TextBox9, Me.TextBox1, Me.txtWarenbezeichung, Me.txtColliGewichtPreis, Me.txtATREUR1, Me.txtRg, Me.txtAbgabenKto, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.TextBox6, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAnmelder, Me.TextBox7, Me.txtVertreter, Me.txtVerBestLandZst, Me.txtPraefAufRef, Me.txtSB, Me.TextBox8, Me.txtATCMRN, Me.barcodeATCMRN})
Me.Detail.Height = 2.218504!
Me.Detail.Name = "Detail"
'
'TextBox3
'
Me.TextBox3.CanGrow = False
Me.TextBox3.Height = 0.1456693!
Me.TextBox3.Left = 0!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox3.Text = "Abgabenkto:"
Me.TextBox3.Top = 1.056299!
Me.TextBox3.Width = 0.9228347!
'
'TextBox9
'
Me.TextBox9.CanGrow = False
Me.TextBox9.Height = 0.1456693!
Me.TextBox9.Left = 0!
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox9.Text = "Pr<EFBFBD>f. auf Rg.:"
Me.TextBox9.Top = 0.91063!
Me.TextBox9.Width = 0.9228347!
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.1456693!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox1.Text = "ATR/EUR1:"
Me.TextBox1.Top = 0.6192915!
Me.TextBox1.Width = 0.9228347!
'
'txtWarenbezeichung
'
Me.txtWarenbezeichung.CanGrow = False
Me.txtWarenbezeichung.Height = 0.2535433!
Me.txtWarenbezeichung.Left = 0!
Me.txtWarenbezeichung.Name = "txtWarenbezeichung"
Me.txtWarenbezeichung.Style = "font-size: 8pt; ddo-char-set: 1"
Me.txtWarenbezeichung.Text = Nothing
Me.txtWarenbezeichung.Top = 0.168504!
Me.txtWarenbezeichung.Width = 4.03189!
'
'txtColliGewichtPreis
'
Me.txtColliGewichtPreis.Height = 0.1685039!
Me.txtColliGewichtPreis.Left = 0!
Me.txtColliGewichtPreis.Name = "txtColliGewichtPreis"
Me.txtColliGewichtPreis.Style = "font-weight: bold; text-align: left"
Me.txtColliGewichtPreis.Text = Nothing
Me.txtColliGewichtPreis.Top = 0!
Me.txtColliGewichtPreis.Width = 2.988189!
'
'txtATREUR1
'
Me.txtATREUR1.Height = 0.1456693!
Me.txtATREUR1.Left = 0.8811024!
Me.txtATREUR1.Name = "txtATREUR1"
Me.txtATREUR1.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtATREUR1.Text = Nothing
Me.txtATREUR1.Top = 0.6192912!
Me.txtATREUR1.Width = 3.150787!
'
'txtRg
'
Me.txtRg.Height = 0.1456693!
Me.txtRg.Left = 0.8811024!
Me.txtRg.Name = "txtRg"
Me.txtRg.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtRg.Text = Nothing
Me.txtRg.Top = 0.7649607!
Me.txtRg.Width = 3.150787!
'
'txtAbgabenKto
'
Me.txtAbgabenKto.Height = 0.1456693!
Me.txtAbgabenKto.Left = 0.8811024!
Me.txtAbgabenKto.Name = "txtAbgabenKto"
Me.txtAbgabenKto.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtAbgabenKto.Text = Nothing
Me.txtAbgabenKto.Top = 1.056299!
Me.txtAbgabenKto.Width = 3.150787!
'
'TextBox2
'
Me.TextBox2.CanGrow = False
Me.TextBox2.Height = 0.1456693!
Me.TextBox2.Left = 0!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox2.Text = "Handels-Rg.:"
Me.TextBox2.Top = 0.7649607!
Me.TextBox2.Width = 0.9228347!
'
'TextBox4
'
Me.TextBox4.CanGrow = False
Me.TextBox4.Height = 0.1456693!
Me.TextBox4.Left = 0!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox4.Text = "Absender:"
Me.TextBox4.Top = 1.266142!
Me.TextBox4.Width = 0.8811023!
Me.TextBox4.Visible = False
'
'TextBox5
'
Me.TextBox5.CanGrow = False
Me.TextBox5.Height = 0.1456693!
Me.TextBox5.Left = 0!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox5.Text = "Empf<EFBFBD>nger:"
Me.TextBox5.Top = 1.411811!
Me.TextBox5.Width = 0.8811023!
'
'TextBox6
'
Me.TextBox6.CanGrow = False
Me.TextBox6.Height = 0.1456693!
Me.TextBox6.Left = 0!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox6.Text = "Anmelder:"
Me.TextBox6.Top = 1.55748!
Me.TextBox6.Width = 0.8811023!
'
'txtAbsender
'
Me.txtAbsender.CanGrow = False
Me.txtAbsender.Height = 0.1456693!
Me.txtAbsender.Left = 0.8811024!
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtAbsender.Text = Nothing
Me.txtAbsender.Top = 1.266143!
Me.txtAbsender.Width = 3.150787!
Me.txtAbsender.Visible = False
'
'txtEmpfaenger
'
Me.txtEmpfaenger.CanGrow = False
Me.txtEmpfaenger.Height = 0.1456693!
Me.txtEmpfaenger.Left = 0.8811024!
Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtEmpfaenger.Text = Nothing
Me.txtEmpfaenger.Top = 1.411811!
Me.txtEmpfaenger.Width = 3.150787!
'
'txtAnmelder
'
Me.txtAnmelder.CanGrow = False
Me.txtAnmelder.Height = 0.1456693!
Me.txtAnmelder.Left = 0.8811024!
Me.txtAnmelder.Name = "txtAnmelder"
Me.txtAnmelder.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtAnmelder.Text = Nothing
Me.txtAnmelder.Top = 1.55748!
Me.txtAnmelder.Width = 3.150787!
'
'TextBox7
'
Me.TextBox7.CanGrow = False
Me.TextBox7.Height = 0.1456693!
Me.TextBox7.Left = 0!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox7.Text = "Vertreter:"
Me.TextBox7.Top = 1.70315!
Me.TextBox7.Width = 0.8811023!
Me.TextBox7.Visible = False
'
'txtVertreter
'
Me.txtVertreter.CanGrow = False
Me.txtVertreter.Height = 0.1456693!
Me.txtVertreter.Left = 0.8811024!
Me.txtVertreter.Name = "txtVertreter"
Me.txtVertreter.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtVertreter.Text = Nothing
Me.txtVertreter.Top = 1.70315!
Me.txtVertreter.Width = 3.150787!
Me.txtVertreter.Visible = False
'
'txtVerBestLandZst
'
Me.txtVerBestLandZst.Height = 0.1456693!
Me.txtVerBestLandZst.Left = 0!
Me.txtVerBestLandZst.Name = "txtVerBestLandZst"
Me.txtVerBestLandZst.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtVerBestLandZst.Text = Nothing
Me.txtVerBestLandZst.Top = 0.4220473!
Me.txtVerBestLandZst.Width = 4.031889!
'
'txtPraefAufRef
'
Me.txtPraefAufRef.Height = 0.1456693!
Me.txtPraefAufRef.Left = 0.8811024!
Me.txtPraefAufRef.Name = "txtPraefAufRef"
Me.txtPraefAufRef.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtPraefAufRef.Text = Nothing
Me.txtPraefAufRef.Top = 0.91063!
Me.txtPraefAufRef.Width = 3.150787!
'
'txtSB
'
Me.txtSB.CanGrow = False
Me.txtSB.Height = 0.1685039!
Me.txtSB.Left = 2.791339!
Me.txtSB.Name = "txtSB"
Me.txtSB.Style = "font-weight: bold; text-align: right"
Me.txtSB.Text = Nothing
Me.txtSB.Top = 0!
Me.txtSB.Width = 1.169291!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'TextBox8
'
Me.TextBox8.CanGrow = False
Me.TextBox8.Height = 0.1456693!
Me.TextBox8.Left = 0!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox8.Text = "ATC/MRN:"
Me.TextBox8.Top = 1.848819!
Me.TextBox8.Width = 0.8811023!
'
'txtATCMRN
'
Me.txtATCMRN.CanGrow = False
Me.txtATCMRN.Height = 0.1456693!
Me.txtATCMRN.Left = 0.8811024!
Me.txtATCMRN.Name = "txtATCMRN"
Me.txtATCMRN.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtATCMRN.Text = Nothing
Me.txtATCMRN.Top = 1.848819!
Me.txtATCMRN.Width = 3.150787!
'
'barcodeATCMRN
'
Me.barcodeATCMRN.Height = 0.1964569!
Me.barcodeATCMRN.HyperLink = Nothing
Me.barcodeATCMRN.ImageData = Nothing
Me.barcodeATCMRN.Left = 0.7889764!
Me.barcodeATCMRN.Name = "barcodeATCMRN"
Me.barcodeATCMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.BottomLeft
Me.barcodeATCMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeATCMRN.Top = 2.022048!
Me.barcodeATCMRN.Width = 3.242913!
'
'subRptSendungenZollpruefung
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 4.03189!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWarenbezeichung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColliGewichtPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATREUR1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRg, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgabenKto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnmelder, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVertreter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVerBestLandZst, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPraefAufRef, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSB, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtWarenbezeichung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents txtColliGewichtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtATREUR1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtRg As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbgabenKto 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
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnmelder As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVertreter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVerBestLandZst As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtPraefAufRef As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtSB As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtATCMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeATCMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
End Class

View File

@@ -0,0 +1,48 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Imports SDL
Public Class subRptSendungenZollpruefung
Dim ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
Sub New(ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ZOLLANMELDUNG = ZOLLANMELDUNG
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If ZOLLANMELDUNG IsNot Nothing Then
'Dim A As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
'If A.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
txtColliGewichtPreis.Text = ZOLLANMELDUNG.Colli & " " & ZOLLANMELDUNG.Gewicht & " " & ZOLLANMELDUNG.Rechnungspreis
txtAbgabenKto.Text &= ZOLLANMELDUNG.AbgabenKonto
txtRg.Text &= ZOLLANMELDUNG.Handelsrechnung
txtPraefAufRef.Text = ZOLLANMELDUNG.Pr<EFBFBD>ferenzAufRechnung
txtATREUR1.Text &= ZOLLANMELDUNG.Praeferenznachweis
txtWarenbezeichung.Text = ZOLLANMELDUNG.Warenbezeichung
txtVerBestLandZst.Text = ZOLLANMELDUNG.VerBestLandZst
txtAbsender.Text = ZOLLANMELDUNG.Absender
txtEmpfaenger.Text = ZOLLANMELDUNG.Empfaenger
txtAnmelder.Text = ZOLLANMELDUNG.Anmelder
txtVertreter.Text = ZOLLANMELDUNG.Vertreter
txtATCMRN.Text = ZOLLANMELDUNG.ATCMRN
If ZOLLANMELDUNG.ATCMRN <> "" Then
barcodeATCMRN.Image = Code128Rendering.MakeBarcodeImage(ZOLLANMELDUNG.ATCMRN, 1, True, 20)
End If
txtSB.Text = ZOLLANMELDUNG.Sachbearbeiter
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
'If ABF_ART <= 0 Then Exit Sub
'If AbfKostKdnr <= 0 Then Exit Sub
'Me.DataSource = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select isnull(LeistungsNr,'') as LeistungsNr,isnull(LeistungsBez,'' ) as LeistungsBez,isnull(Preis,'') as Preis FROM [Offertenpositionen] where KundenNr=" & AbfKostKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & ABF_ART & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
End Sub
End Class

View File

@@ -0,0 +1,457 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
<ProductVersion>
</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}</ProjectGuid>
<OutputType>Library</OutputType>
<StartupObject>
</StartupObject>
<RootNamespace>Gemeinsames</RootNamespace>
<AssemblyName>Gemeinsames</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>1</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Gemeinsames.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
<PlatformTarget>x86</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Gemeinsames.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>On</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>E1277E3EC64E394A66EC726E5057325CDF3A52E3</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>Gemeinsames_TemporaryKey.pfx</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>true</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<PlatformTarget>AnyCPU</PlatformTarget>
<OutputPath>bin\Debug\</OutputPath>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<PlatformTarget>x64</PlatformTarget>
<OutputPath>bin\Release\</OutputPath>
</PropertyGroup>
<PropertyGroup>
<SignAssembly>false</SignAssembly>
</PropertyGroup>
<PropertyGroup>
<AssemblyOriginatorKeyFile>Gemeinsames_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\BouncyCastle.Cryptography.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.DX.Windows, Version=7.2.2.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\DS.Documents.DX.Windows.7.2.2\lib\net461\DS.Documents.DX.Windows.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Imaging, Version=7.2.2.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\DS.Documents.Imaging.7.2.2\lib\net461\DS.Documents.Imaging.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Imaging.Windows, Version=7.2.2.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\DS.Documents.Imaging.Windows.7.2.2\lib\net461\DS.Documents.Imaging.Windows.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Pdf, Version=7.2.2.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\DS.Documents.Pdf.7.2.2\lib\net461\DS.Documents.Pdf.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.18.2.2\lib\net462\MESCIUS.ActiveReports.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Chart, Version=18.0.4.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Chart.18.0.4\lib\net462\MESCIUS.ActiveReports.Chart.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Chart.Win, Version=18.0.4.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Chart.Win.18.0.4\lib\net462\MESCIUS.ActiveReports.Chart.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders, Version=3.1.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.DataProviders.3.1.2\lib\net462\MESCIUS.ActiveReports.Core.DataProviders.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders.Excel, Version=1.1.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.DataProviders.Excel.1.1.2\lib\net462\MESCIUS.ActiveReports.Core.DataProviders.Excel.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Document.4.7.0\lib\net462\MESCIUS.ActiveReports.Core.Document.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gc, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Document.Drawing.Gc.4.7.0\lib\net462\MESCIUS.ActiveReports.Core.Document.Drawing.Gc.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gdi, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Document.Drawing.Gdi.4.7.0\lib\net462\MESCIUS.ActiveReports.Core.Document.Drawing.Gdi.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gc, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Drawing.Gc.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Drawing.Gc.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gdi, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Drawing.Gdi.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Drawing.Gdi.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Excel.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Excel.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Excel.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Html.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Html.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Html.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Image.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Image.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Image.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Pdf.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Pdf.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Section, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Pdf.Section.4.7.0\lib\net462\MESCIUS.ActiveReports.Core.Export.Pdf.Section.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Svg.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Svg.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Svg.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Text.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Text.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Text.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Tiff.Section, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Tiff.Section.4.7.0\lib\net462\MESCIUS.ActiveReports.Core.Export.Tiff.Section.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Word.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Word.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Word.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Rdl, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Rdl.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Rdl.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Rendering, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Rendering.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Rendering.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Scripting, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Scripting.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Scripting.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Design.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Design.Win.18.2.2\lib\net462\MESCIUS.ActiveReports.Design.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Excel, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Excel.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Excel.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Html, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Html.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Html.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Image, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Image.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Image.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Image.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Image.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Image.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Pdf, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Pdf.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Pdf.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Pdf.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Pdf.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Pdf.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Word, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Word.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Word.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Xml, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Xml.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Xml.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.QueryDesigner, Version=1.0.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.QueryDesigner.1.0.2\lib\net462\MESCIUS.ActiveReports.QueryDesigner.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Serializer, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Serializer.VS2022.18.2.2\lib\net472\MESCIUS.ActiveReports.Serializer.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.SpreadBuilder, Version=2.2.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.SpreadBuilder.2.2.0\lib\net462\MESCIUS.ActiveReports.SpreadBuilder.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Common, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Viewer.Common.18.2.2\lib\net462\MESCIUS.ActiveReports.Viewer.Common.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Viewer.Win.18.2.2\lib\net462\MESCIUS.ActiveReports.Viewer.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.18.2.2\lib\net462\MESCIUS.ActiveReports.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.DataEngine, Version=4.0.3.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.Data.DataEngine.4.0.3\lib\net462\MESCIUS.Data.DataEngine.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.ExpressionInfo, Version=4.0.3.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.Data.ExpressionInfo.4.0.3\lib\net462\MESCIUS.Data.ExpressionInfo.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.VBFunctionLib, Version=4.0.3.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.Data.VBFunctionLib.4.0.3\lib\net462\MESCIUS.Data.VBFunctionLib.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=8.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.8.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Design" />
<Reference Include="System.Drawing" />
<Reference Include="System.Drawing.Design" />
<Reference Include="System.Management" />
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.0.0\lib\net461\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.Serialization.Formatters.Soap" />
<Reference Include="System.Security" />
<Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll</HintPath>
</Reference>
<Reference Include="System.Web" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="cReportExportierer.vb" />
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="frmGrayOut.Designer.vb">
<DependentUpon>frmGrayOut.vb</DependentUpon>
</Compile>
<Compile Include="frmGrayOut.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="MyListItem.vb" />
<Compile Include="rptSendungenATILLA.Designer.vb">
<DependentUpon>rptSendungenATILLA.vb</DependentUpon>
</Compile>
<Compile Include="rptSendungenATILLA.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="rptSendungen.Designer.vb">
<DependentUpon>rptSendungen.vb</DependentUpon>
</Compile>
<Compile Include="rptSendungen.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenATA.Designer.vb">
<DependentUpon>subRptSendungenATA.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenATA.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenVorkosten.Designer.vb">
<DependentUpon>subRptSendungenVorkosten.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenVorkosten.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenZollpruefung.Designer.vb">
<DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenZollpruefung.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenOfferte.Designer.vb">
<DependentUpon>subRptSendungenOfferte.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenOfferte.vb">
<SubType>Component</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmGrayOut.resx">
<DependentUpon>frmGrayOut.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="rptSendungenATILLA.resx">
<DependentUpon>rptSendungenATILLA.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="rptSendungen.resx">
<DependentUpon>rptSendungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenATA.resx">
<DependentUpon>subRptSendungenATA.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenVorkosten.resx">
<DependentUpon>subRptSendungenVorkosten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenZollpruefung.resx">
<DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenOfferte.resx">
<DependentUpon>subRptSendungenOfferte.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="App.config" />
<None Include="Gemeinsames_TemporaryKey.pfx" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<None Include="packages.config" />
<None Include="PrivateCodeSignaturDaniel20240131.pfx" />
<None Include="Resources\Versionsinfo.txt" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Aviso.ico" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\road.jpg" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.5">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.5 %28x86 and x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<None Include="Resources\WAI.png" />
<None Include="Resources\QS.png" />
<None Include="Resources\NKD.png" />
<None Include="Resources\LEX.png" />
<None Include="Resources\SBG.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\SUB.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\UNISPED.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\IMEX.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\AMB.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
</ItemGroup>
<ItemGroup>
<Content Include="Resources\FO.png" />
<Content Include="Resources\VERIMEX.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
<Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
<Name>DAKOSY_Worker_lib</Name>
</ProjectReference>
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,356 @@
Public Class rptSendungen
Public VALUES As New rptSendungenValues
Public imgPath As String
Public ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
Public HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing
Public VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing
Sub New()
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.Document.Printer.PrinterName = ""
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
InitializeComponent()
Me.Document.Printer.PrinterName = ""
Me.VALUES = VALUES
Me.imgPath = imgPath
Me.ZOLLANMELDUNG = ZOLLANMELDUNG
Me.HANDLING = HANDLING
Me.VORKOSTEN = VORKOSTEN
init()
End Sub
Public Sub init()
txtAbfertigungsart.Text = VALUES.Abfertigungsart
txtTarifposanzahl.Text = VALUES.Tarifposanzahl
txtFilialeNr.Text = VALUES.FilialeNr
txtAbfertigungsnummer.Text = VALUES.Abfertigungsnummer
txtAvisierer_Firma.Text = VALUES.Avisierer_Firma
txtAvisierer_KdNr.Text = VALUES.Avisierer_KdNr
txtAuftraggeber_Firma.Text = VALUES.Auftraggeber_Firma
txtAuftraggeber_KdNr.Text = VALUES.Auftraggeber_KdNr
txtEmpfaenger_Firma.Text = VALUES.Empfaenger_Firma
txtEmpfaenger_KdNr.Text = VALUES.Empfaenger_KdNr
txtAbsender_Firma.Text = VALUES.Absender_Firma
txtAbsender_KdNr.Text = VALUES.Absender_KdNr
txtFrachtfuehrer_Firma.Text = VALUES.Frachtfuehrer_Firma
txtFrachtfuehrer_KdNr.Text = VALUES.Frachtfuehrer_KdNr
txtAvisierer_Zoll.Text = VALUES.Avisierer_Zoll
txtAvisierer_Eust.Text = VALUES.Avisierer_Eust
txtAvisierer_Abf.Text = VALUES.Avisierer_Abf
txtAvisierer_Clear.Text = VALUES.Avisierer_Clear
txtAuftraggeber_Zoll.Text = VALUES.Auftraggeber_Zoll
txtAuftraggeber_Eust.Text = VALUES.Auftraggeber_Eust
txtAuftraggeber_Abf.Text = VALUES.Auftraggeber_Abf
txtAuftraggeber_Clear.Text = VALUES.Auftraggeber_Clear
txtEmpfaenger_Zoll.Text = VALUES.Empfaenger_Zoll
txtEmpfaenger_Eust.Text = VALUES.Empfaenger_Eust
txtEmpfaenger_Abf.Text = VALUES.Empfaenger_Abf
txtEmpfaenger_Clear.Text = VALUES.Empfaenger_Clear
txtAbsender_Zoll.Text = VALUES.Absender_Zoll
txtAbsender_Eust.Text = VALUES.Absender_Eust
txtAbsender_Abf.Text = VALUES.Absender_Abf
txtAbsender_Clear.Text = VALUES.Absender_Clear
txtFrachtfuehrer_Zoll.Text = VALUES.Frachtfuehrer_Zoll
txtFrachtfuehrer_Eust.Text = VALUES.Frachtfuehrer_Eust
txtFrachtfuehrer_Abf.Text = VALUES.Frachtfuehrer_Abf
txtFrachtfuehrer_Clear.Text = VALUES.Frachtfuehrer_Clear
txtAvisierer_Leistung1.Text = VALUES.Avisierer_Leistung1
txtAvisierer_Betrag1.Text = VALUES.Avisierer_Betrag1
txtAvisierer_Leistung2.Text = VALUES.Avisierer_Leistung2
txtAvisierer_Betrag2.Text = VALUES.Avisierer_Betrag2
txtAvisierer_Leistung3.Text = VALUES.Avisierer_Leistung3
txtAvisierer_Betrag3.Text = VALUES.Avisierer_Betrag3
txtAuftraggeber_Leistung1.Text = VALUES.Auftraggeber_Leistung1
txtAuftraggeber_Betrag.Text = VALUES.Auftraggeber_Betrag
txtAuftraggeber_Leistung2.Text = VALUES.Auftraggeber_Leistung2
txtAuftraggeber_Betrag2.Text = VALUES.Auftraggeber_Betrag2
txtAuftraggeber_Leistung3.Text = VALUES.Auftraggeber_Leistung3
txtAuftraggeber_Betrag3.Text = VALUES.Auftraggeber_Betrag3
txtKdAuftrNr.Text = VALUES.KdAuftrNr
txtEmpfaenger_Leistung1.Text = VALUES.Empfaenger_Leistung1
txtEmpfaenger_Betrag1.Text = VALUES.Empfaenger_Betrag1
txtEmpfaenger_Leistung2.Text = VALUES.Empfaenger_Leistung2
txtEmpfaenger_Betrag2.Text = VALUES.Empfaenger_Betrag2
txtEmpfaenger_Leistung3.Text = VALUES.Empfaenger_Leistung3
txtEmpfaenger_Betrag3.Text = VALUES.Empfaenger_Betrag3
txtAbsender_Leistung1.Text = VALUES.Absender_Leistung1
txtAbsender_Betrag1.Text = VALUES.Absender_Betrag1
txtAbsender_Leistung2.Text = VALUES.Absender_Leistung2
txtAbsender_Betrag2.Text = VALUES.Absender_Betrag2
txtAbsender_Leistung3.Text = VALUES.Absender_Leistung3
txtAbsender_Betrag3.Text = VALUES.Absender_Betrag3
txtFrachtfuehrer_Leistung1.Text = VALUES.Frachtfuehrer_Leistung1
txtFrachtfuehrer_Betrag1.Text = VALUES.Frachtfuehrer_Betrag1
txtFrachtfuehrer_Leistung2.Text = VALUES.Frachtfuehrer_Leistung2
txtFrachtfuehrer_Betrag2.Text = VALUES.Frachtfuehrer_Betrag2
txtFrachtfuehrer_Leistung3.Text = VALUES.Frachtfuehrer_Leistung3
txtFrachtfuehrer_Betrag3.Text = VALUES.Frachtfuehrer_Betrag3
txtFrachtfuehrer_Bar_BelegNr.Text = VALUES.Frachtfuehrer_Bar_BelegNr
txtFrachtfuehrer_Bar_Betrag.Text = VALUES.Frachtfuehrer_Bar_Betrag
txtFrachtfuehrer_Bar_BelegNr2.Text = VALUES.Frachtfuehrer_Bar_BelegNr2
txtFrachtfuehrer_Bar_Betrag2.Text = VALUES.Frachtfuehrer_Bar_Betrag2
txtFrachtfuehrer_Bar_BelegNr3.Text = VALUES.Frachtfuehrer_Bar_BelegNr3
txtFrachtfuehrer_Bar_Betrag3.Text = VALUES.Frachtfuehrer_Bar_Betrag3
txtAvisierer_eigBin.Text = VALUES.Avisierer_eigBin
txtAuftraggeber_eigBin.Text = VALUES.Auftraggeber_eigBin
txtEmpfaenger_eigBIN.Text = VALUES.Empfaenger_eigBIN
txtAbsender_eigBIN.Text = VALUES.Absender_eigBIN
txtFrachtfuehrer_eigBIN.Text = VALUES.Frachtfuehrer_eigBIN
txtAvisierer_VK.Text = VALUES.Avisierer_VK
txtAuftraggeber_VK.Text = VALUES.Auftraggeber_VK
txtEmpfaenger_VK.Text = VALUES.Empfaenger_VK
txtAbsender_VK.Text = VALUES.Absender_VK
txtFrachtfuehrer_VK.Text = VALUES.Frachtfuehrer_VK
txtLKWKennzeichen.Text = VALUES.LKWKennzeichen
txtAnkunft.Text = VALUES.Ankunft
txtAbfahrt.Text = VALUES.Abfahrt
txtWarenbezeichnung.Text = VALUES.Warenbezeichnung
txtColli.Text = VALUES.Colli
txtGewicht.Text = VALUES.Gewicht
txtAufschub_VERAG.Text = VALUES.Aufschub_VERAG
' rtbAbfKost.Text = VALUES.AbfKost--> Mit Sub Report gel<65>st
txtDokZuSend_Ueberschrift.Text = VALUES.DokZuSend_Ueberschrift
txtDokZuSend_Text.Text = VALUES.DokZuSend_Text
txtAnmerkungen.Text = VALUES.Anmerkungen
txtBARzuKassieren.Text = VALUES.BARzuKassieren
txtEmpfaenger_EUSTKto.Text = VALUES.Empfaenger_EUSTKto
txtAuftraggeber_EUSTKto.Text = VALUES.Auftraggeber_EUSTKto
txtAuftraggeber_ZOLLKto.Text = VALUES.Auftraggeber_ZOLLKto
txtEmpfaenger_ZOLLKto.Text = VALUES.Empfaenger_ZOLLKto
cbxDyUebermittelt.Checked = VALUES.DyUebermittelt
TextBox3.Text = "Abkl.: " & VALUES.QS_MA & vbNewLine & "Dekl.: " & VALUES.VG_MA
If VALUES.Grenze.Trim <> "" Then
lblGrenze.Visible = True
shGrenze.Visible = True
txtGrenze.Visible = True
txtGrenze.Text = VALUES.Grenze.Replace("???", "")
Else
lblGrenze.Visible = False
shGrenze.Visible = False
txtGrenze.Visible = False
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATK_DY_UEBERMITTELT") Then
cbxDyUebermittelt.Visible = True
End If
If VALUES.SchnellAbfertigung Then
txtSchnellAbfertigung.Visible = True
End If
Select Case VALUES.ABF_ART
Case 5, 6, 18, 32, 24, 33, 34, 37, 40, 42
txtNCTSVZAdr.Visible = True
lblNCTSVZAdr.Visible = True
txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr
lblNCTSVZAdr.Text = "NCTS" & vbNewLine & "Gest.-Adr.:"
Case 7
txtNCTSVZAdr.Visible = True
lblNCTSVZAdr.Visible = True
txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr
lblNCTSVZAdr.Text = "Amtsplatz/" & vbNewLine & "Zollstopp:"
Case 26, 28
txtNCTSVZAdr.Visible = True
lblNCTSVZAdr.Visible = True
txtNCTSVZAdr.Text = VALUES.FISKAL_ENDEMPF
lblNCTSVZAdr.Text = "Fiskal" & vbNewLine & "EndEmpf.:"
End Select
If barcodeLKW IsNot Nothing Then
If VALUES.barcodeLKW IsNot Nothing Then
barcodeLKW.Image = If(VALUES.barcodeLKW, Nothing)
End If
End If
barcodeSendung.Image = If(VALUES.barcodeSendung, Nothing)
' picQR.Image = If(VALUES.imgQR, Nothing)
If picQR IsNot Nothing Then
If VALUES.imgQR IsNot Nothing Then
picQR.Image = If(VALUES.imgQR, Nothing)
End If
End If
'OFFERTE!
If False Then
If VALUES.AbfKostKdnr > 0 Then
Dim s = New subRptSendungenOfferte(VALUES.ABF_ART, VALUES.AbfKostKdnr)
SubReport.Report = s
End If
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
Dim s = New subRptSendungenVorkosten(VORKOSTEN)
SubReport.Report = s
Else
If ZOLLANMELDUNG IsNot Nothing Then
Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
SubReport.Report = s
ElseIf HANDLING IsNot Nothing Then
Dim s = New subRptSendungenATA(HANDLING)
SubReport.Report = s
End If
End If
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
' Dim fs As New System.IO.FileStream(imgPath, System.IO.FileMode.Open, System.IO.FileAccess.Read)
' Dim bm As New Bitmap(GrapeCity.ActiveReports.Document.Drawing.Image.FromStream(fs))
Dim bm As New Bitmap(imgPath)
Me.Picture.Image = bm
' fs.Close()
End Sub
Private Sub rptSendungen_PageStart(sender As Object, e As EventArgs) Handles Me.PageStart
' Me.Document.CacheToDisk = True
End Sub
Private Sub rptSendungen_ReportEnd(sender As Object, e As EventArgs) Handles Me.ReportEnd
GC.Collect()
End Sub
Private Sub rptSendungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Me.Document.Printer.PrinterName = ""
End Sub
End Class
Public Class rptSendungenValues
Property Abfertigungsart As String = ""
Property Tarifposanzahl As String = ""
Property FilialeNr As String = ""
Property Abfertigungsnummer As String = ""
Property Avisierer_Firma As String = ""
Property Avisierer_KdNr As String = ""
Property Auftraggeber_Firma As String = ""
Property Auftraggeber_KdNr As String = ""
Property Empfaenger_Firma As String = ""
Property Empfaenger_KdNr As String = ""
Property Absender_Firma As String = ""
Property Absender_KdNr As String = ""
Property Frachtfuehrer_Firma As String = ""
Property Frachtfuehrer_KdNr As String = ""
Property Avisierer_Zoll As String = ""
Property Avisierer_Eust As String = ""
Property Avisierer_Abf As String = ""
Property Avisierer_Clear As String = ""
Property Auftraggeber_Zoll As String = ""
Property Auftraggeber_Eust As String = ""
Property Auftraggeber_Abf As String = ""
Property Auftraggeber_Clear As String = ""
Property Empfaenger_Zoll As String = ""
Property Empfaenger_Eust As String = ""
Property Empfaenger_Abf As String = ""
Property Empfaenger_Clear As String = ""
Property Absender_Zoll As String = ""
Property Absender_Eust As String = ""
Property Absender_Abf As String = ""
Property Absender_Clear As String = ""
Property Frachtfuehrer_Zoll As String = ""
Property Frachtfuehrer_Eust As String = ""
Property Frachtfuehrer_Abf As String = ""
Property Frachtfuehrer_Clear As String = ""
Property Avisierer_Leistung1 As String = ""
Property Avisierer_Betrag1 As String = ""
Property Avisierer_Leistung2 As String = ""
Property Avisierer_Betrag2 As String = ""
Property Avisierer_Leistung3 As String = ""
Property Avisierer_Betrag3 As String = ""
Property Auftraggeber_Leistung1 As String = ""
Property Auftraggeber_Betrag As String = ""
Property Auftraggeber_Leistung2 As String = ""
Property Auftraggeber_Betrag2 As String = ""
Property Auftraggeber_Leistung3 As String = ""
Property Auftraggeber_Betrag3 As String = ""
Property KdAuftrNr As String = ""
Property Empfaenger_Leistung1 As String = ""
Property Empfaenger_Betrag1 As String = ""
Property Empfaenger_Leistung2 As String = ""
Property Empfaenger_Betrag2 As String = ""
Property Empfaenger_Leistung3 As String = ""
Property Empfaenger_Betrag3 As String = ""
Property Absender_Leistung1 As String = ""
Property Absender_Betrag1 As String = ""
Property Absender_Leistung2 As String = ""
Property Absender_Betrag2 As String = ""
Property Absender_Leistung3 As String = ""
Property Absender_Betrag3 As String = ""
Property Frachtfuehrer_Leistung1 As String = ""
Property Frachtfuehrer_Betrag1 As String = ""
Property Frachtfuehrer_Leistung2 As String = ""
Property Frachtfuehrer_Betrag2 As String = ""
Property Frachtfuehrer_Leistung3 As String = ""
Property Frachtfuehrer_Betrag3 As String = ""
Property Frachtfuehrer_Bar_BelegNr As String = ""
Property Frachtfuehrer_Bar_Betrag As String = ""
Property Frachtfuehrer_Bar_BelegNr2 As String = ""
Property Frachtfuehrer_Bar_Betrag2 As String = ""
Property Frachtfuehrer_Bar_BelegNr3 As String = ""
Property Frachtfuehrer_Bar_Betrag3 As String = ""
Property Avisierer_eigBin As String = ""
Property Auftraggeber_eigBin As String = ""
Property Empfaenger_eigBIN As String = ""
Property Absender_eigBIN As String = ""
Property Frachtfuehrer_eigBIN As String = ""
Property Avisierer_VK As String = ""
Property Auftraggeber_VK As String = ""
Property Empfaenger_VK As String = ""
Property Absender_VK As String = ""
Property Frachtfuehrer_VK As String = ""
Property LKWKennzeichen As String = ""
Property Ankunft As String = ""
Property Abfahrt As String = ""
Property Warenbezeichnung As String = ""
Property Colli As String = ""
Property Gewicht As String = ""
Property Aufschub_VERAG As String = ""
Property DokZuSend_Ueberschrift As String = ""
Property DokZuSend_Text As String = ""
Property Anmerkungen As String = ""
' Property BAR As String = ""
Property BARzuKassieren As String = ""
Property ABTEILUNG As String = ""
Property NCTS_VZAdr As String = ""
Property FISKAL_ENDEMPF As String = ""
Property ABF_ART As Integer = -1
Property barcodeLKW As Image = Nothing
Property barcodeSendung As Image = Nothing
Property imgQR As Image = Nothing
Property AbfKost As String = ""
Property AbfKostKdnr As Integer = -1
Property Empfaenger_EUSTKto As String = ""
Property Auftraggeber_EUSTKto As String = ""
Property Empfaenger_ZOLLKto As String = ""
Property Auftraggeber_ZOLLKto As String = ""
Property Grenze As String = ""
Property DyUebermittelt As Boolean = False
Property SchnellAbfertigung As Boolean = False
Property VG_MA As String = ""
Property QS_MA As String = ""
End Class

View File

@@ -0,0 +1,885 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSendungenATILLA
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(rptSendungenATILLA))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Picture = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtAnmerkungen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFilialeNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbfertigungsnummer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Firma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_KdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisierer_Firma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisierer_KdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeber_Firma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeber_KdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_BelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_Betrag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLKWKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbfahrt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWarenbezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeLKW = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeSendung = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtIRAN_CMR_Agent = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.txtFrachtfuehrer_Bar_BelegNr2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_Betrag2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_BelegNr3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_Betrag3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLkwId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTransportTemp = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.cbxZugMaschine = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.cbxTransportTemp = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAndereAusgangsstelle = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZugMaschine = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.Picture, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnmerkungen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFilialeNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Firma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_KdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisierer_Firma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisierer_KdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeber_Firma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeber_KdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLKWKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeSendung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtIRAN_CMR_Agent, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLkwId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTransportTemp, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxZugMaschine, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxTransportTemp, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAndereAusgangsstelle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZugMaschine, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.CanGrow = False
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture, Me.txtAnmerkungen, Me.txtFilialeNr, Me.txtAbfertigungsnummer, Me.txtFrachtfuehrer_Firma, Me.txtFrachtfuehrer_KdNr, Me.txtAvisierer_Firma, Me.txtAvisierer_KdNr, Me.txtAuftraggeber_Firma, Me.txtAuftraggeber_KdNr, Me.txtFrachtfuehrer_Bar_BelegNr, Me.txtFrachtfuehrer_Bar_Betrag, Me.txtLKWKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtWarenbezeichnung, Me.txtColli, Me.txtGewicht, Me.barcodeLKW, Me.TextBox1, Me.barcodeSendung, Me.TextBox2, Me.txtIRAN_CMR_Agent, Me.SubReport, Me.txtFrachtfuehrer_Bar_BelegNr2, Me.txtFrachtfuehrer_Bar_Betrag2, Me.txtFrachtfuehrer_Bar_BelegNr3, Me.txtFrachtfuehrer_Bar_Betrag3, Me.txtLkwId, Me.txtAusgangsZst_1, Me.txtAusgangsZst_5, Me.txtZA_1, Me.txtZA_2, Me.txtZA_3, Me.txtZA_4, Me.txtZA_5, Me.txtAusgangsZst_2, Me.txtAusgangsZst_3, Me.txtAusgangsZst_4, Me.txtAusgangsZst_6, Me.txtAusgangsZst_9, Me.txtAusgangsZst_7, Me.txtAusgangsZst_8, Me.txtTransportTemp, Me.cbxZugMaschine, Me.cbxTransportTemp, Me.txtAndereAusgangsstelle, Me.txtZugMaschine})
Me.Detail.Height = 11.69291!
Me.Detail.Name = "Detail"
'
'Picture
'
Me.Picture.Height = 11.69291!
Me.Picture.HyperLink = Nothing
Me.Picture.ImageBase64String = resources.GetString("Picture.ImageBase64String")
Me.Picture.Left = 0.0000004768372!
Me.Picture.Name = "Picture"
Me.Picture.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture.Top = 0.0!
Me.Picture.Width = 8.267716!
'
'txtAnmerkungen
'
Me.txtAnmerkungen.CanGrow = False
Me.txtAnmerkungen.DistinctField = ""
Me.txtAnmerkungen.Height = 3.740552!
Me.txtAnmerkungen.Left = 5.187402!
Me.txtAnmerkungen.Name = "txtAnmerkungen"
Me.txtAnmerkungen.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAnmerkungen.Style = "color: Black; font-size: 16pt; font-weight: normal; text-decoration: none; text-j" & _
"ustify: auto; vertical-align: top; ddo-char-set: 1; ddo-font-vertical: none; ddo" & _
"-shrink-to-fit: none"
Me.txtAnmerkungen.SummaryGroup = ""
Me.txtAnmerkungen.Text = "Zu sendende Dokumente:"
Me.txtAnmerkungen.Top = 2.337795!
Me.txtAnmerkungen.Width = 2.69567!
'
'txtFilialeNr
'
Me.txtFilialeNr.CanGrow = False
Me.txtFilialeNr.Height = 0.2937008!
Me.txtFilialeNr.Left = 5.11811!
Me.txtFilialeNr.Name = "txtFilialeNr"
Me.txtFilialeNr.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle; ddo-char-set: 1"
Me.txtFilialeNr.Text = "4801"
Me.txtFilialeNr.Top = 0.3811024!
Me.txtFilialeNr.Width = 0.7708666!
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer.CanGrow = False
Me.txtAbfertigungsnummer.Height = 0.2937008!
Me.txtAbfertigungsnummer.Left = 5.659843!
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle; ddo-char-set: 1"
Me.txtAbfertigungsnummer.Text = "17000000"
Me.txtAbfertigungsnummer.Top = 0.3811024!
Me.txtAbfertigungsnummer.Width = 2.364567!
'
'txtFrachtfuehrer_Firma
'
Me.txtFrachtfuehrer_Firma.CanGrow = False
Me.txtFrachtfuehrer_Firma.Height = 0.5641732!
Me.txtFrachtfuehrer_Firma.Left = 1.162597!
Me.txtFrachtfuehrer_Firma.Name = "txtFrachtfuehrer_Firma"
Me.txtFrachtfuehrer_Firma.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtFrachtfuehrer_Firma.Text = "TESTFIRMA"
Me.txtFrachtfuehrer_Firma.Top = 1.444488!
Me.txtFrachtfuehrer_Firma.Width = 3.854725!
'
'txtFrachtfuehrer_KdNr
'
Me.txtFrachtfuehrer_KdNr.CanGrow = False
Me.txtFrachtfuehrer_KdNr.Height = 0.1795275!
Me.txtFrachtfuehrer_KdNr.Left = 3.780314!
Me.txtFrachtfuehrer_KdNr.Name = "txtFrachtfuehrer_KdNr"
Me.txtFrachtfuehrer_KdNr.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtFrachtfuehrer_KdNr.Text = "123456"
Me.txtFrachtfuehrer_KdNr.Top = 1.264961!
Me.txtFrachtfuehrer_KdNr.Width = 1.237008!
'
'txtAvisierer_Firma
'
Me.txtAvisierer_Firma.CanGrow = False
Me.txtAvisierer_Firma.Height = 0.5641732!
Me.txtAvisierer_Firma.Left = 1.162598!
Me.txtAvisierer_Firma.Name = "txtAvisierer_Firma"
Me.txtAvisierer_Firma.Style = "font-size: 12pt; ddo-char-set: 1"
Me.txtAvisierer_Firma.Text = "TESTFIRMA"
Me.txtAvisierer_Firma.Top = 2.235039!
Me.txtAvisierer_Firma.Width = 3.854725!
'
'txtAvisierer_KdNr
'
Me.txtAvisierer_KdNr.CanGrow = False
Me.txtAvisierer_KdNr.Height = 0.1795275!
Me.txtAvisierer_KdNr.Left = 3.780315!
Me.txtAvisierer_KdNr.Name = "txtAvisierer_KdNr"
Me.txtAvisierer_KdNr.Style = "font-size: 12pt; ddo-char-set: 1"
Me.txtAvisierer_KdNr.Text = "123456"
Me.txtAvisierer_KdNr.Top = 2.047638!
Me.txtAvisierer_KdNr.Width = 1.237008!
'
'txtAuftraggeber_Firma
'
Me.txtAuftraggeber_Firma.CanGrow = False
Me.txtAuftraggeber_Firma.Height = 0.5641732!
Me.txtAuftraggeber_Firma.Left = 1.162598!
Me.txtAuftraggeber_Firma.Name = "txtAuftraggeber_Firma"
Me.txtAuftraggeber_Firma.Style = "font-size: 12pt; font-weight: normal; ddo-char-set: 1"
Me.txtAuftraggeber_Firma.Text = "TESTFIRMA"
Me.txtAuftraggeber_Firma.Top = 3.026772!
Me.txtAuftraggeber_Firma.Width = 3.854725!
'
'txtAuftraggeber_KdNr
'
Me.txtAuftraggeber_KdNr.CanGrow = False
Me.txtAuftraggeber_KdNr.Height = 0.1795275!
Me.txtAuftraggeber_KdNr.Left = 3.780315!
Me.txtAuftraggeber_KdNr.Name = "txtAuftraggeber_KdNr"
Me.txtAuftraggeber_KdNr.Style = "font-size: 12pt; font-weight: normal; ddo-char-set: 1"
Me.txtAuftraggeber_KdNr.Text = "123456"
Me.txtAuftraggeber_KdNr.Top = 2.843308!
Me.txtAuftraggeber_KdNr.Width = 1.237008!
'
'txtFrachtfuehrer_Bar_BelegNr
'
Me.txtFrachtfuehrer_Bar_BelegNr.CanGrow = False
Me.txtFrachtfuehrer_Bar_BelegNr.DistinctField = ""
Me.txtFrachtfuehrer_Bar_BelegNr.Height = 0.2755905!
Me.txtFrachtfuehrer_Bar_BelegNr.Left = 5.118111!
Me.txtFrachtfuehrer_Bar_BelegNr.Name = "txtFrachtfuehrer_Bar_BelegNr"
Me.txtFrachtfuehrer_Bar_BelegNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtFrachtfuehrer_Bar_BelegNr.Style = resources.GetString("txtFrachtfuehrer_Bar_BelegNr.Style")
Me.txtFrachtfuehrer_Bar_BelegNr.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_BelegNr.Text = "TEST"
Me.txtFrachtfuehrer_Bar_BelegNr.Top = 1.475984!
Me.txtFrachtfuehrer_Bar_BelegNr.Width = 1.574803!
'
'txtFrachtfuehrer_Bar_Betrag
'
Me.txtFrachtfuehrer_Bar_Betrag.CanGrow = False
Me.txtFrachtfuehrer_Bar_Betrag.DistinctField = ""
Me.txtFrachtfuehrer_Bar_Betrag.Height = 0.2755905!
Me.txtFrachtfuehrer_Bar_Betrag.Left = 6.692914!
Me.txtFrachtfuehrer_Bar_Betrag.Name = "txtFrachtfuehrer_Bar_Betrag"
Me.txtFrachtfuehrer_Bar_Betrag.Style = resources.GetString("txtFrachtfuehrer_Bar_Betrag.Style")
Me.txtFrachtfuehrer_Bar_Betrag.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_Betrag.Text = "0"
Me.txtFrachtfuehrer_Bar_Betrag.Top = 1.475984!
Me.txtFrachtfuehrer_Bar_Betrag.Width = 1.259842!
'
'txtLKWKennzeichen
'
Me.txtLKWKennzeichen.CanGrow = False
Me.txtLKWKennzeichen.DistinctField = ""
Me.txtLKWKennzeichen.Height = 0.5877953!
Me.txtLKWKennzeichen.Left = 0.8543308!
Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen"
Me.txtLKWKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtLKWKennzeichen.Style = "color: Black; font-size: 16pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtLKWKennzeichen.SummaryGroup = ""
Me.txtLKWKennzeichen.Text = "34 TR 45454"
Me.txtLKWKennzeichen.Top = 0.2334646!
Me.txtLKWKennzeichen.Width = 2.359054!
'
'txtAnkunft
'
Me.txtAnkunft.CanGrow = False
Me.txtAnkunft.DistinctField = ""
Me.txtAnkunft.Height = 0.1574803!
Me.txtAnkunft.Left = 3.780315!
Me.txtAnkunft.Name = "txtAnkunft"
Me.txtAnkunft.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAnkunft.Style = resources.GetString("txtAnkunft.Style")
Me.txtAnkunft.SummaryGroup = ""
Me.txtAnkunft.Text = "01.01.17 00:00"
Me.txtAnkunft.Top = 0.6244095!
Me.txtAnkunft.Width = 1.237008!
'
'txtAbfahrt
'
Me.txtAbfahrt.CanGrow = False
Me.txtAbfahrt.DistinctField = ""
Me.txtAbfahrt.Height = 0.1574803!
Me.txtAbfahrt.Left = 3.780315!
Me.txtAbfahrt.Name = "txtAbfahrt"
Me.txtAbfahrt.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAbfahrt.Style = resources.GetString("txtAbfahrt.Style")
Me.txtAbfahrt.SummaryGroup = ""
Me.txtAbfahrt.Text = "01.01.17 00:00"
Me.txtAbfahrt.Top = 0.7937009!
Me.txtAbfahrt.Width = 1.237008!
'
'txtWarenbezeichnung
'
Me.txtWarenbezeichnung.CanGrow = False
Me.txtWarenbezeichnung.DistinctField = ""
Me.txtWarenbezeichnung.Height = 0.395276!
Me.txtWarenbezeichnung.Left = 0.642126!
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
Me.txtWarenbezeichnung.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtWarenbezeichnung.Style = resources.GetString("txtWarenbezeichnung.Style")
Me.txtWarenbezeichnung.SummaryGroup = ""
Me.txtWarenbezeichnung.Text = "M<EFBFBD>BEL TEST"
Me.txtWarenbezeichnung.Top = 7.808268!
Me.txtWarenbezeichnung.Width = 4.375197!
'
'txtColli
'
Me.txtColli.CanGrow = False
Me.txtColli.DistinctField = ""
Me.txtColli.Height = 0.3779528!
Me.txtColli.Left = 0.6456693!
Me.txtColli.Name = "txtColli"
Me.txtColli.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtColli.Style = resources.GetString("txtColli.Style")
Me.txtColli.SummaryGroup = ""
Me.txtColli.Text = "0"
Me.txtColli.Top = 8.328741!
Me.txtColli.Width = 2.164567!
'
'txtGewicht
'
Me.txtGewicht.CanGrow = False
Me.txtGewicht.DistinctField = ""
Me.txtGewicht.Height = 0.3779528!
Me.txtGewicht.Left = 2.810236!
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtGewicht.Style = resources.GetString("txtGewicht.Style")
Me.txtGewicht.SummaryGroup = ""
Me.txtGewicht.Text = "0kg"
Me.txtGewicht.Top = 8.328741!
Me.txtGewicht.Width = 2.093307!
'
'barcodeLKW
'
Me.barcodeLKW.Height = 0.2889763!
Me.barcodeLKW.HyperLink = Nothing
Me.barcodeLKW.ImageData = Nothing
Me.barcodeLKW.Left = 0.6421265!
Me.barcodeLKW.Name = "barcodeLKW"
Me.barcodeLKW.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.TopLeft
Me.barcodeLKW.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeLKW.Top = 0.8212597!
Me.barcodeLKW.Width = 2.864567!
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.1334647!
Me.TextBox1.Left = 0.8059056!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 7pt; font-weight: normal; text-justify: auto; vertical-align: middle; " & _
"ddo-char-set: 1"
Me.TextBox1.Text = "Barcode-Scan: Akt <20>bernehmen"
Me.TextBox1.Top = 1.110236!
Me.TextBox1.Width = 2.864567!
'
'barcodeSendung
'
Me.barcodeSendung.Height = 4.96378!
Me.barcodeSendung.HyperLink = Nothing
Me.barcodeSendung.ImageData = Nothing
Me.barcodeSendung.Left = 0.2082682!
Me.barcodeSendung.Name = "barcodeSendung"
Me.barcodeSendung.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.BottomLeft
Me.barcodeSendung.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeSendung.Top = 2.785827!
Me.barcodeSendung.Width = 0.3543307!
'
'TextBox2
'
Me.TextBox2.CanGrow = False
Me.TextBox2.Height = 0.1720467!
Me.TextBox2.Left = 0.6704725!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-size: 7pt; font-weight: normal; text-justify: auto; vertical-align: middle; " & _
"ddo-char-set: 1"
Me.TextBox2.Text = "Barcode-Scan links: Akt <20>bernehmen & Sendung <20>ffnen"
Me.TextBox2.Top = 10.23622!
Me.TextBox2.Visible = False
Me.TextBox2.Width = 0.1838584!
'
'txtIRAN_CMR_Agent
'
Me.txtIRAN_CMR_Agent.Height = 0.5885825!
Me.txtIRAN_CMR_Agent.Left = 0.7480316!
Me.txtIRAN_CMR_Agent.Name = "txtIRAN_CMR_Agent"
Me.txtIRAN_CMR_Agent.Style = "font-size: 10pt; ddo-char-set: 1"
Me.txtIRAN_CMR_Agent.Text = "TESTFIRMA"
Me.txtIRAN_CMR_Agent.Top = 3.788977!
Me.txtIRAN_CMR_Agent.Width = 3.385827!
'
'SubReport
'
Me.SubReport.CanGrow = False
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.4830716!
Me.SubReport.Left = 0.6704725!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 8.98937!
Me.SubReport.Visible = False
Me.SubReport.Width = 3.346457!
'
'txtFrachtfuehrer_Bar_BelegNr2
'
Me.txtFrachtfuehrer_Bar_BelegNr2.CanGrow = False
Me.txtFrachtfuehrer_Bar_BelegNr2.DistinctField = ""
Me.txtFrachtfuehrer_Bar_BelegNr2.Height = 0.2755905!
Me.txtFrachtfuehrer_Bar_BelegNr2.Left = 5.11811!
Me.txtFrachtfuehrer_Bar_BelegNr2.Name = "txtFrachtfuehrer_Bar_BelegNr2"
Me.txtFrachtfuehrer_Bar_BelegNr2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtFrachtfuehrer_Bar_BelegNr2.Style = resources.GetString("txtFrachtfuehrer_Bar_BelegNr2.Style")
Me.txtFrachtfuehrer_Bar_BelegNr2.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_BelegNr2.Text = "TEST"
Me.txtFrachtfuehrer_Bar_BelegNr2.Top = 1.732283!
Me.txtFrachtfuehrer_Bar_BelegNr2.Width = 1.574803!
'
'txtFrachtfuehrer_Bar_Betrag2
'
Me.txtFrachtfuehrer_Bar_Betrag2.CanGrow = False
Me.txtFrachtfuehrer_Bar_Betrag2.DistinctField = ""
Me.txtFrachtfuehrer_Bar_Betrag2.Height = 0.2755905!
Me.txtFrachtfuehrer_Bar_Betrag2.Left = 6.692914!
Me.txtFrachtfuehrer_Bar_Betrag2.Name = "txtFrachtfuehrer_Bar_Betrag2"
Me.txtFrachtfuehrer_Bar_Betrag2.Style = resources.GetString("txtFrachtfuehrer_Bar_Betrag2.Style")
Me.txtFrachtfuehrer_Bar_Betrag2.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_Betrag2.Text = "0"
Me.txtFrachtfuehrer_Bar_Betrag2.Top = 1.732284!
Me.txtFrachtfuehrer_Bar_Betrag2.Width = 1.259843!
'
'txtFrachtfuehrer_Bar_BelegNr3
'
Me.txtFrachtfuehrer_Bar_BelegNr3.CanGrow = False
Me.txtFrachtfuehrer_Bar_BelegNr3.DistinctField = ""
Me.txtFrachtfuehrer_Bar_BelegNr3.Height = 0.242126!
Me.txtFrachtfuehrer_Bar_BelegNr3.Left = 5.118111!
Me.txtFrachtfuehrer_Bar_BelegNr3.Name = "txtFrachtfuehrer_Bar_BelegNr3"
Me.txtFrachtfuehrer_Bar_BelegNr3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtFrachtfuehrer_Bar_BelegNr3.Style = resources.GetString("txtFrachtfuehrer_Bar_BelegNr3.Style")
Me.txtFrachtfuehrer_Bar_BelegNr3.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_BelegNr3.Text = "TEST"
Me.txtFrachtfuehrer_Bar_BelegNr3.Top = 1.952756!
Me.txtFrachtfuehrer_Bar_BelegNr3.Width = 1.574803!
'
'txtFrachtfuehrer_Bar_Betrag3
'
Me.txtFrachtfuehrer_Bar_Betrag3.CanGrow = False
Me.txtFrachtfuehrer_Bar_Betrag3.DistinctField = ""
Me.txtFrachtfuehrer_Bar_Betrag3.Height = 0.242126!
Me.txtFrachtfuehrer_Bar_Betrag3.Left = 6.692914!
Me.txtFrachtfuehrer_Bar_Betrag3.Name = "txtFrachtfuehrer_Bar_Betrag3"
Me.txtFrachtfuehrer_Bar_Betrag3.Style = resources.GetString("txtFrachtfuehrer_Bar_Betrag3.Style")
Me.txtFrachtfuehrer_Bar_Betrag3.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_Betrag3.Text = "0"
Me.txtFrachtfuehrer_Bar_Betrag3.Top = 1.952756!
Me.txtFrachtfuehrer_Bar_Betrag3.Width = 1.259832!
'
'txtLkwId
'
Me.txtLkwId.CanGrow = False
Me.txtLkwId.DistinctField = ""
Me.txtLkwId.Height = 0.1574803!
Me.txtLkwId.Left = 1.308268!
Me.txtLkwId.Name = "txtLkwId"
Me.txtLkwId.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtLkwId.Style = resources.GetString("txtLkwId.Style")
Me.txtLkwId.SummaryGroup = ""
Me.txtLkwId.Text = "1234567"
Me.txtLkwId.Top = 0.6244095!
Me.txtLkwId.Visible = False
Me.txtLkwId.Width = 1.193306!
'
'txtAusgangsZst_1
'
Me.txtAusgangsZst_1.CanGrow = False
Me.txtAusgangsZst_1.DistinctField = ""
Me.txtAusgangsZst_1.Height = 0.1574803!
Me.txtAusgangsZst_1.Left = 0.8543308!
Me.txtAusgangsZst_1.Name = "txtAusgangsZst_1"
Me.txtAusgangsZst_1.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_1.Style = resources.GetString("txtAusgangsZst_1.Style")
Me.txtAusgangsZst_1.SummaryGroup = ""
Me.txtAusgangsZst_1.Text = "X"
Me.txtAusgangsZst_1.Top = 4.589764!
Me.txtAusgangsZst_1.Width = 0.1574803!
'
'txtAusgangsZst_5
'
Me.txtAusgangsZst_5.CanGrow = False
Me.txtAusgangsZst_5.DistinctField = ""
Me.txtAusgangsZst_5.Height = 0.1574803!
Me.txtAusgangsZst_5.Left = 0.8543308!
Me.txtAusgangsZst_5.Name = "txtAusgangsZst_5"
Me.txtAusgangsZst_5.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_5.Style = resources.GetString("txtAusgangsZst_5.Style")
Me.txtAusgangsZst_5.SummaryGroup = ""
Me.txtAusgangsZst_5.Text = "X"
Me.txtAusgangsZst_5.Top = 5.262993!
Me.txtAusgangsZst_5.Width = 0.1574803!
'
'txtZA_1
'
Me.txtZA_1.CanGrow = False
Me.txtZA_1.DistinctField = ""
Me.txtZA_1.Height = 0.2854335!
Me.txtZA_1.Left = 0.9358268!
Me.txtZA_1.Name = "txtZA_1"
Me.txtZA_1.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_1.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_1.SummaryGroup = ""
Me.txtZA_1.Text = "DZST"
Me.txtZA_1.Top = 5.918898!
Me.txtZA_1.Width = 3.967717!
'
'txtZA_2
'
Me.txtZA_2.CanGrow = False
Me.txtZA_2.DistinctField = ""
Me.txtZA_2.Height = 0.2854335!
Me.txtZA_2.Left = 0.9358268!
Me.txtZA_2.Name = "txtZA_2"
Me.txtZA_2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_2.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_2.SummaryGroup = ""
Me.txtZA_2.Text = "DZST"
Me.txtZA_2.Top = 6.246063!
Me.txtZA_2.Width = 3.967717!
'
'txtZA_3
'
Me.txtZA_3.CanGrow = False
Me.txtZA_3.DistinctField = ""
Me.txtZA_3.Height = 0.2854335!
Me.txtZA_3.Left = 0.9358268!
Me.txtZA_3.Name = "txtZA_3"
Me.txtZA_3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_3.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_3.SummaryGroup = ""
Me.txtZA_3.Text = "DZST"
Me.txtZA_3.Top = 6.555119!
Me.txtZA_3.Width = 3.967717!
'
'txtZA_4
'
Me.txtZA_4.CanGrow = False
Me.txtZA_4.DistinctField = ""
Me.txtZA_4.Height = 0.2854335!
Me.txtZA_4.Left = 0.9358268!
Me.txtZA_4.Name = "txtZA_4"
Me.txtZA_4.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_4.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_4.SummaryGroup = ""
Me.txtZA_4.Text = "DZST"
Me.txtZA_4.Top = 6.897244!
Me.txtZA_4.Width = 3.967717!
'
'txtZA_5
'
Me.txtZA_5.CanGrow = False
Me.txtZA_5.DistinctField = ""
Me.txtZA_5.Height = 0.2854335!
Me.txtZA_5.Left = 0.9358268!
Me.txtZA_5.Name = "txtZA_5"
Me.txtZA_5.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_5.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_5.SummaryGroup = ""
Me.txtZA_5.Text = "DZST"
Me.txtZA_5.Top = 7.232284!
Me.txtZA_5.Width = 3.967717!
'
'txtAusgangsZst_2
'
Me.txtAusgangsZst_2.CanGrow = False
Me.txtAusgangsZst_2.DistinctField = ""
Me.txtAusgangsZst_2.Height = 0.1574803!
Me.txtAusgangsZst_2.Left = 0.8543307!
Me.txtAusgangsZst_2.Name = "txtAusgangsZst_2"
Me.txtAusgangsZst_2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_2.Style = resources.GetString("txtAusgangsZst_2.Style")
Me.txtAusgangsZst_2.SummaryGroup = ""
Me.txtAusgangsZst_2.Text = "X"
Me.txtAusgangsZst_2.Top = 4.759054!
Me.txtAusgangsZst_2.Width = 0.1574803!
'
'txtAusgangsZst_3
'
Me.txtAusgangsZst_3.CanGrow = False
Me.txtAusgangsZst_3.DistinctField = ""
Me.txtAusgangsZst_3.Height = 0.1574803!
Me.txtAusgangsZst_3.Left = 0.8543308!
Me.txtAusgangsZst_3.Name = "txtAusgangsZst_3"
Me.txtAusgangsZst_3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_3.Style = resources.GetString("txtAusgangsZst_3.Style")
Me.txtAusgangsZst_3.SummaryGroup = ""
Me.txtAusgangsZst_3.Text = "X"
Me.txtAusgangsZst_3.Top = 4.932284!
Me.txtAusgangsZst_3.Width = 0.1574803!
'
'txtAusgangsZst_4
'
Me.txtAusgangsZst_4.CanGrow = False
Me.txtAusgangsZst_4.DistinctField = ""
Me.txtAusgangsZst_4.Height = 0.1574803!
Me.txtAusgangsZst_4.Left = 0.8543308!
Me.txtAusgangsZst_4.Name = "txtAusgangsZst_4"
Me.txtAusgangsZst_4.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_4.Style = resources.GetString("txtAusgangsZst_4.Style")
Me.txtAusgangsZst_4.SummaryGroup = ""
Me.txtAusgangsZst_4.Text = "X"
Me.txtAusgangsZst_4.Top = 5.097634!
Me.txtAusgangsZst_4.Width = 0.1574803!
'
'txtAusgangsZst_6
'
Me.txtAusgangsZst_6.CanGrow = False
Me.txtAusgangsZst_6.DistinctField = ""
Me.txtAusgangsZst_6.Height = 0.1574803!
Me.txtAusgangsZst_6.Left = 2.964567!
Me.txtAusgangsZst_6.Name = "txtAusgangsZst_6"
Me.txtAusgangsZst_6.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_6.Style = resources.GetString("txtAusgangsZst_6.Style")
Me.txtAusgangsZst_6.SummaryGroup = ""
Me.txtAusgangsZst_6.Text = "X"
Me.txtAusgangsZst_6.Top = 4.589764!
Me.txtAusgangsZst_6.Width = 0.1574803!
'
'txtAusgangsZst_9
'
Me.txtAusgangsZst_9.CanGrow = False
Me.txtAusgangsZst_9.DistinctField = ""
Me.txtAusgangsZst_9.Height = 0.1574803!
Me.txtAusgangsZst_9.Left = 2.964567!
Me.txtAusgangsZst_9.Name = "txtAusgangsZst_9"
Me.txtAusgangsZst_9.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_9.Style = resources.GetString("txtAusgangsZst_9.Style")
Me.txtAusgangsZst_9.SummaryGroup = ""
Me.txtAusgangsZst_9.Text = "X"
Me.txtAusgangsZst_9.Top = 5.211813!
Me.txtAusgangsZst_9.Width = 0.1574803!
'
'txtAusgangsZst_7
'
Me.txtAusgangsZst_7.CanGrow = False
Me.txtAusgangsZst_7.DistinctField = ""
Me.txtAusgangsZst_7.Height = 0.1574803!
Me.txtAusgangsZst_7.Left = 2.964567!
Me.txtAusgangsZst_7.Name = "txtAusgangsZst_7"
Me.txtAusgangsZst_7.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_7.Style = resources.GetString("txtAusgangsZst_7.Style")
Me.txtAusgangsZst_7.SummaryGroup = ""
Me.txtAusgangsZst_7.Text = "X"
Me.txtAusgangsZst_7.Top = 4.759054!
Me.txtAusgangsZst_7.Width = 0.1574803!
'
'txtAusgangsZst_8
'
Me.txtAusgangsZst_8.CanGrow = False
Me.txtAusgangsZst_8.DistinctField = ""
Me.txtAusgangsZst_8.Height = 0.1574803!
Me.txtAusgangsZst_8.Left = 2.964567!
Me.txtAusgangsZst_8.Name = "txtAusgangsZst_8"
Me.txtAusgangsZst_8.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_8.Style = resources.GetString("txtAusgangsZst_8.Style")
Me.txtAusgangsZst_8.SummaryGroup = ""
Me.txtAusgangsZst_8.Text = "X"
Me.txtAusgangsZst_8.Top = 4.932284!
Me.txtAusgangsZst_8.Width = 0.1574803!
'
'txtTransportTemp
'
Me.txtTransportTemp.CanGrow = False
Me.txtTransportTemp.Height = 0.2204724!
Me.txtTransportTemp.Left = 3.691339!
Me.txtTransportTemp.Name = "txtTransportTemp"
Me.txtTransportTemp.Style = "font-size: 13pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.txtTransportTemp.Text = "-4 bis +8"
Me.txtTransportTemp.Top = 1.751575!
Me.txtTransportTemp.Width = 1.23189!
'
'cbxZugMaschine
'
Me.cbxZugMaschine.CanGrow = False
Me.cbxZugMaschine.DistinctField = ""
Me.cbxZugMaschine.Height = 0.1574803!
Me.cbxZugMaschine.Left = 3.46378!
Me.cbxZugMaschine.Name = "cbxZugMaschine"
Me.cbxZugMaschine.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.cbxZugMaschine.Style = resources.GetString("cbxZugMaschine.Style")
Me.cbxZugMaschine.SummaryGroup = ""
Me.cbxZugMaschine.Text = "X"
Me.cbxZugMaschine.Top = 1.039764!
Me.cbxZugMaschine.Visible = False
Me.cbxZugMaschine.Width = 0.1574802!
'
'cbxTransportTemp
'
Me.cbxTransportTemp.CanGrow = False
Me.cbxTransportTemp.DistinctField = ""
Me.cbxTransportTemp.Height = 0.1574803!
Me.cbxTransportTemp.Left = 3.71378!
Me.cbxTransportTemp.Name = "cbxTransportTemp"
Me.cbxTransportTemp.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.cbxTransportTemp.Style = resources.GetString("cbxTransportTemp.Style")
Me.cbxTransportTemp.SummaryGroup = ""
Me.cbxTransportTemp.Text = "X"
Me.cbxTransportTemp.Top = 1.822835!
Me.cbxTransportTemp.Width = 0.1574803!
'
'txtAndereAusgangsstelle
'
Me.txtAndereAusgangsstelle.CanGrow = False
Me.txtAndereAusgangsstelle.Height = 0.3881895!
Me.txtAndereAusgangsstelle.Left = 3.225197!
Me.txtAndereAusgangsstelle.Name = "txtAndereAusgangsstelle"
Me.txtAndereAusgangsstelle.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & _
"-char-set: 1"
Me.txtAndereAusgangsstelle.Text = "XXX"
Me.txtAndereAusgangsstelle.Top = 5.044094!
Me.txtAndereAusgangsstelle.Width = 1.803937!
'
'txtZugMaschine
'
Me.txtZugMaschine.CanGrow = False
Me.txtZugMaschine.DistinctField = ""
Me.txtZugMaschine.Height = 0.4952756!
Me.txtZugMaschine.Left = 3.213386!
Me.txtZugMaschine.Name = "txtZugMaschine"
Me.txtZugMaschine.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZugMaschine.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZugMaschine.SummaryGroup = ""
Me.txtZugMaschine.Text = "34 TR 45454"
Me.txtZugMaschine.Top = 0.2334646!
Me.txtZugMaschine.Width = 1.803937!
'
'rptSendungenATILLA
'
Me.MasterReport = False
Me.MaxPages = CType(1, Long)
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.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 8.267716!
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.Picture, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnmerkungen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFilialeNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Firma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_KdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisierer_Firma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisierer_KdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeber_Firma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeber_KdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLKWKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeSendung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtIRAN_CMR_Agent, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLkwId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTransportTemp, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxZugMaschine, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxTransportTemp, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAndereAusgangsstelle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZugMaschine, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtFilialeNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbfertigungsnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Firma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_KdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAvisierer_Firma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAvisierer_KdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAuftraggeber_Firma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAuftraggeber_KdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_BelegNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_Betrag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLKWKennzeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbfahrt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtWarenbezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnmerkungen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeLKW As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeSendung As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtIRAN_CMR_Agent As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents txtFrachtfuehrer_Bar_BelegNr2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_Betrag2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_BelegNr3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_Betrag3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLkwId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Picture As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtAusgangsZst_1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtTransportTemp As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents cbxZugMaschine As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents cbxTransportTemp As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAndereAusgangsstelle As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZugMaschine As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,248 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSendungenATILLA
Public VALUES As New rptSendungenValuesATILLA
Public imgPath As String
Sub New()
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(VALUES As rptSendungenValuesATILLA, imgPath As String)
InitializeComponent()
Me.VALUES = VALUES
Me.imgPath = imgPath
init()
End Sub
Public Sub init()
' txtAbfertigungsart.Text = VALUES.Abfertigungsart
' txtTarifposanzahl.Text = VALUES.Tarifposanzahl
txtLkwId.Text = VALUES.AvisoId
txtFilialeNr.Text = VALUES.FilialeNr
txtAbfertigungsnummer.Text = VALUES.Abfertigungsnummer
txtFrachtfuehrer_Firma.Text = VALUES.Frachtfuehrer_Firma
txtFrachtfuehrer_KdNr.Text = VALUES.Frachtfuehrer_KdNr
txtAvisierer_Firma.Text = VALUES.Avisierer_Firma
txtAvisierer_KdNr.Text = VALUES.Avisierer_KdNr
txtAuftraggeber_Firma.Text = VALUES.Auftraggeber_Firma
txtAuftraggeber_KdNr.Text = VALUES.Auftraggeber_KdNr
' txtAbsender_Firma.Text = VALUES.Absender_Firma
'txtAbsender_KdNr.Text = VALUES.Absender_KdNr
'txtEmpfaenger_Firma.Text = VALUES.Empfaenger_Firma
'txtEmpfaenger_KdNr.Text = VALUES.Empfaenger_KdNr
txtIRAN_CMR_Agent.Text = VALUES.IRAN_CMR_Agent
txtFrachtfuehrer_Bar_BelegNr.Text = VALUES.Frachtfuehrer_Bar_BelegNr
txtFrachtfuehrer_Bar_Betrag.Text = VALUES.Frachtfuehrer_Bar_Betrag
txtFrachtfuehrer_Bar_BelegNr2.Text = VALUES.Frachtfuehrer_Bar_BelegNr2
txtFrachtfuehrer_Bar_Betrag2.Text = VALUES.Frachtfuehrer_Bar_Betrag2
txtFrachtfuehrer_Bar_BelegNr3.Text = VALUES.Frachtfuehrer_Bar_BelegNr3
txtFrachtfuehrer_Bar_Betrag3.Text = VALUES.Frachtfuehrer_Bar_Betrag3
txtLKWKennzeichen.Text = VALUES.LKWKennzeichen
txtAnkunft.Text = VALUES.Ankunft
txtAbfahrt.Text = VALUES.Abfahrt
txtWarenbezeichnung.Text = VALUES.Warenbezeichnung
txtColli.Text = VALUES.Colli
txtGewicht.Text = VALUES.Gewicht
' txtAufschub_VERAG.Text = VALUES.Aufschub_VERAG
' rtbAbfKost.Text = VALUES.AbfKost--> Mit Sub Report gel<65>st
' txtDokZuSend_Ueberschrift.Text = VALUES.DokZuSend_Ueberschrift
' txtDokZuSend_Text.Text = VALUES.DokZuSend_Text
txtAnmerkungen.Text = VALUES.Anmerkungen
' txtBARzuKassieren.Text = VALUES.BARzuKassieren
txtLKWKennzeichen.Text = VALUES.LKWKennzeichen
txtZA_1.Text = VALUES.ZA_1
txtZA_2.Text = VALUES.ZA_2
txtZA_3.Text = VALUES.ZA_3
txtZA_4.Text = VALUES.ZA_4
txtZA_5.Text = VALUES.ZA_5
txtAusgangsZst_1.Text = VALUES.AusgangsZst_1
txtAusgangsZst_2.Text = VALUES.AusgangsZst_2
txtAusgangsZst_3.Text = VALUES.AusgangsZst_3
txtAusgangsZst_4.Text = VALUES.AusgangsZst_4
txtAusgangsZst_5.Text = VALUES.AusgangsZst_5
txtAusgangsZst_6.Text = VALUES.AusgangsZst_6
txtAusgangsZst_7.Text = VALUES.AusgangsZst_7
txtAusgangsZst_8.Text = VALUES.AusgangsZst_8
txtAusgangsZst_9.Text = VALUES.AusgangsZst_9
txtAndereAusgangsstelle.Text = VALUES.AndereAusgangsstelle
txtZugMaschine.Text = VALUES.Zugmaschine
cbxZugMaschine.Text = VALUES.ZugmaschineCBX
txtTransportTemp.Text = VALUES.Transporttemperatur
cbxTransportTemp.Text = VALUES.TransporttemperaturCBX
barcodeLKW.Image = If(VALUES.barcodeLKW, Nothing)
barcodeSendung.Image = If(VALUES.barcodeSendung, Nothing)
'OFFERTE!
If False Then
If VALUES.AbfKostKdnr > 0 Then
Dim s = New subRptSendungenOfferte(VALUES.ABF_ART, VALUES.AbfKostKdnr)
SubReport.Report = s
End If
End If
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
' Dim bm As New Bitmap(imgPath)
' Me.Picture.Image = bm
End Sub
Private Sub rptSendungen_PageStart(sender As Object, e As EventArgs) Handles Me.PageStart
' Me.Document.CacheToDisk = True
End Sub
Private Sub rptSendungen_ReportEnd(sender As Object, e As EventArgs) Handles Me.ReportEnd
GC.Collect()
End Sub
Private Sub rptSendungenATILLA_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class
Public Class rptSendungenValuesATILLA
Property AvisoId As String = ""
Property Abfertigungsart As String = ""
Property Tarifposanzahl As String = ""
Property FilialeNr As String = ""
Property Abfertigungsnummer As String = ""
Property Avisierer_Firma As String = ""
Property Avisierer_KdNr As String = ""
Property Auftraggeber_Firma As String = ""
Property Auftraggeber_KdNr As String = ""
Property Empfaenger_Firma As String = ""
Property Empfaenger_KdNr As String = ""
Property Absender_Firma As String = ""
Property Absender_KdNr As String = ""
Property Frachtfuehrer_Firma As String = ""
Property Frachtfuehrer_KdNr As String = ""
Property Avisierer_Zoll As String = ""
Property Avisierer_Eust As String = ""
Property Avisierer_Abf As String = ""
Property Avisierer_Clear As String = ""
Property Auftraggeber_Zoll As String = ""
Property Auftraggeber_Eust As String = ""
Property Auftraggeber_Abf As String = ""
Property Auftraggeber_Clear As String = ""
Property Empfaenger_Zoll As String = ""
Property Empfaenger_Eust As String = ""
Property Empfaenger_Abf As String = ""
Property Empfaenger_Clear As String = ""
Property Absender_Zoll As String = ""
Property Absender_Eust As String = ""
Property Absender_Abf As String = ""
Property Absender_Clear As String = ""
Property Frachtfuehrer_Zoll As String = ""
Property Frachtfuehrer_Eust As String = ""
Property Frachtfuehrer_Abf As String = ""
Property Frachtfuehrer_Clear As String = ""
Property Avisierer_Leistung1 As String = ""
Property Avisierer_Betrag1 As String = ""
Property Avisierer_Leistung2 As String = ""
Property Avisierer_Betrag2 As String = ""
Property Avisierer_Leistung3 As String = ""
Property Avisierer_Betrag3 As String = ""
Property Auftraggeber_Leistung1 As String = ""
Property Auftraggeber_Betrag As String = ""
Property Auftraggeber_Leistung2 As String = ""
Property Auftraggeber_Betrag2 As String = ""
Property Auftraggeber_Leistung3 As String = ""
Property Auftraggeber_Betrag3 As String = ""
Property Empfaenger_Leistung1 As String = ""
Property Empfaenger_Betrag1 As String = ""
Property Empfaenger_Leistung2 As String = ""
Property Empfaenger_Betrag2 As String = ""
Property Empfaenger_Leistung3 As String = ""
Property Empfaenger_Betrag3 As String = ""
Property Absender_Leistung1 As String = ""
Property Absender_Betrag1 As String = ""
Property Absender_Leistung2 As String = ""
Property Absender_Betrag2 As String = ""
Property Absender_Leistung3 As String = ""
Property Absender_Betrag3 As String = ""
Property Frachtfuehrer_Leistung1 As String = ""
Property Frachtfuehrer_Betrag1 As String = ""
Property Frachtfuehrer_Leistung2 As String = ""
Property Frachtfuehrer_Betrag2 As String = ""
Property Frachtfuehrer_Leistung3 As String = ""
Property Frachtfuehrer_Betrag3 As String = ""
Property Frachtfuehrer_Bar_BelegNr As String = ""
Property Frachtfuehrer_Bar_Betrag As String = ""
Property Frachtfuehrer_Bar_BelegNr2 As String = ""
Property Frachtfuehrer_Bar_Betrag2 As String = ""
Property Frachtfuehrer_Bar_BelegNr3 As String = ""
Property Frachtfuehrer_Bar_Betrag3 As String = ""
Property IRAN_CMR_Agent As String = ""
Property Avisierer_eigBin As String = ""
Property Auftraggeber_eigBin As String = ""
Property Empfaenger_eigBIN As String = ""
Property Absender_eigBIN As String = ""
Property Frachtfuehrer_eigBIN As String = ""
Property LKWKennzeichen As String = ""
Property Ankunft As String = ""
Property Abfahrt As String = ""
Property Warenbezeichnung As String = ""
Property Colli As String = ""
Property Gewicht As String = ""
Property Aufschub_VERAG As String = ""
Property DokZuSend_Ueberschrift As String = ""
Property DokZuSend_Text As String = ""
Property Anmerkungen As String = ""
' Property BAR As String = ""
Property BARzuKassieren As String = ""
Property ABTEILUNG As String = ""
Property NCTS_VZAdr As String = ""
Property FISKAL_ENDEMPF As String = ""
Property ABF_ART As Integer = -1
Property barcodeLKW As Image = Nothing
Property barcodeSendung As Image = Nothing
Property AbfKost As String = ""
Property AbfKostKdnr As Integer = -1
Property ZA_1 As String = ""
Property ZA_2 As String = ""
Property ZA_3 As String = ""
Property ZA_4 As String = ""
Property ZA_5 As String = ""
Property AusgangsZst_1 As String = ""
Property AusgangsZst_2 As String = ""
Property AusgangsZst_3 As String = ""
Property AusgangsZst_4 As String = ""
Property AusgangsZst_5 As String = ""
Property AusgangsZst_6 As String = ""
Property AusgangsZst_7 As String = ""
Property AusgangsZst_8 As String = ""
Property AusgangsZst_9 As String = ""
Property AndereAusgangsstelle As String = ""
Property Zugmaschine As String = ""
Property ZugmaschineCBX As String = ""
Property Transporttemperatur As String = ""
Property TransporttemperaturCBX As String = ""
End Class

View File

@@ -0,0 +1,136 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptSendungenATA
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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenATA))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtATCMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeATCMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox8, Me.txtATCMRN, Me.barcodeATCMRN, Me.txtColli, Me.txtGewicht})
Me.Detail.Height = 0.2665355!
Me.Detail.Name = "Detail"
'
'TextBox8
'
Me.TextBox8.CanGrow = False
Me.TextBox8.Height = 0.1456693!
Me.TextBox8.Left = 0.00000005960464!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 8pt; ddo-char-set: 1"
Me.TextBox8.Text = "ATA/MRN:"
Me.TextBox8.Top = 0!
Me.TextBox8.Width = 0.8811023!
'
'txtATCMRN
'
Me.txtATCMRN.CanGrow = False
Me.txtATCMRN.Height = 0.1913386!
Me.txtATCMRN.Left = 0.7059056!
Me.txtATCMRN.Name = "txtATCMRN"
Me.txtATCMRN.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtATCMRN.Text = Nothing
Me.txtATCMRN.Top = 0.07519685!
Me.txtATCMRN.Width = 1.582284!
'
'barcodeATCMRN
'
Me.barcodeATCMRN.Height = 0.1027552!
Me.barcodeATCMRN.HyperLink = Nothing
Me.barcodeATCMRN.ImageData = Nothing
Me.barcodeATCMRN.Left = 0.622441!
Me.barcodeATCMRN.Name = "barcodeATCMRN"
Me.barcodeATCMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.BottomLeft
Me.barcodeATCMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeATCMRN.Top = 0!
Me.barcodeATCMRN.Width = 3.409448!
'
'txtColli
'
Me.txtColli.CanGrow = False
Me.txtColli.Height = 0.1456693!
Me.txtColli.Left = 2.744882!
Me.txtColli.Name = "txtColli"
Me.txtColli.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtColli.Text = Nothing
Me.txtColli.Top = 0!
Me.txtColli.Width = 0.4822836!
'
'txtGewicht
'
Me.txtGewicht.CanGrow = False
Me.txtGewicht.Height = 0.1456693!
Me.txtGewicht.Left = 3.227166!
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtGewicht.Text = Nothing
Me.txtGewicht.Top = 0!
Me.txtGewicht.Width = 0.7421253!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'subRptSendungenATA
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 4.03189!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtATCMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeATCMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,69 @@
Imports System.Data
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Imports SDL
Public Class subRptSendungenATA
Dim HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing
Sub New(HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.HANDLING = HANDLING
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
'If HANDLING IsNot Nothing Then
' 'Dim A As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
' 'If A.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
' txtColli.Text = HANDLING.sndhdg_colli.ToString("N0") & " Pk"
' txtGewicht.Text = HANDLING.sndhdg_gewicht.ToString("N1") & " Pk"
' txtATCMRN.Text = HANDLING.sndhdg_nr
' If HANDLING.sndhdg_nr <> "" Then
' barcodeATCMRN.Image = Code128Rendering.MakeBarcodeImage(HANDLING.sndhdg_nr, 1, True, 15)
' End If
'End If
barcodeATCMRN.Visible = False
txtATCMRN.Text = ""
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("ATA").Value IsNot Nothing Then
Dim ATAMRN As String = Me.Fields.Item("ATA").Value.ToString
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
txtATCMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(ATAMRN, 1, True, 15)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
barcodeATCMRN.Image = barcodeATA
barcodeATCMRN.Visible = True
End If
txtColli.Text = ""
txtGewicht.Text = ""
If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = CDbl(Me.Fields.Item("Colli").Value).ToString("N0") & " Pk"
If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = CDbl(Me.Fields.Item("Gewicht").Value).ToString("N1") & " kg"
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim dt As New DataTable
dt.Columns.Add("ATA", System.Type.GetType("System.String"))
dt.Columns.Add("Colli", System.Type.GetType("System.String"))
dt.Columns.Add("Gewicht", System.Type.GetType("System.String"))
For Each s In HANDLING
dt.Rows.Add({s.sndhdg_nr, s.sndhdg_colli, s.sndhdg_gewicht})
Next
Me.DataSource = dt
End Sub
End Class

View File

@@ -0,0 +1,116 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subRptSendungenOfferte
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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenOfferte))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLeistungsNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistungsBez = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.txtOfferte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtOfferte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLeistungsNr, Me.txtLeistungsBez, Me.txtPreis})
Me.Detail.Height = 0.168504!
Me.Detail.Name = "Detail"
'
'txtLeistungsNr
'
Me.txtLeistungsNr.CanGrow = False
Me.txtLeistungsNr.Height = 0.168504!
Me.txtLeistungsNr.Left = 0.00000009685755!
Me.txtLeistungsNr.Name = "txtLeistungsNr"
Me.txtLeistungsNr.Top = 0.0!
Me.txtLeistungsNr.Width = 0.281496!
'
'txtLeistungsBez
'
Me.txtLeistungsBez.CanGrow = False
Me.txtLeistungsBez.Height = 0.168504!
Me.txtLeistungsBez.Left = 0.2814961!
Me.txtLeistungsBez.Name = "txtLeistungsBez"
Me.txtLeistungsBez.Text = Nothing
Me.txtLeistungsBez.Top = 0.0!
Me.txtLeistungsBez.Width = 2.262599!
'
'txtPreis
'
Me.txtPreis.CanGrow = False
Me.txtPreis.Height = 0.168504!
Me.txtPreis.Left = 2.544095!
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Style = "text-align: right"
Me.txtPreis.Top = 0.0!
Me.txtPreis.Width = 0.8023622!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtOfferte})
Me.GroupHeader1.Height = 0.1688976!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'txtOfferte
'
Me.txtOfferte.Height = 0.1688976!
Me.txtOfferte.Left = 0.0!
Me.txtOfferte.Name = "txtOfferte"
Me.txtOfferte.Style = "font-weight: bold; text-decoration: underline"
Me.txtOfferte.Text = "Offerte:"
Me.txtOfferte.Top = 0.0!
Me.txtOfferte.Width = 2.645669!
'
'subRptSendungenOfferte
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 3.346457!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.txtLeistungsNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtOfferte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtLeistungsNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLeistungsBez As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents txtOfferte As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
End Class

View File

@@ -0,0 +1,34 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptSendungenOfferte
Dim AbfKostKdnr As Integer
Dim ABF_ART As Integer
Sub New(ABF_ART As Integer, AbfKostKdnr As Integer)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ABF_ART = ABF_ART
Me.AbfKostKdnr = AbfKostKdnr
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
If Me.Fields.Item("LeistungsNr") IsNot Nothing AndAlso Me.Fields.Item("LeistungsNr").Value IsNot Nothing Then txtLeistungsNr.Text = Me.Fields.Item("LeistungsNr").Value.ToString
If Me.Fields.Item("LeistungsBez") IsNot Nothing AndAlso Me.Fields.Item("LeistungsBez").Value IsNot Nothing Then txtLeistungsBez.Text = Me.Fields.Item("LeistungsBez").Value.ToString
If Me.Fields.Item("Preis") IsNot Nothing AndAlso Me.Fields.Item("Preis").Value IsNot Nothing Then
txtPreis.Text = If(IsNumeric(Me.Fields.Item("Preis").Value.ToString), CDbl(Me.Fields.Item("Preis").Value.ToString).ToString("C2"), Me.Fields.Item("Preis").Value.ToString)
End If
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If ABF_ART <= 0 Then Exit Sub
If AbfKostKdnr <= 0 Then Exit Sub
Me.DataSource = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select isnull(LeistungsNr,'') as LeistungsNr,isnull(LeistungsBez,'' ) as LeistungsBez,isnull(Preis,'') as Preis FROM [Offertenpositionen] where KundenNr=" & AbfKostKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & ABF_ART & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
End Sub
End Class

View File

@@ -0,0 +1,167 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptSendungenVorkosten
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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenVorkosten))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtFirma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreis, 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.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirma, Me.txtLeistung, Me.txtPreis})
Me.Detail.Height = 0.1665355!
Me.Detail.Name = "Detail"
'
'txtFirma
'
Me.txtFirma.CanGrow = False
Me.txtFirma.Height = 0.1665355!
Me.txtFirma.Left = 0!
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Style = "font-size: 9pt; ddo-char-set: 1"
Me.txtFirma.Text = "Firma"
Me.txtFirma.Top = 0!
Me.txtFirma.Width = 1.46063!
'
'txtLeistung
'
Me.txtLeistung.CanGrow = False
Me.txtLeistung.Height = 0.1665355!
Me.txtLeistung.Left = 1.46063!
Me.txtLeistung.Name = "txtLeistung"
Me.txtLeistung.Style = "font-size: 9pt; ddo-char-set: 1"
Me.txtLeistung.Text = "Leistung"
Me.txtLeistung.Top = 0!
Me.txtLeistung.Width = 1.527559!
'
'txtPreis
'
Me.txtPreis.CanGrow = False
Me.txtPreis.Height = 0.1665355!
Me.txtPreis.Left = 2.98819!
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Style = "font-size: 9pt; text-align: right; ddo-char-set: 1"
Me.txtPreis.Text = "Preis"
Me.txtPreis.Top = 0!
Me.txtPreis.Width = 0.9228347!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox10, Me.TextBox11, Me.TextBox12, Me.TextBox1})
Me.GroupHeader1.Height = 0.4791666!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox10
'
Me.TextBox10.CanGrow = False
Me.TextBox10.Height = 0.1456693!
Me.TextBox10.Left = 0!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox10.Text = "Firma"
Me.TextBox10.Top = 0.2862205!
Me.TextBox10.Width = 1.46063!
'
'TextBox11
'
Me.TextBox11.CanGrow = False
Me.TextBox11.Height = 0.1456693!
Me.TextBox11.Left = 1.46063!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox11.Text = "Leistung"
Me.TextBox11.Top = 0.2862205!
Me.TextBox11.Width = 1.527559!
'
'TextBox12
'
Me.TextBox12.CanGrow = False
Me.TextBox12.Height = 0.1456693!
Me.TextBox12.Left = 2.988189!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox12.Text = "Preis"
Me.TextBox12.Top = 0.2862205!
Me.TextBox12.Width = 0.9228347!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.2393701!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-decoration: underline;" &
" ddo-char-set: 1"
Me.TextBox1.Text = "Vorkosten"
Me.TextBox1.Top = 0!
Me.TextBox1.Width = 1.46063!
'
'subRptSendungenVorkosten
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 4.03189!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.txtFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreis, 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.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,37 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Data
Imports VERAG_PROG_ALLGEMEIN
Public Class subRptSendungenVorkosten
Dim VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing
Sub New(VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.VORKOSTEN = VORKOSTEN
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
txtFirma.Text = CStr(Me.Fields.Item("FIRMA").Value)
txtLeistung.Text = CStr(Me.Fields.Item("LEISTUNG").Value)
txtPreis.Text = CDbl(Me.Fields.Item("PREIS").Value).ToString("C2")
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim dt As New DataTable
dt.Columns.Add("FIRMA", System.Type.GetType("System.String"))
dt.Columns.Add("LEISTUNG", System.Type.GetType("System.String"))
dt.Columns.Add("PREIS", System.Type.GetType("System.String"))
For Each s In VORKOSTEN
dt.Rows.Add({s.sndvk_Firma, s.sndvk_LeistungsBez, s.sndvk_Preis})
Next
Me.DataSource = dt
End Sub
End Class

View File

@@ -0,0 +1,404 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptSendungenZollpruefung
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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenZollpruefung))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWarenbezeichung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtColliGewichtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtATREUR1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRg = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgabenKto = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnmelder = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVertreter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVerBestLandZst = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPraefAufRef = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSB = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtATCMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeATCMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWarenbezeichung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColliGewichtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATREUR1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgabenKto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnmelder, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVertreter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerBestLandZst, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPraefAufRef, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSB, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox3, Me.TextBox9, Me.TextBox1, Me.txtWarenbezeichung, Me.txtColliGewichtPreis, Me.txtATREUR1, Me.txtRg, Me.txtAbgabenKto, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.TextBox6, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAnmelder, Me.TextBox7, Me.txtVertreter, Me.txtVerBestLandZst, Me.txtPraefAufRef, Me.txtSB, Me.TextBox8, Me.txtATCMRN, Me.barcodeATCMRN})
Me.Detail.Height = 2.218504!
Me.Detail.Name = "Detail"
'
'TextBox3
'
Me.TextBox3.CanGrow = False
Me.TextBox3.Height = 0.1456693!
Me.TextBox3.Left = 0!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox3.Text = "Abgabenkto:"
Me.TextBox3.Top = 1.056299!
Me.TextBox3.Width = 0.9228347!
'
'TextBox9
'
Me.TextBox9.CanGrow = False
Me.TextBox9.Height = 0.1456693!
Me.TextBox9.Left = 0!
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox9.Text = "Pr<EFBFBD>f. auf Rg.:"
Me.TextBox9.Top = 0.91063!
Me.TextBox9.Width = 0.9228347!
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.1456693!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox1.Text = "ATR/EUR1:"
Me.TextBox1.Top = 0.6192915!
Me.TextBox1.Width = 0.9228347!
'
'txtWarenbezeichung
'
Me.txtWarenbezeichung.CanGrow = False
Me.txtWarenbezeichung.Height = 0.2535433!
Me.txtWarenbezeichung.Left = 0!
Me.txtWarenbezeichung.Name = "txtWarenbezeichung"
Me.txtWarenbezeichung.Style = "font-size: 8pt; ddo-char-set: 1"
Me.txtWarenbezeichung.Text = Nothing
Me.txtWarenbezeichung.Top = 0.168504!
Me.txtWarenbezeichung.Width = 4.03189!
'
'txtColliGewichtPreis
'
Me.txtColliGewichtPreis.Height = 0.1685039!
Me.txtColliGewichtPreis.Left = 0!
Me.txtColliGewichtPreis.Name = "txtColliGewichtPreis"
Me.txtColliGewichtPreis.Style = "font-weight: bold; text-align: left"
Me.txtColliGewichtPreis.Text = Nothing
Me.txtColliGewichtPreis.Top = 0!
Me.txtColliGewichtPreis.Width = 2.988189!
'
'txtATREUR1
'
Me.txtATREUR1.Height = 0.1456693!
Me.txtATREUR1.Left = 0.8811024!
Me.txtATREUR1.Name = "txtATREUR1"
Me.txtATREUR1.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtATREUR1.Text = Nothing
Me.txtATREUR1.Top = 0.6192912!
Me.txtATREUR1.Width = 3.150787!
'
'txtRg
'
Me.txtRg.Height = 0.1456693!
Me.txtRg.Left = 0.8811024!
Me.txtRg.Name = "txtRg"
Me.txtRg.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtRg.Text = Nothing
Me.txtRg.Top = 0.7649607!
Me.txtRg.Width = 3.150787!
'
'txtAbgabenKto
'
Me.txtAbgabenKto.Height = 0.1456693!
Me.txtAbgabenKto.Left = 0.8811024!
Me.txtAbgabenKto.Name = "txtAbgabenKto"
Me.txtAbgabenKto.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtAbgabenKto.Text = Nothing
Me.txtAbgabenKto.Top = 1.056299!
Me.txtAbgabenKto.Width = 3.150787!
'
'TextBox2
'
Me.TextBox2.CanGrow = False
Me.TextBox2.Height = 0.1456693!
Me.TextBox2.Left = 0!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox2.Text = "Handels-Rg.:"
Me.TextBox2.Top = 0.7649607!
Me.TextBox2.Width = 0.9228347!
'
'TextBox4
'
Me.TextBox4.CanGrow = False
Me.TextBox4.Height = 0.1456693!
Me.TextBox4.Left = 0!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox4.Text = "Absender:"
Me.TextBox4.Top = 1.266142!
Me.TextBox4.Width = 0.8811023!
Me.TextBox4.Visible = False
'
'TextBox5
'
Me.TextBox5.CanGrow = False
Me.TextBox5.Height = 0.1456693!
Me.TextBox5.Left = 0!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox5.Text = "Empf<EFBFBD>nger:"
Me.TextBox5.Top = 1.411811!
Me.TextBox5.Width = 0.8811023!
'
'TextBox6
'
Me.TextBox6.CanGrow = False
Me.TextBox6.Height = 0.1456693!
Me.TextBox6.Left = 0!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox6.Text = "Anmelder:"
Me.TextBox6.Top = 1.55748!
Me.TextBox6.Width = 0.8811023!
'
'txtAbsender
'
Me.txtAbsender.CanGrow = False
Me.txtAbsender.Height = 0.1456693!
Me.txtAbsender.Left = 0.8811024!
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtAbsender.Text = Nothing
Me.txtAbsender.Top = 1.266143!
Me.txtAbsender.Width = 3.150787!
Me.txtAbsender.Visible = False
'
'txtEmpfaenger
'
Me.txtEmpfaenger.CanGrow = False
Me.txtEmpfaenger.Height = 0.1456693!
Me.txtEmpfaenger.Left = 0.8811024!
Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtEmpfaenger.Text = Nothing
Me.txtEmpfaenger.Top = 1.411811!
Me.txtEmpfaenger.Width = 3.150787!
'
'txtAnmelder
'
Me.txtAnmelder.CanGrow = False
Me.txtAnmelder.Height = 0.1456693!
Me.txtAnmelder.Left = 0.8811024!
Me.txtAnmelder.Name = "txtAnmelder"
Me.txtAnmelder.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtAnmelder.Text = Nothing
Me.txtAnmelder.Top = 1.55748!
Me.txtAnmelder.Width = 3.150787!
'
'TextBox7
'
Me.TextBox7.CanGrow = False
Me.TextBox7.Height = 0.1456693!
Me.TextBox7.Left = 0!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox7.Text = "Vertreter:"
Me.TextBox7.Top = 1.70315!
Me.TextBox7.Width = 0.8811023!
Me.TextBox7.Visible = False
'
'txtVertreter
'
Me.txtVertreter.CanGrow = False
Me.txtVertreter.Height = 0.1456693!
Me.txtVertreter.Left = 0.8811024!
Me.txtVertreter.Name = "txtVertreter"
Me.txtVertreter.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtVertreter.Text = Nothing
Me.txtVertreter.Top = 1.70315!
Me.txtVertreter.Width = 3.150787!
Me.txtVertreter.Visible = False
'
'txtVerBestLandZst
'
Me.txtVerBestLandZst.Height = 0.1456693!
Me.txtVerBestLandZst.Left = 0!
Me.txtVerBestLandZst.Name = "txtVerBestLandZst"
Me.txtVerBestLandZst.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtVerBestLandZst.Text = Nothing
Me.txtVerBestLandZst.Top = 0.4220473!
Me.txtVerBestLandZst.Width = 4.031889!
'
'txtPraefAufRef
'
Me.txtPraefAufRef.Height = 0.1456693!
Me.txtPraefAufRef.Left = 0.8811024!
Me.txtPraefAufRef.Name = "txtPraefAufRef"
Me.txtPraefAufRef.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtPraefAufRef.Text = Nothing
Me.txtPraefAufRef.Top = 0.91063!
Me.txtPraefAufRef.Width = 3.150787!
'
'txtSB
'
Me.txtSB.CanGrow = False
Me.txtSB.Height = 0.1685039!
Me.txtSB.Left = 2.791339!
Me.txtSB.Name = "txtSB"
Me.txtSB.Style = "font-weight: bold; text-align: right"
Me.txtSB.Text = Nothing
Me.txtSB.Top = 0!
Me.txtSB.Width = 1.169291!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'TextBox8
'
Me.TextBox8.CanGrow = False
Me.TextBox8.Height = 0.1456693!
Me.TextBox8.Left = 0!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox8.Text = "ATC/MRN:"
Me.TextBox8.Top = 1.848819!
Me.TextBox8.Width = 0.8811023!
'
'txtATCMRN
'
Me.txtATCMRN.CanGrow = False
Me.txtATCMRN.Height = 0.1456693!
Me.txtATCMRN.Left = 0.8811024!
Me.txtATCMRN.Name = "txtATCMRN"
Me.txtATCMRN.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtATCMRN.Text = Nothing
Me.txtATCMRN.Top = 1.848819!
Me.txtATCMRN.Width = 3.150787!
'
'barcodeATCMRN
'
Me.barcodeATCMRN.Height = 0.1964569!
Me.barcodeATCMRN.HyperLink = Nothing
Me.barcodeATCMRN.ImageData = Nothing
Me.barcodeATCMRN.Left = 0.7889764!
Me.barcodeATCMRN.Name = "barcodeATCMRN"
Me.barcodeATCMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.BottomLeft
Me.barcodeATCMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeATCMRN.Top = 2.022048!
Me.barcodeATCMRN.Width = 3.242913!
'
'subRptSendungenZollpruefung
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 4.03189!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWarenbezeichung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColliGewichtPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATREUR1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRg, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgabenKto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnmelder, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVertreter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVerBestLandZst, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPraefAufRef, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSB, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtWarenbezeichung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents txtColliGewichtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtATREUR1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtRg As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbgabenKto 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
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnmelder As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVertreter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVerBestLandZst As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtPraefAufRef As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtSB As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtATCMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeATCMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
End Class

View File

@@ -0,0 +1,48 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Imports SDL
Public Class subRptSendungenZollpruefung
Dim ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
Sub New(ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ZOLLANMELDUNG = ZOLLANMELDUNG
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If ZOLLANMELDUNG IsNot Nothing Then
'Dim A As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
'If A.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
txtColliGewichtPreis.Text = ZOLLANMELDUNG.Colli & " " & ZOLLANMELDUNG.Gewicht & " " & ZOLLANMELDUNG.Rechnungspreis
txtAbgabenKto.Text &= ZOLLANMELDUNG.AbgabenKonto
txtRg.Text &= ZOLLANMELDUNG.Handelsrechnung
txtPraefAufRef.Text = ZOLLANMELDUNG.Pr<EFBFBD>ferenzAufRechnung
txtATREUR1.Text &= ZOLLANMELDUNG.Praeferenznachweis
txtWarenbezeichung.Text = ZOLLANMELDUNG.Warenbezeichung
txtVerBestLandZst.Text = ZOLLANMELDUNG.VerBestLandZst
txtAbsender.Text = ZOLLANMELDUNG.Absender
txtEmpfaenger.Text = ZOLLANMELDUNG.Empfaenger
txtAnmelder.Text = ZOLLANMELDUNG.Anmelder
txtVertreter.Text = ZOLLANMELDUNG.Vertreter
txtATCMRN.Text = ZOLLANMELDUNG.ATCMRN
If ZOLLANMELDUNG.ATCMRN <> "" Then
barcodeATCMRN.Image = Code128Rendering.MakeBarcodeImage(ZOLLANMELDUNG.ATCMRN, 1, True, 20)
End If
txtSB.Text = ZOLLANMELDUNG.Sachbearbeiter
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
'If ABF_ART <= 0 Then Exit Sub
'If AbfKostKdnr <= 0 Then Exit Sub
'Me.DataSource = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select isnull(LeistungsNr,'') as LeistungsNr,isnull(LeistungsBez,'' ) as LeistungsBez,isnull(Preis,'') as Preis FROM [Offertenpositionen] where KundenNr=" & AbfKostKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & ABF_ART & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
End Sub
End Class

View File

@@ -0,0 +1,457 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
<ProductVersion>
</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}</ProjectGuid>
<OutputType>Library</OutputType>
<StartupObject>
</StartupObject>
<RootNamespace>Gemeinsames</RootNamespace>
<AssemblyName>Gemeinsames</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>1</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Gemeinsames.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
<PlatformTarget>x86</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Gemeinsames.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>On</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>E1277E3EC64E394A66EC726E5057325CDF3A52E3</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>Gemeinsames_TemporaryKey.pfx</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>true</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<PlatformTarget>AnyCPU</PlatformTarget>
<OutputPath>bin\Debug\</OutputPath>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<PlatformTarget>x64</PlatformTarget>
<OutputPath>bin\Release\</OutputPath>
</PropertyGroup>
<PropertyGroup>
<SignAssembly>false</SignAssembly>
</PropertyGroup>
<PropertyGroup>
<AssemblyOriginatorKeyFile>Gemeinsames_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\BouncyCastle.Cryptography.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.DX.Windows, Version=7.2.2.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\DS.Documents.DX.Windows.7.2.2\lib\net461\DS.Documents.DX.Windows.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Imaging, Version=7.2.2.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\DS.Documents.Imaging.7.2.2\lib\net461\DS.Documents.Imaging.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Imaging.Windows, Version=7.2.2.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\DS.Documents.Imaging.Windows.7.2.2\lib\net461\DS.Documents.Imaging.Windows.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Pdf, Version=7.2.2.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\DS.Documents.Pdf.7.2.2\lib\net461\DS.Documents.Pdf.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.18.2.2\lib\net462\MESCIUS.ActiveReports.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Chart, Version=18.0.4.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Chart.18.0.4\lib\net462\MESCIUS.ActiveReports.Chart.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Chart.Win, Version=18.0.4.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Chart.Win.18.0.4\lib\net462\MESCIUS.ActiveReports.Chart.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders, Version=3.1.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.DataProviders.3.1.2\lib\net462\MESCIUS.ActiveReports.Core.DataProviders.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders.Excel, Version=1.1.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.DataProviders.Excel.1.1.2\lib\net462\MESCIUS.ActiveReports.Core.DataProviders.Excel.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Document.4.7.0\lib\net462\MESCIUS.ActiveReports.Core.Document.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gc, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Document.Drawing.Gc.4.7.0\lib\net462\MESCIUS.ActiveReports.Core.Document.Drawing.Gc.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gdi, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Document.Drawing.Gdi.4.7.0\lib\net462\MESCIUS.ActiveReports.Core.Document.Drawing.Gdi.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gc, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Drawing.Gc.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Drawing.Gc.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gdi, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Drawing.Gdi.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Drawing.Gdi.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Excel.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Excel.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Excel.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Html.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Html.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Html.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Image.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Image.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Image.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Pdf.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Pdf.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Section, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Pdf.Section.4.7.0\lib\net462\MESCIUS.ActiveReports.Core.Export.Pdf.Section.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Svg.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Svg.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Svg.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Text.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Text.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Text.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Tiff.Section, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Tiff.Section.4.7.0\lib\net462\MESCIUS.ActiveReports.Core.Export.Tiff.Section.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Word.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Export.Word.Page.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Export.Word.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Rdl, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Rdl.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Rdl.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Rendering, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Rendering.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Rendering.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Scripting, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Core.Scripting.3.12.1\lib\net462\MESCIUS.ActiveReports.Core.Scripting.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Design.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Design.Win.18.2.2\lib\net462\MESCIUS.ActiveReports.Design.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Excel, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Excel.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Excel.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Html, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Html.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Html.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Image, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Image.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Image.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Image.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Image.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Image.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Pdf, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Pdf.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Pdf.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Pdf.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Pdf.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Pdf.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Word, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Word.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Word.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Xml, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Export.Xml.18.2.2\lib\net462\MESCIUS.ActiveReports.Export.Xml.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.QueryDesigner, Version=1.0.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.QueryDesigner.1.0.2\lib\net462\MESCIUS.ActiveReports.QueryDesigner.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Serializer, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Serializer.VS2022.18.2.2\lib\net472\MESCIUS.ActiveReports.Serializer.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.SpreadBuilder, Version=2.2.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.SpreadBuilder.2.2.0\lib\net462\MESCIUS.ActiveReports.SpreadBuilder.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Common, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Viewer.Common.18.2.2\lib\net462\MESCIUS.ActiveReports.Viewer.Common.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.Viewer.Win.18.2.2\lib\net462\MESCIUS.ActiveReports.Viewer.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.ActiveReports.18.2.2\lib\net462\MESCIUS.ActiveReports.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.DataEngine, Version=4.0.3.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.Data.DataEngine.4.0.3\lib\net462\MESCIUS.Data.DataEngine.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.ExpressionInfo, Version=4.0.3.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.Data.ExpressionInfo.4.0.3\lib\net462\MESCIUS.Data.ExpressionInfo.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.VBFunctionLib, Version=4.0.3.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<HintPath>..\..\..\SDL\SDL\packages\MESCIUS.Data.VBFunctionLib.4.0.3\lib\net462\MESCIUS.Data.VBFunctionLib.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=8.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.8.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Design" />
<Reference Include="System.Drawing" />
<Reference Include="System.Drawing.Design" />
<Reference Include="System.Management" />
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.0.0\lib\net461\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.Serialization.Formatters.Soap" />
<Reference Include="System.Security" />
<Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll</HintPath>
</Reference>
<Reference Include="System.Web" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="cReportExportierer.vb" />
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="frmGrayOut.Designer.vb">
<DependentUpon>frmGrayOut.vb</DependentUpon>
</Compile>
<Compile Include="frmGrayOut.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="MyListItem.vb" />
<Compile Include="rptSendungenATILLA.Designer.vb">
<DependentUpon>rptSendungenATILLA.vb</DependentUpon>
</Compile>
<Compile Include="rptSendungenATILLA.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="rptSendungen.Designer.vb">
<DependentUpon>rptSendungen.vb</DependentUpon>
</Compile>
<Compile Include="rptSendungen.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenATA.Designer.vb">
<DependentUpon>subRptSendungenATA.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenATA.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenVorkosten.Designer.vb">
<DependentUpon>subRptSendungenVorkosten.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenVorkosten.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenZollpruefung.Designer.vb">
<DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenZollpruefung.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenOfferte.Designer.vb">
<DependentUpon>subRptSendungenOfferte.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenOfferte.vb">
<SubType>Component</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmGrayOut.resx">
<DependentUpon>frmGrayOut.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="rptSendungenATILLA.resx">
<DependentUpon>rptSendungenATILLA.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="rptSendungen.resx">
<DependentUpon>rptSendungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenATA.resx">
<DependentUpon>subRptSendungenATA.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenVorkosten.resx">
<DependentUpon>subRptSendungenVorkosten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenZollpruefung.resx">
<DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenOfferte.resx">
<DependentUpon>subRptSendungenOfferte.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="App.config" />
<None Include="Gemeinsames_TemporaryKey.pfx" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<None Include="packages.config" />
<None Include="PrivateCodeSignaturDaniel20240131.pfx" />
<None Include="Resources\Versionsinfo.txt" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Aviso.ico" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\road.jpg" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.5">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.5 %28x86 and x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<None Include="Resources\WAI.png" />
<None Include="Resources\QS.png" />
<None Include="Resources\NKD.png" />
<None Include="Resources\LEX.png" />
<None Include="Resources\SBG.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\SUB.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\UNISPED.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\IMEX.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\AMB.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
</ItemGroup>
<ItemGroup>
<Content Include="Resources\FO.png" />
<Content Include="Resources\VERIMEX.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
<Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
<Name>DAKOSY_Worker_lib</Name>
</ProjectReference>
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,356 @@
Public Class rptSendungen
Public VALUES As New rptSendungenValues
Public imgPath As String
Public ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
Public HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing
Public VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing
Sub New()
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.Document.Printer.PrinterName = ""
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
InitializeComponent()
Me.Document.Printer.PrinterName = ""
Me.VALUES = VALUES
Me.imgPath = imgPath
Me.ZOLLANMELDUNG = ZOLLANMELDUNG
Me.HANDLING = HANDLING
Me.VORKOSTEN = VORKOSTEN
init()
End Sub
Public Sub init()
txtAbfertigungsart.Text = VALUES.Abfertigungsart
txtTarifposanzahl.Text = VALUES.Tarifposanzahl
txtFilialeNr.Text = VALUES.FilialeNr
txtAbfertigungsnummer.Text = VALUES.Abfertigungsnummer
txtAvisierer_Firma.Text = VALUES.Avisierer_Firma
txtAvisierer_KdNr.Text = VALUES.Avisierer_KdNr
txtAuftraggeber_Firma.Text = VALUES.Auftraggeber_Firma
txtAuftraggeber_KdNr.Text = VALUES.Auftraggeber_KdNr
txtEmpfaenger_Firma.Text = VALUES.Empfaenger_Firma
txtEmpfaenger_KdNr.Text = VALUES.Empfaenger_KdNr
txtAbsender_Firma.Text = VALUES.Absender_Firma
txtAbsender_KdNr.Text = VALUES.Absender_KdNr
txtFrachtfuehrer_Firma.Text = VALUES.Frachtfuehrer_Firma
txtFrachtfuehrer_KdNr.Text = VALUES.Frachtfuehrer_KdNr
txtAvisierer_Zoll.Text = VALUES.Avisierer_Zoll
txtAvisierer_Eust.Text = VALUES.Avisierer_Eust
txtAvisierer_Abf.Text = VALUES.Avisierer_Abf
txtAvisierer_Clear.Text = VALUES.Avisierer_Clear
txtAuftraggeber_Zoll.Text = VALUES.Auftraggeber_Zoll
txtAuftraggeber_Eust.Text = VALUES.Auftraggeber_Eust
txtAuftraggeber_Abf.Text = VALUES.Auftraggeber_Abf
txtAuftraggeber_Clear.Text = VALUES.Auftraggeber_Clear
txtEmpfaenger_Zoll.Text = VALUES.Empfaenger_Zoll
txtEmpfaenger_Eust.Text = VALUES.Empfaenger_Eust
txtEmpfaenger_Abf.Text = VALUES.Empfaenger_Abf
txtEmpfaenger_Clear.Text = VALUES.Empfaenger_Clear
txtAbsender_Zoll.Text = VALUES.Absender_Zoll
txtAbsender_Eust.Text = VALUES.Absender_Eust
txtAbsender_Abf.Text = VALUES.Absender_Abf
txtAbsender_Clear.Text = VALUES.Absender_Clear
txtFrachtfuehrer_Zoll.Text = VALUES.Frachtfuehrer_Zoll
txtFrachtfuehrer_Eust.Text = VALUES.Frachtfuehrer_Eust
txtFrachtfuehrer_Abf.Text = VALUES.Frachtfuehrer_Abf
txtFrachtfuehrer_Clear.Text = VALUES.Frachtfuehrer_Clear
txtAvisierer_Leistung1.Text = VALUES.Avisierer_Leistung1
txtAvisierer_Betrag1.Text = VALUES.Avisierer_Betrag1
txtAvisierer_Leistung2.Text = VALUES.Avisierer_Leistung2
txtAvisierer_Betrag2.Text = VALUES.Avisierer_Betrag2
txtAvisierer_Leistung3.Text = VALUES.Avisierer_Leistung3
txtAvisierer_Betrag3.Text = VALUES.Avisierer_Betrag3
txtAuftraggeber_Leistung1.Text = VALUES.Auftraggeber_Leistung1
txtAuftraggeber_Betrag.Text = VALUES.Auftraggeber_Betrag
txtAuftraggeber_Leistung2.Text = VALUES.Auftraggeber_Leistung2
txtAuftraggeber_Betrag2.Text = VALUES.Auftraggeber_Betrag2
txtAuftraggeber_Leistung3.Text = VALUES.Auftraggeber_Leistung3
txtAuftraggeber_Betrag3.Text = VALUES.Auftraggeber_Betrag3
txtKdAuftrNr.Text = VALUES.KdAuftrNr
txtEmpfaenger_Leistung1.Text = VALUES.Empfaenger_Leistung1
txtEmpfaenger_Betrag1.Text = VALUES.Empfaenger_Betrag1
txtEmpfaenger_Leistung2.Text = VALUES.Empfaenger_Leistung2
txtEmpfaenger_Betrag2.Text = VALUES.Empfaenger_Betrag2
txtEmpfaenger_Leistung3.Text = VALUES.Empfaenger_Leistung3
txtEmpfaenger_Betrag3.Text = VALUES.Empfaenger_Betrag3
txtAbsender_Leistung1.Text = VALUES.Absender_Leistung1
txtAbsender_Betrag1.Text = VALUES.Absender_Betrag1
txtAbsender_Leistung2.Text = VALUES.Absender_Leistung2
txtAbsender_Betrag2.Text = VALUES.Absender_Betrag2
txtAbsender_Leistung3.Text = VALUES.Absender_Leistung3
txtAbsender_Betrag3.Text = VALUES.Absender_Betrag3
txtFrachtfuehrer_Leistung1.Text = VALUES.Frachtfuehrer_Leistung1
txtFrachtfuehrer_Betrag1.Text = VALUES.Frachtfuehrer_Betrag1
txtFrachtfuehrer_Leistung2.Text = VALUES.Frachtfuehrer_Leistung2
txtFrachtfuehrer_Betrag2.Text = VALUES.Frachtfuehrer_Betrag2
txtFrachtfuehrer_Leistung3.Text = VALUES.Frachtfuehrer_Leistung3
txtFrachtfuehrer_Betrag3.Text = VALUES.Frachtfuehrer_Betrag3
txtFrachtfuehrer_Bar_BelegNr.Text = VALUES.Frachtfuehrer_Bar_BelegNr
txtFrachtfuehrer_Bar_Betrag.Text = VALUES.Frachtfuehrer_Bar_Betrag
txtFrachtfuehrer_Bar_BelegNr2.Text = VALUES.Frachtfuehrer_Bar_BelegNr2
txtFrachtfuehrer_Bar_Betrag2.Text = VALUES.Frachtfuehrer_Bar_Betrag2
txtFrachtfuehrer_Bar_BelegNr3.Text = VALUES.Frachtfuehrer_Bar_BelegNr3
txtFrachtfuehrer_Bar_Betrag3.Text = VALUES.Frachtfuehrer_Bar_Betrag3
txtAvisierer_eigBin.Text = VALUES.Avisierer_eigBin
txtAuftraggeber_eigBin.Text = VALUES.Auftraggeber_eigBin
txtEmpfaenger_eigBIN.Text = VALUES.Empfaenger_eigBIN
txtAbsender_eigBIN.Text = VALUES.Absender_eigBIN
txtFrachtfuehrer_eigBIN.Text = VALUES.Frachtfuehrer_eigBIN
txtAvisierer_VK.Text = VALUES.Avisierer_VK
txtAuftraggeber_VK.Text = VALUES.Auftraggeber_VK
txtEmpfaenger_VK.Text = VALUES.Empfaenger_VK
txtAbsender_VK.Text = VALUES.Absender_VK
txtFrachtfuehrer_VK.Text = VALUES.Frachtfuehrer_VK
txtLKWKennzeichen.Text = VALUES.LKWKennzeichen
txtAnkunft.Text = VALUES.Ankunft
txtAbfahrt.Text = VALUES.Abfahrt
txtWarenbezeichnung.Text = VALUES.Warenbezeichnung
txtColli.Text = VALUES.Colli
txtGewicht.Text = VALUES.Gewicht
txtAufschub_VERAG.Text = VALUES.Aufschub_VERAG
' rtbAbfKost.Text = VALUES.AbfKost--> Mit Sub Report gel<65>st
txtDokZuSend_Ueberschrift.Text = VALUES.DokZuSend_Ueberschrift
txtDokZuSend_Text.Text = VALUES.DokZuSend_Text
txtAnmerkungen.Text = VALUES.Anmerkungen
txtBARzuKassieren.Text = VALUES.BARzuKassieren
txtEmpfaenger_EUSTKto.Text = VALUES.Empfaenger_EUSTKto
txtAuftraggeber_EUSTKto.Text = VALUES.Auftraggeber_EUSTKto
txtAuftraggeber_ZOLLKto.Text = VALUES.Auftraggeber_ZOLLKto
txtEmpfaenger_ZOLLKto.Text = VALUES.Empfaenger_ZOLLKto
cbxDyUebermittelt.Checked = VALUES.DyUebermittelt
TextBox3.Text = "Abkl.: " & VALUES.QS_MA & vbNewLine & "Dekl.: " & VALUES.VG_MA
If VALUES.Grenze.Trim <> "" Then
lblGrenze.Visible = True
shGrenze.Visible = True
txtGrenze.Visible = True
txtGrenze.Text = VALUES.Grenze.Replace("???", "")
Else
lblGrenze.Visible = False
shGrenze.Visible = False
txtGrenze.Visible = False
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATK_DY_UEBERMITTELT") Then
cbxDyUebermittelt.Visible = True
End If
If VALUES.SchnellAbfertigung Then
txtSchnellAbfertigung.Visible = True
End If
Select Case VALUES.ABF_ART
Case 5, 6, 18, 32, 24, 33, 34, 37, 40, 42
txtNCTSVZAdr.Visible = True
lblNCTSVZAdr.Visible = True
txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr
lblNCTSVZAdr.Text = "NCTS" & vbNewLine & "Gest.-Adr.:"
Case 7
txtNCTSVZAdr.Visible = True
lblNCTSVZAdr.Visible = True
txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr
lblNCTSVZAdr.Text = "Amtsplatz/" & vbNewLine & "Zollstopp:"
Case 26, 28
txtNCTSVZAdr.Visible = True
lblNCTSVZAdr.Visible = True
txtNCTSVZAdr.Text = VALUES.FISKAL_ENDEMPF
lblNCTSVZAdr.Text = "Fiskal" & vbNewLine & "EndEmpf.:"
End Select
If barcodeLKW IsNot Nothing Then
If VALUES.barcodeLKW IsNot Nothing Then
barcodeLKW.Image = If(VALUES.barcodeLKW, Nothing)
End If
End If
barcodeSendung.Image = If(VALUES.barcodeSendung, Nothing)
' picQR.Image = If(VALUES.imgQR, Nothing)
If picQR IsNot Nothing Then
If VALUES.imgQR IsNot Nothing Then
picQR.Image = If(VALUES.imgQR, Nothing)
End If
End If
'OFFERTE!
If False Then
If VALUES.AbfKostKdnr > 0 Then
Dim s = New subRptSendungenOfferte(VALUES.ABF_ART, VALUES.AbfKostKdnr)
SubReport.Report = s
End If
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
Dim s = New subRptSendungenVorkosten(VORKOSTEN)
SubReport.Report = s
Else
If ZOLLANMELDUNG IsNot Nothing Then
Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
SubReport.Report = s
ElseIf HANDLING IsNot Nothing Then
Dim s = New subRptSendungenATA(HANDLING)
SubReport.Report = s
End If
End If
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
' Dim fs As New System.IO.FileStream(imgPath, System.IO.FileMode.Open, System.IO.FileAccess.Read)
' Dim bm As New Bitmap(GrapeCity.ActiveReports.Document.Drawing.Image.FromStream(fs))
Dim bm As New Bitmap(imgPath)
Me.Picture.Image = bm
' fs.Close()
End Sub
Private Sub rptSendungen_PageStart(sender As Object, e As EventArgs) Handles Me.PageStart
' Me.Document.CacheToDisk = True
End Sub
Private Sub rptSendungen_ReportEnd(sender As Object, e As EventArgs) Handles Me.ReportEnd
GC.Collect()
End Sub
Private Sub rptSendungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Me.Document.Printer.PrinterName = ""
End Sub
End Class
Public Class rptSendungenValues
Property Abfertigungsart As String = ""
Property Tarifposanzahl As String = ""
Property FilialeNr As String = ""
Property Abfertigungsnummer As String = ""
Property Avisierer_Firma As String = ""
Property Avisierer_KdNr As String = ""
Property Auftraggeber_Firma As String = ""
Property Auftraggeber_KdNr As String = ""
Property Empfaenger_Firma As String = ""
Property Empfaenger_KdNr As String = ""
Property Absender_Firma As String = ""
Property Absender_KdNr As String = ""
Property Frachtfuehrer_Firma As String = ""
Property Frachtfuehrer_KdNr As String = ""
Property Avisierer_Zoll As String = ""
Property Avisierer_Eust As String = ""
Property Avisierer_Abf As String = ""
Property Avisierer_Clear As String = ""
Property Auftraggeber_Zoll As String = ""
Property Auftraggeber_Eust As String = ""
Property Auftraggeber_Abf As String = ""
Property Auftraggeber_Clear As String = ""
Property Empfaenger_Zoll As String = ""
Property Empfaenger_Eust As String = ""
Property Empfaenger_Abf As String = ""
Property Empfaenger_Clear As String = ""
Property Absender_Zoll As String = ""
Property Absender_Eust As String = ""
Property Absender_Abf As String = ""
Property Absender_Clear As String = ""
Property Frachtfuehrer_Zoll As String = ""
Property Frachtfuehrer_Eust As String = ""
Property Frachtfuehrer_Abf As String = ""
Property Frachtfuehrer_Clear As String = ""
Property Avisierer_Leistung1 As String = ""
Property Avisierer_Betrag1 As String = ""
Property Avisierer_Leistung2 As String = ""
Property Avisierer_Betrag2 As String = ""
Property Avisierer_Leistung3 As String = ""
Property Avisierer_Betrag3 As String = ""
Property Auftraggeber_Leistung1 As String = ""
Property Auftraggeber_Betrag As String = ""
Property Auftraggeber_Leistung2 As String = ""
Property Auftraggeber_Betrag2 As String = ""
Property Auftraggeber_Leistung3 As String = ""
Property Auftraggeber_Betrag3 As String = ""
Property KdAuftrNr As String = ""
Property Empfaenger_Leistung1 As String = ""
Property Empfaenger_Betrag1 As String = ""
Property Empfaenger_Leistung2 As String = ""
Property Empfaenger_Betrag2 As String = ""
Property Empfaenger_Leistung3 As String = ""
Property Empfaenger_Betrag3 As String = ""
Property Absender_Leistung1 As String = ""
Property Absender_Betrag1 As String = ""
Property Absender_Leistung2 As String = ""
Property Absender_Betrag2 As String = ""
Property Absender_Leistung3 As String = ""
Property Absender_Betrag3 As String = ""
Property Frachtfuehrer_Leistung1 As String = ""
Property Frachtfuehrer_Betrag1 As String = ""
Property Frachtfuehrer_Leistung2 As String = ""
Property Frachtfuehrer_Betrag2 As String = ""
Property Frachtfuehrer_Leistung3 As String = ""
Property Frachtfuehrer_Betrag3 As String = ""
Property Frachtfuehrer_Bar_BelegNr As String = ""
Property Frachtfuehrer_Bar_Betrag As String = ""
Property Frachtfuehrer_Bar_BelegNr2 As String = ""
Property Frachtfuehrer_Bar_Betrag2 As String = ""
Property Frachtfuehrer_Bar_BelegNr3 As String = ""
Property Frachtfuehrer_Bar_Betrag3 As String = ""
Property Avisierer_eigBin As String = ""
Property Auftraggeber_eigBin As String = ""
Property Empfaenger_eigBIN As String = ""
Property Absender_eigBIN As String = ""
Property Frachtfuehrer_eigBIN As String = ""
Property Avisierer_VK As String = ""
Property Auftraggeber_VK As String = ""
Property Empfaenger_VK As String = ""
Property Absender_VK As String = ""
Property Frachtfuehrer_VK As String = ""
Property LKWKennzeichen As String = ""
Property Ankunft As String = ""
Property Abfahrt As String = ""
Property Warenbezeichnung As String = ""
Property Colli As String = ""
Property Gewicht As String = ""
Property Aufschub_VERAG As String = ""
Property DokZuSend_Ueberschrift As String = ""
Property DokZuSend_Text As String = ""
Property Anmerkungen As String = ""
' Property BAR As String = ""
Property BARzuKassieren As String = ""
Property ABTEILUNG As String = ""
Property NCTS_VZAdr As String = ""
Property FISKAL_ENDEMPF As String = ""
Property ABF_ART As Integer = -1
Property barcodeLKW As Image = Nothing
Property barcodeSendung As Image = Nothing
Property imgQR As Image = Nothing
Property AbfKost As String = ""
Property AbfKostKdnr As Integer = -1
Property Empfaenger_EUSTKto As String = ""
Property Auftraggeber_EUSTKto As String = ""
Property Empfaenger_ZOLLKto As String = ""
Property Auftraggeber_ZOLLKto As String = ""
Property Grenze As String = ""
Property DyUebermittelt As Boolean = False
Property SchnellAbfertigung As Boolean = False
Property VG_MA As String = ""
Property QS_MA As String = ""
End Class

View File

@@ -0,0 +1,885 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSendungenATILLA
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(rptSendungenATILLA))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Picture = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtAnmerkungen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFilialeNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbfertigungsnummer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Firma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_KdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisierer_Firma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisierer_KdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeber_Firma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAuftraggeber_KdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_BelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_Betrag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLKWKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbfahrt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWarenbezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeLKW = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeSendung = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtIRAN_CMR_Agent = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.txtFrachtfuehrer_Bar_BelegNr2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_Betrag2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_BelegNr3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtfuehrer_Bar_Betrag3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLkwId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZA_5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAusgangsZst_8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTransportTemp = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.cbxZugMaschine = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.cbxTransportTemp = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAndereAusgangsstelle = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZugMaschine = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.Picture, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnmerkungen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFilialeNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Firma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_KdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisierer_Firma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisierer_KdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeber_Firma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAuftraggeber_KdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLKWKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeSendung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtIRAN_CMR_Agent, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLkwId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZA_5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgangsZst_8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTransportTemp, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxZugMaschine, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxTransportTemp, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAndereAusgangsstelle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZugMaschine, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.CanGrow = False
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture, Me.txtAnmerkungen, Me.txtFilialeNr, Me.txtAbfertigungsnummer, Me.txtFrachtfuehrer_Firma, Me.txtFrachtfuehrer_KdNr, Me.txtAvisierer_Firma, Me.txtAvisierer_KdNr, Me.txtAuftraggeber_Firma, Me.txtAuftraggeber_KdNr, Me.txtFrachtfuehrer_Bar_BelegNr, Me.txtFrachtfuehrer_Bar_Betrag, Me.txtLKWKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtWarenbezeichnung, Me.txtColli, Me.txtGewicht, Me.barcodeLKW, Me.TextBox1, Me.barcodeSendung, Me.TextBox2, Me.txtIRAN_CMR_Agent, Me.SubReport, Me.txtFrachtfuehrer_Bar_BelegNr2, Me.txtFrachtfuehrer_Bar_Betrag2, Me.txtFrachtfuehrer_Bar_BelegNr3, Me.txtFrachtfuehrer_Bar_Betrag3, Me.txtLkwId, Me.txtAusgangsZst_1, Me.txtAusgangsZst_5, Me.txtZA_1, Me.txtZA_2, Me.txtZA_3, Me.txtZA_4, Me.txtZA_5, Me.txtAusgangsZst_2, Me.txtAusgangsZst_3, Me.txtAusgangsZst_4, Me.txtAusgangsZst_6, Me.txtAusgangsZst_9, Me.txtAusgangsZst_7, Me.txtAusgangsZst_8, Me.txtTransportTemp, Me.cbxZugMaschine, Me.cbxTransportTemp, Me.txtAndereAusgangsstelle, Me.txtZugMaschine})
Me.Detail.Height = 11.69291!
Me.Detail.Name = "Detail"
'
'Picture
'
Me.Picture.Height = 11.69291!
Me.Picture.HyperLink = Nothing
Me.Picture.ImageBase64String = resources.GetString("Picture.ImageBase64String")
Me.Picture.Left = 0.0000004768372!
Me.Picture.Name = "Picture"
Me.Picture.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture.Top = 0.0!
Me.Picture.Width = 8.267716!
'
'txtAnmerkungen
'
Me.txtAnmerkungen.CanGrow = False
Me.txtAnmerkungen.DistinctField = ""
Me.txtAnmerkungen.Height = 3.740552!
Me.txtAnmerkungen.Left = 5.187402!
Me.txtAnmerkungen.Name = "txtAnmerkungen"
Me.txtAnmerkungen.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAnmerkungen.Style = "color: Black; font-size: 16pt; font-weight: normal; text-decoration: none; text-j" & _
"ustify: auto; vertical-align: top; ddo-char-set: 1; ddo-font-vertical: none; ddo" & _
"-shrink-to-fit: none"
Me.txtAnmerkungen.SummaryGroup = ""
Me.txtAnmerkungen.Text = "Zu sendende Dokumente:"
Me.txtAnmerkungen.Top = 2.337795!
Me.txtAnmerkungen.Width = 2.69567!
'
'txtFilialeNr
'
Me.txtFilialeNr.CanGrow = False
Me.txtFilialeNr.Height = 0.2937008!
Me.txtFilialeNr.Left = 5.11811!
Me.txtFilialeNr.Name = "txtFilialeNr"
Me.txtFilialeNr.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle; ddo-char-set: 1"
Me.txtFilialeNr.Text = "4801"
Me.txtFilialeNr.Top = 0.3811024!
Me.txtFilialeNr.Width = 0.7708666!
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer.CanGrow = False
Me.txtAbfertigungsnummer.Height = 0.2937008!
Me.txtAbfertigungsnummer.Left = 5.659843!
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
"cal-align: middle; ddo-char-set: 1"
Me.txtAbfertigungsnummer.Text = "17000000"
Me.txtAbfertigungsnummer.Top = 0.3811024!
Me.txtAbfertigungsnummer.Width = 2.364567!
'
'txtFrachtfuehrer_Firma
'
Me.txtFrachtfuehrer_Firma.CanGrow = False
Me.txtFrachtfuehrer_Firma.Height = 0.5641732!
Me.txtFrachtfuehrer_Firma.Left = 1.162597!
Me.txtFrachtfuehrer_Firma.Name = "txtFrachtfuehrer_Firma"
Me.txtFrachtfuehrer_Firma.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtFrachtfuehrer_Firma.Text = "TESTFIRMA"
Me.txtFrachtfuehrer_Firma.Top = 1.444488!
Me.txtFrachtfuehrer_Firma.Width = 3.854725!
'
'txtFrachtfuehrer_KdNr
'
Me.txtFrachtfuehrer_KdNr.CanGrow = False
Me.txtFrachtfuehrer_KdNr.Height = 0.1795275!
Me.txtFrachtfuehrer_KdNr.Left = 3.780314!
Me.txtFrachtfuehrer_KdNr.Name = "txtFrachtfuehrer_KdNr"
Me.txtFrachtfuehrer_KdNr.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtFrachtfuehrer_KdNr.Text = "123456"
Me.txtFrachtfuehrer_KdNr.Top = 1.264961!
Me.txtFrachtfuehrer_KdNr.Width = 1.237008!
'
'txtAvisierer_Firma
'
Me.txtAvisierer_Firma.CanGrow = False
Me.txtAvisierer_Firma.Height = 0.5641732!
Me.txtAvisierer_Firma.Left = 1.162598!
Me.txtAvisierer_Firma.Name = "txtAvisierer_Firma"
Me.txtAvisierer_Firma.Style = "font-size: 12pt; ddo-char-set: 1"
Me.txtAvisierer_Firma.Text = "TESTFIRMA"
Me.txtAvisierer_Firma.Top = 2.235039!
Me.txtAvisierer_Firma.Width = 3.854725!
'
'txtAvisierer_KdNr
'
Me.txtAvisierer_KdNr.CanGrow = False
Me.txtAvisierer_KdNr.Height = 0.1795275!
Me.txtAvisierer_KdNr.Left = 3.780315!
Me.txtAvisierer_KdNr.Name = "txtAvisierer_KdNr"
Me.txtAvisierer_KdNr.Style = "font-size: 12pt; ddo-char-set: 1"
Me.txtAvisierer_KdNr.Text = "123456"
Me.txtAvisierer_KdNr.Top = 2.047638!
Me.txtAvisierer_KdNr.Width = 1.237008!
'
'txtAuftraggeber_Firma
'
Me.txtAuftraggeber_Firma.CanGrow = False
Me.txtAuftraggeber_Firma.Height = 0.5641732!
Me.txtAuftraggeber_Firma.Left = 1.162598!
Me.txtAuftraggeber_Firma.Name = "txtAuftraggeber_Firma"
Me.txtAuftraggeber_Firma.Style = "font-size: 12pt; font-weight: normal; ddo-char-set: 1"
Me.txtAuftraggeber_Firma.Text = "TESTFIRMA"
Me.txtAuftraggeber_Firma.Top = 3.026772!
Me.txtAuftraggeber_Firma.Width = 3.854725!
'
'txtAuftraggeber_KdNr
'
Me.txtAuftraggeber_KdNr.CanGrow = False
Me.txtAuftraggeber_KdNr.Height = 0.1795275!
Me.txtAuftraggeber_KdNr.Left = 3.780315!
Me.txtAuftraggeber_KdNr.Name = "txtAuftraggeber_KdNr"
Me.txtAuftraggeber_KdNr.Style = "font-size: 12pt; font-weight: normal; ddo-char-set: 1"
Me.txtAuftraggeber_KdNr.Text = "123456"
Me.txtAuftraggeber_KdNr.Top = 2.843308!
Me.txtAuftraggeber_KdNr.Width = 1.237008!
'
'txtFrachtfuehrer_Bar_BelegNr
'
Me.txtFrachtfuehrer_Bar_BelegNr.CanGrow = False
Me.txtFrachtfuehrer_Bar_BelegNr.DistinctField = ""
Me.txtFrachtfuehrer_Bar_BelegNr.Height = 0.2755905!
Me.txtFrachtfuehrer_Bar_BelegNr.Left = 5.118111!
Me.txtFrachtfuehrer_Bar_BelegNr.Name = "txtFrachtfuehrer_Bar_BelegNr"
Me.txtFrachtfuehrer_Bar_BelegNr.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtFrachtfuehrer_Bar_BelegNr.Style = resources.GetString("txtFrachtfuehrer_Bar_BelegNr.Style")
Me.txtFrachtfuehrer_Bar_BelegNr.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_BelegNr.Text = "TEST"
Me.txtFrachtfuehrer_Bar_BelegNr.Top = 1.475984!
Me.txtFrachtfuehrer_Bar_BelegNr.Width = 1.574803!
'
'txtFrachtfuehrer_Bar_Betrag
'
Me.txtFrachtfuehrer_Bar_Betrag.CanGrow = False
Me.txtFrachtfuehrer_Bar_Betrag.DistinctField = ""
Me.txtFrachtfuehrer_Bar_Betrag.Height = 0.2755905!
Me.txtFrachtfuehrer_Bar_Betrag.Left = 6.692914!
Me.txtFrachtfuehrer_Bar_Betrag.Name = "txtFrachtfuehrer_Bar_Betrag"
Me.txtFrachtfuehrer_Bar_Betrag.Style = resources.GetString("txtFrachtfuehrer_Bar_Betrag.Style")
Me.txtFrachtfuehrer_Bar_Betrag.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_Betrag.Text = "0"
Me.txtFrachtfuehrer_Bar_Betrag.Top = 1.475984!
Me.txtFrachtfuehrer_Bar_Betrag.Width = 1.259842!
'
'txtLKWKennzeichen
'
Me.txtLKWKennzeichen.CanGrow = False
Me.txtLKWKennzeichen.DistinctField = ""
Me.txtLKWKennzeichen.Height = 0.5877953!
Me.txtLKWKennzeichen.Left = 0.8543308!
Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen"
Me.txtLKWKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtLKWKennzeichen.Style = "color: Black; font-size: 16pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtLKWKennzeichen.SummaryGroup = ""
Me.txtLKWKennzeichen.Text = "34 TR 45454"
Me.txtLKWKennzeichen.Top = 0.2334646!
Me.txtLKWKennzeichen.Width = 2.359054!
'
'txtAnkunft
'
Me.txtAnkunft.CanGrow = False
Me.txtAnkunft.DistinctField = ""
Me.txtAnkunft.Height = 0.1574803!
Me.txtAnkunft.Left = 3.780315!
Me.txtAnkunft.Name = "txtAnkunft"
Me.txtAnkunft.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAnkunft.Style = resources.GetString("txtAnkunft.Style")
Me.txtAnkunft.SummaryGroup = ""
Me.txtAnkunft.Text = "01.01.17 00:00"
Me.txtAnkunft.Top = 0.6244095!
Me.txtAnkunft.Width = 1.237008!
'
'txtAbfahrt
'
Me.txtAbfahrt.CanGrow = False
Me.txtAbfahrt.DistinctField = ""
Me.txtAbfahrt.Height = 0.1574803!
Me.txtAbfahrt.Left = 3.780315!
Me.txtAbfahrt.Name = "txtAbfahrt"
Me.txtAbfahrt.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAbfahrt.Style = resources.GetString("txtAbfahrt.Style")
Me.txtAbfahrt.SummaryGroup = ""
Me.txtAbfahrt.Text = "01.01.17 00:00"
Me.txtAbfahrt.Top = 0.7937009!
Me.txtAbfahrt.Width = 1.237008!
'
'txtWarenbezeichnung
'
Me.txtWarenbezeichnung.CanGrow = False
Me.txtWarenbezeichnung.DistinctField = ""
Me.txtWarenbezeichnung.Height = 0.395276!
Me.txtWarenbezeichnung.Left = 0.642126!
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
Me.txtWarenbezeichnung.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtWarenbezeichnung.Style = resources.GetString("txtWarenbezeichnung.Style")
Me.txtWarenbezeichnung.SummaryGroup = ""
Me.txtWarenbezeichnung.Text = "M<EFBFBD>BEL TEST"
Me.txtWarenbezeichnung.Top = 7.808268!
Me.txtWarenbezeichnung.Width = 4.375197!
'
'txtColli
'
Me.txtColli.CanGrow = False
Me.txtColli.DistinctField = ""
Me.txtColli.Height = 0.3779528!
Me.txtColli.Left = 0.6456693!
Me.txtColli.Name = "txtColli"
Me.txtColli.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtColli.Style = resources.GetString("txtColli.Style")
Me.txtColli.SummaryGroup = ""
Me.txtColli.Text = "0"
Me.txtColli.Top = 8.328741!
Me.txtColli.Width = 2.164567!
'
'txtGewicht
'
Me.txtGewicht.CanGrow = False
Me.txtGewicht.DistinctField = ""
Me.txtGewicht.Height = 0.3779528!
Me.txtGewicht.Left = 2.810236!
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtGewicht.Style = resources.GetString("txtGewicht.Style")
Me.txtGewicht.SummaryGroup = ""
Me.txtGewicht.Text = "0kg"
Me.txtGewicht.Top = 8.328741!
Me.txtGewicht.Width = 2.093307!
'
'barcodeLKW
'
Me.barcodeLKW.Height = 0.2889763!
Me.barcodeLKW.HyperLink = Nothing
Me.barcodeLKW.ImageData = Nothing
Me.barcodeLKW.Left = 0.6421265!
Me.barcodeLKW.Name = "barcodeLKW"
Me.barcodeLKW.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.TopLeft
Me.barcodeLKW.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeLKW.Top = 0.8212597!
Me.barcodeLKW.Width = 2.864567!
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.1334647!
Me.TextBox1.Left = 0.8059056!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 7pt; font-weight: normal; text-justify: auto; vertical-align: middle; " & _
"ddo-char-set: 1"
Me.TextBox1.Text = "Barcode-Scan: Akt <20>bernehmen"
Me.TextBox1.Top = 1.110236!
Me.TextBox1.Width = 2.864567!
'
'barcodeSendung
'
Me.barcodeSendung.Height = 4.96378!
Me.barcodeSendung.HyperLink = Nothing
Me.barcodeSendung.ImageData = Nothing
Me.barcodeSendung.Left = 0.2082682!
Me.barcodeSendung.Name = "barcodeSendung"
Me.barcodeSendung.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.BottomLeft
Me.barcodeSendung.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeSendung.Top = 2.785827!
Me.barcodeSendung.Width = 0.3543307!
'
'TextBox2
'
Me.TextBox2.CanGrow = False
Me.TextBox2.Height = 0.1720467!
Me.TextBox2.Left = 0.6704725!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-size: 7pt; font-weight: normal; text-justify: auto; vertical-align: middle; " & _
"ddo-char-set: 1"
Me.TextBox2.Text = "Barcode-Scan links: Akt <20>bernehmen & Sendung <20>ffnen"
Me.TextBox2.Top = 10.23622!
Me.TextBox2.Visible = False
Me.TextBox2.Width = 0.1838584!
'
'txtIRAN_CMR_Agent
'
Me.txtIRAN_CMR_Agent.Height = 0.5885825!
Me.txtIRAN_CMR_Agent.Left = 0.7480316!
Me.txtIRAN_CMR_Agent.Name = "txtIRAN_CMR_Agent"
Me.txtIRAN_CMR_Agent.Style = "font-size: 10pt; ddo-char-set: 1"
Me.txtIRAN_CMR_Agent.Text = "TESTFIRMA"
Me.txtIRAN_CMR_Agent.Top = 3.788977!
Me.txtIRAN_CMR_Agent.Width = 3.385827!
'
'SubReport
'
Me.SubReport.CanGrow = False
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.4830716!
Me.SubReport.Left = 0.6704725!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 8.98937!
Me.SubReport.Visible = False
Me.SubReport.Width = 3.346457!
'
'txtFrachtfuehrer_Bar_BelegNr2
'
Me.txtFrachtfuehrer_Bar_BelegNr2.CanGrow = False
Me.txtFrachtfuehrer_Bar_BelegNr2.DistinctField = ""
Me.txtFrachtfuehrer_Bar_BelegNr2.Height = 0.2755905!
Me.txtFrachtfuehrer_Bar_BelegNr2.Left = 5.11811!
Me.txtFrachtfuehrer_Bar_BelegNr2.Name = "txtFrachtfuehrer_Bar_BelegNr2"
Me.txtFrachtfuehrer_Bar_BelegNr2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtFrachtfuehrer_Bar_BelegNr2.Style = resources.GetString("txtFrachtfuehrer_Bar_BelegNr2.Style")
Me.txtFrachtfuehrer_Bar_BelegNr2.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_BelegNr2.Text = "TEST"
Me.txtFrachtfuehrer_Bar_BelegNr2.Top = 1.732283!
Me.txtFrachtfuehrer_Bar_BelegNr2.Width = 1.574803!
'
'txtFrachtfuehrer_Bar_Betrag2
'
Me.txtFrachtfuehrer_Bar_Betrag2.CanGrow = False
Me.txtFrachtfuehrer_Bar_Betrag2.DistinctField = ""
Me.txtFrachtfuehrer_Bar_Betrag2.Height = 0.2755905!
Me.txtFrachtfuehrer_Bar_Betrag2.Left = 6.692914!
Me.txtFrachtfuehrer_Bar_Betrag2.Name = "txtFrachtfuehrer_Bar_Betrag2"
Me.txtFrachtfuehrer_Bar_Betrag2.Style = resources.GetString("txtFrachtfuehrer_Bar_Betrag2.Style")
Me.txtFrachtfuehrer_Bar_Betrag2.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_Betrag2.Text = "0"
Me.txtFrachtfuehrer_Bar_Betrag2.Top = 1.732284!
Me.txtFrachtfuehrer_Bar_Betrag2.Width = 1.259843!
'
'txtFrachtfuehrer_Bar_BelegNr3
'
Me.txtFrachtfuehrer_Bar_BelegNr3.CanGrow = False
Me.txtFrachtfuehrer_Bar_BelegNr3.DistinctField = ""
Me.txtFrachtfuehrer_Bar_BelegNr3.Height = 0.242126!
Me.txtFrachtfuehrer_Bar_BelegNr3.Left = 5.118111!
Me.txtFrachtfuehrer_Bar_BelegNr3.Name = "txtFrachtfuehrer_Bar_BelegNr3"
Me.txtFrachtfuehrer_Bar_BelegNr3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtFrachtfuehrer_Bar_BelegNr3.Style = resources.GetString("txtFrachtfuehrer_Bar_BelegNr3.Style")
Me.txtFrachtfuehrer_Bar_BelegNr3.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_BelegNr3.Text = "TEST"
Me.txtFrachtfuehrer_Bar_BelegNr3.Top = 1.952756!
Me.txtFrachtfuehrer_Bar_BelegNr3.Width = 1.574803!
'
'txtFrachtfuehrer_Bar_Betrag3
'
Me.txtFrachtfuehrer_Bar_Betrag3.CanGrow = False
Me.txtFrachtfuehrer_Bar_Betrag3.DistinctField = ""
Me.txtFrachtfuehrer_Bar_Betrag3.Height = 0.242126!
Me.txtFrachtfuehrer_Bar_Betrag3.Left = 6.692914!
Me.txtFrachtfuehrer_Bar_Betrag3.Name = "txtFrachtfuehrer_Bar_Betrag3"
Me.txtFrachtfuehrer_Bar_Betrag3.Style = resources.GetString("txtFrachtfuehrer_Bar_Betrag3.Style")
Me.txtFrachtfuehrer_Bar_Betrag3.SummaryGroup = ""
Me.txtFrachtfuehrer_Bar_Betrag3.Text = "0"
Me.txtFrachtfuehrer_Bar_Betrag3.Top = 1.952756!
Me.txtFrachtfuehrer_Bar_Betrag3.Width = 1.259832!
'
'txtLkwId
'
Me.txtLkwId.CanGrow = False
Me.txtLkwId.DistinctField = ""
Me.txtLkwId.Height = 0.1574803!
Me.txtLkwId.Left = 1.308268!
Me.txtLkwId.Name = "txtLkwId"
Me.txtLkwId.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtLkwId.Style = resources.GetString("txtLkwId.Style")
Me.txtLkwId.SummaryGroup = ""
Me.txtLkwId.Text = "1234567"
Me.txtLkwId.Top = 0.6244095!
Me.txtLkwId.Visible = False
Me.txtLkwId.Width = 1.193306!
'
'txtAusgangsZst_1
'
Me.txtAusgangsZst_1.CanGrow = False
Me.txtAusgangsZst_1.DistinctField = ""
Me.txtAusgangsZst_1.Height = 0.1574803!
Me.txtAusgangsZst_1.Left = 0.8543308!
Me.txtAusgangsZst_1.Name = "txtAusgangsZst_1"
Me.txtAusgangsZst_1.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_1.Style = resources.GetString("txtAusgangsZst_1.Style")
Me.txtAusgangsZst_1.SummaryGroup = ""
Me.txtAusgangsZst_1.Text = "X"
Me.txtAusgangsZst_1.Top = 4.589764!
Me.txtAusgangsZst_1.Width = 0.1574803!
'
'txtAusgangsZst_5
'
Me.txtAusgangsZst_5.CanGrow = False
Me.txtAusgangsZst_5.DistinctField = ""
Me.txtAusgangsZst_5.Height = 0.1574803!
Me.txtAusgangsZst_5.Left = 0.8543308!
Me.txtAusgangsZst_5.Name = "txtAusgangsZst_5"
Me.txtAusgangsZst_5.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_5.Style = resources.GetString("txtAusgangsZst_5.Style")
Me.txtAusgangsZst_5.SummaryGroup = ""
Me.txtAusgangsZst_5.Text = "X"
Me.txtAusgangsZst_5.Top = 5.262993!
Me.txtAusgangsZst_5.Width = 0.1574803!
'
'txtZA_1
'
Me.txtZA_1.CanGrow = False
Me.txtZA_1.DistinctField = ""
Me.txtZA_1.Height = 0.2854335!
Me.txtZA_1.Left = 0.9358268!
Me.txtZA_1.Name = "txtZA_1"
Me.txtZA_1.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_1.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_1.SummaryGroup = ""
Me.txtZA_1.Text = "DZST"
Me.txtZA_1.Top = 5.918898!
Me.txtZA_1.Width = 3.967717!
'
'txtZA_2
'
Me.txtZA_2.CanGrow = False
Me.txtZA_2.DistinctField = ""
Me.txtZA_2.Height = 0.2854335!
Me.txtZA_2.Left = 0.9358268!
Me.txtZA_2.Name = "txtZA_2"
Me.txtZA_2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_2.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_2.SummaryGroup = ""
Me.txtZA_2.Text = "DZST"
Me.txtZA_2.Top = 6.246063!
Me.txtZA_2.Width = 3.967717!
'
'txtZA_3
'
Me.txtZA_3.CanGrow = False
Me.txtZA_3.DistinctField = ""
Me.txtZA_3.Height = 0.2854335!
Me.txtZA_3.Left = 0.9358268!
Me.txtZA_3.Name = "txtZA_3"
Me.txtZA_3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_3.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_3.SummaryGroup = ""
Me.txtZA_3.Text = "DZST"
Me.txtZA_3.Top = 6.555119!
Me.txtZA_3.Width = 3.967717!
'
'txtZA_4
'
Me.txtZA_4.CanGrow = False
Me.txtZA_4.DistinctField = ""
Me.txtZA_4.Height = 0.2854335!
Me.txtZA_4.Left = 0.9358268!
Me.txtZA_4.Name = "txtZA_4"
Me.txtZA_4.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_4.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_4.SummaryGroup = ""
Me.txtZA_4.Text = "DZST"
Me.txtZA_4.Top = 6.897244!
Me.txtZA_4.Width = 3.967717!
'
'txtZA_5
'
Me.txtZA_5.CanGrow = False
Me.txtZA_5.DistinctField = ""
Me.txtZA_5.Height = 0.2854335!
Me.txtZA_5.Left = 0.9358268!
Me.txtZA_5.Name = "txtZA_5"
Me.txtZA_5.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZA_5.Style = "color: Black; font-size: 10pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZA_5.SummaryGroup = ""
Me.txtZA_5.Text = "DZST"
Me.txtZA_5.Top = 7.232284!
Me.txtZA_5.Width = 3.967717!
'
'txtAusgangsZst_2
'
Me.txtAusgangsZst_2.CanGrow = False
Me.txtAusgangsZst_2.DistinctField = ""
Me.txtAusgangsZst_2.Height = 0.1574803!
Me.txtAusgangsZst_2.Left = 0.8543307!
Me.txtAusgangsZst_2.Name = "txtAusgangsZst_2"
Me.txtAusgangsZst_2.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_2.Style = resources.GetString("txtAusgangsZst_2.Style")
Me.txtAusgangsZst_2.SummaryGroup = ""
Me.txtAusgangsZst_2.Text = "X"
Me.txtAusgangsZst_2.Top = 4.759054!
Me.txtAusgangsZst_2.Width = 0.1574803!
'
'txtAusgangsZst_3
'
Me.txtAusgangsZst_3.CanGrow = False
Me.txtAusgangsZst_3.DistinctField = ""
Me.txtAusgangsZst_3.Height = 0.1574803!
Me.txtAusgangsZst_3.Left = 0.8543308!
Me.txtAusgangsZst_3.Name = "txtAusgangsZst_3"
Me.txtAusgangsZst_3.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_3.Style = resources.GetString("txtAusgangsZst_3.Style")
Me.txtAusgangsZst_3.SummaryGroup = ""
Me.txtAusgangsZst_3.Text = "X"
Me.txtAusgangsZst_3.Top = 4.932284!
Me.txtAusgangsZst_3.Width = 0.1574803!
'
'txtAusgangsZst_4
'
Me.txtAusgangsZst_4.CanGrow = False
Me.txtAusgangsZst_4.DistinctField = ""
Me.txtAusgangsZst_4.Height = 0.1574803!
Me.txtAusgangsZst_4.Left = 0.8543308!
Me.txtAusgangsZst_4.Name = "txtAusgangsZst_4"
Me.txtAusgangsZst_4.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_4.Style = resources.GetString("txtAusgangsZst_4.Style")
Me.txtAusgangsZst_4.SummaryGroup = ""
Me.txtAusgangsZst_4.Text = "X"
Me.txtAusgangsZst_4.Top = 5.097634!
Me.txtAusgangsZst_4.Width = 0.1574803!
'
'txtAusgangsZst_6
'
Me.txtAusgangsZst_6.CanGrow = False
Me.txtAusgangsZst_6.DistinctField = ""
Me.txtAusgangsZst_6.Height = 0.1574803!
Me.txtAusgangsZst_6.Left = 2.964567!
Me.txtAusgangsZst_6.Name = "txtAusgangsZst_6"
Me.txtAusgangsZst_6.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_6.Style = resources.GetString("txtAusgangsZst_6.Style")
Me.txtAusgangsZst_6.SummaryGroup = ""
Me.txtAusgangsZst_6.Text = "X"
Me.txtAusgangsZst_6.Top = 4.589764!
Me.txtAusgangsZst_6.Width = 0.1574803!
'
'txtAusgangsZst_9
'
Me.txtAusgangsZst_9.CanGrow = False
Me.txtAusgangsZst_9.DistinctField = ""
Me.txtAusgangsZst_9.Height = 0.1574803!
Me.txtAusgangsZst_9.Left = 2.964567!
Me.txtAusgangsZst_9.Name = "txtAusgangsZst_9"
Me.txtAusgangsZst_9.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_9.Style = resources.GetString("txtAusgangsZst_9.Style")
Me.txtAusgangsZst_9.SummaryGroup = ""
Me.txtAusgangsZst_9.Text = "X"
Me.txtAusgangsZst_9.Top = 5.211813!
Me.txtAusgangsZst_9.Width = 0.1574803!
'
'txtAusgangsZst_7
'
Me.txtAusgangsZst_7.CanGrow = False
Me.txtAusgangsZst_7.DistinctField = ""
Me.txtAusgangsZst_7.Height = 0.1574803!
Me.txtAusgangsZst_7.Left = 2.964567!
Me.txtAusgangsZst_7.Name = "txtAusgangsZst_7"
Me.txtAusgangsZst_7.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_7.Style = resources.GetString("txtAusgangsZst_7.Style")
Me.txtAusgangsZst_7.SummaryGroup = ""
Me.txtAusgangsZst_7.Text = "X"
Me.txtAusgangsZst_7.Top = 4.759054!
Me.txtAusgangsZst_7.Width = 0.1574803!
'
'txtAusgangsZst_8
'
Me.txtAusgangsZst_8.CanGrow = False
Me.txtAusgangsZst_8.DistinctField = ""
Me.txtAusgangsZst_8.Height = 0.1574803!
Me.txtAusgangsZst_8.Left = 2.964567!
Me.txtAusgangsZst_8.Name = "txtAusgangsZst_8"
Me.txtAusgangsZst_8.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtAusgangsZst_8.Style = resources.GetString("txtAusgangsZst_8.Style")
Me.txtAusgangsZst_8.SummaryGroup = ""
Me.txtAusgangsZst_8.Text = "X"
Me.txtAusgangsZst_8.Top = 4.932284!
Me.txtAusgangsZst_8.Width = 0.1574803!
'
'txtTransportTemp
'
Me.txtTransportTemp.CanGrow = False
Me.txtTransportTemp.Height = 0.2204724!
Me.txtTransportTemp.Left = 3.691339!
Me.txtTransportTemp.Name = "txtTransportTemp"
Me.txtTransportTemp.Style = "font-size: 13pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.txtTransportTemp.Text = "-4 bis +8"
Me.txtTransportTemp.Top = 1.751575!
Me.txtTransportTemp.Width = 1.23189!
'
'cbxZugMaschine
'
Me.cbxZugMaschine.CanGrow = False
Me.cbxZugMaschine.DistinctField = ""
Me.cbxZugMaschine.Height = 0.1574803!
Me.cbxZugMaschine.Left = 3.46378!
Me.cbxZugMaschine.Name = "cbxZugMaschine"
Me.cbxZugMaschine.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.cbxZugMaschine.Style = resources.GetString("cbxZugMaschine.Style")
Me.cbxZugMaschine.SummaryGroup = ""
Me.cbxZugMaschine.Text = "X"
Me.cbxZugMaschine.Top = 1.039764!
Me.cbxZugMaschine.Visible = False
Me.cbxZugMaschine.Width = 0.1574802!
'
'cbxTransportTemp
'
Me.cbxTransportTemp.CanGrow = False
Me.cbxTransportTemp.DistinctField = ""
Me.cbxTransportTemp.Height = 0.1574803!
Me.cbxTransportTemp.Left = 3.71378!
Me.cbxTransportTemp.Name = "cbxTransportTemp"
Me.cbxTransportTemp.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.cbxTransportTemp.Style = resources.GetString("cbxTransportTemp.Style")
Me.cbxTransportTemp.SummaryGroup = ""
Me.cbxTransportTemp.Text = "X"
Me.cbxTransportTemp.Top = 1.822835!
Me.cbxTransportTemp.Width = 0.1574803!
'
'txtAndereAusgangsstelle
'
Me.txtAndereAusgangsstelle.CanGrow = False
Me.txtAndereAusgangsstelle.Height = 0.3881895!
Me.txtAndereAusgangsstelle.Left = 3.225197!
Me.txtAndereAusgangsstelle.Name = "txtAndereAusgangsstelle"
Me.txtAndereAusgangsstelle.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & _
"-char-set: 1"
Me.txtAndereAusgangsstelle.Text = "XXX"
Me.txtAndereAusgangsstelle.Top = 5.044094!
Me.txtAndereAusgangsstelle.Width = 1.803937!
'
'txtZugMaschine
'
Me.txtZugMaschine.CanGrow = False
Me.txtZugMaschine.DistinctField = ""
Me.txtZugMaschine.Height = 0.4952756!
Me.txtZugMaschine.Left = 3.213386!
Me.txtZugMaschine.Name = "txtZugMaschine"
Me.txtZugMaschine.Padding = New GrapeCity.ActiveReports.PaddingEx(1, 0, 0, 0)
Me.txtZugMaschine.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: left; text-decorati" & _
"on: none; text-justify: auto; vertical-align: middle; ddo-char-set: 1; ddo-font-" & _
"vertical: none; ddo-shrink-to-fit: none"
Me.txtZugMaschine.SummaryGroup = ""
Me.txtZugMaschine.Text = "34 TR 45454"
Me.txtZugMaschine.Top = 0.2334646!
Me.txtZugMaschine.Width = 1.803937!
'
'rptSendungenATILLA
'
Me.MasterReport = False
Me.MaxPages = CType(1, Long)
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.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 8.267716!
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.Picture, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnmerkungen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFilialeNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Firma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_KdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisierer_Firma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisierer_KdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeber_Firma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAuftraggeber_KdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLKWKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeSendung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtIRAN_CMR_Agent, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_BelegNr3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtfuehrer_Bar_Betrag3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLkwId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZA_5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgangsZst_8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTransportTemp, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxZugMaschine, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxTransportTemp, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAndereAusgangsstelle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZugMaschine, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtFilialeNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbfertigungsnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Firma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_KdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAvisierer_Firma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAvisierer_KdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAuftraggeber_Firma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAuftraggeber_KdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_BelegNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_Betrag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLKWKennzeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbfahrt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtWarenbezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnmerkungen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeLKW As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeSendung As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtIRAN_CMR_Agent As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents txtFrachtfuehrer_Bar_BelegNr2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_Betrag2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_BelegNr3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtfuehrer_Bar_Betrag3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLkwId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Picture As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtAusgangsZst_1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZA_5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAusgangsZst_8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtTransportTemp As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents cbxZugMaschine As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents cbxTransportTemp As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAndereAusgangsstelle As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtZugMaschine As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,248 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSendungenATILLA
Public VALUES As New rptSendungenValuesATILLA
Public imgPath As String
Sub New()
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(VALUES As rptSendungenValuesATILLA, imgPath As String)
InitializeComponent()
Me.VALUES = VALUES
Me.imgPath = imgPath
init()
End Sub
Public Sub init()
' txtAbfertigungsart.Text = VALUES.Abfertigungsart
' txtTarifposanzahl.Text = VALUES.Tarifposanzahl
txtLkwId.Text = VALUES.AvisoId
txtFilialeNr.Text = VALUES.FilialeNr
txtAbfertigungsnummer.Text = VALUES.Abfertigungsnummer
txtFrachtfuehrer_Firma.Text = VALUES.Frachtfuehrer_Firma
txtFrachtfuehrer_KdNr.Text = VALUES.Frachtfuehrer_KdNr
txtAvisierer_Firma.Text = VALUES.Avisierer_Firma
txtAvisierer_KdNr.Text = VALUES.Avisierer_KdNr
txtAuftraggeber_Firma.Text = VALUES.Auftraggeber_Firma
txtAuftraggeber_KdNr.Text = VALUES.Auftraggeber_KdNr
' txtAbsender_Firma.Text = VALUES.Absender_Firma
'txtAbsender_KdNr.Text = VALUES.Absender_KdNr
'txtEmpfaenger_Firma.Text = VALUES.Empfaenger_Firma
'txtEmpfaenger_KdNr.Text = VALUES.Empfaenger_KdNr
txtIRAN_CMR_Agent.Text = VALUES.IRAN_CMR_Agent
txtFrachtfuehrer_Bar_BelegNr.Text = VALUES.Frachtfuehrer_Bar_BelegNr
txtFrachtfuehrer_Bar_Betrag.Text = VALUES.Frachtfuehrer_Bar_Betrag
txtFrachtfuehrer_Bar_BelegNr2.Text = VALUES.Frachtfuehrer_Bar_BelegNr2
txtFrachtfuehrer_Bar_Betrag2.Text = VALUES.Frachtfuehrer_Bar_Betrag2
txtFrachtfuehrer_Bar_BelegNr3.Text = VALUES.Frachtfuehrer_Bar_BelegNr3
txtFrachtfuehrer_Bar_Betrag3.Text = VALUES.Frachtfuehrer_Bar_Betrag3
txtLKWKennzeichen.Text = VALUES.LKWKennzeichen
txtAnkunft.Text = VALUES.Ankunft
txtAbfahrt.Text = VALUES.Abfahrt
txtWarenbezeichnung.Text = VALUES.Warenbezeichnung
txtColli.Text = VALUES.Colli
txtGewicht.Text = VALUES.Gewicht
' txtAufschub_VERAG.Text = VALUES.Aufschub_VERAG
' rtbAbfKost.Text = VALUES.AbfKost--> Mit Sub Report gel<65>st
' txtDokZuSend_Ueberschrift.Text = VALUES.DokZuSend_Ueberschrift
' txtDokZuSend_Text.Text = VALUES.DokZuSend_Text
txtAnmerkungen.Text = VALUES.Anmerkungen
' txtBARzuKassieren.Text = VALUES.BARzuKassieren
txtLKWKennzeichen.Text = VALUES.LKWKennzeichen
txtZA_1.Text = VALUES.ZA_1
txtZA_2.Text = VALUES.ZA_2
txtZA_3.Text = VALUES.ZA_3
txtZA_4.Text = VALUES.ZA_4
txtZA_5.Text = VALUES.ZA_5
txtAusgangsZst_1.Text = VALUES.AusgangsZst_1
txtAusgangsZst_2.Text = VALUES.AusgangsZst_2
txtAusgangsZst_3.Text = VALUES.AusgangsZst_3
txtAusgangsZst_4.Text = VALUES.AusgangsZst_4
txtAusgangsZst_5.Text = VALUES.AusgangsZst_5
txtAusgangsZst_6.Text = VALUES.AusgangsZst_6
txtAusgangsZst_7.Text = VALUES.AusgangsZst_7
txtAusgangsZst_8.Text = VALUES.AusgangsZst_8
txtAusgangsZst_9.Text = VALUES.AusgangsZst_9
txtAndereAusgangsstelle.Text = VALUES.AndereAusgangsstelle
txtZugMaschine.Text = VALUES.Zugmaschine
cbxZugMaschine.Text = VALUES.ZugmaschineCBX
txtTransportTemp.Text = VALUES.Transporttemperatur
cbxTransportTemp.Text = VALUES.TransporttemperaturCBX
barcodeLKW.Image = If(VALUES.barcodeLKW, Nothing)
barcodeSendung.Image = If(VALUES.barcodeSendung, Nothing)
'OFFERTE!
If False Then
If VALUES.AbfKostKdnr > 0 Then
Dim s = New subRptSendungenOfferte(VALUES.ABF_ART, VALUES.AbfKostKdnr)
SubReport.Report = s
End If
End If
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
' Dim bm As New Bitmap(imgPath)
' Me.Picture.Image = bm
End Sub
Private Sub rptSendungen_PageStart(sender As Object, e As EventArgs) Handles Me.PageStart
' Me.Document.CacheToDisk = True
End Sub
Private Sub rptSendungen_ReportEnd(sender As Object, e As EventArgs) Handles Me.ReportEnd
GC.Collect()
End Sub
Private Sub rptSendungenATILLA_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class
Public Class rptSendungenValuesATILLA
Property AvisoId As String = ""
Property Abfertigungsart As String = ""
Property Tarifposanzahl As String = ""
Property FilialeNr As String = ""
Property Abfertigungsnummer As String = ""
Property Avisierer_Firma As String = ""
Property Avisierer_KdNr As String = ""
Property Auftraggeber_Firma As String = ""
Property Auftraggeber_KdNr As String = ""
Property Empfaenger_Firma As String = ""
Property Empfaenger_KdNr As String = ""
Property Absender_Firma As String = ""
Property Absender_KdNr As String = ""
Property Frachtfuehrer_Firma As String = ""
Property Frachtfuehrer_KdNr As String = ""
Property Avisierer_Zoll As String = ""
Property Avisierer_Eust As String = ""
Property Avisierer_Abf As String = ""
Property Avisierer_Clear As String = ""
Property Auftraggeber_Zoll As String = ""
Property Auftraggeber_Eust As String = ""
Property Auftraggeber_Abf As String = ""
Property Auftraggeber_Clear As String = ""
Property Empfaenger_Zoll As String = ""
Property Empfaenger_Eust As String = ""
Property Empfaenger_Abf As String = ""
Property Empfaenger_Clear As String = ""
Property Absender_Zoll As String = ""
Property Absender_Eust As String = ""
Property Absender_Abf As String = ""
Property Absender_Clear As String = ""
Property Frachtfuehrer_Zoll As String = ""
Property Frachtfuehrer_Eust As String = ""
Property Frachtfuehrer_Abf As String = ""
Property Frachtfuehrer_Clear As String = ""
Property Avisierer_Leistung1 As String = ""
Property Avisierer_Betrag1 As String = ""
Property Avisierer_Leistung2 As String = ""
Property Avisierer_Betrag2 As String = ""
Property Avisierer_Leistung3 As String = ""
Property Avisierer_Betrag3 As String = ""
Property Auftraggeber_Leistung1 As String = ""
Property Auftraggeber_Betrag As String = ""
Property Auftraggeber_Leistung2 As String = ""
Property Auftraggeber_Betrag2 As String = ""
Property Auftraggeber_Leistung3 As String = ""
Property Auftraggeber_Betrag3 As String = ""
Property Empfaenger_Leistung1 As String = ""
Property Empfaenger_Betrag1 As String = ""
Property Empfaenger_Leistung2 As String = ""
Property Empfaenger_Betrag2 As String = ""
Property Empfaenger_Leistung3 As String = ""
Property Empfaenger_Betrag3 As String = ""
Property Absender_Leistung1 As String = ""
Property Absender_Betrag1 As String = ""
Property Absender_Leistung2 As String = ""
Property Absender_Betrag2 As String = ""
Property Absender_Leistung3 As String = ""
Property Absender_Betrag3 As String = ""
Property Frachtfuehrer_Leistung1 As String = ""
Property Frachtfuehrer_Betrag1 As String = ""
Property Frachtfuehrer_Leistung2 As String = ""
Property Frachtfuehrer_Betrag2 As String = ""
Property Frachtfuehrer_Leistung3 As String = ""
Property Frachtfuehrer_Betrag3 As String = ""
Property Frachtfuehrer_Bar_BelegNr As String = ""
Property Frachtfuehrer_Bar_Betrag As String = ""
Property Frachtfuehrer_Bar_BelegNr2 As String = ""
Property Frachtfuehrer_Bar_Betrag2 As String = ""
Property Frachtfuehrer_Bar_BelegNr3 As String = ""
Property Frachtfuehrer_Bar_Betrag3 As String = ""
Property IRAN_CMR_Agent As String = ""
Property Avisierer_eigBin As String = ""
Property Auftraggeber_eigBin As String = ""
Property Empfaenger_eigBIN As String = ""
Property Absender_eigBIN As String = ""
Property Frachtfuehrer_eigBIN As String = ""
Property LKWKennzeichen As String = ""
Property Ankunft As String = ""
Property Abfahrt As String = ""
Property Warenbezeichnung As String = ""
Property Colli As String = ""
Property Gewicht As String = ""
Property Aufschub_VERAG As String = ""
Property DokZuSend_Ueberschrift As String = ""
Property DokZuSend_Text As String = ""
Property Anmerkungen As String = ""
' Property BAR As String = ""
Property BARzuKassieren As String = ""
Property ABTEILUNG As String = ""
Property NCTS_VZAdr As String = ""
Property FISKAL_ENDEMPF As String = ""
Property ABF_ART As Integer = -1
Property barcodeLKW As Image = Nothing
Property barcodeSendung As Image = Nothing
Property AbfKost As String = ""
Property AbfKostKdnr As Integer = -1
Property ZA_1 As String = ""
Property ZA_2 As String = ""
Property ZA_3 As String = ""
Property ZA_4 As String = ""
Property ZA_5 As String = ""
Property AusgangsZst_1 As String = ""
Property AusgangsZst_2 As String = ""
Property AusgangsZst_3 As String = ""
Property AusgangsZst_4 As String = ""
Property AusgangsZst_5 As String = ""
Property AusgangsZst_6 As String = ""
Property AusgangsZst_7 As String = ""
Property AusgangsZst_8 As String = ""
Property AusgangsZst_9 As String = ""
Property AndereAusgangsstelle As String = ""
Property Zugmaschine As String = ""
Property ZugmaschineCBX As String = ""
Property Transporttemperatur As String = ""
Property TransporttemperaturCBX As String = ""
End Class

View File

@@ -0,0 +1,136 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptSendungenATA
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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenATA))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtATCMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeATCMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox8, Me.txtATCMRN, Me.barcodeATCMRN, Me.txtColli, Me.txtGewicht})
Me.Detail.Height = 0.2665355!
Me.Detail.Name = "Detail"
'
'TextBox8
'
Me.TextBox8.CanGrow = False
Me.TextBox8.Height = 0.1456693!
Me.TextBox8.Left = 0.00000005960464!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 8pt; ddo-char-set: 1"
Me.TextBox8.Text = "ATA/MRN:"
Me.TextBox8.Top = 0!
Me.TextBox8.Width = 0.8811023!
'
'txtATCMRN
'
Me.txtATCMRN.CanGrow = False
Me.txtATCMRN.Height = 0.1913386!
Me.txtATCMRN.Left = 0.7059056!
Me.txtATCMRN.Name = "txtATCMRN"
Me.txtATCMRN.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtATCMRN.Text = Nothing
Me.txtATCMRN.Top = 0.07519685!
Me.txtATCMRN.Width = 1.582284!
'
'barcodeATCMRN
'
Me.barcodeATCMRN.Height = 0.1027552!
Me.barcodeATCMRN.HyperLink = Nothing
Me.barcodeATCMRN.ImageData = Nothing
Me.barcodeATCMRN.Left = 0.622441!
Me.barcodeATCMRN.Name = "barcodeATCMRN"
Me.barcodeATCMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.BottomLeft
Me.barcodeATCMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeATCMRN.Top = 0!
Me.barcodeATCMRN.Width = 3.409448!
'
'txtColli
'
Me.txtColli.CanGrow = False
Me.txtColli.Height = 0.1456693!
Me.txtColli.Left = 2.744882!
Me.txtColli.Name = "txtColli"
Me.txtColli.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtColli.Text = Nothing
Me.txtColli.Top = 0!
Me.txtColli.Width = 0.4822836!
'
'txtGewicht
'
Me.txtGewicht.CanGrow = False
Me.txtGewicht.Height = 0.1456693!
Me.txtGewicht.Left = 3.227166!
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtGewicht.Text = Nothing
Me.txtGewicht.Top = 0!
Me.txtGewicht.Width = 0.7421253!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'subRptSendungenATA
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 4.03189!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtATCMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeATCMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,69 @@
Imports System.Data
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Imports SDL
Public Class subRptSendungenATA
Dim HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing
Sub New(HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.HANDLING = HANDLING
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
'If HANDLING IsNot Nothing Then
' 'Dim A As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
' 'If A.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
' txtColli.Text = HANDLING.sndhdg_colli.ToString("N0") & " Pk"
' txtGewicht.Text = HANDLING.sndhdg_gewicht.ToString("N1") & " Pk"
' txtATCMRN.Text = HANDLING.sndhdg_nr
' If HANDLING.sndhdg_nr <> "" Then
' barcodeATCMRN.Image = Code128Rendering.MakeBarcodeImage(HANDLING.sndhdg_nr, 1, True, 15)
' End If
'End If
barcodeATCMRN.Visible = False
txtATCMRN.Text = ""
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("ATA").Value IsNot Nothing Then
Dim ATAMRN As String = Me.Fields.Item("ATA").Value.ToString
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
txtATCMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(ATAMRN, 1, True, 15)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
barcodeATCMRN.Image = barcodeATA
barcodeATCMRN.Visible = True
End If
txtColli.Text = ""
txtGewicht.Text = ""
If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = CDbl(Me.Fields.Item("Colli").Value).ToString("N0") & " Pk"
If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = CDbl(Me.Fields.Item("Gewicht").Value).ToString("N1") & " kg"
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim dt As New DataTable
dt.Columns.Add("ATA", System.Type.GetType("System.String"))
dt.Columns.Add("Colli", System.Type.GetType("System.String"))
dt.Columns.Add("Gewicht", System.Type.GetType("System.String"))
For Each s In HANDLING
dt.Rows.Add({s.sndhdg_nr, s.sndhdg_colli, s.sndhdg_gewicht})
Next
Me.DataSource = dt
End Sub
End Class

View File

@@ -0,0 +1,116 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subRptSendungenOfferte
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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenOfferte))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLeistungsNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLeistungsBez = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.txtOfferte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtLeistungsNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtOfferte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLeistungsNr, Me.txtLeistungsBez, Me.txtPreis})
Me.Detail.Height = 0.168504!
Me.Detail.Name = "Detail"
'
'txtLeistungsNr
'
Me.txtLeistungsNr.CanGrow = False
Me.txtLeistungsNr.Height = 0.168504!
Me.txtLeistungsNr.Left = 0.00000009685755!
Me.txtLeistungsNr.Name = "txtLeistungsNr"
Me.txtLeistungsNr.Top = 0.0!
Me.txtLeistungsNr.Width = 0.281496!
'
'txtLeistungsBez
'
Me.txtLeistungsBez.CanGrow = False
Me.txtLeistungsBez.Height = 0.168504!
Me.txtLeistungsBez.Left = 0.2814961!
Me.txtLeistungsBez.Name = "txtLeistungsBez"
Me.txtLeistungsBez.Text = Nothing
Me.txtLeistungsBez.Top = 0.0!
Me.txtLeistungsBez.Width = 2.262599!
'
'txtPreis
'
Me.txtPreis.CanGrow = False
Me.txtPreis.Height = 0.168504!
Me.txtPreis.Left = 2.544095!
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Style = "text-align: right"
Me.txtPreis.Top = 0.0!
Me.txtPreis.Width = 0.8023622!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtOfferte})
Me.GroupHeader1.Height = 0.1688976!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'txtOfferte
'
Me.txtOfferte.Height = 0.1688976!
Me.txtOfferte.Left = 0.0!
Me.txtOfferte.Name = "txtOfferte"
Me.txtOfferte.Style = "font-weight: bold; text-decoration: underline"
Me.txtOfferte.Text = "Offerte:"
Me.txtOfferte.Top = 0.0!
Me.txtOfferte.Width = 2.645669!
'
'subRptSendungenOfferte
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 3.346457!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.txtLeistungsNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtOfferte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtLeistungsNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLeistungsBez As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents txtOfferte As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
End Class

View File

@@ -0,0 +1,34 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptSendungenOfferte
Dim AbfKostKdnr As Integer
Dim ABF_ART As Integer
Sub New(ABF_ART As Integer, AbfKostKdnr As Integer)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ABF_ART = ABF_ART
Me.AbfKostKdnr = AbfKostKdnr
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
If Me.Fields.Item("LeistungsNr") IsNot Nothing AndAlso Me.Fields.Item("LeistungsNr").Value IsNot Nothing Then txtLeistungsNr.Text = Me.Fields.Item("LeistungsNr").Value.ToString
If Me.Fields.Item("LeistungsBez") IsNot Nothing AndAlso Me.Fields.Item("LeistungsBez").Value IsNot Nothing Then txtLeistungsBez.Text = Me.Fields.Item("LeistungsBez").Value.ToString
If Me.Fields.Item("Preis") IsNot Nothing AndAlso Me.Fields.Item("Preis").Value IsNot Nothing Then
txtPreis.Text = If(IsNumeric(Me.Fields.Item("Preis").Value.ToString), CDbl(Me.Fields.Item("Preis").Value.ToString).ToString("C2"), Me.Fields.Item("Preis").Value.ToString)
End If
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If ABF_ART <= 0 Then Exit Sub
If AbfKostKdnr <= 0 Then Exit Sub
Me.DataSource = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select isnull(LeistungsNr,'') as LeistungsNr,isnull(LeistungsBez,'' ) as LeistungsBez,isnull(Preis,'') as Preis FROM [Offertenpositionen] where KundenNr=" & AbfKostKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & ABF_ART & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
End Sub
End Class

Some files were not shown because too many files have changed in this diff Show More