This commit is contained in:
2024-11-13 13:05:54 +01:00
14 changed files with 840 additions and 85 deletions

View File

@@ -500,6 +500,12 @@
<Compile Include="Auswertung\usrctlAuswertung.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="AvisoReports\rptQRSendung_VerwahrungApp.Designer.vb">
<DependentUpon>rptQRSendung_VerwahrungApp.vb</DependentUpon>
</Compile>
<Compile Include="AvisoReports\rptQRSendung_VerwahrungApp.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="AvisoReports\rptTEST.Designer.vb">
<DependentUpon>rptTEST.vb</DependentUpon>
</Compile>
@@ -1188,6 +1194,9 @@
<EmbeddedResource Include="Auswertung\usrctlAuswertung.resx">
<DependentUpon>usrctlAuswertung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="AvisoReports\rptQRSendung_VerwahrungApp.resx">
<DependentUpon>rptQRSendung_VerwahrungApp.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="AvisoReports\rptTEST.resx">
<DependentUpon>rptTEST.vb</DependentUpon>
</EmbeddedResource>
@@ -1680,6 +1689,8 @@
<None Include="Resources\memories4.png" />
<None Include="Resources\memories5.png" />
<None Include="Resources\reminder.png" />
<None Include="Resources\qr.png" />
<None Include="Resources\qr_s.png" />
<Content Include="Resources\WLAN\RunNHide.exe">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

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

File diff suppressed because one or more lines are too long

View File

@@ -0,0 +1,112 @@
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 = getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(AVISO.AvisoID))
'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

