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

Active Reports 18 (from 18..)

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

349
Aviso/ARConverterBackup/AvisoReports/rptQRAviso.Designer.vb generated Normal file
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

105
Aviso/ARConverterBackup/AvisoReports/rptQRAviso.vb Normal file
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

378
Aviso/ARConverterBackup/AvisoReports/rptQRSendung_VerwahrungApp.Designer.vb generated Normal file
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

111
Aviso/ARConverterBackup/AvisoReports/rptQRSendung_VerwahrungApp.vb Normal file
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

95
Aviso/ARConverterBackup/AvisoReports/rptTEST.Designer.vb generated Normal file
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

7
Aviso/ARConverterBackup/AvisoReports/rptTEST.vb Normal file
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