139 lines
5.3 KiB
VB.net
139 lines
5.3 KiB
VB.net
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ächter
|
|
' QR.Image = getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(AVISO.AvisoID))
|
|
QR.Image = getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
|
|
|
|
picQRAviso.Image = 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
|
|
|
|
Function getQRCode(QRtext As String, Optional QZSize As Integer = 4, Optional QRVersion As Integer = 7, Optional CorrectionLevel As QRCodeEncoder.ERROR_CORRECTION = QRCodeEncoder.ERROR_CORRECTION.M, Optional encoding As QRCodeEncoder.ENCODE_MODE = QRCodeEncoder.ENCODE_MODE.BYTE) As Image
|
|
Dim qrCodeEncoder As QRCodeEncoder = New QRCodeEncoder()
|
|
|
|
qrCodeEncoder.QRCodeEncodeMode = encoding
|
|
|
|
Try
|
|
Dim scale As Integer = Convert.ToInt16(QZSize)
|
|
qrCodeEncoder.QRCodeScale = scale
|
|
Catch ex As Exception
|
|
MessageBox.Show("Invalid size!")
|
|
Return Nothing
|
|
End Try
|
|
|
|
Try
|
|
Dim version As Integer = Convert.ToInt16(QRVersion)
|
|
qrCodeEncoder.QRCodeVersion = version
|
|
Catch ex As Exception
|
|
MessageBox.Show("Invalid version !")
|
|
End Try
|
|
|
|
Dim errorCorrect As String = CorrectionLevel
|
|
|
|
qrCodeEncoder.QRCodeErrorCorrect = CorrectionLevel
|
|
|
|
Dim image As Image
|
|
Dim data As String = QRtext
|
|
image = qrCodeEncoder.Encode(data)
|
|
Return image
|
|
End Function
|
|
|
|
Function getBARCODEAviso(AvisoID As String) As Image
|
|
Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & AvisoID & "/", 1, True, 25)
|
|
' barcode.RotateFlip(RotateFlipType.Rotate90FlipNone)
|
|
|
|
Return barcode
|
|
End Function
|
|
|
|
End Class
|