@@ -1318,6 +1318,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property qr() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("qr", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property qr_s() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("qr_s", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

View File

@@ -124,8 +124,8 @@
<data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
</data>
<data name="Telefonliste" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Telefonliste.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -142,6 +142,9 @@
<data name="printer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\printer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="birthday_4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\birthday_4.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -151,8 +154,8 @@
<data name="isd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\isd.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck_blue_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_blue_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -172,6 +175,9 @@
<data name="belegEUR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\belegEUR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck_blue_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_blue_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="weiterleiten" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\weiterleiten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -187,6 +193,9 @@
<data name="VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\vz hinderniss - zollbeschau - protokoll.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -196,9 +205,6 @@
<data name="digitalerAkt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
</data>
<data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -325,6 +331,9 @@
<data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="qr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\qr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -352,6 +361,9 @@
<data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ge_transport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ge_transport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -370,14 +382,14 @@
<data name="vorauszahlung3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_right_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow-right-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="weiterleiten_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -400,9 +412,6 @@
<data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -460,6 +469,9 @@
<data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_DE_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories0" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories0.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -490,24 +502,33 @@
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bundesanzeiger" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bundesanzeiger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="reminder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\reminder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ok" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ok.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoll_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -532,11 +553,17 @@
<data name="sprinter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ImageIcon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ImageIcon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -583,6 +610,9 @@
<data name="hp_versuchskaninchen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\hp-versuchskaninchen.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="noAviso_s1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\noAviso_s1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -592,8 +622,8 @@
<data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -625,8 +655,8 @@
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="image_443x282" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\image_443x282.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -637,8 +667,8 @@
<data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="word1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -667,31 +697,7 @@
<data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="birthday_4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\birthday_4.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories0" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories0.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="reminder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\reminder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="qr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\qr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
Aviso/Resources/qr.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.0 KiB

BIN
Aviso/Resources/qr_s.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.1 KiB

View File

@@ -1,5 +1,6 @@

Imports System.ComponentModel
Imports GrapeCity.DataVisualization.TypeScript
Imports VERAG_PROG_ALLGEMEIN
@@ -74,21 +75,36 @@ Public Class frmAddAktenvermerkShort
Dim at = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=19", "AVISO") -
SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=20", "AVISO")
If at > 0 Then
btnZollATEingereicht.BackColor = Color.Green
btnZollATEingereicht.ForeColor = Color.White
btnZollATEingereicht.Tag = "SWITCH"
btnZollATEingereicht.FlatAppearance.BorderColor = Color.Black
btnZollATEingereicht.Text = "Zoll AT " & vbNewLine & "fertig"
Dim Warenort = False
Dim Warenort_Land = ""
If myAviso.Grenzstelle.Replace("???", "") <> "" Then
Dim gst = New VERAG_PROG_ALLGEMEIN.cGrenzstelle(myAviso.Grenzstelle)
Warenort = gst.grz_Warenort
If If(gst.grz_ZollamtDST, "") <> "" AndAlso gst.grz_ZollamtDST.ToString.Length >= 2 Then
Warenort_Land = gst.grz_ZollamtDST.ToString.Substring(0, 2)
End If
End If
If de > 0 Then
btnZollDEEingereicht.BackColor = Color.Green
btnZollDEEingereicht.ForeColor = Color.White
btnZollDEEingereicht.Tag = "SWITCH"
btnZollDEEingereicht.FlatAppearance.BorderColor = Color.Black
btnZollDEEingereicht.Text = "Zoll DE " & vbNewLine & "fertig"
End If
If dedigital > 0 Then
If at > 0 Or (Warenort AndAlso Warenort_Land = "AT") Then
btnZollATEingereicht.BackColor = Color.Green
btnZollATEingereicht.ForeColor = Color.White
btnZollATEingereicht.Tag = "SWITCH"
btnZollATEingereicht.FlatAppearance.BorderColor = Color.Black
btnZollATEingereicht.Text = "Zoll AT " & vbNewLine & "fertig"
End If
If de > 0 Or (Warenort AndAlso Warenort_Land = "DE") Then
btnZollDEEingereicht.BackColor = Color.Green
btnZollDEEingereicht.ForeColor = Color.White
btnZollDEEingereicht.Tag = "SWITCH"
btnZollDEEingereicht.FlatAppearance.BorderColor = Color.Black
btnZollDEEingereicht.Text = "Zoll DE " & vbNewLine & "fertig"
End If
If dedigital > 0 Then
btnDEZollDIGITAL.BackColor = Color.Green
btnDEZollDIGITAL.ForeColor = Color.White
btnDEZollDIGITAL.Tag = "SWITCH"

View File

@@ -107,6 +107,7 @@ Partial Class usrcntlAktDetails
Me.txtMAinfo_Vorgeschrieben = New System.Windows.Forms.TextBox()
Me.txtMAinfo_VorbereitetQs = New System.Windows.Forms.TextBox()
Me.Panel8 = New System.Windows.Forms.Panel()
Me.btnQRVerwahrung = New System.Windows.Forms.Button()
Me.lblAktUebernommen = New System.Windows.Forms.Label()
Me.lblLKWChat_MsgCnt = New System.Windows.Forms.Label()
Me.lblBarZuKassierenSumme = New System.Windows.Forms.Label()
@@ -164,6 +165,8 @@ Partial Class usrcntlAktDetails
Me.DispolisteTRToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DispolisteENToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlOptionen = New System.Windows.Forms.Panel()
Me.Button8 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button16 = New System.Windows.Forms.Button()
Me.Button15 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
@@ -1336,6 +1339,7 @@ Partial Class usrcntlAktDetails
'Panel8
'
Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel8.Controls.Add(Me.btnQRVerwahrung)
Me.Panel8.Controls.Add(Me.lblAktUebernommen)
Me.Panel8.Controls.Add(Me.lblLKWChat_MsgCnt)
Me.Panel8.Controls.Add(Me.lblBarZuKassierenSumme)
@@ -1364,15 +1368,31 @@ Partial Class usrcntlAktDetails
Me.Panel8.Size = New System.Drawing.Size(575, 120)
Me.Panel8.TabIndex = 92
'
'btnQRVerwahrung
'
Me.btnQRVerwahrung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnQRVerwahrung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnQRVerwahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.btnQRVerwahrung.ForeColor = System.Drawing.Color.Black
Me.btnQRVerwahrung.Image = Global.AVISO.My.Resources.Resources.qr_s
Me.btnQRVerwahrung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnQRVerwahrung.Location = New System.Drawing.Point(369, 74)
Me.btnQRVerwahrung.Name = "btnQRVerwahrung"
Me.btnQRVerwahrung.Size = New System.Drawing.Size(69, 45)
Me.btnQRVerwahrung.TabIndex = 110
Me.btnQRVerwahrung.Text = "QR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vw."
Me.btnQRVerwahrung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnQRVerwahrung.UseVisualStyleBackColor = True
'
'lblAktUebernommen
'
Me.lblAktUebernommen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAktUebernommen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAktUebernommen.ForeColor = System.Drawing.Color.Green
Me.lblAktUebernommen.Location = New System.Drawing.Point(208, 75)
Me.lblAktUebernommen.Location = New System.Drawing.Point(7, 79)
Me.lblAktUebernommen.Name = "lblAktUebernommen"
Me.lblAktUebernommen.Size = New System.Drawing.Size(205, 38)
Me.lblAktUebernommen.Size = New System.Drawing.Size(159, 17)
Me.lblAktUebernommen.TabIndex = 102
Me.lblAktUebernommen.Text = "Akt übernommen!"
Me.lblAktUebernommen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -1442,9 +1462,9 @@ Partial Class usrcntlAktDetails
Me.Button7.ForeColor = System.Drawing.Color.Black
Me.Button7.Image = Global.AVISO.My.Resources.Resources.handy1
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button7.Location = New System.Drawing.Point(375, 0)
Me.Button7.Location = New System.Drawing.Point(369, 0)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(63, 36)
Me.Button7.Size = New System.Drawing.Size(69, 36)
Me.Button7.TabIndex = 107
Me.Button7.Text = "SMS"
Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -1459,10 +1479,10 @@ Partial Class usrcntlAktDetails
Me.btnLkwBeleg.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnLkwBeleg.ForeColor = System.Drawing.Color.Black
Me.btnLkwBeleg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnLkwBeleg.Location = New System.Drawing.Point(375, 35)
Me.btnLkwBeleg.Location = New System.Drawing.Point(369, 35)
Me.btnLkwBeleg.Margin = New System.Windows.Forms.Padding(0)
Me.btnLkwBeleg.Name = "btnLkwBeleg"
Me.btnLkwBeleg.Size = New System.Drawing.Size(63, 40)
Me.btnLkwBeleg.Size = New System.Drawing.Size(69, 40)
Me.btnLkwBeleg.TabIndex = 106
Me.btnLkwBeleg.Text = "BAR"
Me.btnLkwBeleg.UseVisualStyleBackColor = False
@@ -1499,7 +1519,7 @@ Partial Class usrcntlAktDetails
Me.lblIMEX.BackColor = System.Drawing.SystemColors.WindowFrame
Me.lblIMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold)
Me.lblIMEX.ForeColor = System.Drawing.Color.White
Me.lblIMEX.Location = New System.Drawing.Point(184, 9)
Me.lblIMEX.Location = New System.Drawing.Point(179, 9)
Me.lblIMEX.Name = "lblIMEX"
Me.lblIMEX.Size = New System.Drawing.Size(86, 20)
Me.lblIMEX.TabIndex = 98
@@ -1513,7 +1533,7 @@ Partial Class usrcntlAktDetails
Me.cbxHandling.BackColor = System.Drawing.SystemColors.WindowFrame
Me.cbxHandling.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold)
Me.cbxHandling.ForeColor = System.Drawing.Color.White
Me.cbxHandling.Location = New System.Drawing.Point(273, 9)
Me.cbxHandling.Location = New System.Drawing.Point(268, 9)
Me.cbxHandling.Name = "cbxHandling"
Me.cbxHandling.Size = New System.Drawing.Size(98, 20)
Me.cbxHandling.TabIndex = 99
@@ -1999,7 +2019,7 @@ Partial Class usrcntlAktDetails
Me.conMenuVermerke.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.conMenuVermerke.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.conVermerkEntgLöschen, Me.HervorhebenToolStripMenuItem, Me.ToolUeberweisungsBeleg, Me.toolVkReminder, Me.MitarbeiterAnzeigenToolStripMenuItem, Me.conVermerkLöschenNew})
Me.conMenuVermerke.Name = "conMenuVermerke"
Me.conMenuVermerke.Size = New System.Drawing.Size(252, 206)
Me.conMenuVermerke.Size = New System.Drawing.Size(252, 184)
'
'conVermerkEntgLöschen
'
@@ -2068,6 +2088,8 @@ Partial Class usrcntlAktDetails
Me.pnlOptionen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlOptionen.BackColor = System.Drawing.Color.Black
Me.pnlOptionen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlOptionen.Controls.Add(Me.Button8)
Me.pnlOptionen.Controls.Add(Me.Button1)
Me.pnlOptionen.Controls.Add(Me.Button16)
Me.pnlOptionen.Controls.Add(Me.Button15)
Me.pnlOptionen.Controls.Add(Me.Button6)
@@ -2081,10 +2103,42 @@ Partial Class usrcntlAktDetails
Me.pnlOptionen.Controls.Add(Me.Button10)
Me.pnlOptionen.Location = New System.Drawing.Point(454, 141)
Me.pnlOptionen.Name = "pnlOptionen"
Me.pnlOptionen.Size = New System.Drawing.Size(116, 255)
Me.pnlOptionen.Size = New System.Drawing.Size(116, 315)
Me.pnlOptionen.TabIndex = 82
Me.pnlOptionen.Visible = False
'
'Button8
'
Me.Button8.BackColor = System.Drawing.Color.White
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.ForeColor = System.Drawing.Color.Black
Me.Button8.Image = Global.AVISO.My.Resources.Resources.android_note
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button8.Location = New System.Drawing.Point(3, 163)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(109, 22)
Me.Button8.TabIndex = 110
Me.Button8.TabStop = False
Me.Button8.Text = "öffnen"
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.UseVisualStyleBackColor = False
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.Black
Me.Button1.Image = Global.AVISO.My.Resources.Resources.android_note
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.Location = New System.Drawing.Point(3, 126)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(109, 38)
Me.Button1.TabIndex = 109
Me.Button1.TabStop = False
Me.Button1.Text = "Verwahrung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "QR"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.UseVisualStyleBackColor = False
'
'Button16
'
Me.Button16.BackColor = System.Drawing.Color.White
@@ -2092,7 +2146,7 @@ Partial Class usrcntlAktDetails
Me.Button16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button16.ForeColor = System.Drawing.Color.Black
Me.Button16.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button16.Location = New System.Drawing.Point(72, 185)
Me.Button16.Location = New System.Drawing.Point(72, 253)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(39, 28)
Me.Button16.TabIndex = 108
@@ -2108,7 +2162,7 @@ Partial Class usrcntlAktDetails
Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button15.ForeColor = System.Drawing.Color.Black
Me.Button15.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button15.Location = New System.Drawing.Point(72, 214)
Me.Button15.Location = New System.Drawing.Point(72, 282)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(39, 28)
Me.Button15.TabIndex = 107
@@ -2124,7 +2178,7 @@ Partial Class usrcntlAktDetails
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button6.ForeColor = System.Drawing.Color.Black
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button6.Location = New System.Drawing.Point(3, 214)
Me.Button6.Location = New System.Drawing.Point(3, 282)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(71, 28)
Me.Button6.TabIndex = 105
@@ -2140,7 +2194,7 @@ Partial Class usrcntlAktDetails
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button4.ForeColor = System.Drawing.Color.Black
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.Location = New System.Drawing.Point(3, 185)
Me.Button4.Location = New System.Drawing.Point(3, 253)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(71, 28)
Me.Button4.TabIndex = 104
@@ -2156,7 +2210,7 @@ Partial Class usrcntlAktDetails
Me.btnWlanTicket.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnWlanTicket.ForeColor = System.Drawing.Color.Black
Me.btnWlanTicket.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnWlanTicket.Location = New System.Drawing.Point(3, 151)
Me.btnWlanTicket.Location = New System.Drawing.Point(3, 219)
Me.btnWlanTicket.Name = "btnWlanTicket"
Me.btnWlanTicket.Size = New System.Drawing.Size(109, 28)
Me.btnWlanTicket.TabIndex = 103
@@ -2172,7 +2226,7 @@ Partial Class usrcntlAktDetails
Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button13.ForeColor = System.Drawing.Color.Black
Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button13.Location = New System.Drawing.Point(3, 124)
Me.Button13.Location = New System.Drawing.Point(3, 192)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(71, 28)
Me.Button13.TabIndex = 102
@@ -2250,7 +2304,7 @@ Partial Class usrcntlAktDetails
Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button10.ForeColor = System.Drawing.Color.Black
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button10.Location = New System.Drawing.Point(72, 124)
Me.Button10.Location = New System.Drawing.Point(72, 192)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(39, 28)
Me.Button10.TabIndex = 106
@@ -2463,4 +2517,7 @@ Partial Class usrcntlAktDetails
Friend WithEvents picAVISOMessengerSNDChat As PictureBox
Friend WithEvents conVermerkLöschenNew As ToolStripMenuItem
Friend WithEvents cbxLZDeFisk As VERAG_PROG_ALLGEMEIN.MyCheckbox
Friend WithEvents Button1 As Button
Friend WithEvents Button8 As Button
Friend WithEvents btnQRVerwahrung As Button
End Class

View File

@@ -350,7 +350,6 @@ Public Class usrcntlAktDetails
' btnLkwBeleg.Visible = False
btnAktAbschliessen.Visible = False
btnAktAbschliessen.BackColor = Color.DarkGreen
lblBarZuKassierenSumme.Visible = False
Select Case AVISO.Status
@@ -393,9 +392,12 @@ Public Class usrcntlAktDetails
pnlAbgeschlossen.Visible = True
btnAktAbschliessen.Visible = False
' btnLkwBeleg.Visible = False
btnQRVerwahrung.Visible = False
Else
pnlAbgeschlossen.Visible = False
' btnAktAbschliessen.Visible = True
btnQRVerwahrung.Visible = True
End If
intiAktUebernehmenBtn()
@@ -2247,7 +2249,7 @@ Public Class usrcntlAktDetails
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
pnlOptionen.Height = 250 '220 '183 '157 '125
pnlOptionen.Height = 315 '250 '220 '183 '157 '125
pnlOptionen.Visible = Not pnlOptionen.Visible
If pnlOptionen.Visible Then pnlOptionen.Location = New Point(pnlOptionen.Location.X, btnOptionen.Height + pnl.Height + FlowLayoutPanel.Height)
@@ -3847,5 +3849,26 @@ Public Class usrcntlAktDetails
End Sub
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click, Button8.Click, btnQRVerwahrung.Click
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
If dgvSendungen.SelectedRows.Count > 0 Then
SND = New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
End If
Dim rpt As New rptQRSendung_VerwahrungApp(AVISO, SND)
Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True)
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
If sender Is Button8 OrElse printer = "" Then
SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
Else
SDL.cProgramFunctions.printRpt(rpt, printer, True)
End If
End Sub
End Class